val[pc_, vvc_, k_] := Module[{z1, z2, z3, z4, z5, z6, z7, z8, z9, z10, z11, 
      z12, z13, z14, s}, {z1, z2, z3, z4, z5, z6, z7, z8, z9, z10, z11, z12, 
        z13, z14} = xb[pc, vvc]; {z1, z2, z3, z4, z5, z6} = 
       {4, 4, 4, 4, 4, 4} + {z1, z2, z3, z4, z5, z6}; 
      s = z1^k + z2^k + z3^k + z4^k + z5^k + z6^k; Return[s]; ]
 
xb[pb_, vvb_] := Sort[xa[pb, vvb], Greater]
 
xa[u_, v_] := xa4[u, v]
 
xa4[pa_, vva_] := Module[{r, w1, w2, w3, w4, w12, w13, w23, w14, w24, w34, 
      w123, w124, w134, w234, q1, q2, q3, q4}, {q1, q2, q3, q4} = pa; 
      {w1, w2, w3, w4, w12, w13, w23, w14, w24, w34, w123, w124, w134, 
        w234} = vva; r = {w1 - q1, w2 - q2, w3 - q3, w4 - q4, w12 - q1 - q2, 
        w13 - q1 - q3, w23 - q2 - q3, w14 - q1 - q4, w24 - q2 - q4, 
        w34 - q3 - q4, w123 - q1 - q2 - q3, w124 - q1 - q2 - q4, 
        w134 - q1 - q3 - q4, w234 - q2 - q3 - q4}; Return[r]; ]