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

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

(write(comb 4 5))