(defun main (&rest argv) (declare (ignorable argv)) (let* ((s (read-line)) (3rd 0) (5th 0) (d 1)) (loop for c across s do (let ((i (digit-char-p c))) (incf 3rd i) (incf 5th (* i d)) (setf d (* d -1)))) (format t "~a~%" (cond ((and (zerop (mod 3rd 3)) (zerop (mod 5th 5))) "FizzBuzz") ((zerop (mod 3rd 3)) "Fizz") ((zerop (mod 5th 5)) "Buzz") (t s))))) (main)