REBOL[]while[i: input][x: parse i""a: do x/1 b: do x/2 insert at c: form(round a * b /(a + b)* 100)(length? c)- 1"."print c]