type vector=array[1..100]of integer;
var n,i,m:integer;
    f,g:text;
    a,b:vector;
procedure citire;
begin
n:=0;m:=0;
while not eoln(f) do
      begin
      inc(n);
      read(f,a[n]);
      end;
readln(f);
while not eoln(f) do
      begin
      inc(m);
      read(f,b[m]);
      end;
end;
procedure adunare(var a:vector);
var t,j,x:integer;
begin
i:=1;
t:=0;
for i:=1 to n div 2 do
    begin
    x:=a[i];
    a[i]:=a[n-i+1];
    a[n-i+1]:=x;
    end;
for i:=1 to m div 2 do
    begin
    x:=b[i];
    b[i]:=b[m-i+1];
    b[m-i+1]:=x;
    end;
while (i<=n)or(i<=m)or(t>0) do
      begin
      t:=a[i]+b[i]+t;
      a[i]:=t mod 10;
      t:=t div 10;
      i:=i+1;
      end;
n:=i-1;
end;
begin
assign(f,'adunare.in');reset(f);
assign(g,'adunare.out');rewrite(g);
citire;
adunare(a);
for i:=n downto 1 do
    begin
    write(g,a[i]);
    end;
close(f);close(g);
end.