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

(write (fatorial 5 ))