teknoraver

#!/bin/sh

perl -e 'for($t=0;;$t++){print chr($t*($t>>8&$t>>13)&255)}' |aplay