Lisp

;;; Print the words to 99 Bottles of beer.

(defun b (n)

(format nil "~A bottle~A of beer"

n (if (= n 1) "" "s")) )

(defun bb (n)

(format t "~A on the wall, ~A.~%~A ~A.~%"

(b n)(b n)

"Take one down and pass it around, "

(b (1- n)) )

(if (> n 1) (bb (1- n))) )

(bb 99)