fizzbuzz

(loop for i from 1 to 100
      for |3| = (zerop (mod i 3))
      for |5| = (zerop (mod i 5))
      collect (cond ((and |3| |5|) :fizzbuzz)
                    (|3| :fizz)
                    (|5| :buzz)
                    (t i)))