Evaluated proc test2 {list block} { uplevel 1 "map \$list \{x \{$block\}\}" }