Evaluated proc loffset {mylist start hop} {set out [list]; for {set i $start} {$i < [llength $mylist]} {incr i $hop} {lappend out [lindex $mylist $i]}; return $out }