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

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