sub fix{
    my ($n,$m)=@_;
    my $M = $n % $m;
    $M && return $n + $m - $M;
    $n;
}