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