"Source: Text/Ring/Char.text";
"Line: 683";
"Date: Fri Sep 26 12:10:11 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Ring/Char.text, line: 683
// Example: H43E5 ()
print "Example: H43E5";
ei := GetEchoInput();
SetEchoInput(true);
G := DirichletGroup(16*3^2*5^2*7*11, CyclotomicField(2^6*3*5));
#G;
assert $1 eq 57600;
repeat chi := Random(G); until Order(chi) eq 30;
psi := DirichletCharacterOverNF(chi);
Order(psi);
assert $1 eq 30;
#Parent(psi)`ambient;
assert $1 eq 57600;
&and[chi(p) eq psi(p) : p in PrimesUpTo(1000)];
assert $1;
DirichletCharacterOverQ(psi) eq chi;
assert $1;
SetEchoInput(ei);
