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