src/examples/Mini/fac.mini - commons-bcel - Git at Google

 -- Compute factorial

 FUN fac (n) = 	IF n == 0 THEN 1
 		ELSE n * fac(n - 1)
 		FI

 FUN main()  = 	LET
 		  n = READ()
 		IN
 		  WRITE(fac(n))
	-- Compute factorial

	FUN fac (n) = IF n == 0 THEN 1
	ELSE n * fac(n - 1)
	FI

	FUN main() = LET
	n = READ()
	IN
	WRITE(fac(n))