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