lets lisp!

This is my first (test) post. Try this lisp code snippit

(labels ((foo (x)
   (and (<= 0 x) (cons x (foo (1- x))))))
   (format t (format nil 
        "~~{~~&~~@(~~%~~R ~A ~A!~~)~~:*~~&~~@(~~R ~0@*~A!~~)~~&~~@(~2@*~A!~~)~~&~~@(~~[~A~~:;~~:*~~R~~:*~~] ~0@*~A!~~)~~}"
        "bottles of beer"
        "on the wall"
        "take one down, pass it around" 
        "no more"
        )
 (foo 99)))

You can just copy and paste it here to see the result!