sub ranges_javafan {
  my ($M, $N) = @_;
  return [ map {[int($_/$N*($M+1))
                 , int((($_+1)/$N)*($M+1))-1]
              } 0..$N - 1];
}