Evaluated proc loffsetn {mylist start hop num} { set out [list]; for {set i $start} {$i < [llength $mylist]} {incr i $hop} {lappend out [lrange $mylist $i [+ $i $num]]}; return $out }