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