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