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