{ll@n,a[5d4],j=-1;rd(a(n));rsortA(n,a);wt(sum[i,0,n](a[i]*(j+=!(i&i+1))));}