"Source: Text/Geometry/RepLoc.text";
"Line: 403";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/RepLoc.text, line: 403
// Example: H152E5 ()
print "Example: H152E5";
ei := GetEchoInput();
SetEchoInput(true);
S := CuspidalSubspace(ModularSymbols(Gamma0(27), 4, 1));
newforms := NewformDecomposition(S);
Eigenform(newforms[1], 13);
pi:=LocalComponent(newforms[1], 3); 
pi;
W:=CuspidalInducingDatum(pi);
W;
Group(W);
E, chi:=AdmissiblePair(pi);
E;
E.1^2;
assert $1 eq 3;
chi(1+E.1);
WeilRepresentation(pi); 
SetEchoInput(ei);
