<* 99-bottles-of-beer in HSC, by Matthias Bethke
Recursive version *>
<$define PAGE:string/C="99 Bottles of Beer">
<$macro BOB N:num/R OTW:bool>
<$if COND=(N = '0')>No more<$else><(N)>
<$if COND=(N <> '1')>bottles<$else>bottle of beer
<$if COND=(set OTW)>on the wall
<$macro BINGE BOTTLES:num/R>
<$if COND=(BOTTLES = '0')>
Go to the store, buy some more...
<$else>
,
Take <$if COND=(BOTTLES = '1')>it<$else>one down, pass it around,
<$let BOTTLES=(BOTTLES - '1')>
.
<*** Page starts here ***>
<(PAGE)>
<(PAGE)>