Evaluated proc test2 {list block} { uplevel 1 {map $list $block} }