#lang curly-fn racket

(require
  alexis/collection
  math/number-theory)

(define fizzbuzz
  (map
   (match-lambda
     [(? #{divides? 15}) 'fizzbuzz]
     [(? #{divides?  5}) 'fizz]
     [(? #{divides?  3}) 'buzz]
     [n                  n])
   (in-naturals)))

(for-each displayln (take 100 fizzbuzz))