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

(write (fatorial 5))