Evaluated proc test2 {list block} { eval "map $list {x {$block}}" }