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