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.