! ネイピア数 e の近似値
OPTION ARITHMETIC DECIMAL_HIGH
LET x=1
LET y=0
FOR k=100 TO 1 step -1
   LET x=x*k
   LET y=y+x
NEXT k
PRINT (1+y)/x
END