(defun fizzbuzz () (dotimes (i 100) (let ((c (zerop (mod i 3))) (d (zerop (mod i 5)))) (cond ((and c d) (print "FizzBuzz")) (c (print "Fizz")) (d (print "Buzz"))))))