#lang racket

(define (fizz z)
  (let ((a (modulo z 3)) (b (modulo z 5)))
    (cond
      ((and (= 0 a) (= 0 b)) 'FizzBuzz)
      ((= 0 a) 'Fizz)
      ((= 0 b) 'Buzz)
      (else z))))

(for ((i (in-range 101))) (displayln (fizz i)))