var
n,m:string;
i,j,k:longint;
a,b,c:array[0..1000] of longint;
begin
readln(n);
readln(m);
for i:=length(n) downto 1 do a[i]:=ord(n[i])-48;
for i:=length(m) downto 1 do b[i]:=ord(m[i])-48;
for i:=1 to 1000 do
begin
c[i]:=a[i]+b[i]+k;
k:=c[i] div 10;
c[i]:=c[i] mod 10;
end;
j:=1000;
while (j>0) and (c[j]=0) do dec(j);
for i:=1 to j do write(c[i]);
end.