type
number=array[0..500] of integer;
var
s1,s2:ansistring;
l1,l2,i:integer;
a,b:number;

procedure jia(b:number;var a:number);
  var
  i,k:longint;
  begin
    if l1>=l2 then k:=l1
              else k:=l2;
    for i:=1 to k do
      begin
        a[i]:=a[i]+b[i];
        a[i+1]:=a[i+1]+(a[i] div 10);
        a[i]:=a[i] mod 10;
      end;
    if a[k+1]<>0 then k:=k+1;
    for i:=k downto 1 do
      write(a[i]);
  end;
begin	
	assign(input,'add.in');reset(input);
	assign(output,'add.out');rewrite(output);
  readln(s1);
  readln(s2);
  l1:=length(s1);
  for i:=1 to l1 do
    a[l1-i+1]:=ord(s1[i])-ord('0');
  l2:=length(s2);
  for i:=1 to l2 do
    b[l2-i+1]:=ord(s2[i])-ord('0');
  jia(b,a);
  close(input);close(output);
end.