var d,t:int64;
    n:char;
    a,b,c:array[0..10000000] of 0..9;
    x,y,z:longint;
    k,i:longint;
    aux:0..9;
    f,g:text;
begin
assign(f,'next.in');
assign(g,'next.out');
reset(f);
rewrite(g);
while not eoln(f) do begin
read(f,n);
x:=x+1;
val(n,a[x]);
end;
readln(f);
readln(f,d);
for i:=1 to x div 2 do begin
                        aux:=a[i];
                        a[i]:=a[x-i+1];
                        a[x-i+1]:=aux;
                        end;
for i:=1 to x do c[i]:=a[i];
z:=x;
t:=0;
i:=x;;
while i>0 do begin
                t:=t*10+a[i];
                a[i]:=t div d;
                t:=t mod d;
                i:=i-1;
             end;
while (x>0) and (a[x]=0) do x:=x-1;
d:=d-t;
repeat
k:=k+1;
b[k]:=d mod 10;
d:=d div 10;
until d=0;
t:=0;
i:=1;
while (i<=z) or (i<=z) or (t>0) do
        begin
        t:=t+c[i]+b[i];
        c[i]:=t mod 10;
        t:=t div 10;
        i:=i+1;
        end;
z:=i-1;
for i:=z downto 1 do write(g,c[i]);
close(f);
close(g);
end.