なんとなくノリで書いた。

fizzbuzz.scm

(use srfi-1)
(define (fizzbuzz)
  (map
   (lambda (x)
     (cond
      ((zero? (modulo x 15)) "FizzBuzz")
      ((zero? (modulo x 5)) "Buzz")
      ((zero? (modulo x 3)) "Fizz")
      (else x)))
   (iota 100 1 1)))
(fizzbuzz)