Rep:=table([(0)=[[1]],(1)=[[1,1],[1,-1]],(2)=[[1,1,1,1,1,1],[1,-1,
-1,1,1,1],[1,-1,1,-1,1,-1],[1,1,-1,-1,1,-1],[2,0,0,1,-1,-\
2],[2,0,0,-1,-1,2]],([1,1,5],2)=1/2*e[1,1,5]+1/2*3^(1/2)*e[1,2,5],(2,
2)=(table([(1)=[[1,2,2]]])),(2,1)=(table([(2)=[[2]]])),(3,2)=(table([(1)=[
[1,2,3]]])),([1,1,4],2)=-e[1,1,4],([1,2,6],2)=1/2*3^(1/2)*e[1,1,6]+1/2
*e[1,2,6],(1,1)=(table([(1)=[[1]]])),([1],1)=e[1],([1,1,6],2)=-1/2*e[1,1,
6]+1/2*3^(1/2)*e[1,2,6],(6,2)=(table([(1)=[[1,1,6],[1,2,6]]])),(5,2)=(
table([(1)=[[1,1,5],[1,2,5]]])),([2],1)=-e[2],(0,2)=0,(4,2)=(table([(1
)=[[1,1,4]]])),([1,2,2],2)=-e[1,2,2],([1,1,1],2)=e[1,1,1],(0,1)=1,([1
,2,5],2)=1/2*3^(1/2)*e[1,1,5]-1/2*e[1,2,5],(1,2)=(table([(1)=[[1,1,1]]])
),([1,2,3],2)=e[1,2,3]]):
Semi:=table([(0)={},(1,6,2)=1,(1)={1,2},(2)={1,2,3,4,5,6},(2,2,2)=
1,(1,5,2)=1,(1,1,2)=1,(2,5,2)=3^(1/2),(1,2,1)=1,(2,3,2)=1,(1,4,2)=
1,(2,6,2)=3^(1/2),(1,1,1)=1]):
Branch:=table([(1)=[e1],(2)=[1/2*e1+1/2*e2,-1/2*e2+1/2*e1],(2,2)=[2],(2,1
)=[1],(3,2)=[2],(1,1)=[1],(6,2)=[1,2],(5,2)=[1,2],(4,2)=[1],(0,2)=[[3,
[2]],[4,[1,2]]],(0,1)=[[2,[1]]],(1,2)=[1]]):