"Source: Text/Geometry/ModFrmBianchi.text";
"Line: 307";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/ModFrmBianchi.text, line: 307
// Example: H150E2 ()
print "Example: H150E2";
ei := GetEchoInput();
SetEchoInput(true);
_<x> := PolynomialRing(Rationals());
 F := NumberField(x^2+14);
 OF := Integers(F);
 level := (Factorization(3*OF)[1][1])^2;
 M9 := BianchiCuspForms(F, level);
 P:=Factorization(23*OF);
 P[1,1];
 HeckeOperator(M9, P[1,1]);
 P[2,1];
 HeckeOperator(M9, P[2,1]);
 HeckeOperator(M9, 2*OF);
SetEchoInput(ei);
