(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))