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

циферки возьми телефон это он это он