pivot3 m;nr;nc;ir;jc;v;w;i;mat
LK'';''
F0PI((0Mm[nr;jc])T((0Nm[nr;jc])Y(Y/0Mm[iK(C1UInr);jcK+/1GQ|((ncK+/1URm)-1)^m[nrK+/1^R(LKmatKm);]])))
m[v;]Km[v;]-m[vK((irBInr)/Inr);jc]J.Pm[ir;]Km[ir;]`m[irK+/1^HQ|m[i;nc]`m[iK((0Bm[i;jc])/i);jc];jc]
F1,0Rm[v;w]K-mat[v;wK((jc=Inc)/Inc)]Pm[ir;jc]K`mat[ir;jc]
