99 Bottles of Beer/Lisp: Difference between revisions

=={{header|Shen}}==

<lang Shen>(define bottles-h

{ number --> string }

0 -> "No more beer"

1 -> "One bottle of beer"

N -> (make-string "~A bottles of beer" N))

(define bottles

{ number --> number }

0 -> 0

X -> (let Msg (bottles-h X)

(do (output "~A on the wall~%~A~%Take one down, pass it around~%~A on the wall~%~%" Msg Msg (bottles-h (- X 1)))

(bottles (- X 1)))))</lang>