var d, xx, yy, a, b:longint;
    f, g:text;

procedure euclid (aa, bb:longint; var dd, x, y:longint);
var x0, y0:longint;
  begin
  if bb = 0 then
    begin
    dd:=aa;
    x:=1;
    y:=0;
    end
            else
    begin
    euclid (bb, aa mod bb, dd, x0, y0);
    x:=y0;
    y:=x0-(aa div bb)*y0;
    end;
  end;

begin
assign (f, 'inversmodular.in'); reset (f);
assign (g, 'inversmodular.out'); rewrite (g);

readln (f, a, b);
euclid (a, b, d, xx, yy);
if xx>=0 then writeln (g, xx)
         else writeln (g, xx+b);

close (f); close (g);
end.