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