(defun main (&rest argv) (declare (ignorable argv)) (let* ((s (read-line)) (n (parse-integer s :radix 4))) (cond ((zerop (mod n 15)) (format t "FizzBuzz~%")) ((zerop (mod n 3)) (format t "Fizz~%")) ((zerop (mod n 5)) (format t "Buzz~%")) (t (format t "~a~%" s))))) (main)