"Source: Text/Geometry/ModFrmAlg.text";
"Line: 336";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/ModFrmAlg.text, line: 336
// Example: H151E1 ()
print "Example: H151E1";
ei := GetEchoInput();
SetEchoInput(true);
Q := SymmetricMatrix([6,0,2,-4,-1,12,3,1,6,12]);
M := OrthogonalModularForms(Q);
Q := SymmetricMatrix([2,0,4,1,1,10,1,2,1,20]);
M := OrthogonalModularForms(LatticeWithGram(Q));
Lambdas := [GramMatrix(ZLattice(Lambda)) : Lambda in GenusReps(M)];
Lambdas;
SetEchoInput(ei);
