Evaluated proc test {} { set list [seq 0 2]; set block {. $x hi}; map $list {x [first $block]} }