(define (fatorial n)
(if (=n0) 1 
(*n(fatorial (-n1)))))
 

(write (fatorial 5))