(loop
   for i from 1 to 100
   when (zerop (mod i 3)) do (format t "Fizz") end
   when (zerop (mod i 5)) do (format t "Buzz") end
   when (and (not (zerop (mod i 3))) (not (zerop (mod i 5))))
     do (format t "~A" i) end
   do (format t "~%"))