double local fn agm( a as double, g as double )
  double ta
  do
    ta = a
    a = (a + g) / 2
    g = sqr(ta * g)
  until ( a == ta )
end fn = a

print fn agm( 1, 1/sqr(2) )

HandleEvents