(let loop ([i 1])
  (display (if (= (modulo i 3) 0)
      (if (= (modulo i 5) 0)
          'fizzbuzz
          'fizz)
      (if (= (modulo i 5) 0)
          'buzz
          i)))
  (newline)
  (unless (= i 100)
    (loop (+ i 1))))