var a,b,c:array[1..100] of integer;
        n,m,i:integer; x:char;
begin
assign(input,'adunare.in'); reset(input);
n:=0;
while not eoln do begin
inc(n); read(input,x);
a[n]:=ord(x)-ord('0'); end;
readln(input);
m:=0;
while not eoln do begin
inc(m); read(input,x);
b[m]:=ord(x)-ord('0'); end; close(input);

for i:=1 to n div 2 do begin
a[i]:=a[i]+a[n-i+1];
a[n-i+1]:=a[i]-a[n-i+1];
a[i]:=a[i]-a[n-i+1]; end;

for i:=1 to m div 2 do begin
b[i]:=b[i]+b[m-i+1];
b[m-i+1]:=b[i]-b[m-i+1];
b[i]:=b[i]-b[m-i+1]; end;

if n<m then
n:=m;
for i:=1 to n do begin
c[i]:=a[i]+b[i]+c[i];
c[i+1]:=c[i] div 10;
c[i]:=c[i] mod 10;
if (i=n) and(c[i+1]<>0) then
inc(n); end;
assign(output,'adunare.out'); rewrite(output);
for i:=n downto 1 do
write(output,c[i]); close(output); end.