Evaluated proc m {list block {sep "\n"}} { join [map $list [upvar 1 $block]] $sep }