REBOL[]x: parse input":"a: do x/2 loop do x/1[print a a: a + to-integer a *(b: do x/3)/ 100]