sub step {
    my $step = shift;
    @_ [map {$_ * $step} 0 .. $#_ / $step];
}