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

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