#!/bin/rc rfork e /dev/audio while(f = `{fortune <{echo '220 262 294 349 392 440 523 587 698 784 880'}}){ n = `{echo $f `{fortune <{echo '2 4 4 8 8 8 8'}} /80-p | dc} { for (i in 7e1 7a2 763 724 6e5 6a6 667 628 5e9 5aa 56b 52c 4ed 4ae 46f 430) read -c 1 | tr \0 \x^$i read -c $n | tr \0 \x430 for (i in 430 46f 4ae 4ed 52c 56b 5aa 5e9 628 667 6a6 6e5 724 763 7a2 7e1) read -c 4 | tr \0 \x^$i } | audio/pcmconv -iu6c1r^$f read -c 22050 }