REBOL[]while[i: input][x: load i print x/1 * x/2 - x/1 - x/2]