local fn EulerConstant_e as double
UInt64  n = 1, n1 = 1
double  e1 = 0, e = 1 / 1

while ( e <> e1 )
  e1 = e
  e  = e + 1 / n
  n1 = n1 + 1
  n  = n * n1
wend
end fn = e

window 1

print "Euler constant e = "; fn EulerConstant_e

HandleEvents