(defun fizzbizz (x y n)
  (dotimes (i n)
    (if (= (mod (+ i 1) x) 0)
    (if (= (mod (+ i 1) y) 0) (format t "fizzBizz~%")
      (format t "fizz~%"))
      (if (= (mod (+ i 1) y) 0) (format t "bizz~%")
    (format t "~a~%" (+ i 1))))))