Evaluated proc m {list block} { set result [list]; foreach [block args] $list { lappend result [apply yield x] }; join $result \n }