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