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