Name: Anonymous 2008-03-23 0:43
perl -e 'while(1){ $t="prog"; while(int(rand()*100)%7) { $t .= "r"; } for($i=0; $i<25; $i++) { print "$t$t$t" . rand(); } }' > /dev/dsp
perl -e 'while(1){ $t="prog"; while(int(rand()*100)%7) { $t .= "r"; } for($i=0; $i<25; $i++) { print "$t$t$t" . rand(); } }' > /dev/dsp