Evaluated proc m2 {list cmd} { foreach $list { } }