! ネイピア数 e の近似値
OPTION ARITHMETIC DECIMAL_HIGH
LET s=1
FOR k=100 TO 1 STEP -1
   LET s=s/k+1
NEXT k
PRINT s
END