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