REM FACTORIAL COMPUTATION
INPUT N
LET F = 1
LET I = 1
10 IF I > N GOTO 20
LET F = F * I
LET I = I + 1
GOTO 10
20 PRINT F
STOP