(do ((i 1 (+ i 1))) ((= i 100))
    (write-line (cond ((and (zerop (mod i 3)) (zerop (mod i 5))) "FizzBuzz")
                      ((zerop (mod i 3)) "Fizz")
                      ((zerop (mod i 5)) "Buzz")
                      (t i))))