1-- Compute factorial
2
3FUN fac (n) = 	IF n == 0 THEN 1
4		ELSE n * fac(n - 1)
5		FI
6
7FUN main()  = 	LET
8		  n = READ()
9		IN
10		  WRITE(fac(n))
11