(defun fizzbuzz (n)
(cond ((and
(eq (% n 5) 0)
(eq (% n 3) 0)) "FizzBuzz")
((eq (% n 3) 0) "Fizz")
((eq (% n 5) 0) "Buzz")
(t n)))
;; loop & print from 0 to 100
(dotimes (i 101) (princ-list (fizzbuzz i)))