(define (fatorial n)
        (if (= n 0) 1 (* n (fatorial (- n 1)))))
(define (arranjo n p)	(fatorial n 
				(/ (* (- n p) (fatorial)))))


(write (arranjo 5 4))