REBOL[]loop 100[a: load ask""print round(a/2 ** 2 / a/1 + a/1)/ 4]