rebol[]loop 100[x: to-list ask""print[l: to-integer(x/1 * x/3 / x/2 ** .5)x/1 / l x/3 / l]]