(defun FizzBuzz (n)
(if (> n 0)
(progn
(print (FB (- n 1)))
(print (FizzBuzz (- n 1)))
(if (= (mod n 15) 0)
'FizzBuzz
(if (= (mod n 5) 0)
'Buzz
(if (= (mod n 3) 0)
'Fizz
n))))
0))