3.7

(define fact (lambda (n) (if (= n 0) 1 (* n (fact (- n 1))))))

(define (bee n k) (/ (fact n) (* (fact ( - n k)) (fact k))))

(define (binn n k) (if (cond [(= k 0) 1] [(= n k) 1])

                   (+ (bee (- n 1) (- k 1)) (bee (- n 1) k))))