#!/usr/bin/perl open(F,'>/dev/audio');$m='ub . . quicksort techo . . sl'; while(){@d=sort{push@o,$a,$b;$a<=>$b}map{512-rand(1023)}0.. 1023;for(0..3){map{print F pack'C',$_;$m=~s{^(.)(.*)}{$2$1} ;printf"\e[%d;%dH$1",13.5-25*($_/1024),++$f%80+1}@o}}# yaxu Perl is great.
~ david
np: tomas jirku _immaterial_ (the original version!)