(dotimes (x 100)
  (format t "~&~[fizz~:;~[~:;~d~]~:*~]~[buzz~]"
          (mod x 3) (mod x 5) x))