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