Bytebeat in Scheme
You can use guile main.scm | play -r 8000 -t s16 -v 0.25 - to try it out.
guile main.scm | play -r 8000 -t s16 -v 0.25 -