var a,c:array[0..100000]of byte;
    uc:integer;
    n:int64;
    i,j:longint;
    m,l,aux,aux2,rest:int64;
    s:ansistring;
    f,g:text;
procedure impartire(k:int64);
begin
     j:=1;
     for i:=1 to m do
        begin
             aux:=aux*10+a[i];
             if aux>k then
                begin
                     c[j]:=aux div k;
                     rest:=aux mod k;
                     inc(j);
                     aux:=rest;
                end;
        end;
end;
procedure sum(k:int64);
begin
     aux2:=l;
     for i:=m downto 0 do
        begin
             aux2:=aux2+a[i];
             uc:=aux2 mod 10;
             c[i]:=uc;
             aux2:=aux2 div 10;
        end;
end;
begin
     assign(f,'next.in'); reset(f);
     assign(g,'next.out'); rewrite(g);
     a[0]:=0;
     readln(f,s);
     for i:=1 to length(s) do
         val(s[i],a[i]);
     m:=length(s);
     readln(f,n);
     aux:=0;
     impartire(n);
     if aux=0 then
        for i:=1 to m do
             write(g,a[i])
      else
        begin
             l:=n-aux;
             sum(l);
             if a[0]<>0 then
                write(g,c[0]);
             for i:=1 to m do
                write(g,c[i]);
        end;
     close(f);
     close(g);
end.