REBOL[]while[i: input][v: 1 foreach j parse i ","[v: v * to-integer j] print v]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page