(let ((a (read)))
  (cond
    ((= (% a 3) 0) (display "Fizz"))
    ((= (% a 5) 0) (display "Buzz"))
    (else (display a))
  )
)