Evaluated proc m2 {list block} { m $list $block }