local S, T;
S := [[ 1/2, 1/2, 1/2, 1/2 ], [ 1/2, 1/2, -1/2, -1/2 ], [ 1/2, -1/2, -1/2, 1/2 ], [ 1/2, -1/2, 1/2, -1/2 ]];
T := [ 1, 1, -E(4), E(4) ];
return rec(S := S, T := T);;