REBOL[]while[i: input][x: parse i""a: do x/1 b: do x/2 print[a * b - a - b]]