type vector=array[1..20000]of byte;
var a1,a2,r:vector;
    s1,s2:string;
    n,i,t:byte;f:text;

function tobignr(s:string):vector;
var t:vector; i:byte;
begin
 for i:=1 to length(s) do t[length(s)-i+1]:=ord(s[i])-ord('0');
 tobignr:=t;
end;

begin
 assign(f,'adunare.in');
 reset(f);
 readln(f,s1);
 readln(f,s2);
 close(f);
 n:=0;
 a1:=tobignr(s1);
 if n<length(s1) then n:=length(s1);
 a2:=tobignr(s2);
 if n<length(s2) then n:=length(s2);
 for i:=1 to n+1 do r[i]:=0;
 t:=0;
 for i:=1 to n+1 do
  begin
   t:=a1[i]+a2[i];
   r[i]:=t mod 10;
   t:=t div 10;
  end;
 assign(f,'adunare.out');
 rewrite(f);
 if r[n+1]<>0 then write(f,r[n+1]);
 for i:=n downto 1 do write(f,r[i]);
 close(f);
 readln;
end.