#!/usr/bin/perl open F,'>/dev/dsp';$m='ub . . .quicksort techno. . . 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