Evaluated proc a? name { for { set i 0 } { set out [list]; $i < [llength $::____arrays] } {incr i 2} { lappend out [lindex $::____arrays $i] }; . $out }