REBOL[]v: 1 prin foreach i parse input","[v: v * do i]