{ http://infoarena.ro/problema/next }
{$LONGSTRINGS ON}
type vector=array[1..1000000]of byte;
var f,g:text;
    r,d,m,lung,n:int64;
    i:longint;
    a,b:vector;
    s:string;
function rest(a:vector;b:int64):int64;
var i:longint;
    n:int64;
begin
     n:=0;
     i:=lung;
     while i>0 do
        begin
        n:=(n*10+a[i])mod b;
        i:=i-1;
        end;
     rest:=n;
end;
BEGIN
     assign(f,'next.in'); reset(f);
     assign(g,'next.out'); rewrite(g);
     readln(f,n);
     str(n,s);
     lung:=length(s);
     for i:=length(s) downto 1 do
        val(s[i],a[lung-i+1]);
     readln(f,d);
     r:=rest(a,d);
     str(d-r,s);
     lung:=length(s);
     for i:=lung downto 1 do
        val(s[i],b[lung-i+1]);
     r:=rest(b,d);
     writeln(g,n+r);
     close(f); close(g);
END.