PRINT
FOR j=1 TO 10
   LET s=0
   FOR i=j TO 1 STEP -1
      LET s=(1+s)/i
   NEXT i
   PRINT ;s;"     ��";j;"�� :";1/KAIJOU(j);"�܂ł̘a"
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