>>13
Something like this:
(define (fizzbuzz n)
(with-output-to-string
(lambda ()
(when (zero? (remainder n 5)) (display "fizz"))
(when (zero? (remainder n 3)) (display "buzz"))
(when (zero? (port-position (current-output-port))) (display n)))))