Evaluated proc evoth {list {i 1}} { set out [list]; for {} {$i < [llength $list]} {incr i 2} { lappend out [lindex $list $i] }; return $out }