sub part {
    use POSIX qw(ceil);
    my ($n, $m) = @_;
    my @parts;
    for(0 .. $m - 1) {
      $n -= $parts[$_] = ceil($n / $m); 
      $m -= 1;
    }
   return @parts;
}