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