#!/usr/env/bin gosh

(use srfi-1)

(define (fizz-buzz x)
  (cond ((zero? (modulo x 15) 'FizzBuzz)
         (zero? (modulo x 5) 'Buzz)
         (zero? (modulo x 3) 'Fizz)
         (else x))))

(let (n (read (current-input-port)))
  (map fizz-buzz (iota n 1)))