(let ((n (read)))
  (do ((i 1 (+ i 1)))
      ((> i n))
    (cond ((zero? (mod i 15))
           (print "FizzBuzz"))
          ((zero? (mod i 3))
           (print "Fizz"))
          ((zero? (mod i 5))
           (print "Buzz"))
          (else
           (print i)))))