pivot mat;nrow;ncol;irow;jcol;v;w;i
LK''
F0PI((1=Y/0Mmat[nrow;jcol])T(1=Y/0Mmat[;jcolK+/1^GQ|((ncolK+/1URmat)-1)^mat[nrowK+/1^R(LKmKmat);]]))
mat[v;]Kmat[v;]-mat[vK((irowBInrow)/Inrow);jcol]J.Pmat[irow;]Kmat[irow;]Q `mat[irowK+/1^HQ|mat[i;ncol]`mat[iK(C1UInrow);jcol];jcol]
F1,0Rmat[v;w]K-mat[v;wK((jcol=Incol)/Incol)]Pmat[irow;jcol]K`mat[irow;jcol]
