var d:int64;
    n:string;
    a,b:array[0..100000000] of integer;
    m,i,er,k,t,j,aux:int64;
    f,g:text;
begin
assign(f,'next.in');
assign(g,'next.out');
reset(f);
rewrite(g);
readln(f,n);
readln(f,d);
a[0]:=length(n);
for i:=a[0] downto 1 do val(n[a[0]-i+1],a[i],er);
t:=0;
i:=a[0];;
while i>0 do begin
                t:=t*10+a[i];
                a[i]:=t div d;
                t:=t mod d;
                i:=i-1;
             end;
while (a[0]>0) and (a[a[0]]=0) do a[0]:=a[0]-1;
d:=d-t;
repeat
k:=k+1;
b[k]:=d mod 10;
d:=d div 10;
until d=0;
a[0]:=length(n);
for i:=a[0] downto 1 do val(n[a[0]-i+1],a[i],er);;
t:=0;
i:=1;
while (i<=a[0]) or (i<=b[0]) or (t>0) do
        begin
        t:=t+a[i]+b[i];
        a[i]:=t mod 10;
        t:=t div 10;
        i:=i+1;
        end;
a[0]:=i-1;
for j:=a[0] downto 1 do write(g,a[j]);
close(f);
close(g);
end.