Dear Sid,
Maybe I do not fully understand what you want, but maybe the following
is of any help to you...
Ralf
M := matrix([[10, 20], [30, 40]])$Matrix(Integer)OF ==> OutputForm
LOF ==> List OF
disp(x) ==> display((x::OF)::Formatter(Format1D))
o x ==> x :: Symbol :: OF
d l ==> disp hconcat(l)
tab ==> o((char(9)$Character)::String)
pr(i,j,m) ==> d([tab, o "M(", i::OF, o ",", j::OF, o ") = [",
m(i,j)::OF, o "]"]$LOF)
for i in 1..2 repeat for j in 1..2 repeat pr(i,j,M)