(define (fatorial n)
        (if (= n 0) 1 (* n (fatorial (- n 1)))))
 
(define (comb n p)
        (/ (fatorial n) (* (fatorial p) (fatorial (- n p)))))
 
(write (comb 4 2))