var a,b:longint;
    s,va,vb:array [1..100] of 0..9;
    max,min,tr,i,j,k:byte;
    f,g:text;
begin
assign(f,'adunare.in');
reset(f);
assign(g,'adunare.out');
rewrite(g);
readln(f,a);
readln(f,b);
Close(f);
i:=0;
while a<>0 do begin
inc(i);
va[i]:=a mod 10;
a:=a div 10;
end;
j:=0;
while b<>0 do begin
 inc(j);
 vb[j]:=b mod 10;
 b:=b div 10;
 end;
S[1]:=(va[1]+vb[1]) mod 10;
tr:=(va[1]+vb[1]) div 10;
if i<j then begin
 min:=i; max:=j;
 end

 else  begin min:=j; max:=i;  end;

for k:=2 to min do
  begin
   S[k]:=(tr+va[k]+vb[k]) mod 10;
   tr:=(tr+va[k]+vb[k]) div 10;
   end;
  for k:=min+1 to max do begin
    S[k]:=(tr+vb[k]) mod 10;
    tr:=(tr+vb[k]) div 10;
                          end;
    if tr<>0 then
      begin
       inc(k);
       S[k]:=tr;
      end;
  for i:=k downto 1 do
   write(g,s[i]);
     close(g);
   end.