output format in write_data

Hello,

  Is there a way to save a matrix, A, in a file with some strings added
  at the beginning and end?

For instance, consider

(%i9) load(numericalio);
(%o9)
/usr/local/share/maxima/5.11.0/share/contrib/numericalio/numericalio.lisp
(%i10) A: matrix([1,1,0],[0,1,1],[1,1,1]);
                                   [ 1  1  0 ]
                                   [         ]
(%o10)                            [ 0  1  1 ]
                                   [         ]
                                   [ 1  1  1 ]
(%i11) write_data(A,"A.m");
(%o11)                               done

This saves the matrix in the file "A.m" in the form

1 1 0
0 1 1
1 1 1

I would like to save it as

A=[1 1 0
0 1 1
1 1 1]

so that it can be loaded into octave.

Any ideas?

TIA,
  -sen


  ---------------------------------------------------------------------------
  | Sheldon E. Newhouse            |    e-mail: sen1 at math.msu.edu           |
  | Mathematics Department         |       				   |
  | Michigan State University      | telephone: 517-355-9684                |
  | E. Lansing, MI 48824-1027 USA  |       FAX: 517-432-1562                |
  ---------------------------------------------------------------------------