/******************************************************************
 * ss_eigenvectors.m, MAGMA readable                              * 
 *                                                                *
 * August, 1999                                                   *
 * William A. Stein (was@math.berkeley.edu)                       *
 *                                                                *
 * This file was computed using the C++ program HECKE, then made  *
 * MAGMA readable using PARI.                                     *
 ******************************************************************/

R<x> := PolynomialRing(Rationals());

SupersingularModule := recformat<
    MonodromyWeights,
    SupersingularBasis,
    Eigenvectors
>;

Eigen := recformat<
    DefiningPolynomial,
    Coordinates
> ;

MOG := [rec<SupersingularModule|> : i in [1..997]];

MOG[11] := 	// J_0(11)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 2],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 1]>,   // the two ss j-inv in char 11
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x + 2,
           Coordinates        := [-1, 1]>
       ]
>;

MOG[17] := 	// J_0(17)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 3,
           Coordinates        := [0, 8]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x + 1,
           Coordinates        := [-1, 1]>
       ]
>;

MOG[19] := 	// J_0(19)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 2],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [7, 18]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x,
           Coordinates        := [-1, 1]>
       ]
>;

MOG[23] := 	// J_0(23)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 2, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 3, 19]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^2 + x - 1,
           Coordinates        := [-x - 1, x + 2, -1]>
       ]
>;

MOG[29] := 	// J_0(29)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 2,
           Coordinates        := [0, 2, 25]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^2 + 2*x - 1,
           Coordinates        := [-x - 1, x - 1, 2]>
       ]
>;

MOG[31] := 	// J_0(31)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 2],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [2, 4, 23]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^2 - x - 1,
           Coordinates        := [-x + 1, x, -1]>
       ]
>;

MOG[37] := 	// J_0(37)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 2,
           Coordinates        := [8, 14*x + 3, 23*x + 3]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x + 2,
           Coordinates        := [0, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x,
           Coordinates        := [-2, 1, 1]>
       ]
>;

MOG[41] := 	// J_0(41)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 3,
           Coordinates        := [0, 3, 28, 32]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^3 + x^2 - 5*x - 1,
           Coordinates        := [-x^2 + 3, x^2 - 2*x - 1, 2, 2*x - 4]>
       ]
>;

MOG[43] := 	// J_0(43)
   rec<SupersingularModule | 
       MonodromyWeights   := [2, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [8, 41, x + 12, 42*x + 12]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x + 2,
           Coordinates        := [0, 0, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^2 - 2,
           Coordinates        := [-x, x - 2, 1, 1]>
       ]
>;

MOG[47] := 	// J_0(47)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 2, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 9, 10, 36, 44]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^4 - x^3 - 5*x^2 + 5*x - 1,
           Coordinates        := [-x^3 + x^2 + 2*x - 1, x^3 + x^2 - 2*x, x^2 - x + 1, -3*x + 1, -3*x^2 + 4*x - 1]>
       ]
>;

MOG[53] := 	// J_0(53)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 2,
           Coordinates        := [0, 46, 50, 48*x + 28, 5*x + 28]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x + 1,
           Coordinates        := [0, 0, 0, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^3 + x^2 - 3*x - 1,
           Coordinates        := [-x^2 + 1, x^2 - 2*x - 1, 2, x - 1, x - 1]>
       ]
>;

MOG[59] := 	// J_0(59)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 2, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 15, 17, 28, 47, 48]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^5 - 9*x^3 + 2*x^2 + 16*x - 8,
           Coordinates        := [-x^4 + x^3 + 6*x^2 - 6*x, x^4 - 3*x^3 - 4*x^2 + 16*x - 8, 2*x - 4, x^3 - 3*x^2 + 4, x^3 - x^2 - 6*x + 4, 2*x^2 - 6*x + 4]>
       ]
>;

MOG[61] := 	// J_0(61)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 2,
           Coordinates        := [9, 41, 50, 17*x + 42, 44*x + 42]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x + 1,
           Coordinates        := [0, 0, 0, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^3 - x^2 - 3*x + 1,
           Coordinates        := [-x^2 + 1, x^2 + x, x - 1, -x, -x]>
       ]
>;

MOG[67] := 	// J_0(67)
   rec<SupersingularModule | 
       MonodromyWeights   := [2, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [53, 66, 3*x + 45, 64*x + 45, 30*x + 63, 37*x + 63]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x - 2,
           Coordinates        := [-1, -1, 0, 0, 1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^2 + 3*x + 1,
           Coordinates        := [0, 0, -x - 2, x + 2, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^2 + x - 1,
           Coordinates        := [2*x, -4*x + 2, x - 2, x - 2, 1, 1]>
       ]
>;

MOG[71] := 	// J_0(71)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 2, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 17, 24, 40, 41, 48, 66]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^3 - 5*x + 3,
           Coordinates        := [-x^2 - x + 2, 2*x - 1, x^2 + x - 2, -x^2 - 3*x + 3, x^2 + 1, -x - 2, 2*x - 1]>,
         rec<Eigen |
           DefiningPolynomial := x^3 + x^2 - 4*x - 3,
           Coordinates        := [-x^2 + 3, x^2 - 6, -x^2 - x + 3, x^2 - x - 3, x, x, 3]>
       ]
>;

MOG[73] := 	// J_0(73)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 5,
           Coordinates        := [9, 56, 11*x + 39, 62*x + 39, 50*x + 8, 23*x + 8]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x - 1,
           Coordinates        := [-1, 1, -1, -1, 1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^2 + 3*x + 1,
           Coordinates        := [0, 0, -x - 2, x + 2, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^2 - x - 3,
           Coordinates        := [-2*x + 4, -2, x - 2, x - 2, 1, 1]>
       ]
>;

MOG[79] := 	// J_0(79)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 2, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [15, 17, 21, 64, 69, 31*x + 72, 48*x + 72]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x + 1,
           Coordinates        := [0, 0, 0, 0, 0, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^5 - 6*x^3 + 8*x - 1,
           Coordinates        := [-x^4 + 3*x^2 - 2, x^4 - 4*x^2 + 3, -x - 1, -x^3 + 2*x^2 + 3*x - 4, -x^3 - x^2 + 2*x + 2, x^3 - 2*x + 1, x^3 - 2*x + 1]>
       ]
>;

MOG[83] := 	// J_0(83)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 2, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 17, 28, 50, 67, 68, 17*x + 38, 66*x + 38]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x + 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^6 - x^5 - 9*x^4 + 7*x^3 + 20*x^2 - 12*x - 8,
           Coordinates        := [-x^5 + x^4 + 7*x^3 - 5*x^2 - 10*x + 4, x^5 - x^4 - 9*x^3 + 9*x^2 + 16*x - 16, -2*x^3 - 2*x^2 + 6*x + 4, -2*x^4 + 2*x^3 + 10*x^2 - 8*x - 8, 2*x^3 - 10*x + 8, 2*x^2 + 2*x - 8, x^4 - 7*x^2 + 2*x + 8, x^4 - 7*x^2 + 2*x + 8]>
       ]
>;

MOG[89] := 	// J_0(89)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 3,
           Coordinates        := [0, 6, 7, 13, 52, 66, 9*x + 76, 80*x + 76]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x + 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x - 1,
           Coordinates        := [-1, -1, 1, 1, -1, -1, 1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^5 + x^4 - 10*x^3 - 10*x^2 + 21*x + 17,
           Coordinates        := [x^4 + x^3 - 7*x^2 - 7*x + 2, -2*x^4 - 2*x^3 + 12*x^2 + 16*x + 6, x^4 + 3*x^3 - 7*x^2 - 25*x - 12, -2*x^3 - 2*x^2 + 14*x + 20, -3*x^3 - x^2 + 17*x + 7, 3*x^3 + 3*x^2 - 19*x - 17, x^2 + 2*x - 3, x^2 + 2*x - 3]>
       ]
>;

MOG[97] := 	// J_0(97)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 5,
           Coordinates        := [1, 20, 31*x + 76, 66*x + 76, 34*x + 45, 63*x + 45, x + 81, 96*x + 81]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^3 + 4*x^2 + 3*x - 1,
           Coordinates        := [0, 0, -x^2 - 3*x - 1, x^2 + 3*x + 1, -x - 2, x + 2, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^4 - 3*x^3 - x^2 + 6*x - 1,
           Coordinates        := [-x^3 + 4*x^2 - 3*x - 1, x^3 - 2*x^2 - x + 1, -x^2 + 3*x - 1, -x^2 + 3*x - 1, -x + 2, -x + 2, -1, -1]>
       ]
>;

MOG[101] := 	// J_0(101)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 2,
           Coordinates        := [0, 3, 21, 57, 59, 64, 66, 91*x + 37, 10*x + 37]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^7 - 13*x^5 + 2*x^4 + 47*x^3 - 16*x^2 - 43*x + 14,
           Coordinates        := [-x^6 + 10*x^4 - 2*x^3 - 23*x^2 + 14*x - 2, x^6 - 8*x^4 + 4*x^3 + 15*x^2 - 16*x + 4, -6*x^3 - 2*x^2 + 22*x - 6, 2*x^4 - 6*x^3 - 10*x^2 + 26*x - 8, x^5 + 2*x^4 - 4*x^3 - 4*x^2 + 7*x - 2, 2*x^5 - 14*x^3 + 2*x^2 + 20*x - 6, -3*x^5 + 24*x^3 - 2*x^2 - 45*x + 14, -3*x^4 + 2*x^3 + 12*x^2 - 14*x + 3, -3*x^4 + 2*x^3 + 12*x^2 - 14*x + 3]>
       ]
>;

MOG[103] := 	// J_0(103)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 2, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [23, 24, 34, 69, 80, 67*x + 61, 36*x + 61, 9*x + 20, 94*x + 20]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^2 + 3*x + 1,
           Coordinates        := [0, 0, 0, 0, 0, -x - 2, x + 2, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^6 - 4*x^5 - x^4 + 17*x^3 - 9*x^2 - 16*x + 11,
           Coordinates        := [-x^5 + 5*x^4 - 5*x^3 - 7*x^2 + 13*x - 5, x^5 - 3*x^4 - 2*x^3 + 8*x^2 - 3, -x^3 + 4*x^2 - 4*x + 1, -x^4 + 4*x^3 - 2*x^2 - 5*x + 4, -x^4 + 4*x^3 - x^2 - 8*x + 5, -x^2 + 3*x - 2, -x^2 + 3*x - 2, -x + 1, -x + 1]>
       ]
>;

MOG[107] := 	// J_0(107)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 2, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 16, 47, 72, 81, 94, 32*x + 66, 75*x + 66, 50*x + 74, 57*x + 74]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^2 + x - 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, -x - 1, x + 1, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^7 + x^6 - 10*x^5 - 7*x^4 + 29*x^3 + 12*x^2 - 20*x - 8,
           Coordinates        := [-x^6 - x^5 + 7*x^4 + 4*x^3 - 14*x^2 - 2*x + 8, x^6 + 2*x^5 - 6*x^4 - 9*x^3 + 12*x^2 + 8*x - 4, -3*x^4 - 3*x^3 + 13*x^2 + 4*x - 8, -3*x^5 - 3*x^4 + 15*x^3 + 10*x^2 - 12*x - 8, -3*x^4 + x^3 + 17*x^2 - 6*x - 16, 2*x^5 + 4*x^4 - 8*x^3 - 16*x^2 + 8*x + 12, 2*x^4 + x^3 - 8*x^2 - 2*x + 4, 2*x^4 + x^3 - 8*x^2 - 2*x + 4, -x^3 - 3*x^2 + 2*x + 4, -x^3 - 3*x^2 + 2*x + 4]>
       ]
>;

MOG[109] := 	// J_0(109)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 2,
           Coordinates        := [17, 41, 43, 13*x + 98, 96*x + 98, 99*x + 70, 10*x + 70, 50*x + 24, 59*x + 24]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x - 1,
           Coordinates        := [-1, -1, 0, 0, 0, 1, 1, 0, 0]>,
         rec<Eigen |
           DefiningPolynomial := x^3 + 2*x^2 - x - 1,
           Coordinates        := [0, 0, 0, -x^2 - 2*x, x^2 + 2*x, -x - 1, x + 1, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^4 + x^3 - 5*x^2 - 4*x + 3,
           Coordinates        := [-x^3 + 3*x - 1, x^3 - 3*x - 1, 2*x + 2, x^2 - 1, x^2 - 1, -1, -1, -x^2 - x + 2, -x^2 - x + 2]>
       ]
>;

MOG[113] := 	// J_0(113)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 3,
           Coordinates        := [0, 54, 72, 99, 55*x + 97, 58*x + 97, 20*x + 104, 93*x + 104, 16*x + 52, 97*x + 52]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x + 1,
           Coordinates        := [-1, -1, -1, 1, 1, 1, -1, -1, 1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^2 - 2*x - 2,
           Coordinates        := [-1, -x + 3, -x + 1, -1, 1, 1, x - 1, x - 1, -1, -1]>,
         rec<Eigen |
           DefiningPolynomial := x^3 + 2*x^2 - x - 1,
           Coordinates        := [0, 0, 0, 0, -x^2 - 2*x, x^2 + 2*x, -x - 1, x + 1, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^3 + 2*x^2 - 5*x - 9,
           Coordinates        := [-2*x - 2, -2*x^2 + 8, 2*x^2 + 2*x - 6, -2*x^2 - 2*x, x^2 - 2*x - 6, x^2 - 2*x - 6, x + 1, x + 1, 2*x + 5, 2*x + 5]>
       ]
>;

MOG[127] := 	// J_0(127)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [73, 77, 95, 125, 126, 72*x + 83, 55*x + 83, 117*x + 16, 10*x + 16, 76*x + 55, 51*x + 55]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^3 + 3*x^2 - 3,
           Coordinates        := [0, 0, 0, 0, 0, -x^2 - 3*x - 2, x^2 + 3*x + 2, -x - 2, x + 2, -x - 1, x + 1]>,
         rec<Eigen |
           DefiningPolynomial := x^7 - 2*x^6 - 8*x^5 + 15*x^4 + 17*x^3 - 28*x^2 - 11*x + 15,
           Coordinates        := [-x^6 + 2*x^5 + 5*x^4 - 10*x^3 - 2*x^2 + 10*x - 5, x^6 - x^5 - 7*x^4 + 5*x^3 + 13*x^2 - 5*x - 7, 2*x^5 - 3*x^4 - 9*x^3 + 10*x^2 + 9*x - 8, 2*x^4 - 5*x^3 - 3*x^2 + 8*x + 1, -x^5 + 3*x^4 + 5*x^3 - 14*x^2 - 6*x + 13, -x^4 + 3*x^3 - x^2 - 4*x + 4, -x^4 + 3*x^3 - x^2 - 4*x + 4, -x^5 + x^4 + 5*x^3 - 2*x^2 - 5*x + 1, -x^5 + x^4 + 5*x^3 - 2*x^2 - 5*x + 1, -x^3 + x^2 + x - 2, -x^3 + x^2 + x - 2]>
       ]
>;

MOG[131] := 	// J_0(131)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 10, 25, 28, 31, 50, 62, 82, 94, 113, 40*x + 89, 91*x + 89]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^10 - 18*x^8 + 2*x^7 + 111*x^6 - 18*x^5 - 270*x^4 + 28*x^3 + 232*x^2 + 16*x - 32,
           Coordinates        := [-x^9 + 15*x^7 - 72*x^5 - 4*x^4 + 120*x^3 + 24*x^2 - 56*x - 16, x^9 - 13*x^7 - 4*x^6 + 52*x^5 + 42*x^4 - 76*x^3 - 76*x^2 + 16*x + 16, -4*x^4 + 24*x^2 - 16, -3*x^8 + 2*x^7 + 39*x^6 - 22*x^5 - 150*x^4 + 52*x^3 + 176*x^2 - 32, x^7 + 2*x^6 - 7*x^5 - 16*x^4 - 2*x^3 + 24*x^2 + 32*x + 16, x^8 - 11*x^6 - 2*x^5 + 30*x^4 + 28*x^3 - 16*x^2 - 48*x - 32, x^7 - 15*x^5 + 2*x^4 + 62*x^3 + 4*x^2 - 80*x - 32, -4*x^5 + 4*x^4 + 24*x^3 - 24*x^2 - 16*x + 16, 2*x^8 - 3*x^7 - 24*x^6 + 31*x^5 + 82*x^4 - 66*x^3 - 100*x^2 + 24*x + 32, -3*x^7 + 2*x^6 + 35*x^5 - 18*x^4 - 118*x^3 + 28*x^2 + 112*x + 16, -2*x^6 + 2*x^5 + 16*x^4 - 12*x^3 - 32*x^2 + 8*x + 16, -2*x^6 + 2*x^5 + 16*x^4 - 12*x^3 - 32*x^2 + 8*x + 16]>
       ]
>;

MOG[137] := 	// J_0(137)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 3,
           Coordinates        := [0, 22, 78, 136, 104*x + 73, 33*x + 73, 45*x + 49, 92*x + 49, 127*x + 19, 10*x + 19, x + 122, 136*x + 122]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^4 + 3*x^3 - 4*x - 1,
           Coordinates        := [0, 0, 0, 0, -x^3 - 3*x^2 - 2*x, x^3 + 3*x^2 + 2*x, -x^2 - 2*x, x^2 + 2*x, -x^2 - 2*x - 1, x^2 + 2*x + 1, -x - 1, x + 1]>,
         rec<Eigen |
           DefiningPolynomial := x^7 - 10*x^5 + 28*x^3 + 3*x^2 - 19*x - 7,
           Coordinates        := [-x^6 + x^5 + 7*x^4 - 5*x^3 - 13*x^2 + 4*x + 5, x^6 - 3*x^5 - 5*x^4 + 15*x^3 + 7*x^2 - 14*x - 7, 2*x^3 - 4*x^2 - 2*x + 2, 4*x^2 - 6*x - 4, x^5 - 3*x^4 - 3*x^3 + 11*x^2 - 4, x^5 - 3*x^4 - 3*x^3 + 11*x^2 - 4, x^4 - 2*x^3 - 3*x^2 + 4*x + 2, x^4 - 2*x^3 - 3*x^2 + 4*x + 2, x^4 - 2*x^3 - 4*x^2 + 6*x + 5, x^4 - 2*x^3 - 4*x^2 + 6*x + 5, x^3 - x^2 - x - 1, x^3 - x^2 - x - 1]>
       ]
>;

MOG[139] := 	// J_0(139)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [8, 36, 44, 60, 65, 100, 39*x + 135, 100*x + 135, 36*x + 123, 103*x + 123, 43*x + 57, 96*x + 57]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x - 1,
           Coordinates        := [-1, -1, 0, 0, -1, 1, 0, 0, 1, 1, 0, 0]>,
         rec<Eigen |
           DefiningPolynomial := x^3 + 2*x^2 - x - 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, -x^2 - 2*x, x^2 + 2*x, -x - 1, x + 1, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^7 - x^6 - 11*x^5 + 8*x^4 + 35*x^3 - 10*x^2 - 32*x - 8,
           Coordinates        := [-x^6 + x^5 + 9*x^4 - 8*x^3 - 17*x^2 + 8*x + 4, x^6 - x^5 - 9*x^4 + 6*x^3 + 21*x^2 - 6*x - 4, 2*x^4 - 2*x^3 - 10*x^2 + 6*x + 4, 2*x^3 - 10*x - 4, -2*x^2 + 4*x, -2*x, x^5 - x^4 - 7*x^3 + 3*x^2 + 12*x + 4, x^5 - x^4 - 7*x^3 + 3*x^2 + 12*x + 4, -x^3 + x^2 + 4*x, -x^3 + x^2 + 4*x, -x^5 + 9*x^3 - 16*x - 4, -x^5 + 9*x^3 - 16*x - 4]>
       ]
>;

MOG[149] := 	// J_0(149)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 2,
           Coordinates        := [0, 12, 30, 62, 68, 74, 103, 135*x + 85, 14*x + 85, 31*x + 92, 118*x + 92, 94*x + 140, 55*x + 140]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^3 + x^2 - 2*x - 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, -x^2 - x, x^2 + x, -x, x, -x - 1, x + 1]>,
         rec<Eigen |
           DefiningPolynomial := x^9 + x^8 - 15*x^7 - 12*x^6 + 75*x^5 + 48*x^4 - 137*x^3 - 76*x^2 + 68*x + 39,
           Coordinates        := [-x^8 - x^7 + 12*x^6 + 11*x^5 - 43*x^4 - 39*x^3 + 38*x^2 + 45*x + 10, x^8 + x^7 - 12*x^6 - 15*x^5 + 43*x^4 + 67*x^3 - 36*x^2 - 81*x - 28, 2*x^5 + 4*x^4 - 12*x^3 - 26*x^2 + 14*x + 18, -3*x^7 - x^6 + 32*x^5 + 9*x^4 - 99*x^3 - 31*x^2 + 78*x + 39, 2*x^6 + 2*x^5 - 14*x^4 - 18*x^3 + 18*x^2 + 36*x + 14, x^7 + x^6 - 8*x^5 - 11*x^4 + 15*x^3 + 31*x^2 - 9, 2*x^5 - 2*x^4 - 20*x^3 + 8*x^2 + 46*x + 22, x^6 - 2*x^5 - 9*x^4 + 14*x^3 + 19*x^2 - 12*x - 11, x^6 - 2*x^5 - 9*x^4 + 14*x^3 + 19*x^2 - 12*x - 11, x^5 + x^4 - 4*x^3 - 2*x^2 - 9*x - 7, x^5 + x^4 - 4*x^3 - 2*x^2 - 9*x - 7, x^7 - 2*x^6 - 12*x^5 + 15*x^4 + 43*x^3 - 18*x^2 - 48*x - 15, x^7 - 2*x^6 - 12*x^5 + 15*x^4 + 43*x^3 - 18*x^2 - 48*x - 15]>
       ]
>;

MOG[151] := 	// J_0(151)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [29, 67, 101, 124, 143, 148, 150, 88*x + 133, 63*x + 133, 41*x + 149, 110*x + 149, 127*x + 41, 24*x + 41]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^3 + 2*x^2 - x - 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, -x^2 - 2*x, x^2 + 2*x, 1, -1, -x - 1, x + 1]>,
         rec<Eigen |
           DefiningPolynomial := x^3 - 5*x + 3,
           Coordinates        := [-1, 1, -x, -x + 1, x - 1, -x^2 - x + 2, x^2 - 2, x - 1, x - 1, 0, 0, 1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^6 - x^5 - 7*x^4 + 3*x^3 + 13*x^2 + 3*x - 1,
           Coordinates        := [1/3*x^5 - 4/3*x^4 - 1/3*x^3 + 3*x^2 + 8/3*x + 2/3, -1/3*x^5 + 2/3*x^3 + x^2 + 7/3*x + 1, -x^5 + 4/3*x^4 + 4*x^3 - 5/3*x^2 - 5*x - 5/3, x^5 - x^4 - 5*x^3 + 4/3*x^2 + 17/3*x + 2, -5/3*x^4 + 4/3*x^3 + 17/3*x^2 - 1/3*x - 4/3, 1/3*x^3 - 2/3*x^2 - x - 1/3, 1/3*x^3 - 2/3*x^2 - x - 1/3, x^4 - x^3 - 10/3*x^2 + 2/3, x^4 - x^3 - 10/3*x^2 + 2/3, 1/3*x^4 - x^3 + 7/3*x + 1, 1/3*x^4 - x^3 + 7/3*x + 1, 4/3*x^3 - 2/3*x^2 - 4*x - 5/3, 4/3*x^3 - 2/3*x^2 - 4*x - 5/3]>
       ]
>;

MOG[157] := 	// J_0(157)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 2,
           Coordinates        := [79, 134, 150, 36*x + 43, 121*x + 43, 67*x + 75, 90*x + 75, 15*x + 22, 142*x + 22, 32*x + 143, 125*x + 143, 123*x + 55, 34*x + 55]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^5 + 5*x^4 + 5*x^3 - 6*x^2 - 7*x + 1,
           Coordinates        := [0, 0, 0, -x^4 - 5*x^3 - 7*x^2 - x + 2, x^4 + 5*x^3 + 7*x^2 + x - 2, -x^3 - 4*x^2 - 4*x, x^3 + 4*x^2 + 4*x, -x^3 - 3*x^2 - x + 1, x^3 + 3*x^2 + x - 1, -x^2 - 3*x - 2, x^2 + 3*x + 2, -x - 2, x + 2]>,
         rec<Eigen |
           DefiningPolynomial := x^7 - 5*x^6 + 2*x^5 + 21*x^4 - 22*x^3 - 21*x^2 + 27*x - 1,
           Coordinates        := [-x^6 + 4*x^5 - 13*x^3 + 7*x^2 + 8*x - 3, x^6 - 6*x^5 + 8*x^4 + 11*x^3 - 27*x^2 + 8*x + 5, 2*x - 4, x^2 - 3*x + 2, x^2 - 3*x + 2, x^3 - 3*x^2 - x + 5, x^3 - 3*x^2 - x + 5, x - 1, x - 1, x^4 - 4*x^3 + x^2 + 9*x - 7, x^4 - 4*x^3 + x^2 + 9*x - 7, x^5 - 5*x^4 + 4*x^3 + 11*x^2 - 15*x + 2, x^5 - 5*x^4 + 4*x^3 + 11*x^2 - 15*x + 2]>
       ]
>;

MOG[163] := 	// J_0(163)
   rec<SupersingularModule | 
       MonodromyWeights   := [2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [98, 127, 74*x + 151, 89*x + 151, 122*x + 128, 41*x + 128, 134*x + 22, 29*x + 22, 107*x + 87, 56*x + 87, 127*x + 19, 36*x + 19, 45*x + 127, 118*x + 127]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x,
           Coordinates        := [0, 0, 1, -1, 0, 0, 0, 0, 0, 0, -1, 1, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^5 + 5*x^4 + 3*x^3 - 15*x^2 - 16*x + 3,
           Coordinates        := [0, 0, -x^3 - 5*x^2 - 7*x - 2, x^3 + 5*x^2 + 7*x + 2, -x^4 - 5*x^3 - 6*x^2 + 3*x + 6, x^4 + 5*x^3 + 6*x^2 - 3*x - 6, -x^2 - 5*x - 6, x^2 + 5*x + 6, -x^3 - 3*x^2 + 3, x^3 + 3*x^2 - 3, -x^3 - 4*x^2 - 3*x + 2, x^3 + 4*x^2 + 3*x - 2, -x^2 - 4*x - 4, x^2 + 4*x + 4]>,
         rec<Eigen |
           DefiningPolynomial := x^7 - 3*x^6 - 5*x^5 + 19*x^4 - 23*x^2 + 4*x + 6,
           Coordinates        := [-x^6 + 3*x^5 + 3*x^4 - 13*x^3 + 2*x^2 + 9*x - 2, x^6 - 5*x^5 + 3*x^4 + 15*x^3 - 16*x^2 - 7*x + 8, x^5 - 5*x^4 + 5*x^3 + 6*x^2 - 7*x - 1, x^5 - 5*x^4 + 5*x^3 + 6*x^2 - 7*x - 1, x^4 - 5*x^3 + 7*x^2 - 4, x^4 - 5*x^3 + 7*x^2 - 4, x^4 - 4*x^3 + 2*x^2 + 6*x - 4, x^4 - 4*x^3 + 2*x^2 + 6*x - 4, x^3 - 3*x^2 + x + 2, x^3 - 3*x^2 + x + 2, x^3 - 3*x^2 + 2*x - 1, x^3 - 3*x^2 + 2*x - 1, x^3 - 2*x^2 - 3*x + 5, x^3 - 2*x^2 - 3*x + 5]>
       ]
>;

MOG[167] := 	// J_0(167)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 15, 27, 30, 58, 59, 89, 112, 131, 132, 151, 22*x + 88, 145*x + 88, 27*x + 79, 140*x + 79]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^2 + x - 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -x - 1, x + 1, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^12 - 2*x^11 - 17*x^10 + 33*x^9 + 103*x^8 - 189*x^7 - 277*x^6 + 447*x^5 + 363*x^4 - 433*x^3 - 205*x^2 + 120*x + 9,
           Coordinates        := [-x^11 + 2*x^10 + 14*x^9 - 26*x^8 - 69*x^7 + 112*x^6 + 153*x^5 - 195*x^4 - 155*x^3 + 133*x^2 + 51*x - 30, x^11 - 2*x^10 - 14*x^9 + 25*x^8 + 71*x^7 - 102*x^6 - 175*x^5 + 174*x^4 + 204*x^3 - 115*x^2 - 83*x + 24, x^9 - x^8 - 10*x^7 + 8*x^6 + 27*x^5 - 5*x^4 - 35*x^3 - 10*x^2 + 17*x, x^10 - 2*x^9 - 12*x^8 + 21*x^7 + 49*x^6 - 56*x^5 - 111*x^4 + 40*x^3 + 132*x^2 + 13*x - 51, -3*x^8 + 4*x^7 + 31*x^6 - 35*x^5 - 92*x^4 + 70*x^3 + 101*x^2 - 31*x - 24, -3*x^10 + 7*x^9 + 34*x^8 - 77*x^7 - 124*x^6 + 252*x^5 + 208*x^4 - 300*x^3 - 154*x^2 + 90*x + 9, -3*x^9 + 7*x^8 + 27*x^7 - 66*x^6 - 57*x^5 + 162*x^4 + 31*x^3 - 132*x^2 + 7*x + 24, x^10 - 5*x^9 - 6*x^8 + 56*x^7 - 18*x^6 - 194*x^5 + 123*x^4 + 280*x^3 - 177*x^2 - 151*x + 66, -x^8 + 3*x^7 + 5*x^6 - 20*x^5 + 7*x^4 + 28*x^3 - 41*x^2 - 4*x + 39, x^9 - 3*x^8 - 12*x^7 + 32*x^6 + 46*x^5 - 102*x^4 - 81*x^3 + 118*x^2 + 59*x - 33, x^10 - x^9 - 14*x^8 + 10*x^7 + 71*x^6 - 23*x^5 - 171*x^4 - 2*x^3 + 167*x^2 + 42*x - 24, x^9 - 2*x^8 - 11*x^7 + 23*x^6 + 32*x^5 - 67*x^4 - 36*x^3 + 64*x^2 + 16*x - 12, x^9 - 2*x^8 - 11*x^7 + 23*x^6 + 32*x^5 - 67*x^4 - 36*x^3 + 64*x^2 + 16*x - 12, 2*x^8 - x^7 - 22*x^6 + 9*x^5 + 68*x^4 - 4*x^3 - 75*x^2 - 21*x + 12, 2*x^8 - x^7 - 22*x^6 + 9*x^5 + 68*x^4 - 4*x^3 - 75*x^2 - 21*x + 12]>
       ]
>;

MOG[173] := 	// J_0(173)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 2,
           Coordinates        := [0, 17, 24, 42, 85, 102, 159, 129*x + 97, 44*x + 97, 9*x + 31, 164*x + 31, 10*x + 119, 163*x + 119, 21*x + 114, 152*x + 114]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^4 + x^3 - 3*x^2 - x + 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, -x^3 - x^2 + x, x^3 + x^2 - x, -x^2, x^2, -x^2 - x + 1, x^2 + x - 1, -x, x]>,
         rec<Eigen |
           DefiningPolynomial := x^10 - x^9 - 16*x^8 + 16*x^7 + 85*x^6 - 80*x^5 - 175*x^4 + 136*x^3 + 138*x^2 - 71*x - 25,
           Coordinates        := [-x^9 + x^8 + 13*x^7 - 13*x^6 - 52*x^5 + 47*x^4 + 73*x^3 - 53*x^2 - 29*x + 18, x^9 - x^8 - 13*x^7 + 15*x^6 + 54*x^5 - 63*x^4 - 95*x^3 + 107*x^2 + 61*x - 62, -3*x^8 + 3*x^7 + 33*x^6 - 33*x^5 - 102*x^4 + 83*x^3 + 109*x^2 - 53*x - 25, 2*x^6 - 20*x^4 + 4*x^3 + 38*x^2 - 16, x^8 + x^7 - 11*x^6 - 7*x^5 + 40*x^4 + 17*x^3 - 61*x^2 - 15*x + 31, -4*x^6 + 4*x^5 + 30*x^4 - 30*x^3 - 40*x^2 + 30*x + 6, 2*x^7 - 2*x^6 - 24*x^5 + 28*x^4 + 70*x^3 - 76*x^2 - 56*x + 54, x^7 - x^6 - 10*x^5 + 12*x^4 + 17*x^3 - 19*x^2 - 8*x + 8, x^7 - x^6 - 10*x^5 + 12*x^4 + 17*x^3 - 19*x^2 - 8*x + 8, -2*x^6 + 17*x^4 - 38*x^2 - 4*x + 19, -2*x^6 + 17*x^4 - 38*x^2 - 4*x + 19, x^8 - x^7 - 10*x^6 + 12*x^5 + 20*x^4 - 23*x^3 - 8*x^2 + 12*x - 3, x^8 - x^7 - 10*x^6 + 12*x^5 + 20*x^4 - 23*x^3 - 8*x^2 + 12*x - 3, -3*x^7 + 3*x^6 + 27*x^5 - 29*x^4 - 55*x^3 + 53*x^2 + 31*x - 27, -3*x^7 + 3*x^6 + 27*x^5 - 29*x^4 - 55*x^3 + 53*x^2 + 31*x - 27]>
       ]
>;

MOG[179] := 	// J_0(179)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 22, 35, 61, 112, 117, 120, 121, 140, 171, 80*x + 107, 99*x + 107, 174*x + 109, 5*x + 109, 115*x + 5, 64*x + 5]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x - 2,
           Coordinates        := [0, -1, -1, 1, -1, -1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^3 + x^2 - 2*x - 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -x^2 - x, x^2 + x, -x, x, -x - 1, x + 1]>,
         rec<Eigen |
           DefiningPolynomial := x^11 + 3*x^10 - 14*x^9 - 45*x^8 + 59*x^7 + 225*x^6 - 58*x^5 - 427*x^4 - 76*x^3 + 240*x^2 + 56*x - 16,
           Coordinates        := [2*x^7 + 6*x^6 - 10*x^5 - 34*x^4 + 8*x^3 + 42*x^2 - 8, -x^10 - 3*x^9 + 10*x^8 + 31*x^7 - 31*x^6 - 99*x^5 + 38*x^4 + 115*x^3 - 20*x^2 - 40*x, x^10 + 3*x^9 - 9*x^8 - 30*x^7 + 20*x^6 + 89*x^5 - 2*x^4 - 76*x^3 - 6*x^2 + 8*x, 2*x^6 + 8*x^5 - 28*x^3 - 24*x^2 + 12*x + 16, 2*x^9 + 6*x^8 - 16*x^7 - 54*x^6 + 30*x^5 + 144*x^4 + 4*x^3 - 110*x^2 - 12*x + 8, -x^9 - 4*x^8 + 6*x^7 + 37*x^6 + 6*x^5 - 93*x^4 - 55*x^3 + 60*x^2 + 40*x, x^9 + 3*x^8 - 7*x^7 - 28*x^6 - 4*x^5 + 63*x^4 + 62*x^3 - 12*x^2 - 32*x, 2*x^8 + 6*x^7 - 10*x^6 - 34*x^5 + 8*x^4 + 42*x^3 - 8*x, x^8 + x^7 - 11*x^6 - 10*x^5 + 30*x^4 + 27*x^3 - 4*x^2 - 8, x^8 + x^7 - 13*x^6 - 16*x^5 + 34*x^4 + 37*x^3 - 22*x^2 - 8*x + 8, -x^9 - 3*x^8 + 8*x^7 + 26*x^6 - 16*x^5 - 63*x^4 + 7*x^3 + 40*x^2 - 12*x - 8, -x^9 - 3*x^8 + 8*x^7 + 26*x^6 - 16*x^5 - 63*x^4 + 7*x^3 + 40*x^2 - 12*x - 8, -x^8 - 3*x^7 + 6*x^6 + 19*x^5 - 13*x^4 - 42*x^3 + 2*x^2 + 20*x, -x^8 - 3*x^7 + 6*x^6 + 19*x^5 - 13*x^4 - 42*x^3 + 2*x^2 + 20*x, -x^8 - 2*x^7 + 9*x^6 + 17*x^5 - 18*x^4 - 33*x^3 + 6*x^2 + 12*x, -x^8 - 2*x^7 + 9*x^6 + 17*x^5 - 18*x^4 - 33*x^3 + 6*x^2 + 12*x]>
       ]
>;

MOG[181] := 	// J_0(181)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 2,
           Coordinates        := [36, 64, 146, 173, 175, 126*x + 3, 55*x + 3, 140*x + 107, 41*x + 107, 101*x + 36, 80*x + 36, 161*x + 16, 20*x + 16, 130*x + 54, 51*x + 54]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^5 + 3*x^4 - x^3 - 7*x^2 - 2*x + 1,
           Coordinates        := [0, 0, 0, 0, 0, -x^4 - 3*x^3 - x^2 + 2*x, x^4 + 3*x^3 + x^2 - 2*x, -x^3 - 3*x^2 - 2*x, x^3 + 3*x^2 + 2*x, -x^3 - 2*x^2 + 1, x^3 + 2*x^2 - 1, -x^2 - 2*x, x^2 + 2*x, -x^2 - x + 1, x^2 + x - 1]>,
         rec<Eigen |
           DefiningPolynomial := x^9 - 3*x^8 - 9*x^7 + 29*x^6 + 23*x^5 - 84*x^4 - 23*x^3 + 89*x^2 + 8*x - 27,
           Coordinates        := [-x^8 + 2*x^7 + 9*x^6 - 16*x^5 - 25*x^4 + 35*x^3 + 30*x^2 - 23*x - 15, x^8 - x^7 - 10*x^6 + 8*x^5 + 31*x^4 - 16*x^3 - 36*x^2 + 9*x + 12, x^7 - x^6 - 8*x^5 + 6*x^4 + 19*x^3 - 8*x^2 - 14*x + 3, -2*x^5 + 6*x^4 + 4*x^3 - 18*x^2 - 2*x + 12, -4*x^4 + 6*x^3 + 10*x^2 - 10*x - 6, -x^7 + 2*x^6 + 7*x^5 - 12*x^4 - 14*x^3 + 18*x^2 + 8*x - 6, -x^7 + 2*x^6 + 7*x^5 - 12*x^4 - 14*x^3 + 18*x^2 + 8*x - 6, -x^6 + 3*x^5 + 4*x^4 - 12*x^3 - 6*x^2 + 11*x + 3, -x^6 + 3*x^5 + 4*x^4 - 12*x^3 - 6*x^2 + 11*x + 3, -x^6 + x^5 + 7*x^4 - 5*x^3 - 16*x^2 + 6*x + 12, -x^6 + x^5 + 7*x^4 - 5*x^3 - 16*x^2 + 6*x + 12, x^6 - x^5 - 6*x^4 + 4*x^3 + 11*x^2 - 3*x - 6, x^6 - x^5 - 6*x^4 + 4*x^3 + 11*x^2 - 3*x - 6, -x^5 + 3*x^3 + 4*x^2 - 2*x - 6, -x^5 + 3*x^3 + 4*x^2 - 2*x - 6]>
       ]
>;

MOG[191] := 	// J_0(191)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 9, 16, 41, 46, 55, 66, 106, 107, 138, 150, 169, 176, 120*x + 126, 71*x + 126, 87*x + 23, 104*x + 23]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^2 + x - 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -x - 1, x + 1, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^14 - 23*x^12 + x^11 + 205*x^10 - 13*x^9 - 895*x^8 + 35*x^7 + 1993*x^6 + 103*x^5 - 2135*x^4 - 465*x^3 + 853*x^2 + 374*x + 41,
           Coordinates        := [-x^13 + 20*x^11 + x^10 - 149*x^9 - 18*x^8 + 513*x^7 + 123*x^6 - 813*x^5 - 347*x^4 + 467*x^3 + 322*x^2 + 39*x - 2, x^13 + x^12 - 20*x^11 - 20*x^10 + 149*x^9 + 151*x^8 - 505*x^7 - 539*x^6 + 731*x^5 + 911*x^4 - 225*x^3 - 575*x^2 - 220*x - 25, 4*x^10 - 2*x^9 - 55*x^8 + 22*x^7 + 252*x^6 - 58*x^5 - 452*x^4 - 18*x^3 + 275*x^2 + 94*x + 8, 2*x^12 - x^11 - 36*x^10 + 15*x^9 + 239*x^8 - 69*x^7 - 723*x^6 + 77*x^5 + 999*x^4 + 115*x^3 - 498*x^2 - 179*x - 16, -3*x^10 + 2*x^9 + 44*x^8 - 23*x^7 - 226*x^6 + 70*x^5 + 492*x^4 - 19*x^3 - 378*x^2 - 128*x - 11, x^9 - 6*x^7 - 8*x^6 - 14*x^5 + 60*x^4 + 85*x^3 - 64*x^2 - 96*x - 18, -3*x^9 + 2*x^8 + 36*x^7 - 29*x^6 - 128*x^5 + 107*x^4 + 128*x^3 - 62*x^2 - 37*x - 4, -3*x^10 + 2*x^9 + 48*x^8 - 25*x^7 - 260*x^6 + 73*x^5 + 552*x^4 + 66*x^3 - 411*x^2 - 222*x - 30, -3*x^11 + 2*x^10 + 50*x^9 - 27*x^8 - 290*x^7 + 110*x^6 + 694*x^5 - 101*x^4 - 624*x^3 - 96*x^2 + 103*x + 22, -3*x^12 + 2*x^11 + 56*x^10 - 31*x^9 - 382*x^8 + 158*x^7 + 1180*x^6 - 244*x^5 - 1668*x^4 - 143*x^3 + 892*x^2 + 372*x + 41, 2*x^11 - x^10 - 28*x^9 + 11*x^8 + 129*x^7 - 25*x^6 - 219*x^5 - 39*x^4 + 95*x^3 + 79*x^2 + 52*x + 9, x^8 - 5*x^7 - 6*x^6 + 45*x^5 - 15*x^4 - 112*x^3 + 40*x^2 + 110*x + 22, -6*x^8 + 5*x^7 + 59*x^6 - 46*x^5 - 157*x^4 + 67*x^3 + 134*x^2 + 8*x - 4, -3*x^9 + 2*x^8 + 32*x^7 - 20*x^6 - 101*x^5 + 41*x^4 + 123*x^3 - 16*x^2 - 57*x - 11, -3*x^9 + 2*x^8 + 32*x^7 - 20*x^6 - 101*x^5 + 41*x^4 + 123*x^3 - 16*x^2 - 57*x - 11, -6*x^8 - 2*x^7 + 66*x^6 + 17*x^5 - 212*x^4 - 64*x^3 + 187*x^2 + 109*x + 15, -6*x^8 - 2*x^7 + 66*x^6 + 17*x^5 - 212*x^4 - 64*x^3 + 187*x^2 + 109*x + 15]>
       ]
>;

MOG[193] := 	// J_0(193)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 5,
           Coordinates        := [42, 169, 104*x + 80, 89*x + 80, 16*x + 119, 177*x + 119, 60*x + 137, 133*x + 137, 22*x + 114, 171*x + 114, 66*x + 118, 127*x + 118, 137*x + 17, 56*x + 17, 138*x + 148, 55*x + 148]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^2 + 3*x + 1,
           Coordinates        := [0, 0, -x - 1, x + 1, x, -x, x + 1, -x - 1, 0, 0, 1, -1, -x - 1, x + 1, 1, -1]>,
         rec<Eigen |
           DefiningPolynomial := x^5 + 2*x^4 - 5*x^3 - 7*x^2 + 7*x + 1,
           Coordinates        := [0, 0, -x^4 - 3*x^3 + x^2 + 6*x, x^4 + 3*x^3 - x^2 - 6*x, -x^3 - x^2 + 3*x, x^3 + x^2 - 3*x, -x^4 - 3*x^3 + 4*x + 1, x^4 + 3*x^3 - 4*x - 1, x^2 + 3*x + 1, -x^2 - 3*x - 1, -x^3 - 2*x^2 + x, x^3 + 2*x^2 - x, -x^3 - 2*x^2 + x + 1, x^3 + 2*x^2 - x - 1, x^2 + 2*x, -x^2 - 2*x]>,
         rec<Eigen |
           DefiningPolynomial := x^8 - 2*x^7 - 9*x^6 + 18*x^5 + 21*x^4 - 44*x^3 - 11*x^2 + 27*x + 1,
           Coordinates        := [-x^7 + 3*x^6 + 4*x^5 - 16*x^4 - x^3 + 23*x^2 - 8*x - 3, x^7 - 3*x^6 - 4*x^5 + 16*x^4 + x^3 - 23*x^2 + 4*x + 9, -x^6 + 3*x^5 + 2*x^4 - 11*x^3 + 2*x^2 + 10*x - 4, -x^6 + 3*x^5 + 2*x^4 - 11*x^3 + 2*x^2 + 10*x - 4, -x^5 + x^4 + 4*x^3 - 3*x^2 - 4*x + 2, -x^5 + x^4 + 4*x^3 - 3*x^2 - 4*x + 2, -x^5 + 4*x^4 - x^3 - 10*x^2 + 8*x + 1, -x^5 + 4*x^4 - x^3 - 10*x^2 + 8*x + 1, x^6 - 3*x^5 - 2*x^4 + 11*x^3 - 4*x^2 - 5*x + 1, x^6 - 3*x^5 - 2*x^4 + 11*x^3 - 4*x^2 - 5*x + 1, x^5 - 3*x^4 - x^3 + 9*x^2 - 5*x - 2, x^5 - 3*x^4 - x^3 + 9*x^2 - 5*x - 2, 2*x^3 - 3*x^2 - 4*x + 6, 2*x^3 - 3*x^2 - 4*x + 6, x^5 - 2*x^4 - 4*x^3 + 9*x^2 + 2*x - 7, x^5 - 2*x^4 - 4*x^3 + 9*x^2 + 2*x - 7]>
       ]
>;

MOG[197] := 	// J_0(197)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 2,
           Coordinates        := [0, 22, 72, 120, 131, 191*x + 42, 6*x + 42, 25*x + 24, 172*x + 24, 125*x + 188, 72*x + 188, 82*x + 59, 115*x + 59, 163*x + 113, 34*x + 113, 122*x + 61, 75*x + 61]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x + 2,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, -1, 1, 1, -1, 1, -1, -1, 1, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^5 - 5*x^3 + x^2 + 3*x - 1,
           Coordinates        := [0, 0, 0, 0, 0, -x^4 + 3*x^2 - 1, x^4 - 3*x^2 + 1, -x^3 + x^2 + x - 1, x^3 - x^2 - x + 1, -x^3 + x, x^3 - x, -x^2, x^2, -x^2 + x, x^2 - x, -x^2 - x + 1, x^2 + x - 1]>,
         rec<Eigen |
           DefiningPolynomial := x^10 - 15*x^8 + x^7 + 78*x^6 - 7*x^5 - 165*x^4 + 15*x^3 + 123*x^2 - 9*x - 26,
           Coordinates        := [-x^9 + x^8 + 12*x^7 - 11*x^6 - 47*x^5 + 36*x^4 + 67*x^3 - 36*x^2 - 25*x + 8, x^9 - 3*x^8 - 10*x^7 + 31*x^6 + 29*x^5 - 98*x^4 - 21*x^3 + 98*x^2 - x - 26, 4*x^5 - 10*x^4 - 14*x^3 + 40*x^2 - 2*x - 14, 2*x^5 - 2*x^4 - 12*x^3 + 10*x^2 + 14*x - 8, 2*x^6 - 6*x^5 - 6*x^4 + 26*x^3 - 6*x^2 - 16*x + 10, x^6 - 2*x^5 - 5*x^4 + 11*x^3 + 2*x^2 - 11*x + 4, x^6 - 2*x^5 - 5*x^4 + 11*x^3 + 2*x^2 - 11*x + 4, x^6 - x^5 - 8*x^4 + 5*x^3 + 20*x^2 - 6*x - 11, x^6 - x^5 - 8*x^4 + 5*x^3 + 20*x^2 - 6*x - 11, x^7 - 3*x^6 - 6*x^5 + 21*x^4 + 9*x^3 - 41*x^2 - 4*x + 19, x^7 - 3*x^6 - 6*x^5 + 21*x^4 + 9*x^3 - 41*x^2 - 4*x + 19, x^7 - 3*x^6 - 5*x^5 + 18*x^4 + 4*x^3 - 28*x^2 + 6*x + 7, x^7 - 3*x^6 - 5*x^5 + 18*x^4 + 4*x^3 - 28*x^2 + 6*x + 7, x^6 - 2*x^5 - 4*x^4 + 7*x^3 + 2*x^2 + x - 5, x^6 - 2*x^5 - 4*x^4 + 7*x^3 + 2*x^2 + x - 5, x^8 - 3*x^7 - 8*x^6 + 25*x^5 + 18*x^4 - 59*x^3 - 8*x^2 + 29*x + 1, x^8 - 3*x^7 - 8*x^6 + 25*x^5 + 18*x^4 - 59*x^3 - 8*x^2 + 29*x + 1]>
       ]
>;

MOG[199] := 	// J_0(199)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [8, 40, 61, 64, 90, 98, 136, 140, 147, 5*x + 177, 194*x + 177, 106*x + 50, 93*x + 50, 127*x + 191, 72*x + 191, 53*x + 189, 146*x + 189]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^2 + x - 1,
           Coordinates        := [0, x + 1, -x - 1, -x, -x, 0, 1, x - 1, -x, 0, 0, x, x, 1, 1, -1, -1]>,
         rec<Eigen |
           DefiningPolynomial := x^4 + 3*x^3 - 4*x - 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, 0, -x^3 - 2*x^2 + x + 1, x^3 + 2*x^2 - x - 1, -x^2 - 2*x, x^2 + 2*x, -x - 1, x + 1, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^10 - 5*x^9 - 4*x^8 + 51*x^7 - 32*x^6 - 154*x^5 + 151*x^4 + 168*x^3 - 168*x^2 - 54*x + 27,
           Coordinates        := [-2*x^9 + 6*x^8 + 20*x^7 - 65*x^6 - 55*x^5 + 208*x^4 + 50*x^3 - 221*x^2 - 18*x + 36, x^9 - 4*x^8 - 7*x^7 + 37*x^6 + 11*x^5 - 102*x^4 - 16*x^3 + 103*x^2 + 27*x - 18, x^9 - 5*x^8 - 2*x^7 + 38*x^6 - 20*x^5 - 91*x^4 + 54*x^3 + 82*x^2 - 27*x - 18, x^8 - 4*x^7 - 5*x^6 + 31*x^5 - x^4 - 64*x^3 + 4*x^2 + 45*x + 9, x^8 - 5*x^7 + 28*x^5 - 12*x^4 - 63*x^3 + 16*x^2 + 54*x + 9, -3*x^7 + 11*x^6 + 10*x^5 - 64*x^4 + 15*x^3 + 88*x^2 - 36*x - 18, x^7 - 4*x^6 - 3*x^5 + 22*x^4 + x^3 - 37*x^2 + 18, x^8 - 5*x^7 + x^6 + 25*x^5 - 21*x^4 - 38*x^3 + 37*x^2 + 18*x - 18, x^7 - 5*x^6 + 5*x^5 + 9*x^4 - 19*x^3 + 10*x^2 + 9*x - 18, 2*x^6 - 8*x^5 + x^4 + 24*x^3 - 14*x^2 - 18*x + 9, 2*x^6 - 8*x^5 + x^4 + 24*x^3 - 14*x^2 - 18*x + 9, x^7 - 5*x^6 + 4*x^5 + 14*x^4 - 19*x^3 - 14*x^2 + 18*x + 9, x^7 - 5*x^6 + 4*x^5 + 14*x^4 - 19*x^3 - 14*x^2 + 18*x + 9, 2*x^6 - 6*x^5 - 8*x^4 + 25*x^3 + 16*x^2 - 27*x - 18, 2*x^6 - 6*x^5 - 8*x^4 + 25*x^3 + 16*x^2 - 27*x - 18, x^7 - 3*x^6 - 6*x^5 + 19*x^4 + 10*x^3 - 29*x^2 - 9*x + 9, x^7 - 3*x^6 - 6*x^5 + 19*x^4 + 10*x^3 - 29*x^2 - 9*x + 9]>
       ]
>;

MOG[211] := 	// J_0(211)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [28, 40, 82, 114, 148, 198, 45*x + 130, 166*x + 130, 22*x + 119, 189*x + 119, 49*x + 45, 162*x + 45, 47*x + 118, 164*x + 118, 100*x + 183, 111*x + 183, 3*x + 135, 208*x + 135]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^2 - x - 1,
           Coordinates        := [-2*x + 2, -2*x + 4, -2*x + 2, 4*x - 6, -2*x + 2, 4*x - 6, x - 2, x - 2, -3*x + 5, -3*x + 5, x - 2, x - 2, 1, 1, x - 2, x - 2, 1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^3 - 4*x + 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, -1, 1, -x, x, -1, 1, -x^2 + 2, x^2 - 2, -1, 1, -x + 1, x - 1]>,
         rec<Eigen |
           DefiningPolynomial := x^3 + 2*x^2 - x - 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, x^2 + 2*x - 1, -x^2 - 2*x + 1, 1, -1, -x^2 - x + 1, x^2 + x - 1, 0, 0, -x - 1, x + 1, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^9 + x^8 - 14*x^7 - 11*x^6 + 66*x^5 + 36*x^4 - 123*x^3 - 38*x^2 + 72*x + 8,
           Coordinates        := [-x^8 + 12*x^6 - x^5 - 45*x^4 + 11*x^3 + 54*x^2 - 24*x, 2*x^5 + 2*x^4 - 12*x^3 - 8*x^2 + 18*x + 4, x^8 - 12*x^6 + x^5 + 47*x^4 - 9*x^3 - 62*x^2 + 18*x + 8, 2*x^6 - 14*x^4 + 4*x^3 + 26*x^2 - 14*x - 4, -x^7 + 10*x^5 - x^4 - 29*x^3 + 5*x^2 + 22*x - 4, -x^7 + 10*x^5 + x^4 - 31*x^3 - 5*x^2 + 32*x + 4, x^7 - 9*x^5 + 25*x^3 + x^2 - 20*x - 4, x^7 - 9*x^5 + 25*x^3 + x^2 - 20*x - 4, x^6 - x^5 - 8*x^4 + 6*x^3 + 16*x^2 - 8*x - 4, x^6 - x^5 - 8*x^4 + 6*x^3 + 16*x^2 - 8*x - 4, -x^4 - x^3 + 2*x^2 + 2*x + 4, -x^4 - x^3 + 2*x^2 + 2*x + 4, -x^6 + x^5 + 7*x^4 - 8*x^3 - 11*x^2 + 14*x, -x^6 + x^5 + 7*x^4 - 8*x^3 - 11*x^2 + 14*x, -x^6 + 8*x^4 - 3*x^3 - 16*x^2 + 10*x, -x^6 + 8*x^4 - 3*x^3 - 16*x^2 + 10*x, -2*x^5 - x^4 + 14*x^3 + 3*x^2 - 24*x, -2*x^5 - x^4 + 14*x^3 + 3*x^2 - 24*x]>
       ]
>;

MOG[223] := 	// J_0(223)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [49, 128, 167, 193, 195, 210, 221, 67*x + 68, 156*x + 68, 45*x + 124, 178*x + 124, 132*x + 43, 91*x + 43, 151*x + 13, 72*x + 13, 178*x + 217, 45*x + 217, 114*x + 136, 109*x + 136]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^2 + 2*x - 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, -x - 1, x + 1, 0, 0, x - 1, -x + 1, x + 1, -x - 1, -x - 1, x + 1, 2, -2]>,
         rec<Eigen |
           DefiningPolynomial := x^4 + 4*x^3 + 2*x^2 - 5*x - 3,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, -x^2 - 3*x - 2, x^2 + 3*x + 2, -x^3 - 3*x^2 - x + 1, x^3 + 3*x^2 + x - 1, -x - 1, x + 1, -x^2 - 2*x, x^2 + 2*x, 1, -1, -x - 1, x + 1]>,
         rec<Eigen |
           DefiningPolynomial := x^12 - 7*x^11 + 6*x^10 + 57*x^9 - 122*x^8 - 105*x^7 + 430*x^6 - 73*x^5 - 499*x^4 + 242*x^3 + 143*x^2 - 52*x - 19,
           Coordinates        := [-x^11 + 8*x^10 - 17*x^9 - 19*x^8 + 107*x^7 - 64*x^6 - 163*x^5 + 197*x^4 + 37*x^3 - 111*x^2 + 11*x + 15, x^11 - 8*x^10 + 16*x^9 + 24*x^8 - 105*x^7 + 24*x^6 + 192*x^5 - 108*x^4 - 126*x^3 + 65*x^2 + 24*x - 3, -x^10 + 7*x^9 - 10*x^8 - 29*x^7 + 78*x^6 + 14*x^5 - 149*x^4 + 48*x^3 + 85*x^2 - 26*x - 15, -x^9 + 6*x^8 - 7*x^7 - 20*x^6 + 47*x^5 - 2*x^4 - 60*x^3 + 41*x^2 + x - 7, -x^9 + 7*x^8 - 13*x^7 - 12*x^6 + 60*x^5 - 34*x^4 - 58*x^3 + 61*x^2 + 2*x - 8, -x^10 + 8*x^9 - 19*x^8 - 6*x^7 + 87*x^6 - 96*x^5 - 56*x^4 + 161*x^3 - 81*x^2 - 9*x + 14, -x^8 + 7*x^7 - 15*x^6 + 2*x^5 + 32*x^4 - 42*x^3 + 22*x^2 - x - 6, x^10 - 8*x^9 + 18*x^8 + 11*x^7 - 87*x^6 + 64*x^5 + 88*x^4 - 107*x^3 - 4*x^2 + 19*x + 2, x^10 - 8*x^9 + 18*x^8 + 11*x^7 - 87*x^6 + 64*x^5 + 88*x^4 - 107*x^3 - 4*x^2 + 19*x + 2, x^9 - 7*x^8 + 12*x^7 + 17*x^6 - 63*x^5 + 19*x^4 + 70*x^3 - 43*x^2 - 12*x + 4, x^9 - 7*x^8 + 12*x^7 + 17*x^6 - 63*x^5 + 19*x^4 + 70*x^3 - 43*x^2 - 12*x + 4, x^9 - 6*x^8 + 6*x^7 + 23*x^6 - 41*x^5 - 18*x^4 + 52*x^3 - 3*x^2 - 10*x - 1, x^9 - 6*x^8 + 6*x^7 + 23*x^6 - 41*x^5 - 18*x^4 + 52*x^3 - 3*x^2 - 10*x - 1, x^8 - 6*x^7 + 7*x^6 + 18*x^5 - 37*x^4 - 6*x^3 + 35*x^2 - 3*x - 6, x^8 - 6*x^7 + 7*x^6 + 18*x^5 - 37*x^4 - 6*x^3 + 35*x^2 - 3*x - 6, -x^7 + 7*x^6 - 14*x^5 - 4*x^4 + 40*x^3 - 31*x^2 - 4*x + 4, -x^7 + 7*x^6 - 14*x^5 - 4*x^4 + 40*x^3 - 31*x^2 - 4*x + 4, x^7 - 6*x^6 + 8*x^5 + 12*x^4 - 29*x^3 + 5*x^2 + 9*x + 2, x^7 - 6*x^6 + 8*x^5 + 12*x^4 - 29*x^3 + 5*x^2 + 9*x + 2]>
       ]
>;

MOG[227] := 	// J_0(227)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 30, 110, 114, 132, 139, 147, 160, 191, 201, 149*x + 2, 78*x + 2, 209*x + 176, 18*x + 176, 96*x + 77, 131*x + 77, 78*x + 73, 149*x + 73, 102*x + 143, 125*x + 143]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^2 - 2,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -x - 1, x + 1, -x - 2, x + 2, -x - 1, x + 1, -x - 1, x + 1, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^2 - 5,
           Coordinates        := [-2, -x - 3, -2, 0, -2, 0, x - 1, -x + 1, x - 1, -2*x, 0, 0, 2, 2, x + 1, x + 1, 2, 2, 0, 0]>,
         rec<Eigen |
           DefiningPolynomial := x^2 + x - 7,
           Coordinates        := [-1, x + 1, 3, 0, -1, -2, -x - 3, -x - 1, -x + 1, -1, 2, 2, -1, -1, x, x, 1, 1, 0, 0]>,
         rec<Eigen |
           DefiningPolynomial := x^3 + 2*x^2 - x - 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, x^2 + 2*x - 1, -x^2 - 2*x + 1, 1, -1, -x^2 - x + 1, x^2 + x - 1, -x - 1, x + 1, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^10 - 17*x^8 - 3*x^7 + 98*x^6 + 40*x^5 - 218*x^4 - 148*x^3 + 136*x^2 + 144*x + 32,
           Coordinates        := [-1/3*x^9 + 17/3*x^7 + x^6 - 32*x^5 - 34/3*x^4 + 190/3*x^3 + 104/3*x^2 - 80/3*x - 16, 2/3*x^4 + 10/3*x^3 - 4/3*x^2 - 32/3*x - 16/3, -4/3*x^7 + 14*x^5 + 10/3*x^4 - 42*x^3 - 20*x^2 + 104/3*x + 64/3, -2/3*x^9 + 26/3*x^7 + 2/3*x^6 - 36*x^5 - 8*x^4 + 58*x^3 + 68/3*x^2 - 88/3*x - 16, x^9 - 15*x^7 - x^6 + 218/3*x^5 + 16*x^4 - 388/3*x^3 - 52*x^2 + 56*x + 80/3, -2/3*x^8 - 2/3*x^7 + 8*x^6 + 26/3*x^5 - 82/3*x^4 - 106/3*x^3 + 68/3*x^2 + 136/3*x + 16, -4/3*x^6 + 12*x^4 + 6*x^3 - 24*x^2 - 24*x - 16/3, 2/3*x^5 + 2*x^4 - 8*x^3 - 8*x^2 + 16*x + 32/3, 2*x^6 + 2*x^5 - 62/3*x^4 - 52/3*x^3 + 124/3*x^2 + 136/3*x + 32/3, 2/3*x^6 + 2*x^5 - 28/3*x^4 - 44/3*x^3 + 56/3*x^2 + 32*x + 32/3, -2/3*x^8 + 20/3*x^6 + 2/3*x^5 - 49/3*x^4 - 8/3*x^3 + 8*x^2 - 16/3*x - 16/3, -2/3*x^8 + 20/3*x^6 + 2/3*x^5 - 49/3*x^4 - 8/3*x^3 + 8*x^2 - 16/3*x - 16/3, -2/3*x^7 + 17/3*x^5 + 2*x^4 - 8*x^3 - 8*x^2 - 32/3*x - 16/3, -2/3*x^7 + 17/3*x^5 + 2*x^4 - 8*x^3 - 8*x^2 - 32/3*x - 16/3, 1/3*x^6 + 4/3*x^5 - 11/3*x^4 - 34/3*x^3 + 16/3*x^2 + 24*x + 32/3, 1/3*x^6 + 4/3*x^5 - 11/3*x^4 - 34/3*x^3 + 16/3*x^2 + 24*x + 32/3, x^7 + x^6 - 32/3*x^5 - 29/3*x^4 + 74/3*x^3 + 80/3*x^2 - 8/3*x - 16/3, x^7 + x^6 - 32/3*x^5 - 29/3*x^4 + 74/3*x^3 + 80/3*x^2 - 8/3*x - 16/3, x^8 + x^7 - 13*x^6 - 13*x^5 + 49*x^4 + 166/3*x^3 - 148/3*x^2 - 224/3*x - 64/3, x^8 + x^7 - 13*x^6 - 13*x^5 + 49*x^4 + 166/3*x^3 - 148/3*x^2 - 224/3*x - 64/3]>
       ]
>;

MOG[229] := 	// J_0(229)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 2,
           Coordinates        := [27, 60, 93, 172, 214, 19*x + 222, 210*x + 222, 32*x + 89, 197*x + 89, 55*x + 148, 174*x + 148, 199*x + 83, 30*x + 83, 217*x + 213, 12*x + 213, 215*x + 87, 14*x + 87, 167*x + 219, 62*x + 219]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x + 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, -1, 1, 1, -1, 0, 0, -1, 1, -1, 1, 0, 0]>,
         rec<Eigen |
           DefiningPolynomial := x^6 + 4*x^5 - 12*x^3 - 3*x^2 + 9*x - 1,
           Coordinates        := [0, 0, 0, 0, 0, -x^5 - 4*x^4 - 2*x^3 + 6*x^2 + 4*x - 1, x^5 + 4*x^4 + 2*x^3 - 6*x^2 - 4*x + 1, -x^4 - 3*x^3 + x^2 + 5*x - 1, x^4 + 3*x^3 - x^2 - 5*x + 1, -x^4 - 3*x^3 + 3*x, x^4 + 3*x^3 - 3*x, -x^3 - 3*x^2 - x + 1, x^3 + 3*x^2 + x - 1, -x^2 - 2*x, x^2 + 2*x, 1, -1, -x - 1, x + 1]>,
         rec<Eigen |
           DefiningPolynomial := x^11 - 5*x^10 - 4*x^9 + 50*x^8 - 26*x^7 - 165*x^6 + 152*x^5 + 193*x^4 - 207*x^3 - 50*x^2 + 52*x + 1,
           Coordinates        := [-x^10 + 5*x^9 + x^8 - 37*x^7 + 33*x^6 + 76*x^5 - 95*x^4 - 35*x^3 + 48*x^2 + 7*x - 2, x^10 - 3*x^9 - 9*x^8 + 29*x^7 + 25*x^6 - 92*x^5 - 19*x^4 + 103*x^3 - 29*x - 2, -x^9 + 5*x^8 - x^7 - 29*x^6 + 37*x^5 + 32*x^4 - 71*x^3 + 17*x^2 + 12*x - 1, x^9 - 3*x^8 - 7*x^7 + 23*x^6 + 13*x^5 - 52*x^4 + x^3 + 21*x^2 + 4*x + 3, -2*x^6 + 8*x^5 + 2*x^4 - 34*x^3 + 20*x^2 + 14*x, -x^7 + 5*x^6 - 3*x^5 - 18*x^4 + 27*x^3 - 3*x^2 - 7*x, -x^7 + 5*x^6 - 3*x^5 - 18*x^4 + 27*x^3 - 3*x^2 - 7*x, -x^8 + 4*x^7 + 2*x^6 - 22*x^5 + 12*x^4 + 26*x^3 - 18*x^2 - 4*x + 1, -x^8 + 4*x^7 + 2*x^6 - 22*x^5 + 12*x^4 + 26*x^3 - 18*x^2 - 4*x + 1, x^7 - 3*x^6 - 4*x^5 + 13*x^4 + 5*x^3 - 9*x^2 - 10*x - 1, x^7 - 3*x^6 - 4*x^5 + 13*x^4 + 5*x^3 - 9*x^2 - 10*x - 1, x^8 - 3*x^7 - 6*x^6 + 20*x^5 + 10*x^4 - 41*x^3 + 2*x^2 + 16*x + 1, x^8 - 3*x^7 - 6*x^6 + 20*x^5 + 10*x^4 - 41*x^3 + 2*x^2 + 16*x + 1, x^5 - 2*x^4 - 4*x^3 + 4*x^2 + 7*x - 2, x^5 - 2*x^4 - 4*x^3 + 4*x^2 + 7*x - 2, -x^9 + 4*x^8 + 4*x^7 - 30*x^6 + 10*x^5 + 63*x^4 - 44*x^3 - 30*x^2 + 19*x + 1, -x^9 + 4*x^8 + 4*x^7 - 30*x^6 + 10*x^5 + 63*x^4 - 44*x^3 - 30*x^2 + 19*x + 1, -x^8 + 3*x^7 + 7*x^6 - 23*x^5 - 12*x^4 + 49*x^3 + x^2 - 25*x + 1, -x^8 + 3*x^7 + 7*x^6 - 23*x^5 - 12*x^4 + 49*x^3 + x^2 - 25*x + 1]>
       ]
>;

MOG[233] := 	// J_0(233)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 3,
           Coordinates        := [0, 11, 85, 177, 183, 187, 114*x + 43, 119*x + 43, 94*x + 152, 139*x + 152, 149*x + 201, 84*x + 201, 208*x + 104, 25*x + 104, 222*x + 76, 11*x + 76, 156*x + 32, 77*x + 32, 193*x + 89, 40*x + 89]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x - 1,
           Coordinates        := [-1, -1, 1, -1, -3, 3, 1, 1, -1, -1, 3, 3, -1, -1, -1, -1, -1, -1, 1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^7 + 2*x^6 - 6*x^5 - 10*x^4 + 10*x^3 + 8*x^2 - 7*x + 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, -x^6 - 2*x^5 + 4*x^4 + 7*x^3 - 4*x^2 - 4*x + 1, x^6 + 2*x^5 - 4*x^4 - 7*x^3 + 4*x^2 + 4*x - 1, -x^5 - 2*x^4 + 2*x^3 + 3*x^2 - 2*x, x^5 + 2*x^4 - 2*x^3 - 3*x^2 + 2*x, -x^5 - x^4 + 4*x^3 + x^2 - 4*x + 1, x^5 + x^4 - 4*x^3 - x^2 + 4*x - 1, -x^4 - x^3 + 2*x^2, x^4 + x^3 - 2*x^2, -x^4 - 3*x^3 + 4*x - 1, x^4 + 3*x^3 - 4*x + 1, -x^4 - 2*x^3 + x^2 + x, x^4 + 2*x^3 - x^2 - x, -x^3 - x^2 + 2*x, x^3 + x^2 - 2*x]>,
         rec<Eigen |
           DefiningPolynomial := x^11 + 2*x^10 - 16*x^9 - 30*x^8 + 91*x^7 + 158*x^6 - 213*x^5 - 349*x^4 + 152*x^3 + 290*x^2 + 41*x - 19,
           Coordinates        := [x^10 + 2*x^9 - 13*x^8 - 24*x^7 + 58*x^6 + 100*x^5 - 95*x^4 - 171*x^3 + 19*x^2 + 99*x + 34, -2*x^10 - 4*x^9 + 26*x^8 + 50*x^7 - 114*x^6 - 216*x^5 + 184*x^4 + 378*x^3 - 60*x^2 - 228*x - 58, x^10 + 2*x^9 - 13*x^8 - 28*x^7 + 46*x^6 + 120*x^5 - 15*x^4 - 159*x^3 - 91*x^2 + 7*x + 12, 3*x^9 + 6*x^8 - 33*x^7 - 58*x^6 + 118*x^5 + 178*x^4 - 133*x^3 - 191*x^2 - 7*x + 19, -2*x^9 - 4*x^8 + 24*x^7 + 46*x^6 - 88*x^5 - 164*x^4 + 90*x^3 + 188*x^2 + 20*x - 26, x^9 - 2*x^8 - 19*x^7 + 16*x^6 + 100*x^5 - 34*x^4 - 171*x^3 - 5*x^2 + 73*x + 11, 3*x^8 + 7*x^7 - 28*x^6 - 61*x^5 + 76*x^4 + 161*x^3 - 32*x^2 - 139*x - 51, 3*x^8 + 7*x^7 - 28*x^6 - 61*x^5 + 76*x^4 + 161*x^3 - 32*x^2 - 139*x - 51, x^8 + 3*x^7 - 10*x^6 - 34*x^5 + 26*x^4 + 115*x^3 - 104*x - 41, x^8 + 3*x^7 - 10*x^6 - 34*x^5 + 26*x^4 + 115*x^3 - 104*x - 41, 2*x^7 + 7*x^6 - 8*x^5 - 43*x^4 - 14*x^3 + 52*x^2 + 60*x + 22, 2*x^7 + 7*x^6 - 8*x^5 - 43*x^4 - 14*x^3 + 52*x^2 + 60*x + 22, -2*x^8 - 4*x^7 + 21*x^6 + 38*x^5 - 73*x^4 - 125*x^3 + 67*x^2 + 149*x + 47, -2*x^8 - 4*x^7 + 21*x^6 + 38*x^5 - 73*x^4 - 125*x^3 + 67*x^2 + 149*x + 47, x^9 + 2*x^8 - 13*x^7 - 27*x^6 + 49*x^5 + 112*x^4 - 36*x^3 - 139*x^2 - 51*x + 4, x^9 + 2*x^8 - 13*x^7 - 27*x^6 + 49*x^5 + 112*x^4 - 36*x^3 - 139*x^2 - 51*x + 4, -x^8 - 2*x^7 + 13*x^6 + 26*x^5 - 47*x^4 - 95*x^3 + 40*x^2 + 101*x + 29, -x^8 - 2*x^7 + 13*x^6 + 26*x^5 - 47*x^4 - 95*x^3 + 40*x^2 + 101*x + 29, -2*x^9 - 3*x^8 + 22*x^7 + 27*x^6 - 77*x^5 - 78*x^4 + 77*x^3 + 82*x^2 + 2*x - 6, -2*x^9 - 3*x^8 + 22*x^7 + 27*x^6 - 77*x^5 - 78*x^4 + 77*x^3 + 82*x^2 + 2*x - 6]>
       ]
>;

MOG[239] := 	// J_0(239)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 55, 68, 105, 107, 113, 185, 192, 193, 214, 215, 217, 218, 225, 235, 103*x + 94, 136*x + 94, 179*x + 141, 60*x + 141, 79*x + 191, 160*x + 191]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^3 + x^2 - 2*x - 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -x^2 - x + 1, x^2 + x - 1, -x - 1, x + 1, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^17 - 28*x^15 + x^14 + 319*x^13 - 17*x^12 - 1903*x^11 + 91*x^10 + 6377*x^9 - 125*x^8 - 11967*x^7 - 233*x^6 + 11733*x^5 + 503*x^4 - 5015*x^3 - 94*x^2 + 609*x + 49,
           Coordinates        := [-x^16 + 25*x^14 - x^13 - 248*x^12 + 16*x^11 + 1245*x^10 - 79*x^9 - 3341*x^8 + 106*x^7 + 4644*x^6 + 101*x^5 - 2910*x^4 - 219*x^3 + 541*x^2 + 87*x + 14, x^16 + x^15 - 25*x^14 - 22*x^13 + 248*x^12 + 191*x^11 - 1236*x^10 - 840*x^9 + 3222*x^8 + 1972*x^7 - 4144*x^6 - 2266*x^5 + 2228*x^4 + 901*x^3 - 479*x^2 - 122*x + 35, 2*x^14 + 2*x^13 - 41*x^12 - 38*x^11 + 320*x^10 + 279*x^9 - 1177*x^8 - 997*x^7 + 2029*x^6 + 1751*x^5 - 1415*x^4 - 1258*x^3 + 297*x^2 + 297*x + 14, -3*x^12 + 4*x^11 + 55*x^10 - 68*x^9 - 366*x^8 + 379*x^7 + 1093*x^6 - 781*x^5 - 1509*x^4 + 565*x^3 + 734*x^2 - 186*x - 84, 4*x^13 + x^12 - 78*x^11 - 13*x^10 + 569*x^9 + 64*x^8 - 1911*x^7 - 180*x^6 + 2912*x^5 + 286*x^4 - 1669*x^3 - 77*x^2 + 233*x + 42, -3*x^11 + x^10 + 47*x^9 - 28*x^8 - 263*x^7 + 178*x^6 + 624*x^5 - 317*x^4 - 650*x^3 + 98*x^2 + 198*x + 42, -5*x^11 + 2*x^10 + 81*x^9 - 36*x^8 - 458*x^7 + 187*x^6 + 1083*x^5 - 279*x^4 - 1055*x^3 + 77*x^2 + 270*x - 14, -x^13 + 2*x^12 + 19*x^11 - 41*x^10 - 137*x^9 + 308*x^8 + 492*x^7 - 1028*x^6 - 990*x^5 + 1453*x^4 + 1048*x^3 - 581*x^2 - 255*x + 35, -9*x^10 - 7*x^9 + 131*x^8 + 62*x^7 - 647*x^6 - 160*x^5 + 1176*x^4 + 183*x^3 - 634*x^2 + 30*x + 42, -3*x^13 + 59*x^11 + x^10 - 426*x^9 - 38*x^8 + 1380*x^7 + 308*x^6 - 1945*x^5 - 702*x^4 + 826*x^3 + 293*x^2 - 29*x - 21, -x^14 + 2*x^13 + 21*x^12 - 39*x^11 - 163*x^10 + 276*x^9 + 584*x^8 - 836*x^7 - 980*x^6 + 951*x^5 + 594*x^4 - 93*x^3 + 209*x^2 - 137*x - 84, -3*x^14 + 65*x^12 + 3*x^11 - 536*x^10 - 58*x^9 + 2116*x^8 + 386*x^7 - 4129*x^6 - 970*x^5 + 3662*x^4 + 743*x^3 - 1209*x^2 - 75*x + 42, 2*x^15 + 2*x^14 - 49*x^13 - 40*x^12 + 476*x^11 + 305*x^10 - 2315*x^9 - 1125*x^8 + 5851*x^7 + 2111*x^6 - 7239*x^5 - 1830*x^4 + 3635*x^3 + 451*x^2 - 452*x - 84, -3*x^15 + 71*x^13 - x^12 - 658*x^11 + 12*x^10 + 3036*x^9 - 19*x^8 - 7323*x^7 - 132*x^6 + 8823*x^5 + 284*x^4 - 4474*x^3 - 7*x^2 + 623*x + 49, -3*x^13 + 4*x^12 + 63*x^11 - 71*x^10 - 494*x^9 + 443*x^8 + 1814*x^7 - 1146*x^6 - 3216*x^5 + 1161*x^4 + 2439*x^3 - 361*x^2 - 552*x - 28, -x^12 - x^11 + 13*x^10 + 16*x^9 - 46*x^8 - 96*x^7 - 5*x^6 + 251*x^5 + 227*x^4 - 244*x^3 - 232*x^2 + 86*x + 42, -x^12 - x^11 + 13*x^10 + 16*x^9 - 46*x^8 - 96*x^7 - 5*x^6 + 251*x^5 + 227*x^4 - 244*x^3 - 232*x^2 + 86*x + 42, -3*x^12 - x^11 + 55*x^10 + 10*x^9 - 368*x^8 - 39*x^7 + 1092*x^6 + 134*x^5 - 1418*x^4 - 225*x^3 + 590*x^2 + 27*x - 21, -3*x^12 - x^11 + 55*x^10 + 10*x^9 - 368*x^8 - 39*x^7 + 1092*x^6 + 134*x^5 - 1418*x^4 - 225*x^3 + 590*x^2 + 27*x - 21, -3*x^11 - 4*x^10 + 42*x^9 + 45*x^8 - 192*x^7 - 169*x^6 + 276*x^5 + 250*x^4 + 8*x^3 - 34*x^2 - 78*x - 21, -3*x^11 - 4*x^10 + 42*x^9 + 45*x^8 - 192*x^7 - 169*x^6 + 276*x^5 + 250*x^4 + 8*x^3 - 34*x^2 - 78*x - 21]>
       ]
>;

MOG[241] := 	// J_0(241)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 7,
           Coordinates        := [8, 28, 64, 93, 216, 240, 11*x + 227, 230*x + 227, 194*x + 158, 47*x + 158, 153*x + 161, 88*x + 161, 213*x + 115, 28*x + 115, 142*x + 107, 99*x + 107, 85*x + 138, 156*x + 138, 72*x + 65, 169*x + 65]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^7 + 4*x^6 - 14*x^4 - 10*x^3 + 6*x^2 + 3*x - 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, -x^6 - 4*x^5 - x^4 + 10*x^3 + 7*x^2 - 3*x - 1, x^6 + 4*x^5 + x^4 - 10*x^3 - 7*x^2 + 3*x + 1, -x^5 - 4*x^4 - 3*x^3 + 3*x^2 + 2*x - 1, x^5 + 4*x^4 + 3*x^3 - 3*x^2 - 2*x + 1, -x^4 - 3*x^3 - x^2 + 2*x, x^4 + 3*x^3 + x^2 - 2*x, -x^4 - 4*x^3 - 4*x^2 + 1, x^4 + 4*x^3 + 4*x^2 - 1, -x^3 - 2*x^2 + 1, x^3 + 2*x^2 - 1, -x^3 - 3*x^2 - x + 1, x^3 + 3*x^2 + x - 1, -x^2 - x + 1, x^2 + x - 1]>,
         rec<Eigen |
           DefiningPolynomial := x^12 - 3*x^11 - 14*x^10 + 44*x^9 + 65*x^8 - 219*x^7 - 123*x^6 + 444*x^5 + 105*x^4 - 328*x^3 - 45*x^2 + 18*x - 1,
           Coordinates        := [-x^11 + 4*x^10 + 8*x^9 - 44*x^8 - 7*x^7 + 146*x^6 - 25*x^5 - 193*x^4 + 22*x^3 + 90*x^2 + 15*x - 3, x^11 - 4*x^10 - 8*x^9 + 46*x^8 + x^7 - 158*x^6 + 69*x^5 + 197*x^4 - 88*x^3 - 74*x^2 - 3*x + 1, -2*x^8 + 6*x^7 + 10*x^6 - 34*x^5 - 10*x^4 + 44*x^3 + 2*x^2 - 4*x, -2*x^7 + 8*x^6 - 4*x^5 - 14*x^4 + 10*x^3 + 2*x^2 + 4*x, -4*x^7 + 14*x^6 + 8*x^5 - 52*x^4 - 4*x^3 + 52*x^2 + 8*x - 2, -2*x^6 + 4*x^5 + 4*x^4 - 6*x^3 - 2*x^2 - 2*x, -x^8 + 4*x^7 - x^6 - 9*x^5 + 3*x^4 + 4*x^3 + 3*x^2 + x, -x^8 + 4*x^7 - x^6 - 9*x^5 + 3*x^4 + 4*x^3 + 3*x^2 + x, -x^9 + 4*x^8 + 5*x^7 - 31*x^6 - x^5 + 70*x^4 - 3*x^3 - 53*x^2 - 12*x + 2, -x^9 + 4*x^8 + 5*x^7 - 31*x^6 - x^5 + 70*x^4 - 3*x^3 - 53*x^2 - 12*x + 2, 2*x^7 - 5*x^6 - 12*x^5 + 29*x^4 + 18*x^3 - 37*x^2 - 8*x + 1, 2*x^7 - 5*x^6 - 12*x^5 + 29*x^4 + 18*x^3 - 37*x^2 - 8*x + 1, -x^10 + 4*x^9 + 6*x^8 - 37*x^7 + 5*x^6 + 91*x^5 - 35*x^4 - 75*x^3 + 22*x^2 + 9*x - 1, -x^10 + 4*x^9 + 6*x^8 - 37*x^7 + 5*x^6 + 91*x^5 - 35*x^4 - 75*x^3 + 22*x^2 + 9*x - 1, x^9 - 2*x^8 - 12*x^7 + 24*x^6 + 42*x^5 - 81*x^4 - 52*x^3 + 82*x^2 + 21*x - 3, x^9 - 2*x^8 - 12*x^7 + 24*x^6 + 42*x^5 - 81*x^4 - 52*x^3 + 82*x^2 + 21*x - 3, -x^9 + 3*x^8 + 7*x^7 - 24*x^6 - 9*x^5 + 48*x^4 + 3*x^3 - 28*x^2 - 4*x + 1, -x^9 + 3*x^8 + 7*x^7 - 24*x^6 - 9*x^5 + 48*x^4 + 3*x^3 - 28*x^2 - 4*x + 1, x^10 - 3*x^9 - 10*x^8 + 34*x^7 + 23*x^6 - 111*x^5 + 116*x^3 - 24*x^2 - 16*x + 2, x^10 - 3*x^9 - 10*x^8 + 34*x^7 + 23*x^6 - 111*x^5 + 116*x^3 - 24*x^2 - 16*x + 2]>
       ]
>;

MOG[251] := 	// J_0(251)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 4, 24, 30, 35, 64, 101, 139, 185, 199, 207, 213, 222, 232, 178*x + 178, 73*x + 178, 57*x + 166, 194*x + 166, 147*x + 30, 104*x + 30, 171*x + 79, 80*x + 79]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^4 + 2*x^3 - 2*x^2 - 3*x + 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -x^3 - 2*x^2 + x + 2, x^3 + 2*x^2 - x - 2, x + 1, -x - 1, -1, 1, x^2 + x - 1, -x^2 - x + 1]>,
         rec<Eigen |
           DefiningPolynomial := x^17 - 2*x^16 - 28*x^15 + 54*x^14 + 317*x^13 - 582*x^12 - 1867*x^11 + 3178*x^10 + 6186*x^9 - 9216*x^8 - 11921*x^7 + 13680*x^6 + 13752*x^5 - 9400*x^4 - 8800*x^3 + 1920*x^2 + 2240*x + 256,
           Coordinates        := [-x^16 + 2*x^15 + 26*x^14 - 50*x^13 - 269*x^12 + 492*x^11 + 1413*x^10 - 2406*x^9 - 4010*x^8 + 6074*x^7 + 6173*x^6 - 7520*x^5 - 5124*x^4 + 4136*x^3 + 2016*x^2 - 768*x - 256, x^16 - 2*x^15 - 28*x^14 + 56*x^13 + 309*x^12 - 618*x^11 - 1697*x^10 + 3384*x^9 + 4842*x^8 - 9500*x^7 - 7063*x^6 + 12936*x^5 + 5620*x^4 - 8088*x^3 - 2416*x^2 + 1856*x + 448, 2*x^11 + 2*x^10 - 42*x^9 - 28*x^8 + 310*x^7 + 142*x^6 - 974*x^5 - 340*x^4 + 1240*x^3 + 432*x^2 - 512*x - 192, -2*x^11 + 2*x^10 + 30*x^9 - 20*x^8 - 158*x^7 + 14*x^6 + 394*x^5 + 292*x^4 - 608*x^3 - 576*x^2 + 352*x + 320, -2*x^15 + 4*x^14 + 48*x^13 - 90*x^12 - 454*x^11 + 772*x^10 + 2176*x^9 - 3142*x^8 - 5748*x^7 + 6160*x^6 + 8628*x^5 - 5264*x^4 - 6784*x^3 + 1152*x^2 + 1984*x + 256, 2*x^12 - 2*x^11 - 42*x^10 + 48*x^9 + 322*x^8 - 406*x^7 - 1082*x^6 + 1424*x^5 + 1560*x^4 - 1872*x^3 - 1120*x^2 + 832*x + 384, -4*x^11 + 4*x^10 + 68*x^9 - 68*x^8 - 404*x^7 + 404*x^6 + 988*x^5 - 964*x^4 - 920*x^3 + 800*x^2 + 288*x - 192, 2*x^11 + 2*x^10 - 38*x^9 - 28*x^8 + 266*x^7 + 126*x^6 - 830*x^5 - 236*x^4 + 1088*x^3 + 304*x^2 - 512*x - 192, 2*x^12 - 2*x^11 - 46*x^10 + 48*x^9 + 382*x^8 - 390*x^7 - 1402*x^6 + 1256*x^5 + 2288*x^4 - 1328*x^3 - 1728*x^2 + 320*x + 384, -2*x^14 + 4*x^13 + 44*x^12 - 86*x^11 - 366*x^10 + 692*x^9 + 1440*x^8 - 2562*x^7 - 2828*x^6 + 4360*x^5 + 2968*x^4 - 3168*x^3 - 1648*x^2 + 704*x + 320, 2*x^13 - 2*x^12 - 46*x^11 + 44*x^10 + 394*x^9 - 342*x^8 - 1554*x^7 + 1100*x^6 + 2868*x^5 - 1280*x^4 - 2360*x^3 + 464*x^2 + 544*x - 128, 2*x^11 + 2*x^10 - 38*x^9 - 36*x^8 + 266*x^7 + 214*x^6 - 798*x^5 - 524*x^4 + 880*x^3 + 608*x^2 - 256*x - 192, -4*x^10 + 68*x^8 - 404*x^6 + 988*x^4 + 24*x^3 - 896*x^2 - 96*x + 192, 2*x^13 - 2*x^12 - 46*x^11 + 44*x^10 + 398*x^9 - 342*x^8 - 1614*x^7 + 1084*x^6 + 3188*x^5 - 1112*x^4 - 3088*x^3 - 80*x^2 + 1152*x + 384, -2*x^12 + 2*x^11 + 38*x^10 - 34*x^9 - 270*x^8 + 202*x^7 + 898*x^6 - 482*x^5 - 1448*x^4 + 376*x^3 + 1040*x^2 - 192, -2*x^12 + 2*x^11 + 38*x^10 - 34*x^9 - 270*x^8 + 202*x^7 + 898*x^6 - 482*x^5 - 1448*x^4 + 376*x^3 + 1040*x^2 - 192, -2*x^13 + 2*x^12 + 44*x^11 - 40*x^10 - 368*x^9 + 290*x^8 + 1460*x^7 - 900*x^6 - 2830*x^5 + 1048*x^4 + 2568*x^3 - 224*x^2 - 832*x - 128, -2*x^13 + 2*x^12 + 44*x^11 - 40*x^10 - 368*x^9 + 290*x^8 + 1460*x^7 - 900*x^6 - 2830*x^5 + 1048*x^4 + 2568*x^3 - 224*x^2 - 832*x - 128, x^14 - x^13 - 24*x^12 + 23*x^11 + 220*x^10 - 195*x^9 - 968*x^8 + 745*x^7 + 2135*x^6 - 1268*x^5 - 2324*x^4 + 896*x^3 + 1136*x^2 - 224*x - 192, x^14 - x^13 - 24*x^12 + 23*x^11 + 220*x^10 - 195*x^9 - 968*x^8 + 745*x^7 + 2135*x^6 - 1268*x^5 - 2324*x^4 + 896*x^3 + 1136*x^2 - 224*x - 192, x^15 - x^14 - 28*x^13 + 27*x^12 + 312*x^11 - 283*x^10 - 1760*x^9 + 1429*x^8 + 5303*x^7 - 3452*x^6 - 8380*x^5 + 3288*x^4 + 6584*x^3 - 608*x^2 - 1888*x - 256, x^15 - x^14 - 28*x^13 + 27*x^12 + 312*x^11 - 283*x^10 - 1760*x^9 + 1429*x^8 + 5303*x^7 - 3452*x^6 - 8380*x^5 + 3288*x^4 + 6584*x^3 - 608*x^2 - 1888*x - 256]>
       ]
>;

MOG[257] := 	// J_0(257)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 3,
           Coordinates        := [0, 30, 115, 121, 139, 198, 223, 249, 18*x + 20, 239*x + 20, 102*x + 26, 155*x + 26, 48*x + 28, 209*x + 28, 170*x + 52, 87*x + 52, 254*x + 34, 3*x + 34, 249*x + 135, 8*x + 135, 235*x + 37, 22*x + 37]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^7 + 3*x^6 - 3*x^5 - 11*x^4 + 3*x^3 + 10*x^2 - x - 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, -x^6 - 3*x^5 + x^4 + 6*x^3 - x, x^6 + 3*x^5 - x^4 - 6*x^3 + x, -x^5 - 3*x^4 + x^3 + 6*x^2 - 1, x^5 + 3*x^4 - x^3 - 6*x^2 + 1, -x^5 - 2*x^4 + 2*x^3 + 3*x^2 - x, x^5 + 2*x^4 - 2*x^3 - 3*x^2 + x, -x^4 - x^3 + 2*x^2, x^4 + x^3 - 2*x^2, -x^3 - x^2 + x, x^3 + x^2 - x, -x, x, -x^2, x^2]>,
         rec<Eigen |
           DefiningPolynomial := x^14 - 2*x^13 - 21*x^12 + 42*x^11 + 163*x^10 - 327*x^9 - 568*x^8 + 1153*x^7 + 830*x^6 - 1755*x^5 - 318*x^4 + 825*x^3 + 10*x^2 - 96*x - 1,
           Coordinates        := [-x^13 + 3*x^12 + 16*x^11 - 52*x^10 - 83*x^9 + 318*x^8 + 134*x^7 - 815*x^6 + 73*x^5 + 784*x^4 - 218*x^3 - 193*x^2 + 63*x + 3, x^13 - 5*x^12 - 10*x^11 + 80*x^10 - 9*x^9 - 434*x^8 + 338*x^7 + 903*x^6 - 971*x^5 - 536*x^4 + 632*x^3 + 73*x^2 - 93*x - 1, 2*x^10 - 10*x^9 - 6*x^8 + 92*x^7 - 74*x^6 - 206*x^5 + 270*x^4 - 12*x^3 - 12*x^2 - 8*x - 4, 2*x^10 - 10*x^9 - 6*x^8 + 94*x^7 - 80*x^6 - 226*x^5 + 330*x^4 + 50*x^3 - 222*x^2 + 60*x + 8, 2*x^9 - 8*x^8 - 8*x^7 + 54*x^6 - 6*x^5 - 86*x^4 - 20*x^3 + 82*x^2 - 10, 2*x^9 - 10*x^8 - 2*x^7 + 74*x^6 - 66*x^5 - 148*x^4 + 190*x^3 + 14*x^2 - 12*x - 10, 4*x^6 - 10*x^5 - 8*x^4 + 32*x^3 - 24*x^2 + 10*x - 4, 4*x^7 - 18*x^6 + 12*x^5 + 48*x^4 - 88*x^3 + 58*x^2 - 24*x + 8, x^12 - 5*x^11 - 8*x^10 + 71*x^9 - 24*x^8 - 326*x^7 + 322*x^6 + 500*x^5 - 701*x^4 - 49*x^3 + 238*x^2 - 47*x - 4, x^12 - 5*x^11 - 8*x^10 + 71*x^9 - 24*x^8 - 326*x^7 + 322*x^6 + 500*x^5 - 701*x^4 - 49*x^3 + 238*x^2 - 47*x - 4, x^11 - 5*x^10 - 4*x^9 + 51*x^8 - 36*x^7 - 140*x^6 + 168*x^5 + 68*x^4 - 101*x^3 - 11*x^2 + 4*x + 5, x^11 - 5*x^10 - 4*x^9 + 51*x^8 - 36*x^7 - 140*x^6 + 168*x^5 + 68*x^4 - 101*x^3 - 11*x^2 + 4*x + 5, x^11 - 4*x^10 - 11*x^9 + 57*x^8 + 20*x^7 - 263*x^6 + 102*x^5 + 419*x^4 - 293*x^3 - 109*x^2 + 85*x - 4, x^11 - 4*x^10 - 11*x^9 + 57*x^8 + 20*x^7 - 263*x^6 + 102*x^5 + 419*x^4 - 293*x^3 - 109*x^2 + 85*x - 4, x^10 - 3*x^9 - 13*x^8 + 43*x^7 + 43*x^6 - 183*x^5 - 11*x^4 + 233*x^3 - 44*x^2 - 42*x + 8, x^10 - 3*x^9 - 13*x^8 + 43*x^7 + 43*x^6 - 183*x^5 - 11*x^4 + 233*x^3 - 44*x^2 - 42*x + 8, x^9 - x^8 - 20*x^7 + 37*x^6 + 70*x^5 - 175*x^4 + 16*x^3 + 111*x^2 - 35*x - 4, x^9 - x^8 - 20*x^7 + 37*x^6 + 70*x^5 - 175*x^4 + 16*x^3 + 111*x^2 - 35*x - 4, 2*x^8 - 9*x^7 + 4*x^6 + 29*x^5 - 40*x^4 + 13*x^3 - x + 2, 2*x^8 - 9*x^7 + 4*x^6 + 29*x^5 - 40*x^4 + 13*x^3 - x + 2, x^8 + 2*x^7 - 27*x^6 + 14*x^5 + 113*x^4 - 102*x^3 - 73*x^2 + 38*x + 2, x^8 + 2*x^7 - 27*x^6 + 14*x^5 + 113*x^4 - 102*x^3 - 73*x^2 + 38*x + 2]>
       ]
>;

MOG[263] := 	// J_0(263)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 31, 37, 55, 85, 107, 108, 110, 141, 149, 150, 184, 208, 165*x + 162, 98*x + 162, 193*x + 84, 70*x + 84, 126*x + 55, 137*x + 55, 59*x + 23, 204*x + 23, 22*x + 53, 241*x + 53]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^5 + 2*x^4 - 3*x^3 - 6*x^2 + 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -x^4 - 2*x^3 + 2*x^2 + 4*x, x^4 + 2*x^3 - 2*x^2 - 4*x, -x^3 - 2*x^2 + 1, x^3 + 2*x^2 - 1, -x^2 - 2*x - 1, x^2 + 2*x + 1, -x^2 - x + 1, x^2 + x - 1, -x - 1, x + 1]>,
         rec<Eigen |
           DefiningPolynomial := x^17 - x^16 - 26*x^15 + 24*x^14 + 274*x^13 - 225*x^12 - 1505*x^11 + 1041*x^10 + 4613*x^9 - 2467*x^8 - 7815*x^7 + 2761*x^6 + 6709*x^5 - 974*x^4 - 2284*x^3 - 239*x^2 + 135*x + 19,
           Coordinates        := [-x^16 + x^15 + 24*x^14 - 22*x^13 - 230*x^12 + 185*x^11 + 1125*x^10 - 743*x^9 - 2976*x^8 + 1452*x^7 + 4131*x^6 - 1233*x^5 - 2641*x^4 + 304*x^3 + 548*x^2 - 10*x - 28, x^16 - x^15 - 26*x^14 + 24*x^13 + 270*x^12 - 219*x^11 - 1434*x^10 + 948*x^9 + 4143*x^8 - 1981*x^7 - 6353*x^6 + 1798*x^5 + 4508*x^4 - 480*x^3 - 944*x^2 + 20*x + 48, x^14 - x^13 - 21*x^12 + 21*x^11 + 168*x^10 - 159*x^9 - 647*x^8 + 534*x^7 + 1264*x^6 - 804*x^5 - 1188*x^4 + 460*x^3 + 420*x^2 - 22*x - 26, x^15 - x^14 - 24*x^13 + 24*x^12 + 224*x^11 - 215*x^10 - 1024*x^9 + 884*x^8 + 2377*x^7 - 1629*x^6 - 2627*x^5 + 1028*x^4 + 1084*x^3 + 112*x^2 - 48*x - 16, -2*x^15 + 2*x^14 + 44*x^13 - 40*x^12 - 380*x^11 + 298*x^10 + 1637*x^9 - 1015*x^8 - 3684*x^7 + 1528*x^6 + 4068*x^5 - 670*x^4 - 1736*x^3 - 249*x^2 + 107*x + 19, x^14 - x^13 - 22*x^12 + 22*x^11 + 183*x^10 - 172*x^9 - 727*x^8 + 585*x^7 + 1447*x^6 - 858*x^5 - 1328*x^4 + 416*x^3 + 378*x^2 - 20*x - 22, -2*x^14 + 2*x^13 + 40*x^12 - 38*x^11 - 304*x^10 + 266*x^9 + 1101*x^8 - 847*x^7 - 1972*x^6 + 1231*x^5 + 1679*x^4 - 681*x^3 - 593*x^2 + 29*x + 36, -2*x^13 + 38*x^11 + 4*x^10 - 266*x^9 - 64*x^8 + 829*x^7 + 336*x^6 - 1075*x^5 - 638*x^4 + 382*x^3 + 343*x^2 - 2*x - 26, -2*x^13 + 2*x^12 + 38*x^11 - 36*x^10 - 270*x^9 + 232*x^8 + 883*x^7 - 633*x^6 - 1314*x^5 + 627*x^4 + 761*x^3 - 65*x^2 - 69*x + 7, x^13 - x^12 - 17*x^11 + 17*x^10 + 100*x^9 - 101*x^8 - 229*x^7 + 266*x^6 + 134*x^5 - 388*x^4 + 92*x^3 + 326*x^2 + 24*x - 30, x^13 - 21*x^11 + 168*x^9 + 9*x^8 - 638*x^7 - 104*x^6 + 1160*x^5 + 356*x^4 - 832*x^3 - 372*x^2 + 48*x + 26, x^15 - x^14 - 24*x^13 + 22*x^12 + 227*x^11 - 176*x^10 - 1083*x^9 + 617*x^8 + 2769*x^7 - 862*x^6 - 3642*x^5 + 136*x^4 + 1992*x^3 + 396*x^2 - 146*x - 22, -2*x^12 + 4*x^11 + 34*x^10 - 64*x^9 - 208*x^8 + 354*x^7 + 561*x^6 - 794*x^5 - 659*x^4 + 642*x^3 + 248*x^2 - 53*x - 10, 2*x^12 - 2*x^11 - 34*x^10 + 29*x^9 + 209*x^8 - 134*x^7 - 565*x^6 + 208*x^5 + 640*x^4 - 67*x^3 - 198*x^2 - 4*x + 13, 2*x^12 - 2*x^11 - 34*x^10 + 29*x^9 + 209*x^8 - 134*x^7 - 565*x^6 + 208*x^5 + 640*x^4 - 67*x^3 - 198*x^2 - 4*x + 13, x^13 + x^12 - 21*x^11 - 22*x^10 + 173*x^9 + 175*x^8 - 690*x^7 - 619*x^6 + 1300*x^5 + 980*x^4 - 932*x^3 - 578*x^2 + 42*x + 40, x^13 + x^12 - 21*x^11 - 22*x^10 + 173*x^9 + 175*x^8 - 690*x^7 - 619*x^6 + 1300*x^5 + 980*x^4 - 932*x^3 - 578*x^2 + 42*x + 40, x^13 - 22*x^11 + 2*x^10 + 178*x^9 - 16*x^8 - 661*x^7 + 2*x^6 + 1157*x^5 + 140*x^4 - 807*x^3 - 208*x^2 + 62*x + 11, x^13 - 22*x^11 + 2*x^10 + 178*x^9 - 16*x^8 - 661*x^7 + 2*x^6 + 1157*x^5 + 140*x^4 - 807*x^3 - 208*x^2 + 62*x + 11, x^14 - 23*x^12 + 2*x^11 + 205*x^10 - 32*x^9 - 883*x^8 + 176*x^7 + 1863*x^6 - 385*x^5 - 1712*x^4 + 296*x^3 + 448*x^2 - 18*x - 24, x^14 - 23*x^12 + 2*x^11 + 205*x^10 - 32*x^9 - 883*x^8 + 176*x^7 + 1863*x^6 - 385*x^5 - 1712*x^4 + 296*x^3 + 448*x^2 - 18*x - 24, -x^12 + x^11 + 17*x^10 - 17*x^9 - 109*x^8 + 107*x^7 + 329*x^6 - 302*x^5 - 459*x^4 + 308*x^3 + 262*x^2 - 11*x - 18, -x^12 + x^11 + 17*x^10 - 17*x^9 - 109*x^8 + 107*x^7 + 329*x^6 - 302*x^5 - 459*x^4 + 308*x^3 + 262*x^2 - 11*x - 18]>
       ]
>;

MOG[269] := 	// J_0(269)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 2,
           Coordinates        := [0, 5, 92, 111, 122, 142, 189, 197, 199, 200, 215, 75*x + 258, 194*x + 258, 186*x + 178, 83*x + 178, 82*x + 82, 187*x + 82, 33*x + 253, 236*x + 253, 74*x + 193, 195*x + 193, 256*x + 153, 13*x + 153]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1, 1, -1, 0, 0, 0, 0, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^5 + x^4 - 5*x^3 - 4*x^2 + 5*x + 3,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -x^4 - x^3 + 3*x^2 + 2*x, x^4 + x^3 - 3*x^2 - 2*x, -x^3 - x^2 + 3*x + 2, x^3 + x^2 - 3*x - 2, -x^3 - x^2 + 2*x + 1, x^3 + x^2 - 2*x - 1, -x^2 - x, x^2 + x, -x, x, -x - 1, x + 1]>,
         rec<Eigen |
           DefiningPolynomial := x^16 - x^15 - 28*x^14 + 27*x^13 + 314*x^12 - 283*x^11 - 1803*x^10 + 1435*x^9 + 5637*x^8 - 3547*x^7 - 9470*x^6 + 3701*x^5 + 7860*x^4 - 1001*x^3 - 2363*x^2 - 43*x + 172,
           Coordinates        := [-x^15 + x^14 + 25*x^13 - 24*x^12 - 245*x^11 + 219*x^10 + 1192*x^9 - 932*x^8 - 3015*x^7 + 1801*x^6 + 3813*x^5 - 1230*x^4 - 2067*x^3 + 35*x^2 + 202*x - 14, x^15 - x^14 - 25*x^13 + 24*x^12 + 249*x^11 - 227*x^10 - 1254*x^9 + 1060*x^8 + 3329*x^7 - 2471*x^6 - 4407*x^5 + 2532*x^4 + 2549*x^3 - 973*x^2 - 394*x + 120, 2*x^13 - 2*x^12 - 40*x^11 + 40*x^10 + 296*x^9 - 290*x^8 - 990*x^7 + 906*x^6 + 1468*x^5 - 1120*x^4 - 898*x^3 + 510*x^2 + 162*x - 60, 2*x^12 - 2*x^11 - 44*x^10 + 38*x^9 + 354*x^8 - 252*x^7 - 1264*x^6 + 636*x^5 + 1934*x^4 - 370*x^3 - 1068*x^2 - 66*x + 102, -2*x^9 + 16*x^7 - 30*x^6 - 16*x^5 + 230*x^4 - 72*x^3 - 410*x^2 - 54*x + 50, x^14 - x^13 - 21*x^12 + 20*x^11 + 169*x^10 - 147*x^9 - 662*x^8 + 480*x^7 + 1349*x^6 - 659*x^5 - 1471*x^4 + 292*x^3 + 753*x^2 + 47*x - 70, 2*x^13 - 2*x^12 - 42*x^11 + 34*x^10 + 336*x^9 - 190*x^8 - 1292*x^7 + 344*x^6 + 2450*x^5 + 126*x^4 - 1906*x^3 - 634*x^2 + 148*x + 50, 2*x^12 - 42*x^10 + 4*x^9 + 334*x^8 - 54*x^7 - 1230*x^6 + 198*x^5 + 2044*x^4 - 74*x^3 - 1344*x^2 - 154*x + 140, -6*x^11 + 2*x^10 + 112*x^9 - 34*x^8 - 746*x^7 + 174*x^6 + 2098*x^5 - 194*x^4 - 2160*x^3 - 320*x^2 + 238*x + 4, -3*x^14 + 3*x^13 + 69*x^12 - 64*x^11 - 611*x^10 + 503*x^9 + 2622*x^8 - 1746*x^7 - 5657*x^6 + 2471*x^5 + 5793*x^4 - 966*x^3 - 2161*x^2 - 57*x + 172, -2*x^10 + 4*x^9 + 16*x^8 - 62*x^7 + 44*x^6 + 262*x^5 - 532*x^4 - 266*x^3 + 766*x^2 + 158*x - 100, -3*x^12 + 4*x^11 + 55*x^10 - 73*x^9 - 356*x^8 + 460*x^7 + 962*x^6 - 1146*x^5 - 983*x^4 + 920*x^3 + 279*x^2 - 117*x - 2, -3*x^12 + 4*x^11 + 55*x^10 - 73*x^9 - 356*x^8 + 460*x^7 + 962*x^6 - 1146*x^5 - 983*x^4 + 920*x^3 + 279*x^2 - 117*x - 2, -x^11 + 2*x^10 + 9*x^9 - 31*x^8 + 14*x^7 + 146*x^6 - 258*x^5 - 248*x^4 + 419*x^3 + 284*x^2 - 23*x - 25, -x^11 + 2*x^10 + 9*x^9 - 31*x^8 + 14*x^7 + 146*x^6 - 258*x^5 - 248*x^4 + 419*x^3 + 284*x^2 - 23*x - 25, -3*x^13 + 4*x^12 + 62*x^11 - 77*x^10 - 477*x^9 + 525*x^8 + 1694*x^7 - 1466*x^6 - 2823*x^5 + 1362*x^4 + 2020*x^3 - 81*x^2 - 217*x + 21, -3*x^13 + 4*x^12 + 62*x^11 - 77*x^10 - 477*x^9 + 525*x^8 + 1694*x^7 - 1466*x^6 - 2823*x^5 + 1362*x^4 + 2020*x^3 - 81*x^2 - 217*x + 21, x^13 - 4*x^12 - 17*x^11 + 79*x^10 + 95*x^9 - 572*x^8 - 180*x^7 + 1872*x^6 + 37*x^5 - 2790*x^4 - 35*x^3 + 1665*x^2 + 195*x - 170, x^13 - 4*x^12 - 17*x^11 + 79*x^10 + 95*x^9 - 572*x^8 - 180*x^7 + 1872*x^6 + 37*x^5 - 2790*x^4 - 35*x^3 + 1665*x^2 + 195*x - 170, x^12 - x^11 - 18*x^10 + 19*x^9 + 118*x^8 - 120*x^7 - 354*x^6 + 288*x^5 + 523*x^4 - 223*x^3 - 332*x^2 - 11*x + 30, x^12 - x^11 - 18*x^10 + 19*x^9 + 118*x^8 - 120*x^7 - 354*x^6 + 288*x^5 + 523*x^4 - 223*x^3 - 332*x^2 - 11*x + 30, x^14 - x^13 - 22*x^12 + 18*x^11 + 190*x^10 - 114*x^9 - 823*x^8 + 298*x^7 + 1857*x^6 - 255*x^5 - 1920*x^4 - 132*x^3 + 608*x^2 + 58*x - 51, x^14 - x^13 - 22*x^12 + 18*x^11 + 190*x^10 - 114*x^9 - 823*x^8 + 298*x^7 + 1857*x^6 - 255*x^5 - 1920*x^4 - 132*x^3 + 608*x^2 + 58*x - 51]>
       ]
>;

MOG[271] := 	// J_0(271)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [23, 47, 69, 98, 102, 125, 141, 148, 202, 236, 240, 163*x + 35, 108*x + 35, 68*x + 183, 203*x + 183, 192*x + 162, 79*x + 162, 126*x + 231, 145*x + 231, 195*x + 238, 76*x + 238, 49*x + 57, 222*x + 57]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^6 + 4*x^5 + x^4 - 9*x^3 - 4*x^2 + 5*x + 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -x^5 - 3*x^4 + x^3 + 5*x^2 - x - 1, x^5 + 3*x^4 - x^3 - 5*x^2 + x + 1, 1, -1, -x^4 - 3*x^3 + 3*x, x^4 + 3*x^3 - 3*x, x, -x, -x^3 - 2*x^2 + x + 1, x^3 + 2*x^2 - x - 1, x^2 + x - 1, -x^2 - x + 1]>,
         rec<Eigen |
           DefiningPolynomial := x^16 - 5*x^15 - 12*x^14 + 91*x^13 + 11*x^12 - 620*x^11 + 381*x^10 + 1953*x^9 - 1863*x^8 - 2853*x^7 + 3137*x^6 + 1830*x^5 - 1758*x^4 - 831*x^3 + 308*x^2 + 204*x + 27,
           Coordinates        := [-x^15 + 5*x^14 + 9*x^13 - 75*x^12 + 6*x^11 + 409*x^10 - 249*x^9 - 1030*x^8 + 766*x^7 + 1277*x^6 - 784*x^5 - 808*x^4 + 197*x^3 + 238*x^2 + 38*x - 1, x^15 - 5*x^14 - 9*x^13 + 76*x^12 - 9*x^11 - 425*x^10 + 306*x^9 + 1087*x^8 - 1080*x^7 - 1240*x^6 + 1376*x^5 + 526*x^4 - 510*x^3 - 150*x^2 + 48*x + 14, -x^14 + 6*x^13 + 3*x^12 - 77*x^11 + 80*x^10 + 317*x^9 - 527*x^8 - 458*x^7 + 1053*x^6 + 164*x^5 - 631*x^4 - 169*x^3 + 144*x^2 + 79*x + 11, -2*x^12 + 8*x^11 + 17*x^10 - 96*x^9 - 8*x^8 + 357*x^7 - 157*x^6 - 494*x^5 + 261*x^4 + 249*x^3 - 63*x^2 - 64*x - 10, -x^10 + 3*x^9 + 9*x^8 - 34*x^7 - 5*x^6 + 91*x^5 - 44*x^4 - 61*x^3 + 18*x^2 + 22*x + 4, 2*x^13 - 10*x^12 - 11*x^11 + 120*x^10 - 69*x^9 - 459*x^8 + 539*x^7 + 597*x^6 - 1014*x^5 - 107*x^4 + 516*x^3 + 25*x^2 - 105*x - 22, x^14 - 5*x^13 - 8*x^12 + 71*x^11 - 15*x^10 - 360*x^9 + 263*x^8 + 823*x^7 - 715*x^6 - 902*x^5 + 638*x^4 + 533*x^3 - 146*x^2 - 152*x - 25, -x^12 + 4*x^11 + 11*x^10 - 55*x^9 - 28*x^8 + 253*x^7 - 30*x^6 - 458*x^5 + 139*x^4 + 279*x^3 - 28*x^2 - 69*x - 13, x^12 - 4*x^11 - 9*x^10 + 47*x^9 + 19*x^8 - 193*x^7 + 32*x^6 + 295*x^5 - 94*x^4 - 123*x^3 + 9*x^2 + 16*x + 2, -x^11 + 4*x^10 + 6*x^9 - 43*x^8 + 29*x^7 + 96*x^6 - 135*x^5 - 17*x^4 + 79*x^3 + 4*x^2 - 18*x - 4, -x^13 + 6*x^12 + 3*x^11 - 77*x^10 + 82*x^9 + 309*x^8 - 536*x^7 - 398*x^6 + 1055*x^5 + x^4 - 586*x^3 - 13*x^2 + 125*x + 26, -x^13 + 4*x^12 + 9*x^11 - 50*x^10 - 7*x^9 + 200*x^8 - 93*x^7 - 295*x^6 + 198*x^5 + 133*x^4 - 71*x^3 - 34*x^2 + 4*x + 2, -x^13 + 4*x^12 + 9*x^11 - 50*x^10 - 7*x^9 + 200*x^8 - 93*x^7 - 295*x^6 + 198*x^5 + 133*x^4 - 71*x^3 - 34*x^2 + 4*x + 2, x^14 - 5*x^13 - 6*x^12 + 62*x^11 - 30*x^10 - 253*x^9 + 260*x^8 + 395*x^7 - 523*x^6 - 201*x^5 + 305*x^4 + 74*x^3 - 57*x^2 - 19*x - 1, x^14 - 5*x^13 - 6*x^12 + 62*x^11 - 30*x^10 - 253*x^9 + 260*x^8 + 395*x^7 - 523*x^6 - 201*x^5 + 305*x^4 + 74*x^3 - 57*x^2 - 19*x - 1, -x^14 + 5*x^13 + 7*x^12 - 67*x^11 + 26*x^10 + 303*x^9 - 285*x^8 - 559*x^7 + 650*x^6 + 429*x^5 - 465*x^4 - 212*x^3 + 101*x^2 + 62*x + 8, -x^14 + 5*x^13 + 7*x^12 - 67*x^11 + 26*x^10 + 303*x^9 - 285*x^8 - 559*x^7 + 650*x^6 + 429*x^5 - 465*x^4 - 212*x^3 + 101*x^2 + 62*x + 8, x^13 - 4*x^12 - 10*x^11 + 52*x^10 + 23*x^9 - 233*x^8 + 18*x^7 + 442*x^6 - 57*x^5 - 345*x^4 - 63*x^3 + 106*x^2 + 56*x + 8, x^13 - 4*x^12 - 10*x^11 + 52*x^10 + 23*x^9 - 233*x^8 + 18*x^7 + 442*x^6 - 57*x^5 - 345*x^4 - 63*x^3 + 106*x^2 + 56*x + 8, -x^13 + 4*x^12 + 11*x^11 - 56*x^10 - 29*x^9 + 271*x^8 - 23*x^7 - 553*x^6 + 121*x^5 + 463*x^4 - 25*x^3 - 142*x^2 - 34*x - 1, -x^13 + 4*x^12 + 11*x^11 - 56*x^10 - 29*x^9 + 271*x^8 - 23*x^7 - 553*x^6 + 121*x^5 + 463*x^4 - 25*x^3 - 142*x^2 - 34*x - 1, x^10 - 3*x^9 - 9*x^8 + 29*x^7 + 24*x^6 - 87*x^5 - 23*x^4 + 95*x^3 + 7*x^2 - 29*x - 7, x^10 - 3*x^9 - 9*x^8 + 29*x^7 + 24*x^6 - 87*x^5 - 23*x^4 + 95*x^3 + 7*x^2 - 29*x - 7]>
       ]
>;

MOG[277] := 	// J_0(277)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 2,
           Coordinates        := [61, 195, 244, 44*x + 22, 233*x + 22, 229*x + 41, 48*x + 41, 222*x + 110, 55*x + 110, 132*x + 93, 145*x + 93, x + 169, 276*x + 169, 252*x + 2, 25*x + 2, 194*x + 191, 83*x + 191, 56*x + 53, 221*x + 53, 31*x + 261, 246*x + 261, 36*x + 163, 241*x + 163]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x - 1,
           Coordinates        := [0, 0, 0, 1, -1, 1, -1, 0, 0, 0, 0, 0, 0, -1, 1, 0, 0, -1, 1, 0, 0, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^3 + x^2 - 3*x - 1,
           Coordinates        := [-x - 1, -x^2 - x, -x^2 - 2*x + 1, -1, -1, x^2 + x - 1, x^2 + x - 1, 0, 0, x + 1, x + 1, x + 1, x + 1, 1, 1, 0, 0, -x, -x, 0, 0, -1, -1]>,
         rec<Eigen |
           DefiningPolynomial := x^9 + 6*x^8 + 4*x^7 - 37*x^6 - 69*x^5 + 24*x^4 + 119*x^3 + 34*x^2 - 52*x - 25,
           Coordinates        := [0, 0, 0, x^8 + 5*x^7 - 33*x^5 - 40*x^4 + 30*x^3 + 54*x^2 - 3*x - 13, -x^8 - 5*x^7 + 33*x^5 + 40*x^4 - 30*x^3 - 54*x^2 + 3*x + 13, -x^8 - 5*x^7 - x^6 + 28*x^5 + 36*x^4 - 18*x^3 - 38*x^2 + x + 9, x^8 + 5*x^7 + x^6 - 28*x^5 - 36*x^4 + 18*x^3 + 38*x^2 - x - 9, x^7 + 5*x^6 + x^5 - 30*x^4 - 47*x^3 + x^2 + 38*x + 16, -x^7 - 5*x^6 - x^5 + 30*x^4 + 47*x^3 - x^2 - 38*x - 16, -x^7 - 4*x^6 + 2*x^5 + 22*x^4 + 15*x^3 - 14*x^2 - 7*x + 2, x^7 + 4*x^6 - 2*x^5 - 22*x^4 - 15*x^3 + 14*x^2 + 7*x - 2, -x^7 - 5*x^6 - 2*x^5 + 24*x^4 + 36*x^3 - 5*x^2 - 33*x - 14, x^7 + 5*x^6 + 2*x^5 - 24*x^4 - 36*x^3 + 5*x^2 + 33*x + 14, -2*x^4 - 9*x^3 - 9*x^2 + 4*x + 5, 2*x^4 + 9*x^3 + 9*x^2 - 4*x - 5, x^6 + 3*x^5 - 5*x^4 - 20*x^3 - 7*x^2 + 15*x + 8, -x^6 - 3*x^5 + 5*x^4 + 20*x^3 + 7*x^2 - 15*x - 8, -x^6 - 4*x^5 + x^4 + 19*x^3 + 17*x^2 - 6*x - 7, x^6 + 4*x^5 - x^4 - 19*x^3 - 17*x^2 + 6*x + 7, -x^6 - 4*x^5 + 2*x^4 + 22*x^3 + 14*x^2 - 19*x - 14, x^6 + 4*x^5 - 2*x^4 - 22*x^3 - 14*x^2 + 19*x + 14, -x^5 - 3*x^4 + 2*x^3 + 8*x^2 - 2, x^5 + 3*x^4 - 2*x^3 - 8*x^2 + 2]>,
         rec<Eigen |
           DefiningPolynomial := x^9 - 4*x^8 - 6*x^7 + 37*x^6 - 3*x^5 - 100*x^4 + 49*x^3 + 64*x^2 - 20*x - 1,
           Coordinates        := [2*x^8 - 4*x^7 - 22*x^6 + 52*x^5 + 38*x^4 - 140*x^3 + 70*x^2 - 14*x + 6, 4*x^8 - 14*x^7 - 20*x^6 + 100*x^5 + 4*x^4 - 200*x^3 + 50*x^2 + 96*x - 6, -2*x^8 + 34*x^6 - 24*x^5 - 136*x^4 + 116*x^3 + 126*x^2 - 78*x - 8, -3*x^8 + 11*x^7 + 8*x^6 - 59*x^5 + 26*x^4 + 54*x^3 - 38*x^2 + 15*x + 3, -3*x^8 + 11*x^7 + 8*x^6 - 59*x^5 + 26*x^4 + 54*x^3 - 38*x^2 + 15*x + 3, x^8 - 7*x^7 + 7*x^6 + 38*x^5 - 66*x^4 - 42*x^3 + 88*x^2 + 9*x - 7, x^8 - 7*x^7 + 7*x^6 + 38*x^5 - 66*x^4 - 42*x^3 + 88*x^2 + 9*x - 7, -3*x^7 + 11*x^6 + 3*x^5 - 44*x^4 + 35*x^3 - 7*x^2 + 12*x + 12, -3*x^7 + 11*x^6 + 3*x^5 - 44*x^4 + 35*x^3 - 7*x^2 + 12*x + 12, x^7 - 2*x^6 - 8*x^5 + 12*x^4 + 27*x^3 - 18*x^2 - 45*x + 8, x^7 - 2*x^6 - 8*x^5 + 12*x^4 + 27*x^3 - 18*x^2 - 45*x + 8, x^7 - 5*x^6 + 4*x^5 + 20*x^4 - 42*x^3 + x^2 + 43*x - 10, x^7 - 5*x^6 + 4*x^5 + 20*x^4 - 42*x^3 + x^2 + 43*x - 10, -2*x^6 + 10*x^5 - 4*x^4 - 43*x^3 + 51*x^2 + 6*x + 3, -2*x^6 + 10*x^5 - 4*x^4 - 43*x^3 + 51*x^2 + 6*x + 3, -3*x^6 + 5*x^5 + 13*x^4 - 18*x^3 - x^2 - 9*x - 6, -3*x^6 + 5*x^5 + 13*x^4 - 18*x^3 - x^2 - 9*x - 6, 4*x^7 - 13*x^6 - 18*x^5 + 81*x^4 - 3*x^3 - 115*x^2 + 44*x - 1, 4*x^7 - 13*x^6 - 18*x^5 + 81*x^4 - 3*x^3 - 115*x^2 + 44*x - 1, 2*x^7 - x^6 - 28*x^5 + 28*x^4 + 86*x^3 - 96*x^2 - 25*x + 4, 2*x^7 - x^6 - 28*x^5 + 28*x^4 + 86*x^3 - 96*x^2 - 25*x + 4, 4*x^6 - 11*x^5 - 19*x^4 + 58*x^3 + 12*x^2 - 52*x - 2, 4*x^6 - 11*x^5 - 19*x^4 + 58*x^3 + 12*x^2 - 52*x - 2]>
       ]
>;

MOG[281] := 	// J_0(281)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 3,
           Coordinates        := [0, 5, 48, 84, 90, 109, 130, 133, 249, 252, 278*x + 75, 3*x + 75, 257*x + 132, 24*x + 132, 104*x + 180, 177*x + 180, 131*x + 181, 150*x + 181, 149*x + 122, 132*x + 122, 43*x + 19, 238*x + 19, 182*x + 116, 99*x + 116]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^7 + 2*x^6 - 5*x^5 - 9*x^4 + 7*x^3 + 10*x^2 - 2*x - 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -x^6 - 2*x^5 + 3*x^4 + 6*x^3 - 2*x^2 - 4*x, x^6 + 2*x^5 - 3*x^4 - 6*x^3 + 2*x^2 + 4*x, -x^5 - x^4 + 3*x^3 + 2*x^2 - 2*x - 1, x^5 + x^4 - 3*x^3 - 2*x^2 + 2*x + 1, -x^5 - 2*x^4 + 2*x^3 + 4*x^2, x^5 + 2*x^4 - 2*x^3 - 4*x^2, -x^4 - x^3 + 2*x^2 + x - 1, x^4 + x^3 - 2*x^2 - x + 1, -x^4 - 2*x^3 + 2*x^2 + 4*x, x^4 + 2*x^3 - 2*x^2 - 4*x, -x^3 - x^2 + x + 1, x^3 + x^2 - x - 1, -x^2 + 1, x^2 - 1]>,
         rec<Eigen |
           DefiningPolynomial := x^16 + x^15 - 27*x^14 - 24*x^13 + 294*x^12 + 229*x^11 - 1650*x^10 - 1115*x^9 + 5054*x^8 + 2991*x^7 - 8223*x^6 - 4526*x^5 + 6338*x^4 + 3707*x^3 - 1604*x^2 - 1215*x - 167,
           Coordinates        := [-x^15 - x^14 + 24*x^13 + 21*x^12 - 228*x^11 - 172*x^10 + 1086*x^9 + 701*x^8 - 2710*x^7 - 1524*x^6 + 3393*x^5 + 1774*x^4 - 1909*x^3 - 943*x^2 + 345*x + 144, x^15 + x^14 - 24*x^13 - 19*x^12 + 232*x^11 + 138*x^10 - 1142*x^9 - 487*x^8 + 2972*x^7 + 918*x^6 - 3863*x^5 - 1030*x^4 + 2219*x^3 + 583*x^2 - 387*x - 80, -3*x^14 - 3*x^13 + 66*x^12 + 57*x^11 - 564*x^10 - 414*x^9 + 2344*x^8 + 1467*x^7 - 4830*x^6 - 2752*x^5 + 4429*x^4 + 2764*x^3 - 1259*x^2 - 1071*x - 167, x^14 + x^13 - 20*x^12 - 15*x^11 + 156*x^10 + 70*x^9 - 598*x^8 - 63*x^7 + 1172*x^6 - 262*x^5 - 1143*x^4 + 414*x^3 + 559*x^2 - 105*x - 71, -4*x^10 + 48*x^8 - 6*x^7 - 170*x^6 + 42*x^5 + 150*x^4 - 38*x^3 + 34*x^2 + 2*x - 58, 2*x^12 + 4*x^11 - 34*x^10 - 72*x^9 + 210*x^8 + 470*x^7 - 576*x^6 - 1332*x^5 + 660*x^4 + 1530*x^3 - 66*x^2 - 584*x - 148, 2*x^11 - 2*x^10 - 32*x^9 + 22*x^8 + 170*x^7 - 66*x^6 - 332*x^5 + 32*x^4 + 176*x^3 + 80*x + 78, 2*x^12 - 4*x^11 - 40*x^10 + 72*x^9 + 296*x^8 - 464*x^7 - 984*x^6 + 1246*x^5 + 1456*x^4 - 1172*x^3 - 960*x^2 + 250*x + 142, 2*x^11 - 2*x^10 - 46*x^9 + 34*x^8 + 366*x^7 - 202*x^6 - 1214*x^5 + 446*x^4 + 1564*x^3 - 144*x^2 - 720*x - 148, 2*x^13 + 2*x^12 - 38*x^11 - 34*x^10 + 272*x^9 + 212*x^8 - 900*x^7 - 590*x^6 + 1360*x^5 + 722*x^4 - 830*x^3 - 344*x^2 + 158*x + 40, -3*x^13 - 3*x^12 + 60*x^11 + 51*x^10 - 457*x^9 - 318*x^8 + 1650*x^7 + 910*x^6 - 2875*x^5 - 1279*x^4 + 2234*x^3 + 879*x^2 - 601*x - 216, -3*x^13 - 3*x^12 + 60*x^11 + 51*x^10 - 457*x^9 - 318*x^8 + 1650*x^7 + 910*x^6 - 2875*x^5 - 1279*x^4 + 2234*x^3 + 879*x^2 - 601*x - 216, -3*x^12 - 5*x^11 + 54*x^10 + 84*x^9 - 356*x^8 - 515*x^7 + 1037*x^6 + 1425*x^5 - 1248*x^4 - 1820*x^3 + 361*x^2 + 863*x + 187, -3*x^12 - 5*x^11 + 54*x^10 + 84*x^9 - 356*x^8 - 515*x^7 + 1037*x^6 + 1425*x^5 - 1248*x^4 - 1820*x^3 + 361*x^2 + 863*x + 187, -3*x^12 - x^11 + 53*x^10 + 12*x^9 - 338*x^8 - 42*x^7 + 918*x^6 + 48*x^5 - 947*x^4 - 65*x^3 + 297*x^2 - 8*x - 20, -3*x^12 - x^11 + 53*x^10 + 12*x^9 - 338*x^8 - 42*x^7 + 918*x^6 + 48*x^5 - 947*x^4 - 65*x^3 + 297*x^2 - 8*x - 20, x^12 - x^11 - 21*x^10 + 17*x^9 + 159*x^8 - 98*x^7 - 522*x^6 + 202*x^5 + 707*x^4 - 53*x^3 - 377*x^2 - 75*x + 29, x^12 - x^11 - 21*x^10 + 17*x^9 + 159*x^8 - 98*x^7 - 522*x^6 + 202*x^5 + 707*x^4 - 53*x^3 - 377*x^2 - 75*x + 29, -3*x^11 + x^10 + 47*x^9 - 20*x^8 - 268*x^7 + 122*x^6 + 682*x^5 - 242*x^4 - 765*x^3 + 73*x^2 + 331*x + 74, -3*x^11 + x^10 + 47*x^9 - 20*x^8 - 268*x^7 + 122*x^6 + 682*x^5 - 242*x^4 - 765*x^3 + 73*x^2 + 331*x + 74, x^13 + 2*x^12 - 18*x^11 - 35*x^10 + 121*x^9 + 224*x^8 - 373*x^7 - 633*x^6 + 496*x^5 + 749*x^4 - 121*x^3 - 292*x^2 - 114*x - 39, x^13 + 2*x^12 - 18*x^11 - 35*x^10 + 121*x^9 + 224*x^8 - 373*x^7 - 633*x^6 + 496*x^5 + 749*x^4 - 121*x^3 - 292*x^2 - 114*x - 39, x^14 + 2*x^13 - 21*x^12 - 38*x^11 + 176*x^10 + 279*x^9 - 742*x^8 - 1005*x^7 + 1594*x^6 + 1879*x^5 - 1488*x^4 - 1769*x^3 + 329*x^2 + 620*x + 119, x^14 + 2*x^13 - 21*x^12 - 38*x^11 + 176*x^10 + 279*x^9 - 742*x^8 - 1005*x^7 + 1594*x^6 + 1879*x^5 - 1488*x^4 - 1769*x^3 + 329*x^2 + 620*x + 119]>
       ]
>;

MOG[283] := 	// J_0(283)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [21, 30, 60, 78, 122, 251, 246*x + 29, 37*x + 29, 175*x + 255, 108*x + 255, 97*x + 86, 186*x + 86, 173*x + 196, 110*x + 196, 212*x + 119, 71*x + 119, 115*x + 208, 168*x + 208, 208*x + 183, 75*x + 183, 106*x, 177*x, 188*x + 177, 95*x + 177]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^9 + 6*x^8 + 5*x^7 - 29*x^6 - 50*x^5 + 27*x^4 + 83*x^3 + 19*x^2 - 13*x + 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, -x^8 - 6*x^7 - 7*x^6 + 18*x^5 + 38*x^4 - 3*x^3 - 37*x^2 - 11*x + 4, x^8 + 6*x^7 + 7*x^6 - 18*x^5 - 38*x^4 + 3*x^3 + 37*x^2 + 11*x - 4, -x^7 - 6*x^6 - 9*x^5 + 8*x^4 + 29*x^3 + 19*x^2 + x - 1, x^7 + 6*x^6 + 9*x^5 - 8*x^4 - 29*x^3 - 19*x^2 - x + 1, -x^7 - 5*x^6 - 3*x^5 + 16*x^4 + 17*x^3 - 11*x^2 - 10*x + 2, x^7 + 5*x^6 + 3*x^5 - 16*x^4 - 17*x^3 + 11*x^2 + 10*x - 2, -x^6 - 5*x^5 - 4*x^4 + 12*x^3 + 17*x^2 + 2*x - 1, x^6 + 5*x^5 + 4*x^4 - 12*x^3 - 17*x^2 - 2*x + 1, -x^6 - 5*x^5 - 5*x^4 + 10*x^3 + 21*x^2 + 8*x - 3, x^6 + 5*x^5 + 5*x^4 - 10*x^3 - 21*x^2 - 8*x + 3, -x^6 - 5*x^5 - 5*x^4 + 9*x^3 + 16*x^2 + 3*x - 2, x^6 + 5*x^5 + 5*x^4 - 9*x^3 - 16*x^2 - 3*x + 2, -x^5 - 3*x^4 + 2*x^3 + 10*x^2 + 4*x - 2, x^5 + 3*x^4 - 2*x^3 - 10*x^2 - 4*x + 2, -x^5 - 3*x^4 + x^3 + 7*x^2 + 2*x - 1, x^5 + 3*x^4 - x^3 - 7*x^2 - 2*x + 1, -x^5 - 4*x^4 - 2*x^3 + 7*x^2 + 6*x - 1, x^5 + 4*x^4 + 2*x^3 - 7*x^2 - 6*x + 1]>,
         rec<Eigen |
           DefiningPolynomial := x^14 - 6*x^13 - 4*x^12 + 83*x^11 - 77*x^10 - 394*x^9 + 617*x^8 + 724*x^7 - 1566*x^6 - 370*x^5 + 1489*x^4 - 153*x^3 - 410*x^2 + 120*x - 8,
           Coordinates        := [-x^13 + 4*x^12 + 11*x^11 - 57*x^10 - 28*x^9 + 289*x^8 - 53*x^7 - 621*x^6 + 259*x^5 + 531*x^4 - 234*x^3 - 130*x^2 + 70*x - 4, x^13 - 5*x^12 - 7*x^11 + 66*x^10 - 21*x^9 - 303*x^8 + 260*x^7 + 564*x^6 - 614*x^5 - 376*x^4 + 457*x^3 + 40*x^2 - 88*x + 12, -x^11 + 4*x^10 + 7*x^9 - 41*x^8 + 129*x^6 - 71*x^5 - 115*x^4 + 111*x^3 - 31*x^2 - 20*x + 4, -x^11 + 4*x^10 + 7*x^9 - 39*x^8 - 12*x^7 + 135*x^6 + 5*x^5 - 231*x^4 + 43*x^3 + 137*x^2 - 50*x, -x^12 + 4*x^11 + 9*x^10 - 49*x^9 - 14*x^8 + 209*x^7 - 65*x^6 - 357*x^5 + 193*x^4 + 185*x^3 - 80*x^2 - 24*x, 2*x^12 - 10*x^11 - 10*x^10 + 112*x^9 - 54*x^8 - 420*x^7 + 388*x^6 + 608*x^5 - 656*x^4 - 264*x^3 + 282*x^2 - 20*x - 4, 2*x^11 - 10*x^10 - 6*x^9 + 93*x^8 - 66*x^7 - 260*x^6 + 286*x^5 + 244*x^4 - 316*x^3 - 50*x^2 + 86*x - 12, 2*x^11 - 10*x^10 - 6*x^9 + 93*x^8 - 66*x^7 - 260*x^6 + 286*x^5 + 244*x^4 - 316*x^3 - 50*x^2 + 86*x - 12, 2*x^10 - 11*x^9 + x^8 + 84*x^7 - 107*x^6 - 143*x^5 + 282*x^4 - 4*x^3 - 140*x^2 + 38*x, 2*x^10 - 11*x^9 + x^8 + 84*x^7 - 107*x^6 - 143*x^5 + 282*x^4 - 4*x^3 - 140*x^2 + 38*x, 2*x^10 - 8*x^9 - 13*x^8 + 76*x^7 + 5*x^6 - 221*x^5 + 58*x^4 + 218*x^3 - 56*x^2 - 30*x + 4, 2*x^10 - 8*x^9 - 13*x^8 + 76*x^7 + 5*x^6 - 221*x^5 + 58*x^4 + 218*x^3 - 56*x^2 - 30*x + 4, -x^10 + 5*x^9 + x^8 - 37*x^7 + 35*x^6 + 63*x^5 - 75*x^4 - 24*x^3 + 15*x^2 + 12*x, -x^10 + 5*x^9 + x^8 - 37*x^7 + 35*x^6 + 63*x^5 - 75*x^4 - 24*x^3 + 15*x^2 + 12*x, 2*x^9 - 10*x^8 - 4*x^7 + 82*x^6 - 67*x^5 - 173*x^4 + 200*x^3 + 73*x^2 - 98*x + 12, 2*x^9 - 10*x^8 - 4*x^7 + 82*x^6 - 67*x^5 - 173*x^4 + 200*x^3 + 73*x^2 - 98*x + 12, x^9 - 4*x^8 - 5*x^7 + 34*x^6 - 7*x^5 - 84*x^4 + 42*x^3 + 76*x^2 - 52*x + 8, x^9 - 4*x^8 - 5*x^7 + 34*x^6 - 7*x^5 - 84*x^4 + 42*x^3 + 76*x^2 - 52*x + 8, -x^9 + 5*x^8 + 2*x^7 - 42*x^6 + 37*x^5 + 91*x^4 - 123*x^3 - 31*x^2 + 72*x - 12, -x^9 + 5*x^8 + 2*x^7 - 42*x^6 + 37*x^5 + 91*x^4 - 123*x^3 - 31*x^2 + 72*x - 12, x^8 - 2*x^7 - 9*x^6 + 16*x^5 + 25*x^4 - 34*x^3 - 26*x^2 + 24*x - 4, x^8 - 2*x^7 - 9*x^6 + 16*x^5 + 25*x^4 - 34*x^3 - 26*x^2 + 24*x - 4, -x^10 + 4*x^9 + 7*x^8 - 40*x^7 - 3*x^6 + 121*x^5 - 41*x^4 - 108*x^3 + 30*x^2 + 14*x, -x^10 + 4*x^9 + 7*x^8 - 40*x^7 - 3*x^6 + 121*x^5 - 41*x^4 - 108*x^3 + 30*x^2 + 14*x]>
       ]
>;

MOG[293] := 	// J_0(293)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 2,
           Coordinates        := [0, 48, 88, 89, 124, 127, 141, 212, 243, 42*x + 241, 251*x + 241, 253*x + 229, 40*x + 229, 273*x + 25, 20*x + 25, 138*x + 292, 155*x + 292, 4*x + 233, 289*x + 233, 244*x + 62, 49*x + 62, 38*x + 266, 255*x + 266, 187*x + 137, 106*x + 137]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^8 + 3*x^7 - 4*x^6 - 15*x^5 + 4*x^4 + 21*x^3 - 2*x^2 - 8*x + 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, 0, -x^7 - 3*x^6 + 2*x^5 + 9*x^4 - 2*x^3 - 7*x^2 + 2*x, x^7 + 3*x^6 - 2*x^5 - 9*x^4 + 2*x^3 + 7*x^2 - 2*x, -x^6 - 3*x^5 + x^4 + 7*x^3 - 4*x, x^6 + 3*x^5 - x^4 - 7*x^3 + 4*x, -x^6 - 3*x^5 + x^4 + 7*x^3 - 4*x + 1, x^6 + 3*x^5 - x^4 - 7*x^3 + 4*x - 1, -x^5 - 2*x^4 + 2*x^3 + 3*x^2 - 2*x, x^5 + 2*x^4 - 2*x^3 - 3*x^2 + 2*x, -x^5 - 2*x^4 + 2*x^3 + 3*x^2 - x, x^5 + 2*x^4 - 2*x^3 - 3*x^2 + x, -x^4 - 2*x^3 + x^2 + 2*x, x^4 + 2*x^3 - x^2 - 2*x, -x^4 - 2*x^3 + 2*x^2 + 3*x - 1, x^4 + 2*x^3 - 2*x^2 - 3*x + 1, -x^3 - x^2 + 2*x, x^3 + x^2 - 2*x]>,
         rec<Eigen |
           DefiningPolynomial := x^16 - 3*x^15 - 22*x^14 + 69*x^13 + 184*x^12 - 621*x^11 - 716*x^10 + 2758*x^9 + 1234*x^8 - 6287*x^7 - 554*x^6 + 7023*x^5 - 572*x^4 - 3385*x^3 + 508*x^2 + 526*x - 111,
           Coordinates        := [-x^15 + 3*x^14 + 19*x^13 - 60*x^12 - 133*x^11 + 461*x^10 + 403*x^9 - 1705*x^8 - 393*x^7 + 3106*x^6 - 399*x^5 - 2515*x^4 + 835*x^3 + 654*x^2 - 283*x + 16, x^15 - 3*x^14 - 19*x^13 + 60*x^12 + 133*x^11 - 463*x^10 - 397*x^9 + 1721*x^8 + 329*x^7 - 3108*x^6 + 589*x^5 + 2347*x^4 - 975*x^3 - 402*x^2 + 259*x - 40, -3*x^14 + 9*x^13 + 51*x^12 - 160*x^11 - 313*x^10 + 1053*x^9 + 841*x^8 - 3181*x^7 - 953*x^6 + 4508*x^5 + 263*x^4 - 2731*x^3 + 225*x^2 + 542*x - 111, 2*x^12 - 4*x^11 - 32*x^10 + 60*x^9 + 184*x^8 - 314*x^7 - 456*x^6 + 672*x^5 + 440*x^4 - 490*x^3 - 80*x^2 + 4*x + 14, 2*x^12 - 6*x^11 - 32*x^10 + 102*x^9 + 172*x^8 - 620*x^7 - 328*x^6 + 1612*x^5 + 42*x^4 - 1694*x^3 + 336*x^2 + 518*x - 128, x^14 - 3*x^13 - 17*x^12 + 54*x^11 + 105*x^10 - 369*x^9 - 285*x^8 + 1221*x^7 + 299*x^6 - 2100*x^5 + 105*x^4 + 1789*x^3 - 445*x^2 - 496*x + 157, 2*x^10 - 24*x^8 + 2*x^7 + 90*x^6 - 20*x^5 - 114*x^4 + 54*x^3 + 32*x^2 - 12*x - 18, 2*x^11 - 4*x^10 - 24*x^9 + 50*x^8 + 86*x^7 - 200*x^6 - 74*x^5 + 282*x^4 - 76*x^3 - 76*x^2 + 6*x + 36, -4*x^11 + 8*x^10 + 60*x^9 - 120*x^8 - 298*x^7 + 604*x^6 + 526*x^5 - 1136*x^4 - 194*x^3 + 612*x^2 - 26*x - 40, x^13 - 3*x^12 - 14*x^11 + 46*x^10 + 62*x^9 - 249*x^8 - 71*x^7 + 564*x^6 - 116*x^5 - 465*x^4 + 205*x^3 + 42*x^2 + 5*x - 7, x^13 - 3*x^12 - 14*x^11 + 46*x^10 + 62*x^9 - 249*x^8 - 71*x^7 + 564*x^6 - 116*x^5 - 465*x^4 + 205*x^3 + 42*x^2 + 5*x - 7, x^14 - 3*x^13 - 17*x^12 + 52*x^11 + 107*x^10 - 334*x^9 - 310*x^8 + 979*x^7 + 422*x^6 - 1288*x^5 - 254*x^4 + 597*x^3 + 98*x^2 - 35*x - 23, x^14 - 3*x^13 - 17*x^12 + 52*x^11 + 107*x^10 - 334*x^9 - 310*x^8 + 979*x^7 + 422*x^6 - 1288*x^5 - 254*x^4 + 597*x^3 + 98*x^2 - 35*x - 23, x^12 - 2*x^11 - 13*x^10 + 25*x^9 + 55*x^8 - 101*x^7 - 82*x^6 + 151*x^5 + 19*x^4 - 65*x^3 - 13*x^2 + 24*x + 9, x^12 - 2*x^11 - 13*x^10 + 25*x^9 + 55*x^8 - 101*x^7 - 82*x^6 + 151*x^5 + 19*x^4 - 65*x^3 - 13*x^2 + 24*x + 9, x^13 - 5*x^12 - 12*x^11 + 83*x^10 + 25*x^9 - 493*x^8 + 164*x^7 + 1256*x^6 - 727*x^5 - 1285*x^4 + 868*x^3 + 325*x^2 - 287*x + 47, x^13 - 5*x^12 - 12*x^11 + 83*x^10 + 25*x^9 - 493*x^8 + 164*x^7 + 1256*x^6 - 727*x^5 - 1285*x^4 + 868*x^3 + 325*x^2 - 287*x + 47, x^12 - x^11 - 17*x^10 + 17*x^9 + 98*x^8 - 97*x^7 - 213*x^6 + 209*x^5 + 118*x^4 - 142*x^3 + 58*x^2 - 2*x - 29, x^12 - x^11 - 17*x^10 + 17*x^9 + 98*x^8 - 97*x^7 - 213*x^6 + 209*x^5 + 118*x^4 - 142*x^3 + 58*x^2 - 2*x - 29, -3*x^13 + 10*x^12 + 43*x^11 - 165*x^10 - 184*x^9 + 967*x^8 + 113*x^7 - 2405*x^6 + 730*x^5 + 2407*x^4 - 1140*x^3 - 710*x^2 + 369*x - 24, -3*x^13 + 10*x^12 + 43*x^11 - 165*x^10 - 184*x^9 + 967*x^8 + 113*x^7 - 2405*x^6 + 730*x^5 + 2407*x^4 - 1140*x^3 - 710*x^2 + 369*x - 24, x^13 - 3*x^12 - 14*x^11 + 47*x^10 + 56*x^9 - 250*x^8 - 15*x^7 + 504*x^6 - 242*x^5 - 279*x^4 + 265*x^3 - 47*x^2 - 51*x + 20, x^13 - 3*x^12 - 14*x^11 + 47*x^10 + 56*x^9 - 250*x^8 - 15*x^7 + 504*x^6 - 242*x^5 - 279*x^4 + 265*x^3 - 47*x^2 - 51*x + 20, -3*x^12 + 7*x^11 + 46*x^10 - 111*x^9 - 235*x^8 + 612*x^7 + 427*x^6 - 1374*x^5 - 118*x^4 + 1153*x^3 - 181*x^2 - 279*x + 64, -3*x^12 + 7*x^11 + 46*x^10 - 111*x^9 - 235*x^8 + 612*x^7 + 427*x^6 - 1374*x^5 - 118*x^4 + 1153*x^3 - 181*x^2 - 279*x + 64]>
       ]
>;

MOG[307] := 	// J_0(307)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [2, 38, 81, 144, 193, 305, 245*x + 253, 62*x + 253, 302*x + 154, 5*x + 154, 103*x + 131, 204*x + 131, 124*x + 33, 183*x + 33, 64*x + 256, 243*x + 256, 202*x + 177, 105*x + 177, 125*x + 230, 182*x + 230, 202*x + 132, 105*x + 132, 242*x + 118, 65*x + 118, 194*x + 225, 113*x + 225]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x,
           Coordinates        := [0, 1, -1, 1, -1, 0, 1, 1, -1, -1, 0, 0, 0, 0, -1, -1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0]>,
         rec<Eigen |
           DefiningPolynomial := x - 1,
           Coordinates        := [1, -1, -1, 0, 0, -1, 0, 0, 1, 1, -1, -1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0]>,
         rec<Eigen |
           DefiningPolynomial := x - 2,
           Coordinates        := [1, -1, 0, 1, 1, 0, 0, 0, -1, -1, 0, 0, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0]>,
         rec<Eigen |
           DefiningPolynomial := x + 3,
           Coordinates        := [-1, 0, 1, 1, 1, 0, 0, 0, 0, 0, -1, -1, 0, 0, -1, -1, 0, 0, 0, 0, 1, 1, -1, -1, 1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^2 + x - 3,
           Coordinates        := [-2*x - 4, 2*x + 8, 2, 2, 2*x + 4, 2*x + 2, -x - 4, -x - 4, -x - 1, -x - 1, -2*x - 4, -2*x - 4, 2*x + 2, 2*x + 2, x + 2, x + 2, -x - 1, -x - 1, 2*x + 5, 2*x + 5, -3*x - 7, -3*x - 7, x + 2, x + 2, -1, -1]>,
         rec<Eigen |
           DefiningPolynomial := x^9 - 3*x^8 - 11*x^7 + 30*x^6 + 46*x^5 - 87*x^4 - 91*x^3 + 50*x^2 + 62*x + 13,
           Coordinates        := [-9/14*x^8 + 37/7*x^7 - 3/14*x^6 - 649/14*x^5 + 177/14*x^4 + 881/7*x^3 + 211/14*x^2 - 1051/14*x - 403/14, -5/2*x^8 + 85/7*x^7 + 93/14*x^6 - 1209/14*x^5 + 309/14*x^4 + 1163/7*x^3 - 83/14*x^2 - 1059/14*x - 221/14, -11/14*x^8 + 7*x^7 - 151/14*x^6 - 507/14*x^5 + 1037/14*x^4 + 402/7*x^3 - 1121/14*x^2 - 997/14*x - 221/14, 31/7*x^8 - 158/7*x^7 - 38/7*x^6 + 1037/7*x^5 - 451/7*x^4 - 1856/7*x^3 + 92/7*x^2 + 1129/7*x + 52, -15/7*x^8 + 61/7*x^7 + 68/7*x^6 - 60*x^5 - 73/7*x^4 + 781/7*x^3 + 290/7*x^2 - 368/7*x - 169/7, 65/14*x^8 - 125/7*x^7 - 373/14*x^6 + 1889/14*x^5 + 625/14*x^4 - 2066/7*x^3 - 1023/14*x^2 + 2257/14*x + 923/14, -5/2*x^8 + 181/14*x^7 - 29/14*x^6 - 1037/14*x^5 + 141/2*x^4 + 193/2*x^3 - 143/2*x^2 - 411/7*x - 65/14, -5/2*x^8 + 181/14*x^7 - 29/14*x^6 - 1037/14*x^5 + 141/2*x^4 + 193/2*x^3 - 143/2*x^2 - 411/7*x - 65/14, x^8 - 9/2*x^7 - 57/14*x^6 + 63/2*x^5 + 9/2*x^4 - 60*x^3 - 331/14*x^2 + 225/14*x + 117/14, x^8 - 9/2*x^7 - 57/14*x^6 + 63/2*x^5 + 9/2*x^4 - 60*x^3 - 331/14*x^2 + 225/14*x + 117/14, -5/2*x^7 + 73/7*x^6 + 41/7*x^5 - 855/14*x^4 + 183/7*x^3 + 1075/14*x^2 - 27*x - 195/7, -5/2*x^7 + 73/7*x^6 + 41/7*x^5 - 855/14*x^4 + 183/7*x^3 + 1075/14*x^2 - 27*x - 195/7, -3/2*x^7 + 107/14*x^6 + 15/14*x^5 - 48*x^4 + 216/7*x^3 + 857/14*x^2 - 11*x - 117/7, -3/2*x^7 + 107/14*x^6 + 15/14*x^5 - 48*x^4 + 216/7*x^3 + 857/14*x^2 - 11*x - 117/7, -5/2*x^6 + 50/7*x^5 + 117/7*x^4 - 321/7*x^3 - 226/7*x^2 + 405/7*x + 65/2, -5/2*x^6 + 50/7*x^5 + 117/7*x^4 - 321/7*x^3 - 226/7*x^2 + 405/7*x + 65/2, -3/2*x^6 + 48/7*x^5 + 30/7*x^4 - 629/14*x^3 + 130/7*x^2 + 300/7*x + 52/7, -3/2*x^6 + 48/7*x^5 + 30/7*x^4 - 629/14*x^3 + 130/7*x^2 + 300/7*x + 52/7, -11/14*x^6 + 26/7*x^5 - 3/2*x^4 - 88/7*x^3 + 187/14*x^2 + 23/14*x - 65/14, -11/14*x^6 + 26/7*x^5 - 3/2*x^4 - 88/7*x^3 + 187/14*x^2 + 23/14*x - 65/14, -11/14*x^6 + 33/7*x^5 - 11/14*x^4 - 170/7*x^3 + 18/7*x^2 + 292/7*x + 143/7, -11/14*x^6 + 33/7*x^5 - 11/14*x^4 - 170/7*x^3 + 18/7*x^2 + 292/7*x + 143/7, -3/2*x^5 + 27/7*x^4 + 12*x^3 - 293/14*x^2 - 163/7*x - 26/7, -3/2*x^5 + 27/7*x^4 + 12*x^3 - 293/14*x^2 - 163/7*x - 26/7, -11/14*x^7 + 7*x^6 - 173/14*x^5 - 389/14*x^4 + 1005/14*x^3 + 144/7*x^2 - 449/7*x - 195/7, -11/14*x^7 + 7*x^6 - 173/14*x^5 - 389/14*x^4 + 1005/14*x^3 + 144/7*x^2 - 449/7*x - 195/7]>,
         rec<Eigen |
           DefiningPolynomial := x^10 + 7*x^9 + 10*x^8 - 28*x^7 - 73*x^6 + 16*x^5 + 128*x^4 + 26*x^3 - 69*x^2 - 18*x - 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, -x^9 - 7*x^8 - 12*x^7 + 16*x^6 + 59*x^5 + 19*x^4 - 56*x^3 - 32*x^2 + 8*x + 1, x^9 + 7*x^8 + 12*x^7 - 16*x^6 - 59*x^5 - 19*x^4 + 56*x^3 + 32*x^2 - 8*x - 1, -x^8 - 6*x^7 - 7*x^6 + 17*x^5 + 34*x^4 - 4*x^3 - 28*x^2 - 7*x, x^8 + 6*x^7 + 7*x^6 - 17*x^5 - 34*x^4 + 4*x^3 + 28*x^2 + 7*x, -x^8 - 6*x^7 - 7*x^6 + 18*x^5 + 38*x^4 - 2*x^3 - 33*x^2 - 10*x - 1, x^8 + 6*x^7 + 7*x^6 - 18*x^5 - 38*x^4 + 2*x^3 + 33*x^2 + 10*x + 1, -x^7 - 6*x^6 - 8*x^5 + 11*x^4 + 24*x^3 - 3*x^2 - 15*x - 1, x^7 + 6*x^6 + 8*x^5 - 11*x^4 - 24*x^3 + 3*x^2 + 15*x + 1, -x^7 - 5*x^6 - 3*x^5 + 17*x^4 + 21*x^3 - 11*x^2 - 19*x - 2, x^7 + 5*x^6 + 3*x^5 - 17*x^4 - 21*x^3 + 11*x^2 + 19*x + 2, -x^6 - 6*x^5 - 10*x^4 + x^3 + 13*x^2 + 6*x, x^6 + 6*x^5 + 10*x^4 - x^3 - 13*x^2 - 6*x, -x^6 - 4*x^5 + 12*x^3 + 3*x^2 - 11*x - 1, x^6 + 4*x^5 - 12*x^3 - 3*x^2 + 11*x + 1, -x^5 - 6*x^4 - 9*x^3 + 4*x^2 + 12*x + 1, x^5 + 6*x^4 + 9*x^3 - 4*x^2 - 12*x - 1, -x^5 - 4*x^4 - 2*x^3 + 5*x^2 + 3*x, x^5 + 4*x^4 + 2*x^3 - 5*x^2 - 3*x, -x^5 - 5*x^4 - 6*x^3 + 3*x^2 + 7*x + 1, x^5 + 5*x^4 + 6*x^3 - 3*x^2 - 7*x - 1]>
       ]
>;

MOG[311] := 	// J_0(311)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 19, 32, 46, 77, 99, 102, 131, 132, 150, 168, 173, 197, 225, 232, 247, 252, 299, 304, 285*x + 237, 26*x + 237, 57*x + 300, 254*x + 300, 183*x + 212, 128*x + 212, 160*x + 232, 151*x + 232]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^4 + x^3 - 3*x^2 - x + 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -x^3 - x^2 + x, x^3 + x^2 - x, -x^2, x^2, -x^2 - x + 1, x^2 + x - 1, -x, x]>,
         rec<Eigen |
           DefiningPolynomial := x^22 - 2*x^21 - 35*x^20 + 70*x^19 + 517*x^18 - 1033*x^17 - 4195*x^16 + 8357*x^15 + 20417*x^14 - 40403*x^13 - 61287*x^12 + 119701*x^11 + 113017*x^10 - 215615*x^9 - 124399*x^8 + 228609*x^7 + 76453*x^6 - 133295*x^5 - 23503*x^4 + 36742*x^3 + 3587*x^2 - 3200*x - 473,
           Coordinates        := [-x^21 + 2*x^20 + 32*x^19 - 64*x^18 - 427*x^17 + 854*x^16 + 3082*x^15 - 6166*x^14 - 13071*x^13 + 26192*x^12 + 33205*x^11 - 66900*x^10 - 49536*x^9 + 101478*x^8 + 40784*x^7 - 87824*x^6 - 15805*x^5 + 39921*x^4 + 1546*x^3 - 8054*x^2 + 237*x + 490, x^21 - 2*x^20 - 32*x^19 + 64*x^18 + 428*x^17 - 856*x^16 - 3108*x^15 + 6222*x^14 + 13328*x^13 - 26804*x^12 - 34379*x^11 + 70184*x^10 + 51855*x^9 - 110546*x^8 - 41718*x^7 + 100657*x^6 + 13400*x^5 - 48927*x^4 + 1134*x^3 + 10772*x^2 - 985*x - 684, 2*x^17 - 5*x^16 - 47*x^15 + 126*x^14 + 431*x^13 - 1270*x^12 - 1954*x^11 + 6589*x^10 + 4582*x^9 - 18942*x^8 - 5141*x^7 + 30181*x^6 + 1242*x^5 - 24370*x^4 + 2119*x^3 + 8117*x^2 - 1096*x - 600, -3*x^18 + x^17 + 84*x^16 - 32*x^15 - 959*x^14 + 395*x^13 + 5741*x^12 - 2427*x^11 - 19353*x^10 + 7949*x^9 + 36952*x^8 - 13939*x^7 - 38740*x^6 + 12891*x^5 + 20725*x^4 - 5567*x^3 - 4832*x^2 + 724*x + 393, x^20 - 2*x^19 - 30*x^18 + 60*x^17 + 368*x^16 - 732*x^15 - 2380*x^14 + 4672*x^13 + 8758*x^12 - 16796*x^11 - 18543*x^10 + 34510*x^9 + 21569*x^8 - 40126*x^7 - 10924*x^6 + 25359*x^5 - 860*x^4 - 7491*x^3 + 2320*x^2 + 488*x - 259, -3*x^19 + 7*x^18 + 82*x^17 - 200*x^16 - 895*x^15 + 2313*x^14 + 4951*x^13 - 13909*x^12 - 14499*x^11 + 46655*x^10 + 21054*x^9 - 87843*x^8 - 10862*x^7 + 90371*x^6 - 5057*x^5 - 47017*x^4 + 6302*x^3 + 10388*x^2 - 1055*x - 786, -3*x^18 + 6*x^17 + 82*x^16 - 170*x^15 - 889*x^14 + 1921*x^13 + 4837*x^12 - 11035*x^11 - 13743*x^10 + 34097*x^9 + 19120*x^8 - 55672*x^7 - 10085*x^6 + 44887*x^5 - 1414*x^4 - 15002*x^3 + 1977*x^2 + 1246*x - 124, -x^18 + 2*x^17 + 26*x^16 - 47*x^15 - 277*x^14 + 424*x^13 + 1610*x^12 - 1858*x^11 - 5799*x^10 + 4234*x^9 + 13653*x^8 - 5386*x^7 - 20048*x^6 + 4429*x^5 + 16255*x^4 - 2622*x^3 - 5930*x^2 + 780*x + 597, x^20 - 2*x^19 - 29*x^18 + 60*x^17 + 341*x^16 - 736*x^15 - 2081*x^14 + 4764*x^13 + 6977*x^12 - 17550*x^11 - 12286*x^10 + 37052*x^9 + 8695*x^8 - 42768*x^7 + 2345*x^6 + 23929*x^5 - 5215*x^4 - 4778*x^3 + 1023*x^2 + 250*x + 8, x^20 - 2*x^19 - 30*x^18 + 57*x^17 + 378*x^16 - 667*x^15 - 2628*x^14 + 4163*x^13 + 11173*x^12 - 15171*x^11 - 30333*x^10 + 33507*x^9 + 52417*x^8 - 45058*x^7 - 54474*x^6 + 35080*x^5 + 30712*x^4 - 13701*x^3 - 7915*x^2 + 1778*x + 724, x^19 - 2*x^18 - 28*x^17 + 55*x^16 + 326*x^15 - 623*x^14 - 2062*x^13 + 3791*x^12 + 7765*x^11 - 13603*x^10 - 17783*x^9 + 29687*x^8 + 23719*x^7 - 38612*x^6 - 16154*x^5 + 27692*x^4 + 3684*x^3 - 8947*x^2 + 509*x + 604, x^19 - x^18 - 30*x^17 + 30*x^16 + 371*x^15 - 365*x^14 - 2446*x^13 + 2318*x^12 + 9295*x^11 - 8255*x^10 - 20541*x^9 + 16511*x^8 + 25206*x^7 - 17562*x^6 - 15217*x^5 + 8712*x^4 + 3497*x^3 - 1281*x^2 - 258*x - 8, -3*x^20 + 6*x^19 + 90*x^18 - 179*x^17 - 1113*x^16 + 2191*x^15 + 7346*x^14 - 14211*x^13 - 28082*x^12 + 52801*x^11 + 63481*x^10 - 114137*x^9 - 83615*x^8 + 140785*x^7 + 60648*x^6 - 93374*x^5 - 21957*x^4 + 28688*x^3 + 3824*x^2 - 2710*x - 473, -3*x^17 + 5*x^16 + 82*x^15 - 135*x^14 - 898*x^13 + 1454*x^12 + 5021*x^11 - 7968*x^10 - 15122*x^9 + 23557*x^8 + 23735*x^7 - 37078*x^6 - 16982*x^5 + 29147*x^4 + 3363*x^3 - 9520*x^2 + 574*x + 724, x^19 - 2*x^18 - 27*x^17 + 60*x^16 + 285*x^15 - 728*x^14 - 1459*x^13 + 4618*x^12 + 3503*x^11 - 16622*x^10 - 2078*x^9 + 34756*x^8 - 6349*x^7 - 41604*x^6 + 11819*x^5 + 26725*x^4 - 7105*x^3 - 7960*x^2 + 1509*x + 700, -x^17 - 4*x^16 + 34*x^15 + 82*x^14 - 445*x^13 - 623*x^12 + 2871*x^11 + 2157*x^10 - 9697*x^9 - 3423*x^8 + 17022*x^7 + 2238*x^6 - 14947*x^5 - 91*x^4 + 5730*x^3 - 298*x^2 - 569*x - 40, -3*x^19 + 6*x^18 + 86*x^17 - 171*x^16 - 1005*x^15 + 1974*x^14 + 6180*x^13 - 11866*x^12 - 21635*x^11 + 39908*x^10 + 43939*x^9 - 75806*x^8 - 50842*x^7 + 79727*x^6 + 30515*x^5 - 44058*x^4 - 7116*x^3 + 11064*x^2 - 129*x - 684, x^19 - 5*x^18 - 22*x^17 + 134*x^16 + 154*x^15 - 1436*x^14 - 93*x^13 + 7842*x^12 - 3719*x^11 - 23074*x^10 + 18345*x^9 + 35801*x^8 - 36475*x^7 - 26965*x^6 + 33466*x^5 + 7534*x^4 - 12733*x^3 - 47*x^2 + 1200*x + 80, x^18 - 5*x^17 - 24*x^16 + 126*x^15 + 222*x^14 - 1272*x^13 - 983*x^12 + 6596*x^11 + 2023*x^10 - 18760*x^9 - 1049*x^8 + 28955*x^7 - 2431*x^6 - 22489*x^5 + 3572*x^4 + 7352*x^3 - 1273*x^2 - 643*x + 62, x^18 - 28*x^16 + 4*x^15 + 311*x^14 - 73*x^13 - 1737*x^12 + 464*x^11 + 5104*x^10 - 1148*x^9 - 7522*x^8 + 582*x^7 + 4737*x^6 + 1398*x^5 - 945*x^4 - 1591*x^3 + 243*x^2 + 225*x - 4, x^18 - 28*x^16 + 4*x^15 + 311*x^14 - 73*x^13 - 1737*x^12 + 464*x^11 + 5104*x^10 - 1148*x^9 - 7522*x^8 + 582*x^7 + 4737*x^6 + 1398*x^5 - 945*x^4 - 1591*x^3 + 243*x^2 + 225*x - 4, x^18 - 30*x^16 + 4*x^15 + 372*x^14 - 92*x^13 - 2450*x^12 + 817*x^11 + 9199*x^10 - 3534*x^9 - 19825*x^8 + 7863*x^7 + 23842*x^6 - 9070*x^5 - 14802*x^4 + 4971*x^3 + 3973*x^2 - 926*x - 338, x^18 - 30*x^16 + 4*x^15 + 372*x^14 - 92*x^13 - 2450*x^12 + 817*x^11 + 9199*x^10 - 3534*x^9 - 19825*x^8 + 7863*x^7 + 23842*x^6 - 9070*x^5 - 14802*x^4 + 4971*x^3 + 3973*x^2 - 926*x - 338, x^18 - x^17 - 26*x^16 + 22*x^15 + 283*x^14 - 186*x^13 - 1704*x^12 + 784*x^11 + 6275*x^10 - 1910*x^9 - 14349*x^8 + 3223*x^7 + 19160*x^6 - 3694*x^5 - 13514*x^4 + 2377*x^3 + 4212*x^2 - 587*x - 362, x^18 - x^17 - 26*x^16 + 22*x^15 + 283*x^14 - 186*x^13 - 1704*x^12 + 784*x^11 + 6275*x^10 - 1910*x^9 - 14349*x^8 + 3223*x^7 + 19160*x^6 - 3694*x^5 - 13514*x^4 + 2377*x^3 + 4212*x^2 - 587*x - 362, x^19 - 2*x^18 - 30*x^17 + 62*x^16 + 364*x^15 - 775*x^14 - 2285*x^13 + 5004*x^12 + 7918*x^11 - 17837*x^10 - 15143*x^9 + 35210*x^8 + 15397*x^7 - 37649*x^6 - 7130*x^5 + 20718*x^4 + 593*x^3 - 5142*x^2 + 363*x + 342, x^19 - 2*x^18 - 30*x^17 + 62*x^16 + 364*x^15 - 775*x^14 - 2285*x^13 + 5004*x^12 + 7918*x^11 - 17837*x^10 - 15143*x^9 + 35210*x^8 + 15397*x^7 - 37649*x^6 - 7130*x^5 + 20718*x^4 + 593*x^3 - 5142*x^2 + 363*x + 342]>
       ]
>;

MOG[313] := 	// J_0(313)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 5,
           Coordinates        := [61, 68, 129, 200, 22*x + 55, 291*x + 55, 123*x + 71, 190*x + 71, 235*x + 53, 78*x + 53, 120*x + 20, 193*x + 20, 24*x + 16, 289*x + 16, 265*x + 140, 48*x + 140, 279*x + 200, 34*x + 200, 224*x + 99, 89*x + 99, 276*x + 65, 37*x + 65, 61*x + 109, 252*x + 109, 194*x + 165, 119*x + 165]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^2 - x - 1,
           Coordinates        := [0, 0, 2, 0, 0, 0, x, x, -x, -x, 1, 1, -1, -1, -1, -1, x, x, -x, -x, -x + 1, -x + 1, x, x, -1, -1]>,
         rec<Eigen |
           DefiningPolynomial := x^11 + 8*x^10 + 16*x^9 - 26*x^8 - 121*x^7 - 62*x^6 + 190*x^5 + 196*x^4 - 76*x^3 - 122*x^2 + 2*x + 17,
           Coordinates        := [0, 0, 0, 0, -x^10 - 8*x^9 - 18*x^8 + 12*x^7 + 97*x^6 + 97*x^5 - 52*x^4 - 118*x^3 - 25*x^2 + 25*x + 7, x^10 + 8*x^9 + 18*x^8 - 12*x^7 - 97*x^6 - 97*x^5 + 52*x^4 + 118*x^3 + 25*x^2 - 25*x - 7, -x^9 - 7*x^8 - 12*x^7 + 18*x^6 + 72*x^5 + 44*x^4 - 52*x^3 - 59*x^2 - 2*x + 9, x^9 + 7*x^8 + 12*x^7 - 18*x^6 - 72*x^5 - 44*x^4 + 52*x^3 + 59*x^2 + 2*x - 9, -x^9 - 7*x^8 - 12*x^7 + 17*x^6 + 66*x^5 + 34*x^4 - 49*x^3 - 38*x^2 + 11*x + 8, x^9 + 7*x^8 + 12*x^7 - 17*x^6 - 66*x^5 - 34*x^4 + 49*x^3 + 38*x^2 - 11*x - 8, -x^8 - 6*x^7 - 7*x^6 + 19*x^5 + 44*x^4 + 7*x^3 - 36*x^2 - 18*x + 2, x^8 + 6*x^7 + 7*x^6 - 19*x^5 - 44*x^4 - 7*x^3 + 36*x^2 + 18*x - 2, -x^8 - 7*x^7 - 14*x^6 + 3*x^5 + 37*x^4 + 31*x^3 - 2*x^2 - 6*x + 1, x^8 + 7*x^7 + 14*x^6 - 3*x^5 - 37*x^4 - 31*x^3 + 2*x^2 + 6*x - 1, -x^7 - 6*x^6 - 9*x^5 + 7*x^4 + 23*x^3 + 5*x^2 - 14*x - 7, x^7 + 6*x^6 + 9*x^5 - 7*x^4 - 23*x^3 - 5*x^2 + 14*x + 7, -x^7 - 6*x^6 - 8*x^5 + 11*x^4 + 26*x^3 + 5*x^2 - 7*x + 1, x^7 + 6*x^6 + 8*x^5 - 11*x^4 - 26*x^3 - 5*x^2 + 7*x - 1, -x^7 - 8*x^6 - 21*x^5 - 14*x^4 + 21*x^3 + 27*x^2 - 3*x - 9, x^7 + 8*x^6 + 21*x^5 + 14*x^4 - 21*x^3 - 27*x^2 + 3*x + 9, -x^6 - 8*x^5 - 23*x^4 - 27*x^3 - 6*x^2 + 11*x + 6, x^6 + 8*x^5 + 23*x^4 + 27*x^3 + 6*x^2 - 11*x - 6, -x^5 - 6*x^4 - 11*x^3 - 5*x^2 + 4*x + 3, x^5 + 6*x^4 + 11*x^3 + 5*x^2 - 4*x - 3, -x^5 - 7*x^4 - 16*x^3 - 11*x^2 + 5*x + 6, x^5 + 7*x^4 + 16*x^3 + 11*x^2 - 5*x - 6]>,
         rec<Eigen |
           DefiningPolynomial := x^12 - 6*x^11 - 2*x^10 + 69*x^9 - 68*x^8 - 268*x^7 + 399*x^6 + 368*x^5 - 701*x^4 - 57*x^3 + 262*x^2 - 22*x - 19,
           Coordinates        := [-x^11 + 6*x^10 - x^9 - 53*x^8 + 71*x^7 + 135*x^6 - 272*x^5 - 59*x^4 + 285*x^3 - 80*x^2 - 33*x + 10, x^11 - 4*x^10 - 9*x^9 + 47*x^8 + 19*x^7 - 191*x^6 + 26*x^5 + 293*x^4 - 93*x^3 - 102*x^2 + 19*x + 12, -x^10 + 6*x^9 - 3*x^8 - 43*x^7 + 73*x^6 + 61*x^5 - 198*x^4 + 65*x^3 + 79*x^2 - 32*x - 3, x^10 - 4*x^9 - 7*x^8 + 39*x^7 + 9*x^6 - 127*x^5 + 22*x^4 + 141*x^3 - 39*x^2 - 4*x - 5, x^9 - 4*x^8 - 5*x^7 + 32*x^6 - 2*x^5 - 76*x^4 + 27*x^3 + 49*x^2 - 12*x - 6, x^9 - 4*x^8 - 5*x^7 + 32*x^6 - 2*x^5 - 76*x^4 + 27*x^3 + 49*x^2 - 12*x - 6, x^8 - 3*x^7 - 7*x^6 + 22*x^5 + 14*x^4 - 40*x^3 - 10*x^2 + 7, x^8 - 3*x^7 - 7*x^6 + 22*x^5 + 14*x^4 - 40*x^3 - 10*x^2 + 7, x^8 - 4*x^7 - 4*x^6 + 29*x^5 - 9*x^4 - 52*x^3 + 37*x^2 - 2*x - 2, x^8 - 4*x^7 - 4*x^6 + 29*x^5 - 9*x^4 - 52*x^3 + 37*x^2 - 2*x - 2, x^7 - 3*x^6 - 6*x^5 + 22*x^4 + 3*x^3 - 39*x^2 + 19*x - 1, x^7 - 3*x^6 - 6*x^5 + 22*x^4 + 3*x^3 - 39*x^2 + 19*x - 1, -x^8 + 5*x^7 + x^6 - 36*x^5 + 33*x^4 + 62*x^3 - 88*x^2 + 12*x + 8, -x^8 + 5*x^7 + x^6 - 36*x^5 + 33*x^4 + 62*x^3 - 88*x^2 + 12*x + 8, -x^7 + 4*x^6 + 6*x^5 - 33*x^4 - 2*x^3 + 68*x^2 - 20*x - 6, -x^7 + 4*x^6 + 6*x^5 - 33*x^4 - 2*x^3 + 68*x^2 - 20*x - 6, -x^9 + 5*x^8 + x^7 - 37*x^6 + 37*x^5 + 62*x^4 - 103*x^3 + 24*x^2 + 15*x - 5, -x^9 + 5*x^8 + x^7 - 37*x^6 + 37*x^5 + 62*x^4 - 103*x^3 + 24*x^2 + 15*x - 5, -x^8 + 4*x^7 + 5*x^6 - 33*x^5 + 9*x^4 + 67*x^3 - 49*x^2 - 5*x + 7, -x^8 + 4*x^7 + 5*x^6 - 33*x^5 + 9*x^4 + 67*x^3 - 49*x^2 - 5*x + 7, -x^9 + 5*x^8 + x^7 - 38*x^6 + 39*x^5 + 67*x^4 - 109*x^3 + 15*x^2 + 15*x - 2, -x^9 + 5*x^8 + x^7 - 38*x^6 + 39*x^5 + 67*x^4 - 109*x^3 + 15*x^2 + 15*x - 2, -x^8 + 3*x^7 + 7*x^6 - 24*x^5 - 9*x^4 + 49*x^3 - 11*x^2 - 7*x + 1, -x^8 + 3*x^7 + 7*x^6 - 24*x^5 - 9*x^4 + 49*x^3 - 11*x^2 - 7*x + 1, -x^10 + 5*x^9 + 3*x^8 - 45*x^7 + 27*x^6 + 124*x^5 - 109*x^4 - 101*x^3 + 75*x^2 + 10*x - 8, -x^10 + 5*x^9 + 3*x^8 - 45*x^7 + 27*x^6 + 124*x^5 - 109*x^4 - 101*x^3 + 75*x^2 + 10*x - 8]>
       ]
>;

MOG[317] := 	// J_0(317)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 2,
           Coordinates        := [0, 11, 75, 110, 188, 21*x + 79, 296*x + 79, 212*x + 205, 105*x + 205, 71*x + 75, 246*x + 75, 140*x + 31, 177*x + 31, 177*x + 138, 140*x + 138, 175*x + 69, 142*x + 69, 223*x + 147, 94*x + 147, 190*x + 219, 127*x + 219, 21*x + 197, 296*x + 197, 74*x + 163, 243*x + 163, 13*x + 40, 304*x + 40]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^11 + 3*x^10 - 10*x^9 - 32*x^8 + 31*x^7 + 109*x^6 - 42*x^5 - 147*x^4 + 35*x^3 + 68*x^2 - 19*x - 1,
           Coordinates        := [0, 0, 0, 0, 0, -x^10 - 3*x^9 + 8*x^8 + 26*x^7 - 19*x^6 - 71*x^5 + 14*x^4 + 70*x^3 - 18*x, x^10 + 3*x^9 - 8*x^8 - 26*x^7 + 19*x^6 + 71*x^5 - 14*x^4 - 70*x^3 + 18*x, -x^9 - 3*x^8 + 6*x^7 + 19*x^6 - 13*x^5 - 36*x^4 + 17*x^3 + 21*x^2 - 11*x - 1, x^9 + 3*x^8 - 6*x^7 - 19*x^6 + 13*x^5 + 36*x^4 - 17*x^3 - 21*x^2 + 11*x + 1, -x^9 - 3*x^8 + 6*x^7 + 19*x^6 - 15*x^5 - 41*x^4 + 18*x^3 + 29*x^2 - 8*x, x^9 + 3*x^8 - 6*x^7 - 19*x^6 + 15*x^5 + 41*x^4 - 18*x^3 - 29*x^2 + 8*x, -x^8 - 4*x^7 + 2*x^6 + 20*x^5 + 5*x^4 - 29*x^3 - 7*x^2 + 12*x - 2, x^8 + 4*x^7 - 2*x^6 - 20*x^5 - 5*x^4 + 29*x^3 + 7*x^2 - 12*x + 2, -x^8 - 3*x^7 + 4*x^6 + 15*x^5 - 2*x^4 - 20*x^3 - 4*x^2 + 5*x + 2, x^8 + 3*x^7 - 4*x^6 - 15*x^5 + 2*x^4 + 20*x^3 + 4*x^2 - 5*x - 2, -x^8 - 4*x^7 + x^6 + 18*x^5 + 7*x^4 - 24*x^3 - 9*x^2 + 9*x + 1, x^8 + 4*x^7 - x^6 - 18*x^5 - 7*x^4 + 24*x^3 + 9*x^2 - 9*x - 1, -x^8 - 3*x^7 + 3*x^6 + 12*x^5 - 3*x^4 - 17*x^3 + x^2 + 9*x - 1, x^8 + 3*x^7 - 3*x^6 - 12*x^5 + 3*x^4 + 17*x^3 - x^2 - 9*x + 1, -2*x^7 - 4*x^6 + 11*x^5 + 16*x^4 - 21*x^3 - 16*x^2 + 13*x + 1, 2*x^7 + 4*x^6 - 11*x^5 - 16*x^4 + 21*x^3 + 16*x^2 - 13*x - 1, -x^7 - 3*x^6 + 2*x^5 + 12*x^4 + 2*x^3 - 13*x^2 - 3*x + 2, x^7 + 3*x^6 - 2*x^5 - 12*x^4 - 2*x^3 + 13*x^2 + 3*x - 2, -x^7 - 3*x^6 + x^5 + 8*x^4 + 4*x^3 - 4*x^2 - 6*x - 1, x^7 + 3*x^6 - x^5 - 8*x^4 - 4*x^3 + 4*x^2 + 6*x + 1, -2*x^6 - 4*x^5 + 7*x^4 + 13*x^3 - 7*x^2 - 10*x + 1, 2*x^6 + 4*x^5 - 7*x^4 - 13*x^3 + 7*x^2 + 10*x - 1]>,
         rec<Eigen |
           DefiningPolynomial := x^15 - x^14 - 22*x^13 + 22*x^12 + 188*x^11 - 184*x^10 - 786*x^9 + 723*x^8 + 1666*x^7 - 1315*x^6 - 1715*x^5 + 910*x^4 + 829*x^3 - 168*x^2 - 129*x + 1,
           Coordinates        := [-x^14 + x^13 + 19*x^12 - 19*x^11 - 137*x^10 + 135*x^9 + 463*x^8 - 436*x^7 - 727*x^6 + 609*x^5 + 454*x^4 - 277*x^3 - 93*x^2 + 41*x + 4, x^14 - x^13 - 19*x^12 + 19*x^11 + 137*x^10 - 139*x^9 - 459*x^8 + 478*x^7 + 689*x^6 - 739*x^5 - 354*x^4 + 383*x^3 + 49*x^2 - 55*x + 6, 2*x^10 - 4*x^9 - 22*x^8 + 38*x^7 + 68*x^6 - 96*x^5 - 48*x^4 + 18*x^3 + 18*x^2 + 12*x + 2, -3*x^13 + 3*x^12 + 51*x^11 - 49*x^10 - 323*x^9 + 287*x^8 + 939*x^7 - 706*x^6 - 1261*x^5 + 633*x^4 + 736*x^3 - 127*x^2 - 125*x + 1, x^13 - x^12 - 17*x^11 + 17*x^10 + 107*x^9 - 109*x^8 - 295*x^7 + 312*x^6 + 319*x^5 - 361*x^4 - 94*x^3 + 139*x^2 + 9*x - 15, x^11 - 3*x^10 - 9*x^9 + 30*x^8 + 15*x^7 - 82*x^6 + 24*x^5 + 33*x^4 - 3*x^2 - 5*x - 1, x^11 - 3*x^10 - 9*x^9 + 30*x^8 + 15*x^7 - 82*x^6 + 24*x^5 + 33*x^4 - 3*x^2 - 5*x - 1, x^12 - 4*x^11 - 12*x^10 + 55*x^9 + 42*x^8 - 263*x^7 - 25*x^6 + 510*x^5 - 52*x^4 - 363*x^3 + 9*x^2 + 61*x - 3, x^12 - 4*x^11 - 12*x^10 + 55*x^9 + 42*x^8 - 263*x^7 - 25*x^6 + 510*x^5 - 52*x^4 - 363*x^3 + 9*x^2 + 61*x - 3, x^11 + x^10 - 21*x^9 - 5*x^8 + 143*x^7 - 19*x^6 - 381*x^5 + 100*x^4 + 342*x^3 - 32*x^2 - 74*x + 1, x^11 + x^10 - 21*x^9 - 5*x^8 + 143*x^7 - 19*x^6 - 381*x^5 + 100*x^4 + 342*x^3 - 32*x^2 - 74*x + 1, x^13 - x^12 - 17*x^11 + 14*x^10 + 110*x^9 - 68*x^8 - 341*x^7 + 132*x^6 + 521*x^5 - 83*x^4 - 343*x^3 - 13*x^2 + 63*x + 7, x^13 - x^12 - 17*x^11 + 14*x^10 + 110*x^9 - 68*x^8 - 341*x^7 + 132*x^6 + 521*x^5 - 83*x^4 - 343*x^3 - 13*x^2 + 63*x + 7, -3*x^12 + 4*x^11 + 44*x^10 - 59*x^9 - 225*x^8 + 301*x^7 + 460*x^6 - 597*x^5 - 313*x^4 + 352*x^3 + 77*x^2 - 61*x - 6, -3*x^12 + 4*x^11 + 44*x^10 - 59*x^9 - 225*x^8 + 301*x^7 + 460*x^6 - 597*x^5 - 313*x^4 + 352*x^3 + 77*x^2 - 61*x - 6, x^12 - x^11 - 15*x^10 + 16*x^9 + 76*x^8 - 83*x^7 - 143*x^6 + 146*x^5 + 63*x^4 - 33*x^3 + 5*x^2 + x - 3, x^12 - x^11 - 15*x^10 + 16*x^9 + 76*x^8 - 83*x^7 - 143*x^6 + 146*x^5 + 63*x^4 - 33*x^3 + 5*x^2 + x - 3, x^11 - 3*x^10 - 12*x^9 + 37*x^8 + 49*x^7 - 156*x^6 - 70*x^5 + 246*x^4 + x^3 - 76*x^2 + 5*x + 4, x^11 - 3*x^10 - 12*x^9 + 37*x^8 + 49*x^7 - 156*x^6 - 70*x^5 + 246*x^4 + x^3 - 76*x^2 + 5*x + 4, -3*x^11 + 2*x^10 + 43*x^9 - 28*x^8 - 216*x^7 + 134*x^6 + 438*x^5 - 229*x^4 - 296*x^3 + 57*x^2 + 58*x + 2, -3*x^11 + 2*x^10 + 43*x^9 - 28*x^8 - 216*x^7 + 134*x^6 + 438*x^5 - 229*x^4 - 296*x^3 + 57*x^2 + 58*x + 2, x^11 + x^10 - 13*x^9 - 10*x^8 + 55*x^7 + 33*x^6 - 77*x^5 - 50*x^4 + 6*x^3 + 46*x^2 + 8*x - 8, x^11 + x^10 - 13*x^9 - 10*x^8 + 55*x^7 + 33*x^6 - 77*x^5 - 50*x^4 + 6*x^3 + 46*x^2 + 8*x - 8, x^12 - x^11 - 15*x^10 + 15*x^9 + 82*x^8 - 83*x^7 - 185*x^6 + 189*x^5 + 130*x^4 - 122*x^3 - 20*x^2 + 20*x - 3, x^12 - x^11 - 15*x^10 + 15*x^9 + 82*x^8 - 83*x^7 - 185*x^6 + 189*x^5 + 130*x^4 - 122*x^3 - 20*x^2 + 20*x - 3, x^11 + x^10 - 13*x^9 - 11*x^8 + 61*x^7 + 33*x^6 - 119*x^5 - 7*x^4 + 73*x^3 - 43*x^2 - 17*x + 11, x^11 + x^10 - 13*x^9 - 11*x^8 + 61*x^7 + 33*x^6 - 119*x^5 - 7*x^4 + 73*x^3 - 43*x^2 - 17*x + 11]>
       ]
>;

MOG[331] := 	// J_0(331)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [27, 73, 118, 124, 188, 189, 73*x + 304, 258*x + 304, 34*x + 266, 297*x + 266, 271*x + 177, 60*x + 177, 226*x + 60, 105*x + 60, 14*x + 14, 317*x + 14, 98*x + 179, 233*x + 179, 178*x + 93, 153*x + 93, 142*x + 192, 189*x + 192, 303*x + 148, 28*x + 148, 77*x + 42, 254*x + 42, 93*x + 57, 238*x + 57]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x + 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, 1, -1, -1, 1, 0, 0, -1, 1, 0, 0, -1, 1, 1, -1, 0, 0, 0, 0, 0, 0, -1, 1]>,
         rec<Eigen |
           DefiningPolynomial := x^3 + 2*x^2 - 4*x - 7,
           Coordinates        := [0, 0, 0, 0, 0, 0, x^2 - 2, -x^2 + 2, -x^2 + x + 3, x^2 - x - 3, -x^2 + x + 4, x^2 - x - 4, x^2 - 2, -x^2 + 2, x^2 - 3, -x^2 + 3, x^2 - 2, -x^2 + 2, x + 2, -x - 2, -x^2 + 3, x^2 - 3, x + 1, -x - 1, x + 1, -x - 1, 1, -1]>,
         rec<Eigen |
           DefiningPolynomial := x^7 + 2*x^6 - 6*x^5 - 8*x^4 + 11*x^3 + 3*x^2 - 5*x + 1,
           Coordinates        := [0, 0, 0, 0, 0, 0, x^6 + 2*x^5 - 6*x^4 - 9*x^3 + 7*x^2 + 2*x - 1, -x^6 - 2*x^5 + 6*x^4 + 9*x^3 - 7*x^2 - 2*x + 1, x^6 + 2*x^5 - 5*x^4 - 8*x^3 + 5*x^2 + 3*x - 1, -x^6 - 2*x^5 + 5*x^4 + 8*x^3 - 5*x^2 - 3*x + 1, -x^6 - 2*x^5 + 4*x^4 + 4*x^3 - 6*x^2 + x, x^6 + 2*x^5 - 4*x^4 - 4*x^3 + 6*x^2 - x, x^5 + x^4 - 5*x^3 - 2*x^2 + 5*x - 1, -x^5 - x^4 + 5*x^3 + 2*x^2 - 5*x + 1, -x^6 - 3*x^5 + 3*x^4 + 10*x^3 - 3*x^2 - 6*x + 2, x^6 + 3*x^5 - 3*x^4 - 10*x^3 + 3*x^2 + 6*x - 2, -x^5 - x^4 + 4*x^3 - x, x^5 + x^4 - 4*x^3 + x, x^4 + x^3 - 2*x^2 + x, -x^4 - x^3 + 2*x^2 - x, -x^5 - 2*x^4 + 4*x^3 + 3*x^2 - 4*x + 1, x^5 + 2*x^4 - 4*x^3 - 3*x^2 + 4*x - 1, -x^4 + 5*x^2 - 2*x, x^4 - 5*x^2 + 2*x, x^4 + 3*x^3 - 2*x^2 - 3*x + 1, -x^4 - 3*x^3 + 2*x^2 + 3*x - 1, x^3 + 2*x^2 - 4*x + 1, -x^3 - 2*x^2 + 4*x - 1]>,
         rec<Eigen |
           DefiningPolynomial := x^16 - 3*x^15 - 19*x^14 + 60*x^13 + 136*x^12 - 465*x^11 - 448*x^10 + 1747*x^9 + 657*x^8 - 3241*x^7 - 375*x^6 + 2695*x^5 + 230*x^4 - 855*x^3 - 110*x^2 + 56*x + 8,
           Coordinates        := [-x^15 + 3*x^14 + 16*x^13 - 51*x^12 - 94*x^11 + 328*x^10 + 248*x^9 - 987*x^8 - 305*x^7 + 1380*x^6 + 248*x^5 - 753*x^4 - 210*x^3 + 66*x^2 + 10*x, x^15 - 2*x^14 - 19*x^13 + 37*x^12 + 139*x^11 - 260*x^10 - 492*x^9 + 855*x^8 + 880*x^7 - 1295*x^6 - 798*x^5 + 735*x^4 + 389*x^3 - 78*x^2 - 50*x - 4, -x^14 + 3*x^13 + 14*x^12 - 45*x^11 - 70*x^10 + 248*x^9 + 152*x^8 - 611*x^7 - 155*x^6 + 650*x^5 + 126*x^4 - 263*x^3 - 52*x^2 + 16*x, -x^13 + 3*x^12 + 12*x^11 - 37*x^10 - 56*x^9 + 162*x^8 + 154*x^7 - 319*x^6 - 275*x^5 + 290*x^4 + 178*x^3 - 39*x^2 + 4*x + 4, 2*x^14 - 4*x^13 - 34*x^12 + 66*x^11 + 216*x^10 - 400*x^9 - 632*x^8 + 1066*x^7 + 872*x^6 - 1162*x^5 - 576*x^4 + 388*x^3 + 138*x^2 - 10*x - 4, -x^13 + 3*x^12 + 12*x^11 - 43*x^10 - 40*x^9 + 214*x^8 - 4*x^7 - 411*x^6 + 153*x^5 + 200*x^4 - 20*x^3 - 11*x^2 - 14*x - 4, 2*x^13 - 4*x^12 - 31*x^11 + 60*x^10 + 176*x^9 - 322*x^8 - 444*x^7 + 714*x^6 + 510*x^5 - 541*x^4 - 320*x^3 + 73*x^2 + 48*x + 4, 2*x^13 - 4*x^12 - 31*x^11 + 60*x^10 + 176*x^9 - 322*x^8 - 444*x^7 + 714*x^6 + 510*x^5 - 541*x^4 - 320*x^3 + 73*x^2 + 48*x + 4, 2*x^12 - 3*x^11 - 30*x^10 + 43*x^9 + 162*x^8 - 215*x^7 - 374*x^6 + 419*x^5 + 352*x^4 - 222*x^3 - 155*x^2 - 4*x + 4, 2*x^12 - 3*x^11 - 30*x^10 + 43*x^9 + 162*x^8 - 215*x^7 - 374*x^6 + 419*x^5 + 352*x^4 - 222*x^3 - 155*x^2 - 4*x + 4, x^12 - 3*x^11 - 10*x^10 + 35*x^9 + 26*x^8 - 137*x^7 + 12*x^6 + 202*x^5 - 96*x^4 - 93*x^3 + 65*x^2 + 18*x, x^12 - 3*x^11 - 10*x^10 + 35*x^9 + 26*x^8 - 137*x^7 + 12*x^6 + 202*x^5 - 96*x^4 - 93*x^3 + 65*x^2 + 18*x, -x^12 + 4*x^11 + 13*x^10 - 57*x^9 - 55*x^8 + 285*x^7 + 79*x^6 - 577*x^5 - 33*x^4 + 387*x^3 + 78*x^2 - 40*x - 8, -x^12 + 4*x^11 + 13*x^10 - 57*x^9 - 55*x^8 + 285*x^7 + 79*x^6 - 577*x^5 - 33*x^4 + 387*x^3 + 78*x^2 - 40*x - 8, -x^12 + 4*x^11 + 7*x^10 - 43*x^9 + x^8 + 146*x^7 - 60*x^6 - 180*x^5 + 26*x^4 + 112*x^3 + 28*x^2 - 6*x, -x^12 + 4*x^11 + 7*x^10 - 43*x^9 + x^8 + 146*x^7 - 60*x^6 - 180*x^5 + 26*x^4 + 112*x^3 + 28*x^2 - 6*x, -x^13 + 2*x^12 + 17*x^11 - 32*x^10 - 107*x^9 + 184*x^8 + 310*x^7 - 452*x^6 - 426*x^5 + 422*x^4 + 273*x^3 - 83*x^2 - 42*x - 4, -x^13 + 2*x^12 + 17*x^11 - 32*x^10 - 107*x^9 + 184*x^8 + 310*x^7 - 452*x^6 - 426*x^5 + 422*x^4 + 273*x^3 - 83*x^2 - 42*x - 4, -x^13 + 3*x^12 + 12*x^11 - 40*x^10 - 41*x^9 + 178*x^8 + 9*x^7 - 282*x^6 + 125*x^5 + 68*x^4 - 87*x^3 + 37*x^2 + 36*x + 4, -x^13 + 3*x^12 + 12*x^11 - 40*x^10 - 41*x^9 + 178*x^8 + 9*x^7 - 282*x^6 + 125*x^5 + 68*x^4 - 87*x^3 + 37*x^2 + 36*x + 4, -2*x^11 + 4*x^10 + 22*x^9 - 42*x^8 - 77*x^7 + 127*x^6 + 99*x^5 - 82*x^4 - 57*x^3 - 32*x^2 - 22*x - 4, -2*x^11 + 4*x^10 + 22*x^9 - 42*x^8 - 77*x^7 + 127*x^6 + 99*x^5 - 82*x^4 - 57*x^3 - 32*x^2 - 22*x - 4, -x^14 + 3*x^13 + 14*x^12 - 46*x^11 - 65*x^10 + 256*x^9 + 100*x^8 - 625*x^7 + 14*x^6 + 646*x^5 - 53*x^4 - 263*x^3 - 24*x^2 + 20*x + 4, -x^14 + 3*x^13 + 14*x^12 - 46*x^11 - 65*x^10 + 256*x^9 + 100*x^8 - 625*x^7 + 14*x^6 + 646*x^5 - 53*x^4 - 263*x^3 - 24*x^2 + 20*x + 4, -x^12 + 2*x^11 + 11*x^10 - 21*x^9 - 36*x^8 + 58*x^7 + 32*x^6 - x^5 - x^4 - 87*x^3 - 18*x^2 + 24*x + 4, -x^12 + 2*x^11 + 11*x^10 - 21*x^9 - 36*x^8 + 58*x^7 + 32*x^6 - x^5 - x^4 - 87*x^3 - 18*x^2 + 24*x + 4, -x^12 + x^11 + 15*x^10 - 17*x^9 - 78*x^8 + 100*x^7 + 154*x^6 - 225*x^5 - 73*x^4 + 126*x^3 + 19*x^2 - 10*x, -x^12 + x^11 + 15*x^10 - 17*x^9 - 78*x^8 + 100*x^7 + 154*x^6 - 225*x^5 - 73*x^4 + 126*x^3 + 19*x^2 - 10*x]>
       ]
>;

MOG[337] := 	// J_0(337)
   rec<SupersingularModule | 
       MonodromyWeights   := [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 5,
           Coordinates        := [88, 226, 258, 312, 31*x + 21, 306*x + 21, 190*x + 200, 147*x + 200, 319*x + 78, 18*x + 78, 13*x + 14, 324*x + 14, 51*x + 65, 286*x + 65, 99*x + 19, 238*x + 19, 99*x + 287, 238*x + 287, 56*x + 125, 281*x + 125, 255*x + 233, 82*x + 233, 280*x + 21, 57*x + 21, 95*x + 123, 242*x + 123, 59*x + 27, 278*x + 27]>,
       Eigenvectors := [
         rec<Eigen |
           DefiningPolynomial := x^12 + 6*x^11 + x^10 - 54*x^9 - 76*x^8 + 135*x^7 + 289*x^6 - 97*x^5 - 392*x^4 - 28*x^3 + 201*x^2 + 36*x - 27,
           Coordinates        := [0, 0, 0, 0, -x^11 - 6*x^10 - 3*x^9 + 43*x^8 + 73*x^7 - 63*x^6 - 198*x^5 - 22*x^4 + 178*x^3 + 76*x^2 - 48*x - 27, x^11 + 6*x^10 + 3*x^9 - 43*x^8 - 73*x^7 + 63*x^6 + 198*x^5 + 22*x^4 - 178*x^3 - 76*x^2 + 48*x + 27, -x^6 - 5*x^5 - 6*x^4 + 3*x^3 + 8*x^2 + 3*x, x^6 + 5*x^5 + 6*x^4 - 3*x^3 - 8*x^2 - 3*x, -x^10 - 5*x^9 + 2*x^8 + 41*x^7 + 32*x^6 - 95*x^5 - 103*x^4 + 81*x^3 + 97*x^2 - 21*x - 27, x^10 + 5*x^9 - 2*x^8 - 41*x^7 - 32*x^6 + 95*x^5 + 103*x^4 - 81*x^3 - 97*x^2 + 21*x + 27, -x^10 - 6*x^9 - 5*x^8 + 31*x^7 + 59*x^6 - 24*x^5 - 111*x^4 - 33*x^3 + 56*x^2 + 30*x, x^10 + 6*x^9 + 5*x^8 - 31*x^7 - 59*x^6 + 24*x^5 + 111*x^4 + 33*x^3 - 56*x^2 - 30*x, -x^7 - 6*x^6 - 11*x^5 - 3*x^4 + 11*x^3 + 11*x^2 + 3*x, x^7 + 6*x^6 + 11*x^5 + 3*x^4 - 11*x^3 - 11*x^2 - 3*x, -x^9 - 6*x^8 - 7*x^7 + 19*x^6 + 42*x^5 - 4*x^4 - 55*x^3 - 24*x^2 + 15*x + 9, x^9 + 6*x^8 + 7*x^7 - 19*x^6 - 42*x^5 + 4*x^4 + 55*x^3 + 24*x^2 - 15*x - 9, -x^9 - 6*x^8 - 7*x^7 + 20*x^6 + 45*x^5 - 7*x^4 - 67*x^3 - 22*x^2 + 33*x + 18, x^9 + 6*x^8 + 7*x^7 - 20*x^6 - 45*x^5 + 7*x^4 + 67*x^3 + 22*x^2 - 33*x - 18, -x^8 - 5*x^7 - 3*x^6 + 16*x^5 + 15*x^4 - 22*x^3 - 22*x^2 + 9*x + 9, x^8 + 5*x^7 + 3*x^6 - 16*x^5 - 15*x^4 + 22*x^3 + 22*x^2 - 9*x - 9, -x^7 - 7*x^6 - 14*x^5 + 2*x^4 + 30*x^3 + 17*x^2 - 12*x - 9, x^7 + 7*x^6 + 14*x^5 - 2*x^4 - 30*x^3 - 17*x^2 + 12*x + 9, -x^8 - 7*x^7 - 14*x^6 + 4*x^5 + 41*x^4 + 31*x^3 - 19*x^2 - 30*x - 9, x^8 + 7*x^7 + 14*x^6 - 4*x^5 - 41*x^4 - 31*x^3 + 19*x^2 + 30*x + 9, -x^8 - 7*x^7 - 15*x^6 - x^5 + 35*x^4 + 36*x^3 - 6*x^2 - 24*x - 9, x^8 + 7*x^7 + 15*x^6 + x^5 - 35*x^4 - 36*x^3 + 6*x^2 + 24*x + 9, -x^8 - 4*x^7 + x^6 + 18*x^5 + 9*x^4 - 25*x^3 - 17*x^2 + 12*x + 9, x^8 + 4*x^7 - x^6 - 18*x^5 - 9*x^4 + 25*x^3 + 17*x^2 - 12*x - 9]>,
         rec<Eigen |
           DefiningPolynomial := x^15 - 3*x^14 - 18*x^13 + 56*x^12 + 123*x^11 - 402*x^10 - 400*x^9 + 1395*x^8 + 643*x^7 - 2406*x^6 - 496*x^5 + 1843*x^4 + 200*x^3 - 388*x^2 - 69*x + 1,
           Coordinates        := [-x^14 + 4*x^13 + 12*x^12 - 62*x^11 - 35*x^10 + 353*x^9 - 69*x^8 - 902*x^7 + 465*x^6 + 1001*x^5 - 617*x^4 - 376*x^3 + 176*x^2 + 32*x - 1, x^14 - 4*x^13 - 12*x^12 + 60*x^11 + 41*x^10 - 333*x^9 + x^8 + 848*x^7 - 215*x^6 - 985*x^5 + 271*x^4 + 442*x^3 - 28*x^2 - 62*x - 5, -2*x^11 + 6*x^10 + 22*x^9 - 72*x^8 - 72*x^7 + 282*x^6 + 66*x^5 - 408*x^4 - 8*x^3 + 168*x^2 + 36*x + 2, -2*x^10 + 6*x^9 + 22*x^8 - 72*x^7 - 66*x^6 + 270*x^5 + 20*x^4 - 322*x^3 + 68*x^2 + 52*x + 4, -x^12 + 3*x^11 + 12*x^10 - 39*x^9 - 47*x^8 + 177*x^7 + 66*x^6 - 339*x^5 - 14*x^4 + 245*x^3 - 16*x^2 - 25*x - 2, -x^12 + 3*x^11 + 12*x^10 - 39*x^9 - 47*x^8 + 177*x^7 + 66*x^6 - 339*x^5 - 14*x^4 + 245*x^3 - 16*x^2 - 25*x - 2, 3*x^7 - 6*x^6 - 23*x^5 + 43*x^4 + 38*x^3 - 58*x^2 - 16*x - 1, 3*x^7 - 6*x^6 - 23*x^5 + 43*x^4 + 38*x^3 - 58*x^2 - 16*x - 1, -x^13 + 3*x^12 + 14*x^11 - 45*x^10 - 68*x^9 + 246*x^8 + 130*x^7 - 595*x^6 - 64*x^5 + 598*x^4 - 33*x^3 - 164*x^2 - 4*x + 3, -x^13 + 3*x^12 + 14*x^11 - 45*x^10 - 68*x^9 + 246*x^8 + 130*x^7 - 595*x^6 - 64*x^5 + 598*x^4 - 33*x^3 - 164*x^2 - 4*x + 3, -x^9 + 3*x^8 + 8*x^7 - 26*x^6 - 16*x^5 + 55*x^4 + 25*x^3 - 29*x^2 - 34*x - 5, -x^9 + 3*x^8 + 8*x^7 - 26*x^6 - 16*x^5 + 55*x^4 + 25*x^3 - 29*x^2 - 34*x - 5, 2*x^10 - 6*x^9 - 19*x^8 + 63*x^7 + 49*x^6 - 204*x^5 - 25*x^4 + 226*x^3 - 26*x^2 - 37*x - 3, 2*x^10 - 6*x^9 - 19*x^8 + 63*x^7 + 49*x^6 - 204*x^5 - 25*x^4 + 226*x^3 - 26*x^2 - 37*x - 3, x^12 - 4*x^11 - 9*x^10 + 49*x^9 + 13*x^8 - 203*x^7 + 57*x^6 + 339*x^5 - 140*x^4 - 209*x^3 + 62*x^2 + 26*x - 2, x^12 - 4*x^11 - 9*x^10 + 49*x^9 + 13*x^8 - 203*x^7 + 57*x^6 + 339*x^5 - 140*x^4 - 209*x^3 + 62*x^2 + 26*x - 2, x^11 - 4*x^10 - 7*x^9 + 42*x^8 - 139*x^6 + 55*x^5 + 179*x^4 - 65*x^3 - 80*x^2 - 6*x + 4, x^11 - 4*x^10 - 7*x^9 + 42*x^8 - 139*x^6 + 55*x^5 + 179*x^4 - 65*x^3 - 80*x^2 - 6*x + 4, x^11 - 3*x^10 - 10*x^9 + 33*x^8 + 27*x^7 - 113*x^6 - 7*x^5 + 128*x^4 - 37*x^3 - 20*x^2 + 16*x + 5, x^11 - 3*x^10 - 10*x^9 + 33*x^8 + 27*x^7 - 113*x^6 - 7*x^5 + 128*x^4 - 37*x^3 - 20*x^2 + 16*x + 5, x^11 - 3*x^10 - 9*x^9 + 30*x^8 + 19*x^7 - 85*x^6 + 5*x^5 + 55*x^4 - 27*x^3 + 41*x^2 - 3*x - 4, x^11 - 3*x^10 - 9*x^9 + 30*x^8 + 19*x^7 - 85*x^6 + 5*x^5 + 55*x^4 - 27*x^3 + 41*x^2 - 3*x - 4, x^13 - 4*x^12 - 10*x^11 + 52*x^10 + 24*x^9 - 239*x^8 + 22*x^7 + 478*x^6 - 117*x^5 - 392*x^4 + 74*x^3 + 75*x^2 + 16*x, x^13 - 4*x^12 - 10*x^11 + 52*x^10 + 24*x^9 - 239*x^8 + 22*x^7 + 478*x^6 - 117*x^5 - 392*x^4 + 74*x^3 + 75*x^2 + 16*x, x^12 - 4*x^11 - 8*x^10 + 45*x^9 + 8*x^8 - 167*x^7 + 41*x^6 + 254*x^5 - 57*x^4 - 158*x^3 - 18*x^2 + 36*x + 7, x^12 - 4*x^11 - 8*x^10 + 45*x^9 + 8*x^8 - 167*x^7 + 41*x^6 + 254*x^5 - 57*x^4 - 158*x^3 - 18*x^2 + 36*x + 7, x^10 - 2*x^9 - 11*x^8 + 20*x^7 + 40*x^6 - 59*x^5 - 63*x^4 + 53*x^3 + 41*x^2 + 2*x - 2, x^10 - 2*x^9 - 11*x^8 + 20*x^7 + 40*x^6 - 59*x^5 - 63*x^4 + 53*x^3 + 41*x^2 + 2*x - 2]>
       ]
>;

MOG[347] := 	// J_0(347)
   rec<SupersingularModule | 
       MonodromyWeights   := [3, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
       SupersingularBasis := rec<Eigen|
           DefiningPolynomial := x^2 + 1,
           Coordinates        := [0, 77, 180, 184, 197, 202, 215, 311, 338, 340, 36*x + 239, 311*x + 239, 141*x + 346, 206*x + 346, 281*x + 120, 66*x + 120, 156*x + 94, 191*x + 94, 127*x + 313, 220*x + 313, 313*x + 219, 34*x + 219,