Program cel;
Type vector=array[0..100] of byte;
var f,g:text;
    c1:char;
    a,b,c:vector;
    i,t:integer;

procedure citire(var x:vector);
var nr,e,aux,i:integer;
Begin
x[0]:=0;
While not eoln(f) do
 Begin
  Read(f,c1);
  inc(x[0]);
  val(c1,x[x[0]],e);
 end;
For i:=1 to x[0] div 2 do
 Begin
  aux:=x[i];
  x[i]:=x[x[0]-i+1];
  x[x[0]-i+1]:=aux;
 end;
end;

Begin
Assign(f,'adunare.in');Reset(f);
Assign(g,'adunare.out');Rewrite(g);
citire(a);
Readln(f);
citire(b);
i:=1;
While (i<=a[0]) or (i<=b[0]) or (t>0) do
 Begin
  t:=t+a[i]+b[i];
  c[i]:=t mod 10;
  t:=t div 10;
  inc(i);
 end;
c[0]:=i-1-;
For i:=c[0] downto 1 do Write(g,c[i]);
Close(f);
Close(g);
end.