inout.lib
LIB "inout.lib"; ring S; matrix M=matrix(freemodule(2),3,3); int ALLprint; export ALLprint; allprint("M =",M); ==> M = ==> 1,0,0, ==> 0,1,0, ==> 0,0,0 kill ALLprint;