(define(fatorial n)
   (if (= n 0) 1
       (* n (fatorial(- n 1)))))

(define (comb n p)
   ((/ (fatorial n) (* (fatorial p) (- (fatorial n) (fatorial p))))))


(write (comb 4 2))