matrix.lib
LIB "matrix.lib"; ring r=32003,(x,y,z),lp; matrix A[3][3]=1,x,3,4,y,6,7,z,9; print(A); ==> 1,x,3, ==> 4,y,6, ==> 7,z,9 print(permcol(A,2,3)); ==> 1,3,x, ==> 4,6,y, ==> 7,9,z