Evaluated proc every_n_from {n offset args} {set list [join $args]; set ret [list]; for {set i $offset} {$i < [llength $list]} {incr i $n} {lappend ret [lindex $list $i]}; return $ret}