(define (fatorial n)
(if (= n 0) 1 (* n (fatorial (- n 1)))))
(define (arranjo n p) (fatorial n
(/ (* (- n p) (fatorial)))))
(write (arranjo 5 4))
KGRlZmluZSAoZmF0b3JpYWwgbikKICAgICAgICAoaWYgKD0gbiAwKSAxICgqIG4gKGZhdG9yaWFsICgtIG4gMSkpKSkpCihkZWZpbmUgKGFycmFuam8gbiBwKQkoZmF0b3JpYWwgbiAKCQkJCSgvICgqICgtIG4gcCkgKGZhdG9yaWFsKSkpKSkKCgood3JpdGUgKGFycmFuam8gNSA0KSk=