/* Defining polynomial */
x^2 - x + 4
/* Minimal vectors */
[
<1, -1>,
<1, 0>,
<w + 1, -w + 1>,
<w + 2, -w>,
<-w + 1, -2>,
<2, -w - 1>,
<0, 1>
]
/* Voronoi top cells */
[
{ 1, 2, 3, 4 },
{ 1, 2, 3, 5, 6, 7 }
]
/* Faces of top cells */
[
[
{ 2, 3, 4 },
{ 1, 3, 4 },
{ 1, 2, 4 },
{ 1, 2, 3 }
],
[
{ 1, 2, 3 },
{ 2, 3, 5 },
{ 3, 5, 6 },
{ 1, 3, 6 },
{ 1, 6, 7 },
{ 2, 5, 7 },
{ 5, 6, 7 },
{ 1, 2, 7 }
]
]
/* Order of PGL_2(O) stabilizers of Voronoi top cells */
[ 2, 3 ]
/* GAP id of GL_2(O) stabilizers of Voronoi top cells */
[ <4, 1>, <6, 2> ]