10 print agm(1,1/sqr(2))
20 end
100 sub agm(a,g)
110   do
120     let ta = (a+g)/2
130     let g = sqr(a*g)
140     let x = a
150     let a = ta
160     let ta = x
170   loop until a = ta
180   agm = a
190 end sub