perl -e 'use bytes; for($t=0;;$t++){ print chr($t*(($t>>12|$t>>8)&63&$t>>4)); }' | play -t raw -b8 -r8k -e un -