rebol[]loop 100[x: load ask""print round(x/1 ** d: 2 / 3)+(x/2 ** d)** 1.5]