Evaluated proc m {list block {sep { }}} { join [uplevel 3 {map $list $block}] $sep }