fizz-buzz.scm

(define divisible? 
  (lambda (a n)
    (eq? (remainder a n) 0)
    ))

(define fizz-buzz
  (lambda (i)
    (cond
      ((eq? i 0) '0)
      (else (cond
              ((and (divisible? i 3) (divisible? i 5)) (display '"FizzBuzz"))
              ((divisible? i 3) (display '"Fizz"))
              ((divisible? i 5) (display '"Buzz"))
              (else (display i))
              ) (display '" ") (fizz-buzz (- i 1)) )
      )))