sub fix {
  my $n = shift; # must be greater or equal to this (assert >= 0)
  my $m = shift; # must be multiple of this (assert > 0)
  $m*int(($n+$m-1)/$m);
}