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