HAP_GCOMPLEX_SETUP:=[false];
if IsBound(x) then HAP_GCOMPLEX_SETUP[2]:=x;fi;
x:=(-1+Sqrt(-43))/2;

HAP_GCOMPLEX_LIST := [
[
rec( TheMatrixStab := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ 1, 1 ],[ -1, 0]]
,
[[ -1, -1 ],[ 1, 0]]
,
[[ 0, 1 ],[ -1, -1]]
,
[[ 0, -1 ],[ 1, 1]]
]),
TheRotSubgroup := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ 1, 1 ],[ -1, 0]]
,
[[ -1, -1 ],[ 1, 0]]
,
[[ 0, 1 ],[ -1, -1]]
,
[[ 0, -1 ],[ 1, 1]]
]),
BoundaryImage := rec( ListIFace:=[], ListSign:=[], ListElt:=[])
),
rec( TheMatrixStab := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ x + 2, x - 4 ],[ -2, -x - 1]]
,
[[ -x - 2, -x + 4 ],[ 2, x + 1]]
,
[[ x + 1, x - 4 ],[ -2, -x - 2]]
,
[[ -x - 1, -x + 4 ],[ 2, x + 2]]
,
[[ x + 2, x - 2 ],[ -3, -x - 2]]
,
[[ -x - 2, -x + 2 ],[ 3, x + 2]]
,
[[ x - 3, -x - 6 ],[ -x - 2, -x + 3]]
,
[[ -x + 3, x + 6 ],[ x + 2, x - 3]]
,
[[ 5, 2*x + 4 ],[ x - 1, -5]]
,
[[ -5, -2*x - 4 ],[ -x + 1, 5]]
]),
TheRotSubgroup := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ x + 2, x - 4 ],[ -2, -x - 1]]
,
[[ -x - 2, -x + 4 ],[ 2, x + 1]]
,
[[ x + 1, x - 4 ],[ -2, -x - 2]]
,
[[ -x - 1, -x + 4 ],[ 2, x + 2]]
,
[[ x + 2, x - 2 ],[ -3, -x - 2]]
,
[[ -x - 2, -x + 2 ],[ 3, x + 2]]
,
[[ x - 3, -x - 6 ],[ -x - 2, -x + 3]]
,
[[ -x + 3, x + 6 ],[ x + 2, x - 3]]
,
[[ 5, 2*x + 4 ],[ x - 1, -5]]
,
[[ -5, -2*x - 4 ],[ -x + 1, 5]]
]),
BoundaryImage := rec( ListIFace:=[], ListSign:=[], ListElt:=[])
),
rec( TheMatrixStab := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ x - 1, -3 ],[ -x - 3, -x + 1]]
,
[[ -x + 1, 3 ],[ x + 3, x - 1]]
,
[[ x + 2, x - 2 ],[ -3, -x - 2]]
,
[[ -x - 2, -x + 2 ],[ 3, x + 2]]
,
[[ 4, x + 3 ],[ x - 2, -4]]
,
[[ -4, -x - 3 ],[ -x + 2, 4]]
,
[[ x + 3, x - 1 ],[ -4, -x - 2]]
,
[[ -x - 3, -x + 1 ],[ 4, x + 2]]
,
[[ -3, -x - 2 ],[ -x + 1, 4]]
,
[[ 3, x + 2 ],[ x - 1, -4]]
,
[[ 0, -1 ],[ 1, 1]]
,
[[ 0, 1 ],[ -1, -1]]
,
[[ -x + 2, 4 ],[ x + 2, x - 1]]
,
[[ x - 2, -4 ],[ -x - 2, -x + 1]]
,
[[ x + 2, x - 1 ],[ -4, -x - 3]]
,
[[ -x - 2, -x + 1 ],[ 4, x + 3]]
,
[[ x - 1, -4 ],[ -x - 2, -x + 2]]
,
[[ -x + 1, 4 ],[ x + 2, x - 2]]
,
[[ 1, 1 ],[ -1, 0]]
,
[[ -1, -1 ],[ 1, 0]]
,
[[ 4, x + 2 ],[ x - 1, -3]]
,
[[ -4, -x - 2 ],[ -x + 1, 3]]
]),
TheRotSubgroup := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ x - 1, -3 ],[ -x - 3, -x + 1]]
,
[[ -x + 1, 3 ],[ x + 3, x - 1]]
,
[[ x + 2, x - 2 ],[ -3, -x - 2]]
,
[[ -x - 2, -x + 2 ],[ 3, x + 2]]
,
[[ 4, x + 3 ],[ x - 2, -4]]
,
[[ -4, -x - 3 ],[ -x + 2, 4]]
,
[[ x + 3, x - 1 ],[ -4, -x - 2]]
,
[[ -x - 3, -x + 1 ],[ 4, x + 2]]
,
[[ -3, -x - 2 ],[ -x + 1, 4]]
,
[[ 3, x + 2 ],[ x - 1, -4]]
,
[[ 0, -1 ],[ 1, 1]]
,
[[ 0, 1 ],[ -1, -1]]
,
[[ -x + 2, 4 ],[ x + 2, x - 1]]
,
[[ x - 2, -4 ],[ -x - 2, -x + 1]]
,
[[ x + 2, x - 1 ],[ -4, -x - 3]]
,
[[ -x - 2, -x + 1 ],[ 4, x + 3]]
,
[[ x - 1, -4 ],[ -x - 2, -x + 2]]
,
[[ -x + 1, 4 ],[ x + 2, x - 2]]
,
[[ 1, 1 ],[ -1, 0]]
,
[[ -1, -1 ],[ 1, 0]]
,
[[ 4, x + 2 ],[ x - 1, -3]]
,
[[ -4, -x - 2 ],[ -x + 1, 3]]
]),
BoundaryImage := rec( ListIFace:=[], ListSign:=[], ListElt:=[])
),
rec( TheMatrixStab := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ x - 3, -x - 6 ],[ -x - 2, -x + 3]]
,
[[ -x + 3, x + 6 ],[ x + 2, x - 3]]
]),
TheRotSubgroup := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ x - 3, -x - 6 ],[ -x - 2, -x + 3]]
,
[[ -x + 3, x + 6 ],[ x + 2, x - 3]]
]),
BoundaryImage := rec( ListIFace:=[], ListSign:=[], ListElt:=[])
),
rec( TheMatrixStab := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ 4, x + 2 ],[ x - 1, -3]]
,
[[ -4, -x - 2 ],[ -x + 1, 3]]
,
[[ 3, x + 2 ],[ x - 1, -4]]
,
[[ -3, -x - 2 ],[ -x + 1, 4]]
]),
TheRotSubgroup := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ 4, x + 2 ],[ x - 1, -3]]
,
[[ -4, -x - 2 ],[ -x + 1, 3]]
,
[[ 3, x + 2 ],[ x - 1, -4]]
,
[[ -3, -x - 2 ],[ -x + 1, 4]]
]),
BoundaryImage := rec( ListIFace:=[], ListSign:=[], ListElt:=[])
),
rec( TheMatrixStab := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ 0, 1 ],[ -1, 0]]
,
[[ 0, -1 ],[ 1, 0]]
]),
TheRotSubgroup := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ 0, 1 ],[ -1, 0]]
,
[[ 0, -1 ],[ 1, 0]]
]),
BoundaryImage := rec( ListIFace:=[], ListSign:=[], ListElt:=[])
),
rec( TheMatrixStab := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ x + 1, -5 ],[ -2, -x]]
,
[[ -x - 1, 5 ],[ 2, x]]
,
[[ x, -5 ],[ -2, -x - 1]]
,
[[ -x, 5 ],[ 2, x + 1]]
,
[[ 2*x + 1, -14 ],[ -3, -2*x - 1]]
,
[[ -2*x - 1, 14 ],[ 3, 2*x + 1]]
,
[[ x - 6, -4*x - 9 ],[ -x - 2, -x + 6]]
,
[[ -x + 6, 4*x + 9 ],[ x + 2, x - 6]]
,
[[ x + 7, 4*x - 5 ],[ x - 1, -x - 7]]
,
[[ -x - 7, -4*x + 5 ],[ -x + 1, x + 7]]
]),
TheRotSubgroup := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ x + 1, -5 ],[ -2, -x]]
,
[[ -x - 1, 5 ],[ 2, x]]
,
[[ x, -5 ],[ -2, -x - 1]]
,
[[ -x, 5 ],[ 2, x + 1]]
,
[[ 2*x + 1, -14 ],[ -3, -2*x - 1]]
,
[[ -2*x - 1, 14 ],[ 3, 2*x + 1]]
,
[[ x - 6, -4*x - 9 ],[ -x - 2, -x + 6]]
,
[[ -x + 6, 4*x + 9 ],[ x + 2, x - 6]]
,
[[ x + 7, 4*x - 5 ],[ x - 1, -x - 7]]
,
[[ -x - 7, -4*x + 5 ],[ -x + 1, x + 7]]
]),
BoundaryImage := rec( ListIFace:=[], ListSign:=[], ListElt:=[])
),
rec( TheMatrixStab := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ 2*x - 7, -6*x - 20 ],[ -x - 3, -2*x + 7]]
,
[[ -2*x + 7, 6*x + 20 ],[ x + 3, 2*x - 7]]
,
[[ 2*x + 1, -14 ],[ -3, -2*x - 1]]
,
[[ -2*x - 1, 14 ],[ 3, 2*x + 1]]
,
[[ 2*x + 9, 6*x - 14 ],[ x - 2, -2*x - 9]]
,
[[ -2*x - 9, -6*x + 14 ],[ -x + 2, 2*x + 9]]
,
[[ 3*x + 2, -24 ],[ -4, -3*x - 1]]
,
[[ -3*x - 2, 24 ],[ 4, 3*x + 1]]
,
[[ -x - 8, -6*x + 4 ],[ -x + 1, x + 9]]
,
[[ x + 8, 6*x - 4 ],[ x - 1, -x - 9]]
,
[[ -x, 10 ],[ 1, x + 1]]
,
[[ x, -10 ],[ -1, -x - 1]]
,
[[ -x + 8, 6*x + 10 ],[ x + 2, x - 7]]
,
[[ x - 8, -6*x - 10 ],[ -x - 2, -x + 7]]
,
[[ 3*x + 1, -24 ],[ -4, -3*x - 2]]
,
[[ -3*x - 1, 24 ],[ 4, 3*x + 2]]
,
[[ x - 7, -6*x - 10 ],[ -x - 2, -x + 8]]
,
[[ -x + 7, 6*x + 10 ],[ x + 2, x - 8]]
,
[[ x + 1, -10 ],[ -1, -x]]
,
[[ -x - 1, 10 ],[ 1, x]]
,
[[ x + 9, 6*x - 4 ],[ x - 1, -x - 8]]
,
[[ -x - 9, -6*x + 4 ],[ -x + 1, x + 8]]
]),
TheRotSubgroup := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ 2*x - 7, -6*x - 20 ],[ -x - 3, -2*x + 7]]
,
[[ -2*x + 7, 6*x + 20 ],[ x + 3, 2*x - 7]]
,
[[ 2*x + 1, -14 ],[ -3, -2*x - 1]]
,
[[ -2*x - 1, 14 ],[ 3, 2*x + 1]]
,
[[ 2*x + 9, 6*x - 14 ],[ x - 2, -2*x - 9]]
,
[[ -2*x - 9, -6*x + 14 ],[ -x + 2, 2*x + 9]]
,
[[ 3*x + 2, -24 ],[ -4, -3*x - 1]]
,
[[ -3*x - 2, 24 ],[ 4, 3*x + 1]]
,
[[ -x - 8, -6*x + 4 ],[ -x + 1, x + 9]]
,
[[ x + 8, 6*x - 4 ],[ x - 1, -x - 9]]
,
[[ -x, 10 ],[ 1, x + 1]]
,
[[ x, -10 ],[ -1, -x - 1]]
,
[[ -x + 8, 6*x + 10 ],[ x + 2, x - 7]]
,
[[ x - 8, -6*x - 10 ],[ -x - 2, -x + 7]]
,
[[ 3*x + 1, -24 ],[ -4, -3*x - 2]]
,
[[ -3*x - 1, 24 ],[ 4, 3*x + 2]]
,
[[ x - 7, -6*x - 10 ],[ -x - 2, -x + 8]]
,
[[ -x + 7, 6*x + 10 ],[ x + 2, x - 8]]
,
[[ x + 1, -10 ],[ -1, -x]]
,
[[ -x - 1, 10 ],[ 1, x]]
,
[[ x + 9, 6*x - 4 ],[ x - 1, -x - 8]]
,
[[ -x - 9, -6*x + 4 ],[ -x + 1, x + 8]]
]),
BoundaryImage := rec( ListIFace:=[], ListSign:=[], ListElt:=[])
),
rec( TheMatrixStab := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ 0, 1 ],[ -1, 0]]
,
[[ 0, -1 ],[ 1, 0]]
]),
TheRotSubgroup := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ 0, 1 ],[ -1, 0]]
,
[[ 0, -1 ],[ 1, 0]]
]),
BoundaryImage := rec( ListIFace:=[], ListSign:=[], ListElt:=[])
),
rec( TheMatrixStab := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ x + 1, -5 ],[ -2, -x]]
,
[[ -x - 1, 5 ],[ 2, x]]
,
[[ x, -5 ],[ -2, -x - 1]]
,
[[ -x, 5 ],[ 2, x + 1]]
]),
TheRotSubgroup := Group([
[[ 1, 0 ],[ 0, 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ x + 1, -5 ],[ -2, -x]]
,
[[ -x - 1, 5 ],[ 2, x]]
,
[[ x, -5 ],[ -2, -x - 1]]
,
[[ -x, 5 ],[ 2, x + 1]]
]),
BoundaryImage := rec( ListIFace:=[], ListSign:=[], ListElt:=[])
),
],
[
rec( TheMatrixStab := Group([
[[ -1, -1 ],[ 1, 0]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ 0, -1 ],[ 1, 1]]
,
[[ 0, 1 ],[ -1, -1]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ 1, 1 ],[ -1, 0]]
]),
TheRotSubgroup := Group([
[[ -1, -1 ],[ 1, 0]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ 0, -1 ],[ 1, 1]]
,
[[ 0, 1 ],[ -1, -1]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ 1, 1 ],[ -1, 0]]
]),
BoundaryImage := rec(
ListIFace:=[ 1, 3],
 ListSign := [-1,1],
ListElt := [IdentityMat(2), IdentityMat(2)])
),
rec( TheMatrixStab := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ 1, 0 ],[ 0, 1]]
]),
TheRotSubgroup := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ 1, 0 ],[ 0, 1]]
]),
BoundaryImage := rec(
ListIFace:=[ 6, 1],
 ListSign := [-1,1],
ListElt := [IdentityMat(2), IdentityMat(2)])
),
rec( TheMatrixStab := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ -x - 2, -x + 2 ],[ 3, x + 2]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ x + 2, x - 2 ],[ -3, -x - 2]]
]),
TheRotSubgroup := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ -x - 2, -x + 2 ],[ 3, x + 2]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ x + 2, x - 2 ],[ -3, -x - 2]]
]),
BoundaryImage := rec(
ListIFace:=[ 3, 2],
 ListSign := [-1,1],
ListElt := [IdentityMat(2), IdentityMat(2)])
),
rec( TheMatrixStab := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ x - 3, -x - 6 ],[ -x - 2, -x + 3]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ -x + 3, x + 6 ],[ x + 2, x - 3]]
]),
TheRotSubgroup := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ x - 3, -x - 6 ],[ -x - 2, -x + 3]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ -x + 3, x + 6 ],[ x + 2, x - 3]]
]),
BoundaryImage := rec(
ListIFace:=[ 2, 4],
 ListSign := [-1,1],
ListElt := [IdentityMat(2), IdentityMat(2)])
),
rec( TheMatrixStab := Group([
[[ -x - 1, -x + 4 ],[ 2, x + 2]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ -x - 2, -x + 4 ],[ 2, x + 1]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ x + 1, x - 4 ],[ -2, -x - 2]]
,
[[ x + 2, x - 4 ],[ -2, -x - 1]]
]),
TheRotSubgroup := Group([
[[ -x - 1, -x + 4 ],[ 2, x + 2]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ -x - 2, -x + 4 ],[ 2, x + 1]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ x + 1, x - 4 ],[ -2, -x - 2]]
,
[[ x + 2, x - 4 ],[ -2, -x - 1]]
]),
BoundaryImage := rec(
ListIFace:=[ 5, 2],
 ListSign := [-1,1],
ListElt := [[[ -2*x - 3, -x + 6 ],[ 3, x + 1]], IdentityMat(2)])
),
rec( TheMatrixStab := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ -3, -x - 2 ],[ -x + 1, 4]]
,
[[ -4, -x - 2 ],[ -x + 1, 3]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ 3, x + 2 ],[ x - 1, -4]]
,
[[ 4, x + 2 ],[ x - 1, -3]]
]),
TheRotSubgroup := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ -3, -x - 2 ],[ -x + 1, 4]]
,
[[ -4, -x - 2 ],[ -x + 1, 3]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ 3, x + 2 ],[ x - 1, -4]]
,
[[ 4, x + 2 ],[ x - 1, -3]]
]),
BoundaryImage := rec(
ListIFace:=[ 3, 5],
 ListSign := [-1,1],
ListElt := [IdentityMat(2), IdentityMat(2)])
),
rec( TheMatrixStab := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ 1, 0 ],[ 0, 1]]
]),
TheRotSubgroup := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ 1, 0 ],[ 0, 1]]
]),
BoundaryImage := rec(
ListIFace:=[ 5, 4],
 ListSign := [-1,1],
ListElt := [IdentityMat(2), IdentityMat(2)])
),
rec( TheMatrixStab := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ 1, 0 ],[ 0, 1]]
]),
TheRotSubgroup := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ 1, 0 ],[ 0, 1]]
]),
BoundaryImage := rec(
ListIFace:=[ 10, 4],
 ListSign := [-1,1],
ListElt := [IdentityMat(2), IdentityMat(2)])
),
rec( TheMatrixStab := Group([
[[ -x - 1, -x + 9 ],[ 1, x + 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ x + 1, x - 9 ],[ -1, -x - 1]]
]),
TheRotSubgroup := Group([
[[ -x - 1, -x + 9 ],[ 1, x + 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ x + 1, x - 9 ],[ -1, -x - 1]]
]),
BoundaryImage := rec(
ListIFace:=[ 6, 4],
 ListSign := [-1,1],
ListElt := [[[ -x - 1, -1 ],[ 1, 0]], [[ -2*x - 3, -x + 6 ],[ 3, x + 1]]])
),
rec( TheMatrixStab := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ 1, 0 ],[ 0, 1]]
]),
TheRotSubgroup := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ 1, 0 ],[ 0, 1]]
]),
BoundaryImage := rec(
ListIFace:=[ 9, 5],
 ListSign := [-1,1],
ListElt := [IdentityMat(2), IdentityMat(2)])
),
rec( TheMatrixStab := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ 0, -1 ],[ 1, 0]]
,
[[ 0, 1 ],[ -1, 0]]
,
[[ 1, 0 ],[ 0, 1]]
]),
TheRotSubgroup := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ 0, -1 ],[ 1, 0]]
,
[[ 0, 1 ],[ -1, 0]]
,
[[ 1, 0 ],[ 0, 1]]
]),
BoundaryImage := rec(
ListIFace:=[ 6, 9],
 ListSign := [-1,1],
ListElt := [IdentityMat(2), IdentityMat(2)])
),
rec( TheMatrixStab := Group([
[[ -x - 1, 10 ],[ 1, x]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ -x, 10 ],[ 1, x + 1]]
,
[[ x, -10 ],[ -1, -x - 1]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ x + 1, -10 ],[ -1, -x]]
]),
TheRotSubgroup := Group([
[[ -x - 1, 10 ],[ 1, x]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ -x, 10 ],[ 1, x + 1]]
,
[[ x, -10 ],[ -1, -x - 1]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ x + 1, -10 ],[ -1, -x]]
]),
BoundaryImage := rec(
ListIFace:=[ 1, 8],
 ListSign := [-1,1],
ListElt := [[[ -x - 1, -1 ],[ 1, 0]], IdentityMat(2)])
),
rec( TheMatrixStab := Group([
[[ -2*x - 1, 14 ],[ 3, 2*x + 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ 2*x + 1, -14 ],[ -3, -2*x - 1]]
]),
TheRotSubgroup := Group([
[[ -2*x - 1, 14 ],[ 3, 2*x + 1]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ 2*x + 1, -14 ],[ -3, -2*x - 1]]
]),
BoundaryImage := rec(
ListIFace:=[ 7, 8],
 ListSign := [-1,1],
ListElt := [IdentityMat(2), IdentityMat(2)])
),
rec( TheMatrixStab := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ x - 6, -4*x - 9 ],[ -x - 2, -x + 6]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ -x + 6, 4*x + 9 ],[ x + 2, x - 6]]
]),
TheRotSubgroup := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ x - 6, -4*x - 9 ],[ -x - 2, -x + 6]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ -x + 6, 4*x + 9 ],[ x + 2, x - 6]]
]),
BoundaryImage := rec(
ListIFace:=[ 7, 9],
 ListSign := [-1,1],
ListElt := [IdentityMat(2), [[ -2*x - 2, 7 ],[ 3, x]]])
),
rec( TheMatrixStab := Group([
[[ -x - 1, 5 ],[ 2, x]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ -x, 5 ],[ 2, x + 1]]
,
[[ x, -5 ],[ -2, -x - 1]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ x + 1, -5 ],[ -2, -x]]
]),
TheRotSubgroup := Group([
[[ -x - 1, 5 ],[ 2, x]]
,
[[ -1, 0 ],[ 0, -1]]
,
[[ -x, 5 ],[ 2, x + 1]]
,
[[ x, -5 ],[ -2, -x - 1]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ x + 1, -5 ],[ -2, -x]]
]),
BoundaryImage := rec(
ListIFace:=[ 7, 10],
 ListSign := [-1,1],
ListElt := [IdentityMat(2), IdentityMat(2)])
),
rec( TheMatrixStab := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ -x - 8, -6*x + 4 ],[ -x + 1, x + 9]]
,
[[ -x - 9, -6*x + 4 ],[ -x + 1, x + 8]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ x + 8, 6*x - 4 ],[ x - 1, -x - 9]]
,
[[ x + 9, 6*x - 4 ],[ x - 1, -x - 8]]
]),
TheRotSubgroup := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ -x - 8, -6*x + 4 ],[ -x + 1, x + 9]]
,
[[ -x - 9, -6*x + 4 ],[ -x + 1, x + 8]]
,
[[ 1, 0 ],[ 0, 1]]
,
[[ x + 8, 6*x - 4 ],[ x - 1, -x - 9]]
,
[[ x + 9, 6*x - 4 ],[ x - 1, -x - 8]]
]),
BoundaryImage := rec(
ListIFace:=[ 8, 10],
 ListSign := [-1,1],
ListElt := [IdentityMat(2), [[ -2*x - 2, 7 ],[ 3, x]]])
),
rec( TheMatrixStab := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ 1, 0 ],[ 0, 1]]
]),
TheRotSubgroup := Group([
[[ -1, 0 ],[ 0, -1]]
,
[[ 1, 0 ],[ 0, 1]]
]),
BoundaryImage := rec(
ListIFace:=[ 9, 10],
 ListSign := [-1,1],
ListElt := [IdentityMat(2), IdentityMat(2)])
),
],
[
rec( TheMatrixStab := Group([-IdentityMat(2)]),
TheRotSubgroup := Group([-IdentityMat(2)]),
BoundaryImage := rec(
ListIFace:=[ 
10
,
6
,
1
,
2
,
11
], ListSign := [
-1
, 
1
, 
1
, 
1
, 
-1
 ],
ListElt := [
IdentityMat(2)
, 
IdentityMat(2)
, 
IdentityMat(2)
, 
IdentityMat(2)
, 
IdentityMat(2)
]))
, 
rec( TheMatrixStab := Group([-IdentityMat(2)]),
TheRotSubgroup := Group([-IdentityMat(2)]),
BoundaryImage := rec(
ListIFace:=[ 
12
,
16
,
8
,
9
,
2
], ListSign := [
1
, 
1
, 
1
, 
-1
, 
1
 ],
ListElt := [
IdentityMat(2)
, 
IdentityMat(2)
, 
[[ -8, -3*x - 3 ],[ -x, 4]]
, 
IdentityMat(2)
, 
[[ -x - 1, -1 ],[ 1, 0]]
]))
, 
rec( TheMatrixStab := Group([-IdentityMat(2)]),
TheRotSubgroup := Group([-IdentityMat(2)]),
BoundaryImage := rec(
ListIFace:=[ 
15
,
8
,
14
,
4
,
10
,
5
], ListSign := [
1
, 
1
, 
-1
, 
-1
, 
-1
, 
-1
 ],
ListElt := [
IdentityMat(2)
, 
IdentityMat(2)
, 
IdentityMat(2)
, 
IdentityMat(2)
, 
[[ -7, -2*x - 2 ],[ -x, 3]]
, 
IdentityMat(2)
]))
, 
rec( TheMatrixStab := Group([-IdentityMat(2)]),
TheRotSubgroup := Group([-IdentityMat(2)]),
BoundaryImage := rec(
ListIFace:=[ 
10
,
8
,
17
,
7
], ListSign := [
1
, 
-1
, 
-1
, 
1
 ],
ListElt := [
IdentityMat(2)
, 
IdentityMat(2)
, 
IdentityMat(2)
, 
IdentityMat(2)
]))
, 
rec( TheMatrixStab := Group([-IdentityMat(2)]),
TheRotSubgroup := Group([-IdentityMat(2)]),
BoundaryImage := rec(
ListIFace:=[ 
16
,
14
,
17
,
13
], ListSign := [
-1
, 
1
, 
1
, 
-1
 ],
ListElt := [
IdentityMat(2)
, 
IdentityMat(2)
, 
[[ -2*x - 2, 7 ],[ 3, x]]
, 
IdentityMat(2)
]))
, 
rec( TheMatrixStab := Group([-IdentityMat(2)]),
TheRotSubgroup := Group([-IdentityMat(2)]),
BoundaryImage := rec(
ListIFace:=[ 
6
,
4
,
7
,
3
], ListSign := [
-1
, 
1
, 
-1
, 
1
 ],
ListElt := [
IdentityMat(2)
, 
IdentityMat(2)
, 
IdentityMat(2)
, 
IdentityMat(2)
]))
, 
rec( TheMatrixStab := Group([-IdentityMat(2)]),
TheRotSubgroup := Group([-IdentityMat(2)]),
BoundaryImage := rec(
ListIFace:=[ 
8
,
10
,
17
,
7
], ListSign := [
-1
, 
1
, 
-1
, 
1
 ],
ListElt := [
[[ -8, -3*x - 3 ],[ -x, 4]]
, 
[[ -7, -2*x - 2 ],[ -x, 3]]
, 
[[ -2*x - 2, 7 ],[ 3, x]]
, 
[[ -2*x - 3, -x + 6 ],[ 3, x + 1]]
]))
],
];

if IsBound(HAP_GCOMPLEX_SETUP[2]) then
x:= HAP_GCOMPLEX_SETUP[2]; 
else Unbind(x); fi;
