ring R = 0, (x,y,z), dp;
matrix A[3][3] = 0,1,0, -1,0,0, 0,0,1;      
matrix B[3][3] = 0,1,0,  0,0,1, 1,0,0;      
matrix C[3][3] = 0,1,0,  1,0,0, 0,0,1;
list L = A,B,C;
writelist("simple-write.txt", "simplist", L);

ring R = 0, (x,y,z), dp;
execute(read("simple-write.txt"));  // does not create the list simplist in memory

? error occurred in Read-Oh.sing line 10: `0,1,0,-1,0,0,0,0,1);`
? wrong type declaration. type 'help matrix;'
? last reserved name was `matrix`
skipping text from `-` error at token `)`

for( i=1;i<=size(L);i=i+1 )
   {
     if (typeof(L[i]) == "intmat")
     {
       write(fil,"   "+nam+"["+string(i)+"]="+
              "intmat(intvec("+string(L[i])+
          "),"+string(nrows(L[i]))+","+string(ncols(L[i]))+");");
     }
     if ( typeof(L[i])== "matrix")
     {
        write(fil,"   "+nam+"["+string(i)+"]="+
              "matrix(ideal("+string(L[i])+
          "),"+string(nrows(L[i]))+","+string(ncols(L[i]))+");");
     }
     else
     {
       write(fil,"   "+nam+"["+string(i)+"]="+typeof(L[i])+"(",string(L[i])+");");
     }
   }