; 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-))