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