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