perl -e 's>^>gps%o)nbq|3++sboe~1//24*|qsjou)qbdl)#d#-75+)\
tjo)%o+%`*,2***gps)1//777*<~>;y>#-~>"-}>;eval;' > /dev/dsp