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