FUNCTION f(n)
   IF n=1 THEN
      LET f=1
   ELSE
      LET f=n*f(n-1)
   END IF
END FUNCTION

LET m=0
FOR k=1 TO 20
   LET m=m+f(k)
   PRINT k;": ";f(k)
   PRINT "       Σ=";m
NEXT k
PRINT
PRINT "以上、 数列を２０項まで出力しました。"
PRINT "Σ= は、その項までの和を示しています。"
PRINT
END