ll@N,@A[N];rsortA(N,A);ll ans=0,it=0;rep(k,17){rep(w,1<<k)if(it+w<N)ans+=A[it+w]*k;it+=w;}wt(ans);