(defun bottleno (1) " bottle"
     | bottleno  _  " bottles")

(defun take-beer-down (0) (print "Go to the store buy some more ;)")
     | take-beer-down (n) (print (s+ n (bottleno n) " of beer on the wall."))
	                  (print "Take one down, pass it around,")