#gap_sqr.txt
#12  1  9
#2   H  3
#11  4  10
#---------
#13  6  16
#5   B  7
#14  8  15

p3 := (1,3,4,2)(9,10,11,12) ;
p3B := (5,8,7,6)(13,14,15,16) ;
pS := (2,8,7,4)(12,15,16,11) ;
pQ := (1,3,6,5)(9,10,13,14) ;
pE := (2,1,7,6)(11,12,15,16) ;
pT := (3,4,5,8)(9,10,13,14) ;
pOmega := (4,3);
LAMBDAPLUS :=  Group(p3, p3B, pS, pQ, pE, pT, pOmega);
# SLAMBDAPLUS := Size( LAMBDAPLUS );
LAMBDA :=  Group(p3, p3B, pS, pQ, pE, pT);
# SLAMBDA := Size( LAMBDA );
Print( "\n" );
Print( "|LAMBDA+| = ",Size( LAMBDAPLUS ), "\n" );
Print( "|LAMBDA| = ", Size( LAMBDA ) , "\n" );
Print( "N = ",  2 , "\n" );
Print( "|G+| = ", Factorial(8) * Factorial(8) , "\n" );
Print( "|G| = |G+|/N = ", (Factorial(8) * Factorial(8)) / 2 , "\n" );