var a,b:array[0..51] of int64;
    num:int64;
    lik,el,n,answer:int64;
    i:longint;
    step:int64;
begin
 fillchar(a,sizeof(a),0);
 fillchar(b,sizeof(b),0);
 readln(n);
 for i:= 1 to n do
  begin
   read(el);
   num:=1;
   while num<>22 do
    begin
     if el mod 2 = 0 then inc(a[num]) else
     inc(b[num]);
     el:=el div 2;
     num:=num+1;
    end;
  end;
 step:=1;
 answer:=0;
 for i:= 1 to 22 do
  begin
   if (b[i]=0) and (A[i]=0) then continue;
   answer:=answer+(a[i]*b[i]*step);
   step:=step*2;
  end;
 writeln(answer);
end.