(defun show (n)
  (labels ((inner (m rv)
             (cond
               ((zerop (mod m 3))
                (inner (floor m 3) (format nil "~aFizz" rv)))
               ((zerop (mod m 5))
                (inner (floor m 5) (format nil "~aBuzz" rv)))
               (t
                rv))))
    (cond
      ((zerop (mod n 3))
       (inner (floor n 3) "Fizz"))
      ((zerop (mod n 5))
       (inner (floor n 5) "Buzz"))
      (t
       (format nil "~a" n)))))

(defun fizzfizz (start stop)
  (loop for n from start upto stop
       do (format t "~a~%" (show n))))

(fizzfizz 1 100)