OPTION ARITHMETIC DECIMAL_HIGH
LET x=1
FOR i=1 TO 1000000
   LET x = x + (-1)^i/(2*i+1)
   IF MOD(i,100000)=0 THEN PRINT 4*x
NEXT i
END