var i,er,x:integer;
    a,b:array[0..10] of 0..9;
    s:string;
procedure adunare;
var t,i:integer;
begin
t:=0;
i:=1;
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;
end;

BEGIN
assign(input,'adunare.in');reset(input);
assign(output,'adunare.out');rewrite(output);
readln(s);
a[0]:=length(s);
x:=0;
for i:=length(s) downto 1 do begin
    inc(x);
    val(s[i],a[x],er);
    end;
x:=0;
s:='';
readln(s);
b[0]:=length(S);
for i:=length(s) downto 1 do begin
    inc(x);
    val(s[i],b[x],er);
    end;
adunare;
for i:=a[0] downto 1 do
    write(a[i]);
close(input);
close(output);
end.