broken, but better example in song.clj