sub intervals {
  my( $start, $end, $interval ) = @_;

  my @ret;
  my $cur = $start;
  while( $cur <= $end ) {
    push @ret, $cur;
    $cur += $interval;
  }
  return @ret
}