ll@N,@A[N],c[3]{};sortA(N,A);rep(N){string@S;c[S[0]<98?0:S[1]/98+1]++;}wt(*c==N?sum(A(N)):c[1]==N?max(A(N)):c[2]==N?0:*c?min(sum(A(*c-1))+A[*c+c[1]-1],c[2]?A[N-c[2]]:1d18):A[c[1]-1]);