Optionally, adjust x128 to make it play faster or slower.perl -e'%c=map{[a..z]->[log($_)/log(2)*8-48],$_}map 2**($_/8),6*8..8*8 +; print((((chr)x($_/16)).("\x00"x(256-$_)/16))x128)for map{$c{$_},0}" +jklkjjj0kkk0j0g0g00jklkjjjjkkjkl"=~/./g'>>/dev/dsp
In reply to Mary had a Little Camel by SubStack
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |