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