How to expand matrix multiplications ?



Hello

I have a problem wit matrix multiplication. I could not expand the result, 
below 'res'. How I can do this.

matrix_element_mult: "."$
matrix_element_transpose: transpose$

A: matrix([A1,A2,A3]);
PP: apply(diag_matrix, makelist(P,i,1,3));
res: transpose(A).P.A;

How to expand the last matrix multiplications stored in 'res' ?
expand(res); 

This do not work.

Thank you in advance.

Zbigniew