Program cel;
Type vector=array[0..100] of byte;
var f,g:text;
    a,b:vector;
    i,t:integer;
procedure citire(var x:vector);
var s:string;
    e:integer;
Begin
Read(f,s);
x[0]:=length(s);
For i:=length(s) downto 1 do val(s[i],x[length(s)-i+1],e);
end;

Begin
Assign(f,'adunare.in');Reset(f);
Assign(g,'adunare.out');Rewrite(g);
citire(a);
Readln(f);
citire(b);
i:=1;
t:=0;
While (i<=a[0]) or (i<=b[0]) or (t>0) do
 Begin
  t:=t+a[i]+b[i];
  a[i]:=t mod 10;
  t:=t div 10;
  inc(i);
 end;
a[0]:=i-1;
For i:=a[0] downto 1 do Write(g,a[i]);
Close(f);
Close(g);
end.