Beer in Scheme

Here is my scheme implementation of 99 bottles of beer
It's implemented using Scheme's hygenic macro system. So the expression (beer 99) expands at compile time into a single call to display with a string as it's argument that contains the entire song.