10 A = 1
20 G = 1!/SQR(2!)
30 FOR I=1 TO 20  'twenty iterations is plenty
40 B = (A+G)/2
50 G = SQR(A*G)
60 A = B
70 NEXT I
80 PRINT A