var a,b,c:array[1..10] of 0..9;
    i,mem:integer;
    x,y:longint;
    ch:char;
    ok:boolean;
    f,g:text;
begin
assign(f,'adunare.in'); reset(f); assign(g,'adunare.out'); rewrite(g);
read(f,x,y);
i:=11;
while x<>0 do begin
  i:=i-1;
  a[i]:=x mod 10;
  x:=x div 10;
end;
i:=11;
while y<>0 do begin
  i:=i-1;
  b[i]:=y mod 10;
  y:=y div 10;
end;
mem:=0;
for i:=10 downto 1 do begin
  c[i]:=(a[i]+b[i]+mem) mod 10;
  mem:=(a[i]+b[i]+mem) div 10;
end;
ok:=false;
for i:=1 to 10 do begin
  if c[i]<>0 then ok:=true;
  if ok then write(g,c[i]);
end;
close(g);
end.