(define (fatorial n)
        (if (= n 0) 1
                (* n (fatorial(- n 1)))))
 
(write fatorial(5))