;;;; fizzbuzz program written in lith

(define 1to100 (range 1 100))

(define (to-fizz-buzz n)
    (cond
        ((divides n 15) "FizzBuzz")
        ((divides n 3) "Fizz")
        ((divides n 5) "Buzz")
        (else n)))

(for-each print (map to-fizz-buzz 1to100))