type sir=array[1..101] of char;
var f,g:text;
    a,b,c,d:sir;
    n,m,p:longint;

procedure cit(var a:sir;var n:longint);
begin
n:=0;
while not eoln(f) do begin
  n:=n+1;
  read(f,a[n]);
end;
readln(f);
end;

procedure og(a:sir;n:longint; var b:sir);
var i:longint;
begin
for i:=1 to n do b[n-i+1]:=a[i];
end;

procedure tip(a:sir;n:longint); forward;

procedure scad(a,b:sir;n,m:longint;var c:sir;var p:longint);
var t,x,i:longint;
begin
t:=0;
og(a,n,a);
og(b,m,b);
for i:=m+1 to n do b[i]:='0';

for i:=1 to n do begin
      x:=ord(a[i])-ord(b[i])+t;
      if x<0 then begin x:=x+10;t:=-1 end;
      c[i]:=chr(ord('0')+x)
end;

og(c,n,c);
while c[1]='0' do begin
  for i:=1 to n-1 do c[i]:=c[i+1];
  n:=n-1;
  end;
p:=n;
end;

procedure tip(a:sir;n:longint);
var i:longint;
begin
for i:=1 to n do
  write(g,a[i]);
end;

function compar(a:sir;n:longint;d:sir;p:longint):boolean;
var i:longint;
begin
if n>p then compar:=true
  else if n<p then compar:=false
    else begin
      i:=1;
      while (a[i]=d[i])and(i<n) do i:=i+1;
      if a[i]>=d[i] then compar:=true
        else compar:=false;
    end;
end;

procedure adun(a:sir;n:longint;b:sir;m:longint;var c:sir;var p:longint);
var x,i,t:longint;
begin
t:=0;
p:=n;
og(a,n,a);og(b,m,b);
for i:=m+1 to n do b[i]:='0';

for i:=1 to n do begin
  x:=ord(a[i])+ord(b[i])-2*ord('0')+t;
  if x>9 then begin
    t:=1;
    c[i]:=chr(x mod 10+ord('0'))
  end
    else begin c[i]:=chr(x+ord('0'));t:=0; end;
end;
if t<>0 then begin
  p:=p+1;
  c[p]:=chr(t+ord('0'));
end;
og(c,p,c);
end;


BEGIN

assign(f,'next.in'); reset(f);
assign(g,'next.out');rewrite(g);
cit(a,n);  c:=a;p:=n;
cit(d,p);

while compar(a,n,d,p) do scad(a,d,n,p,a,n);
scad(d,a,p,n,a,n);
adun(c,p,a,n,c,p);

tip(c,p);
close(g);

END.