local S, T;
S := [[ 1/6, 1/6, 1/3, 1/2, 1/2, 1/3, 1/3, 1/3 ], [ 1/6, 1/6, 1/3, -1/2, -1/2, 1/3, 1/3, 1/3 ], [ 1/3, 1/3, 2/3, 0, 0, -1/3, -1/3, -1/3 ], [ 1/2, -1/2, 0, 1/2, -1/2, 0, 0, 0 ], [ 1/2, -1/2, 0, -1/2, 1/2, 0, 0, 0 ], [ 1/3, 1/3, -1/3, 0, 0, 1/3*E(9)^4+1/3*E(9)^5, 1/3*E(9)^2+1/3*E(9)^7, -1/3*E(9)^2-1/3*E(9)^4-1/3*E(9)^5-1/3*E(9)^7 ], [ 1/3, 1/3, -1/3, 0, 0, 1/3*E(9)^2+1/3*E(9)^7, -1/3*E(9)^2-1/3*E(9)^4-1/3*E(9)^5-1/3*E(9)^7, 1/3*E(9)^4+1/3*E(9)^5 ], [ 1/3, 1/3, -1/3, 0, 0, -1/3*E(9)^2-1/3*E(9)^4-1/3*E(9)^5-1/3*E(9)^7, 1/3*E(9)^4+1/3*E(9)^5, 1/3*E(9)^2+1/3*E(9)^7 ]];
T := [ 1, 1, 1, -1, 1, E(9)^2, E(9)^5, -E(9)^2-E(9)^5 ];
return rec(S := S, T := T);;