Beer song in Lisp

beer-song.lisp

(defun beer-song (n)
  (format t "~a bottle~:*~p of beer on the wall.~%" n)
  (format t "~a bottle~:*~p of beer.~%" n)
  (format t "Take one down.~%")
  (format t "Pass it around.~%")

  (decf n)

  (if (> n 0)
    (progn
      (format t "~a bottle~:*~p of beer on the wall.~%" n)
      (beer-song n))
    (format t "No more bottles of beer on the wall.~%")))
 
(beer-song 99)