(define n (read)) (define (fizzbuzz a) (cond ((= (mod a 15) 0) (display "FizzBuzz")) ((= (mod a 5) 0) (display "Buzz")) ((= (mod a 3) 0) (display "Fizz")) (else (display n)))) (map fizzbuzz (iota n 1))