10 DECLARE EXTERNAL FUNCTION FACT
20 INPUT n
30 PRINT FACT(n)
40 END
100 EXTERNAL FUNCTION FACT(n)
110 IF n=0 THEN
120    LET FACT=1 
130 ELSE
140    LET FACT=n*FACT(n-1)
150 END IF
160 END FUNCTION


