; GOO version of 99 bottles of beer
; by Juri Pakaste
; GOO information at http://www.googoogaga.org/
(df bottles (n)
(cat
(cond ((= n 0) "No more bottles")
((= n 1) "One bottle")
(#t (cat (num-to-str n) " bottles")))
" of beer"))
(df bow (n)
(cat (bottles n) " on the wall"))
(do
(fun (n)
(post (bow n))
(post "\n")
(post (bottles n))
(post "\nTake one down, pass it around\n")
(post (bow (1- n)))
(post "\n\n"))
(range-by 100 >= 1 1-))