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