Lambeat

Bytebeat in Scheme

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