Evaluated proc m2 {list cmd} { set buf [list]; foreach $list { lappend buf [eval $cmd] }; join $buf \n }