;;; XLISP-PLUS version of 99 Bottles of beer (Bottles.lsp)
;;; http://www.aracnet.com/~tomalmy/xlisp.html
;;; Philipp Winterberg, http://www.winterbergs.de

(setq b 99)
(loop
   (format t "~D bottle(s) of beer on the wall,~%" b)
   (format t "~D bottle(s) of beer.~%" b)
   (format t "Take one down, pass it around,~%")
   (setq b (- b 1))
   (format t "~D bottle(s) of beer on the wall.~%~%" b)
   (when (= b 0) (return))
)