/prog/ challenge #827278494627289.737

Write something, anything, useful in any dialect of Lisp.

Prize 1: Nobel Prize
Prize 2: Field's Medal
Prize 3: 3 liters of Abelson's semen

You ask the impossible

(do ((i 1 (+ i 1)))
    ((> i 100))
    (display
      (cond ((= 0 (modulo i 15)) "FizzBuzz")
            ((= 0 (modulo i 3))  "Fizz")
            ((= 0 (modulo i 5))  "Buzz")
            (else                i)))
    (newline))