#! perl -slw
use strict;

our $N //= 2;
our $M //= 1e6;

$M++; # No segment contains the upper end point.

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

printf "%2d : from %7d to %7d (%7d)\n",
    $_, @{ $ranges[ $_ ] },
    $ranges[ $_ ][ 1 ] - $ranges[ $_ ][ 0 ] + 1
    for 0 .. $#ranges;

__END__