(define (judge x)
  (cond ((= 0 (modulo x 15)) 'FizzBuzz)
	((= 0 (modulo x 5)) 'Buzz)
	((= 0 (modulo x 3)) 'Fizz)
	(else (number->string x))))

(let* ((n (read)))
  (for-each print (map judge (lrange 1 (+ n 1)))))