var  f,g:text;
     a,b,c,d,maradek,i,j,n:longint;
     hiba:integer;
     x:array[1..20] of char;
     s,s1,s2,s3,t:string;

Begin
assign(f,'adunare.in'); reset(f);
assign(g,'adunare.out'); rewrite(g);
read(f,a,b);

str(a,s1);
str(b,s2);

a:=0;
b:=0;
maradek:=0;


if length(s1)<> length(s2) then
    begin
         if length(s1)<length(s2) then begin t:=s1; s1:=s2; s2:=t; end;
         t:='';
         for i:= 1 to length(s2) do
             x[i]:=s2[i];
         n:=length(s2);
         while n<> length(s1) do
             begin
             n:=n+1;
             for i:= n downto 1 do
                    x[i]:=x[i-1];
             end;

          for i:= 1 to length(s1)-length(s2) do
               x[i]:='0';

          s2:='';
          for i:= 1 to n do
              s2:=s2+x[i];

     end;

for i:=  length(s1) downto 1 do begin
            val (s1[i],a,hiba); val (s2[i],b,hiba);
            c:=a+b;
            c:=c+maradek;
            str(c mod 10,s3);
            s:=s3+s;
            maradek:=c div 10;

         end;

if maradek>0 then begin
                  str(maradek,s3);
                  s:=s3+s;
                  end;

writeln(g,s);

close(f);
close(g);
End.