(define (fizz-buzzify index)
(letrec ((fizz-val (lambda (i s) ;Hey, I found a use for letrec.
(if (> i 0)
(fizz-val (- i 1)
(string-append
(cond
((= (modulo i 15) 0) "FizzBuzz")
((= (modulo i 5) 0) "Buzz")
((= (modulo i 3) 0) "Fizz")
(else (number->string i))) "\n" s))
s))))
(fizz-val index "")))
(display (fizz-buzzify 100))