REBOL[]while[i: input][v: 1 foreach j parse i ","[v: v * to-integer j] print v]