PRINT
FOR j=1 TO 10
   LET s=0
   FOR i=j TO 1 STEP -1
      LET s=i*(1+s)
   NEXT i
   IF j=1 THEN
      PRINT " 1 ! ＝ ";s;"     ←";j;"項";KAIJOU(j);"までの和"
   ELSE
      FOR k=1 to j-1
         PRINT k;"! +";
      NEXT k
      PRINT j;"! ＝ ";s;"     ←";j;"項";KAIJOU(j);"までの和"
   END IF
NEXT j
PRINT
END

EXTERNAL FUNCTION KAIJOU(a)
LET x = 1
LET y = 1
DO WHILE y =< a
   LET x = x*y
   LET y = y+1
LOOP
LET KAIJOU = x
END FUNCTION