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