(defun ninety-nine-bottles (n)
(cond ((equalp 1 n)
(format t "~&One last bottle of beer on the wall,~
~%One last bottle of beer~
~%Take it down,~
~%Pass it around,~
~%There'll be no more bottles of beer on the wall!"))
(t
(format t "~&~D bottles of beer on the wall,~
~%~D bottles of beer!~
~%Take one down,~
~%Pass it around,~%"
n n)
(ninety-nine-bottles (- n 1)))))
https://youtu.be/FITjBet3dio?si=FmFjXmzN2KtCo5W7