* 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> <$if COND=(N <> '1')>bottles<$else>bottle$if> of beer <$if COND=(set OTW)>on the wall$if> $macro> <$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$if> down, pass it around,
<$let BOTTLES=(BOTTLES - '1')>