Evaluated proc test2 {list block} { . "map $list $block"; uplevel 2 "map $list $block" }