(let ((a (read)))
  (cond
    ((= (mod a 15) 0) (display "FizzBuzz"))
    ((= (mod a 3) 0) (display "Fizz"))
    ((= (mod a 5) 0) (display "Buzz"))
    (else (display a))
  )
)