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

(define (arranjo n p)
 (/ fatorial n fatorial(- n p)))
 
(write(fatorial 5))
(write(arranjo 5 2))