(dolist (num '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15))
  (if (= 0 (mod num 3))
    (format t "Fizz")
    nil)
  (if (= 0 (mod num 5))
    (format t "Buzz")
    nil)
  (if (not (or (= 0 (mod num 5))
               (= 0 (mod num 3))))
    (format t "~a" num)
    nil)
  (format t "~%"))