sub adjSets2{
    my $min = shift;
    my @rv;
    for my $start ( 0 .. $#_ - $min ) {
        for my $len ( $min .. $#_ ) {
            push @rv, [ @_[ $start .. $len ] ];
        }
    }
    return @rv;
}