sub f {
    my( $n, $g, $m ) = @_;
    $n % $g + $g * int(($m - $n) / $g);
};;