#!/usr/local/bin/sbcl --script
(defun fizzbuzz (n)
  (loop for n from 1 to n
     do (format t "~&~[~[FizzBuzz~:;Fizz~]~*~:;~[Buzz~*~:;~D~]~]~%"
                (mod n 3) (mod n 5) n)))
(fizzbuzz 30)