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