REBOL[]while[i: input][x: parse i""a: do x/1 b: do x/2 print [round(a * a / b + b)/ 2]]