var a,c:array[0..1000000]of byte;
    uc,ct:integer;
    n:int64;
    i,j,k:longint;
    m,l,aux,aux2,rest:int64;
    s:ansistring;
    fi,fo:text;
procedure imp(k:integer);
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:integer);
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(fi,'next.in'); reset(fi);
     assign(fo,'next.out'); rewrite(fo);
     ct:=0;
     a[0]:=0;
     repeat readln(fi); ct:=ct+1; until eof(fi);
     reset(fi);
     k:=1;
     for j:=1 to ct-1 do
        begin
             readln(fi,s);
             for i:=1 to length(s) do begin
                val(s[i],a[k]); inc(k); end; end;
     m:=k-1;
     readln(fi,n);
     aux:=0;
     imp(n);
     if aux=0 then for i:=1 to m do write(fo,a[i])
     else begin
     l:=n-aux;
     sum(l);
     if a[0]<>0 then write(fo,c[0]);
     for i:=1 to m do
        write(fo,c[i]);
        end;
     close(fi);
     close(fo);
end.