forall: func [
"Evaluates a block for every value in a series."
[catch throw]
'word [word!] {Word set to each position in series and changed as a result}
body [block!] "Block to evaluate each time"
][
throw-on-error [forskip :word 1 body]
]