{ll@n,A[4][n],s;rd(A(4,n));rep(i,4)sort(A[i],A[i]+n);rep(i,n)s+=max[j,0,4](A[j][i])-min[j,0,4](A[j][i]);wt(s);wt(A(4,n));}