var c:char;
    s2,a,b:array[0..10000] of 0..9;
    f,g:text;  t,i,s,n,m:integer;
begin
assign (f,'date.in');
reset (f);
n:=0;
m:=0;
a[m]:=0;
a[n]:=0;
while not eoln(f) do
begin read (f,c);
inc(n);
a[n]:=ord (c)-ord('0');
end;
readln (f);
while not eof (f) do
begin
read (f,c);
inc (m);
b[m]:=ord(c)-ord('0');
end;
close (f);
if n>m then
for i:=1 to n do
b[n-i+1]:=b[m-i+1]
else
if m>n then
for i:=1 to m do
b[m-i+1]:=b[n-i+1];
t:=0;
for i:=n downto 0 do
begin
s:=t+a[i]+b[i];
s2[i]:=s mod 10;
t:=s div 10;
end;
assign (g,'suma.out');
rewrite (g);
if s2[0]=0 then
for i:=1 to n do
write(g,s2[i])
else
for i:=0 to n do
write (g,s2[i]);
close (g);
end.