(for-each print
          (map (lambda (x)
                 (cond ((zero? (modulo x 15)) "FizzBuzz")
                       ((zero? (modulo x 3)) "Fizz")
                       ((zero? (modulo x 5)) "Buzz")
                       (else x)))
               (iota (read) 1)))