program ossze;
var f,g:text;
    n,m:string;
    szam1,szam2,hibakod,i,hozza:byte;
    eredmeny:word;
    x:array[1..10] of word;
begin
  assign(f,'adunare.in');
  reset(f);

  readln(f,n);
  if ord(n[0])<10 then
  begin
     while ord(n[0])<10 do
     insert('0',n,1);
  end;
  readln(f,m);

  if ord(m[0])<10 then
  begin
     while ord(m[0])<10 do
     insert('0',m,1);
  end;

  assign(g,'adunare.out');
  rewrite(g);
  hozza:=0;
  for i:=10 downto 1 do
  begin
     val(n[i],szam1);
     val(m[i],szam2);
     eredmeny:=szam1+szam2+hozza;
     hozza:=0;
     if eredmeny>10 then
     begin
        x[i]:=eredmeny mod 10;
        hozza:=eredmeny div 10;
     end
     else
     x[i]:=eredmeny;
  end;
  for i:=1 to 10 do
  begin
      if x[i]>0 then
      write(g,x[i])
      else
       if (i>1) and (x[i-1]<>0) then
       write(g,x[i]);
  end;
  close(f);
  close(g);
end.