;;; probability that any two members of a group of N
;;; will match in a space of M
 
(define (birthday N M)
   (let birthday-count ((product 1)
                        (n 1))
        (if (>= n N)
            (- 1 product)
            (birthday-count (* product (/ (- M n) M)) (+ n 1)))))