#!/usr/bin/env gosh

(define (FizzBuzz x)
  (cond ((= (modulo x 15) 0) 'FizzBuzz)
        ((= (modulo x 5) 0) 'Buzz)
        ((= (modulo x 3) 0) 'Fizz)
        (else x)))

(let ((n (read (current-input-port))))
  (for-each print (map FizzBuzz (iota n 1))))