fchurca

(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