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