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