{ Factoriel }

{ Necessite les procedures }

PROC FACT(X,Y) [ IF X=0 [ PRINT Y ] : IF X>0 [ FACT(X-1,Y*X) ] ] :
PROC PRINTFACT (X) [ PRINT X,"! = " : FACT(X,1) : PRINT "\n" ] :
FOR I=1 TO 40 [ PRINTFACT(I) ]