read "biblioteca.calc" I = mat[3,3] = {1, 0, 0, 0, 1, 0, 0, 0, 1 } I_123 = mat[3,3] = {0, 1, 0, 0, 0, 1, 1, 0, 0 } I_132 = mat[3,3] = {0, 0, 1, 1, 0, 0, 0, 1, 0 } I_12 = mat[3,3] = {0,1 , 0, 1,0 , 0, 0,0 , 1 } I_13 = mat[3,3] = {0, 0, 1, 0, 1, 0, 1, 0, 0 } I_23 = mat[3,3] = {1, 0, 0, 0, 0, 1, 0, 1, 0 } s = list(I, I_123, I_132, I_12, I_13, I_23) while(s) { local a = pop(s); PrintMat(a*I_123, 3,3); print "=================" }