ll@T;rep(T){ll@N,@A[N],b=1,r,a=0;sort(A,A+N);r=A[N-1];rrep[A](x,0,N-1)r<x?b=0,a+=2r,r=x-r:(a+=2x,r-=x);wt(a+(b?min(r,1):r));}