| x delta |
x := 1.
[(delta := -2 * x * x + 1 * x / 2) abs > (1/1e1000)] whileTrue: [x := x + delta].
^x * 2s1000