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