Program cogs;

Var

 Cal:array[1..256] of char;

 a,b:string;

 carry:boolean;

 c:integer;

Procedure

 Plus(m,n:string);

 Var

 i,j,k,sum:integer;

 Begin

 i:=length(m);

 j:=length(n);

 k:=0;

 carry:=false;

 while (i>=1) or (j>=1) do

 begin

 k:=k+1;

 if i>=1 then

 begin

 sum:=ord(m[i])-48;

 i:=i-1;

 end

 else sum:=0;

 if j>=1 then

 begin

 sum:=sum+ord(n[j])-48;

 j:=j-1;

 end;

 if carry then

 sum:=sum+1;

 if sum>9 then

 begin

 carry:=true;

 Cal[k]:=chr(sum-10+48);

 end

 else begin

 carry:=false;

 Cal[k]:=chr(sum+48);

 end;

 end;

 if carry then

 begin

 k:=k+1;

 Cal[k]:='1';

 end;

 while k>=1 do

 begin

 write(Cal[k]);

 k:=k-1;

 end;

 end;

Begin

 assign(input,'add.in');

 assign(output,'add.out');

 reset(input);

 rewrite(output);

 readln(a);

 readln(b);

 Plus(a,b);

 close(input);

 close(output)

end.

Program high_acplus;

Var

 a:array[1..150] of integer;

 i,j:integer;

 s1,s2,s3:string;

begin

 for i:=1 to 150 do

 a[i]:=0;

 assign(input,'add.in');

 assign(output,'add.out');

 reset(input);

 rewrite(output);

 readln(s1);

 readln(s2);

 if(length(s1)<length(s2))or((length(s1)=length(s2))and(s1<s2)) then

 begin

 s3:=s1;

 s1:=s2;

 s2:=s3;

 end;

 for i:=1 to length(s1) do

 a[i]:=ord(s1[length(s1)-i+1])-ord('0');

 for j:=1 to length(s2) do

 a[j]:=a[j]+(ord(s2[length(s2)-j+1])-ord('0'));

 for j:=1 to length(s1) do

 if (a[j]>=10) then

 begin

 a[j]:=a[j] mod 10;

 a[j+1]:=a[j+1]+1;

 end;

 if (a[length(s1)+1]<>0) then

 for i:=(length(s1)+1) downto 1 do

 write(a[i])

 else

 for i:=(length(s1)) downto 1 do

 write(a[i]);

 close(input);

 close(output)

end.