99 bottles of beer on the wall in crisp

beer.crisp

song[

[ This is the '99 bottles of beer on the wall' little puzzle from Rosetta Code.
  The expected output is in (you'll never guess) expected.output for running
  this program as a unit test.
comment]

exported[sing/0 list]
author[Andy Brown (click) <[email protected]> string]

_beer_[of beer on the wall! string]

sing[
  [[99 #] sing] 
defun]

sing[
  [[No more bottles _beer_ string] puts]
[[0 #] is]
defun]

sing[
  [ [[One bottle _beer_ string] puts] 
    [[0 #] sing]
  do]
[[1 #] is]
defun]

sing[
  [ [[[beers %] bottles _beer_ string] puts]
    [[beers [1 #] -] sing]
  do]
beers[any]
defun]

module]