postfix transpose operator



I am relatively new to using maxima.

Is there any (easy) way to get transpose to be a postfix operator so
that the printed form of matrix/vector equations can print an a more
mathematically natural manner?

Ie, I would like to use something like A^^T instead of transpose(A)
and get the TeX output $A^T$ instead of
$\mathrm{TRANSPOSE}\left(a\right)$.

I realize that A^^T means exponention and some other operator syntax
is necessary.

I have looked at the code in mactex.lisp for declaring factorial 
to be postfix.
 
   (defprop mfactorial tex-postfix tex)
   (defprop mfactorial ("!") texsym)
   (defprop mfactorial 160. tex-lbp)

Might something like this do the trick?