Qx<x>:=PolynomialRing(Rationals());
basis_list:=[**];
G:=FullDirichletGroup(
801
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
801
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
801
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
88
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
801
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
264
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
801
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
132
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
801
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
801
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
801
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
801
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
801
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
801
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
801
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
801
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 22*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
801
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 22*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
801
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 44*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
801
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 44*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
802
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
400
);
qprec:=
199
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
802
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
80
);
qprec:=
199
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
802
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
25*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
199
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
360
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
180
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
120
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 24*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 24*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 36*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
803
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 36*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^23 + q^25 - q^27 - q^37 + q^64 - q^69 - q^89 - q^91 - 
        q^92 + q^100 - q^108 - q^111 - q^119 + q^121 - q^143 + O(q^146),
    q^3 - q^9 + q^12 - q^23 - q^36 - q^37 + q^48 - q^49 + q^67 + q^71 + q^75 + 
        q^77 - q^89 - q^92 + q^97 + q^137 - q^143 - q^144 + O(q^146),
    q^7 - q^13 - q^17 - q^21 + q^28 + q^29 + q^33 - q^52 + q^63 - q^68 + q^83 - 
        q^84 - q^87 - q^99 + q^101 - q^107 + q^112 + q^116 + 2*q^129 - q^131 + 
        q^132 - q^139 + O(q^146),
    q^11 - q^13 - q^17 + q^21 - q^39 + 2*q^43 + q^44 - q^51 - q^52 - q^63 - q^68
        + q^73 + q^84 + q^87 - q^107 + q^117 - q^131 - q^139 + O(q^146)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
804
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
804
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
804
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
804
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
804
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
804
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^6*q^3 + (a^19 + a^18 - a^16 - a^15 + a^14 + a^13 + a^12 - a^10 - a^9 -
        a^8 + a^6 + a^5 - a^3 - a^2 + 1)*q^7 + a^12*q^9 + (-a^18 - a^9 + 
        a^7)*q^13 + (a^16 + a^4)*q^19 + (-a^19 + a^17 + a^16 - a^14 - a^13 + 
        a^11 + a^10 + a^9 - a^7 - a^6 - a^5 + a^4 + a^3 - a - 1)*q^21 + (a^19 - 
        a^8)*q^25 + a^18*q^27 + (-a^19 - a^18 + a^16 + a^15 - a^13 - a^12 + a^9 
        + a^8 - a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^31 + (-a^19 - a^14 + 
        a^3)*q^37 + (-a^15 + a^2)*q^39 + (-a^17 - a)*q^43 + (a^19 - a^16 + a^14 
        - a^11 - a^10 + a^7 - a^4 - a^3 + a + 1)*q^49 + (a^11 + a^10 - 1)*q^57 +
        (a^13 - a^12 - a^2 + a)*q^61 + (a^15 - a^11 - a^4)*q^63 + a^8*q^67 + 
        (-a^11 - a^3)*q^73 - a^3*q^75 + (-a^16 + a^11 + a^5 - 1)*q^79 + (a^13 - 
        a^2)*q^81 + (a^17 - a^12 + a^10 + a^8 - a^6 + a)*q^91 + (-a^16 - a^13 + 
        a^5)*q^93 + (-a^17 - a^16 + a^5)*q^97 + (a^15 - a^4 + a^2)*q^103 + (a^15
        - a^4 - a)*q^109 + (a^19 - a^17 - a^16 + a^13 - a^11 - a^10 + a^7 + a^6 
        - a^4 + a + 1)*q^111 + (-a^19 - a^18 + a^16 + a^15 - a^13 - a^12 + a^9 +
        2*a^8 - a^6 - a^5 + a^3 + a^2 - 1)*q^117 - a^19*q^121 + (a^19 - a^17 - 
        a^16 - a^15 + a^14 + a^13 - a^11 - a^10 + a^7 + a^6 - a^4 - a^3 + a + 
        1)*q^127 + (-a^12 - a^7 + a)*q^129 + (a^19 + a^18 - a^15 - a^8 - 
        a^3)*q^133 + (-a^19 + a^17 + a^16 - a^14 - a^13 + a^11 + 2*a^10 + a^9 - 
        a^7 - a^6 + a^4 + a^3 - a - 1)*q^139 + (-a^19 + a^4 - a)*q^147 + (a^13 -
        a^5 - a^2)*q^151 + (a^16 - a^7)*q^157 + (-a^13 - a^9)*q^163 + (a^18 - 
        a^14 - a^5 + a^3)*q^169 + (a^17 + a^16 - a^6)*q^171 + (-a^18 - a^11 + 
        a^7)*q^175 + (a^12 + a^11 - 1)*q^181 + (a^19 - a^18 - a^8 + a^7)*q^183 +
        (a^19 + a^18 - a^17 - a^16 - a^15 + a^13 + a^12 - a^10 - a^9 - a^8 + a^6
        + a^5 - a^3 - a^2 + 1)*q^189 + (a^4 + a^2)*q^193 + (-a^19 - a^18 + a^16 
        + a^15 + a^14 - a^13 - a^12 + a^9 + a^8 - a^6 - a^5 + a^3 + a^2 - 
        1)*q^199 + a^14*q^201 + (-a^19 + a^17 + a^16 - a^14 - a^13 + a^12 + a^11
        + a^10 + a^9 - a^7 - a^6 + a^4 + a^3 - a - 1)*q^211 + (-2*a^19 - a^18 + 
        a^17 + 2*a^16 + a^15 - a^14 - 2*a^13 - a^12 + a^11 + a^10 + 2*a^9 + a^8 
        - a^7 - a^6 - a^5 + a^4 + 2*a^3 + 2*a^2 - a - 2)*q^217 + (-a^17 - 
        a^9)*q^219 + (a^19 + a^18 - a^16 - a^15 + a^13 + a^12 + a^11 - a^10 - 
        a^9 - a^8 + a^6 + a^5 - a^3 - a^2)*q^223 - a^9*q^225 + (-a^11 + 
        a^6)*q^229 + (a^17 - a^6 + 1)*q^237 + (a^19 + a^18 - a^16 - a^15 + a^13 
        + a^12 - a^10 - a^9 - a^8 + a^6 + a^5 + a^4 - a^3 - a^2 + 1)*q^241 + 
        (a^19 - a^8)*q^243 + (-a^14 - a^13 + a^12 + a^3 + 1)*q^247 + (a^18 + 
        a^13 + a^6 - a^2 + 1)*q^259 + O(q^262)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
804
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
804
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
804
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
804
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^6*q^3 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^7 - a*q^9 
        + (-a^9 - a^7)*q^13 + (-a^5 + a^4)*q^19 + (-a^9 - a^5)*q^21 + a^8*q^25 -
        a^7*q^27 + (a^9 - a^8 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^31 + (a^8
        - a^3)*q^37 + (a^4 + a^2)*q^39 + (a^6 - a)*q^43 + (-a^9 + a^6 + 
        a^2)*q^49 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a)*q^57 + 
        (a^2 - a)*q^61 + (a^4 + 1)*q^63 + a^8*q^67 + (-a^3 + 1)*q^73 - a^3*q^75 
        + (-a^5 + 1)*q^79 + a^2*q^81 + (a^9 + a^7 + a^5 - a^4 + a^3 - a^2 - 
        1)*q^91 + (-a^5 + a^2)*q^93 + (a^6 - a^5)*q^97 + (a^4 + a^2)*q^103 + 
        (a^4 - a)*q^109 + (-a^9 - a^3)*q^111 + (a^9 + a^7 - a^6 + a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^117 + a^8*q^121 + (-a^9 + a^4)*q^127 + (-a^7 - 
        a)*q^129 + (a^8 - a^7 + a^4 - a^3)*q^133 + (-a^8 + a^7 - a^6 + a^5 - a^4
        + a^3 - a^2 + a - 1)*q^139 + (a^8 + a^4 - a)*q^147 + (-a^5 + a^2)*q^151 
        + (-a^7 - a^5)*q^157 + (-a^9 + a^2)*q^163 + (-a^7 - a^5 - a^3)*q^169 + 
        (a^6 - a^5)*q^171 + (-a^7 + 1)*q^175 + (-a + 1)*q^181 + (a^8 - 
        a^7)*q^183 + (a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^189 + 
        (a^4 + a^2)*q^193 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a - 
        1)*q^199 - a^3*q^201 + (-a^9 - a)*q^211 + (-a^8 + a^7 + a^5 - a^4 + a^3 
        + a - 1)*q^217 + (-a^9 + a^6)*q^219 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4
        + a^3 - a^2 + a)*q^223 - a^9*q^225 + (a^6 + 1)*q^229 + (a^6 + 1)*q^237 +
        (a^9 - a^8 + a^7 - a^6 + a^5 + a^3 - a^2 + a - 1)*q^241 + a^8*q^243 + 
        (-a^3 + a^2 - a + 1)*q^247 + (-a^7 + a^6 + a^2 + 1)*q^259 + O(q^262),
    q^2 + a^6*q^6 + a^2*q^8 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a - 
        1)*q^14 - a*q^18 + a^8*q^24 + (-a^9 - a^7)*q^26 + a^4*q^32 + (-a^5 + 
        a^4)*q^38 + (-a^9 - a^5)*q^42 + a^8*q^50 - a^7*q^54 + (-a^5 - a)*q^56 + 
        (a^9 - a^8 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^62 - a^3*q^72 + (a^8
        - a^3)*q^74 + (a^4 + a^2)*q^78 + (a^6 - a)*q^86 + (a^9 - a^8 + a^7 - a^6
        + a^5 - a^4 + a^3 - a^2 + a - 1)*q^96 + (-a^9 + a^6 + a^2)*q^98 + (-a^9 
        + 1)*q^104 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a)*q^114 +
        (a^2 - a)*q^122 + (a^4 + 1)*q^126 + a^6*q^128 + a^8*q^134 + (-a^3 + 
        1)*q^146 - a^3*q^150 + (-a^7 + a^6)*q^152 + (-a^5 + 1)*q^158 + a^2*q^162
        + (-a^7 + 1)*q^168 + (a^9 + a^7 + a^5 - a^4 + a^3 - a^2 - 1)*q^182 + 
        (-a^5 + a^2)*q^186 + (a^6 - a^5)*q^194 + (a^9 - a^8 + a^7 - a^6 + a^5 - 
        a^4 + a^3 - a^2 + a - 1)*q^200 + (a^4 + a^2)*q^206 - a^9*q^216 + (a^4 - 
        a)*q^218 + (-a^9 - a^3)*q^222 + (-a^7 - a^3)*q^224 + (a^9 + a^7 - a^6 + 
        a^5 - a^4 + a^3 - a^2 + a - 1)*q^234 + a^8*q^242 + (-a^9 - a)*q^248 + 
        (-a^9 + a^4)*q^254 + (-a^7 - a)*q^258 + O(q^262),
    q^4 + a^6*q^12 + a^2*q^16 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a - 
        1)*q^28 - a*q^36 + a^8*q^48 + (-a^9 - a^7)*q^52 + a^4*q^64 + (-a^5 + 
        a^4)*q^76 + (-a^9 - a^5)*q^84 + a^8*q^100 - a^7*q^108 + (-a^5 - a)*q^112
        + (a^9 - a^8 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^124 - a^3*q^144 + 
        (a^8 - a^3)*q^148 + (a^4 + a^2)*q^156 + (a^6 - a)*q^172 + (a^9 - a^8 + 
        a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^192 + (-a^9 + a^6 + 
        a^2)*q^196 + (-a^9 + 1)*q^208 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3
        - a^2 + a)*q^228 + (a^2 - a)*q^244 + (a^4 + 1)*q^252 + a^6*q^256 + 
        O(q^262)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
804
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
804
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
804
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 22*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
804
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 22*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^3 + (2*a - 2)*q^7 + q^9 + a*q^13 - 2*a*q^19 + (2*a - 2)*q^21 + q^25 + 
        q^27 + (-a + 1)*q^31 - 2*a*q^37 + a*q^39 - q^43 - 3*a*q^49 - 2*a*q^57 + 
        a*q^61 + (2*a - 2)*q^63 + (a - 1)*q^67 + a*q^73 + q^75 + (-a + 1)*q^79 +
        q^81 - 2*q^91 + (-a + 1)*q^93 + a*q^97 + (2*a - 2)*q^103 - q^109 - 
        2*a*q^111 + a*q^117 - a*q^121 + (-a + 1)*q^127 - q^129 + 4*q^133 - q^139
        - 3*a*q^147 + a*q^151 - 2*a*q^157 + (-a + 1)*q^163 - 2*a*q^171 + (2*a - 
        2)*q^175 + (-a + 1)*q^181 + a*q^183 + (2*a - 2)*q^189 - q^193 + a*q^199 
        + (a - 1)*q^201 + a*q^211 + 2*a*q^217 + a*q^219 - q^223 + q^225 + 
        a*q^229 + (-a + 1)*q^237 - q^241 + q^243 + (-2*a + 2)*q^247 + 4*q^259 + 
        O(q^262)
]
;
Bo:=
[
    q + (a - 1)*q^7 - q^9 - a*q^13 + a*q^19 + q^25 + (-a + 1)*q^31 + (a - 
        1)*q^33 - a*q^37 - a*q^51 - a*q^61 + (-a + 1)*q^63 - q^67 + a*q^69 + 
        a*q^73 + (a - 1)*q^79 + q^81 + (a - 1)*q^87 + q^91 - a*q^97 + (-a + 
        1)*q^103 + a*q^117 + (-a + 1)*q^123 + (-a + 1)*q^127 - q^133 + (a - 
        1)*q^141 + a*q^151 + a*q^157 + (a - 1)*q^163 - a*q^171 + (a - 1)*q^175 +
        (a - 1)*q^181 - q^187 - a*q^199 + a*q^211 + (-a + 1)*q^213 + a*q^217 - 
        q^225 - a*q^229 - a*q^231 + (-a + 1)*q^247 - a*q^249 + q^253 + q^259 + 
        O(q^262),
    q^2 - a*q^12 + (a - 1)*q^14 - q^18 - a*q^26 + a*q^32 + a*q^38 - q^44 + q^48 
        + q^50 + (-a + 1)*q^62 + (a - 1)*q^66 + (-a + 1)*q^68 - a*q^74 + q^84 + 
        (a - 1)*q^92 - a*q^102 + a*q^108 - q^116 - a*q^122 + (-a + 1)*q^126 - 
        q^128 - q^134 + a*q^138 + a*q^146 + (a - 1)*q^156 + (a - 1)*q^158 + 
        q^162 + q^164 + (a - 1)*q^174 + (-a + 1)*q^176 + q^182 - q^188 - a*q^194
        + (-a + 1)*q^206 - q^224 + (-a + 1)*q^228 + a*q^234 + (-a + 1)*q^246 + 
        (-a + 1)*q^254 + O(q^262),
    q^3 + (-a + 1)*q^11 + a*q^17 + (a - 1)*q^21 - a*q^23 - q^27 + (-a + 1)*q^29 
        - a*q^39 + (a - 1)*q^41 + (-a + 1)*q^47 + a*q^57 + (a - 1)*q^71 + q^75 +
        a*q^77 + a*q^83 - 2*q^89 + (-a + 1)*q^93 + (a - 1)*q^99 + (a - 1)*q^101 
        - a*q^111 + (-a + 1)*q^113 - q^119 - q^143 - 2*q^149 - a*q^153 + q^161 +
        (-a + 1)*q^167 + a*q^173 + 2*q^179 - a*q^183 + (-a + 1)*q^189 - a*q^191 
        + (a - 1)*q^197 - q^201 + a*q^203 + a*q^207 + q^209 + a*q^219 + (-a + 
        1)*q^221 + (a - 1)*q^227 + (-a + 1)*q^233 + (a - 1)*q^237 + (a - 
        1)*q^239 + q^243 + a*q^251 + (-a + 1)*q^257 + (a - 1)*q^261 + O(q^262),
    q^4 - a*q^24 + (a - 1)*q^28 - q^36 - a*q^52 + a*q^64 + a*q^76 - q^88 + q^96 
        + q^100 + (-a + 1)*q^124 + (a - 1)*q^132 + (-a + 1)*q^136 - a*q^148 + 
        q^168 + (a - 1)*q^184 - a*q^204 + a*q^216 - q^232 - a*q^244 + (-a + 
        1)*q^252 - q^256 + O(q^262),
    q^6 - q^16 + (-a + 1)*q^22 + (a - 1)*q^24 + a*q^34 + (a - 1)*q^42 - a*q^46 -
        q^54 + (-a + 1)*q^58 + (-a + 1)*q^64 - a*q^78 + (a - 1)*q^82 + a*q^88 + 
        (-a + 1)*q^94 + (-a + 1)*q^112 + a*q^114 - q^136 + (a - 1)*q^142 + q^144
        + q^150 + a*q^154 + a*q^166 - a*q^168 - 2*q^178 + q^184 + (-a + 1)*q^186
        + (a - 1)*q^198 + (a - 1)*q^202 + a*q^208 + (-a + 1)*q^216 - a*q^222 + 
        (-a + 1)*q^226 + a*q^232 - q^238 + O(q^262),
    q^8 + (-a + 1)*q^12 + (a - 1)*q^32 - a*q^44 + (a - 1)*q^56 + q^68 - q^72 + 
        a*q^84 - q^92 - a*q^104 + (a - 1)*q^108 - a*q^116 + a*q^152 - q^156 + 
        a*q^164 - a*q^188 + q^192 + q^200 - a*q^224 + q^228 + (-a + 1)*q^248 + 
        O(q^262)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
804
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
33*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^17 - q^19 - q^23 + q^25 - q^29 - q^37 - q^47 + q^49 - q^59 + 
        q^67 + 2*q^71 - q^73 + q^81 + 2*q^83 - q^89 + 2*q^103 - q^107 + q^121 - 
        q^127 + 2*q^131 - q^149 - q^151 - q^153 - q^157 - q^163 + 2*q^167 + 
        q^169 - q^171 - q^173 - q^181 - q^193 - q^199 - q^207 + 2*q^211 - q^223 
        + q^225 - q^227 - q^241 - q^257 - q^261 + O(q^262),
    q^3 + q^27 - q^51 - q^57 - q^69 + q^75 - q^87 - q^111 - q^141 + q^147 - 
        q^177 + q^201 + 2*q^213 - q^219 + q^243 + 2*q^249 + O(q^262)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
804
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 33*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^10 + q^16 - q^21 + q^36 - q^37 - q^40 + q^64 - q^73 + q^81
        - q^82 - q^84 - q^90 - q^93 - q^106 + q^121 - q^129 - q^138 + q^144 - 
        q^148 - q^157 - q^160 + q^169 - q^181 - q^189 - q^193 + q^201 + 2*q^202 
        + q^205 + q^210 + q^217 + 2*q^226 + 2*q^237 - q^241 + q^250 + q^256 + 
        O(q^262),
    q^2 - q^5 + q^8 + q^18 - q^20 + q^32 - q^41 - q^42 - q^45 - q^53 - q^69 + 
        q^72 - q^74 - q^80 + 2*q^101 + q^105 + 2*q^113 + q^125 + q^128 - q^137 +
        2*q^141 - q^146 + q^161 + q^162 - q^164 - q^168 - q^177 - q^180 + q^185 
        - q^186 - q^197 - q^212 + 2*q^213 - q^233 + q^242 - q^249 - q^258 + 
        O(q^262),
    q^3 - q^7 + q^12 + q^27 - q^28 - q^30 - q^31 - q^43 - q^46 + q^48 - q^63 + 
        q^67 + q^70 + 2*q^79 + 2*q^94 + q^108 - q^111 - q^112 + q^115 - q^118 - 
        q^120 - q^124 - q^139 + 2*q^142 - q^166 - q^172 - q^184 + q^192 + 
        2*q^214 - q^219 - 2*q^235 + q^243 - q^246 - q^252 + q^259 + O(q^262),
    q^6 - q^14 - q^15 - q^23 + q^24 + q^35 + 2*q^47 + q^54 - q^56 - q^59 - q^60 
        - q^62 + 2*q^71 - q^83 - q^86 - q^92 + q^96 + 2*q^107 - q^123 - q^126 - 
        q^131 + q^134 - q^135 + q^140 + q^155 + 2*q^158 - q^159 - q^167 + 
        2*q^188 - q^207 + q^215 + q^216 - q^222 - q^224 - q^227 + q^230 - q^236 
        - q^240 - q^248 + O(q^262)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
132
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
132
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^9 + a^6)*q^2 + (-a^7 + a^4 - a)*q^4 + a^8*q^7 + (a^9 - a^8 - a^6 - 
        a^4 + a^3 + a - 1)*q^8 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 
        + a - 1)*q^9 + (a^4 - a^3)*q^11 + (a^6 - a^3)*q^14 + (a^8 - a^5 - a^3 + 
        a^2 + 1)*q^16 + (a^8 - a^5)*q^18 + (-a^8 + a^7 - a^6 + a^5 - a^4 + a^3 -
        1)*q^22 - a*q^23 + a^2*q^25 + (-a^9 + a^4 - a)*q^28 + (-a^9 - a^5)*q^29 
        + (-a^9 + a^8 + a^6 - a^3 - a + 1)*q^32 + (a^6 - a^3 + 1)*q^36 + (-a^7 +
        a^2)*q^37 + (a^6 + a^4)*q^43 + (a^9 - a^6 + a^3 - a^2 + a)*q^44 + (a^9 -
        a^8 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^46 - a^5*q^49 + (a^8 + 
        1)*q^50 + (a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^53 + (a^9 
        - a^8 - a^6 + a^5 + a^3 + a - 1)*q^56 + (-a^7 + a^4 - a^3 + 1)*q^58 - 
        a^7*q^63 + (-a^8 + a^5 - a^2 - 1)*q^64 + (-a^9 + a^6)*q^67 + (a^8 - 
        a^7)*q^71 + (-a^9 + a^6 + a^4 - a)*q^72 + (a^8 - a^5 + a^2 + 1)*q^74 + 
        (-a + 1)*q^77 + (-a^5 - a)*q^79 - a^9*q^81 + (a^9 - a^8 + a^7 - a^6 + 
        a^5 + a^3 - 1)*q^86 + (a^7 - a^4 + a)*q^88 + (a^8 - a^5 + a^2)*q^92 + 
        (-a^3 + 1)*q^98 + (-a^3 + a^2)*q^99 + (-a^9 + a^6 - a^3)*q^100 + (a^8 - 
        a^5 + a^4 - a)*q^106 + (-a^9 - a^3)*q^107 + (-a^3 + 1)*q^109 + (a^9 + 
        a^7 - a^6 - a^4 + a^3 + a)*q^112 + (-a^3 - a)*q^113 + (-a^8 + a^7 - a^4 
        + a^3 - 1)*q^116 + (a^8 - a^7 + a^6)*q^121 + (-a^5 + a^2)*q^126 + (a^9 +
        a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^127 + (-a^6 + a^3 - 
        1)*q^128 + (-a^7 + 2*a^4 - a)*q^134 + (-a^7 + a^4)*q^137 + (a^6 - a^5 - 
        a^3 + a^2)*q^142 + (a^9 - a^8 - a^6 + a^5 + a^3 - 1)*q^144 + (-a^9 + a^8
        + a^6 - 2*a^3 + 1)*q^148 + (a^9 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a 
        - 1)*q^149 + (-a^5 - a)*q^151 + (-a^8 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^154 + (a^9 - a^8 - a^6 + a^5 - a^4 - a^2 + a)*q^158 - a^9*q^161 + 
        (-a^7 + a^4)*q^162 + (a^4 + 1)*q^163 + a^6*q^169 + (a^9 - a^6 - a^4 + 
        a^3 + a)*q^172 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^175 + (-a^9 + a^8 - a^7 + 2*a^6 - a^5 + a^4 - a^3 - a + 1)*q^176 + 
        (a^2 + 1)*q^179 + (a^8 + a^6 - a^3 + 1)*q^184 + O(q^186),
    q^5 + (-a^9 + a^6)*q^10 + (-a^7 + a^4 - a)*q^20 + a^8*q^35 + (a^9 - a^8 - 
        a^6 - a^4 + a^3 + a - 1)*q^40 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3
        - a^2 + a - 1)*q^45 + (a^4 - a^3)*q^55 + (a^6 - a^3)*q^70 + (a^8 - a^5 -
        a^3 + a^2 + 1)*q^80 + (a^8 - a^5)*q^90 + (-a^8 + a^7 - a^6 + a^5 - a^4 +
        a^3 - 1)*q^110 - a*q^115 + a^2*q^125 + (-a^9 + a^4 - a)*q^140 + (-a^9 - 
        a^5)*q^145 + (-a^9 + a^8 + a^6 - a^3 - a + 1)*q^160 + (a^6 - a^3 + 
        1)*q^180 + (-a^7 + a^2)*q^185 + O(q^186)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 - q^3 + q^6 + q^8 - q^13 - q^16 + q^23 - q^24 + q^25 + q^26 + q^27 -
        q^29 - q^31 + q^39 - q^41 - q^46 - q^47 + q^48 + q^49 - q^50 - q^54 + 
        q^58 + 2*q^59 + q^62 + q^64 - q^69 - q^71 - q^73 - q^75 - q^78 - q^81 + 
        q^82 + q^87 + q^93 + q^94 - q^98 + 2*q^101 - q^104 - 2*q^118 + q^121 + 
        q^123 - q^127 - q^128 - q^131 + q^138 - q^139 + q^141 + q^142 + q^146 - 
        q^147 + q^150 - q^151 + q^162 - q^163 + 2*q^167 + 2*q^173 - q^174 - 
        2*q^177 - q^179 + q^184 + O(q^186),
    q^5 - q^10 - q^15 + q^30 + q^40 - q^65 - q^80 + q^115 - q^120 + q^125 + 
        q^130 + q^135 - q^145 - q^155 + O(q^186),
    q^7 - q^14 - q^21 + q^42 + q^56 - q^91 - q^112 + q^161 - q^168 + q^175 + 
        q^182 + O(q^186),
    q^35 - q^70 - q^105 + O(q^186)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 2*H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (a - 1)*q^9 + (a - 1)*q^16 - a*q^25 - q^29 + a*q^31 - a*q^35 + 
        q^36 + 2*q^41 - a*q^49 + a*q^59 + q^64 - q^71 - a*q^81 - q^85 + (a - 
        1)*q^100 + a*q^101 - a*q^115 + a*q^116 - q^119 + (a - 1)*q^121 + (-a + 
        1)*q^124 + (-a + 1)*q^131 + 2*q^139 + (a - 1)*q^140 - a*q^144 + a*q^151 
        - a*q^161 - 2*a*q^164 + q^169 + a*q^179 + a*q^185 + O(q^186),
    q^5 + q^7 + (-a + 1)*q^17 - a*q^20 + q^23 - a*q^28 - q^37 + a*q^43 + (a - 
        1)*q^45 + (-a + 1)*q^53 + (a - 1)*q^63 + (2*a - 2)*q^67 - q^68 + (a - 
        1)*q^80 + a*q^83 - a*q^92 + a*q^97 - q^103 - q^107 + (a - 1)*q^112 - 
        2*a*q^113 - a*q^125 + (-a + 1)*q^137 - q^145 + a*q^148 + a*q^153 + 
        a*q^155 + (-a + 1)*q^157 + (-a + 1)*q^172 - a*q^175 + q^180 + O(q^186)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
805
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 - q^5 - q^7 + q^8 + q^9 - q^19 + q^20 + q^28 + q^31 - q^32 + q^35 - 
        q^36 - q^40 - q^41 - q^45 + 2*q^47 - q^56 - q^59 - q^63 + q^64 + 2*q^67 
        - q^71 + q^72 + q^76 + q^81 + q^95 - q^97 - q^101 - q^103 - q^107 - 
        q^109 - q^113 + q^121 - q^124 + q^125 + 2*q^131 + q^133 - q^140 + 
        2*q^149 - q^152 - q^155 - q^157 + q^160 - q^163 + q^164 + q^169 - q^171 
        + 2*q^173 + q^180 - 2*q^188 - q^191 - q^193 + q^205 - q^211 - q^217 + 
        O(q^218),
    q^2 - q^4 - q^10 - q^14 + q^16 + q^18 + q^20 + q^28 - q^32 - q^36 - q^38 + 
        q^62 + q^70 + q^76 - q^80 - q^82 - q^90 + 2*q^94 - q^112 - q^118 - q^124
        - q^126 + q^128 + 2*q^134 - q^140 - q^142 + q^144 + q^160 + q^162 + 
        q^164 + q^180 - 2*q^188 + q^190 - q^194 - q^202 - q^206 - q^214 + 
        O(q^218),
    q^13 - q^52 - q^65 - q^91 + q^104 + q^117 + O(q^218),
    q^26 - q^52 - q^130 - q^182 + q^208 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^4 + (-a + 1)*q^7 - q^8 + (-a + 1)*q^19 - q^25 - a*q^28 + (a -
        1)*q^32 + (a - 1)*q^33 + a*q^39 + a*q^41 + q^51 + (a - 1)*q^56 + (-a + 
        1)*q^59 + q^64 + a*q^67 + (a - 1)*q^69 + (a - 1)*q^71 - a*q^76 + a*q^81 
        + (-a + 1)*q^87 - a*q^93 + (a - 1)*q^97 + (a - 1)*q^100 - a*q^101 - 
        a*q^107 + (a - 1)*q^111 + (a - 1)*q^113 - q^129 + a*q^132 - a*q^133 - 
        a*q^143 + (-a + 1)*q^149 + (a - 1)*q^152 + q^156 - 2*q^157 - 2*a*q^159 +
        (-a + 1)*q^163 + q^164 - q^169 + (-a + 1)*q^173 + (a - 1)*q^175 + q^183 
        - q^187 + (-a + 1)*q^191 + a*q^193 + q^200 + (-a + 1)*q^204 + a*q^211 + 
        O(q^218),
    q^2 - a*q^4 + (-a + 1)*q^14 - q^16 - q^28 + a*q^32 + (-a + 1)*q^38 - q^50 + 
        (a - 1)*q^66 - q^76 + a*q^78 + a*q^82 + a*q^100 + q^102 + (a - 1)*q^112 
        + (-a + 1)*q^118 + q^128 + q^132 + a*q^134 + (a - 1)*q^138 + (a - 
        1)*q^142 + (-a + 1)*q^156 + a*q^162 + (-a + 1)*q^164 + (-a + 1)*q^174 - 
        a*q^186 + (a - 1)*q^194 - a*q^202 - a*q^204 - a*q^214 + O(q^218),
    q^3 - q^11 + (-a + 1)*q^12 + (a - 1)*q^13 + a*q^17 + (-a + 1)*q^21 - q^23 - 
        q^24 + (a - 1)*q^27 + q^29 + (-a + 1)*q^31 - q^37 - a*q^43 + (a - 
        1)*q^44 + a*q^52 + (-2*a + 2)*q^53 + (-a + 1)*q^57 + a*q^61 + q^68 - 
        q^75 + (a - 1)*q^77 - a*q^84 + q^88 - q^89 + a*q^91 + (a - 1)*q^92 + (a 
        - 1)*q^96 + (-a + 1)*q^104 + a*q^108 + (-a + 1)*q^116 + q^119 + a*q^123 
        - a*q^124 + q^127 - a*q^136 - a*q^137 - a*q^139 + (a - 1)*q^148 + (a - 
        1)*q^161 + q^167 + (a - 1)*q^168 - q^172 + (-a + 1)*q^177 - q^179 + 
        q^184 + a*q^189 + q^192 - q^197 - a*q^199 + a*q^201 + (-a + 1)*q^203 + 
        (a - 1)*q^209 - 2*a*q^212 + (a - 1)*q^213 + (-a + 1)*q^216 - a*q^217 + 
        O(q^218),
    q^6 - a*q^12 - q^22 + (a - 1)*q^26 + a*q^34 + (-a + 1)*q^42 + a*q^44 - q^46 
        - q^48 + q^52 + (a - 1)*q^54 + q^58 + (-a + 1)*q^62 + (-a + 1)*q^68 - 
        q^74 - q^84 - a*q^86 + a*q^92 + a*q^96 + (-2*a + 2)*q^106 + q^108 + (-a 
        + 1)*q^114 - a*q^116 + a*q^122 - q^124 + a*q^148 - q^150 + (a - 1)*q^154
        + (a - 1)*q^172 + q^176 - q^178 + a*q^182 + (-a + 1)*q^208 - 2*q^212 + 
        O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
806
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
807
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
807
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
268
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
807
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
134
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
807
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
134
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
807
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
67*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
807
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 134*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - q^51 - q^52 - q^58 - q^61 - q^73 - q^78 + q^81 - 
        q^96 - q^103 + q^121 - q^127 - q^136 - q^166 + q^169 - q^177 + O(q^178),
    q^2 + q^18 - q^26 - q^29 - q^39 - q^48 + q^50 - q^68 - q^83 + q^98 + q^101 +
        q^107 + q^111 - q^113 + q^129 - q^134 + q^137 + q^162 + q^167 - q^174 + 
        O(q^178),
    q^3 - q^17 - q^26 + q^27 - q^32 - q^59 + q^68 - q^71 + q^74 + q^75 + q^86 + 
        q^104 - q^116 + q^128 - q^134 + q^147 - q^153 - q^156 + q^158 - q^174 + 
        O(q^178),
    q^4 - q^13 - q^24 - q^34 + q^36 + q^51 + q^61 - q^67 + q^73 - q^87 + q^100 +
        q^103 - q^117 - q^118 + q^127 - q^142 - q^148 - q^151 - q^172 + q^177 + 
        O(q^178),
    q^6 - q^13 - q^16 + q^37 + q^43 + q^54 - q^58 - q^67 - q^78 + q^79 - q^87 + 
        q^97 - q^117 + q^136 - q^144 + q^148 + q^150 - q^151 - q^166 + q^169 + 
        q^172 + O(q^178),
    q^8 - q^12 - q^17 + q^29 + q^39 - q^59 - q^71 + q^72 - q^74 + q^83 - q^86 + 
        q^102 - q^108 + q^113 + q^122 + q^146 - q^153 - q^158 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
100
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
100
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
50
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
50
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
50
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^17 + a^6)*q^5 - a^13*q^9 + (a^17 - a^12 + a^10 + a^7 - a^2)*q^13 + 
        (-a^10 + a^5 - 1)*q^17 + (-a^18 + a^13 + a^12 - a^9 - a^8 + a^3)*q^25 + 
        (-a^16 - a^6 + a)*q^29 + (a^8 + a^4)*q^37 + (a^19 + a^16 - a^14 + a^9 - 
        a^4)*q^41 + (-a^19 - a^5)*q^45 + a^18*q^49 + (a^14 - a^7)*q^53 + (a^19 -
        a^14 + a^9 - a^5 - a^4)*q^61 + (a^16 + a^14 - a^3 + a^2)*q^65 + (-a^19 -
        a^3)*q^73 - a*q^81 + (-a^16 + a^12 + a^11 - a^7 - a^6)*q^85 + (-a^9 + 
        a^8)*q^89 + (a^18 - a^11)*q^97 + a^2*q^101 + (a^4 + a^2)*q^109 + (a^17 +
        a^15 - a^12 - a^10 + a^7 + a^5 - a^2 - 1)*q^113 + (-a^18 + a^13 + a^10 -
        a^8 + a^3)*q^117 - a*q^121 + (a^18 - a^15 + a^4 - a)*q^125 + (-a^18 + 
        a^13 - a^8 - a^7 + a^3)*q^137 + (-a^17 - a^13 - a^3 + a^2)*q^145 + 
        (-a^15 + a^6)*q^149 + (a^8 - a^3)*q^153 + (-a^13 - a^11)*q^157 + (-a^19 
        + a^15 - a^10 - a^7 + a^5 - 1)*q^169 + (a^18 + a^14)*q^173 + (a^6 + 
        1)*q^181 + (-a^16 + a^14 + a^11 + a^10 - a^6 + a + 1)*q^185 + (-a^17 - 
        a^9)*q^193 + (-a^19 + a^4)*q^197 + O(q^198),
    q^2 - a*q^4 + a^2*q^8 + (-a^17 + a^6)*q^10 - a^3*q^16 - a^13*q^18 + (a^18 - 
        a^7)*q^20 + (a^17 - a^12 + a^10 + a^7 - a^2)*q^26 + a^4*q^32 + (-a^10 + 
        a^5 - 1)*q^34 + a^14*q^36 + (-a^19 + a^8)*q^40 + (-a^18 + a^13 + a^12 - 
        a^9 - a^8 + a^3)*q^50 + (-a^18 + a^13 - a^11 - a^8 + a^3)*q^52 + (-a^16 
        - a^6 + a)*q^58 - a^5*q^64 + (a^11 - a^6 + a)*q^68 - a^15*q^72 + (a^8 + 
        a^4)*q^74 + (a^15 - a^10 - a^9 + a^5 - 1)*q^80 + (a^19 + a^16 - a^14 + 
        a^9 - a^4)*q^82 + (-a^19 - a^5)*q^90 + a^18*q^98 + (a^19 - a^14 - a^13 +
        a^10 + a^9 - a^4)*q^100 + (a^19 - a^14 + a^12 + a^9 - a^4)*q^104 + (a^14
        - a^7)*q^106 + (a^17 + a^7 - a^2)*q^116 + (a^19 - a^14 + a^9 - a^5 - 
        a^4)*q^122 + a^6*q^128 + (a^16 + a^14 - a^3 + a^2)*q^130 + (-a^12 + a^7 
        - a^2)*q^136 + a^16*q^144 + (-a^19 - a^3)*q^146 + (-a^9 - a^5)*q^148 + 
        (-a^16 + a^11 + a^10 - a^6 + a)*q^160 - a*q^162 + (-a^17 + 1)*q^164 + 
        (-a^16 + a^12 + a^11 - a^7 - a^6)*q^170 + (-a^9 + a^8)*q^178 + (a^15 - 
        a^10 + a^6 + a^5 - 1)*q^180 + (a^18 - a^11)*q^194 - a^19*q^196 + 
        O(q^198)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
50
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^2 - a)*q^5 - a^3*q^9 + (a^2 + 1)*q^13 + 2*q^17 + (a - 1)*q^25 - 
        2*a*q^29 + (-a^2 + a - 1)*q^37 + (a^3 - a^2 - 1)*q^41 + (a^3 - a^2 + 
        a)*q^45 - a^3*q^49 + (a^3 + a - 1)*q^53 + (a^3 - a^2 + a)*q^61 - q^65 + 
        (-a^2 + a - 1)*q^73 - a*q^81 + (2*a^2 - 2*a)*q^85 + (-a^2 + a - 1)*q^89 
        + (-a^3 - a)*q^97 + a^2*q^101 + (a^3 + a - 1)*q^109 + (a^2 + 1)*q^113 + 
        (-a^3 + 1)*q^117 - a*q^121 - a^2*q^125 + (-a^3 + a^2)*q^137 + (-2*a^3 + 
        2*a^2)*q^145 + (-a + 1)*q^149 - 2*a^3*q^153 + (-a^3 - a)*q^157 + (a^3 + 
        a)*q^169 + (-a^2 + a - 1)*q^173 + (-a + 1)*q^181 + (a^3 - a^2 + 1)*q^185
        + (a^3 + a - 1)*q^193 + (2*a^3 - 2*a^2 + 2*a - 2)*q^197 + O(q^198),
    q^2 - a*q^4 + a^2*q^8 + (a^2 - a)*q^10 - a^3*q^16 - a^3*q^18 + (-a^3 + 
        a^2)*q^20 + (a^2 + 1)*q^26 + (a^3 - a^2 + a - 1)*q^32 + 2*q^34 + (a^3 - 
        a^2 + a - 1)*q^36 + (-a^2 + a - 1)*q^40 + (a - 1)*q^50 + (-a^3 - a)*q^52
        - 2*a*q^58 + q^64 - 2*a*q^68 + q^72 + (-a^2 + a - 1)*q^74 + (a^3 - a^2 +
        a)*q^80 + (a^3 - a^2 - 1)*q^82 + (a^3 - a^2 + a)*q^90 - a^3*q^98 + (-a^2
        + a)*q^100 + (a^3 + a - 1)*q^104 + (a^3 + a - 1)*q^106 + 2*a^2*q^116 + 
        (a^3 - a^2 + a)*q^122 - a*q^128 - q^130 + 2*a^2*q^136 - a*q^144 + (-a^2 
        + a - 1)*q^146 + (a^3 - a^2 + a)*q^148 + (-a + 1)*q^160 - a*q^162 + (a^2
        + 1)*q^164 + (2*a^2 - 2*a)*q^170 + (-a^2 + a - 1)*q^178 + (-a + 1)*q^180
        + (-a^3 - a)*q^194 + (a^3 - a^2 + a - 1)*q^196 + O(q^198)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
25*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^5 + (-a - 1)*q^7 - a*q^9 + (a + 1)*q^11 - a*q^13 - a*q^17 - q^19 - 
        a*q^23 + (-a + 1)*q^29 - q^31 + (a + 1)*q^35 + (a + 1)*q^41 + a*q^45 + 
        a*q^47 + a*q^49 + (-a - 1)*q^55 + (a + 1)*q^61 + (a - 1)*q^63 + a*q^65 +
        (a + 1)*q^67 + q^71 + (-a - 1)*q^73 - 2*a*q^77 - q^79 - q^81 + a*q^85 + 
        (-a - 1)*q^89 + (a - 1)*q^91 + q^95 + (-a + 1)*q^99 + a*q^101 + (a + 
        1)*q^103 - a*q^107 + a*q^115 - q^117 + (a - 1)*q^119 + a*q^121 + q^125 +
        (-a + 1)*q^127 - a*q^131 + (a + 1)*q^133 + q^137 + (a + 1)*q^139 + (-a +
        1)*q^143 + (a - 1)*q^145 + (a + 1)*q^149 + (-a - 1)*q^151 - q^153 + 
        q^155 - q^157 + (a - 1)*q^161 + (-a - 1)*q^163 + a*q^171 - q^181 + (-a +
        1)*q^187 + q^193 + a*q^197 + O(q^198)
]
;
Bo:=
[
    q + (-a - 1)*q^3 + q^5 + (a + 1)*q^7 + a*q^9 + (-a - 1)*q^11 - a*q^13 + (-a 
        - 1)*q^15 + a*q^17 + q^19 - 2*a*q^21 - a*q^23 - q^31 + 2*a*q^33 + (a + 
        1)*q^35 + (a - 1)*q^39 + 2*a*q^43 + a*q^45 + a*q^47 + a*q^49 + (-a + 
        1)*q^51 + (a - 1)*q^53 + (-a - 1)*q^55 + (-a - 1)*q^57 + (-a - 1)*q^59 +
        (a - 1)*q^63 - a*q^65 + (a + 1)*q^67 + (a - 1)*q^69 + q^71 - 2*a*q^77 + 
        q^79 + q^81 + a*q^85 + (-a - 1)*q^89 + (-a + 1)*q^91 + (a + 1)*q^93 + 
        q^95 - 2*q^97 + (-a + 1)*q^99 - q^101 - 2*a*q^105 - a*q^107 - a*q^115 + 
        q^117 + (a - 1)*q^119 + a*q^121 - q^125 + (-2*a + 2)*q^129 + a*q^131 + 
        (a + 1)*q^133 + q^137 + (-a + 1)*q^141 + (a - 1)*q^143 + (-a + 1)*q^147 
        + (-a - 1)*q^151 - q^153 - q^155 - q^157 + 2*q^159 + (-a + 1)*q^161 + 
        2*a*q^165 + (a - 1)*q^167 + a*q^171 + 2*a*q^177 + q^181 + (-a + 1)*q^187
        + q^193 + (a - 1)*q^195 - a*q^197 + O(q^198),
    q^2 + (-a - 1)*q^6 + q^10 + (a + 1)*q^14 + a*q^18 + (-a - 1)*q^22 - a*q^26 +
        (-a - 1)*q^30 + a*q^34 + q^38 - 2*a*q^42 - a*q^46 - q^62 + 2*a*q^66 + (a
        + 1)*q^70 + (a - 1)*q^78 + 2*a*q^86 + a*q^90 + a*q^94 + a*q^98 + (-a + 
        1)*q^102 + (a - 1)*q^106 + (-a - 1)*q^110 + (-a - 1)*q^114 + (-a - 
        1)*q^118 + (a - 1)*q^126 - a*q^130 + (a + 1)*q^134 + (a - 1)*q^138 + 
        q^142 - 2*a*q^154 + q^158 + q^162 + a*q^170 + (-a - 1)*q^178 + (-a + 
        1)*q^182 + (a + 1)*q^186 + q^190 - 2*q^194 + O(q^198)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 25*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 50*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^13 + q^25 - q^33 - q^45 + q^49 - q^65 - q^77 - q^85 + q^101 + q^105 + 
        q^117 + q^121 - q^125 + 2*q^137 + q^165 + q^169 - q^181 - q^185 - q^189 
        - q^193 - q^197 + O(q^198),
    q^2 + q^8 - q^26 - q^28 + q^32 + q^50 - q^60 - q^66 - q^90 + q^98 - q^104 - 
        q^112 + q^128 - q^130 - q^140 - q^154 - q^170 + O(q^198),
    q^3 + q^27 + q^35 + q^39 - 2*q^51 - q^55 - 2*q^63 + q^67 - q^75 - 2*q^91 + 
        q^99 - 2*q^111 + q^119 - q^135 + q^143 + q^147 + q^151 - 2*q^163 + q^167
        + q^175 + q^191 - q^195 + O(q^198),
    q^4 + q^16 - q^20 - q^22 - q^30 + q^36 - q^54 + q^64 - q^78 - q^80 - q^84 - 
        q^88 + q^100 + 2*q^102 + 2*q^110 - q^120 + q^126 - q^132 + q^144 + 
        2*q^150 - q^166 - q^180 + q^182 + O(q^198),
    q^5 - q^17 - q^25 + q^33 - q^37 + q^49 - q^65 - q^77 + q^81 + q^85 + q^97 + 
        q^117 - q^121 + q^125 - q^153 - q^157 - 2*q^165 + q^169 + q^185 - q^189 
        + O(q^198),
    q^6 - q^20 - q^22 + q^24 - q^30 + q^68 + q^70 - q^80 - q^88 + q^96 + q^100 +
        q^110 - q^120 - q^126 - q^132 + q^134 + q^148 + q^150 - q^166 - q^182 - 
        q^196 + O(q^198),
    q^7 + q^15 + q^35 - q^51 - 2*q^55 + q^59 - q^63 - q^75 - 2*q^91 + q^99 - 
        q^111 - q^135 + q^139 + q^143 + q^147 - 2*q^163 + q^175 + q^187 - q^195 
        + O(q^198),
    q^9 + q^13 - q^17 - q^21 - q^25 + q^33 - q^37 + q^81 + q^85 + q^117 - q^121 
        + q^125 - 2*q^153 - q^157 - q^165 - q^177 + q^181 + q^185 - q^189 + 
        q^193 + q^197 + O(q^198),
    q^10 - q^18 - q^26 - q^28 + q^40 + q^42 + q^44 - q^72 + q^98 - q^104 + q^108
        - q^112 - q^130 - q^140 - q^154 + q^156 + q^160 + q^168 + q^176 + q^194 
        + O(q^198),
    q^11 + q^15 + q^27 + q^39 - 2*q^51 - 2*q^55 - q^63 - 2*q^75 + q^83 - q^91 + 
        q^99 + q^103 - 2*q^111 + q^119 + q^127 - q^135 + q^147 - 2*q^163 + q^175
        + q^187 - q^195 + O(q^198),
    q^12 - q^18 - q^26 - q^28 + q^34 + q^42 + q^48 + q^50 - q^60 - q^66 - q^72 +
        q^74 - q^104 + q^108 - q^112 + q^136 + q^156 - q^162 + q^168 - q^170 + 
        q^192 + O(q^198),
    q^14 - q^20 - q^22 + q^36 + q^52 - q^54 + q^56 + q^70 - q^78 - q^80 - q^84 -
        q^88 + q^102 + q^118 + q^144 + q^150 - q^166 - q^182 - q^196 + O(q^198)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
808
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 50*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^14 + q^16 - q^17 - q^19 + q^25 + q^36 - q^43 - q^56 - q^58
        + q^64 - q^68 - q^76 + q^81 - q^97 + q^100 - q^106 - q^107 + q^121 - 
        q^122 - q^126 - q^131 - q^137 + q^144 - q^153 + q^169 - q^171 - q^172 - 
        q^179 - q^193 + O(q^198),
    q^2 - q^7 + q^8 + q^18 - q^28 - q^29 + q^32 - q^34 - q^38 + q^50 - q^53 - 
        q^61 - q^63 + q^72 - q^86 + q^101 + 2*q^103 + 2*q^109 - q^112 - q^116 + 
        q^119 - q^127 + q^128 + q^133 - q^136 - q^149 + 2*q^151 - q^152 + q^162 
        - q^167 + 2*q^173 - q^175 - q^191 - q^194 + O(q^198)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
809
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
808
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
809
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
101*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
810
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
810
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
810
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
810
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
810
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
810
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
108
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
810
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
810
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
18*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
810
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
810
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
810
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^10 + (-a + 1)*q^16 - q^19 + (a - 1)*q^25 + a*q^31 + (a - 1)*q^34 - 
        a*q^40 + q^46 - a*q^49 + (-a + 1)*q^61 + q^64 + (-a + 1)*q^79 + a*q^85 +
        2*a*q^94 + (a - 1)*q^106 - q^109 + (-a + 1)*q^115 - a*q^121 - q^136 - 
        2*a*q^139 + (2*a - 2)*q^151 - a*q^166 + (a - 1)*q^169 - q^181 + a*q^184 
        + q^190 + 2*q^199 + a*q^211 + (-2*a + 2)*q^214 - 2*q^226 + a*q^229 + 
        2*q^235 + (-a + 1)*q^241 + (-a + 1)*q^250 + a*q^265 - q^271 - a*q^274 + 
        O(q^278),
    q^2 - q^20 + (-a + 1)*q^32 - q^38 + (a - 1)*q^50 + a*q^62 + (a - 1)*q^68 - 
        a*q^80 + q^92 - a*q^98 + (-a + 1)*q^122 + q^128 + (-a + 1)*q^158 + 
        a*q^170 + 2*a*q^188 + (a - 1)*q^212 - q^218 + (-a + 1)*q^230 - a*q^242 -
        q^272 + O(q^278),
    q^4 + (-a + 1)*q^10 + a*q^16 - a*q^34 + (a - 1)*q^46 - q^76 - 2*q^94 + (a - 
        1)*q^100 - a*q^106 + a*q^124 - a*q^160 + q^166 + (a - 1)*q^190 - a*q^196
        + 2*a*q^214 + (-2*a + 2)*q^226 + (-a + 1)*q^244 + a*q^250 + q^256 + 
        q^274 + O(q^278),
    q^5 + (a - 1)*q^8 + (-a + 1)*q^17 + a*q^20 - q^23 - q^32 - 2*a*q^47 + (-a + 
        1)*q^53 + q^68 + a*q^83 - a*q^92 - q^95 + (2*a - 2)*q^107 + 2*q^113 + (a
        - 1)*q^125 + a*q^137 + (-a + 1)*q^152 + a*q^155 - q^167 + a*q^173 + 
        (-2*a + 2)*q^188 + (-a + 1)*q^197 - a*q^200 + q^212 + a*q^227 + (2*a - 
        2)*q^233 - a*q^245 - q^248 - q^257 - 2*a*q^263 + O(q^278)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
810
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^10 - q^16 - q^19 + q^25 - q^31 + q^34 + q^40 + q^46 + q^49 - q^61 + 
        q^64 - q^79 - q^85 - 2*q^94 + q^106 - q^109 - q^115 + q^121 - q^136 + 
        2*q^139 + 2*q^151 + q^166 + q^169 - q^181 - q^184 + q^190 + 2*q^199 - 
        q^211 - 2*q^214 - 2*q^226 - q^229 + 2*q^235 - q^241 - q^250 - q^265 - 
        q^271 + q^274 + O(q^278),
    q^2 - q^20 - q^32 - q^38 + q^50 - q^62 + q^68 + q^80 + q^92 + q^98 - q^122 +
        q^128 - q^158 - q^170 - 2*q^188 + q^212 - q^218 - q^230 + q^242 - q^272 
        + O(q^278),
    q^3 - q^30 - q^48 - q^57 + q^75 - q^93 + q^102 + q^120 + q^138 + q^147 - 
        q^183 + q^192 - q^237 - q^255 + O(q^278),
    q^4 - q^10 - q^16 + q^34 + q^46 - q^76 - 2*q^94 + q^100 + q^106 - q^124 + 
        q^160 + q^166 + q^190 + q^196 - 2*q^214 - 2*q^226 - q^244 - q^250 + 
        q^256 + q^274 + O(q^278),
    q^5 + q^8 - q^17 - q^20 - q^23 - q^32 + 2*q^47 - q^53 + q^68 - q^83 + q^92 -
        q^95 + 2*q^107 + 2*q^113 + q^125 - q^137 - q^152 - q^155 - q^167 - q^173
        - 2*q^188 - q^197 + q^200 + q^212 - q^227 + 2*q^233 + q^245 - q^248 - 
        q^257 + 2*q^263 + O(q^278),
    q^6 - q^60 - q^96 - q^114 + q^150 - q^186 + q^204 + q^240 + q^276 + 
        O(q^278),
    q^12 - q^30 - q^48 + q^102 + q^138 - q^228 + O(q^278),
    q^15 + q^24 - q^51 - q^60 - q^69 - q^96 + 2*q^141 - q^159 + q^204 - q^249 + 
        q^276 + O(q^278)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
811
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
810
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
811
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
270
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
811
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
162
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
811
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
811
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
811
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
811
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
45*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
811
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
81*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
811
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
135*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
811
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
405*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^11 + q^16 - q^19 - q^35 + q^36 - q^44 + q^49 - q^53 + q^64
        - q^73 - q^76 - q^77 + q^81 - q^97 - q^99 - q^103 + q^121 - q^133 + 
        O(q^135),
    q^5 - q^11 - q^19 + q^20 - q^25 - q^35 + q^41 + q^43 - q^44 + q^45 + q^49 - 
        q^53 + q^55 + q^67 - q^73 - q^76 + q^80 + q^95 - q^97 - q^99 - q^100 - 
        q^103 + q^109 + q^125 + O(q^135),
    q^7 - q^11 - q^19 - q^25 + q^28 + q^29 + q^37 - q^44 - q^53 + q^55 + q^59 + 
        q^63 - q^73 - q^76 - q^77 + q^89 + q^95 - q^97 - q^99 - q^100 - q^103 + 
        q^112 + q^116 + q^121 + q^125 - q^133 + O(q^135)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
84
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
84
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (a^11 - 2*a^10 + a^9 + 2*a^8 - a^7 - a^5 + 2*a^4 + a^3 - 2*a^2 +
        a)*q^7 + (-a^11 + a^9 - a^7 + a^5 + a^4 - a^3 + a)*q^8 - a^5*q^9 + 
        (2*a^11 - 2*a^10 + 2*a^9 - a^7 + 2*a^6 - 2*a^5 + a^4 - 2*a^2 + 2*a - 
        2)*q^11 + (-2*a^9 + 2*a^8 - 2*a^6 + 2*a^3 - 2*a^2 - 2*a + 2)*q^14 + 
        (a^11 - a^7 - a^2)*q^16 + (2*a^11 - 2*a^10 - 4*a^9 + 4*a^8 - 2*a^6 + 
        4*a^3 - 2*a^2 - 2*a + 4)*q^22 + (a^11 - 2*a^10 + a^9 + 2*a^6 - 2*a^5 + 
        2*a - 2)*q^23 - a^8*q^25 + (-2*a^11 + 2*a^10 + 2*a^9 - 2*a^8 + 2*a^5 - 
        2*a^3 + 2*a^2 - 1)*q^28 - a*q^29 + (a^10 - a^9 + a^5 + 1)*q^32 + 
        a^6*q^36 + (a^2 + a)*q^37 + (2*a^11 + a^10 - 4*a^9 + 2*a^8 + 2*a^7 - 
        2*a^4 + 3*a^3 - 2*a + 2)*q^43 + (-2*a^11 + 4*a^10 - 3*a^8 + 2*a^7 + a^5 
        - 2*a^4 - 2*a^3 + 4*a^2 - 2*a - 2)*q^44 + (2*a^11 - 2*a^10 - 4*a^9 + 
        4*a^8 + 2*a^7 - 2*a^6 - 2*a^5 + 4*a^3 - 2*a^2 - 2*a + 2)*q^46 + (-a^10 +
        a^8 - a^6 + a^4 - a^2 + 1)*q^49 + (-a^6 - a^2)*q^53 + (-a^10 + 2*a^9 - 
        a^8 - 2*a^7 + a^6 + a^4 - a^3 - a^2 + 2*a - 1)*q^56 + (-2*a^11 + 2*a^10 
        - 2*a^8 + 2*a^5 - a^4 - 2*a^3 + 2*a^2)*q^63 + (-a^11 + a^10 + a^9 - 
        2*a^8 + a^6 + a^5 - a^4 - 2*a^3 + a^2 + a - 1)*q^64 + (2*a^10 - 3*a^9 + 
        a^7 - 2*a^6 + a^5 - 2*a^4 + a^3 - 3*a + 2)*q^67 + (-2*a^11 - a^10 + 
        4*a^9 - 3*a^8 - 2*a^7 + 2*a^6 + a^4 - 4*a^3 + a^2 + 4*a - 3)*q^71 + 
        (-a^9 - a^4)*q^72 + (a^6 + a^3)*q^77 + (-2*a^11 + a^10 + a^7 - 2*a^6 + 
        2*a^2 - 2*a)*q^79 + a^10*q^81 + (-2*a^11 + 2*a^10 - 4*a^8 + 2*a^7 - 
        2*a^4 - 2*a^3 + 4*a^2 - 2)*q^86 + (-a^11 - 2*a^10 + 4*a^9 - a^8 - 2*a^7 
        + a^6 + 2*a^4 - 3*a^3 + 4*a - 2)*q^88 + (-2*a^11 + 2*a^10 - a^8 + 2*a^7 
        - a^6 - a^4 + 3*a^2 - 2*a - 1)*q^92 + (-2*a^11 + 3*a^10 - a^9 - a^8 + 
        2*a^7 - a^6 + 2*a^5 - a^4 + 3*a^2 - 2*a + 1)*q^99 + a^9*q^100 + (2*a^10 
        - 3*a^8 + 2*a^7 + 2*a^6 - 2*a^4 - 2*a^3 + 3*a^2 - 2)*q^107 + (a^9 - 
        a^3)*q^109 + (2*a^11 - a^10 - 2*a^9 + 2*a^8 - a^6 + 2*a^3 - 2*a^2 - a + 
        2)*q^112 + (a^5 - 1)*q^113 + a^2*q^116 + (a^11 + a^8 - 1)*q^121 + (2*a^9
        - 2*a^8 + 2*a^6 - 2*a^3 + 2*a - 2)*q^126 + (-4*a^10 + 4*a^9 + a^8 - 
        4*a^7 + 4*a^4 - a^3 - 4*a^2 + 4*a)*q^127 + (a^11 - a^10 + a^6 - a^5 - 
        a^2 + a)*q^128 + (-2*a^11 + 2*a^10 + 4*a^9 - 4*a^8 + 2*a^6 + 2*a^5 - 
        4*a^3 + 4*a^2 + 2*a - 2)*q^134 + (a^10 - a^8 + a^6 + a^5 - a^4 + a^2 - 
        1)*q^137 + (4*a^11 - 2*a^10 - 2*a^9 + 4*a^8 - 2*a^5 + 4*a^3 - 4*a^2 + 
        2)*q^142 + (a^10 - a^8 + a^7 + a^6 - a^4 + 2*a^2 - 1)*q^144 + (-a^3 - 
        a^2)*q^148 + (-a^9 + a^7)*q^149 + (-4*a^11 + 2*a^10 + 4*a^9 - 4*a^8 + 
        a^5 - 4*a^3 + 4*a^2 + a - 4)*q^151 + (-2*a^11 + 4*a^9 - 2*a^7 + 2*a^4 - 
        2*a^3 + 2*a - 2)*q^158 + (-a^10 + a^8)*q^161 + (4*a^11 - 2*a^10 - 4*a^9 
        + 4*a^8 - a^6 - a^5 + 4*a^3 - 4*a^2 - 2*a + 4)*q^163 - a^4*q^169 + (a^11
        - 2*a^10 + 2*a^9 + 2*a^6 - 2*a^5 + a^4 + 2*a - 2)*q^172 + (-2*a^9 + 
        2*a^8 + a^7 - 2*a^6 + 2*a^3 - 2*a + 2)*q^175 + (3*a^11 - 2*a^10 - 3*a^9 
        + 4*a^8 - a^6 - 2*a^5 + a^4 + 4*a^3 - 4*a^2 - a + 3)*q^176 + (-3*a^11 + 
        4*a^10 - 4*a^8 + a^7 + 3*a^5 - 2*a^4 - 3*a^3 + 4*a^2 - a)*q^179 + (-a^11
        - a^10 + 3*a^9 - a^8 - a^7 - a^5 + 2*a^4 - a^3 + 2*a - 2)*q^184 + 
        (-2*a^11 + 2*a^9 - 2*a^8 - 2*a^7 + 2*a^5 + a^4 - 3*a^3 + 2*a)*q^191 + 
        (-a^11 + a^10 - a^8 + a^6 - a^4 + a^2 - 1)*q^193 + (a^11 - a^9 + a^7 - 
        a^5 + a^3 - a)*q^196 + (-a^11 + a^9 - 2*a^7 + a^5 - a^3 + a)*q^197 + 
        (-2*a^11 + 4*a^9 - 4*a^8 - 2*a^7 + 2*a^6 - 4*a^3 + 2*a^2 + 2*a - 
        4)*q^198 + (-a^10 + a^8 - a^7 - a^6 + a^4 - a^2 + 1)*q^200 + (2*a^11 - 
        2*a^10 - 2*a^9 + 2*a^8 - 2*a^5 + 2*a^3 - 2*a^2 + 1)*q^203 + (-2*a^11 + 
        2*a^10 - 2*a^6 + 2*a^5 + a^2 - 2*a + 1)*q^207 + (3*a^11 - 4*a^9 + 4*a^8 
        - 3*a^6 + 4*a^3 - 4*a^2 - 4*a + 4)*q^211 + (a^7 + a^3)*q^212 + (-2*a^10 
        + 2*a^6 - 2*a^5 + 2*a)*q^214 + (-a^11 + 2*a^10 - a^8 + a^7 + a^5 - a^4 -
        a^3 + 2*a^2 - a)*q^224 + (a^11 - a^9 + a^7 - a^5 + a^3 - a)*q^225 + 
        O(q^230),
    q^2 + (a^10 - a^8 + a^6 - a^4 - a^3 + a^2 - 1)*q^4 + (2*a^11 - 2*a^9 + 2*a^8
        + 2*a^3 - 2*a^2 + 2)*q^7 + (-a^10 + a^6 + a)*q^8 + (4*a^11 - 2*a^10 - 
        2*a^9 + 4*a^8 - 2*a^5 + 4*a^3 - 4*a^2 - 2*a + 2)*q^11 + (-a^11 + 2*a^10 
        - a^9 - 2*a^8 + a^7 + a^5 - 2*a^4 - a^3 + 2*a^2 - a)*q^14 + (a^11 - 
        2*a^9 + a^8 + a^7 - a^5 - a^4 + a^3 - a)*q^16 - a^5*q^18 + (-2*a^11 + 
        2*a^10 - 2*a^9 + a^7 - 2*a^6 + 2*a^5 - a^4 + 2*a^2 - 2*a + 2)*q^22 + 
        (2*a^11 - 2*a^10 + 4*a^8 - 2*a^7 - 2*a^6 + 2*a^4 + 2*a^3 - 4*a^2 + 
        2)*q^23 + (-a^11 + 2*a^9 - 2*a^8 + 2*a^6 - 2*a^3 + a^2 + 2*a - 2)*q^28 +
        (-a^11 + a^10 - a^8 + a^7 - a^4 + 2*a^2 - 1)*q^32 + (a^8 + a^3)*q^36 + 
        (-2*a^11 + 2*a^10 + 2*a^7 - 2*a^6 + 2*a^5 + 2*a^2 - 2*a)*q^43 + (-2*a^11
        + a^10 + 4*a^9 - 4*a^8 - a^7 + 2*a^6 + a^5 - 4*a^3 + 3*a^2 + 2*a - 
        4)*q^44 + (-a^11 + 2*a^10 - a^9 - 2*a^6 + 2*a^5 - 2*a + 2)*q^46 - 
        a^8*q^50 + (2*a^11 - 2*a^10 - a^9 + 2*a^8 - a^5 + 2*a^3 - 2*a^2 + 
        1)*q^56 - a*q^58 + (-2*a^11 + 2*a^9 - 2*a^8 - 2*a^3 + 2*a^2 + 2*a - 
        2)*q^63 + (-a^10 + a^9 - a^5 + a^4 + a - 1)*q^64 + (-2*a^11 + 2*a^10 - 
        4*a^8 + 2*a^7 - 2*a^4 - 2*a^3 + 4*a^2 - 2*a - 2)*q^67 + (2*a^11 - 4*a^10
        + 2*a^8 - 2*a^7 - 2*a^5 + 2*a^4 + 2*a^3 - 4*a^2 + 2*a)*q^71 + (-a^11 - 
        a^6 - a)*q^72 + (a^2 + a)*q^74 + (-2*a^11 + 2*a^10 + 2*a^9 - 4*a^8 - 
        2*a^7 + 2*a^6 + 2*a^5 - 4*a^3 + 2*a^2 + 2*a - 2)*q^79 + (-2*a^11 - a^10 
        + 4*a^9 - 2*a^8 - 2*a^7 + 2*a^4 - 3*a^3 + 2*a - 2)*q^86 + (3*a^11 - 
        3*a^10 - a^9 + 3*a^8 - a^7 - 2*a^5 + 2*a^4 + 2*a^3 - 4*a^2 + a + 1)*q^88
        + (-2*a^11 + a^10 + 3*a^9 - 3*a^8 - a^7 + a^6 + 2*a^5 + a^4 - 4*a^3 + 
        a^2 + 2*a - 2)*q^92 + (-a^10 + a^8 - a^6 + a^4 - a^2 + 1)*q^98 + 
        (-4*a^11 + 2*a^10 + 4*a^9 - 4*a^8 + 2*a^6 + 2*a^5 - 4*a^3 + 4*a^2 + 2*a 
        - 2)*q^99 + (a^11 + a^6)*q^100 + (-a^6 - a^2)*q^106 + (2*a^9 - 2*a^5 + 
        2*a^4 - 2)*q^107 + (a^10 - 2*a^9 + a^7 - a^6 - a^4 + a^3 + a^2 - 2*a + 
        1)*q^112 + (-a^11 + a^9 - a^7 + a^5 + a^4 - a^3 + a)*q^116 + (2*a^11 - 
        2*a^10 + 2*a^8 - 2*a^5 + a^4 + 2*a^3 - 2*a^2)*q^126 + (4*a^11 - 4*a^10 -
        4*a^9 + 4*a^8 - 2*a^5 + 4*a^3 - 4*a^2 + 4)*q^127 + (a^11 - a^10 - a^9 + 
        2*a^8 - a^6 - a^5 + 2*a^3 - 2*a^2 - a + 1)*q^128 + (-2*a^10 + 3*a^9 - 
        a^7 + 2*a^6 - a^5 + 2*a^4 - a^3 + 3*a - 2)*q^134 + (2*a^11 + a^10 - 
        4*a^9 + 3*a^8 + 2*a^7 - 2*a^6 - a^4 + 4*a^3 - a^2 - 4*a + 3)*q^142 + 
        (-a^11 + 2*a^9 - a^7 + a^5 + a^4 - a^3 + a - 1)*q^144 + (a^11 - a^9 + 
        a^7 - 2*a^5 - a^4 + a^3 - a - 1)*q^148 + (-2*a^10 + 4*a^9 - 2*a^8 - 
        2*a^7 + 2*a^6 + 2*a^4 - 4*a^3 - 2*a^2 + 4*a - 2)*q^151 + (a^6 + 
        a^3)*q^154 + (2*a^11 - a^10 - a^7 + 2*a^6 - 2*a^2 + 2*a)*q^158 + 
        a^10*q^162 + (2*a^10 - 4*a^9 + 2*a^8 + 2*a^7 - 2*a^6 - 2*a^4 + 2*a^3 + 
        2*a^2 - 4*a + 2)*q^163 + (3*a^11 - 2*a^10 - a^9 + 3*a^8 - a^7 - a^6 - 
        a^5 + 2*a^4 + 3*a^3 - 4*a^2 + 2)*q^172 + (-2*a^11 + 2*a^10 - 2*a^8 + 
        2*a^5 - 2*a^3 + 2*a^2)*q^175 + (a^10 - 3*a^9 + 2*a^8 + a^7 - 2*a^6 + a^5
        - a^4 + 2*a^3 - 2*a + 3)*q^176 + (-4*a^11 + 4*a^9 - 4*a^8 + 2*a^6 - 
        4*a^3 + 4*a^2 + 2*a - 4)*q^179 + (2*a^11 - 2*a^10 + a^8 - a^7 + a^6 - 
        a^5 + a^4 + a^3 - 3*a^2 + a + 1)*q^184 + (-2*a^10 - 2*a^5 + 2*a)*q^191 +
        (a^10 - a)*q^196 + (2*a^11 - 3*a^10 + a^9 + a^8 - 2*a^7 + a^6 - 2*a^5 + 
        a^4 - 3*a^2 + 2*a - 1)*q^198 + (-a^9 - a^4 + 1)*q^200 + (-2*a^9 + 2*a^8 
        - 2*a^6 + 2*a^3 - 2*a^2 - 2*a + 2)*q^203 + (-2*a^11 + 2*a^10 + 2*a^9 - 
        4*a^8 + 2*a^6 + 2*a^5 - 2*a^4 - 4*a^3 + 4*a^2 + 2*a - 2)*q^207 + (4*a^10
        - 4*a^9 - 2*a^8 + 4*a^7 - 4*a^4 + 4*a^2 - 4*a)*q^211 + (a^9 + a^5 + a^4 
        + 1)*q^212 + (-2*a^10 + 3*a^8 - 2*a^7 - 2*a^6 + 2*a^4 + 2*a^3 - 3*a^2 + 
        2)*q^214 + (a^9 - a^3)*q^218 + (-a^11 + a^10 + 2*a^9 - 2*a^8 + a^6 + a^5
        - 2*a^3 + 2*a^2 + a - 2)*q^224 + (a^5 - 1)*q^226 + O(q^230)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^7 + a^5*q^9 + (a^4 - 1)*q^11 + (-a^4 
        - a^2)*q^23 - a*q^25 + a*q^29 + (a^2 + a)*q^37 - a^5*q^49 + (a^5 - a^4 +
        a^3 + a - 1)*q^53 + a^4*q^63 + (-a^5 - a^3 + a^2 - a + 1)*q^67 + (-a^4 +
        a^3 - a^2 + a - 1)*q^71 + (a^5 - a^4 + 2*a^3 - a^2 + a - 1)*q^77 + (-a^3
        - 1)*q^79 - a^3*q^81 + (-a^5 - a^2)*q^99 + (a^2 - a)*q^107 + (a^3 - 
        a^2)*q^109 + (a^5 + 1)*q^113 + (-a^4 - a + 1)*q^121 + (a^3 - a)*q^127 + 
        (-a^2 - 1)*q^149 + (a^5 + a)*q^151 + (-a^3 - a)*q^161 + (2*a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^163 + a^4*q^169 - q^175 + (-a^5 + a^4 - a^3 - a + 
        1)*q^179 + (a^4 + a^3)*q^191 + (-a^5 - a^4)*q^193 + (-a^5 + a^4 - a^3 + 
        a^2 - a)*q^197 + q^203 + (a^2 + 1)*q^207 + (a^5 - 2*a^4 + a^3 - a^2 + a 
        - 1)*q^211 + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^225 + O(q^230),
    q^2 - a*q^8 + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^14 + (a^5 - 2*a^4 + a^3 - 
        a^2 + a - 1)*q^16 + a^5*q^18 + (a^4 - 1)*q^22 + (a^4 - a^2 + 1)*q^32 + 
        (-a^4 - a^2)*q^46 - a*q^50 - q^56 + a*q^58 + (-a^5 + a^3 + a^2 - 1)*q^64
        + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^72 + (a^2 + a)*q^74 + (-a^5 + 
        a)*q^88 - a^5*q^98 + (a^5 - a^4 + a^3 + a - 1)*q^106 + (a^5 - a^3)*q^112
        + a^4*q^126 + (2*a^5 - a^4 - a^2 + 2*a)*q^128 + (-a^5 - a^3 + a^2 - a + 
        1)*q^134 + (-a^4 + a^3 - a^2 + a - 1)*q^142 + (-a^4 + a^2)*q^144 + (a^5 
        - a^4 + 2*a^3 - a^2 + a - 1)*q^154 + (-a^3 - 1)*q^158 - a^3*q^162 + 
        (-a^5 + 2*a^4 - 2*a^3 + a^2 + 1)*q^176 + (a^5 + a^3)*q^184 + (-a^5 - 
        a^2)*q^198 + a^2*q^200 + (a^2 - a)*q^214 + (a^3 - a^2)*q^218 + (-a^5 + 
        a^4 + a^2 - 2*a + 1)*q^224 + (a^5 + 1)*q^226 + O(q^230),
    q^4 + (-a^5 + a^3)*q^8 + (a^5 - a^4 - a^2 + 2*a - 1)*q^16 + (-a^5 + a^4 - 
        a^3 + a^2 - a + 1)*q^28 + (-a^5 + 2*a^4 - a^3 - 2*a + 1)*q^32 + a^5*q^36
        + (a^4 - 1)*q^44 + (-a^4 + a^2)*q^56 + (-2*a^4 + a^3 + a - 2)*q^64 + 
        (a^3 - a)*q^72 + (a^5 - a^3 + a^2 - 1)*q^88 + (-a^4 - a^2)*q^92 - 
        a*q^100 + (a^5 - a^2 + 1)*q^112 + a*q^116 + (a^5 + a^4 - a^3 - a^2 + a +
        1)*q^128 + (a^5 - 2*a^4 + a^3 - a^2 + 2*a - 1)*q^144 + (a^2 + a)*q^148 +
        (a^4 - a^3 + a^2 - 2*a + 2)*q^176 + (-a^5 - a^2)*q^184 - a^5*q^196 + 
        (a^5 - 2*a^4 + a^3 - a^2 + a - 1)*q^200 + (a^5 - a^4 + a^3 + a - 
        1)*q^212 + (-a^5 + a^3 - a - 1)*q^224 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 + a^2*q^4 + (-a^5 + a^4)*q^5 - a^3*q^8 - a^3*q^9 + (-a^4 + a^3 - 
        a^2 + a - 1)*q^10 + (a^5 - a^4 + a^3 + a - 1)*q^13 + a^4*q^16 + (a^5 - 
        a^4 + a^3 - a^2 - 1)*q^17 + a^4*q^18 + (a^5 - a^4 + a^3 - a^2 + a)*q^20 
        + (-a^3 + a^2 - a)*q^25 + (-a^3 + 1)*q^26 + a^4*q^29 - a^5*q^32 + (a^2 +
        1)*q^34 - a^5*q^36 + (-a^5 - a)*q^37 + (-a + 1)*q^40 + (-a^5 + a^2)*q^41
        + (-a + 1)*q^45 - a^3*q^49 + (a^4 - a^3 + a^2)*q^50 + (a^4 - a)*q^52 + 
        (a^2 + 1)*q^53 - a^5*q^58 + (a^5 + a^3 - a^2 + a - 1)*q^61 + (a^5 - a^4 
        + a^3 - a^2 + a - 1)*q^64 + (a^5 - a^2 + a)*q^65 + (-a^3 - a)*q^68 + 
        (a^5 - a^4 + a^3 - a^2 + a - 1)*q^72 + (-a^5 + 1)*q^73 + (a^5 - a^4 + 
        a^3 + a - 1)*q^74 + (a^2 - a)*q^80 + (a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^81 + (a^5 - a^4 - a^2 + a - 1)*q^82 + (-a^2 + a - 1)*q^85 + (-a^5 +
        a^4)*q^89 + (a^2 - a)*q^90 + (a^4 + 1)*q^97 + a^4*q^98 + (-a^5 + a^4 - 
        a^3)*q^100 + (-a^3 + a^2)*q^101 + (-a^5 + a^2)*q^104 + (-a^3 - a)*q^106 
        + (-a^3 + 1)*q^109 + (a^2 - a)*q^113 + (a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^116 + (-a^5 + a^2)*q^117 - a*q^121 + (-a^5 + 1)*q^122 + (-a^4 + a^3
        - a^2)*q^125 + q^128 + (-a^5 + a^4 - a + 1)*q^130 + (a^4 + a^2)*q^136 + 
        (a^5 - a^4 + a^3 - a^2 + a)*q^137 + q^144 + (a^2 - a)*q^145 + (a^5 - a^4
        + a^3 - a^2 - 1)*q^146 + (-a^3 + 1)*q^148 + (-a^3 - a)*q^149 + (a^4 + 
        a^2)*q^153 + (a^4 - a^3)*q^157 + (-a^3 + a^2)*q^160 + q^162 + (a^4 + 
        1)*q^164 + (-a^5 + a^4 - a)*q^169 + (a^3 - a^2 + a)*q^170 + (a^5 - a^4 +
        a^3 - a^2 - 1)*q^173 + (-a^4 + a^3 - a^2 + a - 1)*q^178 + (-a^3 + 
        a^2)*q^180 + (a^2 - a)*q^181 + (-a^4 + a - 1)*q^185 + (-a^4 + a^3 - a^2 
        + a - 1)*q^193 + (-a^5 - a)*q^194 - a^5*q^196 + (-a^3 + a^2)*q^197 + 
        (a^3 - a^2 + a - 1)*q^200 + (a^4 - a^3)*q^202 + (a^5 - a^4 + a)*q^205 + 
        (a^5 - a^4 - a^2 + a - 1)*q^208 + (a^4 + a^2)*q^212 + (a^4 - a)*q^218 + 
        (-a^5 - a^3 - a + 1)*q^221 + (a^3 - a^2 + a - 1)*q^225 + (-a^3 + 
        a^2)*q^226 + (a^5 + a^3 - a^2 + a - 1)*q^229 + O(q^230),
    q^7 - a*q^14 + a^2*q^28 + (-a^5 + a^4)*q^35 - a^3*q^56 - a^3*q^63 + (-a^4 + 
        a^3 - a^2 + a - 1)*q^70 + (a^5 - a^4 + a^3 + a - 1)*q^91 + a^4*q^112 + 
        (a^5 - a^4 + a^3 - a^2 - 1)*q^119 + a^4*q^126 + (a^5 - a^4 + a^3 - a^2 +
        a)*q^140 + (-a^3 + a^2 - a)*q^175 + (-a^3 + 1)*q^182 + a^4*q^203 - 
        a^5*q^224 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^5*q^7 - a^3*q^9 + (-a + 1)*q^11 + (a^4 - a)*q^23 + a^2*q^25 + a^2*q^29
        + (a^4 + a^2)*q^37 + (2*a^5 - 2*a^4 + 2*a^3 - 2*a^2 + 2*a - 2)*q^43 - 
        a^3*q^49 + (-a^5 + a^4)*q^53 - a*q^63 + (-a^5 - a)*q^67 + (-a^5 - 
        a^3)*q^71 + (-a^4 + a^3 - a^2 + a - 1)*q^77 + (a^5 - a^4 + a^3 - a^2 + 
        a)*q^79 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^81 + (a^4 - a^3)*q^99 + (a^4
        + a^2)*q^107 + (a^5 + a^3 - a^2 + a - 1)*q^109 + (-a^3 + 1)*q^113 + (a^2
        - a + 1)*q^121 + (a^5 - a^4 + a^3 + a - 1)*q^127 - 2*a^3*q^137 + (a^4 + 
        1)*q^149 + (-a^3 + a^2)*q^151 + (a^5 - a^4 + a^3 + a - 1)*q^161 + (-a^5 
        - a^3)*q^163 - a*q^169 + q^175 + (-a^5 + a^4)*q^179 + (a^5 - a^4 + a^3 -
        a^2 - 1)*q^191 + (-a^3 - a)*q^193 + (-a^5 + 1)*q^197 + q^203 + (a^4 + 
        1)*q^207 + (-a^5 - a)*q^211 - a^5*q^225 + O(q^230),
    q^2 - a^2*q^8 - a^5*q^14 + (a^5 + a)*q^16 - a^3*q^18 + (-a + 1)*q^22 + (-a^4
        + a - 1)*q^32 + (a^4 - a)*q^46 + a^2*q^50 - q^56 + a^2*q^58 + (-a^5 + 
        a^2 - a)*q^64 + a^5*q^72 + (a^4 + a^2)*q^74 + (2*a^5 - 2*a^4 + 2*a^3 - 
        2*a^2 + 2*a - 2)*q^86 + (a^3 - a^2)*q^88 - a^3*q^98 + (-a^5 + a^4)*q^106
        + (-a^5 + a^4 + a^2 - a + 1)*q^112 - a*q^126 + (a^4 - a)*q^128 + (-a^5 -
        a)*q^134 + (-a^5 - a^3)*q^142 + (-a^4 + a)*q^144 + (-a^4 + a^3 - a^2 + a
        - 1)*q^154 + (a^5 - a^4 + a^3 - a^2 + a)*q^158 + (a^5 - a^4 + a^3 - a^2 
        + a - 1)*q^162 + (a^4 - a^3 + 1)*q^176 + (-a^5 + a^4 + a^2 - a + 
        1)*q^184 + (a^4 - a^3)*q^198 - a^4*q^200 + (a^4 + a^2)*q^214 + (a^5 + 
        a^3 - a^2 + a - 1)*q^218 + (a^4 - a^3 - a + 1)*q^224 + (-a^3 + 1)*q^226 
        + O(q^230),
    q^4 + (a^5 - a^4 - a^2 + a - 1)*q^8 + (-a^4 + a^3 + a - 1)*q^16 - a^5*q^28 +
        (-a^5 + a^4 + a^2 - a)*q^32 - a^3*q^36 + (-a + 1)*q^44 + (a^4 - a)*q^56 
        + (-a^5 + a^4 - a^3 - a + 1)*q^64 + (a^5 - a^4 + a^3 + a - 1)*q^72 + 
        (a^5 - a^2 + a)*q^88 + (a^4 - a)*q^92 + a^2*q^100 + (a^4 - a^3 + 
        1)*q^112 + a^2*q^116 + a^5*q^128 + (-a^5 + a^2 - a)*q^144 + (a^4 + 
        a^2)*q^148 + (2*a^5 - 2*a^4 + 2*a^3 - 2*a^2 + 2*a - 2)*q^172 + (a^5 - 
        2*a^4 + a^3 - a^2 + 2*a - 1)*q^176 + (a^4 - a^3 + 2)*q^184 - a^3*q^196 +
        (-a^5 - a)*q^200 + (-a^5 + a^4)*q^212 + (a^5 - a^4 + a)*q^224 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 - a^2 + a)*q^3 - a*q^5 + a^2*q^7 - a*q^9 + (-a^3 - a^2 + a)*q^11 -
        a^3*q^13 + (a^3 - 1)*q^15 + (a^2 - a - 1)*q^19 + (-a^2 + a + 1)*q^21 + 
        q^29 + (a^3 + a^2 - a)*q^31 - 2*a*q^33 - a^3*q^35 + (a^2 + a - 1)*q^37 +
        (a^3 - a^2 - a)*q^39 + a^2*q^45 + (-a^2 - a + 1)*q^47 + (a^2 - 1)*q^49 +
        a^2*q^53 + (a^3 - 1)*q^55 + 2*a^3*q^57 + (-a^2 + a + 1)*q^61 - a^3*q^63 
        + (a^2 - 1)*q^65 + a^3*q^71 + (-a^3 + a^2 + a)*q^73 + (-a^2 + a + 
        1)*q^77 + (-a^2 + a + 1)*q^79 - a^2*q^81 - q^83 + (-a^3 - a^2 + a)*q^87 
        + (-a^2 + a + 1)*q^89 + (-a^3 + a)*q^91 + 2*a*q^93 + (-a^3 + a^2 + 
        a)*q^95 + (a^3 - 1)*q^99 + (a^2 - 1)*q^103 + (a^3 - a^2 - a)*q^105 + 
        (-a^2 + 1)*q^107 + (a^3 - a)*q^109 + 2*q^111 + (a^2 - 1)*q^117 - a*q^121
        + a^3*q^125 + (a^2 + a - 1)*q^131 + (-a^3 - 1)*q^133 - q^139 - 2*q^141 +
        (a^3 - a^2 - a)*q^143 - a*q^145 + (a^3 + 1)*q^147 + a*q^149 + (a^3 - 
        a)*q^151 + (-a^3 + 1)*q^155 + (-a^2 + a + 1)*q^159 + (-a^2 - a + 
        1)*q^163 + 2*a^2*q^165 + (-a^3 + a^2 + a)*q^171 - a*q^173 + (2*a^3 - 
        2*a)*q^179 - 2*a^3*q^183 + (-a^3 - a^2 + a)*q^185 + (a^2 - a - 1)*q^191 
        + (a^3 + 1)*q^195 - q^197 + a^2*q^199 + a^2*q^203 + 2*a^3*q^209 + (-a^3 
        + a^2 + a)*q^213 + (a^2 - a - 1)*q^217 + (-2*a^2 + 2)*q^219 + q^223 - 
        a^2*q^227 + O(q^230)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*(a - 1)*q^8 - 1/2*a*q^9 + (-a - 1)*q^11 + 1/4*(a + 1)*q^14 + 1/2*(a 
        - 1)*q^15 + 1/2*(-a + 1)*q^18 + 1/4*(a + 1)*q^21 - 1/2*a*q^22 + q^23 - 
        1/2*q^25 - 1/2*q^30 + (a + 1)*q^32 + 1/2*a*q^35 + 1/2*q^36 + (a - 
        1)*q^37 + 1/2*(-a + 1)*q^39 - 1/2*a*q^42 + (-a - 1)*q^43 + (a - 1)*q^44 
        - 1/2*q^49 + 1/2*(-a - 1)*q^50 + a*q^51 + 1/2*q^53 + 1/4*(a - 1)*q^56 + 
        (-a + 1)*q^58 + 1/2*(a + 1)*q^60 + 1/2*a*q^63 + a*q^64 - 1/2*q^65 - 
        a*q^67 + 1/4*(a - 1)*q^70 - a*q^71 + 1/4*(-a - 1)*q^77 + 1/2*q^78 + (a +
        1)*q^79 + 1/4*(-a + 1)*q^84 + 1/2*(-a + 1)*q^85 - 1/2*a*q^86 - 3/2*q^88 
        - 1/2*a*q^91 - a*q^92 - 1/2*a*q^93 + 1/2*(-a - 1)*q^98 + 1/2*(a - 
        1)*q^99 - 1/2*a*q^100 + 1/2*(a - 1)*q^102 + 1/4*(-a + 1)*q^105 + 
        1/2*(3*a + 3)*q^106 + 1/2*a*q^109 - q^112 + 1/2*(a - 1)*q^113 + q^116 + 
        1/2*(a + 1)*q^119 + 1/2*a*q^120 - 1/2*a*q^121 - q^123 + 1/2*(a + 
        1)*q^127 + 1/2*(-a + 1)*q^128 + 1/2*(a + 1)*q^130 + 1/2*(-a + 1)*q^134 +
        1/2*(a + 1)*q^135 + (a + 1)*q^137 + 1/2*q^140 - 1/2*q^141 - 1/2*a*q^144 
        + 1/2*(a + 1)*q^147 - 3/2*a*q^149 - 3/2*a*q^154 + 1/2*(-a + 1)*q^155 + 
        1/2*(-a - 1)*q^156 + 1/2*a*q^158 + q^161 + (-a - 1)*q^162 - 1/2*q^165 - 
        1/2*q^168 - 1/2*q^169 - q^170 + (a - 1)*q^172 + 1/2*q^175 + 1/2*(-a - 
        1)*q^177 + 1/4*(-a + 1)*q^182 + (-a + 1)*q^184 + 1/2*(a - 1)*q^186 + 
        1/4*(-a + 1)*q^189 + 1/2*(a + 1)*q^191 - 1/2*a*q^196 + a*q^203 + q^204 +
        1/2*(a + 1)*q^205 - a*q^207 - 1/2*q^210 + (a - 1)*q^211 + 3/2*a*q^212 + 
        1/4*(-a - 1)*q^217 + 1/2*(3*a - 3)*q^218 + 1/2*(a - 1)*q^221 + 1/4*(-a -
        1)*q^224 + 1/2*a*q^225 - q^226 + O(q^230),
    q^2 - 2*a*q^8 + 1/2*(-a - 1)*q^9 + 2*q^11 + 1/2*q^14 - a*q^15 + (-a + 
        1)*q^16 - 1/2*q^21 + 1/2*(3*a + 3)*q^22 + (a - 1)*q^23 + 1/2*(a - 
        1)*q^25 + (a + 1)*q^28 + (-a - 1)*q^29 + 1/2*(-a + 1)*q^30 - q^32 + 
        1/2*(-a - 1)*q^35 + 1/2*(a - 1)*q^36 + a*q^39 + 1/2*(a + 1)*q^42 + 
        2*q^43 - 2*q^46 + 1/2*(a - 1)*q^49 + (-a - 1)*q^51 + 1/2*(-3*a + 3)*q^53
        + 1/2*a*q^56 + a*q^58 - q^60 + 1/2*(-a - 1)*q^63 + (-a - 1)*q^64 + 
        1/2*(-a + 1)*q^65 + (a + 1)*q^67 - 1/2*a*q^70 + (a + 1)*q^71 - q^72 + (a
        - 1)*q^74 - 3/2*q^77 + 1/2*(a - 1)*q^78 - 2*q^79 + (a - 1)*q^81 + 
        1/2*a*q^84 + a*q^85 + 1/2*(3*a + 3)*q^86 + 1/2*(-a + 1)*q^88 + 1/2*(a + 
        1)*q^91 + (-a - 1)*q^92 + 1/2*(a + 1)*q^93 - a*q^99 + 1/2*(a + 1)*q^100 
        - a*q^102 + 1/2*a*q^105 - q^106 + 1/2*(3*a + 3)*q^109 + (-a + 1)*q^112 +
        a*q^113 + (a - 1)*q^116 - q^119 + 1/2*(-a - 1)*q^120 + 1/2*(-a - 
        1)*q^121 + (-a + 1)*q^123 - a*q^126 - q^127 - q^130 + a*q^134 - q^135 + 
        1/2*(a - 1)*q^140 + 1/2*(-a + 1)*q^141 + 2*a*q^142 + 1/2*(-a - 1)*q^144 
        - q^147 + 1/2*(-a - 1)*q^149 + 1/2*(a + 1)*q^154 + a*q^155 + q^156 + 
        1/2*(-3*a - 3)*q^158 + (-a + 1)*q^161 + q^162 + 1/2*(-a + 1)*q^165 + 
        1/2*(-a + 1)*q^168 + 1/2*(a - 1)*q^169 + (-a + 1)*q^170 + 1/2*(a - 
        1)*q^175 + q^177 + 1/2*a*q^182 - a*q^186 + 1/2*a*q^189 - q^191 + 2*q^193
        + 1/2*(a + 1)*q^196 + (-a + 1)*q^198 + a*q^200 + (-a - 1)*q^203 + (a - 
        1)*q^204 - q^205 + (a + 1)*q^207 + 1/2*(-a + 1)*q^210 - 2*a*q^211 + 
        1/2*(-3*a - 3)*q^212 + 1/2*q^217 - a*q^218 - a*q^221 + 3/2*q^224 + 
        1/2*(a + 1)*q^225 + O(q^230),
    q^3 + a*q^8 + 1/2*(a + 1)*q^9 + a*q^10 - q^11 - a*q^12 - 1/2*q^14 + (a - 
        1)*q^16 + 1/2*q^21 + 1/2*(-3*a - 3)*q^22 + (-a + 1)*q^23 + 1/2*(-a + 
        1)*q^25 - a*q^26 - a*q^27 + (-a - 1)*q^28 + (a + 1)*q^29 + 1/2*(a - 
        1)*q^30 - q^31 + (a + 1)*q^34 + 1/2*(-a - 1)*q^35 + 1/2*(-a + 1)*q^36 + 
        q^40 + 1/2*(a + 1)*q^42 - q^43 - a*q^44 + 2*q^46 + a*q^47 - q^48 + 
        1/2*(-a + 1)*q^49 + 1/2*(3*a - 3)*q^53 + a*q^55 - 1/2*a*q^56 + (a - 
        1)*q^59 + 1/2*(a + 1)*q^63 + (a + 1)*q^64 + 1/2*(a - 1)*q^65 - a*q^66 + 
        1/2*a*q^70 + (-a - 1)*q^71 + q^72 + 3/2*q^77 + 1/2*(-a + 1)*q^78 + q^79 
        + (-a + 1)*q^81 + (a - 1)*q^82 + (-a + 1)*q^83 - 1/2*a*q^84 - a*q^85 + 
        1/2*(-3*a - 3)*q^86 + a*q^87 + 1/2*(a - 1)*q^88 + 1/2*(a + 1)*q^91 + (a 
        + 1)*q^92 + 1/2*(-a - 1)*q^93 + q^98 + a*q^99 + 1/2*(-a - 1)*q^100 + 
        a*q^102 - q^104 - 1/2*a*q^105 - q^108 + 1/2*(-3*a - 3)*q^109 + (a - 
        1)*q^111 + (a - 1)*q^112 - a*q^113 + (-a + 1)*q^116 - q^119 + 1/2*(a + 
        1)*q^120 + 1/2*(a + 1)*q^121 + a*q^124 + a*q^126 + q^127 + a*q^128 - 
        2*a*q^131 - a*q^134 + (-a + 1)*q^136 + 1/2*(a - 1)*q^140 + 1/2*(a - 
        1)*q^141 - 2*a*q^142 - a*q^143 + 1/2*(a + 1)*q^144 + 1/2*(a + 1)*q^149 +
        1/2*(-a - 1)*q^154 + 1/2*(3*a + 3)*q^158 - q^159 - a*q^160 + (a - 
        1)*q^161 + a*q^163 + 1/2*(a - 1)*q^165 + 1/2*(-a + 1)*q^168 + 1/2*(-a + 
        1)*q^169 - a*q^172 + 1/2*(-a + 1)*q^175 - q^176 - q^177 - 1/2*a*q^182 + 
        (a + 1)*q^187 + q^188 - 1/2*a*q^189 + q^191 + a*q^192 - 2*q^193 + (a - 
        1)*q^194 - q^195 + 1/2*(-a - 1)*q^196 + (a - 1)*q^198 + (-a + 1)*q^199 -
        a*q^200 + (a + 1)*q^203 + q^205 + (-a - 1)*q^207 + 1/2*(a - 1)*q^210 + 
        a*q^211 + 1/2*(3*a + 3)*q^212 + a*q^215 - 1/2*q^217 + q^220 + a*q^221 - 
        3/2*q^224 + 1/2*(-a - 1)*q^225 + (-a + 1)*q^227 + O(q^230),
    q^4 + 1/2*(a + 1)*q^8 - 1/2*q^9 + (a - 1)*q^11 + 1/4*(a - 1)*q^14 + 1/2*(a +
        1)*q^15 - a*q^16 + 1/2*(-a - 1)*q^18 + 1/4*(a - 1)*q^21 + 1/2*q^22 - 
        a*q^23 + 1/2*a*q^25 - q^29 - 1/2*a*q^30 + (-a + 1)*q^32 + 1/2*q^35 - 
        1/2*a*q^36 + 1/2*(-a - 1)*q^39 - 1/2*q^42 + (a - 1)*q^43 + (a + 1)*q^44 
        + 1/2*a*q^49 + 1/2*(a - 1)*q^50 + q^51 - 3/2*a*q^53 + 1/4*(3*a + 3)*q^56
        + (-a - 1)*q^58 + 1/2*(-a + 1)*q^60 + 1/2*q^63 - 1/2*a*q^65 - q^67 + 
        1/4*(-a - 1)*q^70 - q^71 + 1/4*(3*a - 3)*q^77 + 1/2*a*q^78 + (-a + 
        1)*q^79 + a*q^81 + 1/4*(a + 1)*q^84 + 1/2*(a + 1)*q^85 + 1/2*q^86 + 
        1/2*a*q^88 - 1/2*q^91 - q^92 + 1/2*q^93 + 1/2*(a - 1)*q^98 + 1/2*(a + 
        1)*q^99 - 1/2*q^100 + 1/2*(-a - 1)*q^102 + 1/4*(a + 1)*q^105 + 1/2*(-3*a
        + 3)*q^106 + 3/2*q^109 + a*q^112 + 1/2*(a + 1)*q^113 + 1/2*(-a + 
        1)*q^119 - 1/2*q^120 - 1/2*q^121 + a*q^123 + 1/2*(-a + 1)*q^127 + 
        1/2*(-a - 1)*q^128 + 1/2*(-a + 1)*q^130 + 1/2*(a + 1)*q^134 + 1/2*(-a + 
        1)*q^135 - 1/2*a*q^140 - 1/2*a*q^141 - 1/2*q^144 + 1/2*(-a + 1)*q^147 + 
        (a - 1)*q^148 - 1/2*q^149 - 3/2*q^154 + 1/2*(-a - 1)*q^155 + 1/2*(a - 
        1)*q^156 - 1/2*q^158 - a*q^161 + (a - 1)*q^162 - 1/2*a*q^165 + 
        1/2*a*q^168 + 1/2*a*q^169 + a*q^170 + (a + 1)*q^172 - 1/2*a*q^175 + 
        1/2*(-a + 1)*q^177 + 1/4*(a + 1)*q^182 + (-a - 1)*q^184 + 1/2*(a + 
        1)*q^186 + 1/4*(a + 1)*q^189 + 1/2*(-a + 1)*q^191 + (-a + 1)*q^193 - 
        1/2*q^196 + q^203 - a*q^204 + 1/2*(a - 1)*q^205 - q^207 + 1/2*a*q^210 + 
        (a + 1)*q^211 + 1/2*q^212 + 1/4*(-a + 1)*q^217 + 1/2*(3*a + 3)*q^218 + 
        1/2*(-a - 1)*q^221 + 1/4*(-a + 1)*q^224 + 1/2*q^225 + a*q^226 + 
        O(q^230),
    q^5 - q^6 - q^13 + 1/2*(a - 1)*q^14 + (-a + 1)*q^17 - a*q^20 + 1/2*(-a + 
        1)*q^21 + a*q^24 - q^33 + (a + 1)*q^41 - a*q^49 + a*q^52 + a*q^54 + 
        1/2*(a + 1)*q^56 + q^62 + (-a - 1)*q^68 + 1/2*(a + 1)*q^70 + 1/2*(a - 
        1)*q^77 - q^80 + 1/2*(-a - 1)*q^84 - a*q^94 + q^96 + (a + 1)*q^97 + 
        1/2*(a + 1)*q^105 - a*q^110 + (-a + 1)*q^118 - q^125 - q^129 + a*q^132 +
        a*q^145 + (-a - 1)*q^157 + (-a + 1)*q^164 + (a - 1)*q^166 - a*q^174 - 
        a*q^181 + 1/2*(-a - 1)*q^182 + (a - 1)*q^185 + 1/2*(-a - 1)*q^189 - 
        q^196 + (-a - 1)*q^201 + q^208 + q^216 + 1/2*(a - 1)*q^217 + (-a + 
        1)*q^222 + 1/2*(-a + 1)*q^224 + O(q^230),
    q^7 + (-a + 1)*q^8 - a*q^9 + (a + 1)*q^11 + 1/2*(a + 1)*q^14 + 2*q^16 + 
        1/2*(-a - 1)*q^21 + 3*a*q^22 - 2*q^23 - q^25 + a*q^28 - 2*a*q^29 + q^30 
        - q^36 + (a + 1)*q^43 + (a - 1)*q^44 + (-2*a - 2)*q^46 - q^49 + 3*q^53 +
        1/2*(a - 1)*q^56 - a*q^63 - 2*a*q^64 + q^65 + 1/2*(-a + 1)*q^70 + 
        2*a*q^71 + (-a - 1)*q^72 + 1/2*(-3*a - 3)*q^77 - q^78 + (-a - 1)*q^79 - 
        2*q^81 + 1/2*(a - 1)*q^84 + (a - 1)*q^85 + 3*a*q^86 + q^88 - 2*a*q^92 + 
        a*q^93 + (-a + 1)*q^99 + a*q^100 + (-a + 1)*q^102 + 1/2*(a - 1)*q^105 + 
        3*a*q^109 + q^112 + (a - 1)*q^113 - 2*q^116 - a*q^120 - a*q^121 + (-a + 
        1)*q^126 + (-a - 1)*q^127 + (-a + 1)*q^128 + (a - 1)*q^134 + q^141 + 
        (2*a - 2)*q^142 - a*q^144 - a*q^149 - 3*a*q^158 + 2*q^161 + (-a + 
        1)*q^163 + q^165 - q^169 + (a - 1)*q^172 - q^175 + (a + 1)*q^176 + (a + 
        1)*q^177 + 1/2*(a - 1)*q^182 + 1/2*(a - 1)*q^189 + (-a - 1)*q^191 + (2*a
        + 2)*q^193 + a*q^196 + 2*q^198 + (a - 1)*q^200 - a*q^203 + (-a - 
        1)*q^205 + 2*a*q^207 + (-a + 1)*q^211 - 3*a*q^212 + 1/2*(a + 1)*q^217 + 
        (-a + 1)*q^221 + 1/2*(3*a + 3)*q^224 + a*q^225 + O(q^230)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^5 - q^6 - q^13 + q^16 - q^20 - q^22 - q^24 + q^29 + q^30 + q^33 
        + 2*q^38 + q^49 - q^52 - q^53 + q^54 - 2*q^57 - q^62 + q^64 + q^65 + 
        q^78 - q^80 - q^81 - q^86 - q^88 + q^93 - q^94 - q^96 - q^109 + q^110 + 
        q^116 + q^120 + q^125 + q^129 + q^132 + q^141 - q^145 - q^149 + 2*q^152 
        - q^158 - q^165 + 2*q^173 - q^174 - q^181 - 2*q^190 + q^196 + 2*q^197 - 
        q^208 - 2*q^209 - q^212 + q^216 - 2*q^228 + O(q^230),
    q^2 - q^3 + q^8 - q^10 - q^11 - q^12 + q^15 + 2*q^19 - q^26 + q^27 - q^31 + 
        q^32 + q^39 - q^40 - q^43 - q^44 - q^47 - q^48 + q^55 + q^58 + q^60 + 
        q^66 + 2*q^76 - q^79 - q^87 - 2*q^95 + q^98 - q^104 - q^106 + q^108 - 
        2*q^114 - q^124 + 2*q^127 + q^128 + q^130 + 2*q^131 - q^135 + q^143 - 
        q^147 + q^155 + q^156 + q^159 - q^160 - q^162 - q^163 - q^172 - q^176 + 
        q^186 - q^188 + 2*q^191 - q^192 - q^195 - q^211 + q^215 - q^218 + q^220 
        + O(q^230),
    q^7 + q^28 - q^35 - q^42 - q^91 + q^112 - q^140 - q^154 - q^168 + q^203 + 
        q^210 + O(q^230),
    q^14 - q^21 + q^56 - q^70 - q^77 - q^84 + q^105 + 2*q^133 - q^182 + q^189 - 
        q^217 + q^224 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 2)*q^5 + (-a + 1)*q^7 + a*q^9 + (2*a - 1)*q^13 + 2*a*q^23 + (-2*a +
        2)*q^25 - q^29 + (2*a - 1)*q^35 + (-a - 1)*q^45 - a*q^49 + (-a + 1)*q^53
        + q^63 - 3*a*q^65 + (-2*a + 2)*q^67 - q^71 + (a - 1)*q^81 + (-2*a + 
        1)*q^83 + (a + 1)*q^91 + (-a + 2)*q^103 + a*q^107 + (a - 1)*q^109 + 
        (-2*a - 2)*q^115 + (a - 2)*q^117 - a*q^121 + (2*a - 1)*q^125 + (2*a - 
        1)*q^139 + (-a + 2)*q^145 - a*q^149 + (a - 1)*q^151 + 2*q^161 - 2*q^169 
        + (-a + 2)*q^173 - 2*a*q^175 + (-2*a + 2)*q^179 + q^197 + (-a - 1)*q^199
        + (a - 1)*q^203 + (2*a - 2)*q^207 + (-2*a + 1)*q^223 + 2*q^225 + (a + 
        1)*q^227 + O(q^230)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
812
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - q^51 - q^53 - q^57 - q^63 - q^71 - q^93 - q^107 + 
        q^121 - q^123 - q^141 - q^161 + q^169 - q^183 + q^203 + q^207 + 2*q^219 
        + q^225 + O(q^230),
    q^3 - q^19 - q^21 + q^27 - q^41 - q^47 + q^69 + q^73 + q^75 - q^87 + q^89 - 
        q^97 + q^101 + q^133 + q^147 - q^157 - q^159 - 2*q^171 - q^189 + q^201 -
        q^213 + q^229 + O(q^230),
    q^7 - q^9 - q^23 + q^29 - q^51 + 2*q^57 + q^63 - q^67 - q^81 - q^93 - q^109 
        + 2*q^123 + 2*q^141 - q^149 - q^151 + q^175 + 2*q^179 - q^183 - q^197 - 
        q^207 - q^219 - q^225 + O(q^230),
    q^17 - q^19 - q^21 + q^27 + q^31 - q^41 - q^47 + q^61 + q^69 - q^87 - q^97 +
        q^119 + q^131 - q^157 - q^171 + q^201 + q^217 + O(q^230)
]
;
Bo:=
[
    q - q^7 - q^9 - 2*q^23 + q^25 - q^29 + q^49 + 2*q^53 + q^63 - 2*q^67 + 
        2*q^71 + q^81 + 2*q^107 - 2*q^109 + q^121 - 2*q^149 - 2*q^151 + 2*q^161 
        + q^169 - q^175 - 2*q^179 - 2*q^197 + q^203 + 2*q^207 - q^225 + 
        O(q^230),
    q^2 + q^8 - q^14 - q^18 + q^32 - 2*q^46 + q^50 - q^56 - q^58 - q^72 + q^98 +
        2*q^106 + q^126 + q^128 - 2*q^134 + 2*q^142 + q^162 - 2*q^184 + q^200 + 
        2*q^214 - 2*q^218 - q^224 + O(q^230),
    q^4 + q^16 - q^28 - q^36 + q^64 - 2*q^92 + q^100 - q^112 - q^116 - q^144 + 
        q^196 + 2*q^212 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
813
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
179
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
813
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
270
);
qprec:=
179
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
813
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
270
);
qprec:=
179
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
813
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
179
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
813
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
179
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
813
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
179
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^21 - a^18 + a^9 + a^6 - 1)*q^3 + (a^23 - a^8)*q^4 + (a^8 + a^6)*q^7 
        - a^9*q^9 + a^20*q^12 + (a^10 - a^5)*q^13 + (-a^16 + a)*q^16 + (a^23 + 
        a^22 - a^17 - a^14 + a^5 + a^2)*q^19 + (-a^20 - a^18 + a^5 + a^3)*q^21 +
        (a^22 - a^16 - a^13 - a^10 + a^4 + a)*q^25 + (a^21 - a^6)*q^27 + (a^23 +
        a^20 - a^14 - a^11 - a^8 + a^2 - a)*q^28 + (-a^21 + a^15 - 1)*q^31 + 
        a^2*q^36 + (-a^23 + a^21 - a^20 + a^18 - a^12 + a^11 - a^9 + a^8 - a^6 -
        a^2 + 1)*q^37 + (-a^22 + a^17 + a^7 - a^2)*q^39 + (a^21 - a^19 - a^15 - 
        a^12 + a^3 + 1)*q^43 - a^13*q^48 + (a^16 + a^14 + a^12)*q^49 + (-a^22 - 
        a^19 + a^13 + a^10 + a^7 - a^3 - a)*q^52 + (-a^23 + a^4)*q^57 + (a^19 - 
        a^7 - a^4)*q^61 + (-a^17 - a^15)*q^63 + (-a^21 + a^15 + a^12 + a^9 - a^3
        - 1)*q^64 + (a^19 + a^16 + a^13 - a^10 - a^7 - a^4)*q^67 + (-a^23 + a^17
        + a^14 - a^5 - a^2)*q^73 - a^7*q^75 + (a^19 - a^15 - a^4)*q^76 + (-a^22 
        - a^17 + a^16 + a^13 - a^4 - a)*q^79 + a^18*q^81 + (-a^23 + a^22 + a^19 
        + a^17 + a^14 + a^11 - a^10 - a^7 - a^5 - a^2 + a)*q^84 + (a^18 + a^16 -
        a^13 - a^11)*q^91 + (a^12 - a^3)*q^93 + (-a^22 - a^19 + a^13 + a^10 + 
        a^7 + a^4 - a)*q^97 + a^18*q^100 + (-a^23 - a^21 + a^15 + a^12 + a^9 - 
        a^3 - 1)*q^103 + (-a^23 - a^20 + a^11 + a^8 - a^2)*q^108 + (a^21 + a^18 
        + a^17 - a^12 - a^9 - a^6 - a^2 + 1)*q^109 + (-a^21 + a^15 + a^12 - a^11
        + a^9 - a^3 - 1)*q^111 + (-a^22 + a^21 - a^15 - a^12 + a^7 + a^3 + 
        1)*q^112 + (-a^19 + a^14)*q^117 + (-a^23 + a^17 + a^14 + a^11 - a^5 - 
        a^2)*q^121 + (-a^23 + a^14)*q^124 + (a^23 + a^21 + a^20 - a^14 - a^11 - 
        a^8 - a^6 + a^2)*q^127 + (-a^21 - a)*q^129 + (a^22 + a^19 + a^15 - a^10 
        - a^7 + a^4 + a^2 + a - 1)*q^133 + (-a^19 + a^2)*q^139 + (-a^22 + a^16 +
        a^13 - a^4 - a)*q^144 + (a^23 - a^22 + a^21 - a^19 - a^17 - a^15 - a^14 
        + a^13 - a^12 + a^10 + a^7 + a^5 + a^3 + a^2 - a + 1)*q^147 + (a^22 - 
        a^20 + a^5)*q^148 + (a^22 - a^18 - a^16 - a^13 - a^10 + a^4 + a^3 + 
        a)*q^151 + (a^22 - a^16 + a^15 - a^13 - a^10 + a^4 + a - 1)*q^156 + 
        (-a^17 - a^3)*q^157 + (-a^22 - a^21 + a^7)*q^163 + (a^20 - a^15 + 
        a^10)*q^169 + (-a^16 - a^5 + a)*q^171 + (a^17 + a^12 - a^2)*q^172 + 
        (-a^18 - a^16 + a^3 + a)*q^175 + O(q^179)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
813
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
179
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
813
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
179
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
813
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
179
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
813
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
179
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^7 - a^2)*q^3 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^4 + (-a^7 + a^6 + 
        a^5 + a^4 + a^3 - a - 1)*q^7 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^9 - 
        a^5*q^12 - q^13 - a*q^16 + (-a^7 - a^6 + a)*q^19 + (-a^5 - a^3)*q^21 + 
        (a^5 - 1)*q^25 + a^6*q^27 + (a^7 + a^6 - a^4 - a^3 - a^2 - a + 1)*q^28 +
        (a^6 + 1)*q^31 + a^2*q^36 + (2*a^7 + a^6 - a^4 - a^3 - 2*a^2 + 1)*q^37 +
        (-a^7 + a^2)*q^39 + (-a^7 - a^6 + a^4 + a^3 + a^2 - 1)*q^43 + (a^7 - a^5
        - a^4 + a + 1)*q^48 + (2*a^7 + a^6 - a^4 - a^3 - 2*a^2 - a + 1)*q^49 + 
        (a^7 - a^5 - a^4 - a^3 + a + 1)*q^52 + (-a^7 + a^5 + 2*a^4 + a^3 - a - 
        1)*q^57 + (-a^7 + a^4)*q^61 + (a^2 + 1)*q^63 + (-a^7 - a^6 + a^3 + a^2 -
        1)*q^64 + (a^7 - a^4 + a)*q^67 + (-2*a^6 + 2*a)*q^73 - a^7*q^75 + (a^4 +
        1)*q^76 + (a^5 + a^2 - 1)*q^79 - a^3*q^81 + (a^7 - a^6 - a^5 - a^4 + 2*a
        + 1)*q^84 + (a^7 - a^6 - a^5 - a^4 - a^3 + a + 1)*q^91 + (a^7 - a^3 - 
        a^2)*q^93 + (a^7 - a^5 + a + 1)*q^97 - a^3*q^100 + (-2*a^7 - a^6 + a^5 +
        a^4 + 2*a^3 + a^2 - a - 2)*q^103 + (a^7 + a^6 - a^4 - a^3 - a^2 + 
        1)*q^108 + a^7*q^109 + (-a^7 - 2*a^6 + a^3 + a^2 + a - 1)*q^111 + 
        (-2*a^7 - a^6 + a^3 + a^2 - 1)*q^112 + (a^7 + a^6 - a^3 - a^2 + 1)*q^117
        + (-a^6 + a)*q^121 + (a^6 + a^5 - a^2 - a)*q^124 + (a^7 + 2*a^6 - a^4 - 
        a^3 - a^2 + 1)*q^127 + (a^6 - a)*q^129 + (a^7 - a^5 + a^2 + a + 2)*q^133
        + (a^4 + a^2)*q^139 + (a^5 - 1)*q^144 + (-2*a^6 - a^5 - a^4 + a^3 + a^2 
        + 2*a)*q^147 + (-a^7 - a^5)*q^148 + (a^5 - a^3 - 1)*q^151 + a^5*q^156 + 
        (-a^3 + a^2)*q^157 + (-a^7 + a^6)*q^163 + (-a^5 - a)*q^171 + a^7*q^172 +
        (-a^3 - a)*q^175 + O(q^179)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
813
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
179
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
813
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 30*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
179
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^3 + a^2*q^4 + (a^5 + a^3 - a^2 - 1)*q^7 + q^9 + a^2*q^12 + (-a^5 - 
        a)*q^13 + a^4*q^16 + (-a^5 + a^4)*q^19 + (a^5 + a^3 - a^2 - 1)*q^21 + 
        (-a^4 + a)*q^25 + q^27 + (a^5 - a^2 - a)*q^28 - 2*a^3*q^31 + a^2*q^36 + 
        (a^3 + a^2 - 1)*q^37 + (-a^5 - a)*q^39 + (-a^3 - a)*q^43 + a^4*q^48 + 
        (-a^5 - a^4 - a^3 + a)*q^49 + (-a^4 - a^3 + a)*q^52 + (-a^5 + a^4)*q^57 
        + (-2*a^4 + 2*a)*q^61 + (a^5 + a^3 - a^2 - 1)*q^63 + (a^3 - 1)*q^64 + 
        (a^4 - a)*q^67 + a^5*q^73 + (-a^4 + a)*q^75 + (-a^4 + a^3 + a - 1)*q^76 
        + (a^5 + a^4 - a^2)*q^79 + q^81 + (a^5 - a^2 - a)*q^84 + (a^2 + a + 
        1)*q^91 - 2*a^3*q^93 + a*q^97 + q^100 + (-a^5 + a^3 - 1)*q^103 + 
        a^2*q^108 + (-a^5 + a^3 - 1)*q^109 + (a^3 + a^2 - 1)*q^111 + (-a^3 - 
        a)*q^112 + (-a^5 - a)*q^117 + (a^5 - a^2)*q^121 - 2*a^5*q^124 + (a^5 - 
        a^2 + 1)*q^127 + (-a^3 - a)*q^129 + (a^4 - a^3 + a^2 - a)*q^133 + (a^2 -
        a)*q^139 + a^4*q^144 + (-a^5 - a^4 - a^3 + a)*q^147 + (a^5 + a^4 - 
        a^2)*q^148 + (-a^4 + a^3 + a - 1)*q^151 + (-a^4 - a^3 + a)*q^156 + (a^5 
        - a^3 - a^2)*q^157 + (-a^3 - a)*q^163 + (a^3 + a^2 - a - 1)*q^169 + 
        (-a^5 + a^4)*q^171 + (-a^5 - a^3)*q^172 + (a^4 + a^3 - 1)*q^175 + 
        O(q^179)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
813
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
45*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
179
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
813
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 54*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
179
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^3 - a^3*q^4 + (-a^3 - a)*q^7 + (a^3 - a^2 + a - 1)*q^9 + q^12 + 
        2*q^13 - a*q^16 + (a^2 - a)*q^19 + (-a^3 + 1)*q^21 + q^25 - a*q^27 + 
        (a^3 - a^2 - 1)*q^28 + (-a + 1)*q^31 + a^2*q^36 + (a^3 + a - 1)*q^37 + 
        2*a^2*q^39 + (2*a^3 - 2*a^2 + 2*a - 2)*q^43 - a^3*q^48 + (a^3 - 1)*q^49 
        - 2*a^3*q^52 + (-a^2 + a - 1)*q^57 + (a^3 + a - 1)*q^61 + (a^2 + 1)*q^63
        + (a^3 - a^2 + a - 1)*q^64 + (-a^3 + 1)*q^67 - 2*a*q^73 + a^2*q^75 + 
        (a^3 - a^2 + a)*q^76 + (a^2 + 1)*q^79 - a^3*q^81 + (-a^3 - a)*q^84 + 
        (-2*a^3 - 2*a)*q^91 + (-a^3 + a^2)*q^93 + (-a^2 + a - 1)*q^97 - 
        a^3*q^100 + (-a^2 + a - 1)*q^103 + (a^3 - a^2 + a - 1)*q^108 + 
        2*a^2*q^109 + (a^3 - a^2 - 1)*q^111 + (a^3 + a - 1)*q^112 + (2*a^3 - 
        2*a^2 + 2*a - 2)*q^117 - a*q^121 + (-a^2 + a - 1)*q^124 + (a^3 - a^2 - 
        1)*q^127 - 2*a*q^129 + a*q^133 + (a^3 + a - 1)*q^139 + q^144 + (-a^2 - 
        1)*q^147 + (a^2 + 1)*q^148 + (-a^3 + 1)*q^151 + 2*q^156 + (-a^3 + 
        a^2)*q^157 + (a^2 - a)*q^163 + 3*q^169 + (-a + 1)*q^171 + 2*a^2*q^172 + 
        (-a^3 - a)*q^175 + O(q^179)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
813
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 90*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
179
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^3 + (a - 1)*q^4 + a*q^7 + q^9 + (a - 1)*q^12 - q^13 - a*q^16 - q^19 + 
        a*q^21 - a*q^25 + q^27 - q^28 + 2*q^31 + (a - 1)*q^36 + a*q^37 - q^39 + 
        (-a + 1)*q^43 - a*q^48 + (-a + 1)*q^52 - q^57 - 2*a*q^61 + a*q^63 + q^64
        - 2*a*q^67 + (2*a - 2)*q^73 - a*q^75 + (-a + 1)*q^76 - q^79 + q^81 - 
        q^84 - a*q^91 + 2*q^93 - 2*a*q^97 + q^100 + a*q^103 + (a - 1)*q^108 + 
        a*q^109 + a*q^111 + (-a + 1)*q^112 - q^117 + (a - 1)*q^121 + (2*a - 
        2)*q^124 + a*q^127 + (-a + 1)*q^129 - a*q^133 - q^139 - a*q^144 - q^148 
        + (-a + 1)*q^151 + (-a + 1)*q^156 + a*q^157 + (-a + 1)*q^163 - q^171 + 
        a*q^172 + (-a + 1)*q^175 + O(q^179)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
813
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
135*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
179
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^17 - q^20 - q^22 + q^25 - q^31 - q^35 + q^49 - q^50 - q^56 + 
        q^68 + q^70 + q^74 - q^77 + q^80 + q^81 - q^85 + q^88 + q^98 + q^110 - 
        q^112 + q^121 - q^122 + q^124 + q^140 - q^153 - q^154 - q^155 + q^158 - 
        q^160 - q^163 - q^167 + q^169 - q^175 + q^178 + O(q^179),
    q^2 - q^10 - q^11 + q^18 - q^25 - q^28 + q^35 + q^37 + q^49 + q^50 + q^55 - 
        q^56 - q^61 - q^77 + q^79 - q^80 + q^89 - q^90 + q^98 - q^99 - q^103 - 
        q^110 - q^119 + q^125 - q^134 + q^136 + q^139 + q^140 + q^148 + q^160 + 
        q^162 - q^164 - q^166 - q^175 + q^176 + O(q^179),
    q^3 + q^27 - q^51 - q^60 - q^66 + q^75 - q^93 - q^105 + q^147 - q^150 - 
        q^168 + O(q^179),
    q^4 - q^8 - q^10 - q^11 + q^16 + q^17 + q^20 + q^22 - q^25 - q^28 + q^31 - 
        q^32 - q^34 + q^35 + q^36 - q^40 - q^44 + q^50 - q^61 - q^62 + q^64 + 
        q^68 - q^72 + q^74 + q^85 + q^88 - q^90 + q^98 - q^99 - q^103 - q^119 + 
        q^122 + q^124 - q^128 - q^134 - q^136 + q^144 - q^148 + q^153 + q^155 + 
        q^158 + q^163 - q^164 - q^166 + q^167 - q^170 - q^176 + q^178 + 
        O(q^179),
    q^5 - q^8 - q^10 - q^11 + q^14 + q^16 + q^20 + q^22 - q^25 - q^32 - q^34 - 
        q^44 + q^45 + q^50 + q^55 - q^61 - q^62 + q^64 + q^67 + q^68 - q^70 - 
        q^72 - q^77 + q^82 + q^83 + q^88 - q^90 - q^99 - q^100 - q^103 + q^106 -
        q^110 + q^122 + q^124 + q^125 + q^126 - q^134 - q^136 + q^144 - q^148 + 
        q^151 - q^166 - q^175 + O(q^179),
    q^6 - q^30 - q^33 + q^54 - q^75 - q^84 + q^105 + q^111 + q^147 + q^150 + 
        q^165 - q^168 + O(q^179),
    q^7 - q^8 - q^11 + q^14 + q^20 - q^25 - q^34 + q^41 + q^53 - q^61 - q^62 + 
        q^63 + q^64 - q^70 - q^72 - q^77 + q^82 + q^85 + q^88 - q^99 - q^103 + 
        q^106 - q^119 + q^121 + q^126 - q^140 - q^148 - q^154 + q^155 + 
        O(q^179),
    q^12 - q^24 - q^30 - q^33 + q^48 + q^51 + q^60 + q^66 - q^75 - q^84 + q^93 -
        q^96 - q^102 + q^105 + q^108 - q^120 - q^132 + q^150 + O(q^179),
    q^15 - q^24 - q^30 - q^33 + q^42 + q^48 + q^60 + q^66 - q^75 - q^96 - q^102 
        - q^132 + q^135 + q^150 + q^165 + O(q^179),
    q^21 - q^24 - q^33 + q^42 + q^60 - q^75 - q^102 + q^123 + q^159 + O(q^179)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
180
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^3 - a^2 + 1)*q^3 + a*q^4 + (-a^4 - a)*q^5 + (a^5 + a^4 - a^3 - 
        a^2)*q^9 + (a^3 - 1)*q^11 + (-a^4 - a^3 + a)*q^12 + (a^4 + 2*a^3 - 2*a -
        1)*q^15 + a^2*q^16 + (-a^5 - a^2)*q^20 + (-a^5 - a^4 + a^2 + a)*q^23 + 
        2*a^5*q^25 + (a^5 - a^3 + a)*q^27 + (-a^5 + a^3 + a^2)*q^33 + (a^5 - a^4
        - 1)*q^36 - a^5*q^37 + (a^4 - a)*q^44 + (-2*a^5 + 2*a^4 + a^3 + a^2 - a 
        + 1)*q^45 + (a^4 + a^2)*q^47 + (-a^5 - a^4 + a^2)*q^48 - a^5*q^49 + (a^4
        - a^3 - a + 1)*q^53 + (-a^4 + 2*a)*q^55 + (a^4 - 1)*q^59 + (a^5 + 2*a^4 
        - 2*a^2 - a)*q^60 + a^3*q^64 + (a^5 + a^3 - a^2 - 1)*q^67 + (-a^5 - a^4 
        - a - 1)*q^69 + (a^5 + a^3)*q^71 + (-2*a^4 + 2*a^2 + 2*a)*q^75 + (-2*a^3
        + 1)*q^80 + (a^5 - a^4 + a - 1)*q^81 + (-a^3 + a)*q^89 + (-a^5 + a^2 + 
        1)*q^92 + (a^5 - a)*q^97 + (-a^5 - a + 1)*q^99 + (2*a^3 - 2)*q^100 + 
        (a^5 - a^4 + a)*q^103 + (-a^4 + a^3 + a^2 - 1)*q^108 + (a^4 - a^2 - 
        a)*q^111 + (a^5 - 2*a^2)*q^113 + (a^5 - a^3 - 2*a^2 - 1)*q^115 - 
        a^3*q^121 + (-a^3 + 2)*q^125 + (a^4 + 1)*q^132 + (-a^5 + 2*a^4 - a^3 - 
        a^2 - a + 2)*q^135 + (-a^5 - a^4 + a^2)*q^137 + (-a^5 - a^4 - a^3 + a^2 
        + a + 1)*q^141 + (-a^5 + a^3 - a - 1)*q^144 + (a^4 - a^2 - a)*q^147 + 
        (-a^3 + 1)*q^148 + (-a^4 + a^3)*q^157 + (a^5 + a^4 - a^3 - a^2 + 
        1)*q^159 + (-a^4 + 1)*q^163 + (-2*a^4 - a^3 + a - 1)*q^165 - a^2*q^169 +
        (a^5 - a^2)*q^176 + (a^2 + a)*q^177 + (a^4 + a^2 - a)*q^179 + (2*a^5 + 
        a^4 - a^3 - a^2 + a + 2)*q^180 + a*q^181 + (a^3 - 2)*q^185 + (a^5 + 
        a^3)*q^188 + (-a^4 - a^2 + a)*q^191 + (-a^5 + 1)*q^192 + (-a^3 + 
        1)*q^196 + (a^5 + a^4 - a^2 - a)*q^199 + (a^3 + a^2 + a)*q^201 + (a^4 + 
        2*a^3 - 2*a - 1)*q^207 + (a^5 - a^4 - a^2 + a)*q^212 + (-a^5 - a^4 + a^2
        + a + 1)*q^213 + (-a^5 + 2*a^2)*q^220 + O(q^222),
    q^2 + (-a^3 - a^2 + 1)*q^6 + a*q^8 + (-a^4 - a)*q^10 + (a^5 + a^4 - a^3 - 
        a^2)*q^18 + (a^3 - 1)*q^22 + (-a^4 - a^3 + a)*q^24 + (a^4 + 2*a^3 - 2*a 
        - 1)*q^30 + a^2*q^32 + (-a^5 - a^2)*q^40 + (-a^5 - a^4 + a^2 + a)*q^46 +
        2*a^5*q^50 + (a^5 - a^3 + a)*q^54 + (-a^5 + a^3 + a^2)*q^66 + (a^5 - a^4
        - 1)*q^72 - a^5*q^74 + (a^4 - a)*q^88 + (-2*a^5 + 2*a^4 + a^3 + a^2 - a 
        + 1)*q^90 + (a^4 + a^2)*q^94 + (-a^5 - a^4 + a^2)*q^96 - a^5*q^98 + (a^4
        - a^3 - a + 1)*q^106 + (-a^4 + 2*a)*q^110 + (a^4 - 1)*q^118 + (a^5 + 
        2*a^4 - 2*a^2 - a)*q^120 + a^3*q^128 + (a^5 + a^3 - a^2 - 1)*q^134 + 
        (-a^5 - a^4 - a - 1)*q^138 + (a^5 + a^3)*q^142 + (-2*a^4 + 2*a^2 + 
        2*a)*q^150 + (-2*a^3 + 1)*q^160 + (a^5 - a^4 + a - 1)*q^162 + (-a^3 + 
        a)*q^178 + (-a^5 + a^2 + 1)*q^184 + (a^5 - a)*q^194 + (-a^5 - a + 
        1)*q^198 + (2*a^3 - 2)*q^200 + (a^5 - a^4 + a)*q^206 + (-a^4 + a^3 + a^2
        - 1)*q^216 + O(q^222)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^4 - a^3)*q^3 + a^2*q^4 + a^5*q^5 + (a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^9 - a^3*q^11 + (-a^5 + a^3 - 1)*q^12 + (-a^5 + a^2 - 1)*q^15 + 
        a^4*q^16 + (a^4 - a)*q^20 + (-a^5 - a^4 + a)*q^23 + (-a^3 + a^2 - a + 
        1)*q^27 + 2*q^31 + (-a^4 + a^3 + a - 1)*q^33 + (a^5 - a^2 - a + 1)*q^36 
        - a*q^37 - a^5*q^44 + (-a^4 + a^3 - a^2)*q^45 + (a^5 + a^4 - a^2)*q^47 +
        (a^5 - a^4 - a^2 + a)*q^48 - a*q^49 + (-a^5 - a^3)*q^53 + (-a^5 + 
        a^2)*q^55 + (a^5 - a^2 + 1)*q^59 + (-a^2 + a)*q^60 + (a^3 - 1)*q^64 + 
        (-a^4 - a^3 + a)*q^67 + (a^5 - a + 1)*q^69 + (a^3 - a - 1)*q^71 - q^80 +
        (-a^5 + a - 1)*q^81 + (a^3 + a^2 - 1)*q^89 + (-a^4 + a + 1)*q^92 + 
        (2*a^4 - 2*a^3)*q^93 + (a^2 - a)*q^97 + (a^2 - a + 1)*q^99 + (-a^5 - 
        a)*q^103 + (-a^5 + a^4 - a^3 + a^2)*q^108 + (-a^5 + a^4)*q^111 + a*q^113
        + (a^3 + a)*q^115 + (a^3 - 1)*q^121 + 2*a^2*q^124 + (a^3 - 1)*q^125 + 
        (a^5 - a^2 + 1)*q^132 + (a^4 - a^3 + a^2 - a + 1)*q^135 + (a^5 - a^4 - 
        a^2 + a)*q^137 + (a^5 - a^4 - a^3 + a)*q^141 + (-a^3 + a^2 - a)*q^144 + 
        (-a^5 + a^4)*q^147 - a^3*q^148 + 2*a^5*q^155 + (a^5 + a^3 - a^2 - 
        1)*q^157 + (a^5 - a^4 + a^3 - a^2 + a)*q^159 + (a^5 - a^2 + 1)*q^163 + 
        (a^3 - a^2)*q^165 + a^4*q^169 + (-a^4 + a)*q^176 + (a^4 - 2*a^3 + 
        a^2)*q^177 + (-a^5 + a^4)*q^179 + (a^5 - a^4 - a^3 + 1)*q^180 - 
        a^2*q^181 + (-a^3 + 1)*q^185 + (a^3 - a - 1)*q^188 + (-a^5 + a^4)*q^191 
        + (-a + 1)*q^192 - a^3*q^196 + (-a^5 - a^4 + a)*q^199 + (-a^4 + a^3 + 
        a^2 - 1)*q^201 + (-a^5 + 2*a^4 + a^2 - 1)*q^207 + (-a^5 - a^4 + a)*q^212
        + (-a^5 + a^4 - a + 1)*q^213 + a*q^220 + O(q^222),
    q^2 + (a^4 - a^3)*q^6 + a^2*q^8 + a^5*q^10 + (a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^18 - a^3*q^22 + (-a^5 + a^3 - 1)*q^24 + (-a^5 + a^2 - 1)*q^30 + 
        a^4*q^32 + (a^4 - a)*q^40 + (-a^5 - a^4 + a)*q^46 + (-a^3 + a^2 - a + 
        1)*q^54 + 2*q^62 + (-a^4 + a^3 + a - 1)*q^66 + (a^5 - a^2 - a + 1)*q^72 
        - a*q^74 - a^5*q^88 + (-a^4 + a^3 - a^2)*q^90 + (a^5 + a^4 - a^2)*q^94 +
        (a^5 - a^4 - a^2 + a)*q^96 - a*q^98 + (-a^5 - a^3)*q^106 + (-a^5 + 
        a^2)*q^110 + (a^5 - a^2 + 1)*q^118 + (-a^2 + a)*q^120 + (a^3 - 1)*q^128 
        + (-a^4 - a^3 + a)*q^134 + (a^5 - a + 1)*q^138 + (a^3 - a - 1)*q^142 - 
        q^160 + (-a^5 + a - 1)*q^162 + (a^3 + a^2 - 1)*q^178 + (-a^4 + a + 
        1)*q^184 + (2*a^4 - 2*a^3)*q^186 + (a^2 - a)*q^194 + (a^2 - a + 1)*q^198
        + (-a^5 - a)*q^206 + (-a^5 + a^4 - a^3 + a^2)*q^216 + O(q^222)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + a*q^4 + q^11 + (-a + 1)*q^12 + (a - 1)*q^16 + (-2*a + 1)*q^23 + 
        (a - 1)*q^25 - q^27 - a*q^33 + (a - 1)*q^37 + a*q^44 - q^47 + q^48 + (a 
        - 1)*q^49 + (a - 1)*q^53 + (-a - 1)*q^59 - q^64 + a*q^67 + (a - 2)*q^69 
        - a*q^71 + q^75 + a*q^81 + (a + 1)*q^89 + (-a + 2)*q^92 + (-2*a + 
        1)*q^97 - q^100 + (-2*a + 1)*q^103 - a*q^108 + q^111 + q^121 + (-a + 
        1)*q^132 + q^137 + a*q^141 + q^147 - q^148 + (a - 1)*q^157 + q^159 + (a 
        + 1)*q^163 + (-a + 1)*q^169 + (a - 1)*q^176 + (2*a - 1)*q^177 + (2*a - 
        1)*q^179 - 2*a*q^181 - a*q^188 + (-2*a + 1)*q^191 + a*q^192 - q^196 + 
        (2*a - 1)*q^199 + (-a + 1)*q^201 - q^212 + (a - 1)*q^213 + O(q^222),
    q^2 - a*q^6 + a*q^8 + q^22 + (-a + 1)*q^24 + (a - 1)*q^32 + (-2*a + 1)*q^46 
        + (a - 1)*q^50 - q^54 - a*q^66 + (a - 1)*q^74 + a*q^88 - q^94 + q^96 + 
        (a - 1)*q^98 + (a - 1)*q^106 + (-a - 1)*q^118 - q^128 + a*q^134 + (a - 
        2)*q^138 - a*q^142 + q^150 + a*q^162 + (a + 1)*q^178 + (-a + 2)*q^184 + 
        (-2*a + 1)*q^194 - q^200 + (-2*a + 1)*q^206 - a*q^216 + O(q^222)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^3 + (a - 1)*q^4 + (2*a - 2)*q^5 + q^11 + a*q^12 + 2*a*q^15 - 
        a*q^16 - 2*a*q^20 - q^23 - 3*a*q^25 + q^27 + 2*q^31 + (-a + 1)*q^33 - 
        a*q^37 + (a - 1)*q^44 - q^47 - q^48 - a*q^49 + a*q^53 + (2*a - 2)*q^55 +
        a*q^59 - 2*q^60 + q^64 + (-a + 1)*q^67 + (a - 1)*q^69 + (-a + 1)*q^71 - 
        3*q^75 + 2*q^80 + (-a + 1)*q^81 + a*q^89 + (-a + 1)*q^92 + (-2*a + 
        2)*q^93 - q^97 + 3*q^100 - q^103 + (a - 1)*q^108 - q^111 - 2*a*q^113 + 
        (-2*a + 2)*q^115 + q^121 + (2*a - 2)*q^124 + 4*q^125 + a*q^132 + (2*a - 
        2)*q^135 - q^137 + (a - 1)*q^141 - q^147 + q^148 + (4*a - 4)*q^155 + 
        a*q^157 + q^159 + a*q^163 + 2*a*q^165 - a*q^169 - a*q^176 + q^177 - 
        q^179 + (2*a - 2)*q^181 + 2*q^185 + (-a + 1)*q^188 - q^191 + (-a + 
        1)*q^192 + q^196 - q^199 - a*q^201 - q^212 - a*q^213 - 2*a*q^220 + 
        O(q^222),
    q^2 + (-a + 1)*q^6 + (a - 1)*q^8 + (2*a - 2)*q^10 + q^22 + a*q^24 + 2*a*q^30
        - a*q^32 - 2*a*q^40 - q^46 - 3*a*q^50 + q^54 + 2*q^62 + (-a + 1)*q^66 - 
        a*q^74 + (a - 1)*q^88 - q^94 - q^96 - a*q^98 + a*q^106 + (2*a - 2)*q^110
        + a*q^118 - 2*q^120 + q^128 + (-a + 1)*q^134 + (a - 1)*q^138 + (-a + 
        1)*q^142 - 3*q^150 + 2*q^160 + (-a + 1)*q^162 + a*q^178 + (-a + 1)*q^184
        + (-2*a + 2)*q^186 - q^194 + 3*q^200 - q^206 + (a - 1)*q^216 + O(q^222)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
814
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^16 + q^25 - q^26 - q^47 + q^49 - q^67 - q^78 - q^99 + q^104 + q^114 + 
        q^121 + q^122 + q^158 - q^159 + q^169 + q^174 - q^181 + q^192 - q^213 - 
        q^221 + O(q^222),
    q^2 + q^22 + q^24 - q^32 + q^50 - 2*q^52 - q^54 - q^66 + 2*q^68 - 2*q^72 + 
        q^74 - q^76 + q^88 - q^94 + q^98 - q^106 - q^116 - q^128 - q^134 - q^142
        + 2*q^162 + 2*q^172 - q^204 + q^216 + O(q^222),
    q^3 - q^26 - q^33 + q^38 - q^48 - q^53 + q^58 + q^64 - q^71 + q^75 - q^78 - 
        q^102 + q^104 - q^111 + q^114 + q^137 + q^147 - q^152 + q^157 + q^169 + 
        q^174 + q^221 + O(q^222),
    q^4 - q^26 - q^48 - q^78 + q^100 + q^114 + q^122 - q^152 + q^158 + q^174 - 
        q^188 + q^196 + O(q^222),
    q^6 - q^22 - q^24 + q^54 - q^68 + q^72 - q^74 + q^76 + q^116 + q^128 + q^150
        - q^156 - 2*q^162 - q^172 - q^198 + q^208 - q^216 + O(q^222),
    q^8 - q^22 - 2*q^24 + q^32 + q^52 + q^54 + q^66 - 2*q^68 + 2*q^72 - q^74 - 
        q^88 - q^96 + q^106 + q^128 + q^142 - q^156 - 2*q^162 - 2*q^172 - q^198 
        + q^200 + 2*q^204 + q^208 - q^216 + O(q^222),
    q^9 + q^16 - q^27 - q^33 - q^36 + q^47 - q^48 - q^53 + q^67 - q^71 + q^81 + 
        q^99 + q^108 - q^111 + q^132 - q^141 + q^144 - q^152 + q^159 + q^181 - 
        q^188 - q^201 + q^212 + q^213 + q^221 + O(q^222),
    q^11 + q^16 - q^27 - q^33 + q^37 - q^44 - 2*q^48 - q^53 + q^64 - q^71 + 
        2*q^81 + q^99 + q^104 + q^108 - q^111 + q^132 - 2*q^136 - q^141 + 
        2*q^144 - q^148 + 2*q^159 - q^176 - q^192 - q^201 + q^212 + 2*q^213 + 
        O(q^222),
    q^12 - q^16 - q^26 + q^38 + q^58 - q^78 - q^102 + q^114 - q^132 + q^136 - 
        q^144 + q^174 + q^176 + q^192 - q^212 + O(q^222),
    q^13 + q^22 + 2*q^24 - q^32 + q^39 - 2*q^52 - q^54 - q^57 - q^61 - q^66 + 
        2*q^68 - 2*q^72 + q^74 - q^79 - q^87 + q^88 - q^106 - q^128 + q^131 - 
        q^142 + q^153 + 2*q^162 + q^167 - q^171 + 2*q^172 - q^187 + q^198 - 
        2*q^204 - q^208 + q^209 + q^216 + O(q^222),
    q^17 + q^22 + q^24 + q^39 + q^43 - q^51 - q^52 - q^54 - q^57 - q^61 - q^66 +
        q^68 - q^72 + q^74 - q^79 - q^87 - q^96 - q^106 + q^109 - q^129 - q^142 
        + q^153 + 2*q^162 + q^172 + q^183 - q^187 + q^198 - q^204 + q^216 + 
        O(q^222),
    q^18 - q^22 - q^24 + q^32 + q^52 - 2*q^68 + q^72 - q^74 + q^76 - q^88 + q^94
        - q^96 + q^116 + q^128 + q^134 - q^156 - q^162 - 2*q^172 + q^204 + q^208
        + O(q^222),
    q^19 + q^22 + q^24 + q^29 - q^51 - q^52 - q^54 - q^61 - q^66 + 2*q^68 - 
        2*q^72 + q^74 - q^76 - q^79 + q^88 - q^106 - q^116 - q^117 - q^128 - 
        q^129 - q^142 + q^143 + q^153 + q^156 + 2*q^162 + 2*q^172 + q^183 - 
        q^187 + q^193 + q^198 - q^204 - q^208 + q^216 + O(q^222),
    q^34 - q^36 - q^38 + q^44 + q^48 - q^58 - q^64 + q^78 + q^86 - q^104 - q^114
        + q^136 + q^148 - q^174 - q^188 + q^218 + O(q^222)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
815
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
815
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
162
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
815
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
162
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
815
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
324
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
815
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
815
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
815
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
108
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
815
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
815
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
815
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
815
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
815
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 27*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
815
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 54*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
815
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
81*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
815
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 81*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^14 + q^16 + q^21 - q^24 + q^25 - q^26 - q^36 + q^39 - q^40 - q^46 + 
        q^49 - q^51 + q^60 + q^64 - q^65 - q^69 - q^74 - q^84 - q^91 - q^104 - 
        q^111 + q^115 - 2*q^119 + q^121 + q^131 - q^135 + q^136 - q^140 - q^160 
        + O(q^162),
    q^2 + q^18 - q^27 - q^28 - q^42 - q^45 + q^50 - q^73 - q^78 + q^98 + q^103 +
        q^105 + q^117 - q^120 + q^123 - q^127 + q^147 + q^157 + O(q^162),
    q^3 - q^18 - q^23 + q^27 - q^37 - q^52 + q^68 + q^75 + q^78 - q^80 + q^82 - 
        q^105 + q^112 + q^120 - q^153 + O(q^162),
    q^4 - q^14 - q^21 + q^36 - q^39 + q^51 - q^60 + q^65 + q^69 - q^96 + q^100 +
        q^111 - q^115 + q^119 - q^126 - q^131 - q^136 + O(q^162),
    q^5 - q^13 - q^18 + q^42 + q^45 - q^48 + q^52 - q^63 + q^72 - q^92 + q^102 -
        q^107 - q^117 - q^123 + q^125 + q^142 - q^148 + O(q^162),
    q^6 - q^14 - q^16 - q^21 + q^24 + q^35 + q^36 - q^39 + q^46 + q^49 - q^56 - 
        q^60 - q^64 + q^69 + q^74 - q^84 - q^90 + q^104 + q^111 - q^115 - q^126 
        - q^131 + q^140 - q^146 + q^150 + q^151 + q^160 + O(q^162),
    q^7 - q^13 - q^18 - q^20 + q^28 + q^30 + q^32 - q^52 + q^68 - q^72 + q^78 - 
        q^80 - q^92 - q^102 - q^107 + q^108 + q^112 + q^120 + q^122 - q^123 + 
        q^128 + q^137 - q^142 - q^148 + q^153 + O(q^162),
    q^8 - q^13 - q^18 - q^20 + q^27 + q^28 + q^32 + q^45 - q^48 - q^52 - q^63 + 
        q^73 + q^78 - q^80 - q^92 - q^107 + q^108 + q^112 - q^117 + q^120 - 
        q^123 + q^127 + q^128 + q^130 + q^138 - q^142 - q^148 + O(q^162),
    q^9 - q^14 - q^16 - q^21 + q^24 + q^26 + q^36 - q^39 + q^40 + q^46 - q^54 - 
        q^56 - q^60 - q^64 + q^74 + q^81 - q^90 + q^91 + q^104 - q^115 + q^119 -
        q^131 + q^135 - q^136 + q^140 - q^146 - q^156 + q^160 + O(q^162),
    q^10 - q^14 - q^16 + q^26 + q^36 - q^39 + q^40 + q^51 - q^54 - q^56 - q^60 -
        q^64 + q^71 + q^84 + 2*q^104 - q^115 - q^131 - q^136 + q^144 - q^146 - 
        q^156 + q^160 + q^161 + O(q^162),
    q^12 - q^13 - q^20 + q^23 + q^37 - q^42 - q^63 + q^70 + q^98 - q^102 + q^105
        - q^107 + q^108 - q^117 - q^123 + q^138 - q^142 + q^147 + q^153 + 
        O(q^162),
    q^15 - q^16 - q^21 + q^24 + q^35 + q^36 - 2*q^39 - q^41 + q^46 + q^49 - q^54
        - q^56 - q^60 + q^61 + q^69 + q^74 + q^81 - q^85 - q^90 - q^91 + q^104 +
        q^111 - q^115 - q^131 + q^135 - q^144 - q^146 + q^151 + q^156 + q^160 + 
        q^161 + O(q^162),
    q^17 - q^18 - q^23 + q^28 + q^30 - q^37 - q^52 + q^63 + q^67 + q^68 - q^70 -
        q^72 + q^78 - q^80 + q^82 - q^92 - q^98 - q^105 + q^112 + q^120 + q^122 
        + q^128 - q^138 - q^147 - q^148 + O(q^162),
    q^34 - q^35 - q^36 + q^39 + q^41 - q^46 - q^49 + q^56 + q^60 - q^69 - q^74 +
        q^85 + q^91 - q^104 - q^111 + q^126 + q^134 - q^151 - q^160 + O(q^162)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^9 + (-2*a^7 + 2*a^5 - a^4 - a^3 + 2*a^2 - 2)*q^11 + (-a^6 + a^5 + 
        a^4 - a^3 + a^2 + a - 1)*q^17 + (a^5 - a)*q^19 - a^5*q^25 + (-a^3 - 
        1)*q^27 + (2*a^7 - 2*a^6 + 2*a^4 - 2*a^2 + 2*a)*q^33 + (-2*a^7 - 2*a^4 +
        a^2 - a)*q^41 + (-a^2 - 1)*q^43 - a^3*q^49 + (a^7 + a^6 - a^5 + a^4 + 
        a^3 - a^2 + a + 1)*q^51 + (2*a^7 + a^6 - 2*a^5 + a^4 + 2*a^3 - 2*a^2 + 
        2)*q^59 + (a^7 + a)*q^67 + (a^3 + a^2)*q^73 + (a^7 - a^5 - a^2)*q^81 + 
        (-a^6 - 2*a^3 - 1)*q^83 + (-a^7 + 2*a^6 - a^5 - 2*a^4 + 2*a^3 - 2*a + 
        2)*q^89 + (-a^4 + a)*q^97 + (2*a^6 - a^5 - a^4 + 2*a^3 - 2*a + 2)*q^99 +
        (-2*a^7 + 2*a^6 + a^5 - 2*a^4 + 2*a^3 + 2*a^2 - 2*a + 1)*q^107 + (2*a^7 
        + a^6 - 2*a^5 + 2*a^4 + 2*a^3 - 2*a^2 + a + 2)*q^113 + (-a^7 + a^6 - 
        1)*q^121 + (-2*a^6 - 2*a^3 + 2*a)*q^123 + (-2*a^5 + a^3 - a^2 + 2)*q^131
        + (-a^6 + 2*a^5 - 2*a^3 + a^2 - 2)*q^137 + (-a^6 + a^3)*q^139 + (-a^7 + 
        a^6 + a^5 - a^4 + a^3 + a^2 - a)*q^153 + (-a^7 + a^4)*q^163 + a^4*q^169 
        + (-a^6 + a^2)*q^171 + (-2*a^7 + 2*a^6 + 2*a^5 - 2*a^4 + 2*a^2 - 
        2*a)*q^177 + (a^7 - 2*a^6 + 2*a^4 - a^3 + 2*a)*q^179 + (-a^3 + 
        a^2)*q^187 + (a^6 - a)*q^193 + (2*a^7 - 2*a^6 - a^5 + 3*a^4 - 2*a^3 - 
        2*a^2 + 3*a - 1)*q^209 + (-a^6 - a^5)*q^211 + a^6*q^225 + (2*a^7 - 2*a^6
        + a^5 + 2*a^4 - 2*a^3 - a^2 + 2*a - 2)*q^227 + (a^5 - 1)*q^233 + (a^5 - 
        a^4)*q^241 + (-a^7 + a^6 - a^4 - a)*q^243 + (-2*a^5 - 2*a^2)*q^249 + 
        (a^7 - a^5 - 2*a^2)*q^251 + (2*a^7 + a^4 - a^2)*q^257 + O(q^266),
    q^2 + 1/2*(-a^7 + a^2)*q^6 + a^6*q^8 + 1/2*(-a^5 + a^2)*q^12 + 1/2*(-a^6 + 
        a^4)*q^18 + 1/2*(a^5 - 1)*q^24 - a^4*q^32 + 1/2*(-a^7 + a)*q^36 + (a^5 -
        a)*q^38 + (a^7 - a^6)*q^44 + 1/2*(a^3 - 1)*q^48 - a^5*q^50 + 1/2*(a^6 - 
        a^5)*q^54 + 1/2*(-a^6 + a^5 + a^3 - a^2)*q^66 - a^2*q^68 + 1/2*(a^4 - 
        a^2)*q^72 + (-a^2 - 1)*q^86 + 1/2*(-a^6 - a^3)*q^96 - a^3*q^98 + 
        1/2*(a^6 + a)*q^102 + 1/2*(a + 1)*q^108 + 1/2*(a^7 + a^4 - a^3 - 
        1)*q^114 + a^2*q^128 + 1/2*(a^6 - a^5 - a + 1)*q^132 + (a^7 + a)*q^134 +
        1/2*(a^7 + a^5)*q^144 + (a^3 + a^2)*q^146 + 1/2*(-a^7 - a^4)*q^150 + 
        (-a^7 - a^3)*q^152 + 1/2*(-a^4 - 1)*q^162 + (a^5 + a^4)*q^164 + (-a^5 + 
        a^4)*q^176 + 1/2*(-a^6 - a)*q^192 + (-a^4 + a)*q^194 + 1/2*(a^7 + a^2 - 
        a + 1)*q^198 + a^3*q^200 + 1/2*(-a^4 - a)*q^204 + 1/2*(-a^4 + a^3)*q^216
        + 1/2*(a^7 + a^6 - a^3 + a^2)*q^228 + (-a^7 - a)*q^236 + (-a^7 + a^6 - 
        1)*q^242 + 1/2*(-a^4 - a^3 + a + 1)*q^246 + 1/2*(a^7 - a^4 - a^2 - 
        a)*q^258 + 1/2*(a^4 - a^3 - a + 1)*q^264 + O(q^266),
    q^3 + (-a^7 + a^2)*q^9 + (-2*a^6 + 2*a^5 - 2*a^3 + 2*a - 2)*q^11 + (a^7 - 
        a^6 - a^5 + a^4 - a^3 - a^2 + a - 1)*q^17 + (-a^6 + a^4 + a)*q^27 + 
        (2*a^7 - 2*a^5 + a^4 + a^3 - 2*a^2 + 2)*q^33 + (2*a^5 + 2*a^2 - 2)*q^41 
        + (a^6 - a^5 - a^4 + a^3 - a^2 - a + 1)*q^51 + (a^5 - a)*q^57 + (2*a^6 -
        2*a^5 - 2*a^4 + 2*a^3 - 2*a + 2)*q^59 - a^5*q^75 + (a^6 - a^5 + a^3 + 
        1)*q^81 + (2*a^4 + 2*a)*q^83 + (-2*a^7 + 2*a^6 + 2*a^5 - 2*a^4 + 2*a^2 -
        2*a)*q^89 + (-2*a^7 + a^6 + a^5 - 2*a^4 + a^3 + a^2 - 2*a)*q^99 + 
        (-2*a^7 + 2*a^5 - 2*a^4 - 2*a^3 + 2*a^2 - 2*a - 2)*q^107 + (2*a^6 - 
        2*a^5 - 2*a^4 + 2*a^3 - 2*a^2 - 2*a + 2)*q^113 + (2*a^7 + 2*a^4 - a^2 + 
        a)*q^123 + (-a^2 - 1)*q^129 + (2*a^6 + 2*a^3 - 2*a)*q^131 + (-2*a^6 + 
        2*a^4 - 2*a^3 + 2*a)*q^137 - a^3*q^147 + (-a^7 + a^5 - a^4 - a^3 + a^2 -
        1)*q^153 + (a^7 + a^4 - a^3 - 1)*q^171 + (-2*a^7 - a^6 + 2*a^5 - a^4 - 
        2*a^3 + 2*a^2 - 2)*q^177 + (2*a^7 - 2*a^5 + 2*a^4 - 2*a^2)*q^179 + (a^7 
        + a)*q^201 + (2*a^7 - 2*a^5 + 2*a^4 + 2*a^3 - 4*a^2 + 2*a + 2)*q^209 + 
        (a^3 + a^2)*q^219 + (-a^7 - a^4)*q^225 + (2*a^7 - 2*a^6 - 2*a^5 + 2*a^4 
        - 2*a^2 + 2*a + 2)*q^227 - 2*a^6*q^233 + (-a^7 + a^5 - a^4 + a^2 - 
        1)*q^243 + (a^6 + 2*a^3 + 1)*q^249 + (2*a^3 + 2)*q^251 + (-2*a^5 + 
        2)*q^257 + O(q^266),
    q^4 + 1/2*(a^7 - a^4)*q^6 + 1/2*(-a^7 + a^2)*q^12 + a^6*q^16 + 1/2*(-a^3 - 
        a)*q^18 + (a - 1)*q^22 + 1/2*(-a^5 + a^2)*q^24 + a^4*q^34 + 1/2*(-a^6 + 
        a^4)*q^36 + 1/2*(a^5 - 1)*q^48 + 1/2*(-a^3 - a^2)*q^54 - a^4*q^64 + 
        1/2*(a^7 + a^3 - a^2 + 1)*q^66 + 1/2*(-a^7 + a)*q^72 + (a^5 - a)*q^76 + 
        (-a^7 - a^6)*q^82 + (a^7 - a^6)*q^88 + 1/2*(a^3 - 1)*q^96 - a^5*q^100 + 
        1/2*(a^6 + a^3)*q^102 + 1/2*(a^6 - a^5)*q^108 + 1/2*(a^5 - a^4 + a + 
        1)*q^114 + (a^3 - a)*q^118 + 1/2*(-a^6 + a^5 + a^3 - a^2)*q^132 - 
        a^2*q^136 + 1/2*(a^4 - a^2)*q^144 + 1/2*(a^4 - a)*q^150 + 1/2*(-a^5 - 
        a)*q^162 + (-a^5 - a^3)*q^166 + (-a^2 - 1)*q^172 + (-a^4 + a^2)*q^178 + 
        1/2*(-a^6 - a^3)*q^192 - a^3*q^196 + 1/2*(-a^7 + a^6 + a^5 - a^4)*q^198 
        + 1/2*(a^6 + a)*q^204 + (a^5 + a^2)*q^214 + 1/2*(a + 1)*q^216 + (a^6 + 
        a^3)*q^226 + 1/2*(a^7 + a^4 - a^3 - 1)*q^228 + 1/2*(-a^6 - a^5 + a + 
        1)*q^246 + a^2*q^256 + 1/2*(-a^7 + a^6 + a^4 + a)*q^258 + (-a^7 + 
        1)*q^262 + 1/2*(a^6 - a^5 - a + 1)*q^264 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^3 + a^2)*q^5 + a*q^9 + (-a^3 - a)*q^13 - a^2*q^17 + (-a^2 - a - 
        1)*q^25 + (a - 1)*q^29 + (-a^3 + a^2)*q^37 + (-a^3 - 1)*q^41 + (a^3 - 
        1)*q^45 + a^3*q^49 + (-a^2 + 1)*q^53 + (-a^2 - a)*q^61 + (-a^3 + a^2 + a
        + 1)*q^65 + (-a + 1)*q^73 + a^2*q^81 + (a + 1)*q^85 + (a^3 + a)*q^89 + 
        (a^3 + a^2)*q^97 + (a^3 - a)*q^101 + (a^2 + a)*q^109 + (a^2 - a)*q^113 +
        (-a^2 + 1)*q^117 - a^3*q^121 + (-a^3 - a^2 + a + 1)*q^125 + (a^3 - 
        a)*q^137 + (-a^2 - 1)*q^145 - a^3*q^153 - q^169 + (-a - 1)*q^173 + (-a^2
        + a)*q^181 + (a^2 - 1)*q^185 + (a^3 - 1)*q^193 + (-a^3 - 1)*q^197 + 
        (-a^3 + a)*q^205 + (a^3 - a)*q^221 + (-a^3 - a^2 - a)*q^225 + (-a^3 - 
        a^2)*q^233 + (a + 1)*q^241 + (-a^2 - a)*q^245 + (a^2 - a)*q^261 + (a^3 +
        a^2 + a + 1)*q^265 + O(q^266),
    q^3 + (a^3 + a^2)*q^15 + a*q^27 + (-a^3 - a)*q^39 - a^2*q^51 + (-a^2 - a - 
        1)*q^75 + (a - 1)*q^87 + (-a^3 + a^2)*q^111 + (-a^3 - 1)*q^123 + (a^3 - 
        1)*q^135 + a^3*q^147 + (-a^2 + 1)*q^159 + (-a^2 - a)*q^183 + (-a^3 + a^2
        + a + 1)*q^195 + (-a + 1)*q^219 + a^2*q^243 + (a + 1)*q^255 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^9 + (a^3 - 1)*q^11 - a^3*q^17 - a*q^25 + (-a^3 - 1)*q^27 + (a^2 + 
        a)*q^41 + (a^2 + 1)*q^43 + a^3*q^49 + (-a^2 - 1)*q^59 + (-a^3 + a)*q^67 
        + (a^3 + a^2)*q^73 + (a^3 - a^2 + a)*q^81 + (-a^2 + 1)*q^83 + (-a^3 - 
        a)*q^89 + (a - 1)*q^97 + (a + 1)*q^99 + (-a + 1)*q^107 + (-a^2 + 
        a)*q^113 + (-a^3 - a^2 + 1)*q^121 + (a^3 + a^2)*q^131 + (a^3 - 
        a^2)*q^139 - q^153 + (-a^3 - 1)*q^163 - q^169 + (a^3 + a^2)*q^187 + 
        (-a^2 + a)*q^193 + (-a^2 - a)*q^211 + a^2*q^225 + (a^2 - a)*q^227 + (-a 
        + 1)*q^233 + (-a - 1)*q^241 + (a^3 + a^2 - a + 1)*q^243 + (-a^3 - 
        a)*q^251 + (a^2 - 1)*q^257 + O(q^266),
    q^2 + a^3*q^4 - a^2*q^8 + a*q^16 - a*q^18 + (a^3 - 1)*q^22 - q^32 - a^3*q^34
        + q^36 + (-a^3 - a^2)*q^44 - a*q^50 + (-a^3 - 1)*q^54 - a^3*q^64 + 
        a^2*q^68 + a^3*q^72 + (a^2 + a)*q^82 + (a^2 + 1)*q^86 + (a^2 + a)*q^88 +
        a^3*q^98 + q^100 + (-a^3 + a^2)*q^108 + (-a^2 - 1)*q^118 + a^2*q^128 + 
        (-a^3 + a)*q^134 - a*q^136 - a^2*q^144 + (a^3 + a^2)*q^146 + (a^3 - a^2 
        + a)*q^162 + (-a - 1)*q^164 + (-a^2 + 1)*q^166 + (a^3 - a)*q^172 + (-a -
        1)*q^176 + (-a^3 - a)*q^178 + (a - 1)*q^194 - a^2*q^196 + (a + 1)*q^198 
        + a^3*q^200 + (-a + 1)*q^214 + (a^2 - a)*q^216 + (-a^2 + a)*q^226 + 
        (-a^3 + a)*q^236 + (-a^3 - a^2 + 1)*q^242 - a*q^256 + (a^3 + a^2)*q^262 
        + O(q^266),
    q^3 + (-a^3 + a^2)*q^9 + (-a^2 + a - 1)*q^27 + (a^3 - 1)*q^33 - a^3*q^51 - 
        a*q^75 + (a^3 - a^2 - a + 1)*q^81 + (a^3 - a)*q^99 + (a^2 + a)*q^123 + 
        (a^2 + 1)*q^129 + a^3*q^147 + (-a^2 + a)*q^153 + (-a^2 - 1)*q^177 + 
        (-a^3 + a)*q^201 + (a^3 + a^2)*q^219 + (-a^3 - 1)*q^225 + (-a^3 + a^2 - 
        a)*q^243 + (-a^2 + 1)*q^249 + O(q^266),
    q^6 + a^3*q^12 + (-a^3 + a^2)*q^18 - a^2*q^24 + (a^2 - a)*q^36 + a*q^48 + 
        (-a^2 + a - 1)*q^54 + (a^3 - 1)*q^66 + (-a + 1)*q^72 - q^96 - a^3*q^102 
        + (-a^3 + a - 1)*q^108 + (-a^3 - a^2)*q^132 + (a^3 + 1)*q^144 - a*q^150 
        + (a^3 - a^2 - a + 1)*q^162 - a^3*q^192 + (a^3 - a)*q^198 + a^2*q^204 + 
        (-a^3 + a^2 - 1)*q^216 + (a^2 + a)*q^246 + (a^2 + 1)*q^258 + (a^2 + 
        a)*q^264 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a - 1)*q^5 + a*q^9 - q^17 + a*q^25 + (a + 1)*q^29 + (-a - 1)*q^37 + 
        (-a + 1)*q^41 + (-a + 1)*q^45 - a*q^49 + (a - 1)*q^61 + (a + 1)*q^73 - 
        q^81 + (a + 1)*q^85 + (-a - 1)*q^97 + (a - 1)*q^109 + (a - 1)*q^113 - 
        a*q^121 - 2*a*q^145 + 2*q^149 - a*q^153 + 2*q^157 - q^169 + (a + 
        1)*q^173 + (a - 1)*q^181 + 2*a*q^185 + (-a + 1)*q^193 + (-a + 1)*q^197 -
        2*q^205 - q^225 - 2*a*q^229 + (-a - 1)*q^233 + (a + 1)*q^241 + (a - 
        1)*q^245 + 2*a*q^257 + (a - 1)*q^261 + O(q^266),
    q^2 + (-a - 1)*q^10 + a*q^18 - q^34 + a*q^50 + (a + 1)*q^58 + (-a - 1)*q^74 
        + (-a + 1)*q^82 + (-a + 1)*q^90 - a*q^98 + (a - 1)*q^122 + (a + 1)*q^146
        - q^162 + (a + 1)*q^170 + (-a - 1)*q^194 + (a - 1)*q^218 + (a - 1)*q^226
        - a*q^242 + O(q^266),
    q^3 + (-a - 1)*q^15 + a*q^27 - q^51 + a*q^75 + (a + 1)*q^87 + (-a - 1)*q^111
        + (-a + 1)*q^123 + (-a + 1)*q^135 - a*q^147 + (a - 1)*q^183 + (a + 
        1)*q^219 - q^243 + (a + 1)*q^255 + O(q^266),
    q^4 + a*q^8 - q^16 + (-a - 1)*q^20 - a*q^32 + a*q^36 + (-a + 1)*q^40 + q^64 
        - q^68 - q^72 + (a + 1)*q^80 + a*q^100 + (a + 1)*q^116 + a*q^128 - 
        a*q^136 - a*q^144 + (-a - 1)*q^148 + (a - 1)*q^160 + (-a + 1)*q^164 + 
        (-a + 1)*q^180 - a*q^196 - q^200 + (a - 1)*q^232 + (a - 1)*q^244 - q^256
        + O(q^266),
    q^6 + (-a - 1)*q^30 + a*q^54 - q^102 + a*q^150 + (a + 1)*q^174 + (-a - 
        1)*q^222 + (-a + 1)*q^246 + O(q^266),
    q^12 + a*q^24 - q^48 + (-a - 1)*q^60 - a*q^96 + a*q^108 + (-a + 1)*q^120 + 
        q^192 - q^204 - q^216 + (a + 1)*q^240 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^9 + (-a + 1)*q^11 - a*q^17 + 2*a*q^19 + a*q^25 + (a - 1)*q^27 + (a -
        1)*q^41 - a*q^49 + (-a - 1)*q^73 + q^81 + (a + 1)*q^97 + (-a - 1)*q^99 +
        (a + 1)*q^107 + (a - 1)*q^113 - a*q^121 + (-a - 1)*q^131 - 2*q^137 + (-a
        - 1)*q^139 - q^153 + (-a + 1)*q^163 + q^169 + 2*q^171 - 2*a*q^179 + (-a 
        - 1)*q^187 + (a - 1)*q^193 + (2*a + 2)*q^209 + (a - 1)*q^211 + q^225 + 
        (a - 1)*q^227 + (a + 1)*q^233 + (a + 1)*q^241 + O(q^266),
    q^2 - a*q^4 - q^8 + a*q^16 - a*q^18 + (-a + 1)*q^22 + q^32 - a*q^34 - q^36 +
        2*a*q^38 + (-a - 1)*q^44 + a*q^50 + (a - 1)*q^54 - a*q^64 - q^68 + 
        a*q^72 + 2*q^76 + (a - 1)*q^82 + (a - 1)*q^88 - a*q^98 + q^100 + (a + 
        1)*q^108 - q^128 + a*q^136 + q^144 + (-a - 1)*q^146 - 2*a*q^152 + q^162 
        + (a + 1)*q^164 + (a + 1)*q^176 + (a + 1)*q^194 - q^196 + (-a - 1)*q^198
        - a*q^200 + (a + 1)*q^214 + (-a + 1)*q^216 + (a - 1)*q^226 - a*q^242 + 
        a*q^256 + (-a - 1)*q^262 + O(q^266),
    q^3 + (-a - 1)*q^9 + a*q^27 + (-a + 1)*q^33 - a*q^51 + 2*a*q^57 + a*q^75 - 
        2*q^99 + (a - 1)*q^123 - a*q^147 + (a - 1)*q^153 + (-2*a + 2)*q^171 + 
        (-a - 1)*q^219 + (-a + 1)*q^225 + q^243 + O(q^266),
    q^6 - a*q^12 + (-a - 1)*q^18 - q^24 + (a - 1)*q^36 + a*q^48 + a*q^54 + (-a +
        1)*q^66 + (a + 1)*q^72 + q^96 - a*q^102 + q^108 + 2*a*q^114 + (-a - 
        1)*q^132 + (-a + 1)*q^144 + a*q^150 - a*q^192 - 2*q^198 - q^204 - 
        a*q^216 + 2*q^228 + (a - 1)*q^246 + (a - 1)*q^264 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^7 - a*q^9 - q^13 + a*q^15 - a*q^19 + q^33 + (a + 1)*q^37 + 
        a*q^43 - a*q^49 + q^51 - q^55 + (a - 1)*q^61 + (-a - 1)*q^63 - q^69 + (a
        - 1)*q^79 - q^81 - q^85 + (a - 1)*q^91 + q^103 + (a + 1)*q^105 + q^115 +
        a*q^117 - q^123 + a*q^127 + (-a - 1)*q^133 + q^135 + (-a - 1)*q^139 + 
        q^157 - q^171 + (a - 1)*q^177 + (-a + 1)*q^181 + a*q^187 - a*q^195 + 
        q^205 - a*q^223 + (-a + 1)*q^231 + (-a - 1)*q^241 + a*q^247 - a*q^253 + 
        2*q^259 + O(q^266),
    q^3 - q^5 + a*q^11 + a*q^17 + (-a + 1)*q^21 - a*q^23 - a*q^27 + (a - 1)*q^35
        - q^39 - a*q^41 + a*q^45 - a*q^57 + (-a - 1)*q^59 + q^65 + (a + 1)*q^77 
        + (a - 1)*q^89 + a*q^95 + q^99 + q^107 + (a + 1)*q^111 - a*q^113 + (a + 
        1)*q^119 - a*q^125 + a*q^129 - q^131 + (a - 1)*q^137 - a*q^143 - a*q^147
        + (a - 1)*q^149 + q^153 + (-a - 1)*q^161 - q^165 + q^167 + q^173 + (a - 
        1)*q^183 + (-a - 1)*q^185 + (-a - 1)*q^189 + (-a + 1)*q^191 - a*q^197 - 
        q^207 + q^209 - a*q^215 - a*q^221 - a*q^227 + q^233 + (a - 1)*q^237 - 
        q^243 + a*q^245 + (a - 1)*q^251 - q^255 + (a + 1)*q^257 + (a + 1)*q^263 
        + O(q^266)
]
;
Bo:=
[
    q + (a - 1)*q^7 - a*q^9 - q^13 - a*q^15 + a*q^19 + q^33 + (a + 1)*q^37 - 
        a*q^43 - a*q^49 - q^51 + q^55 + (a - 1)*q^61 + (a + 1)*q^63 - q^69 + (-a
        + 1)*q^79 - q^81 - q^85 + (-a + 1)*q^91 - q^103 + (a + 1)*q^105 - q^115 
        + a*q^117 + q^123 - a*q^127 + (-a - 1)*q^133 - q^135 + (a + 1)*q^139 + 
        q^157 + q^171 + (a - 1)*q^177 + (-a + 1)*q^181 - a*q^187 + a*q^195 + 
        q^205 + a*q^223 + (a - 1)*q^231 + (-a - 1)*q^241 - a*q^247 - a*q^253 - 
        2*q^259 + O(q^266),
    q^2 + (a - 1)*q^14 - a*q^18 - q^26 - a*q^30 + a*q^38 + q^66 + (a + 1)*q^74 -
        a*q^86 - a*q^98 - q^102 + q^110 + (a - 1)*q^122 + (a + 1)*q^126 - q^138 
        + (-a + 1)*q^158 - q^162 - q^170 + (-a + 1)*q^182 - q^206 + (a + 
        1)*q^210 - q^230 + a*q^234 + q^246 - a*q^254 + O(q^266),
    q^3 + q^5 + a*q^11 - a*q^17 + (a - 1)*q^21 - a*q^23 - a*q^27 + (a - 1)*q^35 
        - q^39 + a*q^41 - a*q^45 + a*q^57 + (-a - 1)*q^59 - q^65 + (-a - 1)*q^77
        + (-a + 1)*q^89 + a*q^95 + q^99 + q^107 + (a + 1)*q^111 + a*q^113 + (a +
        1)*q^119 + a*q^125 - a*q^129 - q^131 + (-a + 1)*q^137 - a*q^143 - 
        a*q^147 + (-a + 1)*q^149 - q^153 + (a + 1)*q^161 + q^165 + q^167 - q^173
        + (a - 1)*q^183 + (a + 1)*q^185 + (a + 1)*q^189 + (-a + 1)*q^191 + 
        a*q^197 - q^207 - q^209 - a*q^215 + a*q^221 - a*q^227 - q^233 + (-a + 
        1)*q^237 - q^243 - a*q^245 + (a - 1)*q^251 - q^255 + (-a - 1)*q^257 + (a
        + 1)*q^263 + O(q^266),
    q^6 + q^10 + a*q^22 - a*q^34 + (a - 1)*q^42 - a*q^46 - a*q^54 + (a - 1)*q^70
        - q^78 + a*q^82 - a*q^90 + a*q^114 + (-a - 1)*q^118 - q^130 + (-a - 
        1)*q^154 + (-a + 1)*q^178 + a*q^190 + q^198 + q^214 + (a + 1)*q^222 + 
        a*q^226 + (a + 1)*q^238 + a*q^250 - a*q^258 - q^262 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^17 - q^21 + q^25 - q^33 + q^49 - 2*q^53 + q^69 + 2*q^77 - q^81 + q^93 
        + q^121 + 2*q^149 - 2*q^157 - 2*q^161 - q^169 + q^189 - q^213 - 2*q^217 
        + q^237 - 2*q^253 + O(q^266),
    q^2 - q^18 - 2*q^26 + q^34 + q^50 - q^98 + 2*q^106 + q^162 - 2*q^178 - 
        2*q^202 + 2*q^234 - q^242 + O(q^266),
    q^3 - q^39 - q^63 + q^75 - q^99 + q^207 + q^231 + O(q^266),
    q^4 - q^8 + q^16 - q^32 - q^36 - 2*q^52 + q^64 + q^68 + q^72 + q^100 + 
        2*q^104 - q^128 - q^136 - q^144 - q^196 - q^200 - 2*q^208 + 2*q^212 + 
        q^256 + O(q^266),
    q^6 - q^54 - 2*q^78 + q^102 + q^150 + O(q^266),
    q^7 + q^11 - q^23 - q^31 - q^39 + q^51 + q^71 - q^79 - q^107 - q^119 - q^131
        + q^139 - q^147 + 2*q^159 + q^163 + q^167 + q^175 - q^187 - q^199 - 
        q^211 + q^227 - q^231 + q^243 + O(q^266),
    q^9 - q^21 - q^33 + q^69 + q^93 - q^153 - q^189 - q^213 + q^225 + q^237 + 
        O(q^266),
    q^12 - q^24 + q^48 - q^96 - q^108 - 2*q^156 + q^192 + q^204 + q^216 + 
        O(q^266),
    q^13 - q^17 + q^49 - 2*q^53 + q^77 - q^81 + q^89 + q^101 - q^117 + q^121 + 
        q^137 + q^153 - 2*q^157 - q^161 - 2*q^169 + q^189 - q^217 + q^221 + 
        q^229 - q^253 + q^257 + O(q^266),
    q^27 + q^39 - q^51 - q^63 - q^99 + q^147 - 2*q^159 + q^207 + q^231 - q^243 +
        O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^17 - 2*q^19 - q^25 + 2*q^43 - q^49 + 2*q^59 - 2*q^67 + q^81 + 
        2*q^83 - 2*q^89 + q^121 + 2*q^137 - q^153 + q^169 - 2*q^171 - 2*q^179 - 
        q^225 - 2*q^251 + 2*q^257 + O(q^266),
    q^2 - q^4 + q^8 - q^16 + q^18 + q^32 - q^34 - q^36 - 2*q^38 - q^50 - q^64 + 
        q^68 + q^72 + 2*q^76 + 2*q^86 - q^98 + q^100 + 2*q^118 + q^128 - 2*q^134
        - q^136 - q^144 - 2*q^152 + q^162 + 2*q^166 - 2*q^172 - 2*q^178 + q^196 
        - q^200 - 2*q^236 + q^242 - q^256 + O(q^266),
    q^3 + q^27 - q^51 - 2*q^57 - q^75 + 2*q^129 - q^147 + 2*q^177 - 2*q^201 + 
        q^243 + 2*q^249 + O(q^266),
    q^6 - q^12 + q^24 - q^48 + q^54 + q^96 - q^102 - q^108 - 2*q^114 - q^150 - 
        q^192 + q^204 + q^216 + 2*q^228 + 2*q^258 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 - q^13 + q^15 + q^19 - q^33 + q^43 + q^49 - q^51 - q^55 - 2*q^67 - 
        q^69 + q^81 - q^85 - 2*q^87 + q^103 - q^115 - q^117 + q^123 + q^127 + 
        q^135 - 2*q^145 - 2*q^151 - q^157 + q^171 + q^187 - q^195 + q^205 + 
        2*q^213 + q^223 + 2*q^229 - q^247 + q^253 + O(q^266),
    q^3 + q^5 - q^11 - q^17 - q^23 + q^27 - 2*q^29 - q^39 + q^41 + q^45 + q^57 -
        q^65 + 2*q^71 + q^95 - q^99 - q^107 + q^113 - q^125 + q^129 - q^131 + 
        q^143 + q^147 - q^153 - q^165 - q^167 + q^173 + q^197 - 2*q^201 - q^207 
        - q^209 + q^215 + q^221 - q^227 + q^233 + q^243 + q^245 - q^255 - 
        2*q^261 + O(q^266)
]
;
Bo:=
[
    q + q^9 - q^13 - q^15 - q^19 - q^33 - q^43 + q^49 + q^51 + q^55 + 2*q^67 - 
        q^69 + q^81 - q^85 + 2*q^87 - q^103 + q^115 - q^117 - q^123 - q^127 - 
        q^135 - 2*q^145 + 2*q^151 - q^157 - q^171 - q^187 + q^195 + q^205 + 
        2*q^213 - q^223 + 2*q^229 + q^247 + q^253 + O(q^266),
    q^2 + q^18 - q^26 - q^30 - q^38 - q^66 - q^86 + q^98 + q^102 + q^110 + 
        2*q^134 - q^138 + q^162 - q^170 + 2*q^174 - q^206 + q^230 - q^234 - 
        q^246 - q^254 + O(q^266),
    q^3 - q^5 - q^11 + q^17 - q^23 + q^27 + 2*q^29 - q^39 - q^41 - q^45 - q^57 +
        q^65 + 2*q^71 + q^95 - q^99 - q^107 - q^113 + q^125 - q^129 - q^131 + 
        q^143 + q^147 + q^153 + q^165 - q^167 - q^173 - q^197 + 2*q^201 - q^207 
        + q^209 + q^215 - q^221 - q^227 - q^233 + q^243 - q^245 - q^255 + 
        2*q^261 + O(q^266),
    q^4 + q^36 - q^52 - q^60 - q^76 - q^132 - q^172 + q^196 + q^204 + q^220 + 
        O(q^266),
    q^6 - q^10 - q^22 + q^34 - q^46 + q^54 + 2*q^58 - q^78 - q^82 - q^90 - q^114
        + q^130 + 2*q^142 + q^190 - q^198 - q^214 - q^226 + q^250 - q^258 - 
        q^262 + O(q^266),
    q^12 - q^20 - q^44 + q^68 - q^92 + q^108 + 2*q^116 - q^156 - q^164 - q^180 -
        q^228 + q^260 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
816
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^11 + a^9 + a^8 - a^6 + a^4 + a^3 - a - 1)*q^4 + (a^11 + a^10 - a^9 -
        a^8 + a^6 + a^5 - a^4 - a^3 + a + 1)*q^5 + (a^6 - a)*q^7 + a^2*q^9 + 
        (-a^11 - a^10 + a^8 + a^7 - a^6 - 2*a^5 + a^3 + a^2 - 1)*q^11 - a^3*q^16
        + (a^11 + a^9 - a^4 - a^2)*q^17 + (a^11 - a^9 - a^8 + a^6 + a^5 - a^4 - 
        a^3 + a + 1)*q^19 + (a^10 - a)*q^20 + (a^6 - a^5)*q^23 + (a^11 - a^7 + 
        a^5 - a^2 + 1)*q^25 + (-a^10 + a^8 + a^7 - a^6 - a^5 - a^4 + a^3 + a^2 -
        1)*q^28 + (a^10 + a^9 - a^8 - a^7 + a^5 + a^4 - a^3 - 2*a^2 + 1)*q^35 + 
        (a^7 - 1)*q^36 + q^43 + (-a^10 + a^4 + a^3)*q^44 + (-a^11 + a^9 + a^8 - 
        a^6 + a^4 + a^3 - a)*q^45 + (-a^9 - a^8 + a)*q^47 + (-a^11 + a^9 + a^8 -
        a^7 - a^6 + a^4 + a^3 + a^2 - a - 1)*q^49 + (-a^11 - a^8 - a^3 + a^2 + 
        a)*q^55 + (-a^9 - a^7)*q^61 + (a^8 - a^3)*q^63 + (-a^8 + a)*q^64 + (-a^9
        - a^7)*q^68 + (a^8 + a^7 - 1)*q^73 + a^10*q^76 + (-a^9 - a^8 + a^7 + 
        2*a^6 + a^5 - a^4 - a^3 + a)*q^77 + (-a^11 - a^10 + a^8 + a^7 - a^6 - 
        a^5 + a^3 + a^2 - a - 1)*q^80 + a^4*q^81 + (-a^9 + a^7 - 1)*q^83 + (a^9 
        - a^5 - a^2 - 1)*q^85 + (a^11 - a^10 - a^4 + a^3)*q^92 + (-a^10 + a^8 + 
        a^3)*q^95 + (-a^8 - a^7 + a)*q^99 + (a^10 - a^7 + a^5 - a^3 - a^2 + 
        1)*q^100 + (a^10 - a^8 - a^7 + a^5 - a^3 - a^2 + 1)*q^101 + (-a^9 + 
        a^4)*q^112 + (a^9 - a^8 + a^4 - a^3 - a^2 + a)*q^115 + (a^11 - a^10 - 
        a^9 - a^8 + a^6 + a^5 - a^4 - a^3 + 1)*q^119 + (a^11 + a^10 - a^5 - 
        a^4)*q^121 + (a^11 - a^9 - a^8 + a^6 - a^4 + a)*q^125 - a^6*q^131 + 
        (a^11 + a^10 - a^8 - a^7 + a^5 + a^4 - a^3 - a^2 + 1)*q^133 + (-a^11 - 
        a^10 + a^8 + a^7 - a^6 - a^5 + a^3 + 2*a^2 - 1)*q^137 + (a^9 + a^4 - 
        a^2)*q^139 + (-a^11 + a^9 - a^7)*q^140 + O(q^144)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^5*q^4 + (-a^5 - a^3)*q^5 + (a^5 - a^4 + a^3 - a^2 - 1)*q^7 + a^2*q^9 +
        (-a^4 + a^3 - a^2 + a - 1)*q^11 - a^3*q^16 + (a^4 + a^2)*q^17 - a^5*q^19
        + (-a^3 - a)*q^20 + (-a^4 + a^3 - a^2 + a - 1)*q^23 + (a^5 - a^4 - a^2 -
        1)*q^25 + (a^5 + a^3 - a^2 + a - 1)*q^28 + (a^5 + a^4 + a^3 + a - 
        1)*q^35 + q^36 + q^43 + (a^4 - a^3)*q^44 + (-a^5 + 1)*q^45 + (a^2 - 
        a)*q^47 + (-a^5 + a^2 + 1)*q^49 + (a^4 - a^3 + a^2 - a)*q^55 + (a^2 + 
        1)*q^61 + (-a^3 - a)*q^63 - a*q^64 + (a^2 + 1)*q^68 + (-a + 1)*q^73 - 
        a^3*q^76 + (a^3 - a^2 + a)*q^77 + (a^5 - a^4 + a^3 - a^2 - 1)*q^80 + 
        a^4*q^81 + (a^2 + 1)*q^83 + (-a^5 + a^2 + 2)*q^85 + (a^4 - a^3)*q^92 + 
        (-a^3 - a)*q^95 + (-a + 1)*q^99 + (a^5 + a^3 - a^2 - 1)*q^100 + (a^5 + 
        a^3 - a^2 + a - 1)*q^101 + (a^4 + a^2)*q^112 + (a^4 - a^3 + a^2 - 
        a)*q^115 + (-a^5 - 2*a^3 - a)*q^119 + (-a^5 + a^4 - a^3)*q^121 + (a^5 + 
        a^3 - 1)*q^125 + (2*a^5 - 2*a^4 + 2*a^3 - 2*a^2 + 2*a - 2)*q^131 + (a^5 
        + a^3 - a^2 + a - 1)*q^133 + (a^5 - a^4 + a^3 + a - 1)*q^137 + (a^4 + 
        a^2)*q^139 + (a^4 + 2*a^2 + 1)*q^140 + O(q^144)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 - 2*a*q^5 + (-a + 1)*q^7 + (a - 1)*q^9 - q^11 + q^16 + (-a + 1)*q^17
        - a*q^19 - 2*a*q^20 + a*q^23 + (3*a - 3)*q^25 + (-a + 1)*q^28 - 2*q^35 +
        (a - 1)*q^36 + q^43 - q^44 + 2*q^45 + 2*q^47 + 2*a*q^55 + (-a + 1)*q^61 
        + a*q^63 + q^64 + (-a + 1)*q^68 + (2*a - 2)*q^73 - a*q^76 + (a - 1)*q^77
        - 2*a*q^80 - a*q^81 + a*q^83 - 2*q^85 + a*q^92 + (2*a - 2)*q^95 + (-a + 
        1)*q^99 + (3*a - 3)*q^100 + (2*a - 2)*q^101 + (-a + 1)*q^112 + (-2*a + 
        2)*q^115 - a*q^119 + 4*q^125 - q^131 - q^133 - q^137 - 2*a*q^139 - 
        2*q^140 + O(q^144)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
817
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
818
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
408
);
qprec:=
203
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
818
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
136
);
qprec:=
203
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
818
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
17*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
203
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
818
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
51*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
203
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 - q^7 + q^16 + q^25 + q^28 - 2*q^37 - 2*q^43 + q^49 - q^64 + 2*q^67 
        + 2*q^79 - q^100 - 2*q^109 - q^112 - q^121 + 2*q^127 + 2*q^148 - 2*q^151
        + 2*q^163 + q^169 + 2*q^172 - q^175 - 2*q^193 - q^196 + O(q^210),
    q^13 - q^52 - q^91 + q^208 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^3 - a)*q^4 + (a^2 - 1)*q^7 + (-a^3 + a)*q^13 + (-a^2 + 1)*q^16 + (a^2
        + a)*q^19 - a*q^25 - a^3*q^28 + (-a^2 + a + 1)*q^31 + (-a^3 + a^2)*q^37 
        + (-a^2 - 1)*q^43 - a^2*q^49 + (a^2 - 1)*q^52 - a^3*q^61 + a^3*q^64 + 
        (a^3 - 1)*q^67 + (a^3 - a + 1)*q^73 + (-a - 1)*q^76 + a^3*q^91 + (a^3 - 
        a^2)*q^97 + q^100 + a^2*q^103 + (-a^3 - a^2)*q^109 + a^2*q^112 + 
        a^3*q^121 + (a^3 - 1)*q^124 + (-a^3 + a)*q^127 + (a^3 - a - 1)*q^133 + 
        (a^2 - a)*q^148 + (-a^2 + a + 1)*q^151 + (-a^2 - 1)*q^157 + (-a^2 - 
        a)*q^163 + (-a^2 + 1)*q^169 + (-a^3 + 2*a)*q^172 + (-a^3 + a)*q^175 + 
        q^181 + (-a^3 + a^2 + a - 1)*q^193 + a*q^196 + (-a^3 - a)*q^199 - 
        a^3*q^208 + O(q^210),
    q^3 + a^3*q^9 + (a^3 - a)*q^12 + (a^2 - 1)*q^21 - q^27 - a^2*q^36 + (-a^3 + 
        a)*q^39 + (-a^2 + 1)*q^48 + (a^2 + a)*q^57 - a*q^63 - a*q^75 - a^3*q^81 
        - a^3*q^84 + (-a^2 + a + 1)*q^93 + (-a^3 + a)*q^108 + (-a^3 + a^2)*q^111
        + a^2*q^117 + (-a^2 - 1)*q^129 + a*q^144 - a^2*q^147 + (a^2 - 1)*q^156 +
        (a^3 + a^2 - a - 1)*q^171 - a^3*q^183 + (-a^2 + 1)*q^189 + a^3*q^192 + 
        (a^3 - 1)*q^201 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^3*q^4 + a*q^7 + (a^3 - a)*q^13 - q^16 + (a^3 - a^2 + 1)*q^19 + (-a^3 +
        a)*q^25 + (a^2 - 1)*q^28 + (a^3 - a^2 - a)*q^31 + (-a^3 + a^2 + a - 
        1)*q^37 + (a^2 + 1)*q^43 + a^2*q^49 - a^2*q^52 + (-a^3 - a)*q^61 - 
        a^3*q^64 + (-a^2 - a + 1)*q^67 + (-a^3 - a^2 + 1)*q^73 + (a - 1)*q^76 - 
        q^91 + (-a^3 - a^2)*q^97 + a^2*q^100 + (a^2 + 1)*q^103 + (-a - 1)*q^109 
        - a*q^112 + (a^3 - a)*q^121 + (-a^3 - a^2 + a)*q^124 + (-a^3 + a)*q^127 
        + (-a^3 + a^2 + a - 1)*q^133 + (2*a^2 - 2)*q^139 + (a^2 - a)*q^148 + 
        (-a^3 - a^2 + a)*q^151 - a^2*q^157 + (a^3 + a^2 - 1)*q^163 + (-a^2 + 
        1)*q^169 + (2*a^3 - a)*q^172 + q^175 + (-2*a^2 + 1)*q^181 + (-a^3 + 
        a^2)*q^193 + (a^3 - a)*q^196 + a^3*q^199 + (-a^3 + a)*q^208 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 + a)*q^4 + (-a^2 + 1)*q^7 + (a^3 - a)*q^13 + (-a^2 + 1)*q^16 + 
        (a^2 - a)*q^19 - a*q^25 - a^3*q^28 + (a^2 + a - 1)*q^31 + (a^3 - 
        a^2)*q^37 + (a^2 + 1)*q^43 - a^2*q^49 + (a^2 - 1)*q^52 + (-a^3 + 
        2*a)*q^61 - a^3*q^64 + (a^3 - 1)*q^67 + (a^3 - a - 1)*q^73 + (a - 
        1)*q^76 + a^3*q^91 + (-a^3 - a^2)*q^97 - q^100 + (a^2 - 2)*q^103 + (a^3 
        + a^2)*q^109 - a^2*q^112 - a^3*q^121 + (a^3 + 1)*q^124 + (-a^3 + 
        a)*q^127 + (a^3 - a + 1)*q^133 + (2*a^2 - 2)*q^139 + (a^2 - a)*q^148 + 
        (a^2 - a - 1)*q^151 + (a^2 - 1)*q^157 + (-a^2 - a)*q^163 + (-a^2 + 
        1)*q^169 + (-a^3 + 2*a)*q^172 + (a^3 - a)*q^175 + (-2*a^2 + 1)*q^181 + 
        (a^3 - a^2 - a + 1)*q^193 - a*q^196 + (-a^3 + a)*q^199 + a^3*q^208 + 
        O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 5*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^3*q^4 - a*q^7 + (a^3 - a)*q^13 - q^16 + (a^3 + a^2 - 1)*q^19 + (-a^3 +
        a)*q^25 + (a^2 - 1)*q^28 + (-a^3 - a^2 + a)*q^31 + (a^3 - a^2 - a + 
        1)*q^37 + (-a^2 - 1)*q^43 + a^2*q^49 + a^2*q^52 + (-a^3 + a)*q^61 + 
        a^3*q^64 + (-a^2 - a + 1)*q^67 + (a^3 - a^2 + 1)*q^73 + (a + 1)*q^76 + 
        q^91 + (-a^3 + a^2)*q^97 - a^2*q^100 + (a^2 - 1)*q^103 + (a + 1)*q^109 +
        a*q^112 + (-a^3 + a)*q^121 + (a^3 - a^2 - a)*q^124 + (-a^3 + a)*q^127 + 
        (-a^3 - a^2 + a + 1)*q^133 + (a^2 - a)*q^148 + (a^3 + a^2 - a)*q^151 + 
        (a^2 - 2)*q^157 + (a^3 + a^2 - 1)*q^163 + (-a^2 + 1)*q^169 + (2*a^3 - 
        a)*q^172 - q^175 - q^181 + (a^3 - a^2)*q^193 + (-a^3 + a)*q^196 + (a^3 -
        2*a)*q^199 + (-a^3 + a)*q^208 + O(q^210),
    q^3 + a*q^9 - a^3*q^12 - a*q^21 + a^2*q^27 + (-a^2 + 1)*q^36 + (a^3 - 
        a)*q^39 - q^48 + (a^3 + a^2 - 1)*q^57 - a^2*q^63 + (-a^3 + a)*q^75 + 
        a^3*q^81 + (a^2 - 1)*q^84 + (-a^3 - a^2 + a)*q^93 + (-a^3 + a)*q^108 + 
        (a^3 - a^2 - a + 1)*q^111 - q^117 + (-a^2 - 1)*q^129 - a*q^144 + 
        a^2*q^147 + a^2*q^156 + (a^3 + a^2 - a - 1)*q^171 + (-a^3 + a)*q^183 - 
        a^3*q^189 + a^3*q^192 + (-a^2 - a + 1)*q^201 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 5*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 - a*q^7 + (-a + 1)*q^13 + q^16 + (a - 1)*q^19 + (-a + 1)*q^25 - 
        a*q^28 + (2*a - 2)*q^31 + (2*a - 1)*q^37 - a*q^43 + (a - 1)*q^49 + (-a +
        1)*q^52 + (-a - 1)*q^61 + q^64 + (-a + 1)*q^73 + (a - 1)*q^76 + 2*a*q^79
        - q^91 - a*q^97 + (-a + 1)*q^100 + (a - 2)*q^103 + (-a - 1)*q^109 - 
        a*q^112 + (a - 1)*q^121 + (2*a - 2)*q^124 + (a - 1)*q^127 + q^133 + (2*a
        - 1)*q^148 + (a + 1)*q^157 + (-a - 1)*q^163 - a*q^169 - a*q^172 - q^175 
        + (2*a - 1)*q^181 + (-a + 2)*q^193 + (a - 1)*q^196 + (-2*a + 1)*q^199 + 
        (-a + 1)*q^208 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^4 - a*q^7 + (-a + 1)*q^13 - a*q^16 + (2*a - 1)*q^19 + a*q^25 
        - q^28 + (a - 2)*q^37 + a*q^43 + (a - 1)*q^49 - a*q^52 + q^61 - q^64 + 
        (-a + 2)*q^73 + (a + 1)*q^76 + (-2*a + 2)*q^79 - q^91 + (a - 2)*q^97 + 
        q^100 + (-a + 1)*q^103 + (a - 2)*q^109 + (a - 1)*q^112 - q^121 + (a - 
        1)*q^127 + (-a + 2)*q^133 - 2*a*q^139 + (2*a - 1)*q^148 + a*q^157 + (2*a
        - 1)*q^163 - a*q^169 + q^172 + (-a + 1)*q^175 - q^181 + (-2*a + 1)*q^193
        + a*q^196 + (a - 1)*q^199 - q^208 + O(q^210),
    q^3 - q^9 + (-a + 1)*q^12 - a*q^21 + q^27 + (a - 1)*q^36 + (-a + 1)*q^39 - 
        a*q^48 + (2*a - 1)*q^57 + a*q^63 + a*q^75 - q^81 - q^84 + (-a + 1)*q^108
        + (a - 2)*q^111 + (a - 1)*q^117 + a*q^129 + a*q^144 + (a - 1)*q^147 - 
        a*q^156 + (-2*a + 1)*q^171 + q^183 - a*q^189 - q^192 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 + a*q^7 + (-a + 1)*q^13 + q^16 + (-a - 1)*q^19 + (-a + 1)*q^25 - 
        a*q^28 + (-2*a + 1)*q^37 + a*q^43 + (a - 1)*q^49 + (a - 1)*q^52 + (a - 
        1)*q^61 - q^64 + (-a - 1)*q^73 + (a + 1)*q^76 + 2*a*q^79 + q^91 + (a - 
        2)*q^97 + (a - 1)*q^100 + a*q^103 + (a + 1)*q^109 + a*q^112 + (-a + 
        1)*q^121 + (a - 1)*q^127 + (-2*a + 1)*q^133 - 2*a*q^139 + (2*a - 
        1)*q^148 + (-a + 1)*q^157 + (-a - 1)*q^163 - a*q^169 - a*q^172 + q^175 -
        q^181 + (a - 2)*q^193 + (-a + 1)*q^196 + q^199 + (-a + 1)*q^208 + 
        O(q^210),
    q^3 + a*q^9 - q^12 + a*q^21 + (a - 1)*q^27 - a*q^36 + (-a + 1)*q^39 + q^48 +
        (-a - 1)*q^57 + (a - 1)*q^63 + (-a + 1)*q^75 - q^81 - a*q^84 + (-a + 
        1)*q^108 + (-2*a + 1)*q^111 + q^117 + a*q^129 + a*q^144 + (a - 1)*q^147 
        + (a - 1)*q^156 + (-2*a + 1)*q^171 + (a - 1)*q^183 - q^189 - q^192 + 
        O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^4 + a*q^7 + (a - 1)*q^13 - a*q^16 - q^19 + a*q^25 - q^28 + 
        2*a*q^31 + (-a + 2)*q^37 - a*q^43 + (a - 1)*q^49 - a*q^52 + (-2*a + 
        1)*q^61 + q^64 - a*q^73 + (-a + 1)*q^76 + (-2*a + 2)*q^79 - q^91 + 
        a*q^97 - q^100 + (-a - 1)*q^103 + (-a + 2)*q^109 + (-a + 1)*q^112 + 
        q^121 - 2*q^124 + (a - 1)*q^127 - a*q^133 + (2*a - 1)*q^148 + (-a + 
        2)*q^157 + (2*a - 1)*q^163 - a*q^169 + q^172 + (a - 1)*q^175 + (-2*a + 
        1)*q^181 + (2*a - 1)*q^193 - a*q^196 + (-a - 1)*q^199 + q^208 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 5*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + a*q^13 - q^16 + (-a - 1)*q^19 - a*q^25 + (a + 1)*q^31 + (-a + 
        1)*q^37 + a*q^49 + q^52 + a*q^64 + (-a - 1)*q^67 + (a - 1)*q^73 + (a - 
        1)*q^76 + (a + 1)*q^97 - q^100 + (-a - 1)*q^109 + a*q^121 + (-a + 
        1)*q^124 + 2*a*q^127 + 2*q^139 + (-a - 1)*q^148 + (-a + 1)*q^151 - 
        2*q^157 + (-a + 1)*q^163 - q^169 + (a - 1)*q^193 + q^196 + 2*a*q^199 - 
        a*q^208 + O(q^210),
    q^7 - a*q^28 + (a - 1)*q^49 + a*q^91 - q^112 + (-a - 1)*q^133 - a*q^175 + (a
        + 1)*q^196 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 3*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^4 + q^13 - q^16 + (-a - 1)*q^19 - a*q^25 + (-a - 1)*q^31 + (a - 
        1)*q^37 + a*q^49 + a*q^52 + 2*q^61 - a*q^64 + (-a - 1)*q^67 + (a - 
        1)*q^73 + (-a + 1)*q^76 + (-a + 1)*q^91 + (a + 1)*q^97 + q^100 + 
        2*a*q^103 + (a + 1)*q^109 - a*q^121 + (-a + 1)*q^124 + 2*a*q^127 - 
        2*q^133 + (-a - 1)*q^148 + (a - 1)*q^151 + (-a + 1)*q^163 - q^169 - 
        2*a*q^181 + (-a + 1)*q^193 - q^196 - q^208 + O(q^210),
    q^3 + a*q^12 + 1/2*(-a + 1)*q^21 - q^27 - q^48 + 1/2*(-a + 1)*q^63 - a*q^75 
        + 1/2*(a + 1)*q^84 - a*q^108 + (a - 1)*q^111 - q^117 + (a + 1)*q^171 + 
        1/2*(a - 1)*q^189 - a*q^192 + (-a - 1)*q^201 + O(q^210),
    q^7 + (-a - 1)*q^13 + 2*a*q^19 + a*q^28 + 2*a*q^31 + (-a + 1)*q^49 + (-a + 
        1)*q^52 + (-2*a - 2)*q^61 + 2*q^73 - 2*q^76 - q^91 - 2*a*q^97 + (-2*a + 
        2)*q^103 - q^112 - 2*q^124 + (a + 1)*q^133 - a*q^175 + (2*a - 2)*q^181 +
        (a + 1)*q^196 + (a + 1)*q^208 + O(q^210),
    q^9 + 1/2*(a - 1)*q^21 + a*q^36 + q^39 + (-a - 1)*q^57 + 1/2*(-a + 1)*q^63 -
        q^81 + 1/2*(-a - 1)*q^84 + (-a - 1)*q^93 - q^144 + a*q^147 + a*q^156 + 
        2*q^183 + 1/2*(-a + 1)*q^189 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + (-a + 1)*q^7 + a*q^13 + (a - 1)*q^16 + (-2*a + 1)*q^19 + (a - 
        1)*q^25 + q^28 + (a - 1)*q^37 + (a - 1)*q^43 - a*q^49 + (a - 1)*q^52 + 
        (-2*a + 1)*q^61 - q^64 + 2*q^67 + (-a - 1)*q^73 + (-a + 2)*q^76 - 
        2*a*q^79 + q^91 + (-a - 1)*q^97 - q^100 + (a - 2)*q^103 + (a - 1)*q^109 
        + a*q^112 - q^121 + a*q^127 + (-a - 1)*q^133 - q^148 + (-2*a + 2)*q^151 
        + (a + 1)*q^157 - q^163 + (a - 1)*q^169 - q^172 + a*q^175 + (2*a - 
        1)*q^181 + q^193 + (-a + 1)*q^196 + (-a + 2)*q^199 - q^208 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 + (-a + 1)*q^7 + a*q^13 - q^16 + a*q^19 - a*q^25 + (a - 1)*q^28 - 
        2*q^34 - q^37 + (-a + 1)*q^43 - a*q^49 - a*q^52 + 2*a*q^58 + a*q^61 + 
        q^64 + a*q^73 - a*q^76 + q^91 + (-2*a + 2)*q^94 + (a - 1)*q^97 + a*q^100
        + (-a + 1)*q^103 - a*q^109 + (a - 1)*q^112 + 2*q^118 - a*q^121 + a*q^127
        + q^133 + (-2*a + 2)*q^142 + q^148 - a*q^157 + a*q^163 + (a - 1)*q^169 +
        (a - 1)*q^172 - q^175 - q^181 + (a - 1)*q^193 + a*q^196 + q^199 + (-2*a 
        + 2)*q^202 - a*q^208 + O(q^210),
    q^2 + (-a + 1)*q^14 + q^17 + a*q^26 - a*q^29 - q^32 + a*q^38 + (a - 1)*q^47 
        - a*q^50 - q^59 - q^68 + (a - 1)*q^71 - q^74 + (-a + 1)*q^86 - a*q^98 + 
        (a - 1)*q^101 - q^107 + a*q^116 + (-a + 1)*q^119 + a*q^122 + (-a + 
        1)*q^131 + q^137 + a*q^146 + a*q^167 - a*q^173 + (-a + 1)*q^179 + q^182 
        + (-a + 1)*q^188 - a*q^191 + (a - 1)*q^194 + a*q^197 - q^203 + (-a + 
        1)*q^206 + O(q^210)
]
;
Bo:=
[
    q - a*q^7 + (-a + 1)*q^10 - q^13 - q^16 + a*q^31 + q^34 + q^37 + (-a + 
        1)*q^40 + (a - 1)*q^43 + q^46 + (a - 1)*q^49 - a*q^58 - q^64 - q^70 - 
        a*q^73 + (a - 1)*q^79 + a*q^82 + (a - 1)*q^85 + a*q^91 + (-a + 1)*q^94 +
        (-a + 1)*q^97 + (a - 1)*q^103 + a*q^106 - a*q^109 + a*q^112 + (a - 
        1)*q^115 - q^118 - a*q^121 + a*q^127 + (a - 1)*q^130 + q^136 + (-a + 
        1)*q^139 + (a - 1)*q^142 + q^145 - a*q^151 - a*q^157 + q^169 - q^178 + 
        q^184 + q^199 - q^205 + q^208 + O(q^210),
    q^2 + (a - 1)*q^5 + q^8 - a*q^14 - q^17 - q^23 - q^26 + a*q^29 + q^35 - 
        a*q^41 + (a - 1)*q^47 - a*q^53 - a*q^56 + q^59 + a*q^62 + (-a + 1)*q^65 
        + (-a + 1)*q^71 + q^74 + (-a + 1)*q^80 + (a - 1)*q^86 + q^89 + (a - 
        1)*q^98 - q^104 + q^107 + (a - 1)*q^113 + a*q^119 + q^125 - q^128 + (-a 
        + 1)*q^131 - q^137 - a*q^146 - q^155 + (a - 1)*q^158 + a*q^161 + a*q^167
        + (a - 1)*q^170 + a*q^182 + (a - 1)*q^185 - 2*a*q^191 + (-a + 1)*q^194 -
        a*q^197 + (-a + 1)*q^203 + (a - 1)*q^206 + O(q^210),
    q^3 + (a - 1)*q^18 - a*q^21 + a*q^27 + (-a + 1)*q^30 - q^39 - a*q^45 - q^48 
        + (a - 1)*q^72 + a*q^93 + q^102 + q^111 + (-a + 1)*q^120 + q^126 + (a - 
        1)*q^129 + q^138 + (a - 1)*q^147 + (-a + 1)*q^153 - q^162 - a*q^174 + 
        (-a + 1)*q^189 - q^192 + (-a + 1)*q^207 + O(q^210),
    q^4 + (2*a - 1)*q^7 + (a - 1)*q^10 + (-a + 1)*q^13 + 2*q^16 + a*q^19 - 
        a*q^25 + (a - 1)*q^28 - 3*a*q^31 - q^34 - 2*q^37 + (a - 1)*q^40 + (-2*a 
        + 2)*q^43 - q^46 + (-2*a + 1)*q^49 - a*q^52 + a*q^58 + a*q^61 + 2*q^64 +
        (2*a - 2)*q^67 + q^70 + 2*a*q^73 + a*q^76 + (a - 1)*q^79 - a*q^82 + (-a 
        + 1)*q^85 + (-a + 1)*q^91 + (a - 1)*q^94 - a*q^100 + (-2*a + 2)*q^103 - 
        a*q^106 + 2*a*q^109 - q^112 + (-a + 1)*q^115 + q^118 - 2*a*q^124 + (-a +
        1)*q^130 - q^133 - q^136 + (3*a - 3)*q^139 + (-a + 1)*q^142 - q^145 - 
        q^148 - a*q^151 + 2*a*q^157 + a*q^163 + (a - 2)*q^169 + (-a + 1)*q^172 +
        q^175 + q^178 - q^181 - q^184 + (-a + 1)*q^193 - a*q^196 - 2*q^199 + 
        q^205 + (-a - 1)*q^208 + O(q^210),
    q^6 + q^12 + (a - 1)*q^15 + (-a + 1)*q^18 + (2*a - 1)*q^21 + q^24 - 2*a*q^27
        + (a - 1)*q^30 + (a - 1)*q^36 + (-a + 1)*q^39 - a*q^42 + a*q^45 + 2*q^48
        - q^51 + a*q^54 + a*q^57 + (-a - 1)*q^63 - q^69 + (-a + 1)*q^72 - a*q^75
        - q^78 + 2*q^81 + (a - 1)*q^84 + a*q^87 - a*q^90 - 3*a*q^93 - q^102 + 
        q^105 - a*q^108 - 2*q^111 + a*q^117 + (a - 1)*q^120 - a*q^123 - q^126 + 
        (-2*a + 2)*q^129 - q^135 - q^138 + (a - 1)*q^141 + (2*a - 2)*q^144 + 
        (-2*a + 1)*q^147 + (a - 1)*q^153 - a*q^156 - a*q^159 + q^162 - a*q^168 -
        q^171 + a*q^174 + q^177 + a*q^183 + a*q^186 + a*q^189 + 2*q^192 + (-a + 
        1)*q^195 + (2*a - 2)*q^201 + (a - 1)*q^207 + O(q^210),
    q^9 - a*q^12 - q^18 + (-a + 2)*q^21 + (2*a - 2)*q^27 + q^30 + q^36 - q^39 + 
        (-a + 1)*q^45 - 2*a*q^48 + (-a + 1)*q^57 + (a - 1)*q^63 - q^72 + (a - 
        1)*q^75 - a*q^81 + q^84 + (3*a - 3)*q^93 + a*q^102 + (a - 1)*q^108 + 
        2*a*q^111 - a*q^117 + q^120 + a*q^126 - 2*q^129 + a*q^138 + q^144 + (a -
        2)*q^147 + q^153 + (a - 1)*q^156 - a*q^162 + a*q^171 + (-a + 1)*q^174 + 
        (-a + 1)*q^183 + (-a + 1)*q^189 - 2*a*q^192 + 2*q^201 + q^207 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^2 + q^7 - q^8 - q^9 + (-a + 1)*q^11 + (a - 1)*q^14 + (a - 
        1)*q^15 + (-a + 1)*q^16 + (-a + 1)*q^18 + a*q^22 + (-a + 1)*q^29 - 
        a*q^30 - a*q^37 - q^39 + q^49 + (-a + 1)*q^51 - q^56 + (a - 1)*q^57 + 
        a*q^58 - q^63 + q^64 + (a - 1)*q^65 - 2*q^67 + (a - 1)*q^71 + q^72 + 
        q^74 + (-a + 1)*q^77 + (-a + 1)*q^78 + a*q^79 + q^81 - a*q^85 + (a - 
        1)*q^88 + (-a + 1)*q^93 + a*q^95 + (a - 1)*q^98 + (a - 1)*q^99 + a*q^102
        + (a - 1)*q^105 + a*q^107 + (-a + 1)*q^112 + a*q^113 - a*q^114 + (-a + 
        1)*q^120 + (-a + 1)*q^126 - a*q^127 + (a - 1)*q^128 - a*q^130 + (-2*a + 
        2)*q^134 + (-a + 1)*q^135 - a*q^141 - a*q^142 + (a - 1)*q^144 + a*q^149 
        + a*q^151 + a*q^154 - a*q^155 - q^158 + (a - 1)*q^162 + (a - 1)*q^163 + 
        a*q^165 - q^169 + q^170 - a*q^176 - a*q^177 - a*q^179 + 2*q^183 + 
        a*q^186 - q^190 + a*q^197 - a*q^198 + (-a + 1)*q^203 + O(q^210),
    q^3 + (-a + 1)*q^5 + (a - 1)*q^6 + a*q^10 + q^13 + (a - 1)*q^17 + (-a + 
        1)*q^19 + q^21 - q^24 + (a - 1)*q^26 - q^27 + (a - 1)*q^31 + (-a + 
        1)*q^33 - a*q^34 + (-a + 1)*q^35 + a*q^38 + (a - 1)*q^40 + (a - 1)*q^42 
        + (a - 1)*q^45 + a*q^47 + (-a + 1)*q^48 + (-a + 1)*q^54 - a*q^55 + 
        a*q^59 - 2*q^61 - a*q^62 + a*q^66 + a*q^70 - a*q^80 - a*q^83 + (-a + 
        1)*q^87 - a*q^89 - a*q^90 + q^91 - q^94 + (a - 1)*q^101 + (-a + 1)*q^103
        - q^104 + q^110 - a*q^111 - q^117 - q^118 + (a - 1)*q^119 + (-2*a + 
        2)*q^122 - q^125 + (-a + 1)*q^131 + (-a + 1)*q^133 + (-a + 1)*q^136 + 
        a*q^139 + (-a + 1)*q^143 - a*q^145 + q^147 + (a - 1)*q^152 + (-a + 
        1)*q^153 + (-a + 1)*q^157 + q^166 + 2*q^167 - q^168 + (a - 1)*q^171 + 
        a*q^174 + q^178 + (a - 1)*q^182 - q^185 + a*q^187 - q^189 + q^192 + (a -
        1)*q^195 + (a - 1)*q^199 - 2*q^201 - a*q^202 + a*q^206 + (-a + 1)*q^208 
        - a*q^209 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 3*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^2 - a*q^7 - q^8 + a*q^9 - q^11 - a*q^14 + q^15 - q^16 + a*q^18 - q^22 
        - q^29 + q^30 - a*q^37 + a*q^39 + (a - 1)*q^49 + a*q^51 + a*q^56 - 
        a*q^57 - q^58 + (-a + 1)*q^63 + q^64 + q^65 + (-2*a + 2)*q^67 + (a - 
        1)*q^71 - a*q^72 - a*q^74 + a*q^77 + a*q^78 + (-a + 1)*q^79 + (a - 
        1)*q^81 + q^85 + q^88 - q^93 - q^95 + (a - 1)*q^98 - a*q^99 + a*q^102 - 
        a*q^105 + a*q^107 + a*q^112 - q^113 - a*q^114 - q^120 + (-a + 1)*q^126 -
        a*q^127 + q^128 + q^130 + (-2*a + 2)*q^134 + a*q^135 - a*q^141 + (a - 
        1)*q^142 - a*q^144 - q^149 + (-a + 1)*q^151 + a*q^154 + (a - 1)*q^155 + 
        (-a + 1)*q^158 + (a - 1)*q^162 + (a - 1)*q^163 - q^165 + a*q^169 + q^170
        + q^176 + (a - 1)*q^177 - a*q^179 + 2*q^183 - q^186 - q^190 + a*q^197 - 
        a*q^198 + a*q^203 + O(q^210),
    q^3 + (-a + 1)*q^5 + q^6 + (-a + 1)*q^10 + q^13 + q^17 - q^19 - a*q^21 - 
        q^24 + q^26 + a*q^27 + (a - 1)*q^31 - q^33 + q^34 - q^35 - q^38 + (a - 
        1)*q^40 - a*q^42 + q^45 - q^47 - q^48 + a*q^54 + (a - 1)*q^55 + a*q^59 +
        (-2*a + 2)*q^61 + (a - 1)*q^62 - q^66 - q^70 + (a - 1)*q^80 + q^83 - 
        q^87 + (a - 1)*q^89 + q^90 - a*q^91 - q^94 - a*q^101 + (-a + 1)*q^103 - 
        q^104 + (a - 1)*q^110 - a*q^111 + a*q^117 + a*q^118 - a*q^119 + (-2*a + 
        2)*q^122 + a*q^125 + (-a + 1)*q^131 + a*q^133 - q^136 + a*q^139 - q^143 
        + (a - 1)*q^145 + (a - 1)*q^147 + q^152 + a*q^153 + (-a + 1)*q^157 + 
        q^166 + 2*q^167 + a*q^168 - a*q^171 - q^174 + (a - 1)*q^178 - a*q^182 - 
        q^185 - q^187 + (-a + 1)*q^189 + q^192 + q^195 + q^199 + (-2*a + 
        2)*q^201 - a*q^202 + (-a + 1)*q^206 - q^208 + q^209 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + (-a + 1)*q^7 + a*q^13 + (-a + 1)*q^16 - q^19 + (a - 1)*q^25 + 
        q^28 - 2*q^34 + (-a + 1)*q^37 + (-a + 1)*q^43 - a*q^49 + (a - 1)*q^52 - 
        2*q^58 - q^61 + q^64 + (-a + 1)*q^73 - a*q^76 + q^91 - 2*q^94 + (a - 
        1)*q^97 - q^100 + a*q^103 + (a - 1)*q^109 - a*q^112 + 2*q^118 + q^121 + 
        a*q^127 + (a - 1)*q^133 + 2*a*q^142 + q^148 + (a - 1)*q^157 - q^163 + (a
        - 1)*q^169 + q^172 + a*q^175 - q^181 + q^193 + (-a + 1)*q^196 - a*q^199 
        + (-2*a + 2)*q^202 + q^208 + O(q^210),
    q^2 + (-a + 1)*q^14 + (a - 1)*q^17 + a*q^26 + (a - 1)*q^29 + (-a + 1)*q^32 -
        q^38 + (a - 1)*q^47 + (a - 1)*q^50 + (-a + 1)*q^59 - q^68 + q^71 + (-a +
        1)*q^74 + (-a + 1)*q^86 - a*q^98 - a*q^101 - q^107 - q^116 + a*q^119 - 
        q^122 + (-a + 1)*q^131 + (a - 1)*q^137 + (-a + 1)*q^146 + (-a + 1)*q^167
        - a*q^173 + a*q^179 + q^182 - q^188 - a*q^191 + (a - 1)*q^194 + (-a + 
        1)*q^197 + a*q^203 + a*q^206 + O(q^210)
]
;
Bo:=
[
    q + q^7 - q^10 - q^13 + (-a + 1)*q^16 + (-a + 1)*q^31 + q^34 + (a - 1)*q^37 
        + a*q^40 + (a - 1)*q^43 - a*q^46 + q^49 + q^58 - q^64 - q^70 + (a - 
        1)*q^73 - a*q^79 - q^82 + (a - 1)*q^85 - q^91 - q^94 + (-a + 1)*q^97 - 
        a*q^103 + a*q^106 + (a - 1)*q^109 + (-a + 1)*q^112 + q^115 - q^118 + 
        q^121 + a*q^127 + q^130 - a*q^136 + (-a + 1)*q^139 - a*q^142 + (a - 
        1)*q^145 + (a - 1)*q^151 + (a - 1)*q^157 + q^169 + a*q^178 + (a - 
        1)*q^184 - a*q^199 + (-a + 1)*q^205 + (a - 1)*q^208 + O(q^210),
    q^2 + (a - 1)*q^5 - a*q^8 + q^14 + (-a + 1)*q^17 - q^23 - q^26 + (-a + 
        1)*q^29 + (a - 1)*q^35 + (a - 1)*q^41 + (a - 1)*q^47 + q^53 - a*q^56 + 
        (a - 1)*q^59 + (-a + 1)*q^62 + (-a + 1)*q^65 - q^71 + (a - 1)*q^74 + 
        a*q^80 + (a - 1)*q^86 + q^89 + q^98 + a*q^104 + q^107 + q^113 + (-a + 
        1)*q^119 - a*q^125 - q^128 + (-a + 1)*q^131 + (-a + 1)*q^137 + (a - 
        1)*q^146 + a*q^155 - a*q^158 - q^161 + (-a + 1)*q^167 + (a - 1)*q^170 - 
        q^182 - a*q^185 - 2*a*q^191 + (-a + 1)*q^194 + (a - 1)*q^197 + (-a + 
        1)*q^203 - a*q^206 + O(q^210),
    q^3 + (a - 1)*q^18 + q^21 - q^27 - q^30 - q^39 - a*q^45 + (-a + 1)*q^48 + 
        q^72 + (-a + 1)*q^93 + q^102 + (a - 1)*q^111 + a*q^120 + (a - 1)*q^126 +
        (a - 1)*q^129 - a*q^138 + q^147 + a*q^153 + (-a + 1)*q^162 + q^174 - 
        q^189 - q^192 + (-a + 1)*q^207 + O(q^210),
    q^4 + (-2*a + 1)*q^7 + (a - 1)*q^10 + a*q^13 - 2*a*q^16 + (-a + 1)*q^19 - 
        a*q^25 + (a - 1)*q^28 - 3*a*q^31 + (-a + 1)*q^34 + 2*a*q^37 + q^40 + 
        2*a*q^43 - q^46 + (-a + 2)*q^49 - a*q^52 + (-a + 1)*q^58 + (-a + 1)*q^61
        + (2*a - 2)*q^64 + (2*a - 2)*q^67 + (a - 1)*q^70 + 2*a*q^73 - q^76 + 
        q^79 + (a - 1)*q^82 + a*q^85 + (2*a - 2)*q^91 + (a - 1)*q^94 + (a - 
        1)*q^100 - 2*q^103 + q^106 + 2*a*q^109 + (-a + 1)*q^112 + (-a + 1)*q^115
        + (a - 1)*q^118 + (2*a - 2)*q^124 + (-a + 1)*q^130 + a*q^133 - q^136 - 
        3*a*q^139 - q^142 + a*q^145 + (-a + 1)*q^148 - a*q^151 + 2*a*q^157 + (-a
        + 1)*q^163 + (-2*a + 1)*q^169 + (-a + 1)*q^172 + q^175 + q^178 + (-a + 
        1)*q^181 + a*q^184 + (-a + 1)*q^193 - a*q^196 - 2*q^199 - a*q^205 + (2*a
        - 1)*q^208 + O(q^210),
    q^6 + (a - 1)*q^12 + (a - 1)*q^15 - q^18 + (a + 1)*q^21 - a*q^24 - 2*a*q^27 
        - a*q^30 + (a - 1)*q^36 - q^39 + q^42 + (-a + 1)*q^45 + 2*q^48 + (-a + 
        1)*q^51 - q^54 + a*q^57 + (a + 1)*q^63 - q^69 + a*q^72 + q^75 - q^78 - 
        2*a*q^81 - a*q^84 + (-a + 1)*q^87 - a*q^90 + 3*q^93 + a*q^102 + (a - 
        1)*q^105 + (a - 1)*q^108 - 2*q^111 - q^117 + (a - 1)*q^120 + (a - 
        1)*q^123 - q^126 - 2*q^129 + (-a + 1)*q^135 + (-a + 1)*q^138 + (a - 
        1)*q^141 + 2*q^144 + (2*a - 1)*q^147 + (a - 1)*q^153 + q^156 + q^159 + 
        q^162 - a*q^168 + a*q^171 + a*q^174 + (a - 1)*q^177 + a*q^183 + (-a + 
        1)*q^186 + (-a + 1)*q^189 - 2*a*q^192 + (-a + 1)*q^195 - 2*a*q^201 + 
        q^207 + O(q^210),
    q^9 - a*q^12 + (-a + 1)*q^18 + (a - 2)*q^21 + 2*q^27 + q^30 - a*q^36 + (-a +
        1)*q^39 + a*q^45 + (2*a - 2)*q^48 - q^57 + (a - 1)*q^63 - q^72 + (a - 
        1)*q^75 + q^81 + q^84 + (3*a - 3)*q^93 - q^102 - a*q^108 + (-2*a + 
        2)*q^111 - a*q^117 - a*q^120 + (-a + 1)*q^126 + (-2*a + 2)*q^129 + 
        a*q^138 + (a - 1)*q^144 + (-a - 1)*q^147 - a*q^153 + (a - 1)*q^156 + (a 
        - 1)*q^162 - q^171 - q^174 - q^183 + a*q^189 + 2*q^192 + 2*q^201 + (a - 
        1)*q^207 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 4*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 + (-a + 1)*q^7 - a*q^13 + q^16 + (-a + 2)*q^19 - a*q^25 + (a - 
        1)*q^28 + q^37 + (a - 1)*q^43 - a*q^49 + a*q^52 + (-a + 2)*q^61 - q^64 +
        (2*a - 2)*q^67 + (a - 2)*q^73 + (a - 2)*q^76 + (2*a - 2)*q^79 - q^91 + 
        (a + 1)*q^97 + a*q^100 + (-a - 1)*q^103 - a*q^109 + (-a + 1)*q^112 + 
        a*q^121 + a*q^127 + (-2*a + 1)*q^133 - q^148 + 2*a*q^151 + (-a + 
        2)*q^157 + a*q^163 + (a - 1)*q^169 + (-a + 1)*q^172 - q^175 + (-2*a + 
        1)*q^181 + (a - 1)*q^193 + a*q^196 + (-2*a + 1)*q^199 - a*q^208 + 
        O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 5*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 - q^13 + q^16 - q^25 + 2*q^43 + q^49 + q^52 - 2*q^61 - q^64 - 2*q^79
        + q^100 + 2*q^103 - q^121 - 2*q^127 + 2*q^139 + 2*q^157 + q^169 - 
        2*q^172 + 2*q^181 - q^196 - 2*q^199 - q^208 + O(q^210),
    q^3 - q^9 - q^12 + q^27 + q^36 - q^39 + q^48 - q^75 - q^81 - q^108 + q^117 +
        2*q^129 - q^144 + q^147 + q^156 - 2*q^183 - q^192 + O(q^210),
    q^7 - q^28 - q^91 + q^112 - q^175 + O(q^210),
    q^21 - q^63 - q^84 + q^189 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^25 - 2*q^43 + q^49 + q^64 - 2*q^79 - q^91 - q^100 + q^121
        - 2*q^127 - 2*q^133 + q^169 - 2*q^172 + q^196 + O(q^210),
    q^7 - q^13 - 2*q^19 + q^28 + 2*q^31 - q^52 + 2*q^73 - 2*q^76 - 2*q^97 + 
        q^112 + 2*q^124 - q^175 - q^208 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
819
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^14 + a^10 - a^6 + a^2)*q^2 + (-a^12 + a^8 - a^4 + 1)*q^4 - a^3*q^5 -
        a^14*q^8 + a^5*q^9 - a*q^10 + (-a^13 + a^9 - a^5 - a^4 + a)*q^13 - 
        a^12*q^16 + (a^12 - a^11)*q^17 + a^3*q^18 + (a^15 - a^11 + a^7 - 
        a^3)*q^20 + a^6*q^25 + (-a^15 - a^2)*q^26 + (a^12 + a^11 - a^8 + a^4 - 
        1)*q^29 - a^10*q^32 + (a^10 - a^9)*q^34 + a*q^36 + (a^15 - a^7)*q^37 + 
        (a^13 - a^9 + a^5 - a)*q^40 + (a^14 - a^10 + a^6 - a^2)*q^41 - a^8*q^45 
        + a^9*q^49 + a^4*q^50 + (-a^13 - 1)*q^52 + (a^13 + a^4)*q^53 + (a^14 + 
        a^9)*q^58 + (a^8 - a^6)*q^61 - a^8*q^64 + (a^7 - 1)*q^65 + (a^8 - 
        a^7)*q^68 + (-a^15 + a^11 - a^7 + a^3)*q^72 + (-a^15 + a^11 - a^7 + a^3 
        + a)*q^73 + (a^13 - a^5)*q^74 + a^15*q^80 + a^10*q^81 + (a^12 - a^8 + 
        a^4 - 1)*q^82 + (-a^15 + a^14)*q^85 + (a^13 - a^9 + a^5 + a^2 - a)*q^89 
        - a^6*q^90 + (-a^5 - a^2)*q^97 + a^7*q^98 + a^2*q^100 + (a^15 - a^11 - 
        a^10 + a^7 - a^3)*q^101 + (a^14 - a^11 - a^10 + a^6 - a^2)*q^104 + (a^11
        + a^2)*q^106 + (-a^13 - a^12)*q^109 + (-a^13 - a^5)*q^113 + (a^12 + 
        a^7)*q^116 + (-a^9 + a^2)*q^117 + a^3*q^121 + (a^6 - a^4)*q^122 - 
        a^9*q^125 - a^6*q^128 + (a^14 - a^10 + a^6 + a^5 - a^2)*q^130 + (a^6 - 
        a^5)*q^136 + (a^14 - a)*q^137 + (-a^13 + a^9 - a^5 + a)*q^144 + (-a^15 -
        a^14 + a^11 - a^7 + a^3)*q^145 + (-a^15 - a^13 + a^11 + a^9 - a^7 - a^5 
        + a^3 + a)*q^146 + (a^11 - a^3)*q^148 + (-a^10 + a^7)*q^149 + (a^13 - 
        a^12 - a^9 + a^8 + a^5 - a^4 - a + 1)*q^153 + (-a^6 + a^3)*q^157 + 
        a^13*q^160 + a^8*q^162 + a^14*q^164 + (-a^14 + a^8 - a)*q^169 + (-a^13 +
        a^12)*q^170 + (-a^14 + a^10 - a^6)*q^173 + (a^15 + 1)*q^178 - a^4*q^180 
        + (a^13 - 1)*q^181 + (-a^14 + 2*a^10 - a^6 + a^2)*q^185 + (a^15 + a^14 -
        a^11 - a^10 + a^7 + a^6 - a^3 - a^2)*q^193 + (-a^3 - 1)*q^194 + 
        a^5*q^196 + (-2*a^12 + a^8 - a^4 + 1)*q^197 + q^200 + (a^13 - a^9 - a^8 
        + a^5 - a)*q^202 + a*q^205 + (a^12 - a^9 - a^8 + a^4 - 1)*q^208 + (a^9 +
        1)*q^212 + (-a^11 - a^10)*q^218 + (a^15 - a^12 + a^9 - a^4 + 1)*q^221 + 
        a^11*q^225 + (-a^11 - a^3)*q^226 + (-a^15 - a^14 + a^10 - a^6 + 
        a^2)*q^229 + (a^10 + a^5)*q^232 + (-a^15 + a^6)*q^233 + (-a^7 + 1)*q^234
        + (-a^14 + a^10 - a^6 + a^4 + a^2)*q^241 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^8*q^2 + (a^12 - a^8 + a^4 - 1)*q^4 + (-a^15 + a^11 - a^7 + a^3)*q^5 + 
        a^4*q^8 - a^5*q^9 - a^7*q^10 + (-a^14 + a^7)*q^13 - a^12*q^16 + (a^2 - 
        a)*q^17 + a^13*q^18 + a^15*q^20 + (-a^14 + a^10 - a^6 + a^2)*q^25 + 
        (-a^15 - a^2)*q^26 + (-a^12 - a^11 + a^8 - a^4 + 1)*q^29 - q^32 + (-a^10
        + a^9)*q^34 + a*q^36 + (a^13 - a^9 + 2*a^5 - a)*q^37 + a^3*q^40 + (a^14 
        - a^10 + a^6 - a^2)*q^41 - a^4*q^45 - a^9*q^49 - a^6*q^50 + (a^10 - 
        a^3)*q^52 + (a^14 - a^3)*q^53 + (a^15 - a^11 + a^7 - a^4 - a^3)*q^58 + 
        (a^8 - a^6)*q^61 + a^8*q^64 + (-a^13 + a^6)*q^65 + (a^14 - a^13 - a^10 +
        a^9 + a^6 - a^5 - a^2 + a)*q^68 - a^9*q^72 + (a^11 + a^9)*q^73 + (-a^13 
        + a^5)*q^74 - a^11*q^80 + a^10*q^81 + a^6*q^82 + (a - 1)*q^85 + (-a^13 +
        a^9 - a^5 - a^2 + a)*q^89 + a^12*q^90 + (a^15 + a^12)*q^97 + (a^13 - a^9
        + a^5 - a)*q^98 + a^14*q^100 + (a^15 - a^11 - a^10 + a^7 - a^3)*q^101 + 
        (-a^14 + a^11 + a^10 - a^6 + a^2)*q^104 + (a^11 + a^2)*q^106 + (a^13 + 
        a^12)*q^109 + (-a^15 + a^3)*q^113 + (a^12 + a^7)*q^116 + (a^15 - a^12 - 
        a^11 + a^7 - a^3)*q^117 + a^3*q^121 + (a^14 - a^12 + a^8 - a^4 + 
        1)*q^122 + (-a^13 + a^9 - a^5 + a)*q^125 + (-a^12 + a^8 - a^4 + 1)*q^128
        + (-a^14 - a)*q^130 + (a^6 - a^5)*q^136 + (a^11 + a^4)*q^137 + (a^13 - 
        a^9 + a^5 - a)*q^144 + (-a^15 - a^10)*q^145 + (-a^15 - a^13 + a^11 + a^9
        - a^7 - a^5 + a^3 + a)*q^146 + (-a^13 - a)*q^148 + (a^10 - a^7)*q^149 + 
        (-a^7 + a^6)*q^153 + (-a^13 + a^12 - a^8 + a^4 - 1)*q^157 + (a^15 - a^11
        + a^7 - a^3)*q^160 + (-a^14 + a^10 - a^6 + a^2)*q^162 - a^14*q^164 + 
        (a^14 - a^8 + a)*q^169 + (-a^9 + a^8)*q^170 + (-a^12 + a^8)*q^173 + 
        (a^10 - a^5)*q^178 + q^180 + (a^13 - 1)*q^181 + (a^12 - a^8 + 2*a^4 - 
        1)*q^185 + (-a^9 - a^8)*q^193 + (a^3 + 1)*q^194 + a^5*q^196 + (-a^6 - 
        a^2)*q^197 + a^2*q^200 + (a^14 - a^10 + a^7 + a^6 - a^2)*q^202 + (a^13 -
        a^9 + a^5 - a)*q^205 + (-a^15 + a^11 - a^7 - a^6 + a^3)*q^208 + (-a^15 +
        a^11 - a^10 - a^7 + a^3)*q^212 + (a + 1)*q^218 + (a^15 - a^12 + a^9 - 
        a^4 + 1)*q^221 - a^3*q^225 + (-a^11 - a^3)*q^226 + (a^15 + a^14 - a^10 +
        a^6 - a^2)*q^229 + (-a^15 + 1)*q^232 + (a^12 - a^8 + a^5 + a^4 - 
        1)*q^233 + (a^7 - 1)*q^234 + (-a^14 + a^10 - a^6 + a^4 + a^2)*q^241 + 
        O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/4*(-a^7 + a^5 + 3*a)*q^5 + 1/2*(-a^7 + a^5 - a^3 + a^2 + a)*q^6 + 
        1/2*(-a^6 + a^4 - 2*a^2 + 1)*q^9 + 1/4*(a^7 + a)*q^10 + 1/2*(-a^5 - 
        1)*q^14 - a^2*q^16 + 1/4*(a^7 - a^3 + a)*q^20 + 1/2*(2*a^6 - a^4 + a^3 +
        a^2 - a - 1)*q^21 + 1/2*(a^6 + a^5 - a^4 + a^2 - 1)*q^24 + 1/4*(a^4 + 
        a^2 + 1)*q^25 + 1/2*(-a^5 + a^2)*q^26 + 1/2*(-a^7 - a^6 - a - 1)*q^29 + 
        1/2*(a^3 + 1)*q^30 + 1/2*(a^7 - a^5 + a^3 - a - 1)*q^34 + 1/2*(-a^6 + 
        2*a^4 - a^2 + 2*a + 1)*q^36 + 1/4*(-a^7 + a^3)*q^40 + 1/2*(a^7 - a^6 + 
        a^4 - a^2 + 1)*q^41 + 1/4*(-2*a^7 - a^6 + 2*a^5 - 4*a^3 + a^2 + 2*a - 
        1)*q^45 + 1/2*(a^7 - a^5 - a)*q^46 + 1/4*(a^6 + a^4)*q^50 + 1/2*(-a^7 - 
        a^4 - a + 1)*q^54 + 1/2*(-a^6 + a)*q^56 + 1/2*(a^7 + 2*a^6 - a^4 + a^3 +
        a^2 - a - 1)*q^61 + 1/4*(a^7 + a^6 - a^3 + 1)*q^65 + 1/2*(a^7 + a^6 + 
        a^3 + a^2 - a)*q^69 + 1/2*(-a^6 - a)*q^70 + 1/2*(a^5 - a^3)*q^74 + 
        1/4*(-a^5 - 2*a^3 - a)*q^80 + 1/2*(a^7 - a^6 + a^4 - a^3 - 2)*q^81 + 
        1/2*(-a^5 - a^4 + a^3 - a^2 - a)*q^84 + 1/4*(-a^5 - a^4 + a + 1)*q^85 + 
        1/2*(-a^7 - a^5)*q^86 + 1/2*(-a^7 + a^5 - a^4 + a^2)*q^89 + 1/4*(a^6 - 
        a^2)*q^90 + 1/2*(a^4 + a^3)*q^94 + 1/2*(-a^4 - a)*q^96 + 1/4*(2*a^6 - 
        3*a^4 + 3*a^2 - 2)*q^100 + 1/2*(-a^7 - a^4 - a^3 + a - 1)*q^101 + 
        1/2*(-a^6 + a^4 - a^2 - a + 1)*q^104 + 1/2*(2*a^7 - a^5 + a^4 + a^3 - 
        a^2 - a)*q^105 + 1/2*(a^2 - a)*q^106 + 1/2*(-a^7 + a^6 - a^4 - a^3 - 
        1)*q^109 + 1/2*(a^7 - a^6 + a^3 - a^2)*q^116 + 1/2*(a^7 + a^6 - a^5 + 
        a^3 - a)*q^120 + a^3*q^121 + 1/4*(-a^5 + 3*a^3 - a)*q^125 + 1/2*(a^7 + 
        a^6 + a^5 - a^4 - a^3 + 2*a^2 - 2)*q^126 + 1/2*(a^6 - a^4 - a^3 + a^2 - 
        a - 2)*q^129 + 1/4*(-a^6 + a^5 - a^2 + a + 1)*q^130 + 1/2*(-a^6 + a^5 + 
        a^4 - a^2 + 1)*q^134 + 1/2*(a^6 + a^5)*q^136 + 1/2*(-2*a^7 - a^6 + a^5 -
        a^3 + a + 1)*q^141 + 1/2*(a^4 - 1)*q^144 + 1/4*(-a^7 - 2*a^6 + a^4 - a^3
        - 2*a^2 - a + 1)*q^145 + 1/2*(-2*a^7 + a^5 - a^3 + a)*q^146 + 1/2*(a^7 -
        a^6 + a - 1)*q^149 + 1/2*(a^4 + a)*q^150 + 1/4*(-a^7 + a^5 - 2*a^3 + 
        a)*q^160 + 1/2*(-a^7 - a^6 + a^4 - a^3 + 1)*q^161 + 1/2*(-a^4 - 
        a^3)*q^164 + 1/2*(a^5 - a^3 + a)*q^166 + 1/2*(a^6 - 2*a^4 + a^2 - 
        1)*q^169 + 1/4*(a^7 + a^6 - a^5 - a^4 - a - 1)*q^170 + 1/2*(-a^6 - 
        a^2)*q^174 + 1/4*(-2*a^7 + 4*a^5 + a^4 - 2*a^3 + 2*a^2 + 2*a + 1)*q^180 
        + 1/2*(-a^3 - a^2 + a + 1)*q^181 + 1/2*(-a^7 - a^3 + a)*q^184 + 
        1/4*(-2*a^6 + 2*a^4 - a^2)*q^185 + 1/2*(a^7 - 2*a^5 + 2*a^4 + 2*a^3 - 
        a^2 + 2)*q^189 + 1/2*(a^3 + 1)*q^194 + a^5*q^196 + 1/4*(a^2 + 1)*q^200 +
        1/2*(-a^6 - a^2 + 1)*q^201 + 1/4*(-a^7 + 2*a^6 - 2*a^4 + 2*a^2 + a - 
        2)*q^205 + 1/2*(a^6 - a^4)*q^206 + 1/2*(a^6 - a^4 + 2*a^2 - 1)*q^214 + 
        1/2*(-a^7 + a^6 + a^3 + 1)*q^216 + 1/2*(a^7 - 2*a^5 - a^4 + a^3 + a^2 - 
        a - 1)*q^221 + 1/2*(a^7 + a^2)*q^224 + 1/4*(-2*a^7 - 2*a^4 + a^3 - a + 
        2)*q^225 + 1/2*(a^3 - a)*q^226 + 1/2*(a^7 - a^5 + a^4 - a^2 + 1)*q^229 +
        1/2*(-a^4 - 1)*q^230 + 1/2*(a^7 + 1)*q^234 + 1/2*(-a^6 + 2*a^4 - 
        2*a^2)*q^241 + O(q^242),
    q^2 + 1/2*(a^5 - a)*q^5 - a^6*q^8 + 1/2*(-a^7 + a^5 + a)*q^10 + (-a^7 + a^6 
        + a^5 - a^3 + a)*q^13 + (-a^4 - a^3)*q^17 + a^5*q^18 + 1/2*(a^7 + 
        a)*q^20 + 1/2*(a^6 - a^4 + a^2 - 2)*q^25 - a^2*q^32 + (-a^5 + a^3 - 
        a)*q^37 + 1/2*(-a^7 - a^3 + a)*q^40 + 1/2*(-a^6 - 1)*q^45 + 1/2*(a^4 - 
        a^2 + 1)*q^50 + (-a^5 + a^2)*q^52 + (a^6 - a^5)*q^53 + (-a^6 - a)*q^58 +
        1/2*(a^7 - a^6 + a^4 + a^3 - a + 1)*q^65 + (a^7 - a^5 + a^3 - a - 
        1)*q^68 + a*q^72 + (a^3 + a)*q^73 + 1/2*(-a^7 + a^3)*q^80 + (-a^6 + a^4 
        - a^2 + 1)*q^82 + 1/2*(-a^7 - a^6 - a^3 - a^2)*q^85 + 1/2*(a^6 + a^2 - 
        1)*q^90 + (a^7 + a^4)*q^97 + (a^7 - a^5 + a^3 - a)*q^98 + 1/2*(a^6 + 
        a^4)*q^100 + (a^7 - a^5)*q^113 + (a^4 - a)*q^117 + (2*a^6 - a^4 + a^2 - 
        1)*q^122 + 1/2*(a^7 - a^5 + a^3 - 2*a)*q^125 + (a^6 - a^4 + a^2 - 
        1)*q^128 + 1/2*(a^7 + a^6 - a^3 + 1)*q^130 + (-a^6 + a^3)*q^137 + 
        1/2*(a^7 - a^6 + a^2 + a)*q^145 + (a^5 - a^3)*q^148 + (-a^7 - a^6 + a^5 
        + a^4 - a^3 - a^2 + a + 1)*q^153 + (a^6 + a^5 - a^4 + a^2 - 1)*q^157 + 
        1/2*(-a^5 - a)*q^160 - q^162 + 1/2*(-a^5 - a^4 + a + 1)*q^170 + (a^4 + 
        1)*q^173 + (-a^7 + a^2)*q^178 + 1/2*(a^6 - a^2)*q^180 - 1/2*a^4*q^185 + 
        (a + 1)*q^193 + (-a^6 - a^2 + 1)*q^197 + 1/2*(-a^4 + a^2)*q^200 + (-a^7 
        + a^5 - a^3 + a - 1)*q^202 + 1/2*(a^7 - a^5 + 2*a^3 - a)*q^205 + (-a^6 +
        a^4 - a^2 - a + 1)*q^208 + (a^2 - a)*q^212 + (-a^3 - a^2)*q^218 + 
        1/2*(-a^5 - a^3)*q^225 + (a^7 - a^2)*q^232 + (-a^7 + a^6 - a^4 + a^2 - 
        1)*q^233 + O(q^242),
    q^3 + 1/2*(2*a^6 + a^5 - 2*a^4 - 2*a^3 + a^2 + 2*a)*q^5 + (a^7 - 2*a^5 - a^4
        + a^3 + 2*a^2 - a - 1)*q^7 + (-2*a^7 + 2*a^5 + 2*a^4 - 2*a^3 - 
        2*a^2)*q^8 + 1/2*(2*a^6 + 2*a^5 - 2*a^4 - 3*a^3 + 2*a + 1)*q^10 + 
        a^6*q^12 + (2*a^7 - 2*a^5 - 2*a^4 + a^3 + 2*a^2)*q^13 + a*q^15 + (a^7 - 
        2*a^5 - a^4 + 2*a^3 + 2*a^2 - a - 2)*q^17 + (-a^7 + a^5 - a^3 + a^2 + 
        a)*q^18 + 1/2*(-a^6 - 2*a^5 + a^4 + 2*a^3 + a^2 - a - 1)*q^20 + (a^7 - 
        a^4)*q^23 + 1/2*(-a^6 + a^5 + 2*a^4 - a^2 - a + 1)*q^25 + (-a^6 + a^4 - 
        2*a^2 + 1)*q^27 + (a^6 - a^5 - 2*a^4 + 2*a^2 + a - 1)*q^28 + (-a^6 - a^5
        + 2*a^3 - a - 1)*q^35 + (-a^7 + 2*a^5 + a^4 - a^3 - 2*a^2 + 1)*q^37 + 
        1/2*(a^7 - a^6 + a^5 - a^3 - 2*a^2 - a + 2)*q^40 + (-a^5 - 1)*q^42 + 
        (a^7 - a^6 - 2*a^5 + a^3 + a^2 - a)*q^43 + 1/2*(-a^7 + 2*a^5 + 2*a^4 - 
        2*a^3 - 2*a^2 + 1)*q^45 + (-a^6 - a^5 + a^4 + 2*a^3 + a^2 - a - 1)*q^47 
        - a^2*q^48 + 1/2*(3*a^7 + 3*a^6 - 3*a^5 - 4*a^4 + 3*a^2 + a)*q^50 + 
        (-a^7 - 2*a^6 + a^5 + 2*a^4 + a^3 - 2*a^2 - a)*q^52 + (a^7 - a^6 - a^5 +
        2*a^3 - a)*q^53 + (-a^7 + a^6 - a^4 + a^2 + a - 2)*q^58 + a^7*q^60 + 
        (a^7 + 2*a^6 - 2*a^4 + a^2)*q^63 + 1/2*(-2*a^7 + a^6 + 2*a^5 - 2*a^3 - 
        a^2 + 2*a)*q^65 + (-2*a^7 - a^6 + 2*a^5 + 2*a^4 - 2*a^2)*q^67 + (-a^7 + 
        2*a^5 + 2*a^4 - a^3 - 2*a^2 + 1)*q^68 + (-a^6 - a^5 + a^4 + 2*a^3 + a^2 
        - 2*a - 1)*q^72 + (-a^7 - a^6 + 2*a^4 - a^2 - a + 1)*q^73 + a^2*q^75 + 
        1/2*(-a^7 + 2*a^5 + a^4 - 2*a^3 - 2*a^2 + 2)*q^80 + (a^6 + a^5 - a^4 - 
        2*a^3 - a^2 + a + 1)*q^82 + (-a^7 + a^6 + 2*a^5 - 2*a^3 - a^2 + a + 
        1)*q^83 + 1/2*(a^7 + a^6 - a^4 - a^3)*q^85 + (-a^7 - 1)*q^87 + 
        1/2*(-2*a^7 - a^6 + 3*a^5 + 3*a^4 - 3*a^2 + 3)*q^90 + (-a^3 + 1)*q^92 + 
        a*q^97 + (-2*a^7 + 2*a^5 + 2*a^4 - 2*a^2)*q^98 + 1/2*(a^7 - a^4 + a + 
        1)*q^100 + (a^6 + a^5 - 2*a^3 - a^2 + a + 1)*q^103 + (2*a^7 + a^6 - 
        2*a^5 - 2*a^4 + a^3 + 2*a^2)*q^107 + (-a^6 + 2*a^4 - a^2 + 1)*q^108 + 
        (a^7 + a^6 - 2*a^4 + a^2 + a)*q^112 + (-a^6 - a^5 + a^4 + 2*a^3 - a - 
        1)*q^113 + (a^6 - a^5 - a^4 + a^2 - 1)*q^115 + (a^6 + 2*a^5 - a^4 - 
        2*a^3 - a^2 + 2*a + 1)*q^117 + (2*a^7 - 2*a^6 - 2*a^5 + 3*a^3 + a^2 - 
        2*a)*q^122 + a^7*q^123 + 1/2*(-a^7 + a^6 + 2*a^5 - a^3 - a^2 + a)*q^125 
        + (-a^7 + 2*a^5 + 2*a^4 - 2*a^3 - 2*a^2 + 1)*q^127 + (-2*a^6 + 2*a^4 + 
        2*a^3 - 2*a)*q^128 + 1/2*(2*a^7 - 4*a^5 - 3*a^4 + 4*a^3 + 4*a^2 - 
        3)*q^130 + (-a^7 + a^5 - 2*a^3 + a)*q^135 + (-2*a^7 + 2*a^5 + 2*a^4 - 
        2*a^3 - 2*a^2 + 1)*q^137 + (a^7 - a^5 - a)*q^138 + (a^7 - a^6 - 2*a^5 + 
        2*a^3 + a^2 - a)*q^140 + 1/2*(-2*a^7 - 2*a^6 + 3*a^4 + a^3 - a^2 - a - 
        1)*q^145 + (-a^7 + a^5 - a^3 + a)*q^147 + (a^7 + a^6 - a^5 - 2*a^4 + 
        2*a^2 + a - 1)*q^148 + (a^7 + a^6 - a^5 - 2*a^4 - a^3 + a^2 + a)*q^153 +
        a^2*q^157 + 1/2*(-2*a^7 + 3*a^5 + 2*a^4 - 2*a^3 - 3*a^2 + 2)*q^160 + (-a
        + 1)*q^162 + (a^6 + a^5 - a^4 - 2*a^3 + 2*a + 1)*q^167 + (-a^6 + 
        a)*q^168 + 1/2*(-2*a^6 - 3*a^5 + a^4 + 4*a^3 + a^2 - 3*a - 2)*q^170 + 
        (a^6 - a^5 - a^4 + 2*a^2 + a - 1)*q^172 + (-a^4 + a)*q^173 + (-a^7 - a^6
        + 2*a^4 - a^2 - a)*q^175 + (-a^7 - 2*a^6 + 3*a^5 + 2*a^4 - a^3 - 4*a^2 +
        2)*q^178 + 1/2*(2*a^7 + a^6 - 2*a^5 - 2*a^4 + a^3 + 2*a^2)*q^180 + (a^7 
        + a^3 - a)*q^183 + 1/2*(-a^5 + a^3 + a^2 - a - 1)*q^185 + (a^7 - 2*a^5 -
        a^4 + 2*a^3 + 2*a^2 - a - 2)*q^188 + (-a^6 + a^4 - a^2 + 1)*q^192 + 
        (-a^6 - 2*a^5 + 2*a^3 + a^2 - a - 1)*q^193 + (a^6 - a^5 - a^4 + a^2 - 
        1)*q^197 + 1/2*(-a^7 + a^6 - a^4 - a^3 + a - 1)*q^200 + (a^7 + a^6 + a^5
        - a^4 - 3*a^3 + 2*a + 2)*q^202 + (-2*a^7 + a^6 + 4*a^5 + a^4 - 3*a^3 - 
        3*a^2 + 2*a + 1)*q^203 + 1/2*(-2*a^7 + 2*a^5 + 2*a^4 - a^3 - 2*a^2 + 
        1)*q^205 + (a^6 + a^5)*q^207 + (2*a^6 + a^5 - 2*a^4 - 2*a^3 + 2*a)*q^208
        + (-a^6 - a)*q^210 + (-a^7 + 2*a^5 - a^3 - a^2 + a)*q^212 + (-a^7 - a^6 
        + a^3 - 1)*q^215 + (2*a^7 + 2*a^6 - 3*a^5 - 3*a^4 + a^3 + 3*a^2 + a - 
        2)*q^218 + (-a^7 - a^6 + 2*a^4 + a^3 - a^2 - a)*q^223 + 1/2*(a^7 - a^6 -
        a^5 + 2*a^3 - a - 1)*q^225 + (2*a^6 - 2*a^4 - 2*a^3 + a^2 + 2*a)*q^227 +
        (3*a^7 + a^6 - 4*a^5 - 3*a^4 + 3*a^3 + 4*a^2 - 2)*q^232 + (-a^6 + a^5 + 
        a^4 - a^2 - a + 1)*q^233 + (-a^7 - a^6 + a^5 + 2*a^4 + a^3 - a^2 - 
        a)*q^235 - a^3*q^240 + O(q^242),
    q^4 + 1/4*(a^7 - 2*a^5 + a^3)*q^5 + 1/2*(-a^6 - a^3)*q^6 + 1/2*(2*a^7 + a^6 
        - 2*a^5 + 2*a^3 - a^2 - 2*a)*q^9 + 1/4*(a^5 - a)*q^10 + 1/2*(a^7 - a^5 +
        a^4 + a^3 - a)*q^14 + 1/4*(-a^7 + a^5 + 3*a)*q^20 + 1/2*(-a^7 + a^5 + 
        a^2 + 1)*q^21 + 1/2*(-a^7 + a^5 - a^3 + a^2 + a)*q^24 + 1/4*(-2*a^6 + 
        a^2 - 1)*q^25 + 1/2*(-a^7 + a^6 + a^5 - a^3 + a)*q^26 + 1/2*(-a^5 + a^4 
        - a + 1)*q^29 + 1/2*(-a^7 - a^4)*q^30 + 1/2*(-a^4 - a^3)*q^34 + 
        1/2*(-a^6 + a^4 - 2*a^2 + 1)*q^36 + 1/4*(a^7 + a)*q^40 + 1/2*(a^2 + 
        a)*q^41 + 1/4*(2*a^7 + a^6 - a^4 - 2*a^3 - 3)*q^45 + 1/2*(a^7 + 
        a^3)*q^46 - a^3*q^49 + 1/4*(a^6 - a^4 + a^2 - 2)*q^50 + 1/2*(a^6 + a^5 -
        2*a^4 + a^2 - a - 1)*q^54 + 1/2*(-a^5 - 1)*q^56 + 1/2*(-a^7 + a^5 - a^2 
        + a - 1)*q^61 - a^2*q^64 + 1/4*(-a^7 + a^4 - a - 1)*q^65 + 1/2*(-a^7 - 
        a^6 + a^5 + a + 1)*q^69 + 1/2*(a^5 - 1)*q^70 + 1/2*(-a^5 + a^3 - a)*q^74
        + 1/4*(a^7 - a^3 + a)*q^80 + 1/2*(a^7 - a^6 + a^4 - a^2 + a)*q^81 + 
        1/2*(2*a^6 - a^4 + a^3 + a^2 - a - 1)*q^84 + 1/4*(-a^7 - a^6 + 2*a^5 + 
        2*a^4 - a^3 - a^2 + a + 1)*q^85 + 1/2*(a^7 - a^5 + a^3 - 2*a)*q^86 + 
        1/2*(-a^7 + 2*a^6 + a^5 - a^4 - a^3 + a^2 + 2*a - 1)*q^89 + 1/4*(-a^6 - 
        1)*q^90 + 1/2*(-a^7 - a^6 + a^4 - a^2 + 1)*q^94 + 1/2*(a^6 + a^5 - a^4 +
        a^2 - 1)*q^96 + 1/4*(a^4 + a^2 + 1)*q^100 + 1/2*(a^7 + a^6 - a^5 - 2*a^4
        + 2*a^3 + a^2 - a - 1)*q^101 + 1/2*(-a^5 + a^2)*q^104 + 1/2*(a^4 + a^3 -
        a^2 + a + 1)*q^105 + 1/2*(a^6 - a^5)*q^106 + 1/2*(-a^7 - a^6 + a^2 - 
        a)*q^109 + 1/2*(-a^7 - a^6 - a - 1)*q^116 + 1/2*(a^3 + 1)*q^120 + 
        1/4*(-2*a^7 - a^3 + a)*q^125 + 1/2*(-a^6 + a^5 + a^4 - a^3 + a^2 + 
        2*a)*q^126 + 1/2*(a^7 + a^5 + a^4 + a^2)*q^129 + 1/4*(a^7 - a^6 + a^4 + 
        a^3 - a + 1)*q^130 + 1/2*(-a^7 + a^5 - a^3 - a^2 + a)*q^134 + 1/2*(a^7 -
        a^5 + a^3 - a - 1)*q^136 + 1/2*(-a^4 - a^3 - a - 1)*q^141 + 1/2*(-a^6 + 
        2*a^4 - a^2 + 2*a + 1)*q^144 + 1/4*(-a^7 - a^6 + 3*a^5 - 3*a^2 + a + 
        1)*q^145 + 1/2*(a^3 + a)*q^146 + 1/2*(-a^5 - a^4 - a - 1)*q^149 + 
        1/2*(-a^6 - a^5 + a^4 - a^2 + 1)*q^150 + 1/4*(-a^7 + a^3)*q^160 + 
        1/2*(a^7 - a^6 - a^2 - a)*q^161 + 1/2*(a^7 - a^6 + a^4 - a^2 + 1)*q^164 
        + 1/2*(-a^3 + a)*q^166 + 1/2*(-a^6 + 2*a^5 + a^4 - 2*a^2 + 1)*q^169 + 
        1/4*(-a^7 - a^6 - a^3 - a^2)*q^170 + 1/2*(a^6 - 1)*q^174 + 1/4*(-2*a^7 -
        a^6 + 2*a^5 - 4*a^3 + a^2 + 2*a - 1)*q^180 + 1/2*(-a^7 + a^6 - a^5 + 
        a^4)*q^181 + 1/2*(a^7 - a^5 - a)*q^184 + 1/4*(a^6 - 2*a^4 + 2*a^2)*q^185
        + 1/2*(-a^6 - 2*a^5 + 2*a^3 - 2*a^2 - a + 2)*q^189 + 1/2*(a^7 + 
        a^4)*q^194 + 1/4*(a^6 + a^4)*q^200 + 1/2*(a^6 - a^4 - 1)*q^201 + 
        1/4*(a^5 + 2*a^2 + a)*q^205 + 1/2*(a^6 - a^4 + a^2)*q^206 + 1/2*(-a^6 + 
        a^2)*q^214 + 1/2*(-a^7 - a^4 - a + 1)*q^216 + 1/2*(-a^7 + a^5 - 2*a^3 - 
        a^2 + a + 1)*q^221 + 1/2*(-a^6 + a)*q^224 + 1/4*(a^7 + 2*a^6 - a^5 - 
        4*a^4 + 2*a^2 - 2*a - 2)*q^225 + 1/2*(a^7 - a^5)*q^226 + 1/2*(-a^7 + a^5
        - a^3 + a^2 + 2*a + 1)*q^229 + 1/2*(a^6 + a^2 - 1)*q^230 + 1/2*(a^4 - 
        a)*q^234 + 1/2*(2*a^6 + 2*a^2 - 1)*q^241 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^3*q^2 - a*q^4 + (a^3 - a^2 + a - 1)*q^8 - q^9 + (a^3 - 2*a^2 + a - 
        1)*q^13 + a^2*q^16 + (a^2 + a)*q^17 + a^3*q^18 - a^2*q^25 + (a^2 - 
        1)*q^26 + q^32 + (-a^3 + a^2 - a + 2)*q^34 + a*q^36 + (-a^2 - 1)*q^37 - 
        a^3*q^41 + (-a^3 + a^2 - a + 1)*q^49 - q^50 + (a^3 + 1)*q^52 + (2*a^3 - 
        a^2 + a - 1)*q^53 + (-a^3 - a)*q^61 - a^3*q^64 + (-a^3 - a^2)*q^68 + 
        (-a^3 + a^2 - a + 1)*q^72 + (-a^3 + a^2 + 1)*q^73 + (a^3 - 1)*q^74 + 
        q^81 - a*q^82 + (a^2 - 1)*q^97 - a^2*q^98 + a^3*q^100 + (-a^3 + a^2 - a 
        + 2)*q^101 + (-a^3 + a)*q^104 + (a^2 + a)*q^106 + (a^3 + a^2)*q^109 + 
        (a^3 - 1)*q^113 + (-a^3 + 2*a^2 - a + 1)*q^117 + a^3*q^121 + (a^3 - a^2 
        - 1)*q^122 + (-a + 1)*q^125 - a*q^128 + (-a - 1)*q^136 + (a^3 - a^2 + 
        2*a - 1)*q^137 - a^2*q^144 + (-a^3 - a + 1)*q^146 + (a^3 + a)*q^148 + 
        (-a^2 + 1)*q^149 + (-a^2 - a)*q^153 + (a^3 - a)*q^157 - a^3*q^162 + (a^3
        - a^2 + a - 1)*q^164 + (-a^2 + 2*a - 1)*q^169 + (-a^3 + a^2)*q^173 + 
        (a^3 + 1)*q^181 + (-2*a^3 + a^2 - a + 1)*q^193 + (a^3 + 1)*q^194 - q^196
        + (a^2 - a)*q^197 + a*q^200 + (-a^3 - a^2)*q^202 + (-a^3 + a^2 - 2*a + 
        1)*q^208 + (-a^3 + a^2 - a + 2)*q^212 + (a + 1)*q^218 + (-2*a^3 + a^2 - 
        2*a)*q^221 + a^2*q^225 + (a^3 + a)*q^226 + (-a^3 - 1)*q^229 + (-a - 
        1)*q^233 + (-a^2 + 1)*q^234 + (-a^2 + a - 1)*q^241 + O(q^242),
    q^5 - a^3*q^10 - a*q^20 + (a^2 - a + 1)*q^25 + (a^3 - a^2 + a - 1)*q^40 - 
        q^45 + (-a^2 + a)*q^50 + (a^3 - 2*a^2 + a - 1)*q^65 + a^2*q^80 + (a^2 + 
        a)*q^85 + a^3*q^90 + (-a^3 + a^2 - a)*q^100 + (-a^3 + a^2 - a)*q^125 + 
        (a^2 - 1)*q^130 + q^160 + (-a^3 + a^2 - a + 2)*q^170 + a*q^180 + (-a^2 -
        1)*q^185 + (a^3 - a^2)*q^200 - a^3*q^205 + (-a^2 + a - 1)*q^225 + 
        O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + a*q^5 + (-a^3 + 2*a^2 - a + 1)*q^6 + (-a^3 + a^2 - 1)*q^9 + 
        a^2*q^16 - a^2*q^20 + (-a^3 - 1)*q^24 + a^2*q^25 + (-a^2 + 1)*q^29 + 
        (a^3 + 1)*q^30 + (-a^2 + 2*a - 1)*q^36 - a^2*q^41 + (a^2 - 2*a + 1)*q^45
        + (a^2 - a + 1)*q^46 + (a^3 - a^2 + a - 1)*q^49 + (a^3 - 2*a^2 + 
        2*a)*q^54 + (-a^3 + a^2 - a)*q^61 - a^3*q^64 + (-a^3 + 2*a^2 - 2*a)*q^69
        + a^3*q^80 + (2*a^3 - 2*a^2)*q^81 + (-a^2 - 1)*q^86 + (a^3 - a^2 + a - 
        2)*q^89 + (2*a^3 - a^2 + a - 1)*q^94 + (a^3 - a^2 + 2*a - 1)*q^96 - 
        a^3*q^100 + (a^3 - a^2 + a - 2)*q^101 + (-a^3 - a^2)*q^109 + (a^3 - 
        a)*q^116 + (-a^3 + a^2 - 2*a + 1)*q^120 + a^3*q^121 + a^3*q^125 + (a + 
        1)*q^129 + (-a^3 - 1)*q^134 + (-a^3 - 2*a + 2)*q^141 + (a^3 - 2*a^2 + 
        a)*q^144 + (-a^3 + a)*q^145 + (a^3 - a^2 + 2*a - 1)*q^150 + a^3*q^164 + 
        (-a^3 - a + 1)*q^166 + a*q^169 + (-2*a^3 + 3*a^2 - 3*a + 2)*q^174 + 
        (-a^3 + 2*a^2 - a)*q^180 + (a^2 + a)*q^181 + (-a^3 + a^2 - a)*q^184 + 
        q^196 + (-a^2 + 3*a - 1)*q^201 - a^3*q^205 + (a^3 - a^2 - 1)*q^206 + 
        (-a^3 + a^2)*q^214 + (a^3 - a^2 - a + 1)*q^216 + (a^3 - 2*a^2 + a)*q^225
        + (-a^2 - a)*q^229 + (a^3 - a^2 + a)*q^230 + (a^2 + 1)*q^241 + O(q^242),
    q^2 + (a^3 - a)*q^3 - a*q^8 + a*q^10 + (-a^3 + 2*a^2 - a + 1)*q^12 + (a^3 - 
        2*a^2 + a - 1)*q^15 + (-a^3 + a^2 - 1)*q^18 + (a^3 - a^2)*q^23 + (-a^2 +
        2*a - 2)*q^27 + a^2*q^32 - a^2*q^40 + (-a^3 + a^2 + 1)*q^43 + (-a^3 - 
        a^2)*q^47 + (-a^3 - 1)*q^48 + a^2*q^50 + (-a^2 + 1)*q^58 + (a^3 + 
        1)*q^60 + (-a^3 + 2*a^2 - a + 1)*q^67 + (-a^2 + 2*a - 1)*q^72 + (-a^3 - 
        1)*q^75 - a^2*q^82 + (a^3 + a)*q^83 + (2*a^3 - a + 1)*q^87 + (a^2 - 2*a 
        + 1)*q^90 + (a^2 - a + 1)*q^92 + (a^3 - a^2 + a - 1)*q^98 + (-a^3 + 
        1)*q^103 + (a^2 - a)*q^107 + (a^3 - 2*a^2 + 2*a)*q^108 + (-a^2 + a - 
        1)*q^115 + (-a^3 + a^2 - a)*q^122 + (a^3 + 1)*q^123 + (-a + 1)*q^127 - 
        a^3*q^128 + (-a^3 + 2*a^2 - 2*a)*q^135 + (-a^3 + 2*a^2 - 2*a)*q^138 + 
        (-a^2 + 1)*q^147 + a^3*q^160 + (2*a^3 - 2*a^2)*q^162 + 2*a^2*q^163 + 
        (a^3 - a^2 + a - 2)*q^167 + (-a^2 - 1)*q^172 + (a^3 - a^2 + a - 2)*q^178
        + (-a^3 + a^2 + a - 1)*q^183 + (2*a^3 - a^2 + a - 1)*q^188 + (a^3 - a^2 
        + 2*a - 1)*q^192 - a^3*q^200 + (a^3 - a^2 + a - 2)*q^202 + (-2*a^3 + 
        2*a^2 - 1)*q^207 + (a^2 + 1)*q^215 + (-a^3 - a^2)*q^218 + (-a^3 + a^2 + 
        1)*q^223 + (-a^3 - 1)*q^227 + (a^3 - a)*q^232 + (-2*a^3 + a^2 - a + 
        1)*q^235 + (-a^3 + a^2 - 2*a + 1)*q^240 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^2*q^2 - q^4 - a^3*q^5 + a^2*q^8 - a*q^9 - a*q^10 + (-a + 1)*q^13 + 
        q^16 + (-a^3 - 1)*q^17 + a^3*q^18 + a^3*q^20 - a^2*q^25 + (a^3 - 
        a^2)*q^26 + (a^3 + 1)*q^29 - a^2*q^32 + (a^2 - a)*q^34 + a*q^36 + a*q^40
        + a^2*q^41 - q^45 + a*q^49 - q^50 + (a - 1)*q^52 + (-a - 1)*q^53 + (-a^2
        + a)*q^58 + (a^2 + 1)*q^61 - q^64 + (-a^3 - 1)*q^65 + (a^3 + 1)*q^68 - 
        a^3*q^72 + (-a^3 + a)*q^73 - a^3*q^80 + a^2*q^81 + q^82 + (a^3 - 
        a^2)*q^85 + (a^2 + a)*q^89 + a^2*q^90 + (-a^2 + a)*q^97 - a^3*q^98 + 
        a^2*q^100 + (a^3 - a^2)*q^101 + (-a^3 + a^2)*q^104 + (a^3 + a^2)*q^106 +
        (a + 1)*q^109 + 2*a*q^113 + (-a^3 - 1)*q^116 + (a^2 - a)*q^117 + 
        a^3*q^121 + (-a^2 + 1)*q^122 - a*q^125 + a^2*q^128 + (a^2 - a)*q^130 + 
        (-a^2 + a)*q^136 + (-a^2 - a)*q^137 - a*q^144 + (-a^3 + a^2)*q^145 + 
        (-a^3 - a)*q^146 + (-a^3 - a^2)*q^149 + (a - 1)*q^153 + (a^3 + 
        a^2)*q^157 - a*q^160 + q^162 - a^2*q^164 + (a^2 - a + 1)*q^169 + (a - 
        1)*q^170 - 2*a^2*q^173 + (-a^3 + 1)*q^178 + q^180 + (-a - 1)*q^181 + 
        (a^3 + a^2)*q^193 + (-a^3 - 1)*q^194 - a*q^196 + q^200 + (a - 1)*q^202 +
        a*q^205 + (-a + 1)*q^208 + (a + 1)*q^212 + (-a^3 - a^2)*q^218 + (-a^3 + 
        a - 2)*q^221 + a^3*q^225 - 2*a^3*q^226 + (a^3 - a^2)*q^229 + (a^2 - 
        a)*q^232 + (a^3 - a^2)*q^233 + (a^3 + 1)*q^234 + (-a^2 - 1)*q^241 + 
        O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^2 + q^4 - a^3*q^5 - q^8 + a*q^9 + a^3*q^10 + (-a^3 + a^2)*q^13 + q^16 
        + (a^2 - a)*q^17 - a*q^18 - a^3*q^20 - a^2*q^25 + (a^3 - a^2)*q^26 + 
        (-a^3 - 1)*q^29 - q^32 + (-a^2 + a)*q^34 + a*q^36 + a^3*q^40 + a^2*q^41 
        + q^45 - a*q^49 + a^2*q^50 + (-a^3 + a^2)*q^52 + (-a^3 - a^2)*q^53 + 
        (a^3 + 1)*q^58 + (a^2 + 1)*q^61 + q^64 + (-a^2 + a)*q^65 + (a^2 - 
        a)*q^68 - a*q^72 + (a^3 + a)*q^73 - a^3*q^80 + a^2*q^81 - a^2*q^82 + (a 
        - 1)*q^85 + (-a^2 - a)*q^89 - q^90 + (-a^3 - 1)*q^97 + a*q^98 - 
        a^2*q^100 + (a^3 - a^2)*q^101 + (a^3 - a^2)*q^104 + (a^3 + a^2)*q^106 + 
        (-a - 1)*q^109 + 2*a^3*q^113 + (-a^3 - 1)*q^116 + (a^3 + 1)*q^117 + 
        a^3*q^121 + (-a^2 - 1)*q^122 - a*q^125 - q^128 + (a^2 - a)*q^130 + (-a^2
        + a)*q^136 + (a^3 - 1)*q^137 + a*q^144 + (a^3 - a^2)*q^145 + (-a^3 - 
        a)*q^146 + (a^3 + a^2)*q^149 + (a^3 - a^2)*q^153 + (a + 1)*q^157 + 
        a^3*q^160 - a^2*q^162 + a^2*q^164 + (-a^2 + a - 1)*q^169 + (-a + 
        1)*q^170 + 2*q^173 + (a^2 + a)*q^178 + q^180 + (-a - 1)*q^181 + (-a - 
        1)*q^193 + (a^3 + 1)*q^194 - a*q^196 + a^2*q^200 + (-a^3 + a^2)*q^202 + 
        a*q^205 + (-a^3 + a^2)*q^208 + (-a^3 - a^2)*q^212 + (a + 1)*q^218 + 
        (-a^3 + a - 2)*q^221 - a^3*q^225 - 2*a^3*q^226 + (-a^3 + a^2)*q^229 + 
        (a^3 + 1)*q^232 + (-a + 1)*q^233 + (-a^3 - 1)*q^234 + (-a^2 - 1)*q^241 +
        O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 + a^2*q^4 - a^3*q^8 + q^9 + (-a^2 + a - 1)*q^13 + (a^3 - a^2 + a -
        1)*q^16 + (a^3 + a - 1)*q^17 - a*q^18 + (-a^3 + a^2 - a + 1)*q^25 + (a^3
        - a^2 + a)*q^26 + 2*a^2*q^29 + q^32 + (-a^3 + 1)*q^34 + a^2*q^36 + (a^3 
        - a^2 + a)*q^37 - a*q^41 - a^3*q^49 - q^50 + (-a + 1)*q^52 + (-a^3 - 
        a)*q^53 - 2*a^3*q^58 + (a^2 - a)*q^61 - a*q^64 + (a^3 - a^2 - 1)*q^68 - 
        a^3*q^72 + (-a^3 + a^2)*q^73 + (-a + 1)*q^74 + q^81 + a^2*q^82 + (2*a^3 
        - 2*a^2 + 2*a - 2)*q^89 + (a^3 - a^2 + a)*q^97 + (a^3 - a^2 + a - 
        1)*q^98 + a*q^100 + (-a^3 + 1)*q^101 + (a^2 - a)*q^104 + (a^3 + a - 
        1)*q^106 + (a^3 - a^2 - 1)*q^109 + (-a + 1)*q^113 + (2*a^3 - 2*a^2 + 2*a
        - 2)*q^116 + (-a^2 + a - 1)*q^117 - a*q^121 + (-a^3 + a^2)*q^122 + (-a^2
        - 1)*q^125 + a^2*q^128 + (a^2 + 1)*q^136 + (-a^3 + a^2)*q^137 + (a^3 - 
        a^2 + a - 1)*q^144 + (-a^2 + a - 1)*q^146 + (a^2 - a)*q^148 + (a^3 - a^2
        + a)*q^149 + (a^3 + a - 1)*q^153 + (a^2 - a)*q^157 - a*q^162 - a^3*q^164
        + (-a^3 + a^2 - a)*q^169 + (a^3 - a^2 - 1)*q^173 + 2*q^178 + (-a + 
        1)*q^181 + (-a^3 - a)*q^193 + (-a + 1)*q^194 + q^196 + (a^3 + a - 
        1)*q^197 - a^2*q^200 + (a^3 - a^2 - 1)*q^202 + (-a^3 + a^2)*q^208 + 
        (-a^3 + 1)*q^212 + (a^2 + 1)*q^218 + (-a^3 + a^2 - a + 1)*q^221 + (-a^3 
        + a^2 - a + 1)*q^225 + (a^2 - a)*q^226 + (-a + 1)*q^229 + 2*q^232 + (a^2
        + 1)*q^233 + (a^3 - a^2 + a)*q^234 + (-a^3 - a)*q^241 + O(q^242),
    q^5 - a*q^10 + a^2*q^20 + (-a^3 - a)*q^25 - a^3*q^40 + q^45 + (a^3 + a - 
        1)*q^50 + (-a^2 + a - 1)*q^65 + (a^3 - a^2 + a - 1)*q^80 + (a^3 + a - 
        1)*q^85 - a*q^90 + (-a^3 + 1)*q^100 + (a^3 - 1)*q^125 + (a^3 - a^2 + 
        a)*q^130 + 2*a^2*q^145 + q^160 + (-a^3 + 1)*q^170 + a^2*q^180 + (a^3 - 
        a^2 + a)*q^185 + (a^3 - a^2 - 1)*q^200 - a*q^205 + (-a^3 - a)*q^225 + 
        O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^4 + a^2*q^5 + (-a^2 + a - 1)*q^6 + (a^3 - a^2)*q^9 + 2*q^14 + (a^3
        - a^2 + a - 1)*q^16 + (a^3 - a^2 + a - 1)*q^20 + (2*a^2 - 2*a)*q^21 + 
        (-a + 1)*q^24 + (a^3 - a^2 + a - 1)*q^25 + (a^3 - a^2 + a)*q^29 + (-a + 
        1)*q^30 + (-a^3 + a^2 - a)*q^36 + (a^3 - a^2 + a - 1)*q^41 + (-a^3 + a^2
        - a)*q^45 + (-a^3 - a)*q^46 - 3*a^3*q^49 + a*q^54 + 2*a^2*q^56 + (-a^3 +
        1)*q^61 - a*q^64 + a*q^69 + 2*a^2*q^70 - a*q^80 + (-2*a^2 + 2*a - 
        2)*q^84 + (a^3 - a^2 + a)*q^86 + (-a^3 + 1)*q^89 + (-a^3 - a)*q^94 + 
        (-a^3 + a^2)*q^96 - a*q^100 + (-a^3 + 1)*q^101 + (-2*a^2 + 2*a - 
        2)*q^105 + (a^3 - a^2 - 1)*q^109 + (a^2 - a)*q^116 + (-a^3 + a^2)*q^120 
        - a*q^121 - a*q^125 + (2*a^3 - 2*a^2)*q^126 + (a^2 - 2*a + 1)*q^129 + 
        (-a + 1)*q^134 + a*q^141 + (-a^2 + a)*q^144 + (a^2 - a)*q^145 + 
        2*a^2*q^149 + (-a^3 + a^2)*q^150 + (2*a^3 - 2*a^2 - 2)*q^161 - a*q^164 +
        (-a^2 + a - 1)*q^166 + a^2*q^169 + (-a^3 + a - 1)*q^174 + (-a^2 + 
        a)*q^180 + (a^3 + a - 1)*q^181 + (-a^3 + 1)*q^184 + (-2*a^3 + 2*a^2 - 
        2*a + 2)*q^189 + 3*q^196 + (-a^3 + 2*a^2 - a)*q^201 - a*q^205 + (-a^3 + 
        a^2)*q^206 + (a^3 - a^2 - 1)*q^214 + a^3*q^216 + (2*a^3 - 2*a^2 + 2*a - 
        2)*q^224 + (-a^2 + a)*q^225 + (a^3 + a - 1)*q^229 + (-a^3 + 1)*q^230 + 
        (a^3 - a^2 + a)*q^241 + O(q^242),
    q^2 + (a^2 - a)*q^3 - 2*a^3*q^7 + a^2*q^8 + a^2*q^10 + (-a^2 + a - 1)*q^12 +
        (-a^2 + a - 1)*q^15 + (a^3 - a^2)*q^18 + (a^3 - a^2 - 1)*q^23 + (-a^3 + 
        a^2 - a + 1)*q^27 + 2*q^28 + (a^3 - a^2 + a - 1)*q^32 + 2*q^35 + (a^3 - 
        a^2 + a - 1)*q^40 + (2*a^2 - 2*a)*q^42 + (-a^3 + a^2)*q^43 + (a^3 - a^2 
        - 1)*q^47 + (-a + 1)*q^48 + (a^3 - a^2 + a - 1)*q^50 + (a^3 - a^2 + 
        a)*q^58 + (-a + 1)*q^60 + (2*a - 2)*q^63 + (-a^2 + a - 1)*q^67 + (-a^3 +
        a^2 - a)*q^72 + (-a + 1)*q^75 + (a^3 - a^2 + a - 1)*q^82 + (a^2 - 
        a)*q^83 + (a^2 - 2*a + 1)*q^87 + (-a^3 + a^2 - a)*q^90 + (-a^3 - a)*q^92
        - 3*a^3*q^98 + (-a + 1)*q^103 + (a^3 + a - 1)*q^107 + a*q^108 + 
        2*a^2*q^112 + (-a^3 - a)*q^115 + (-a^3 + 1)*q^122 + (-a + 1)*q^123 + 
        (a^2 + 1)*q^127 - a*q^128 + a*q^135 + a*q^138 + 2*a^2*q^140 + (3*a^3 - 
        3*a^2 + 3*a)*q^147 - a*q^160 + (2*a^3 - 2*a^2 + 2*a - 2)*q^163 + (-a^3 +
        1)*q^167 + (-2*a^2 + 2*a - 2)*q^168 + (a^3 - a^2 + a)*q^172 + 
        2*a^2*q^175 + (-a^3 + 1)*q^178 + a^3*q^183 + (-a^3 - a)*q^188 + (-a^3 + 
        a^2)*q^192 - a*q^200 + (-a^3 + 1)*q^202 + (-2*a^3 + 2*a^2)*q^203 + q^207
        + (-2*a^2 + 2*a - 2)*q^210 + (a^3 - a^2 + a)*q^215 + (a^3 - a^2 - 
        1)*q^218 + (-a^3 + a^2)*q^223 + (-a + 1)*q^227 + (a^2 - a)*q^232 + (-a^3
        - a)*q^235 + (-a^3 + a^2)*q^240 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*(-a - 1)*q^6 + 1/2*(-a - 1)*q^14 + q^16 - a*q^20 - a*q^21 + 1/2*(a +
        1)*q^24 - q^25 + 1/2*(-a - 1)*q^26 + 1/2*(-a + 1)*q^30 + 1/2*(a - 
        1)*q^34 + a*q^36 + 1/2*(-a - 1)*q^41 + q^45 + a*q^46 + 1/2*(a + 1)*q^56 
        + a*q^61 + (a - 1)*q^69 + 1/2*(-a + 1)*q^70 + a*q^74 + a*q^84 + (a - 
        1)*q^89 + 1/2*(-a + 1)*q^94 + 1/2*(-a - 1)*q^96 + (-a - 1)*q^101 + 
        1/2*(-a - 1)*q^104 + q^105 + 1/2*(-a - 1)*q^106 + (a + 1)*q^109 + (-a + 
        1)*q^116 + 1/2*(a - 1)*q^120 - a*q^121 + 1/2*(a - 1)*q^126 + 1/2*(a - 
        1)*q^130 + 1/2*(a - 1)*q^134 + 1/2*(a - 1)*q^136 + q^141 + (-a - 
        1)*q^145 + 1/2*(a + 1)*q^150 + (a - 1)*q^161 + 1/2*(a - 1)*q^164 - 
        a*q^166 + 1/2*(a + 1)*q^170 + q^174 + (a + 1)*q^181 - a*q^184 + 1/2*(-a 
        + 1)*q^194 + a*q^196 - q^201 + 1/2*(a + 1)*q^205 - q^206 + q^221 + 
        1/2*(-a - 1)*q^224 - a*q^226 + (-a - 1)*q^229 - q^230 + 1/2*(-a + 
        1)*q^234 + O(q^242),
    q^2 + q^8 - a*q^10 + (-a - 1)*q^13 + (a - 1)*q^17 + a*q^18 + q^32 + 2*a*q^37
        - a*q^40 - q^50 + (-a - 1)*q^52 + (-a - 1)*q^53 + (-a + 1)*q^58 + (a - 
        1)*q^65 + (a - 1)*q^68 + a*q^72 - q^82 + (a + 1)*q^85 + q^90 + (-a + 
        1)*q^97 + a*q^98 - 2*a*q^113 + (-a + 1)*q^117 + q^128 + (-a + 1)*q^137 +
        2*a*q^148 + (-a - 1)*q^153 + (a + 1)*q^157 - a*q^160 - q^162 + 2*q^173 +
        (a - 1)*q^178 + 2*q^185 + (a + 1)*q^193 - 2*q^197 - q^200 + (-a - 
        1)*q^202 + (-a - 1)*q^208 + (-a - 1)*q^212 + (a + 1)*q^218 + (-a + 
        1)*q^232 + (a + 1)*q^233 + O(q^242),
    q^3 + q^7 + (a - 1)*q^8 + (a + 1)*q^10 - q^12 + q^13 + a*q^15 - a*q^17 + (-a
        - 1)*q^18 + (-a - 1)*q^23 - q^28 + a*q^35 + (-a - 1)*q^37 + (-a - 
        1)*q^42 + a*q^47 + q^48 + q^52 + q^53 + 2*a*q^58 - a*q^60 - a*q^63 - 
        a*q^65 - a*q^67 - a*q^68 - q^75 - a*q^82 + (a + 1)*q^83 - q^85 + (a - 
        1)*q^87 + (a + 1)*q^92 + a*q^97 + (-a - 1)*q^98 + (-a + 1)*q^103 + q^112
        + (a + 1)*q^113 + (-a + 1)*q^115 + a*q^117 + (a + 1)*q^122 - a*q^123 + 
        (a - 1)*q^128 + a*q^137 + 2*a*q^138 - a*q^140 - a*q^147 + (-a - 1)*q^148
        + q^153 - q^157 + (a + 1)*q^160 + (-a + 1)*q^162 - q^167 + (a + 1)*q^168
        + (a - 1)*q^173 - q^175 + 2*a*q^183 + (a - 1)*q^185 - a*q^188 - q^192 - 
        q^193 + (-a + 1)*q^197 + (-a + 1)*q^200 + (a - 1)*q^203 + (a - 1)*q^207 
        + q^208 + (-a + 1)*q^210 + q^212 + (-a - 1)*q^223 - a*q^227 - q^233 - 
        q^235 + a*q^240 + O(q^242),
    q^4 - a*q^5 + 1/2*(a + 1)*q^6 + a*q^9 + 1/2*(a + 1)*q^14 + a*q^21 + 1/2*(-a 
        - 1)*q^24 + 1/2*(-a - 1)*q^26 + (-a + 1)*q^29 + 1/2*(a - 1)*q^30 + 
        1/2*(a - 1)*q^34 + 1/2*(a - 1)*q^41 - a*q^46 + a*q^49 + 1/2*(-a - 
        1)*q^56 - a*q^61 + q^64 + (-a + 1)*q^69 + 1/2*(a - 1)*q^70 + a*q^74 - 
        a*q^80 - q^81 - a*q^84 + 1/2*(a - 1)*q^94 + 1/2*(a + 1)*q^96 - q^100 + 
        1/2*(-a - 1)*q^104 - q^105 + 1/2*(-a - 1)*q^106 + 1/2*(-a + 1)*q^120 + 
        a*q^125 + 1/2*(-a + 1)*q^126 + 1/2*(a - 1)*q^130 + 1/2*(-a + 1)*q^134 + 
        1/2*(a - 1)*q^136 - q^141 + a*q^144 + (-a - 1)*q^149 + 1/2*(-a - 
        1)*q^150 + (-a + 1)*q^161 + 1/2*(-a - 1)*q^164 + a*q^166 + a*q^169 + 
        1/2*(a + 1)*q^170 - q^174 + q^180 + a*q^184 + 1/2*(-a + 1)*q^194 + q^201
        + 1/2*(a - 1)*q^205 + q^206 + q^221 + 1/2*(a + 1)*q^224 - a*q^225 - 
        a*q^226 + q^230 + 1/2*(-a + 1)*q^234 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 + q^16 - q^18 - q^21 - q^25 - q^33 - q^37 + q^41 + q^42 + q^57 + 
        q^64 + q^66 - q^72 - q^73 - q^74 + q^77 - q^84 - q^98 - q^100 - q^113 - 
        q^114 + 2*q^122 + q^125 - q^132 - q^133 + q^141 - q^146 - q^148 - q^154 
        + q^162 + q^164 + q^168 + q^169 + 2*q^173 - q^201 - q^209 + q^213 - 
        q^226 + q^228 + q^237 + O(q^242),
    q^2 + q^8 - q^9 + q^21 + q^32 + q^33 - q^36 - q^37 - q^42 - q^49 - q^50 - 
        q^57 + 2*q^61 - q^66 - q^73 - q^74 - q^77 + q^81 + q^82 + q^84 - q^113 +
        q^114 - q^121 + q^125 + q^128 + q^132 + q^133 - q^141 - q^144 - q^146 - 
        q^148 + q^154 - q^168 - q^196 + 2*q^197 - q^200 + q^201 + q^209 - q^213 
        + q^225 - q^226 - q^228 - q^237 + 2*q^241 + O(q^242),
    q^3 - q^6 - q^7 - q^11 + q^12 + q^14 + q^19 + q^22 - q^24 - q^28 - q^38 - 
        q^44 + q^47 + q^48 + q^56 - q^63 - q^67 + q^71 - q^75 + q^76 + q^79 + 
        q^88 - q^94 - q^96 - q^99 - q^112 + q^123 + q^126 + q^134 - q^142 + 
        q^147 + q^150 + q^151 - q^152 - q^158 - q^167 + q^171 + q^175 - q^176 - 
        q^179 - 2*q^183 + q^188 - q^191 + q^192 + q^198 - q^199 - q^211 + q^224 
        + q^227 + 2*q^231 + q^239 + O(q^242),
    q^5 + q^20 - q^25 - q^50 + q^80 - q^90 - q^100 - q^105 + q^125 - q^165 - 
        q^185 - q^200 + q^205 + q^210 + q^225 + O(q^242),
    q^10 - q^25 + q^40 - q^45 - q^50 - q^100 + q^105 + 2*q^125 + q^160 + q^165 -
        q^180 - q^185 - q^200 - q^210 + q^225 + O(q^242),
    q^15 - q^30 - q^35 - q^55 + q^60 + q^70 + q^95 + q^110 - q^120 - q^140 - 
        q^190 - q^220 + q^235 + q^240 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
820
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - 1/2*q^10 + q^16 - q^18 - q^20 + 1/2*q^25 + q^33 + q^36 - q^37 + 1/2*q^40
        - q^41 - q^42 - 1/2*q^45 - q^46 + 1/2*q^50 + q^57 - q^61 - q^66 + q^72 -
        q^73 + q^77 + q^81 - q^86 + q^90 + q^98 + 1/2*q^100 + 1/2*q^105 + q^113 
        - q^132 - q^133 - q^141 + q^148 - 1/2*q^160 + q^162 - 3/2*q^165 - q^166 
        + q^168 - q^169 - 1/2*q^180 - q^184 + 1/2*q^185 + q^189 + q^196 - 
        1/2*q^200 + q^206 + 1/2*q^210 - q^213 + q^214 + 3/2*q^225 - q^228 + 
        q^230 - q^237 + q^241 + O(q^242),
    q^2 - 1/2*q^10 - q^23 - 1/2*q^25 + q^32 + q^33 - 1/2*q^40 - q^43 - 1/2*q^45 
        + 1/2*q^50 + q^72 - q^82 - q^83 - q^92 + 1/2*q^100 + q^103 - 1/2*q^105 +
        q^107 + q^115 - q^122 + q^127 - q^132 + q^133 - 1/2*q^160 + q^162 + 
        q^163 - 1/2*q^165 - q^172 + 1/2*q^180 + 1/2*q^185 - q^197 + 1/2*q^200 - 
        q^207 + 1/2*q^210 + q^215 - q^223 + 1/2*q^225 + O(q^242),
    q^3 - q^12 - 1/2*q^15 + q^22 - q^27 - 1/2*q^30 - 1/2*q^35 + q^47 + q^48 + 
        1/2*q^55 + 1/2*q^60 - q^63 - 1/2*q^70 - q^88 + 1/2*q^95 + q^108 - 
        1/2*q^110 + 1/2*q^120 - q^123 + q^135 + 1/2*q^140 + q^150 - q^188 - 
        1/2*q^190 - q^192 - 2*q^198 - 1/2*q^220 + q^222 + q^227 - 1/2*q^235 - 
        1/2*q^240 + O(q^242),
    q^4 - 3/2*q^10 - 2*q^18 - q^20 - q^21 + 1/2*q^25 + 2*q^33 + q^36 - 2*q^37 + 
        3/2*q^40 - 2*q^42 - 3/2*q^45 - q^46 + 2*q^49 - 1/2*q^50 + 2*q^57 - q^61 
        + q^64 + 2*q^72 - 2*q^73 + q^74 + 2*q^77 + q^81 + q^84 - q^86 + q^90 + 
        2*q^98 + 1/2*q^100 - 1/2*q^105 + 2*q^113 - q^114 + q^125 - 2*q^132 - 
        2*q^133 + q^146 + 2*q^148 - q^154 - 3/2*q^160 + 2*q^162 - q^164 - 
        5/2*q^165 - q^166 + 2*q^168 + 1/2*q^180 - q^184 - 1/2*q^185 - q^189 - 
        q^196 + 1/2*q^200 + q^201 + q^206 + q^209 - 1/2*q^210 - 2*q^213 + q^214 
        + 5/2*q^225 - q^226 - 2*q^228 + q^230 - 2*q^237 + q^241 + O(q^242),
    q^5 - q^10 - 2*q^18 - q^20 + 2*q^33 - 2*q^37 + q^40 - 2*q^42 - q^45 + 2*q^57
        + 2*q^72 - 2*q^73 + 2*q^77 + q^80 + q^90 + 2*q^98 + 2*q^113 + q^125 - 
        2*q^132 - 2*q^133 + 2*q^148 - q^160 + 2*q^162 - 2*q^165 + 2*q^168 + 
        q^180 - q^205 - 2*q^213 + 2*q^225 - 2*q^228 - 2*q^237 + O(q^242),
    q^6 - q^11 + 1/2*q^15 - q^24 - 1/2*q^30 + 1/2*q^35 + q^44 - q^54 + 1/2*q^55 
        - 1/2*q^60 - 1/2*q^70 - q^75 + q^94 + 1/2*q^95 + q^96 + 2*q^99 + 
        1/2*q^110 - q^111 + 1/2*q^120 - q^126 - q^135 - 1/2*q^140 + q^171 - 
        q^176 - q^179 + 1/2*q^190 + q^191 - q^199 - q^211 + q^216 - q^219 - 
        1/2*q^220 + q^231 + 1/2*q^235 + 1/2*q^240 + O(q^242),
    q^7 - 1/2*q^15 - q^27 - q^28 - 1/2*q^30 + 1/2*q^35 + q^38 + 1/2*q^55 + 
        1/2*q^60 - q^67 + 1/2*q^70 - 1/2*q^95 + q^108 - 1/2*q^110 + q^112 + 
        1/2*q^120 - 1/2*q^140 - q^142 + q^147 - q^152 - q^158 + q^167 + 
        1/2*q^190 - q^198 - 1/2*q^220 + q^222 - 1/2*q^235 - 1/2*q^240 + 
        O(q^242),
    q^8 - 1/2*q^10 + q^18 - q^23 + 1/2*q^25 - q^33 - 1/2*q^40 - q^43 + 1/2*q^45 
        + 1/2*q^50 - q^83 - q^90 - q^92 + q^98 - 1/2*q^100 + q^103 + 1/2*q^105 +
        q^107 + q^115 - q^122 + q^127 + q^128 + q^132 - q^133 - 1/2*q^160 + 
        q^163 + 1/2*q^165 - q^172 - 1/2*q^180 - 1/2*q^185 + q^197 + 1/2*q^200 - 
        q^207 - 1/2*q^210 + q^215 - q^223 - 1/2*q^225 + O(q^242),
    q^9 + q^10 + q^18 + q^21 - q^33 - q^36 + q^37 - q^40 + q^42 - q^49 - q^57 + 
        q^66 - q^72 + q^73 - q^74 - q^77 - q^81 - q^84 - q^90 - q^98 - q^113 + 
        q^114 - q^121 - q^125 + q^132 + q^133 + q^141 + q^144 - q^146 - q^148 + 
        q^154 + q^160 - q^162 + 2*q^165 - q^168 + q^196 - q^201 - q^209 + q^213 
        - q^225 + q^226 + q^228 + q^237 + O(q^242),
    q^14 + 1/2*q^15 - q^19 - 1/2*q^30 - 1/2*q^35 - q^54 + 1/2*q^55 - q^56 - 
        1/2*q^60 + 1/2*q^70 + q^71 + q^76 + q^79 - 1/2*q^95 + q^99 + 1/2*q^110 -
        q^111 + 1/2*q^120 - q^134 + 1/2*q^140 - q^151 - q^175 - 1/2*q^190 + 
        q^216 - q^219 - 1/2*q^220 + q^224 + q^231 + 1/2*q^235 - q^239 + 
        1/2*q^240 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
821
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
820
);
qprec:=
137
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
821
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
164
);
qprec:=
137
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
821
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
41*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
137
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
821
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
205*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
137
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
822
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
822
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
136
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
822
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
68
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
822
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
822
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
822
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
17*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
822
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 34*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
822
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 68*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^7 + q^9 - q^15 + q^16 - q^19 - q^28 + q^36 - q^37 - q^60 - q^61 
        - q^63 + q^64 - q^69 - q^73 - q^76 + q^81 - q^87 + 2*q^103 + q^105 + 
        2*q^109 - q^112 + q^115 + q^121 + 2*q^123 + q^133 - q^135 - q^139 - 
        q^141 + q^144 + q^145 - q^148 - q^151 + 2*q^159 + q^169 - q^171 - q^181 
        + 2*q^193 - 2*q^205 - q^211 + 2*q^213 + q^235 - q^240 - q^244 - q^249 - 
        q^252 + q^256 + q^259 - 2*q^265 - q^267 + O(q^270),
    q^2 + q^8 - q^14 + q^18 - q^30 + q^32 - q^38 - q^56 + q^72 - q^74 - q^120 - 
        q^122 - q^126 + q^128 - q^138 - q^146 - q^152 + q^162 - q^174 + 2*q^206 
        + q^210 + 2*q^218 - q^224 + q^230 + q^242 + 2*q^246 + q^266 + O(q^270),
    q^3 - q^5 + q^12 - q^20 - q^21 - q^23 + q^27 - q^29 + q^35 + 2*q^41 - q^45 -
        q^47 + q^48 + 2*q^53 - q^57 + 2*q^71 - q^80 - q^83 - q^84 - q^89 - q^92 
        + q^95 + q^108 - q^111 - q^113 - q^116 + q^125 - q^131 + q^137 + q^140 +
        2*q^149 + q^161 + 2*q^164 - q^179 - q^180 - q^183 + q^185 - q^188 - 
        q^189 - q^191 + q^192 + q^203 - q^207 + 2*q^212 - q^219 - q^227 - q^228 
        - q^233 - q^239 + q^243 + 2*q^251 - q^261 - q^269 + O(q^270),
    q^6 - q^10 + q^24 - q^40 - q^42 - q^46 + q^54 - q^58 + q^70 + 2*q^82 - q^90 
        - q^94 + q^96 + 2*q^106 - q^114 + 2*q^142 - q^160 - q^166 - q^168 - 
        q^178 - q^184 + q^190 + q^216 - q^222 - q^226 - q^232 + q^250 - q^262 + 
        O(q^270)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
823
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
822
);
qprec:=
137
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
823
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
274
);
qprec:=
137
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
823
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
137*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
137
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
823
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
411*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
137
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - q^52 - q^53 - q^59 - q^62 - q^74 - q^79 + q^81 - 
        q^97 - q^104 + q^121 - q^128 + O(q^137),
    q^2 + q^18 - q^26 - q^31 - q^37 + q^50 - q^52 - q^64 - q^89 + q^98 + q^103 -
        q^107 + q^109 + q^113 + q^131 + O(q^137),
    q^4 - q^13 - q^26 - q^32 + q^36 + q^53 + q^59 - q^71 + q^79 - q^83 + q^97 + 
        q^100 - q^117 - q^124 + O(q^137),
    q^8 - q^13 - q^16 + q^31 + q^37 - q^62 - q^71 + q^72 - q^74 - q^83 + q^89 + 
        q^106 + q^107 - q^117 + q^118 + O(q^137)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
824
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
824
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
824
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
824
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
824
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
824
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
824
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
824
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
824
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
824
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
824
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
17*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
824
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 17*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^2 + (a - 1)*q^4 + (2*a - 2)*q^7 - q^8 - q^9 - 2*q^14 - a*q^16 + (-a 
        + 1)*q^17 - a*q^18 + q^23 + a*q^25 - 2*a*q^28 + (2*a - 1)*q^31 + (-a + 
        1)*q^32 + q^34 + (-a + 1)*q^36 + a*q^41 + a*q^46 + (a + 1)*q^47 - 
        3*a*q^49 + (a - 1)*q^50 + (-2*a + 2)*q^56 + (a - 2)*q^62 + (-2*a + 
        2)*q^63 + q^64 + a*q^68 + (-a - 1)*q^71 + q^72 + (-2*a + 1)*q^73 + q^79 
        + q^81 + (a - 1)*q^82 + (2*a - 1)*q^89 + (a - 1)*q^92 + (2*a - 1)*q^94 -
        a*q^97 + (-3*a + 3)*q^98 - q^100 - q^103 + 2*q^112 + (-2*a + 1)*q^113 + 
        2*a*q^119 + a*q^121 + (-a - 1)*q^124 + 2*q^126 + (-2*a + 1)*q^127 + 
        a*q^128 + (a - 1)*q^136 + q^137 + (-2*a + 1)*q^142 + a*q^144 + (-a + 
        2)*q^146 + (a - 2)*q^151 + (a - 1)*q^153 + a*q^158 + (2*a - 2)*q^161 + 
        a*q^162 - q^164 + q^167 + q^169 - 2*q^175 + (a - 2)*q^178 - q^184 + (a -
        2)*q^188 + (-a + 1)*q^194 + 3*q^196 + (-a - 1)*q^199 - a*q^200 + 
        O(q^202)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
824
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 34*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
824
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 34*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
824
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
51*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^13 - q^19 - q^23 + q^25 - q^41 - q^79 + q^81 - q^91 + q^103 + 
        2*q^107 - q^117 + q^119 + q^121 - q^131 - q^133 - q^137 + 2*q^139 - 
        q^149 - q^161 + 2*q^167 + q^169 - q^171 + O(q^202),
    q^2 + q^18 - q^26 - q^38 - q^46 + q^50 - q^82 - q^158 + q^162 - q^182 + 
        O(q^202),
    q^4 + q^36 - q^52 - q^56 - q^64 - q^76 - q^92 + q^100 + q^104 + q^128 - 
        q^136 + q^152 - q^164 + q^184 + O(q^202),
    q^7 - q^13 + q^17 - q^19 - q^23 + q^29 - q^41 - q^49 + q^59 + q^61 + q^63 - 
        q^79 + q^83 + q^97 - q^117 - q^119 - q^131 - q^137 - q^149 + q^153 + 
        q^163 + q^169 - q^171 + q^175 + q^179 + O(q^202),
    q^8 - q^56 - q^64 + q^72 - q^112 - q^136 + q^200 + O(q^202),
    q^14 - q^26 + q^34 - q^38 - q^46 + q^58 - q^82 - q^98 + q^118 + q^122 + 
        q^126 - q^158 + q^166 + q^194 + O(q^202),
    q^16 - q^32 - q^56 + q^104 - q^136 + q^144 + q^152 + q^184 + O(q^202),
    q^28 + q^32 - q^52 - q^64 + q^68 - q^76 - q^92 - q^112 + q^116 - q^164 - 
        q^196 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
824
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 51*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^15 - q^17 - q^18 + q^23 - q^25 - q^26 + q^28 + q^30 - q^32 + q^34 + 
        q^36 + q^38 - q^56 - q^60 + q^63 - q^72 + 2*q^81 - q^82 + q^92 + q^97 - 
        q^103 - q^111 + q^116 + q^119 + q^120 - q^121 - q^126 - q^129 - q^135 + 
        q^144 - q^153 + q^158 + q^159 + q^161 - q^162 - 2*q^167 - q^169 + q^175 
        + q^182 - q^184 + q^185 - q^194 - q^196 - q^201 + O(q^202),
    q^2 + q^25 - q^28 + q^29 - q^30 + q^32 - q^34 - q^41 - q^46 - q^49 - q^52 - 
        q^55 + q^56 + q^58 + q^59 - q^61 - q^63 - q^68 + q^72 + q^76 + q^79 - 
        q^81 + q^82 + q^83 - q^91 - q^92 - q^97 + q^98 + q^100 + q^103 - q^110 +
        q^111 - q^112 + q^118 - 2*q^119 - q^120 + 2*q^121 - q^122 + q^128 + 
        q^133 + q^135 + q^137 + q^153 - q^158 - q^159 + q^162 - q^163 + q^166 + 
        q^167 + q^169 - q^179 - q^182 - q^184 - q^185 + q^200 + q^201 + 
        O(q^202),
    q^3 - q^11 + q^12 - q^21 - q^22 + q^27 - q^42 - q^44 - q^45 + q^48 + q^69 + 
        q^70 + q^74 + q^77 - q^84 - q^88 - q^99 + q^102 + q^108 + q^109 - q^115 
        - q^123 + q^125 + q^134 + q^147 - q^150 + q^154 - q^157 + q^165 - q^168 
        - q^170 - q^173 - q^176 - q^180 + q^192 - q^198 + O(q^202),
    q^4 + q^15 + 2*q^17 + q^18 + q^26 - q^28 - q^29 - q^30 - q^33 - q^36 - q^38 
        - q^41 + 2*q^46 + q^49 - q^50 + q^55 - q^59 + q^60 + q^61 - 2*q^63 - 
        q^66 + q^68 + q^72 - q^81 - q^82 - q^83 + q^91 - q^97 - q^98 - q^100 - 
        q^104 + q^110 + q^111 - q^120 - q^128 + q^129 - q^132 - q^133 + q^152 - 
        q^159 - q^161 + q^162 + q^163 - q^164 + q^169 - 2*q^175 + q^179 - q^182 
        + 2*q^184 - q^185 + q^194 + 2*q^196 - q^200 + q^201 + O(q^202),
    q^5 - q^11 + q^20 - q^21 - q^22 + q^43 - q^44 + q^51 + q^54 + q^70 + q^80 - 
        q^84 - q^85 - q^88 - q^90 + q^106 - q^115 - q^123 + q^125 + q^138 + 
        q^147 - q^150 - q^157 + q^165 - q^170 + q^172 - q^173 - q^176 + q^181 + 
        q^187 + O(q^202),
    q^6 - q^11 - q^21 - q^22 + q^24 + q^35 + q^37 - q^42 - q^44 + q^51 + q^54 + 
        q^67 - q^75 + q^77 - q^84 - q^85 - q^88 - q^90 + q^96 - q^99 + q^101 - 
        q^123 + q^138 + q^140 + q^147 + q^148 + q^154 - q^157 + q^165 - q^168 - 
        q^173 - q^176 - q^189 - q^198 + O(q^202),
    q^7 - q^15 - q^17 - q^18 + q^28 + q^30 + q^33 + q^41 - q^46 - q^49 + q^50 - 
        q^55 - q^60 + q^63 + q^66 - q^68 - q^72 + q^81 - q^110 - q^111 + q^112 +
        q^120 - q^129 + q^132 - q^153 + q^158 + q^159 - q^162 + q^164 + q^175 - 
        q^184 + q^185 - q^194 - q^196 + q^200 - q^201 + O(q^202),
    q^8 - q^15 - q^17 - q^25 + q^28 - q^29 + q^30 + q^34 + q^41 + q^50 + q^52 - 
        q^56 - q^58 - q^59 - q^60 + q^61 + q^63 - q^72 - q^76 - q^79 + q^81 - 
        q^82 - q^83 + q^91 + q^92 + q^97 - q^100 + q^105 + q^112 - q^118 + q^119
        + q^120 + q^122 - q^126 - q^129 - q^133 - q^137 + q^158 + q^159 - q^162 
        + q^163 - q^166 - q^167 - q^169 + 2*q^175 + q^179 + q^182 + q^185 - 
        q^194 - q^196 + O(q^202),
    q^9 - q^15 - q^17 - q^18 + q^23 + q^30 + q^34 + q^36 - q^46 - q^49 - q^60 + 
        q^63 - q^68 - q^72 + q^81 + q^92 + q^97 + q^98 - q^111 - q^119 + q^120 -
        q^126 - q^129 - q^135 + q^136 + q^144 - q^153 + q^159 + q^161 - q^162 + 
        q^175 - q^184 + q^185 - q^194 - q^196 - q^201 + O(q^202),
    q^10 - q^11 - q^22 + q^27 + q^35 + q^40 - q^42 - q^44 - q^45 + q^53 + q^69 -
        q^75 - q^85 + q^86 - q^88 + q^102 + q^108 - q^115 + q^140 - q^157 + 
        q^160 + q^165 - q^168 - q^170 - q^173 - q^176 - q^180 + q^187 + q^197 + 
        O(q^202),
    q^13 - q^18 - q^19 + q^23 - q^25 + q^28 - q^29 + q^30 - q^32 + q^34 + q^46 -
        q^50 + q^55 - q^58 - q^59 + q^61 + q^63 - q^64 + q^68 - q^72 + q^81 - 
        q^82 - q^83 + 2*q^92 + q^97 - q^100 - q^103 + q^110 - q^111 - q^117 - 
        q^118 + q^119 + q^120 - 2*q^121 + q^122 - q^128 + q^131 - q^135 + q^136 
        + q^149 - q^153 + q^158 + q^159 + q^161 + q^163 - q^164 - q^166 - q^167 
        - q^169 + q^171 + q^179 + q^182 + q^184 + q^185 - q^196 - q^200 - q^201 
        + O(q^202),
    q^14 - q^17 - q^18 + q^25 + q^33 - q^46 - q^49 - q^55 + q^56 + q^63 + q^66 -
        q^68 - q^72 + q^79 + q^82 + q^100 - q^105 - q^110 - q^111 - q^119 + 
        q^132 + q^137 + q^161 + q^167 - q^184 - q^194 - q^196 - q^201 + 
        O(q^202),
    q^16 - q^17 - 2*q^23 + 2*q^25 + q^29 - q^30 + q^32 + q^33 - 2*q^34 + q^41 - 
        2*q^46 + q^50 - 2*q^55 + q^56 + q^59 - q^61 + q^64 + q^66 - q^68 - q^81 
        + 2*q^82 + q^83 - q^91 - 2*q^92 - q^97 + 2*q^100 + q^103 + q^104 - q^105
        - 2*q^110 - q^116 - q^119 - q^120 + 2*q^121 + q^126 + q^128 + q^132 + 
        q^133 + q^135 - q^136 - q^144 - q^152 + q^153 - q^158 - q^159 - q^161 - 
        q^163 + q^164 + 2*q^167 + q^169 - q^179 - q^184 - q^185 + q^200 + 
        O(q^202)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 7*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 9*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
14*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
16*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
18*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 16*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^9 - q^11 + q^16 - 2*q^31 - q^36 - q^44 + q^49 - 2*q^59 + q^64 + 
        2*q^71 + q^81 + 2*q^89 + q^99 + q^121 - 2*q^124 - q^144 + q^169 - q^176 
        + 2*q^179 - 2*q^181 - 2*q^191 + q^196 - 2*q^199 + O(q^218),
    q^3 + q^12 - q^27 - q^33 + q^48 - 2*q^93 - q^108 - q^132 + q^147 - 2*q^177 +
        q^192 + 2*q^213 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (-2*a^7 - 2*a^6 + a^5 + 2*a^4 + 2*a + 2)*q^5 - a^7*q^9 + (-2*a^7
        - 2*a^6 - a^3 + 2*a + 2)*q^11 + (-2*a^6 - 2*a^5 - 2*a^2 - 2*a)*q^15 + 
        a^2*q^16 + (2*a^7 + a^6 - 2*a^5 - 2*a^4 - 2*a - 2)*q^20 + (-3*a^7 - 
        4*a^6 - a^5 - 3*a^3 - 3*a^2 + a + 2)*q^23 - q^25 + (-a - 1)*q^27 + (a^7 
        + a)*q^31 + (2*a^7 - 2*a^5 - 2*a^4 - 2*a - 2)*q^33 + (a^6 - a^4 + a^2 - 
        1)*q^36 + (-a^7 - a^2)*q^37 + (2*a^7 + 2*a^6 - a^4 - 2*a - 2)*q^44 + 
        (2*a^7 + 2*a^6 + 2*a^3 + a^2 - 2*a - 2)*q^45 + (-4*a^7 - 3*a^6 + 2*a^5 +
        2*a^4 - 2*a^3 - 2*a^2 + 3*a + 4)*q^47 + a^5*q^49 + (a^7 + 3*a^6 + 3*a^5 
        + a^4 + a^3 + 3*a^2 + 3*a + 1)*q^53 + (a^6 - a^4 + a^2 - 1)*q^55 + 
        (-4*a^7 - 4*a^6 + a^4 - 2*a^3 - 2*a^2 + 2*a + 3)*q^59 + (2*a^7 + 2*a^6 +
        2*a^3 + 2*a^2)*q^60 - a^3*q^64 + (-a^6 - a^5 + a^4 - a^2 + 1)*q^67 + 
        (4*a^7 + 4*a^6 - 2*a^5 - 2*a^4 + 2*a^3 - 4*a - 4)*q^69 + (2*a^7 + 3*a^6 
        + 2*a^5 + a^2 - 1)*q^71 + (-a^7 + 2*a^5 + 2*a^4 + 2*a + 2)*q^80 + (a^5 +
        a^4 + a^3)*q^81 + (2*a^6 + 3*a^5 + 2*a^4 + a^3 + 2*a^2 + 3*a + 2)*q^89 +
        (4*a^7 + 4*a^6 + 3*a^3 + 2*a^2 - 2*a - 3)*q^92 + (-a^4 + a^3)*q^97 + 
        (2*a^7 + 2*a^6 + 2*a^3 + 2*a^2 - 1)*q^99 + a*q^100 + (-a^7 - 1)*q^103 + 
        (a^2 + a)*q^108 + (2*a^7 + a^6 - 2*a^5 - a^4 + 2*a^3 + a^2 - 3*a - 
        3)*q^113 + (a^7 + a^4)*q^115 + a^6*q^121 + (-a^6 + a^4 - 2*a^2 + 
        1)*q^124 + (2*a^7 + 2*a^6 - a^5 - 2*a^4 - 2*a - 2)*q^125 + (2*a^5 + 
        2*a^4 + 2*a + 2)*q^132 + (-2*a^7 - a^6 + a^5 + 2*a^4 + 2*a + 2)*q^135 + 
        (-a^6 - 2*a^5 - 2*a^4 - a^3)*q^137 + (-2*a^4 - 2*a^3 - 2*a^2 - 2*a - 
        2)*q^141 + (-a^7 + a^5 - a^3 + a)*q^144 + (a^6 - a^4 + a^3 + a^2 - 
        1)*q^148 + (a^6 + 2*a^5 + 2*a^4 + 2*a^3 + a^2)*q^155 + (a^7 - a^6 - a^5 
        + a^3 - a)*q^157 + (-4*a^7 - 4*a^6 - 4*a^3 - 2*a^2 + 4*a + 4)*q^159 + 
        (-a^5 + a^4)*q^163 + (-a^7 + a^5 - a^3 + a)*q^169 + (-2*a^7 - 2*a^6 + 
        a^5 + 2*a^4 + 2*a + 2)*q^176 + (2*a^7 + 2*a^6 - 2*a^5 - 2*a^4 - 4*a - 
        4)*q^177 + (3*a^7 + 2*a^6 - 3*a^5 - 4*a^4 - 4*a - 4)*q^179 + (-2*a^7 - 
        2*a^6 - a^3 + 2*a + 2)*q^180 + (-a^7 - 2*a^6 - 2*a^5 - 2*a^4 - 2*a^3 - 
        a^2)*q^185 + (3*a^7 + 2*a^6 - 2*a^5 - 2*a^4 + 2*a^3 + a^2 - 4*a - 
        4)*q^188 + (-a^3 - 2*a^2 - a)*q^191 - a^6*q^196 + (-a^6 - a^4)*q^199 + 
        (-a^7 + a^6 + 3*a^5 + 2*a^4 + a^3 + 2*a^2 + 3*a + 2)*q^207 + (-3*a^7 - 
        4*a^6 - a^5 - 3*a^3 - 4*a^2 - a + 1)*q^212 + (-2*a^7 - 2*a^6 + 2*a^5 + 
        2*a^4 - 2*a^3 - 2*a^2 + 4*a + 4)*q^213 + O(q^218),
    q^3 + (-2*a^7 - 2*a^6 - 2*a^3 - 2*a^2 + 2*a + 2)*q^5 + (-a^4 - a^3)*q^9 + 
        (-2*a^7 - 2*a^6 - 2*a^3 - 2*a^2)*q^11 - a*q^12 + (2*a^7 + 2*a^6 - a^5 - 
        2*a^4 - 2*a - 2)*q^15 + (2*a^7 + 2*a^6 + 2*a^3 - 2*a - 2)*q^20 + (2*a^7 
        - 4*a^5 - 2*a^4 - 2*a^2 - 4*a - 2)*q^23 + (a^7 + 2*a^6 - a^4 + a^2 - 
        1)*q^27 + (2*a^7 + 2*a^6 + a^3 - 2*a - 2)*q^33 + (a^5 + a^4)*q^36 + 
        (2*a^7 + 2*a^6 + 2*a^3 + 2*a^2 - 2)*q^44 + (a^7 + a^6 + a^5 + a^4 + a^3 
        + a^2 + a + 1)*q^45 + (-2*a^7 - 2*a^6 - 2*a^5 - 2*a^4 - 2*a^3)*q^47 + 
        a^2*q^48 + (-4*a^7 - 4*a^6 + 2*a^5 + 4*a^4 + 4*a + 4)*q^53 + (-2*a^6 - 
        2*a^5 - 2*a^4 - 2*a^3 - 2*a^2 - 2*a)*q^59 + (-2*a^7 - a^6 + 2*a^5 + 
        2*a^4 + 2*a + 2)*q^60 + (3*a^7 + 4*a^6 + a^5 + 3*a^3 + 3*a^2 - a - 
        2)*q^69 + (2*a^4 + 2*a^3 + 2*a^2 + 2*a)*q^71 - q^75 + (-2*a^7 - 2*a^6 + 
        2*a + 2)*q^80 + (-a^7 + a^5 - a^3 + a^2 + 2*a + 1)*q^81 + (-4*a^7 - 
        4*a^6 + 2*a^5 + 2*a^4 + 4*a + 4)*q^89 + (2*a^6 + 2*a^5 + 2*a^4 + 2*a^3 +
        2*a^2 + 2*a + 2)*q^92 + (a^7 + a)*q^93 + (-a^7 - a^6 + 2*a^5 + 2*a^4 + 
        2*a + 2)*q^99 + (-2*a^7 - a^6 + a^5 + a^4 - a^3 - a^2 + a + 1)*q^108 + 
        (-a^7 - a^2)*q^111 + (2*a^7 + 2*a^6 + 2*a^5)*q^113 + (2*a^7 + 2*a^6 + 
        2*a^3 + 2*a^2 - 2*a - 2)*q^125 + (-2*a^7 - 2*a^6 + a^4 + 2*a + 2)*q^132 
        + (-2*a^7 - 2*a^6 - a^3 - a^2 + a + 2)*q^135 + (-2*a^2 - 2*a - 2)*q^137 
        + (4*a^7 + 3*a^6 - 2*a^5 - 2*a^4 + 2*a^3 + 2*a^2 - 3*a - 4)*q^141 + 
        (-a^6 - a^5)*q^144 + a^5*q^147 + (-2*a^7 + 2*a^5 - 2*a^3 + 2*a^2 + 4*a +
        2)*q^155 + (-a^7 - 3*a^6 - 3*a^5 - a^4 - a^3 - 3*a^2 - 3*a - 1)*q^159 + 
        (a^6 - a^4 + a^2 - 1)*q^165 + (-2*a^7 - 2*a^6 - 2*a^3 - 2*a^2 + 2*a + 
        2)*q^176 + (4*a^7 + 4*a^6 - a^4 + 2*a^3 + 2*a^2 - 2*a - 3)*q^177 + 
        (4*a^7 + 4*a^6 + 2*a^3 + 2*a^2 - 4*a - 4)*q^179 + (-a^7 - 2*a^6 - a^5 - 
        a^3 - 2*a^2 - a + 1)*q^180 + (2*a^7 - 2*a^5 - 2*a^2 - 4*a - 2)*q^185 + 
        (2*a^7 + 4*a^6 + 2*a^5 + 2*a^2 - 2)*q^188 + (2*a^7 + 2*a^6 - 2*a^5 - 
        2*a^4 + 2*a^3 + 2*a^2 - 2*a - 2)*q^191 - a^3*q^192 + (-a^6 - a^5 + a^4 -
        a^2 + 1)*q^201 + (-4*a^7 - 3*a^6 + a^5 + 2*a^4 - a^3 - a^2 + 4*a + 
        4)*q^207 + (4*a^7 + 2*a^6 - 4*a^5 - 4*a^4 - 4*a - 4)*q^212 + (-2*a^7 - 
        3*a^6 - 2*a^5 - a^2 + 1)*q^213 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^4 - q^5 + a^2*q^9 + a^3*q^11 + a^2*q^16 - a*q^20 + (-a^3 + 2*a^2 - a
        + 1)*q^23 + q^25 + (-a - 1)*q^27 + (-a^2 + a)*q^31 + a^3*q^36 + (a^3 - 
        a^2 + a - 1)*q^44 - a^2*q^45 - q^49 + (-2*a^3 + a^2 - a + 1)*q^53 - 
        a^3*q^55 + (a^3 - a^2 + a)*q^59 + a^3*q^64 + (-a^3 - 1)*q^67 + (-a^2 + a
        - 1)*q^71 - a^2*q^80 + (-2*a^3 + a^2 - a + 2)*q^81 + (-a^3 - a + 1)*q^89
        + (a^3 + 1)*q^92 + (2*a^3 - a^2 + a - 1)*q^97 - q^99 + a*q^100 + (-a^2 +
        1)*q^103 + (-a^2 - a)*q^108 + (-a^3 + a)*q^113 + (a^3 - 2*a^2 + a - 
        1)*q^115 - a*q^121 + (-a^3 + a^2)*q^124 - q^125 + (a + 1)*q^135 + (a^3 -
        a)*q^137 + (a^3 - a^2 + a - 1)*q^144 + (a^2 - a)*q^155 + (-a^3 + a^2 - 
        2*a + 1)*q^157 + (a^3 - a^2 + a - 2)*q^163 + (-a^3 + a^2 - a + 1)*q^169 
        - q^176 + (-a^2 - 1)*q^179 - a^3*q^180 + (-2*a^3 + 2*a^2 - 2*a + 
        2)*q^181 + (a^3 + a)*q^191 - a*q^196 + (a^3 - a^2 - 1)*q^199 + (a^3 - 
        a^2 + 2*a - 1)*q^207 + (-a^3 + a^2 - a + 2)*q^212 + O(q^218),
    q^3 + (2*a^3 - a^2 + a - 1)*q^9 + a*q^12 - q^15 + (-a^3 - a^2 - a)*q^27 + 
        a^3*q^33 + (a^3 - a^2 + a - 2)*q^36 + (-2*a^3 + a^2 - a + 1)*q^45 + 
        a^2*q^48 - a*q^60 + (-a^3 + 2*a^2 - a + 1)*q^69 + q^75 + (-a^3 + 2*a^2 +
        2)*q^81 + (-a^2 + a)*q^93 + (-a^2 - a)*q^99 + (-2*a^3 - a + 1)*q^108 + 
        (a^3 - a^2 + a - 1)*q^132 + (a^3 + a^2 + a)*q^135 + (-a - 1)*q^144 - 
        q^147 + (-2*a^3 + a^2 - a + 1)*q^159 - a^3*q^165 + (a^3 - a^2 + a)*q^177
        + (-a^3 + a^2 - a + 2)*q^180 + a^3*q^192 + (-a^3 - 1)*q^201 + (a^3 + a^2
        - a - 1)*q^207 + (-a^2 + a - 1)*q^213 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^2*q^4 + q^5 + (-a^3 + a^2 - a + 1)*q^9 - a*q^11 + (a^3 - a^2 + a - 
        1)*q^16 + a^2*q^20 + (-a^2 + a - 1)*q^23 + q^25 + (-a^2 - 1)*q^27 + (a^3
        + a - 1)*q^31 + a*q^36 + (2*a^3 - 2*a^2 + 2*a - 2)*q^37 - a^3*q^44 + 
        (-a^3 + a^2 - a + 1)*q^45 + 2*a^2*q^47 + q^49 + (-a^3 - a)*q^53 - a*q^55
        + (-a^3 + 1)*q^59 - a*q^64 + (-a + 1)*q^67 + (-a^3 - a)*q^71 + (a^3 - 
        a^2 + a - 1)*q^80 + (a^3 + a - 1)*q^81 + (-a^2 + a - 1)*q^89 + (-a + 
        1)*q^92 + (-a^3 - a)*q^97 - q^99 + a^2*q^100 + (a^3 - a^2 + a)*q^103 + 
        (-a^3 - a + 1)*q^108 + (a^2 - a)*q^113 + (-a^2 + a - 1)*q^115 + 
        a^2*q^121 + (a^3 - a^2 - 1)*q^124 + q^125 + (-a^2 - 1)*q^135 + (a^2 - 
        a)*q^137 + a^3*q^144 - 2*a*q^148 + (a^3 + a - 1)*q^155 + (-a^3 + 
        a^2)*q^157 + (-a^3 + 1)*q^163 - a^3*q^169 + q^176 + (a^3 - a^2 + 
        a)*q^179 + a*q^180 - 2*a^3*q^181 + (2*a^3 - 2*a^2 + 2*a - 2)*q^185 + 
        (2*a^3 - 2*a^2 + 2*a - 2)*q^188 + (a^2 - a)*q^191 + a^2*q^196 + (-a^3 + 
        a^2)*q^199 + (a^3 - a^2)*q^207 + (-a^3 + 1)*q^212 + O(q^218),
    q^3 + (-a^3 - a)*q^9 + a^2*q^12 + q^15 + (a^3 - 1)*q^27 - a*q^33 + (-a^3 + 
        1)*q^36 + (-a^3 - a)*q^45 + (a^3 - a^2 + a - 1)*q^48 + a^2*q^60 + (-a^2 
        + a - 1)*q^69 + q^75 + a*q^81 + (a^3 + a - 1)*q^93 + (a^3 + a - 1)*q^99 
        + (-a^2 - 1)*q^108 + (2*a^3 - 2*a^2 + 2*a - 2)*q^111 - a^3*q^132 + (a^3 
        - 1)*q^135 + 2*a^2*q^141 + (a^2 + 1)*q^144 + q^147 + (-a^3 - a)*q^159 - 
        a*q^165 + (-a^3 + 1)*q^177 + (-a^3 + 1)*q^180 - a*q^192 + (-a + 1)*q^201
        + a^3*q^207 + (-a^3 - a)*q^213 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + a*q^9 - q^11 - q^16 + (-a + 1)*q^23 + (a + 1)*q^27 + (a - 
        1)*q^33 + q^36 + (-a - 1)*q^37 + a*q^44 + (-a - 1)*q^47 + a*q^49 + (a - 
        1)*q^53 - 2*a*q^59 + a*q^64 + (a + 1)*q^67 - 2*a*q^69 + q^81 + (-a - 
        1)*q^92 + (a + 1)*q^97 + a*q^99 + (-a + 1)*q^103 + (-a + 1)*q^108 + (-a 
        + 1)*q^113 - q^121 + (a + 1)*q^132 + (a + 1)*q^137 - 2*q^141 - a*q^144 +
        (a - 1)*q^148 + (-a - 1)*q^157 + 2*a*q^159 + (a - 1)*q^163 - a*q^169 + 
        q^176 + (-2*a - 2)*q^177 + (a - 1)*q^188 + 2*q^191 + q^196 + (-a - 
        1)*q^207 + (a + 1)*q^212 + O(q^218),
    q^3 + (-a + 1)*q^9 + (a + 1)*q^11 - a*q^12 - 2*q^23 - a*q^27 + q^33 + (-a - 
        1)*q^36 + (-a + 1)*q^44 + 2*a*q^47 - q^48 + 2*q^53 + (2*a - 2)*q^59 + (a
        - 1)*q^69 + 2*a*q^92 - q^108 + (-a - 1)*q^111 - 2*q^113 - a*q^132 - 
        2*a*q^137 + (a + 1)*q^141 + (a - 1)*q^144 + a*q^147 + (-a + 1)*q^159 + 
        (-a - 1)*q^176 + 2*a*q^177 + 2*q^188 + (-2*a - 2)*q^191 + a*q^192 + (a +
        1)*q^201 - 2*a*q^212 + O(q^218)
]
;
Bo:=
[
    q - a*q^4 + a*q^9 - q^11 - q^16 + (a - 1)*q^23 + (-a - 1)*q^27 + (-a + 
        1)*q^33 + q^36 + (a + 1)*q^37 + a*q^44 + (a + 1)*q^47 + a*q^49 + (-a + 
        1)*q^53 - 2*a*q^59 + a*q^64 + (-a - 1)*q^67 - 2*a*q^69 + q^81 + (a + 
        1)*q^92 + (-a - 1)*q^97 + a*q^99 + (a - 1)*q^103 + (a - 1)*q^108 + (a - 
        1)*q^113 - q^121 + (-a - 1)*q^132 + (-a - 1)*q^137 - 2*q^141 - a*q^144 +
        (-a + 1)*q^148 + (a + 1)*q^157 + 2*a*q^159 + (-a + 1)*q^163 - a*q^169 + 
        q^176 + (2*a + 2)*q^177 + (-a + 1)*q^188 + 2*q^191 + q^196 + (a + 
        1)*q^207 + (-a - 1)*q^212 + O(q^218),
    q^3 + (a - 1)*q^9 + (-a - 1)*q^11 - a*q^12 - 2*q^23 - a*q^27 + q^33 + (a + 
        1)*q^36 + (a - 1)*q^44 + 2*a*q^47 - q^48 + 2*q^53 + (-2*a + 2)*q^59 + 
        (-a + 1)*q^69 + 2*a*q^92 - q^108 + (a + 1)*q^111 - 2*q^113 - a*q^132 - 
        2*a*q^137 + (-a - 1)*q^141 + (-a + 1)*q^144 + a*q^147 + (a - 1)*q^159 + 
        (a + 1)*q^176 + 2*a*q^177 + 2*q^188 + (2*a + 2)*q^191 + a*q^192 + (-a - 
        1)*q^201 - 2*a*q^212 + O(q^218),
    q^5 - a*q^20 + q^25 + a*q^45 - q^55 + (a - 1)*q^75 - q^80 - a*q^100 + (a - 
        1)*q^115 - q^125 + (-a - 1)*q^135 + (-a + 1)*q^165 + q^180 + (a + 
        1)*q^185 + O(q^218),
    q^15 + (a + 1)*q^25 + (a - 1)*q^45 + (-a - 1)*q^55 - a*q^60 - q^75 + (-a + 
        1)*q^100 - 2*q^115 - a*q^135 + q^165 + (a + 1)*q^180 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
825
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 + q^9 - q^11 + q^16 - 2*q^31 - q^36 + q^44 - q^49 + 2*q^59 - q^64 + 
        2*q^71 + q^81 - 2*q^89 - q^99 + q^121 + 2*q^124 + q^144 - q^169 - q^176 
        - 2*q^179 - 2*q^181 - 2*q^191 + q^196 + 2*q^199 + O(q^218),
    q^3 - q^12 + q^27 - q^33 + q^48 - 2*q^93 - q^108 + q^132 - q^147 + 2*q^177 -
        q^192 + 2*q^213 + O(q^218),
    q^5 - q^20 - q^25 + q^45 - q^55 + q^80 + q^100 + q^125 - 2*q^155 - q^180 + 
        O(q^218),
    q^15 - q^60 - q^75 + q^135 - q^165 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
826
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
826
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
826
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
58
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
826
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
174
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
826
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
174
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
826
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
58
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
826
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
29*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 + q^4 - q^5 - q^12 + q^15 + q^16 + 2*q^17 - q^19 - q^20 + q^27 - 
        q^29 - q^41 - q^48 - q^49 - 2*q^51 - q^53 + q^57 + q^59 + q^60 + q^64 + 
        2*q^68 + 2*q^71 - q^76 - q^79 - q^80 - q^81 - 2*q^85 + q^87 + q^95 - 
        q^107 + q^108 - q^116 + q^121 + q^123 + q^125 - q^127 - q^135 - q^137 + 
        2*q^139 + q^145 + q^147 + q^159 + 2*q^163 - q^164 - q^167 + q^169 - 
        q^177 - q^181 - q^192 - q^193 - q^196 + 2*q^197 - q^199 - 2*q^204 + 
        q^205 - q^212 - 2*q^213 + 2*q^223 + q^228 + O(q^234),
    q^2 - q^6 + q^8 - q^10 - q^24 + q^30 + q^32 + 2*q^34 - q^38 - q^40 + q^54 - 
        q^58 - q^82 - q^96 - q^98 - 2*q^102 - q^106 + q^114 + q^118 + q^120 + 
        q^128 + 2*q^136 + 2*q^142 - q^152 - q^158 - q^160 - q^162 - 2*q^170 + 
        q^174 + q^190 - q^214 + q^216 - q^232 + O(q^234),
    q^7 - q^21 + q^28 - q^35 - q^49 - q^84 + q^105 + q^112 + 2*q^119 - q^133 - 
        q^140 + q^147 + q^189 - q^196 - q^203 + O(q^234),
    q^14 - q^42 + q^56 - q^70 - q^98 - q^168 + q^210 + q^224 + O(q^234)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
826
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 29*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + (a - 1)*q^9 - q^15 + (a - 1)*q^16 + a*q^17 - a*q^21 - a*q^25 + 
        2*q^27 - a*q^35 + q^36 + a*q^45 - q^57 - a*q^59 + a*q^60 + (a - 1)*q^63 
        + q^64 + (-a + 1)*q^68 - q^71 + (-a + 1)*q^75 - a*q^81 + (a - 1)*q^84 + 
        a*q^87 + a*q^95 + (a - 1)*q^100 - a*q^105 - 2*a*q^108 + (a - 1)*q^121 + 
        a*q^123 + 2*q^125 + q^133 + (-a + 1)*q^135 - q^139 + (a - 1)*q^140 - 
        a*q^144 + (2*a - 2)*q^145 - a*q^147 - q^153 + (-a + 1)*q^159 + (-a + 
        1)*q^163 + q^169 + a*q^171 + q^175 + (-a + 1)*q^180 + q^189 - q^197 + (a
        - 1)*q^203 + (-a + 1)*q^205 - q^223 + a*q^228 + O(q^234),
    q^2 - a*q^8 + (a - 1)*q^18 - q^30 + (a - 1)*q^32 + a*q^34 - a*q^42 - a*q^50 
        + 2*q^54 - a*q^70 + q^72 + a*q^90 - q^114 - a*q^118 + a*q^120 + (a - 
        1)*q^126 + q^128 + (-a + 1)*q^136 - q^142 + (-a + 1)*q^150 - a*q^162 + 
        (a - 1)*q^168 + a*q^174 + a*q^190 + (a - 1)*q^200 - a*q^210 - 2*a*q^216 
        + O(q^234),
    q^3 + 1/3*(a - 2)*q^7 - a*q^9 - a*q^12 + (-a + 1)*q^15 + a*q^19 + 1/3*(-a + 
        2)*q^21 + (a - 1)*q^27 + 1/3*(a + 1)*q^28 + 1/3*(2*a - 1)*q^35 + (a - 
        1)*q^36 + (-a + 1)*q^41 - q^45 + (a - 1)*q^48 + 1/3*(2*a - 1)*q^49 + 
        a*q^51 - q^53 - q^60 - a*q^63 + (-a + 1)*q^76 + a*q^79 + 2*q^81 + 
        1/3*(-a - 1)*q^84 - q^87 + q^95 + 1/3*(-2*a + 1)*q^105 - a*q^107 + q^108
        + 1/3*(-2*a + 1)*q^112 + 1/3*(-a - 1)*q^119 + (a - 1)*q^127 + 1/3*(-a + 
        2)*q^133 + a*q^135 - q^137 + 1/3*(-a + 2)*q^140 + q^144 + 1/3*(a + 
        1)*q^147 + (-a + 1)*q^153 - q^164 + (-a + 1)*q^167 - q^171 - a*q^177 + 
        a*q^180 + 1/3*(4*a - 5)*q^189 + q^192 - q^193 + 1/3*(-a + 2)*q^196 + 
        1/3*(-a + 2)*q^203 + (-a + 1)*q^204 - a*q^205 + a*q^212 - q^213 + 
        O(q^234),
    q^5 + 1/3*(-a + 2)*q^7 + a*q^15 - q^19 - a*q^20 + 1/3*(a + 1)*q^21 + (a - 
        1)*q^25 + 1/3*(-a - 1)*q^28 - a*q^29 + 1/3*(a - 2)*q^35 + a*q^41 + 
        1/3*(a - 2)*q^49 + (-a + 1)*q^53 - a*q^57 + (-a + 1)*q^60 - q^75 + 
        a*q^76 - q^79 + (a - 1)*q^80 + 1/3*(-2*a + 1)*q^84 + a*q^85 + (-a + 
        1)*q^87 + q^100 + 1/3*(-a - 1)*q^105 + 1/3*(2*a - 1)*q^112 + (a - 
        1)*q^116 + 1/3*(a + 1)*q^119 + (a - 1)*q^123 - a*q^125 + 1/3*(a + 
        1)*q^133 + q^135 + (-a + 1)*q^137 + 1/3*(a + 1)*q^140 + q^145 + 1/3*(-a 
        - 1)*q^147 + q^159 + (-a + 1)*q^164 + a*q^167 - a*q^175 - a*q^181 + 
        1/3*(-a + 2)*q^189 + (-a + 1)*q^193 + 1/3*(a + 1)*q^196 + (a - 1)*q^199 
        + 1/3*(a + 1)*q^203 - q^212 + (a - 1)*q^228 + O(q^234),
    q^6 + 1/3*(a - 2)*q^14 - a*q^18 - a*q^24 + (-a + 1)*q^30 + a*q^38 + 1/3*(-a 
        + 2)*q^42 + (a - 1)*q^54 + 1/3*(a + 1)*q^56 + 1/3*(2*a - 1)*q^70 + (a - 
        1)*q^72 + (-a + 1)*q^82 - q^90 + (a - 1)*q^96 + 1/3*(2*a - 1)*q^98 + 
        a*q^102 - q^106 - q^120 - a*q^126 + (-a + 1)*q^152 + a*q^158 + 2*q^162 +
        1/3*(-a - 1)*q^168 - q^174 + q^190 + 1/3*(-2*a + 1)*q^210 - a*q^214 + 
        q^216 + 1/3*(-2*a + 1)*q^224 + O(q^234),
    q^10 + 1/3*(-a + 2)*q^14 + a*q^30 - q^38 - a*q^40 + 1/3*(a + 1)*q^42 + (a - 
        1)*q^50 + 1/3*(-a - 1)*q^56 - a*q^58 + 1/3*(a - 2)*q^70 + a*q^82 + 
        1/3*(a - 2)*q^98 + (-a + 1)*q^106 - a*q^114 + (-a + 1)*q^120 - q^150 + 
        a*q^152 - q^158 + (a - 1)*q^160 + 1/3*(-2*a + 1)*q^168 + a*q^170 + (-a +
        1)*q^174 + q^200 + 1/3*(-a - 1)*q^210 + 1/3*(2*a - 1)*q^224 + (a - 
        1)*q^232 + O(q^234)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
827
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
826
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
827
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
118
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
827
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
59*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
827
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
413*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^23 + q^25 - q^31 - q^33 + q^49 - q^57 - q^61 + q^64 - 
        q^92 - q^99 + q^100 - q^101 - q^103 - q^107 + q^121 - q^124 - q^132 + 
        O(q^138),
    q^3 - q^11 + q^12 - q^19 - q^33 - q^44 + q^48 - q^57 + q^71 + q^73 + q^75 - 
        q^76 + q^79 - q^81 + q^83 - q^109 + q^113 + q^121 - q^127 - q^132 + 
        O(q^138),
    q^9 - q^11 - q^19 + q^23 - q^27 + q^31 + q^36 - q^44 + q^61 - q^69 - q^76 + 
        q^92 - q^93 + q^101 + q^103 + q^107 - q^108 - q^109 + q^124 - q^127 + 
        O(q^138)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
828
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
828
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
828
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
828
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
828
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
828
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
828
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
828
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
828
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
828
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
828
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
828
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
828
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^13 + q^25 - q^31 + q^49 - q^73 + q^121 - q^127 - q^139 - q^151 - q^163
        - q^193 + 2*q^211 + 2*q^223 + O(q^266),
    q^2 - q^26 - q^32 + q^50 - q^62 - q^92 + q^98 + q^116 + q^128 - q^146 + 
        q^164 + q^188 - 2*q^236 + q^242 - q^254 + O(q^266),
    q^3 - q^27 - q^39 + q^69 + q^75 + q^81 - q^87 - q^93 - q^123 - q^141 + q^147
        + 2*q^177 - q^213 - q^219 + O(q^266),
    q^4 - q^52 - q^64 + q^100 - q^124 - q^184 + q^196 + q^232 + q^256 + 
        O(q^266),
    q^6 - q^24 + q^48 - q^54 - q^78 + q^138 + q^150 + q^162 - q^174 - q^186 - 
        q^192 + q^216 - q^246 + O(q^266),
    q^8 - q^32 - q^92 - q^104 + q^116 + q^164 + q^188 + q^200 - 2*q^236 - q^248 
        + O(q^266),
    q^9 - q^27 - q^117 + q^207 + q^225 + q^243 - q^261 + O(q^266),
    q^12 - q^24 + q^96 - q^108 - q^156 - q^192 + q^216 + O(q^266),
    q^16 + q^46 - q^58 - q^64 - q^82 - q^94 + 2*q^118 - q^142 - q^184 + 2*q^202 
        - q^208 + q^232 - q^262 + O(q^266),
    q^18 - q^54 - q^72 + q^144 + q^216 - q^234 + O(q^266),
    q^23 - q^29 - q^41 - q^47 + 2*q^59 - q^71 + 2*q^101 - q^131 + 2*q^167 + 
        2*q^173 - q^179 - q^197 - q^233 - q^239 - q^257 + O(q^266),
    q^36 - q^72 - q^108 + q^216 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
828
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 2)*q^9 + (-2*a + 1)*q^12 + (4*a - 3)*q^13 + q^16 + (-a + 2)*q^18 + 
        (a - 2)*q^23 + a*q^24 + (-a + 1)*q^25 + (-4*a + 3)*q^26 + (a + 1)*q^27 +
        (-3*a + 1)*q^29 - a*q^31 - q^32 + (a - 1)*q^36 + (-2*a + 3)*q^39 + (a + 
        3)*q^41 - 2*a*q^46 - q^47 - a*q^48 + a*q^49 + 2*a*q^52 + (2*a - 2)*q^54 
        + (3*a - 1)*q^58 + (a - 2)*q^59 + a*q^62 + q^64 + (-2*a + 2)*q^69 + q^71
        - 2*a*q^72 + (-2*a - 1)*q^73 + (3*a - 1)*q^78 - 2*q^81 + (-a - 3)*q^82 +
        (3*a - 2)*q^87 + 2*a*q^92 + q^93 + q^94 + 2*q^96 + (-a - 1)*q^101 + (-a 
        - 3)*q^104 + (-2*a + 2)*q^108 + (-a - 1)*q^116 + (2*a - 3)*q^117 - 
        2*a*q^118 - a*q^121 - 2*a*q^123 + (a - 2)*q^124 + a*q^127 + (2*a - 
        1)*q^128 - a*q^131 + (2*a - 2)*q^138 + (a - 1)*q^139 + 2*q^141 - q^142 +
        2*a*q^144 + (2*a + 1)*q^146 + a*q^151 + (-4*a + 1)*q^156 + 2*q^162 + (-a
        + 1)*q^163 + (-a + 2)*q^164 + (-a + 2)*q^167 + a*q^169 + (-a - 1)*q^174 
        + (-2*a + 2)*q^177 + a*q^179 - 2*a*q^184 + (a - 2)*q^186 + (3*a - 
        3)*q^188 + (a - 2)*q^192 + (-a + 1)*q^193 + (3*a - 4)*q^197 + (a - 
        1)*q^207 + (a + 3)*q^208 - 3*a*q^211 + (-3*a + 1)*q^213 + (2*a - 
        2)*q^216 + (a - 1)*q^219 + (-3*a + 3)*q^223 + (2*a - 1)*q^225 + (-a + 
        3)*q^232 + (-a + 1)*q^233 + (-2*a + 2)*q^234 + 2*a*q^236 + q^239 + q^243
        + 3*q^246 - a*q^248 - a*q^254 + (-2*a + 1)*q^256 + (a + 2)*q^257 + (-2*a
        + 1)*q^261 + a*q^262 + O(q^266),
    q^2 - q^9 + (-a + 1)*q^12 + (a - 1)*q^13 + a*q^16 - a*q^29 - q^31 - a*q^39 +
        a*q^41 - a*q^46 + (a - 1)*q^47 + (-a + 1)*q^50 + q^52 + (a - 1)*q^54 + 
        (-a + 1)*q^71 - a*q^72 + (-a + 1)*q^73 + a*q^78 + a*q^87 + q^93 + q^96 +
        a*q^98 - q^104 - q^116 - a*q^118 + (a - 1)*q^123 + (a - 1)*q^124 + q^127
        + (a - 1)*q^128 - q^131 + a*q^139 + q^141 + q^151 - a*q^163 - a*q^164 + 
        (-a + 1)*q^169 - q^174 + q^179 + (a - 1)*q^186 + (a - 1)*q^188 - a*q^193
        - q^197 + (-a - 1)*q^202 + a*q^207 + (-a + 1)*q^213 + (-a + 1)*q^219 + 
        (a - 1)*q^225 + (-a + 1)*q^232 + a*q^233 - q^234 + (-a + 1)*q^239 - 
        a*q^242 + (-a + 1)*q^243 + q^246 - a*q^248 + q^257 + O(q^266),
    q^3 + (-a + 1)*q^9 + a*q^12 - 2*a*q^13 + (a - 1)*q^16 + (a - 1)*q^24 + (a + 
        1)*q^29 - a*q^31 - q^36 + q^39 + (a - 2)*q^41 + 2*q^46 + (-a - 1)*q^47 +
        (2*a - 2)*q^52 - 2*a*q^54 + a*q^69 + (2*a - 1)*q^71 + q^72 + q^73 + (-a 
        + 1)*q^75 - 2*q^78 + (-a + 1)*q^81 - q^87 + (a - 1)*q^93 + (a - 1)*q^96 
        + (-a + 2)*q^104 + (-2*a + 1)*q^116 - a*q^117 + 2*q^118 - a*q^123 + (-a 
        + 1)*q^124 - q^127 + (-a - 1)*q^128 + (-a + 2)*q^131 - a*q^139 + (a - 
        1)*q^141 + a*q^147 + (2*a - 2)*q^151 + a*q^156 + 2*q^163 + (a + 1)*q^164
        + (a - 1)*q^169 + (-2*a + 2)*q^174 + a*q^177 + (2*a - 1)*q^179 + (-2*a +
        1)*q^188 - a*q^192 + a*q^193 + (-2*a + 1)*q^197 - q^207 + a*q^213 + 
        a*q^219 - a*q^225 + (a - 1)*q^232 + a*q^243 + (2*a - 2)*q^246 + (-a + 
        2)*q^248 + (a - 2)*q^257 + q^261 + O(q^266),
    q^4 + q^9 + (a - 1)*q^12 + (-3*a + 3)*q^13 - q^16 - q^18 - a*q^24 + (a - 
        1)*q^26 + (3*a - 2)*q^29 + q^31 + a*q^32 - a*q^36 + a*q^39 + (-a - 
        2)*q^41 + 2*a*q^46 + (-a + 1)*q^47 - 2*q^52 + (-2*a + 2)*q^54 - a*q^58 -
        q^62 + (2*a - 2)*q^69 + (a - 1)*q^71 + a*q^72 + (a + 1)*q^73 - 3*a*q^78 
        + 2*q^81 + a*q^82 - a*q^87 - a*q^92 - q^93 + (a - 1)*q^94 - q^96 + (-a +
        1)*q^100 + (a + 2)*q^104 + (a - 1)*q^108 + (-a + 2)*q^116 + (-2*a + 
        2)*q^117 + 2*a*q^118 + (-a + 1)*q^123 + q^124 - q^127 + (-2*a + 1)*q^128
        + q^131 - a*q^139 - q^141 + (-a + 1)*q^142 - a*q^144 + (-a + 1)*q^146 - 
        q^151 + (2*a - 1)*q^156 + a*q^163 + (2*a - 1)*q^164 + (-a - 1)*q^169 + 
        (a + 2)*q^174 + (2*a - 2)*q^177 - q^179 + q^186 + (-a + 2)*q^188 + (-a +
        2)*q^192 + (a - 2)*q^193 + a*q^196 + (-2*a + 3)*q^197 - a*q^207 - q^208 
        + (a - 1)*q^213 + (a - 1)*q^219 + (-a + 1)*q^225 - 2*q^232 + a*q^233 - 
        a*q^236 + (a - 1)*q^239 + (a - 1)*q^243 + (a - 3)*q^246 + 2*a*q^248 + 
        q^254 + (a - 1)*q^256 + (-2*a - 1)*q^257 + 2*a*q^261 - q^262 + O(q^266),
    q^6 + (2*a - 1)*q^9 - a*q^12 + (3*a + 1)*q^13 + (-a + 1)*q^16 + (-a + 
        1)*q^18 + q^24 - 2*a*q^26 + (-a - 2)*q^29 - q^31 + (a - 1)*q^32 + q^36 -
        a*q^39 + (-3*a + 4)*q^41 - 2*q^46 + (a - 1)*q^47 + (a - 1)*q^48 + (-2*a 
        + 2)*q^52 + 2*a*q^54 + (a + 1)*q^58 - a*q^62 - 2*a*q^69 + (-a + 1)*q^71 
        - 2*q^72 + (a - 3)*q^73 + 3*q^78 + (2*a - 2)*q^81 + (a - 2)*q^82 + 
        a*q^87 + 2*q^92 + (-2*a + 1)*q^93 + (-a - 1)*q^94 + (-a + 1)*q^96 + (3*a
        - 4)*q^104 - 2*a*q^108 + (2*a - 1)*q^116 + 2*a*q^117 - 2*q^118 + (a - 
        1)*q^123 + (a - 1)*q^124 + q^127 + (a + 1)*q^128 - q^131 + a*q^138 + 
        a*q^139 + (-2*a + 1)*q^141 + (2*a - 1)*q^142 + q^144 + q^146 + (-a + 
        1)*q^150 + q^151 + (-a - 2)*q^156 + (-a + 1)*q^162 - a*q^163 + (-a - 
        1)*q^164 + (-a + 1)*q^169 + (2*a - 3)*q^174 - 2*a*q^177 + q^179 + (a - 
        1)*q^186 + (2*a - 1)*q^188 + (2*a - 1)*q^192 - a*q^193 + (4*a - 1)*q^197
        + a*q^207 + (-a + 2)*q^208 + (-a - 1)*q^213 + (-a + 1)*q^219 + (a + 
        1)*q^225 + (-3*a + 2)*q^232 - a*q^233 - a*q^234 + 2*q^236 + (-a + 
        1)*q^239 + (-a + 1)*q^243 + (-3*a + 2)*q^246 - q^248 - q^254 + (-a - 
        1)*q^256 + (-2*a + 3)*q^257 - 2*q^261 + (-a + 2)*q^262 + O(q^266),
    q^8 + (-a - 1)*q^9 + 2*q^12 + (a - 4)*q^13 + a*q^16 + 2*a*q^18 - 2*a*q^23 + 
        (a - 1)*q^24 + 4*q^26 + (2*a - 2)*q^27 + (-2*a + 3)*q^29 + (-a + 1)*q^31
        - a*q^32 - q^36 + (2*a + 1)*q^39 + (4*a - 1)*q^41 + (-2*a + 2)*q^46 - 
        a*q^47 + (-a + 1)*q^48 + (a - 1)*q^52 - 2*q^54 + (2*a - 4)*q^58 - 
        2*a*q^59 + (2*a - 1)*q^64 + 2*q^69 + a*q^71 + (-2*a + 2)*q^72 + (-3*a + 
        2)*q^73 + (2*a - 2)*q^78 - 2*a*q^81 + (-4*a + 2)*q^82 - 3*q^87 + (2*a - 
        2)*q^92 + (a + 1)*q^93 + (2*a - 1)*q^96 + (-4*a + 1)*q^104 + 2*q^108 - 
        a*q^116 - 2*q^117 + (-2*a + 2)*q^118 + (-a + 2)*q^123 + (-2*a - 1)*q^124
        + (a - 1)*q^127 + (a - 2)*q^128 + (-a + 1)*q^131 - 2*q^138 - q^139 + (a 
        + 1)*q^141 + (a - 2)*q^144 + (2*a - 2)*q^146 + (a - 1)*q^151 + (-3*a + 
        4)*q^156 + 2*a*q^162 + q^163 + a*q^164 + 2*a*q^167 + a*q^169 - 2*a*q^174
        + 2*q^177 + (a - 1)*q^179 + (-a + 2)*q^184 - 2*a*q^186 + (-a - 3)*q^188 
        + (-a - 1)*q^192 + q^193 + (-a - 3)*q^197 + (-a + 1)*q^200 - q^207 + 
        (4*a - 2)*q^208 + (-2*a + 4)*q^211 + (-a + 2)*q^213 + (-a - 1)*q^216 - 
        a*q^219 + (2*a + 2)*q^223 + (a - 2)*q^225 + (2*a + 1)*q^232 + q^233 + 
        2*q^234 + (2*a - 2)*q^236 + a*q^239 + a*q^243 + 2*a*q^246 + (-a + 
        1)*q^248 + (-a + 2)*q^256 + (3*a - 1)*q^257 + (-2*a + 2)*q^261 + 
        O(q^266)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
828
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^23 - a*q^25 - a*q^27 + (a - 1)*q^39 + (a - 1)*q^49 + (-a + 
        1)*q^59 + q^87 - a*q^93 + a*q^101 + q^117 + (a - 1)*q^121 + q^123 + (a -
        1)*q^141 + (-a + 1)*q^167 - a*q^169 - 2*a*q^173 + (-a + 1)*q^211 + (a - 
        1)*q^213 + (a - 1)*q^219 + a*q^223 + q^261 + O(q^266),
    q^2 + (a - 1)*q^18 + q^24 + q^26 - q^32 + (a - 1)*q^36 + (a - 1)*q^46 + (-a 
        + 1)*q^48 - a*q^50 + q^52 - a*q^54 - a*q^58 + (a - 1)*q^62 - q^64 + 
        a*q^72 - q^78 - a*q^82 + q^94 + (-a + 1)*q^96 + (a - 1)*q^98 - a*q^116 +
        (-a + 1)*q^118 + (a - 1)*q^124 - q^128 + q^142 + q^146 - a*q^156 - 
        a*q^164 + (-a + 1)*q^174 - q^186 + q^188 + a*q^202 + a*q^208 + (a - 
        2)*q^232 + q^234 + (a - 1)*q^242 + 2*q^246 + (a + 1)*q^248 + (a - 
        1)*q^254 + q^256 + (a - 1)*q^262 + O(q^266),
    q^3 + (a - 1)*q^13 + (a - 1)*q^29 + q^31 - a*q^41 + q^47 + (a - 1)*q^69 - 
        a*q^71 - a*q^73 - a*q^75 - a*q^81 + (a - 1)*q^117 + (a - 1)*q^127 + 
        q^131 - a*q^139 + (a - 1)*q^147 - a*q^151 + q^163 + q^169 + (-a + 
        1)*q^177 + (a - 1)*q^179 - a*q^193 + (a - 1)*q^197 + q^233 + (a - 
        1)*q^239 + q^257 + q^261 + O(q^266),
    q^4 + q^18 - a*q^24 - a*q^26 + (a - 1)*q^32 + (a - 1)*q^58 + q^62 + (a - 
        1)*q^78 + (a - 1)*q^82 + (a - 1)*q^92 - a*q^94 - a*q^100 + q^104 - 
        a*q^108 - a*q^142 + (a - 1)*q^144 - a*q^146 + (a - 1)*q^156 + (a - 
        1)*q^174 + q^186 + q^192 + (a - 1)*q^196 + q^208 + q^232 + (-a + 
        1)*q^236 - a*q^246 - a*q^248 + q^254 - a*q^256 + q^262 + O(q^266),
    q^6 + a*q^18 + (-a + 1)*q^24 + (a - 2)*q^32 - a*q^48 + (a - 2)*q^58 + (a + 
        1)*q^62 + q^72 - q^78 + (-a - 1)*q^82 + (-a + 2)*q^94 + (a - 1)*q^138 + 
        (-2*a + 1)*q^142 - q^144 + (-2*a + 1)*q^146 - a*q^150 - a*q^162 - q^174 
        + a*q^186 + a*q^192 + (a + 1)*q^208 + (2*a - 1)*q^232 + (a - 1)*q^234 + 
        (-a + 1)*q^246 + (-a + 2)*q^248 + (2*a - 1)*q^254 + (-a + 2)*q^256 + (a 
        + 1)*q^262 + O(q^266),
    q^8 + q^18 - a*q^24 - a*q^26 + (2*a - 1)*q^32 + q^36 + (-a - 1)*q^48 - 
        a*q^52 + (a - 1)*q^58 + q^62 + (a - 1)*q^64 + (-a + 1)*q^72 + (a - 
        1)*q^78 + (a - 1)*q^82 - a*q^94 + (a - 1)*q^116 + q^124 - a*q^142 + (a -
        1)*q^144 - a*q^146 + (a - 1)*q^156 + (a - 1)*q^164 + (a - 1)*q^174 + (a 
        - 1)*q^184 + q^186 - a*q^188 + q^192 - a*q^200 + (-a + 3)*q^208 - 
        a*q^216 + (a + 1)*q^232 - a*q^246 + (-2*a + 1)*q^248 + q^254 + (-2*a + 
        1)*q^256 + q^262 + O(q^266),
    q^9 - a*q^13 + (a - 1)*q^29 + q^31 + (a - 1)*q^39 + (a - 1)*q^41 - a*q^47 - 
        a*q^71 - a*q^73 + (a - 1)*q^87 + q^93 - a*q^123 + q^127 + q^131 + (a - 
        1)*q^139 + q^141 + q^151 + (a - 1)*q^163 - a*q^169 + q^179 + (a - 
        1)*q^193 + q^197 + (a - 1)*q^207 - a*q^213 - a*q^219 - a*q^225 + (a - 
        1)*q^233 - a*q^239 - a*q^243 + q^257 + O(q^266),
    q^12 + (2*a - 1)*q^18 + (-a + 1)*q^24 + (-a + 2)*q^26 + (a - 2)*q^32 + 
        a*q^36 + (-2*a + 1)*q^48 + (-a - 1)*q^58 + (2*a - 1)*q^62 + (a - 2)*q^64
        + q^72 + (-a - 1)*q^78 + (-a - 1)*q^82 + (-a + 2)*q^94 - a*q^96 + (a - 
        2)*q^116 + (a + 1)*q^124 + (-a + 2)*q^142 + (-a + 2)*q^146 - q^156 + (-a
        - 1)*q^164 + (-a - 1)*q^174 + (2*a - 1)*q^186 + (-a + 2)*q^188 + a*q^192
        + (a + 1)*q^208 + (2*a - 1)*q^232 + (-a + 2)*q^246 + (-a + 2)*q^248 + 
        (2*a - 1)*q^254 + (-a + 2)*q^256 + (2*a - 1)*q^262 + O(q^266),
    q^16 + a*q^18 + (-a + 1)*q^26 + (a - 1)*q^32 - a*q^48 - q^58 + a*q^62 + (a -
        1)*q^64 + q^72 - q^78 - q^82 + (-a + 1)*q^94 - a*q^96 - a*q^104 - q^128 
        + (-a + 1)*q^142 + (-a + 1)*q^146 - q^174 + a*q^186 + q^192 + q^208 + (a
        - 1)*q^232 + (-a + 1)*q^246 + q^248 + a*q^254 + (-a + 1)*q^256 + a*q^262
        + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
828
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^25 - q^49 - q^52 - q^58 + q^64 + q^82 + q^94 + q^121 + q^124 - q^142 +
        q^169 - q^184 - q^208 - q^262 + O(q^266),
    q^2 + q^29 - q^41 + q^47 - q^50 - q^71 - q^98 - q^104 - q^116 + q^128 - 
        q^131 + q^164 + q^179 + q^188 - q^197 - q^233 - q^239 + q^242 + q^248 + 
        q^257 + O(q^266),
    q^3 - q^39 + q^48 - q^72 - q^75 + q^78 + q^87 + q^93 - q^96 + q^108 - q^117 
        - q^123 - q^138 - q^141 + q^144 - q^147 - 2*q^156 - q^162 - q^174 - 
        q^186 + q^192 + q^207 + q^213 - q^216 + q^219 + 2*q^234 + q^243 + q^246 
        + q^261 + O(q^266),
    q^4 - q^16 - 2*q^31 + q^46 + q^52 + q^58 - q^82 + q^94 - q^100 - 2*q^118 + 
        q^124 + 2*q^127 - 2*q^139 - q^142 + 2*q^151 + 2*q^163 - q^196 - q^208 - 
        2*q^232 + q^256 - q^262 + O(q^266),
    q^6 - q^27 - q^36 + q^39 - q^48 + q^87 - q^93 + q^117 - q^123 + q^138 + 
        q^141 - q^150 + q^156 + q^162 - q^213 + q^216 - q^219 - q^234 - q^261 + 
        O(q^266),
    q^8 - q^23 + q^29 - q^32 - q^41 - q^47 + 2*q^59 - 2*q^62 + q^71 + q^92 + 
        q^104 + q^116 + q^131 - q^164 - 2*q^167 - q^179 + q^188 - q^197 - q^200 
        - q^233 - 2*q^236 + q^239 + q^248 + 2*q^254 + q^257 + O(q^266),
    q^9 - q^27 - q^36 + 2*q^39 - 2*q^48 + q^72 - 2*q^93 - q^108 + q^117 + 
        2*q^138 + 2*q^156 + 2*q^162 - q^207 + q^216 - 2*q^219 - q^225 - 2*q^234 
        - q^243 - q^261 + O(q^266),
    q^12 + q^27 + q^36 - 3*q^39 + 2*q^48 - q^54 - 2*q^72 + q^78 + q^87 + q^93 - 
        q^96 + q^108 - q^117 - q^123 - 2*q^138 - q^141 - 2*q^156 - 2*q^162 + 
        q^174 - q^186 + 2*q^207 + q^213 - q^216 + 3*q^219 + 3*q^234 + 2*q^243 - 
        q^246 + q^261 + O(q^266),
    q^13 - q^16 - q^31 + q^46 + q^52 - q^73 - 2*q^118 + q^124 + q^127 - q^139 + 
        q^151 + q^163 - q^169 + q^193 - q^232 + O(q^266),
    q^18 + q^36 - 2*q^39 + 2*q^48 - q^54 - 2*q^72 + 2*q^78 + 2*q^87 + 2*q^93 - 
        2*q^96 + q^108 - 2*q^117 - 2*q^123 - 2*q^138 - 2*q^141 + q^144 - 2*q^156
        - 2*q^162 - 2*q^186 + 2*q^207 + 2*q^213 - 2*q^216 + 2*q^219 + 3*q^234 + 
        2*q^243 + 2*q^261 + O(q^266),
    q^24 - q^36 + q^39 - q^48 + q^54 - q^69 + q^72 - 2*q^78 - q^81 - q^87 - q^93
        + q^96 - q^108 + 2*q^117 + q^123 + q^138 + q^141 - q^144 + q^156 + q^162
        + 2*q^177 - q^207 - q^213 + q^216 - q^219 - q^234 - q^243 + O(q^266),
    q^26 + q^29 - q^32 - q^41 - q^47 - q^62 + q^71 + q^92 + q^104 + q^131 - 
        q^146 - q^179 - q^197 - q^233 - 2*q^236 + q^239 + q^248 + q^254 + q^257 
        + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
829
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
828
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
829
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
276
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
829
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
92
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
829
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
23*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
829
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
69*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
829
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
207*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
830
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
830
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
82
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
830
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
82
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
830
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
164
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
830
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
41*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 + q^4 - q^7 - q^11 - q^12 + q^16 - q^17 + q^21 + 2*q^23 + q^25 + 
        q^27 - q^28 - q^29 - q^31 + q^33 - q^37 + 2*q^41 - q^44 - q^48 + q^51 - 
        q^59 - q^61 + q^64 - q^68 - 2*q^69 - q^75 + q^77 - q^81 + q^83 + q^84 + 
        q^87 + 2*q^92 + q^93 + q^100 + q^108 - q^109 + q^111 - q^112 - q^113 - 
        q^116 + q^119 - 2*q^123 - q^124 - q^127 + 2*q^131 + q^132 - q^148 - 
        q^151 - 2*q^161 + 2*q^164 - q^167 + q^169 - q^173 - q^175 - q^176 + 
        q^177 + q^183 + q^187 - q^189 - q^191 - q^192 + 2*q^193 - q^197 + 
        2*q^199 + q^203 + q^204 + q^217 + 2*q^227 + 2*q^229 - q^231 - q^236 - 
        q^241 - q^244 + O(q^246),
    q^2 - q^6 + q^8 - q^14 - q^22 - q^24 + q^32 - q^34 + q^42 + 2*q^46 + q^50 + 
        q^54 - q^56 - q^58 - q^62 + q^66 - q^74 + 2*q^82 - q^88 - q^96 + q^102 -
        q^118 - q^122 + q^128 - q^136 - 2*q^138 - q^150 + q^154 - q^162 + q^166 
        + q^168 + q^174 + 2*q^184 + q^186 + q^200 + q^216 - q^218 + q^222 - 
        q^224 - q^226 - q^232 + q^238 + O(q^246),
    q^5 - q^15 + q^20 - q^35 - q^55 - q^60 + q^80 - q^85 + q^105 + 2*q^115 + 
        q^125 + q^135 - q^140 - q^145 - q^155 + q^165 - q^185 + 2*q^205 - q^220 
        - q^240 + O(q^246),
    q^10 - q^30 + q^40 - q^70 - q^110 - q^120 + q^160 - q^170 + q^210 + 2*q^230 
        + O(q^246)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
830
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 41*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 + q^25 - q^26 - q^29 - q^31 - q^40 - q^44 + q^49 - q^59 - q^65 + 
        q^81 - q^86 - q^94 + q^104 + q^106 + q^110 + q^116 + q^124 - q^131 + 
        q^134 + q^146 + q^160 - q^164 + q^169 + q^194 + q^214 - q^215 + q^225 - 
        q^229 - q^234 - q^235 + q^236 - q^241 - q^244 + O(q^246),
    q^2 + q^18 + q^50 - q^52 - q^58 - q^62 - q^80 - q^88 + q^98 - q^118 - q^130 
        + q^162 - q^172 - q^188 + q^208 + q^212 + q^220 + q^232 + O(q^246),
    q^4 - q^26 + q^36 - q^40 - q^44 - q^86 - q^94 + q^100 + q^106 + q^110 + 
        q^134 + q^146 - q^164 - q^176 + q^194 + q^196 + q^214 - q^234 - q^244 + 
        O(q^246),
    q^5 + q^22 + q^32 + q^45 - q^53 - q^55 - q^58 - q^62 - q^67 - q^73 - q^80 + 
        q^82 + q^83 - q^88 - q^97 + 2*q^103 - q^107 - q^118 + q^122 + q^125 - 
        q^130 - q^143 - q^157 + 2*q^163 + q^198 - q^205 + q^218 - q^223 + q^232 
        - q^242 + q^245 + O(q^246),
    q^8 - q^20 - q^22 + q^58 + q^62 + q^72 - q^82 - q^88 + q^118 - q^122 - q^128
        + q^130 - q^180 - q^198 + q^200 - q^208 + q^212 - q^218 + q^220 + q^242 
        + O(q^246),
    q^10 - q^16 - q^26 + q^44 + q^64 - q^86 + q^90 - q^94 + q^104 - q^116 - 
        q^124 - q^144 + q^164 + q^166 + 2*q^206 - q^234 - q^236 + q^244 + 
        O(q^246),
    q^11 + q^16 - q^29 - q^31 - q^40 + q^41 - q^44 - q^59 + q^61 - q^65 + q^99 +
        q^109 + q^116 - q^121 + q^124 - q^131 + q^144 + q^151 - q^164 + q^169 - 
        q^176 + q^191 + q^199 - q^215 - q^229 - q^235 + q^236 - q^241 - q^244 + 
        O(q^246),
    q^13 + q^20 + q^22 + q^43 + q^47 - q^52 - q^53 - q^55 - q^58 - q^62 - q^67 -
        q^73 - q^80 + q^82 - q^97 - q^107 + q^117 - q^118 + q^122 + q^128 - 
        q^130 + q^137 + q^145 + q^155 - q^157 - q^172 + q^180 - q^188 + q^198 - 
        q^205 + q^208 + q^218 - q^223 + q^233 - q^242 + O(q^246)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
831
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
183
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
831
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
276
);
qprec:=
183
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
831
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
183
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
831
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
92
);
qprec:=
183
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
831
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
183
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
831
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
183
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^2*q^3 + a^9*q^4 + (-a^12 - a^10)*q^7 + a^4*q^9 - a^11*q^12 + (-a^9 + 
        a^6)*q^13 + a^18*q^16 + (-a^17 - a^5)*q^19 + (a^14 + a^12)*q^21 + a*q^25
        - a^6*q^27 + (-a^21 - a^19)*q^28 + (-a^21 + a^20 - a^19 + a^18 - a^17 + 
        a^16 - a^15 + a^14 - a^13 + a^12 - a^11 + a^10 - a^9 + a^8 - a^7 + a^6 -
        a^5 + a^4 - a^3 + 2*a^2 - a + 1)*q^31 + a^13*q^36 + (-a^13 + a^5)*q^37 +
        (a^11 - a^8)*q^39 + (a^17 - a^15)*q^43 - a^20*q^48 + (a^21 + a^19 - a^18
        + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + 
        a^7 - a^6 + a^5 - a^4 + a^3 - a^2 - 1)*q^49 + (-a^18 + a^15)*q^52 + 
        (a^19 + a^7)*q^57 + (a^16 - 1)*q^61 + (-a^16 - a^14)*q^63 - a^4*q^64 + 
        (a^10 - a^3)*q^67 + (-a^7 + a^3)*q^73 - a^3*q^75 + (-a^14 + a^3)*q^76 + 
        (a^16 + a^8)*q^79 + a^8*q^81 + (a^21 - 1)*q^84 + (a^21 + a^19 - a^18 - 
        a^16)*q^91 + (-a^4 - a)*q^93 + (-a^20 - a^7)*q^97 + a^10*q^100 + (a^21 +
        a^20)*q^103 - a^15*q^108 + (a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + 
        a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - 2*a^8 + a^7 - a^6 + a^5 
        - a^4 + a^3 - a^2 + a - 1)*q^109 + (a^15 - a^7)*q^111 + (a^7 + 
        a^5)*q^112 + (-a^13 + a^10)*q^117 + a^7*q^121 + (a^11 + a^8)*q^124 + 
        (a^13 + a^2)*q^127 + (-a^19 + a^17)*q^129 + (a^17 + a^15 - a^6 - 
        a^4)*q^133 + (-a^21 - a^16)*q^139 + (a^21 - a^20 + a^19 - a^18 + a^17 - 
        a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 +
        a^5 - a^4 + a^3 - a^2 + a - 1)*q^144 + (-a^21 + a^20 - a^19 + a^18 - 
        a^17 + a^16 - a^15 + a^14 - a^13 + a^12 - a^11 + a^10 - a^9 + a^8 - a^7 
        + a^6 - a^5 + a^4 + a^2 + 1)*q^147 + (-a^21 + a^20 - a^19 + a^18 - a^17 
        + a^16 - a^15 + 2*a^14 - a^13 + a^12 - a^11 + a^10 - a^9 + a^8 - a^7 + 
        a^6 - a^5 + a^4 - a^3 + a^2 - a + 1)*q^148 + (a^11 - a^5)*q^151 + (a^20 
        - a^17)*q^156 + (a^19 + a^13)*q^157 + (a^12 - 1)*q^163 + (a^18 - a^15 + 
        a^12)*q^169 + (-a^21 - a^9)*q^171 + (-a^3 + a)*q^172 + (-a^13 - 
        a^11)*q^175 + (-a^20 + a^6)*q^181 + O(q^183)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
831
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
183
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^4*q^3 + a^18*q^4 + (a^20 - a)*q^7 + a^8*q^9 + (a^21 - a^20 + a^19 - 
        a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8
        + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^12 + (a^18 + a^12)*q^13 -
        a^13*q^16 + (-a^11 + a^10)*q^19 + (-a^5 - a)*q^21 + a^2*q^25 + a^12*q^27
        + (-a^19 - a^15)*q^28 + (-a^21 + a^4)*q^31 - a^3*q^36 + (a^10 - 
        a^3)*q^37 + (a^21 - a^20 + a^19 - a^18 + a^17 + a^15 - a^14 + a^13 - 
        a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a -
        1)*q^39 + (-a^11 - a^7)*q^43 - a^17*q^48 + (-a^21 - a^17 + a^2)*q^49 + 
        (-a^13 - a^7)*q^52 + (-a^15 + a^14)*q^57 + (-a^9 + 1)*q^61 + (-a^9 - 
        a^5)*q^63 + a^8*q^64 + (a^20 + a^6)*q^67 + (a^14 + a^6)*q^73 + a^6*q^75 
        + (a^6 - a^5)*q^76 + (a^16 - a^9)*q^79 + a^16*q^81 + (-a^19 + 1)*q^84 + 
        (-a^19 - a^15 - a^13 - a^9)*q^91 + (a^8 + a^2)*q^93 + (-a^17 + 
        a^14)*q^97 + a^20*q^100 + (-a^19 - a^17)*q^103 - a^7*q^108 + (-a^21 + 
        a^16)*q^109 + (a^14 - a^7)*q^111 + (a^14 + a^10)*q^112 + (a^20 - 
        a^3)*q^117 + a^14*q^121 + (a^21 - a^20 + a^19 - a^18 + a^17 + a^15 - 
        a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^124 + (a^4 - a^3)*q^127 + (-a^15 - a^11)*q^129 + 
        (a^12 - a^11 + a^8 - a^7)*q^133 + (-a^19 - a^9)*q^139 - a^21*q^144 + 
        (-a^21 + a^6 + a^2)*q^147 + (-a^21 - a^5)*q^148 + (a^21 - a^20 + a^19 - 
        a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 + a^9 - a^8 + a^7 
        - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^151 + (-a^17 - a^11)*q^156 + 
        (-a^15 - a^3)*q^157 + (-a + 1)*q^163 + (-a^13 - a^7 - a)*q^169 + (-a^19 
        + a^18)*q^171 + (a^6 + a^2)*q^172 + (a^21 - a^20 + a^19 - a^18 + a^17 - 
        a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 +
        a^5 - a^4 - a^2 + a - 1)*q^175 + (-a^17 + a^12)*q^181 + O(q^183)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
831
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
23*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
183
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
831
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 46*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
183
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
831
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
69*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
183
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
831
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 92*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
183
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
831
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 138*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
183
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - q^52 - q^55 - q^57 - q^66 - q^70 + q^81 - q^85 - 
        q^91 - q^112 - q^120 + q^121 - q^147 - q^157 + q^169 + O(q^183),
    q^2 + q^18 - q^26 - q^33 - q^35 + q^50 - q^56 - q^60 - q^95 + q^98 - q^101 +
        q^105 + q^107 + q^119 + q^125 + q^149 - q^150 - q^158 + q^159 + q^162 + 
        O(q^183),
    q^3 - q^19 - q^22 + q^27 - q^40 - q^49 + q^70 + q^75 + q^76 - q^85 + q^88 - 
        q^100 + q^106 + q^130 + q^147 - q^154 - q^156 + q^160 - q^165 - q^171 - 
        q^175 + O(q^183),
    q^4 - q^13 - q^28 - q^30 + q^36 + q^55 + q^57 - q^75 - q^79 + q^85 + q^91 + 
        q^100 - q^117 - q^130 - q^136 + q^147 - q^154 + q^157 - q^160 - q^175 + 
        O(q^183),
    q^5 - q^14 - q^17 + q^44 + q^45 + q^50 - q^51 - q^60 + q^78 - q^95 + q^96 - 
        q^104 + q^125 - q^126 - q^128 - q^143 + q^152 - q^153 + q^167 + q^179 + 
        q^182 + O(q^183),
    q^6 - q^14 - q^17 - q^20 + q^24 + q^35 + q^38 - q^42 + q^44 - q^51 + q^53 + 
        q^54 - q^56 - q^60 + q^65 - q^68 - q^95 + q^96 + q^98 - q^104 - q^110 + 
        q^119 - q^126 - q^128 - q^134 + 2*q^140 + q^150 + 2*q^152 - q^153 - 
        q^168 + q^170 + q^176 - q^180 + O(q^183),
    q^7 - q^13 - q^16 + q^34 + q^40 + q^63 - q^66 - q^70 - q^75 - q^79 + q^84 + 
        q^102 - q^117 + q^121 + q^133 - q^144 + q^165 + O(q^183),
    q^8 - q^14 - q^17 - q^20 + q^26 + q^32 + q^33 + q^35 - q^42 - q^51 - q^68 + 
        q^72 - q^80 + q^101 + q^114 - q^126 + q^132 - q^134 + q^140 - q^143 + 
        q^150 - q^153 + q^158 - q^168 + q^170 - q^176 - q^180 + q^182 + 
        O(q^183),
    q^10 - q^13 - q^16 + q^22 + q^25 - q^28 - q^30 + q^39 + q^40 + q^48 - q^52 -
        q^64 - q^66 - q^70 - q^75 + q^76 - q^79 + q^84 + q^88 + q^90 + q^91 + 
        q^100 - q^117 - q^120 - q^130 + q^133 - q^144 + q^156 - q^175 + 
        O(q^183),
    q^11 - q^14 - q^17 + q^24 + q^38 - q^42 + q^44 + q^50 - q^51 - q^56 - q^60 -
        q^68 + q^77 + q^78 - q^95 + q^96 + q^98 + q^99 - q^104 + q^105 - q^110 -
        q^126 - q^128 - q^134 + q^137 + q^140 - q^143 + q^152 - q^153 + q^170 + 
        q^182 + O(q^183),
    q^12 - q^13 - q^16 + q^19 + q^22 - q^28 - q^30 + q^40 + q^48 + q^49 - q^52 -
        q^64 - q^66 - q^75 + q^76 - q^79 + q^85 + q^88 + q^100 + q^106 + q^108 -
        q^112 - q^117 - q^120 - q^136 - q^144 + q^156 + q^165 + q^171 + 
        O(q^183),
    q^15 - q^17 - q^20 + q^26 + q^32 - q^42 - q^51 + q^65 + q^77 - q^95 - q^110 
        + q^132 - q^134 + q^135 + q^140 - q^143 + q^150 - q^153 + q^158 + q^173 
        - q^176 - q^180 + O(q^183),
    q^21 - q^22 - q^25 + q^28 + q^34 - q^39 - q^48 + q^55 + q^67 - q^76 - q^91 +
        q^102 + q^120 - q^133 - q^154 + q^169 + O(q^183)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^2 - a)*q^5 + (-a^2 + 1)*q^9 + (-a^3 + a)*q^13 + a*q^17 + (-a^3 + 
        2*a^2 - 1)*q^25 + (a^3 + a)*q^29 + (-a^3 - a^2 + 1)*q^37 + (-a - 1)*q^41
        + (a^3 - a + 1)*q^45 + (a^3 - a)*q^49 - q^53 + (-a^2 + 1)*q^61 + (a - 
        1)*q^65 + (-a^2 - a)*q^73 - a^2*q^81 + (a^3 - a^2)*q^85 + (a^3 + a^2 - 
        a)*q^89 + (a^2 + a - 1)*q^97 + (a^2 - 2)*q^101 + (a^3 - 1)*q^109 + 
        (-2*a^3 + a)*q^113 - a^3*q^117 + a*q^121 + (-2*a^3 + a^2 + a - 2)*q^125 
        + (a^3 - a^2)*q^137 + (2*a^3 - 2*a^2 - a + 1)*q^145 + (a^3 + a^2)*q^149 
        + (-a^3 + a)*q^153 + (a^3 - 2*a)*q^157 + (-a^2 + 1)*q^169 - a^3*q^181 + 
        a^2*q^185 + (-a + 1)*q^193 + (a^3 - a^2 - a)*q^197 + O(q^202)
]
;
Bo:=
[
    q + (-a^2 + a)*q^5 + (-a^2 + 1)*q^9 + (a^3 - a)*q^13 + a*q^17 + (-a^3 + 
        2*a^2 - 1)*q^25 + (-a^3 - a)*q^29 + (a^3 + a^2 - 1)*q^37 + (-a - 1)*q^41
        + (-a^3 + a - 1)*q^45 + (a^3 - a)*q^49 + q^53 + (a^2 - 1)*q^61 + (a - 
        1)*q^65 + (-a^2 - a)*q^73 - a^2*q^81 + (-a^3 + a^2)*q^85 + (a^3 + a^2 - 
        a)*q^89 + (a^2 + a - 1)*q^97 + (-a^2 + 2)*q^101 + (-a^3 + 1)*q^109 + 
        (-2*a^3 + a)*q^113 + a^3*q^117 + a*q^121 + (2*a^3 - a^2 - a + 2)*q^125 +
        (a^3 - a^2)*q^137 + (2*a^3 - 2*a^2 - a + 1)*q^145 + (-a^3 - a^2)*q^149 +
        (-a^3 + a)*q^153 + (-a^3 + 2*a)*q^157 + (-a^2 + 1)*q^169 + a^3*q^181 + 
        a^2*q^185 + (-a + 1)*q^193 + (-a^3 + a^2 + a)*q^197 + O(q^202),
    q^2 + (-a^2 + a)*q^10 + (-a^2 + 1)*q^18 + (a^3 - a)*q^26 + a*q^34 + (-a^3 + 
        2*a^2 - 1)*q^50 + (-a^3 - a)*q^58 + (a^3 + a^2 - 1)*q^74 + (-a - 1)*q^82
        + (-a^3 + a - 1)*q^90 + (a^3 - a)*q^98 + q^106 + (a^2 - 1)*q^122 + (a - 
        1)*q^130 + (-a^2 - a)*q^146 - a^2*q^162 + (-a^3 + a^2)*q^170 + (a^3 + 
        a^2 - a)*q^178 + (a^2 + a - 1)*q^194 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-2*a + 1)*q^5 - a*q^9 + (a - 1)*q^13 - a*q^17 - 2*q^25 + (-a + 1)*q^29 
        + (a + 1)*q^37 + (a + 1)*q^41 + (a - 2)*q^45 + (-a + 1)*q^49 + q^53 - 
        a*q^61 + (a + 1)*q^65 + (2*a - 1)*q^73 + (a - 1)*q^81 + (a - 2)*q^85 + 
        (a - 1)*q^101 - a*q^113 + q^117 + a*q^121 + (2*a - 1)*q^125 + (a - 
        2)*q^137 + (-a - 1)*q^145 + (-a + 2)*q^149 + (a - 1)*q^153 - q^157 - 
        a*q^169 + 2*a*q^173 - q^181 + (-3*a + 3)*q^185 + (a + 1)*q^193 + 
        O(q^202)
]
;
Bo:=
[
    q + (2*a - 1)*q^5 - a*q^9 + (-a + 1)*q^13 - a*q^17 - 2*q^25 + (a - 1)*q^29 +
        (-a - 1)*q^37 + (a + 1)*q^41 + (-a + 2)*q^45 + (-a + 1)*q^49 - q^53 + 
        a*q^61 + (a + 1)*q^65 + (2*a - 1)*q^73 + (a - 1)*q^81 + (-a + 2)*q^85 + 
        (-a + 1)*q^101 - a*q^113 - q^117 + a*q^121 + (-2*a + 1)*q^125 + (a - 
        2)*q^137 + (-a - 1)*q^145 + (a - 2)*q^149 + (a - 1)*q^153 + q^157 - 
        a*q^169 - 2*a*q^173 + q^181 + (-3*a + 3)*q^185 + (a + 1)*q^193 + 
        O(q^202),
    q^2 + (2*a - 1)*q^10 - a*q^18 + (-a + 1)*q^26 - a*q^34 - 2*q^50 + (a - 
        1)*q^58 + (-a - 1)*q^74 + (a + 1)*q^82 + (-a + 2)*q^90 + (-a + 1)*q^98 -
        q^106 + a*q^122 + (a + 1)*q^130 + (2*a - 1)*q^146 + (a - 1)*q^162 + (-a 
        + 2)*q^170 + O(q^202),
    q^4 + (2*a - 1)*q^20 - a*q^36 + (-a + 1)*q^52 - a*q^68 - 2*q^100 + (a - 
        1)*q^116 + (-a - 1)*q^148 + (a + 1)*q^164 + (-a + 2)*q^180 + (-a + 
        1)*q^196 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a - 1)*q^5 - q^9 - a*q^13 - 2*a*q^17 + a*q^25 + (a - 1)*q^37 + (-a - 
        1)*q^41 + (a + 1)*q^45 + a*q^49 + 2*q^53 + 2*q^61 + (a - 1)*q^65 + (-a +
        1)*q^73 + q^81 + (2*a - 2)*q^85 + (a - 1)*q^89 + (a + 1)*q^97 + (-a - 
        1)*q^109 + a*q^117 + a*q^121 + (-a + 1)*q^137 + (-a - 1)*q^149 + 
        2*a*q^153 - q^169 - 2*a*q^181 + 2*q^185 + (-a + 1)*q^193 + (a + 1)*q^197
        + O(q^202)
]
;
Bo:=
[
    q + (a + 1)*q^5 - q^9 + a*q^13 - 2*a*q^17 + a*q^25 + (-a + 1)*q^37 + (-a - 
        1)*q^41 + (-a - 1)*q^45 + a*q^49 - 2*q^53 - 2*q^61 + (a - 1)*q^65 + (-a 
        + 1)*q^73 + q^81 + (-2*a + 2)*q^85 + (a - 1)*q^89 + (a + 1)*q^97 + (a + 
        1)*q^109 - a*q^117 + a*q^121 + (-a + 1)*q^137 + (a + 1)*q^149 + 
        2*a*q^153 - q^169 + 2*a*q^181 + 2*q^185 + (-a + 1)*q^193 + (-a - 
        1)*q^197 + O(q^202),
    q^2 + (a + 1)*q^10 - q^18 + a*q^26 - 2*a*q^34 + a*q^50 + (-a + 1)*q^74 + (-a
        - 1)*q^82 + (-a - 1)*q^90 + a*q^98 - 2*q^106 - 2*q^122 + (a - 1)*q^130 +
        (-a + 1)*q^146 + q^162 + (-2*a + 2)*q^170 + (a - 1)*q^178 + (a + 
        1)*q^194 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^13 + (a - 1)*q^17 + q^21 - q^25 - a*q^29 + (-a + 1)*q^33 + a*q^37 - 
        a*q^41 - q^57 + (a - 1)*q^61 + (-a + 1)*q^69 + q^77 + a*q^81 + a*q^89 + 
        (-a + 1)*q^97 + a*q^101 + (a - 1)*q^113 + q^129 - a*q^133 + (-a + 
        1)*q^137 - 2*a*q^141 + (a - 1)*q^149 + q^161 + q^169 + (a - 1)*q^173 - 
        q^177 + (a - 1)*q^189 - a*q^193 - a*q^197 + (a - 1)*q^201 + O(q^202),
    q^3 + a*q^7 + q^11 - a*q^19 + q^23 + (a - 1)*q^27 - q^39 + a*q^43 + (-2*a + 
        2)*q^47 + (a - 1)*q^51 - a*q^59 - q^67 - a*q^71 - q^75 + (2*a - 2)*q^79 
        - a*q^87 - a*q^91 + q^107 + a*q^111 - q^119 - a*q^123 - q^127 - a*q^139 
        - q^143 + a*q^163 + q^167 - a*q^175 + q^179 + (a - 1)*q^183 + (a - 
        1)*q^187 + a*q^191 - a*q^199 + O(q^202),
    q^5 + (a - 1)*q^9 + (a + 1)*q^13 + (-2*a + 2)*q^17 - q^21 + q^25 + (a - 
        1)*q^33 - 2*a*q^37 + 2*a*q^41 + (a - 1)*q^45 - a*q^49 + q^53 + q^57 + 
        a*q^65 + (a - 1)*q^69 - q^73 - q^77 - 2*a*q^81 + (-a + 1)*q^85 - 
        3*a*q^89 + (3*a - 3)*q^97 - 2*a*q^101 - 2*q^109 + (-2*a + 2)*q^113 - 
        q^117 + (a - 1)*q^121 - q^125 - q^129 + a*q^133 + 2*a*q^141 - a*q^145 + 
        a*q^153 + q^157 - q^161 + (a - 2)*q^169 + (-3*a + 3)*q^173 + q^177 + 
        q^181 - a*q^185 + (-a + 1)*q^189 + 2*a*q^193 + 3*a*q^197 + (-a + 
        1)*q^201 + O(q^202)
]
;
Bo:=
[
    q + q^13 + (a - 1)*q^17 - q^21 - q^25 + a*q^29 + (-a + 1)*q^33 - a*q^37 - 
        a*q^41 - q^57 + (-a + 1)*q^61 + (a - 1)*q^69 - q^77 + a*q^81 + a*q^89 + 
        (-a + 1)*q^97 - a*q^101 + (a - 1)*q^113 + q^129 + a*q^133 + (-a + 
        1)*q^137 + 2*a*q^141 + (-a + 1)*q^149 + q^161 + q^169 + (-a + 1)*q^173 -
        q^177 + (-a + 1)*q^189 - a*q^193 + a*q^197 + (a - 1)*q^201 + O(q^202),
    q^2 + q^26 + (a - 1)*q^34 - q^42 - q^50 + a*q^58 + (-a + 1)*q^66 - a*q^74 - 
        a*q^82 - q^114 + (-a + 1)*q^122 + (a - 1)*q^138 - q^154 + a*q^162 + 
        a*q^178 + (-a + 1)*q^194 + O(q^202),
    q^3 - a*q^7 + q^11 - a*q^19 - q^23 + (a - 1)*q^27 + q^39 + a*q^43 + (2*a - 
        2)*q^47 + (a - 1)*q^51 - a*q^59 - q^67 + a*q^71 - q^75 + (-2*a + 2)*q^79
        + a*q^87 - a*q^91 + q^107 - a*q^111 + q^119 - a*q^123 + q^127 - a*q^139 
        + q^143 + a*q^163 - q^167 + a*q^175 + q^179 + (-a + 1)*q^183 + (a - 
        1)*q^187 - a*q^191 + a*q^199 + O(q^202),
    q^4 - q^20 + (a - 1)*q^36 - a*q^52 + (-a + 1)*q^68 + a*q^116 + a*q^148 + 
        a*q^164 + (-a + 1)*q^180 - a*q^196 + O(q^202),
    q^5 + (-a + 1)*q^9 + (a + 1)*q^13 + (2*a - 2)*q^17 - q^21 - q^25 + (-a + 
        1)*q^33 - 2*a*q^37 - 2*a*q^41 + (a - 1)*q^45 + a*q^49 + q^53 - q^57 - 
        a*q^65 + (a - 1)*q^69 + q^73 - q^77 + 2*a*q^81 + (-a + 1)*q^85 + 
        3*a*q^89 + (-3*a + 3)*q^97 - 2*a*q^101 - 2*q^109 + (2*a - 2)*q^113 - 
        q^117 + (-a + 1)*q^121 - q^125 + q^129 + a*q^133 + 2*a*q^141 + a*q^145 -
        a*q^153 + q^157 + q^161 + (-a + 2)*q^169 + (-3*a + 3)*q^173 - q^177 + 
        q^181 + a*q^185 + (-a + 1)*q^189 - 2*a*q^193 + 3*a*q^197 + (a - 1)*q^201
        + O(q^202),
    q^6 - a*q^14 + q^22 - a*q^38 - q^46 + (a - 1)*q^54 + q^78 + a*q^86 + (2*a - 
        2)*q^94 + (a - 1)*q^102 - a*q^118 - q^134 + a*q^142 - q^150 + (-2*a + 
        2)*q^158 + a*q^174 - a*q^182 + O(q^202),
    q^8 - q^40 + (a - 1)*q^72 - a*q^104 + (-a + 1)*q^136 + O(q^202),
    q^10 + (-a + 1)*q^18 + (a + 1)*q^26 + (2*a - 2)*q^34 - q^42 - q^50 + (-a + 
        1)*q^66 - 2*a*q^74 - 2*a*q^82 + (a - 1)*q^90 + a*q^98 + q^106 - q^114 - 
        a*q^130 + (a - 1)*q^138 + q^146 - q^154 + 2*a*q^162 + (-a + 1)*q^170 + 
        3*a*q^178 + (-3*a + 3)*q^194 + O(q^202),
    q^16 - a*q^32 + (a - 1)*q^64 - q^80 + q^128 + (a - 1)*q^144 + a*q^160 + 
        O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^13 - 2*q^17 + q^25 + 2*q^29 - q^49 - 2*q^53 - 2*q^61 + q^81 - 
        2*q^101 - 2*q^113 + q^117 - q^121 - 2*q^153 + 2*q^157 + q^169 - 2*q^173 
        + 2*q^181 + O(q^202)
]
;
Bo:=
[
    q + q^9 - q^13 - 2*q^17 + q^25 - 2*q^29 - q^49 + 2*q^53 + 2*q^61 + q^81 + 
        2*q^101 - 2*q^113 - q^117 - q^121 - 2*q^153 - 2*q^157 + q^169 + 2*q^173 
        - 2*q^181 + O(q^202),
    q^2 + q^18 - q^26 - 2*q^34 + q^50 - 2*q^58 - q^98 + 2*q^106 + 2*q^122 + 
        q^162 + O(q^202),
    q^4 + q^36 - q^52 - 2*q^68 + q^100 - 2*q^116 - q^196 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
832
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^17 - q^65 - q^81 - q^105 + 2*q^113 + q^121 + q^129 + q^169 + q^185 + 
        O(q^202),
    q^2 - q^34 - q^130 - q^162 + O(q^202),
    q^3 - q^27 - q^35 + q^43 - q^51 + q^91 - 2*q^107 + q^131 + q^139 + 2*q^155 +
        q^179 - q^195 + O(q^202),
    q^4 - q^12 - q^68 + q^108 + q^140 - q^172 + O(q^202),
    q^5 - q^13 - q^21 + q^37 - q^85 + 2*q^93 + q^109 - q^125 - q^141 - 2*q^149 +
        q^189 + q^197 + O(q^202),
    q^6 - q^54 - q^70 + q^86 - q^102 + q^182 + O(q^202),
    q^7 - q^15 - 2*q^31 + q^39 + q^47 + q^71 - q^111 - q^119 + q^135 + q^151 - 
        2*q^167 + O(q^202),
    q^8 - q^24 + q^32 - q^80 - q^96 - q^112 + q^128 - q^136 + O(q^202),
    q^10 - q^26 - q^42 + q^74 - q^170 + 2*q^186 + O(q^202),
    q^14 - q^30 - 2*q^62 + q^78 + q^94 + q^142 + O(q^202),
    q^16 - q^40 - q^48 - q^56 + q^64 + q^104 + q^120 - q^160 + q^168 - q^192 + 
        O(q^202),
    q^20 + q^28 - q^52 - q^60 - q^84 - 2*q^124 + q^148 + q^156 + q^188 + 
        O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
336
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
112
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
14*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
168
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
56
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
84
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^8 - q^15 + (-a + 1)*q^18 + (a - 1)*q^25 + (a - 1)*q^32 + q^36 + q^50 +
        (-a + 1)*q^53 + (-a + 1)*q^67 - q^85 - a*q^86 + a*q^93 + a*q^100 + (a - 
        1)*q^102 - q^106 + q^120 - a*q^121 + (a - 1)*q^123 - q^127 - q^134 - 
        a*q^135 + O(q^154),
    q^2 + a*q^4 - q^9 - a*q^18 - a*q^25 - q^30 + (-a + 1)*q^36 + (a - 1)*q^43 + 
        q^51 + a*q^53 - a*q^60 + (a - 1)*q^64 + a*q^67 + q^72 + (-a + 1)*q^85 - 
        q^86 + a*q^102 + a*q^123 + (-a + 1)*q^127 - q^128 + q^135 - a*q^137 + 
        q^149 - a*q^151 + O(q^154),
    q^3 + 2*a*q^6 + q^10 + (2*a - 2)*q^12 - q^17 + a*q^20 - q^24 - a*q^27 - 
        a*q^34 - a*q^41 - q^45 + (-a + 1)*q^54 + (a - 1)*q^61 - a*q^62 + (-a + 
        1)*q^68 + q^73 + (-a + 1)*q^75 + (-2*a + 2)*q^82 - a*q^90 + (a - 1)*q^96
        + q^108 - 2*q^122 + (-a + 1)*q^124 - a*q^125 - 2*q^129 + (-2*a + 
        2)*q^131 + q^136 + 2*a*q^146 + q^150 + a*q^153 + O(q^154),
    q^5 + (-a + 1)*q^6 - a*q^10 + q^12 + a*q^17 + (-a + 1)*q^20 + (a - 1)*q^27 -
        a*q^31 - q^40 + a*q^45 + (a - 1)*q^62 - q^75 - q^82 + (a - 1)*q^97 + 
        a*q^122 - q^124 + (a - 1)*q^125 + a*q^129 - 2*q^131 - a*q^136 + (a - 
        1)*q^139 + (-a + 1)*q^146 + O(q^154)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
833
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^8 - q^15 - q^18 + q^25 + q^32 + q^36 + q^50 - q^53 - q^67 - q^85 + 
        q^86 - q^93 - q^100 + q^102 - q^106 + q^120 + q^121 + q^123 - q^127 - 
        q^134 + q^135 + O(q^154),
    q^2 - q^4 - q^9 + q^18 + q^25 - q^30 - q^36 + q^43 + q^51 - q^53 + q^60 + 
        q^64 - q^67 + q^72 - q^85 - q^86 - q^102 - q^123 - q^127 - q^128 + q^135
        + q^137 + q^149 + q^151 + O(q^154),
    q^3 - 2*q^6 + q^10 + 2*q^12 - q^17 - q^20 - q^24 + q^27 + q^34 + q^41 - q^45
        - q^54 + q^61 + q^62 - q^68 + q^73 - q^75 - 2*q^82 + q^90 + q^96 + q^108
        - 2*q^122 - q^124 + q^125 - 2*q^129 - 2*q^131 + q^136 - 2*q^146 + q^150 
        - q^153 + O(q^154),
    q^5 - q^6 + q^10 + q^12 - q^17 - q^20 + q^27 + q^31 - q^40 - q^45 + q^62 - 
        q^75 - q^82 + q^97 - q^122 - q^124 + q^125 - q^129 - 2*q^131 + q^136 + 
        q^139 - q^146 + O(q^154),
    q^7 - q^56 - q^105 - q^126 + O(q^154),
    q^14 - q^28 - q^63 + q^126 + q^147 + O(q^154),
    q^21 - 2*q^42 - q^49 + q^70 + 2*q^84 + q^98 - q^119 - q^140 + O(q^154),
    q^35 - q^42 - q^49 + q^70 + q^84 - q^119 - q^140 + O(q^154)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
834
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
834
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
834
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
834
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
834
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^18*q^3 + a^2*q^4 + (-a^17 + a^14)*q^7 - a^13*q^9 + a^20*q^12 + (a^10 -
        a^3)*q^13 + a^4*q^16 + (a^6 - a)*q^19 + (a^12 - a^9)*q^21 - a^11*q^25 + 
        a^8*q^27 + (-a^19 + a^16)*q^28 + (-a^20 + a^19 - a^18 + a^17 - a^16 + 
        a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - 
        a^4 + a^3 - a^2 + a - 1)*q^31 - a^15*q^36 + (-a^15 - a^7)*q^37 + (-a^21 
        - a^5)*q^39 + (a^16 - a^7)*q^43 + (a^21 - a^20 + a^19 - a^18 + a^17 - 
        a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 +
        a^5 - a^4 + a^3 - a^2 + a - 1)*q^48 + (-a^11 + a^8 - a^5)*q^49 + (a^12 -
        a^5)*q^52 + (-a^19 - a)*q^57 + (-a^19 - a^9)*q^61 + (-a^7 + a^4)*q^63 + 
        a^6*q^64 + (a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - a^14 + a^13
        - a^12 + a^11 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^67 + (a^20 - a^9)*q^73 + a^6*q^75 + (a^8 - a^3)*q^76 + (-a^15 - 
        a^13)*q^79 - a^3*q^81 + (a^14 - a^11)*q^84 + (a^20 - a^17 + a^4 - 
        a)*q^91 + (-a^17 + a^16)*q^93 + (-a^21 + a^2)*q^97 - a^13*q^100 + (a^18 
        + a^12)*q^103 + a^10*q^108 + (a^14 + a^12)*q^109 + (a^10 + a^2)*q^111 + 
        (-a^21 + a^18)*q^112 + (a^16 + 1)*q^117 + a^14*q^121 + (-a + 1)*q^124 + 
        (-a^13 + a^4)*q^127 + (-a^11 + a^2)*q^129 + (a^20 + a^18 - a^15 + 
        1)*q^133 + a^8*q^139 - a^17*q^144 + (a^6 - a^3 + 1)*q^147 + (-a^17 - 
        a^9)*q^148 + (a^21 - a^20 + a^19 + a^17 - a^16 + a^15 - a^14 + a^13 - 
        a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a -
        1)*q^151 + (-a^7 + 1)*q^156 + (-a^3 + a^2)*q^157 + (-a^19 + 1)*q^163 + 
        (a^20 - a^13 + a^6)*q^169 + (-a^19 + a^14)*q^171 + (a^18 - a^9)*q^172 + 
        (-a^5 + a^2)*q^175 + (a^18 - a^5)*q^181 + (a^14 + a^4)*q^183 + (a^21 - 
        a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - 
        a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^189 - a*q^192 
        + (a^10 + a^8)*q^193 + (-a^13 + a^10 - a^7)*q^196 + (-a^17 - a^11)*q^199
        + (-a^17 - a^5)*q^201 + (a^14 - a^7)*q^208 + (a^20 + a^12)*q^211 + (a^16
        - a^15 - a^13 + a^12)*q^217 + (-a^15 + a^4)*q^219 + (a^21 - a^20 + a^19 
        - a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - 
        a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^223 - a*q^225 + (-a^21 - 
        a^3)*q^228 + (a^20 - a^19)*q^229 + (a^10 + a^8)*q^237 + (a^16 + 
        a^6)*q^241 - a^21*q^243 + (-a^21 - a^11)*q^244 + (a^16 - a^11 - a^9 + 
        a^4)*q^247 + (-a^9 + a^6)*q^252 + a^8*q^256 + (-a^21 - a^9 + a^6 - 
        a)*q^259 + (a^12 - a)*q^268 + (a^16 - a^15)*q^271 + (a^21 - a^20 - a^18 
        + a^17 - a^16 - a^14 + a^13 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 
        - a^4 + a^3 - a^2 + a - 1)*q^273 + O(q^274),
    q^2 + a^18*q^6 + a^2*q^8 + (-a^17 + a^14)*q^14 - a^13*q^18 + a^20*q^24 + 
        (a^10 - a^3)*q^26 + a^4*q^32 + (a^6 - a)*q^38 + (a^12 - a^9)*q^42 - 
        a^11*q^50 + a^8*q^54 + (-a^19 + a^16)*q^56 + (-a^20 + a^19 - a^18 + a^17
        - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6
        + a^5 - a^4 + a^3 - a^2 + a - 1)*q^62 - a^15*q^72 + (-a^15 - a^7)*q^74 +
        (-a^21 - a^5)*q^78 + (a^16 - a^7)*q^86 + (a^21 - a^20 + a^19 - a^18 + 
        a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 
        - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^96 + (-a^11 + a^8 - a^5)*q^98 +
        (a^12 - a^5)*q^104 + (-a^19 - a)*q^114 + (-a^19 - a^9)*q^122 + (-a^7 + 
        a^4)*q^126 + a^6*q^128 + (a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^15
        - a^14 + a^13 - a^12 + a^11 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^134 + (a^20 - a^9)*q^146 + a^6*q^150 + (a^8 - a^3)*q^152 
        + (-a^15 - a^13)*q^158 - a^3*q^162 + (a^14 - a^11)*q^168 + (a^20 - a^17 
        + a^4 - a)*q^182 + (-a^17 + a^16)*q^186 + (-a^21 + a^2)*q^194 - 
        a^13*q^200 + (a^18 + a^12)*q^206 + a^10*q^216 + (a^14 + a^12)*q^218 + 
        (a^10 + a^2)*q^222 + (-a^21 + a^18)*q^224 + (a^16 + 1)*q^234 + 
        a^14*q^242 + (-a + 1)*q^248 + (-a^13 + a^4)*q^254 + (-a^11 + a^2)*q^258 
        + (a^20 + a^18 - a^15 + 1)*q^266 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
834
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
23*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
834
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 46*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
834
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
69*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^5 - q^7 + q^9 - q^11 - q^13 + q^16 - q^20 - q^28 - q^29 - q^31 +
        q^35 + q^36 + 2*q^37 + 2*q^41 - q^44 - q^45 + 2*q^47 - q^52 + q^55 - 
        q^63 + q^64 + q^65 - q^67 - q^71 + q^77 - q^79 - q^80 + q^81 - q^83 - 
        q^89 + q^91 - q^99 + 2*q^107 - q^112 - q^113 - q^116 - q^117 - q^124 + 
        q^125 - q^127 - q^131 - q^137 + q^139 + q^140 + q^143 + q^144 + q^145 + 
        2*q^148 + q^155 - q^163 + 2*q^164 + 2*q^167 - q^173 - q^176 - q^180 - 
        q^181 - 2*q^185 + 2*q^188 + 2*q^191 - q^193 + q^203 - 2*q^205 - q^208 + 
        q^217 + q^220 - 2*q^235 + 2*q^239 - q^251 - q^252 + q^256 - q^257 - 
        2*q^259 + q^260 - q^261 - q^263 - q^268 + O(q^274),
    q^2 + q^8 - q^10 - q^14 + q^18 - q^22 - q^26 + q^32 - q^40 - q^56 - q^58 - 
        q^62 + q^70 + q^72 + 2*q^74 + 2*q^82 - q^88 - q^90 + 2*q^94 - q^104 + 
        q^110 - q^126 + q^128 + q^130 - q^134 - q^142 + q^154 - q^158 - q^160 + 
        q^162 - q^166 - q^178 + q^182 - q^198 + 2*q^214 - q^224 - q^226 - q^232 
        - q^234 - q^248 + q^250 - q^254 - q^262 + O(q^274),
    q^3 + q^12 - q^15 - q^21 + q^27 - q^33 - q^39 + q^48 - q^60 - q^84 - q^87 - 
        q^93 + q^105 + q^108 + 2*q^111 + 2*q^123 - q^132 - q^135 + 2*q^141 - 
        q^156 + q^165 - q^189 + q^192 + q^195 - q^201 - q^213 + q^231 - q^237 - 
        q^240 + q^243 - q^249 - q^267 + q^273 + O(q^274),
    q^6 + q^24 - q^30 - q^42 + q^54 - q^66 - q^78 + q^96 - q^120 - q^168 - q^174
        - q^186 + q^210 + q^216 + 2*q^222 + 2*q^246 - q^264 - q^270 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
835
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
835
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
166
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
835
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
166
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
835
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
332
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
835
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
83*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^11 - q^12 - q^18 - q^21 + q^25 - q^33 - q^38 + q^42 + q^44 + 
        q^48 + q^49 + q^54 - q^56 + q^62 - q^63 + q^72 + q^81 + q^84 - q^87 - 
        q^94 - q^96 - q^97 + q^98 - q^99 - q^108 - q^112 + q^114 + q^121 - q^126
        - q^127 + q^132 - q^133 - q^137 + q^152 - q^154 - q^162 + O(q^166),
    q^2 - q^6 - q^9 + q^18 - q^19 + q^21 + q^27 - q^28 + q^31 - q^47 - q^48 + 
        q^49 + q^50 - q^54 - q^56 + q^57 - q^63 - q^77 - q^81 + q^84 + q^87 + 
        q^88 - q^93 + q^96 + q^98 + q^99 + q^108 - q^114 - q^116 - q^122 + q^124
        - q^132 - q^133 + q^141 + q^144 - q^147 - q^150 - q^154 + q^157 + q^162 
        + O(q^166),
    q^3 - q^6 - q^8 - q^9 + q^12 + q^14 + q^16 + q^18 - q^19 - q^22 + q^27 - 
        q^32 - q^36 + q^38 - q^42 + q^44 - q^47 - q^54 + q^57 + q^58 + q^61 - 
        q^63 + q^64 + q^75 - q^76 - q^81 - q^88 + q^89 - q^93 + q^94 - q^114 + 
        q^121 - q^122 - q^124 + q^126 + q^132 - q^133 + q^141 + q^144 - q^150 + 
        q^152 + 2*q^162 + O(q^166),
    q^4 - q^6 - q^8 - q^9 + q^11 + q^12 + q^16 + q^18 - q^19 + q^21 - q^22 - 
        q^24 - q^28 - q^32 + q^33 + q^38 + q^44 - q^47 + q^62 + q^64 - q^66 - 
        q^76 - q^77 - q^81 + q^87 - q^88 - q^93 + q^94 + q^97 + q^98 + q^99 + 
        q^100 - q^116 - q^122 - q^124 + q^127 - q^128 + q^137 - q^147 - q^150 + 
        q^152 + q^162 + O(q^166),
    q^5 + q^45 - q^55 - q^60 - q^90 - q^105 + q^125 - q^165 + O(q^166),
    q^7 - q^8 - q^9 + q^12 + q^14 - q^19 - q^22 + q^29 + q^33 - q^42 - q^47 + 
        q^58 + q^64 - q^77 - q^84 + q^99 + q^107 - q^124 - q^133 + q^152 + q^162
        + O(q^166),
    q^10 - q^30 - q^45 + q^90 - q^95 + q^105 + q^135 - q^140 + q^155 + O(q^166),
    q^15 - q^30 - q^40 - q^45 + q^60 + q^70 + q^80 + q^90 - q^95 - q^110 + q^135
        - q^160 + O(q^166),
    q^20 - q^30 - q^40 - q^45 + q^55 + q^60 + q^80 + q^90 - q^95 + q^105 - q^110
        - q^120 - q^140 - q^160 + q^165 + O(q^166),
    q^35 - q^40 - q^45 + q^60 + q^70 - q^95 - q^110 + q^145 + q^165 + O(q^166)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
835
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 83*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^11 + q^16 - q^19 + q^25 - q^29 - q^31 + q^36 - q^44 + q^49
        - q^61 + q^64 - q^65 - q^76 + q^81 - q^85 - q^89 - q^99 + q^100 - q^115 
        - q^116 - q^124 + q^144 + O(q^166),
    q^5 - q^13 - q^17 + q^20 - q^23 - q^37 + 2*q^43 + q^45 - q^52 + 2*q^53 - 
        q^55 - q^67 - q^68 + 2*q^73 + q^80 - q^83 - q^92 - q^95 + 2*q^103 - 
        q^113 - q^117 + q^125 + q^143 - q^145 - q^148 - q^153 - q^155 - q^163 + 
        O(q^166)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 - q^5 + q^11 + q^15 - q^23 + q^27 - q^31 - q^33 - q^37 + 2*q^47 + 
        q^49 + 2*q^53 - q^55 - q^59 - q^67 + q^69 - q^71 - q^81 - q^89 + q^93 - 
        q^97 + 2*q^103 + q^111 - q^113 + q^115 + q^121 + q^125 - q^135 - q^137 -
        2*q^141 - q^147 + q^155 - q^157 - 2*q^159 + 2*q^163 + q^165 + q^169 + 
        q^177 - q^179 - q^181 + q^185 - q^191 + 2*q^199 + q^201 + q^213 - q^223 
        - q^229 + O(q^230),
    q^19 - q^57 - q^95 + q^209 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 - a*q^5 + (a - 1)*q^15 + (a - 1)*q^23 - q^27 + (a - 1)*q^47 + q^49
        + (-a + 1)*q^53 - a*q^59 + (-a + 1)*q^67 + q^69 + a*q^71 + a*q^81 + (-a 
        + 1)*q^89 + a*q^97 + q^115 - q^121 - q^125 + a*q^135 + (a - 1)*q^137 + 
        q^141 + (a - 1)*q^143 - a*q^147 + a*q^157 - q^159 + (a - 1)*q^177 + 
        2*q^179 + (a - 1)*q^181 - a*q^187 + (-a + 1)*q^199 - q^201 + q^209 + (-a
        + 1)*q^213 - q^221 - a*q^223 - 2*q^229 + O(q^230),
    q^2 - a*q^6 - a*q^10 + (a - 1)*q^30 + a*q^32 + a*q^44 + (a - 1)*q^46 + q^52 
        - q^54 + (a - 1)*q^68 - a*q^76 + (a - 1)*q^94 + (-a + 1)*q^96 + q^98 + 
        (-a + 1)*q^106 - q^116 - a*q^118 - q^128 + (-a + 1)*q^132 + (-a + 
        1)*q^134 + q^138 + a*q^142 - a*q^156 + (-a + 1)*q^160 + a*q^162 + (-a + 
        1)*q^164 + (a - 1)*q^172 - q^176 + (-a + 1)*q^178 + a*q^194 + q^204 + (a
        - 1)*q^208 + (-a + 1)*q^220 + (a - 1)*q^228 + O(q^230),
    q^4 - a*q^12 - a*q^20 + (a - 1)*q^60 + a*q^64 + a*q^88 + (a - 1)*q^92 + 
        q^104 - q^108 + (a - 1)*q^136 - a*q^152 + (a - 1)*q^188 + (-a + 1)*q^192
        + q^196 + (-a + 1)*q^212 + O(q^230),
    q^8 - a*q^24 + (a - 1)*q^32 - a*q^40 + (a - 1)*q^44 + a*q^52 - q^68 + (-a + 
        1)*q^76 + q^96 - a*q^116 + (a - 1)*q^120 + q^132 + (-a + 1)*q^156 + 
        q^160 + q^164 - q^172 + (a - 1)*q^184 + a*q^204 - q^216 + q^220 - q^228 
        + O(q^230),
    q^11 + (-a + 1)*q^13 + a*q^17 - q^19 + (a - 1)*q^29 - a*q^33 - q^39 - a*q^41
        + a*q^43 + (-a + 1)*q^51 - a*q^55 + a*q^57 + (a - 1)*q^61 - q^65 + 
        a*q^73 + a*q^79 + (-a + 1)*q^85 + q^87 + a*q^95 + (-a + 1)*q^101 - 
        2*q^107 - a*q^109 + (a - 1)*q^123 + (-a + 1)*q^127 + (-a + 1)*q^129 - 
        a*q^131 + (-a + 1)*q^139 + q^145 + a*q^149 + (a - 1)*q^165 + (a - 
        1)*q^167 + a*q^173 + q^183 - a*q^193 + a*q^195 + (a - 1)*q^205 + a*q^211
        + (-a + 1)*q^215 + (-a + 1)*q^219 + O(q^230),
    q^16 + q^22 + (-a + 1)*q^26 + a*q^34 - q^38 - a*q^48 + (a - 1)*q^58 + (a - 
        1)*q^64 - a*q^66 - q^78 - a*q^80 - a*q^82 + a*q^86 + (a - 1)*q^88 + (-a 
        + 1)*q^102 + a*q^104 - a*q^110 + a*q^114 + (a - 1)*q^122 - q^130 - q^136
        + a*q^146 + (-a + 1)*q^152 + a*q^158 + (-a + 1)*q^170 + q^174 + a*q^190 
        + q^192 + (-a + 1)*q^202 - 2*q^214 - a*q^218 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 - q^7 + q^9 - q^17 + q^19 + 2*q^23 + q^35 - q^43 - q^45 - q^47 - 
        q^61 - q^63 - q^73 + q^81 + 2*q^83 + q^85 - q^95 + 2*q^101 - 2*q^115 + 
        q^119 - q^121 + q^125 - q^131 - q^133 - q^137 - q^139 - q^149 - q^153 + 
        2*q^157 - 2*q^161 + 2*q^163 + q^169 + q^171 - q^191 + 2*q^197 - q^199 + 
        2*q^207 + q^215 - q^229 + O(q^230),
    q^11 - q^55 - q^77 + q^99 - q^121 - q^187 + q^209 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 + a^2 - a)*q^7 - a*q^9 + 1/5*(4*a^3 - 3*a^2 + 2*a - 1)*q^11 + (a^2
        - a)*q^17 - a^3*q^19 + (a^3 - a^2 - 1)*q^23 + (-a^3 - a + 1)*q^25 + (a^2
        + a + 1)*q^35 + q^43 - a^3*q^47 + (2*a^3 - 2*a^2 + 2*a - 2)*q^49 + 
        1/5*(-4*a^3 + 3*a^2 - 2*a + 6)*q^55 + (a^3 - a^2 + a - 1)*q^61 + (a - 
        1)*q^63 - a^2*q^73 + 1/5*(a^3 + 8*a^2 - 2*a + 1)*q^77 + a^2*q^81 + (a^2 
        - a)*q^83 + (a^3 + a - 1)*q^85 + 1/5*(-a^3 + 2*a^2 - 3*a + 4)*q^99 + 
        (-a^2 + a - 1)*q^101 + (-2*a^2 + 2*a - 2)*q^119 + 1/5*(a^3 - 2*a^2 + 3*a
        + 1)*q^121 + (-a^3 - a)*q^125 + (a^3 - a^2)*q^133 + (-a^2 + a)*q^137 + 
        (a^3 - a^2 + a)*q^139 + (-a^3 + a^2 - a + 1)*q^149 + (-a^3 + a^2)*q^153 
        + (-a + 1)*q^157 + a^2*q^161 + (-a^2 + a - 1)*q^163 + a^2*q^169 + (a^3 -
        a^2 + a - 1)*q^171 + (-a^3 + a^2)*q^175 + 1/5*(a^3 + 3*a^2 - 7*a + 
        1)*q^187 + (-a^3 + a^2 - a)*q^191 + 2*q^197 + (a^3 - a^2)*q^199 + (a^2 +
        1)*q^207 + 1/5*(-a^3 + 2*a^2 + 2*a - 1)*q^209 + (a^3 - 1)*q^215 + (a^3 -
        1)*q^225 - a*q^229 + O(q^230),
    q^5 + a^3*q^7 + 1/5*(-a^3 + 2*a^2 + 2*a - 1)*q^11 + (a^3 - a^2)*q^17 + (-a^2
        + a)*q^25 + (-a^2 + a - 1)*q^43 - a*q^45 + (a^2 - a)*q^47 + (-a^3 + 
        a^2)*q^49 + 1/5*(a^3 + 3*a^2 - 2*a + 1)*q^55 + (-a^3 + a^2)*q^61 + (-a^3
        + a^2 - a + 1)*q^63 + 1/5*(a^3 - 2*a^2 - 2*a + 1)*q^77 + (a^3 - a^2 + a 
        - 1)*q^85 - a^3*q^95 + 1/5*(-a^3 - 3*a^2 + 2*a - 1)*q^99 + (a^3 - a^2 - 
        1)*q^115 + (-a^3 + a^2 - a)*q^119 + 1/5*(a^3 - 2*a^2 + 3*a - 4)*q^121 - 
        a^3*q^125 - a*q^131 + a*q^133 - q^137 + (a - 1)*q^139 + (a^2 - a + 
        1)*q^153 + (-a^3 - a + 1)*q^161 + (a^2 + 1)*q^175 + 1/5*(a^3 - 2*a^2 - 
        2*a + 1)*q^187 + a^3*q^191 + a*q^199 + 1/5*(-a^3 + 2*a^2 - 3*a + 
        4)*q^209 + (-a^3 + a^2)*q^215 + (a^3 - a^2)*q^225 + (a^3 - a^2 + 
        a)*q^229 + O(q^230)
]
;
Bo:=
[
    q + (a^2 - a)*q^5 + (a^3 - a^2 + a)*q^7 - a*q^9 - a^3*q^11 + (-a^3 + 1)*q^17
        - a^3*q^19 + (a^3 - a^2 - 1)*q^23 + (a - 1)*q^25 + (a^2 - 2*a + 1)*q^35 
        + (a^3 - a^2 - 1)*q^43 + (-a^3 + a^2)*q^45 + (a^3 + a - 1)*q^47 + (-a^2 
        + a)*q^49 + (a^3 - a^2 + a)*q^55 + (-a^3 + 1)*q^61 + (-a + 1)*q^63 + 
        2*a^2*q^73 + (-a^3 + a^2)*q^77 + a^2*q^81 + (a^2 - a)*q^83 + a^3*q^85 + 
        (a^3 - a^2 + a)*q^95 + (a^3 - a^2 + a - 1)*q^99 + (-a^2 + a - 1)*q^101 +
        (-a^3 + a^2 - a + 1)*q^115 + a*q^119 - a*q^121 - a^2*q^125 + (-a^3 + 
        a^2)*q^131 + (-a^3 + a^2)*q^133 + (a^2 - a)*q^137 + (-a^3 - a)*q^139 + 
        (2*a^3 - 2*a^2 + 2*a - 2)*q^149 + (a^3 - a^2 - 1)*q^153 + (-a + 1)*q^157
        - a^2*q^161 + (-a^2 + a - 1)*q^163 + a^2*q^169 + (a^3 - a^2 + a - 
        1)*q^171 + (-a^3 + a^2 - 1)*q^175 + (-a^3 - a)*q^187 + (a^3 - a^2 + 
        a)*q^191 + 2*q^197 + (-a^3 + a^2)*q^199 + (a^2 + 1)*q^207 - a*q^209 + 
        (-a^3 + a^2 - a + 1)*q^215 + (-a^2 + a)*q^225 + (a^2 + 1)*q^229 + 
        O(q^230),
    q^2 + a^2*q^8 + (a^2 - a)*q^10 + (a^3 - a^2 + a)*q^14 - a*q^18 - a^3*q^22 + 
        (a^3 - a^2 + a - 1)*q^32 + (-a^3 + 1)*q^34 - a^3*q^38 + (-a^2 + a - 
        1)*q^40 + (a^3 - a^2 - 1)*q^46 + (a - 1)*q^50 + (a^2 - a)*q^56 + (a^2 - 
        2*a + 1)*q^70 - a^3*q^72 + (a^3 - a^2 - 1)*q^86 + q^88 + (-a^3 + 
        a^2)*q^90 + (a^3 + a - 1)*q^94 + (-a^2 + a)*q^98 + (a^3 - a^2 + a)*q^110
        + (-a^3 + 1)*q^122 + (-a + 1)*q^126 - a*q^128 + (a^2 + 1)*q^136 + 
        2*a^2*q^146 + q^152 + (-a^3 + a^2)*q^154 + (-a + 1)*q^160 + a^2*q^162 + 
        (a^2 - a)*q^166 + a^3*q^170 + (-a^3 - a)*q^184 + (a^3 - a^2 + a)*q^190 +
        (a^3 - a^2 + a - 1)*q^198 + (a^3 - a^2)*q^200 + (-a^2 + a - 1)*q^202 + 
        (-a^2 + a - 1)*q^224 + O(q^230),
    q^4 + a^2*q^16 + (a^2 - a)*q^20 + (a^3 - a^2 + a)*q^28 - a*q^36 - a^3*q^44 +
        (a^3 - a^2 + a - 1)*q^64 + (-a^3 + 1)*q^68 - a^3*q^76 + (-a^2 + a - 
        1)*q^80 + (a^3 - a^2 - 1)*q^92 + (a - 1)*q^100 + (a^2 - a)*q^112 + (a^2 
        - 2*a + 1)*q^140 - a^3*q^144 + (a^3 - a^2 - 1)*q^172 + q^176 + (-a^3 + 
        a^2)*q^180 + (a^3 + a - 1)*q^188 + (-a^2 + a)*q^196 + (a^3 - a^2 + 
        a)*q^220 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
836
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^26 - q^42 - q^45 + q^49 + q^64 - q^77 - q^82 - q^93 - 
        q^104 + q^121 - q^125 - q^130 - q^133 - q^137 - q^168 + q^169 - q^180 + 
        q^196 - q^201 + q^209 + q^213 + 2*q^218 + q^225 - q^229 + O(q^230),
    q^2 + q^8 - q^13 - q^21 + q^32 - q^41 - q^52 - q^65 - q^84 - q^90 + q^98 + 
        2*q^109 + q^117 + q^128 + q^129 + q^145 - q^154 - q^164 + q^165 - q^186 
        + q^189 - q^205 - q^208 + 2*q^217 + O(q^230),
    q^3 + q^12 - 2*q^15 - q^22 + q^27 - q^38 + q^48 - 2*q^59 - 2*q^60 + q^70 + 
        q^71 + 2*q^75 + q^78 + q^86 - q^88 - q^91 + q^103 + q^108 + q^110 - 
        q^126 - q^135 - q^147 - q^152 + q^155 + q^166 - 2*q^174 + q^190 + q^192 
        - q^198 + q^203 - 2*q^223 + O(q^230),
    q^5 - q^9 + q^20 - q^25 - q^26 - q^36 + q^45 + q^49 + q^58 + q^66 - q^77 + 
        q^80 - q^82 - q^100 - q^104 + q^114 - q^133 - q^137 - q^144 + q^157 + 
        q^169 + 2*q^177 + q^180 + q^196 - q^210 - q^213 - q^225 - q^229 + 
        O(q^230),
    q^6 - q^11 - q^19 + q^24 - 2*q^30 + q^35 + q^39 + q^43 - q^44 + q^54 + q^55 
        - q^63 - q^76 + q^83 - 2*q^87 + q^95 + q^96 - q^99 - 2*q^118 - 2*q^120 +
        q^123 + q^139 + q^140 + q^142 + 2*q^150 + q^156 - q^171 + q^172 - q^175 
        - q^176 - q^182 - q^195 + q^206 - 2*q^215 + q^216 + q^220 + O(q^230),
    q^7 - q^11 - q^19 + q^28 - q^30 + q^35 + q^39 - q^44 + q^54 + q^62 - q^63 - 
        q^76 - q^87 + q^112 - 2*q^118 - q^120 + q^123 + q^131 + q^134 + q^140 + 
        q^150 + q^156 - q^175 - q^176 - 2*q^182 - q^215 + q^216 + O(q^230),
    q^10 - q^13 - q^18 + q^29 + q^33 + q^40 - q^41 - q^50 - q^52 + q^57 - q^72 +
        q^90 + q^98 - q^105 + q^116 - q^129 + q^132 - q^145 - q^154 + q^160 - 
        q^164 - q^165 + q^173 + q^189 + q^193 - q^200 - q^208 + q^217 + q^228 + 
        O(q^230),
    q^14 - q^15 - q^22 + q^27 + q^31 - q^38 + q^56 - 2*q^59 - q^60 + q^67 + q^70
        + q^75 + q^78 - q^88 - 2*q^91 + q^108 + q^124 - q^126 + q^143 - q^147 - 
        q^152 + q^155 - q^174 + q^179 + q^203 - 2*q^223 + q^224 + O(q^230)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^7 + a^6 - a^3 - a^2 + 1)*q^4 + (-a^7 + a^6)*q^7 + (a^7 + a^4)*q^13 - 
        a^3*q^16 + (a^7 + a^6 - a^5 - a^4 - a^3 + 1)*q^19 + a^5*q^25 + (a - 
        1)*q^28 + a^3*q^31 + (-a^7 + a^5 + a^4 + a^3 - a^2 - a - 1)*q^37 + (-a^7
        - a^6 - a^5 + a^3 + a^2)*q^43 + (3*a^7 + a^6 - a^5 - 2*a^4 - a^3 - 2*a^2
        + a + 2)*q^49 + (-a^7 + a^5 + a^4 - 2*a - 1)*q^52 + (-a^6 - a^4 + 
        a)*q^61 + (-a^7 + a^2)*q^64 + (-a^7 - 2*a^6 + a^4 + a^3 + a^2 - 1)*q^67 
        + (-a^6 + a^2)*q^73 + (-a^5 + a^2)*q^76 + (-a^7 + a^5 + a^2 - 1)*q^79 + 
        (-2*a^7 - 2*a^6 + 2*a^5 + 2*a^4 + a^3 + a^2 - 3)*q^91 + (a^7 - 2*a^5 - 
        a^4 + a + 1)*q^97 + (a^7 + a^6 - a^4 - a^3 - a^2 + 1)*q^100 + (-a^5 - 
        a^4 + 1)*q^103 + (-a^5 - a)*q^109 + (-a^7 - a^6 + a^5 + a^3 + a^2 - 
        2)*q^112 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^121 + (a^7 - a^2)*q^124 + 
        (a^7 - a^4 - a^2)*q^127 + (-a^7 - a^6 + a^4 + 2*a^3 - 2)*q^133 + (a^5 - 
        a)*q^139 + (-a^6 - a^2 + a)*q^148 + (a^2 + a)*q^151 + (a^7 - a^5 - a^4 -
        a^3 + 2*a + 1)*q^157 + (-a^7 - a^6 + a^2 - 1)*q^163 + (2*a^6 + a^5 - a^2
        - 2*a)*q^169 + (a^4 + a^3)*q^172 + (-a^7 + a^6 + a^2 - a)*q^175 + (2*a^7
        - a^5 - a^4 + a + 1)*q^181 + O(q^182)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^3*q^4 + (2*a^7 + a^6 - a^4 - a^3 - 2*a^2 + 1)*q^7 + (a^6 + a^5 - a^2 -
        a)*q^13 + a^6*q^16 + (-a^7 - a)*q^19 + (a^5 - 1)*q^25 + (a^2 + 1)*q^28 +
        a^6*q^31 + (a^4 - a)*q^37 + (-a^5 - a^3)*q^43 + (-2*a^6 - a^5 - a^4 + 
        a^3 + a^2 + 2*a)*q^49 + (-a^6 + a^2 + a)*q^52 + (-2*a^7 + a^5 + a^4 + 
        a^3 - a - 1)*q^61 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^64 + (2*a^7 - a^5 - 
        a^4 - a^2 + a + 1)*q^67 + (a^7 + a^4 - a^2)*q^73 + (a^5 + a^4 - 1)*q^76 
        + (-a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^79 + (-a^6 - 2*a^5 - a^4 + 2*a + 
        1)*q^91 + (-a^6 + a^5 + a - 1)*q^97 + (a^7 - a^5 - a^4 + a + 1)*q^100 + 
        (-a^7 + a^4 + a^3 - a - 1)*q^103 + (a^5 + a^2 - 1)*q^109 + (-a^5 - 
        a^3)*q^112 - a*q^121 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^124 + (-2*a^7 - 
        a^6 + a^5 + a^4 + 2*a^3 + a^2 - a - 2)*q^127 + (a^7 + a^6 - a^5 + a + 
        2)*q^133 + (a^5 + a^2 - 1)*q^139 + (-a^7 + a^4)*q^148 + (a^4 + 
        a^2)*q^151 + (a^2 - a)*q^157 + (a^6 - a^3)*q^163 + (-a^5 - a^4 + 
        1)*q^169 + (-a^7 + a^6 + a^5 + a^4 + a^3 - a - 1)*q^172 + (-2*a^7 - a^6 
        + a^3 + a^2 - 1)*q^175 + (a^7 - a^4 - a^3 - a^2 + a + 1)*q^181 + 
        O(q^182)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^3 + a^2 - a + 1)*q^4 + (a^2 - a)*q^7 + (a^3 - 2*a^2 + a - 1)*q^13 - 
        a^3*q^16 + (a^3 + a)*q^19 - q^25 + (a - 1)*q^28 + a^3*q^31 + (-a^3 - 
        a^2)*q^37 + (a^3 - a^2 + a - 2)*q^43 + (a - 1)*q^49 + (a^3 - a)*q^52 + 
        (-a^3 + a^2 - 2*a + 1)*q^61 - a^2*q^64 + (-a^3 + a^2 + 1)*q^67 + (a^2 + 
        a)*q^73 + (a^2 + 1)*q^76 + (-a^2 + 1)*q^79 + (a^2 - 2*a + 2)*q^91 + 
        (-a^3 + 1)*q^97 + (a^3 - a^2 + a - 1)*q^100 + (-a^3 + a^2 - a)*q^103 + 
        (-a + 1)*q^109 + (a^3 - a^2 + a)*q^112 - a^3*q^121 + a^2*q^124 + (-a^3 +
        2*a^2 - a + 1)*q^127 - a*q^133 + (-a - 1)*q^139 + (-a^2 - a)*q^148 + 
        (a^2 + a)*q^151 + (a^3 + a)*q^157 + (-a^2 + a - 1)*q^163 + (-a^2 + 2*a -
        1)*q^169 + (2*a^3 - a^2 + a - 1)*q^172 + (-a^2 + a)*q^175 + (-a^3 - 
        a^2)*q^181 + O(q^182),
    q^3 + (-a^3 + a^2 - a + 1)*q^12 + (a^2 - a)*q^21 + (a^3 - 2*a^2 + a - 
        1)*q^39 - a^3*q^48 + (a^3 + a)*q^57 - q^75 + (a - 1)*q^84 + a^3*q^93 + 
        (-a^3 - a^2)*q^111 + (a^3 - a^2 + a - 2)*q^129 + (a - 1)*q^147 + (a^3 - 
        a)*q^156 + O(q^182)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 + (-a + 1)*q^7 + q^16 + (-2*a + 2)*q^19 + (-a + 1)*q^25 + (a - 
        1)*q^28 - q^31 + (a + 1)*q^43 + (2*a - 1)*q^61 - q^64 - a*q^67 + (a - 
        2)*q^73 + (2*a - 2)*q^76 + (-a - 1)*q^79 - q^97 + (a - 1)*q^100 + 
        2*a*q^103 - q^109 + (-a + 1)*q^112 + (a - 1)*q^121 + q^124 + (a + 
        1)*q^127 - 2*a*q^133 + (-2*a + 1)*q^139 + (2*a - 1)*q^151 + q^157 + 
        2*q^163 + (a - 1)*q^169 + (-a - 1)*q^172 - a*q^175 + O(q^182)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^4 + (-a^2 + a)*q^10 + (-a^3 + a^2 - a + 1)*q^19 + (-a^3 + a^2
        - a)*q^22 + a^3*q^31 - a*q^34 + (-a^3 + a^2)*q^37 - a^2*q^40 + (a^2 - 
        a)*q^43 + (-a^2 + 2*a - 1)*q^46 + a*q^49 + a^3*q^55 + (a - 1)*q^58 + 
        (a^3 - a^2)*q^61 + (-a^2 + a)*q^64 + (a^3 - a^2 - 1)*q^67 + (-a^3 + a^2 
        - a)*q^76 + a^3*q^82 + (a^3 + a)*q^85 - q^88 + (-a^3 + a^2)*q^94 + (a^3 
        - a^2 + a - 1)*q^103 + a*q^109 + (-a^3 + a^2 - a)*q^115 - q^118 + (a^2 -
        a + 1)*q^124 + (-a^2 - 1)*q^127 + (a^3 - 1)*q^136 - a*q^139 + (-a^2 + 
        2*a - 1)*q^142 + (-a^3 + a^2 - a + 1)*q^145 + (-a^3 + a - 1)*q^148 + 
        (a^3 + a - 1)*q^151 - q^160 + (-a + 1)*q^166 - a^2*q^169 + (-a^3 + 2*a^2
        - a)*q^172 + (a^3 - a^2 + a)*q^178 - q^181 + O(q^182),
    q^2 + (-a^2 - 1)*q^5 + (-a^3 - a + 1)*q^8 + (a^3 - 1)*q^11 + (2*a^3 + a - 
        1)*q^17 + (a^3 - a^2 + a - 1)*q^20 - a^3*q^23 + (-a^3 + a^2 + 1)*q^29 + 
        (-a^2 - 1)*q^32 + (-a^3 + a^2 - a + 1)*q^38 + (-a^3 + a^2 + 2)*q^41 + 
        a^2*q^44 + (-a^3 - a)*q^47 + (a^3 + a^2 + a)*q^59 + a^3*q^62 + (a^2 + 
        1)*q^68 - a^3*q^71 + (-a^3 + a^2)*q^74 + (a^3 - a^2 - 1)*q^83 + (a^2 - 
        a)*q^86 + (-a^3 + 1)*q^89 + (-a^2 + a - 1)*q^92 + (a^3 - a^2 - 1)*q^95 +
        a*q^98 + a^3*q^101 + (-a^3 - a + 1)*q^107 + a^3*q^110 - a^3*q^116 + (a^3
        - a^2)*q^122 + (-a^2 - 1)*q^125 + (a^3 - a^2 + a - 1)*q^128 + (a^3 - a^2
        + a - 1)*q^131 + (a^3 - a^2 - 1)*q^134 + (-a^3 - a^2 - a)*q^137 - 
        a*q^149 + (-a^3 - a)*q^152 + (-a^3 + 1)*q^155 + (-a^3 - a + 1)*q^164 + 
        (-a^3 + a^2 + 2)*q^167 + (a^3 + a)*q^170 + (a^3 + a^2 + a)*q^173 + (a^3 
        - 1)*q^179 + O(q^182)
]
;
Bo:=
[
    q - a^3*q^4 + (a^3 + a - 1)*q^7 + (-a^2 + a - 1)*q^13 - a*q^16 + (a^2 - 
        a)*q^19 + q^25 + (a^2 + 1)*q^28 - a*q^31 + (a^3 - a^2 - 1)*q^37 + (-a^3 
        + 1)*q^43 + (-a^2 - 1)*q^49 + (a^2 - a)*q^52 + (-a^3 + a^2)*q^61 + (a^3 
        - a^2 + a - 1)*q^64 + (-a^3 + a^2)*q^67 + (a^3 + a - 1)*q^73 + (a^3 - 
        a^2 + a)*q^76 + (a^3 - a^2 + a)*q^79 + (-a^3 + a^2 - a + 1)*q^91 + (-a +
        1)*q^97 - a^3*q^100 + (-a^3 + 1)*q^103 + (a^2 + 1)*q^109 + (-a^3 + 
        1)*q^112 - a*q^121 + (a^3 - a^2 + a - 1)*q^124 + (-a^2 + a - 1)*q^127 - 
        a^2*q^133 + (a^2 + 1)*q^139 + (a^3 + a - 1)*q^148 + (a^3 + a - 1)*q^151 
        + (a^2 - a)*q^157 + (-a^3 - a)*q^163 + (-a^3 + a^2 - a)*q^169 + (-a^3 - 
        a)*q^172 + (a^3 + a - 1)*q^175 + (a^3 - a^2 - 1)*q^181 + O(q^182),
    q^3 - a^3*q^12 + (a^3 + a - 1)*q^21 + (-a^2 + a - 1)*q^39 - a*q^48 + (a^2 - 
        a)*q^57 + q^75 + (a^2 + 1)*q^84 - a*q^93 + (a^3 - a^2 - 1)*q^111 + (-a^3
        + 1)*q^129 + (-a^2 - 1)*q^147 + (a^2 - a)*q^156 + O(q^182),
    q^9 - a*q^27 - a^3*q^36 + (a^3 + a - 1)*q^63 + a^2*q^81 + (a^3 - a^2 + a - 
        1)*q^108 + (-a^2 + a - 1)*q^117 - a*q^144 + (a^2 - a)*q^171 + O(q^182)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + a*q^7 + (2*a - 2)*q^13 + q^16 - 2*a*q^19 - a*q^25 + a*q^28 + q^31 
        - 2*a*q^37 + a*q^43 + (2*a - 2)*q^52 - q^61 + q^64 + (-a + 1)*q^67 + (-a
        + 1)*q^73 - 2*a*q^76 + a*q^79 - 2*q^91 - q^97 - a*q^100 + (2*a - 
        2)*q^103 - q^109 + a*q^112 - a*q^121 + q^124 + a*q^127 + (-2*a + 
        2)*q^133 - q^139 - 2*a*q^148 - q^151 - q^157 + 2*q^163 - 3*a*q^169 + 
        a*q^172 + (-a + 1)*q^175 + (2*a - 2)*q^181 + O(q^182)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 - q^7 + q^16 + q^19 - q^25 + q^28 - q^31 - q^64 + q^67 - q^76 + 
        2*q^97 + q^100 + q^103 - q^109 - q^112 - 2*q^121 + q^124 - q^133 + q^157
        - q^163 + q^169 + q^175 + O(q^182),
    q^11 + q^17 + q^23 - q^29 - q^44 - q^68 - q^77 + q^83 - q^89 - q^92 + q^116 
        - q^119 - q^161 + q^176 + O(q^182)
]
;
Bo:=
[
    q - q^19 - q^28 - q^40 + q^49 + q^76 + q^82 - q^94 + q^100 - q^103 + q^112 +
        q^121 - q^133 + q^142 - q^157 + q^169 - q^175 + O(q^182),
    q^2 - q^14 - q^20 + q^41 - q^47 + q^50 + q^71 - q^80 - q^95 + q^101 + q^113 
        - q^125 - q^131 + q^140 - q^149 + q^152 + q^155 + q^164 - q^173 + 
        O(q^182),
    q^3 - q^57 - q^84 - q^120 + q^147 + O(q^182),
    q^4 - 2*q^10 + q^16 + q^19 + q^25 - q^28 - q^31 - q^40 - q^64 - 2*q^67 + 
        2*q^70 + q^76 + q^82 + q^94 + 2*q^100 + q^103 - q^112 - 2*q^118 - q^124 
        - q^133 + q^142 + q^157 - q^175 + O(q^182),
    q^5 - q^8 + q^20 - q^35 - q^38 - q^47 - q^50 + q^56 + q^59 + q^62 + q^107 + 
        q^128 - q^131 + 2*q^134 - q^140 - q^149 - q^164 - q^173 + O(q^182),
    q^6 - q^42 - q^60 + q^123 - q^141 + q^150 + O(q^182),
    q^7 - q^10 + q^16 - q^28 - q^31 + q^49 - q^64 - 2*q^67 + q^70 + q^76 + q^94 
        + q^97 + q^100 + q^109 - q^118 - 2*q^133 + q^163 - q^175 + O(q^182),
    q^9 - q^18 - q^45 - q^63 + q^72 + q^81 + q^90 + q^126 - q^144 - q^162 - 
        q^171 + O(q^182),
    q^12 - 2*q^30 + q^48 + q^57 + q^75 - q^84 - q^93 - q^120 + O(q^182),
    q^15 - q^24 + q^60 - q^105 - q^114 - q^141 - q^150 + q^168 + q^177 + 
        O(q^182),
    q^21 - q^30 + q^48 - q^84 - q^93 + q^147 + O(q^182),
    q^27 - q^54 - q^135 + O(q^182)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
837
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
838
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
418
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
838
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
38
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
838
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
19*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
838
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
209*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^13 - q^15 + q^16 + q^25 - q^29 - q^35 - q^47 + q^49 - q^52 - 
        q^60 - q^63 + q^64 - q^73 - q^75 - q^91 + q^100 + q^105 + 2*q^107 + 
        q^111 - q^115 - q^116 + q^117 + q^121 + 2*q^125 - q^129 + q^135 - q^140 
        + q^147 + 2*q^161 + q^169 - q^175 + q^177 - q^185 - q^188 - q^189 + 
        q^195 + q^196 - q^203 - q^205 - q^207 + O(q^208),
    q^2 + q^8 - q^26 - q^30 + q^32 + q^50 - q^58 - q^70 - q^94 + q^98 - q^104 - 
        q^120 - q^126 + q^128 - q^146 - q^150 - q^182 + q^200 + O(q^208),
    q^3 - q^9 + q^12 - q^13 - q^15 + q^27 - q^29 - q^36 + q^37 + q^39 + q^45 - 
        q^47 + q^48 + q^49 - q^52 + q^59 - q^60 - q^63 + q^65 - q^73 + q^79 - 
        q^81 + q^87 - q^91 + q^108 - q^111 - q^116 - q^117 - q^129 - q^135 + 
        q^137 + q^141 - q^144 + q^145 + q^148 + q^149 + q^156 + q^161 + q^173 - 
        q^177 + q^180 - q^185 - q^188 + q^192 - q^195 + q^196 - q^203 - q^207 + 
        O(q^208),
    q^5 - q^9 - q^13 - q^15 + q^20 + q^21 + q^25 + q^27 - q^29 - q^35 - q^36 + 
        q^39 + q^43 + q^45 - q^47 - q^52 - q^60 + q^69 - q^73 - q^75 + q^80 - 
        q^81 + q^84 + q^87 + q^97 + q^100 + q^108 - q^111 - q^115 - q^116 - 
        q^117 + q^123 + q^125 - q^129 - q^140 + q^141 - q^144 - q^147 + q^151 + 
        q^156 + q^172 - q^175 - q^177 + q^180 - q^185 - q^188 + q^191 + q^197 + 
        q^199 - q^205 + O(q^208),
    q^6 - q^18 + q^24 - q^26 - q^30 + q^54 - q^58 - q^72 + q^74 + q^78 + q^90 - 
        q^94 + q^96 + q^98 - q^104 + q^118 - q^120 - q^126 + q^130 - q^146 + 
        q^158 - q^162 + q^174 - q^182 + O(q^208),
    q^7 - q^9 - q^13 + q^21 + q^23 + q^28 - q^29 - q^35 - q^36 + q^41 + q^45 - 
        q^47 - q^52 + q^65 + q^69 - q^73 + q^84 - q^91 + q^92 - q^105 - q^111 + 
        q^112 - q^115 - q^116 + q^123 + q^131 + q^139 - q^140 - q^144 + q^145 - 
        q^147 + q^157 + q^164 + q^169 - q^177 + q^180 - q^188 - q^203 - q^205 + 
        O(q^208),
    q^10 - q^18 - q^26 - q^30 + q^40 + q^42 + q^50 + q^54 - q^58 - q^70 - q^72 +
        q^78 + q^86 + q^90 - q^94 - q^104 - q^120 + q^138 - q^146 - q^150 + 
        q^160 - q^162 + q^168 + q^174 + q^194 + q^200 + O(q^208),
    q^14 - q^18 - q^26 + q^42 + q^46 + q^56 - q^58 - q^70 - q^72 + q^82 + q^90 -
        q^94 - q^104 + q^130 + q^138 - q^146 + q^168 - q^182 + q^184 + O(q^208)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
839
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
838
);
qprec:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
839
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
419*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^16 + q^19 + 2*q^20 + q^23 - 2*q^28 - 2*q^30 - q^32 - 2*q^36 - q^37 - 
        q^38 + q^40 + 3*q^42 + q^43 + 2*q^45 + q^46 - q^47 + q^48 + q^49 - 
        2*q^50 - q^53 - q^56 + 2*q^57 - q^59 + q^61 - 2*q^63 + q^64 - q^69 - 
        q^70 - q^72 - q^73 - q^74 - 2*q^75 - q^76 + q^80 + q^81 + q^84 + 2*q^86 
        + q^92 - q^94 - q^96 + q^101 - q^105 - q^108 - q^111 - 2*q^112 - q^115 +
        q^118 - q^120 + q^121 + q^122 + q^126 + q^127 - q^129 + q^133 + q^135 + 
        q^137 - q^138 + O(q^140),
    q^2 + q^20 + q^23 + q^24 - q^25 - q^27 - 2*q^30 - q^32 - q^36 - q^37 + 
        2*q^42 + q^43 + q^45 + q^46 - q^47 - q^49 - q^56 + q^57 - q^59 + q^61 - 
        q^63 - q^69 - q^72 - q^74 - q^75 - q^76 + q^80 + q^81 + 2*q^86 + q^90 + 
        q^92 - q^94 + q^95 + q^98 - q^100 - q^108 - q^112 - q^114 + q^115 + 
        q^122 + q^127 + q^133 + O(q^140),
    q^3 - q^20 - q^23 - q^24 + q^27 + q^30 + q^32 - q^42 - q^43 - q^45 - q^46 + 
        q^59 + q^63 + q^72 + q^74 + q^75 - q^81 - q^86 - q^90 + q^94 - q^95 + 
        q^100 + q^108 + q^114 + O(q^140),
    q^4 - q^19 - 2*q^20 - q^23 - q^24 + q^25 + q^28 + 2*q^30 + q^32 + 2*q^36 + 
        q^37 - q^40 - 3*q^42 - q^43 - 2*q^45 - q^46 + q^47 - q^48 + q^50 + q^53 
        + q^56 - 2*q^57 + q^59 - q^61 + 2*q^63 + q^69 + q^72 + q^73 + q^74 + 
        2*q^75 + q^76 - q^80 - q^81 - q^84 - 2*q^86 - q^90 - q^92 + q^94 - q^95 
        + q^100 - q^101 + q^105 + q^108 + q^111 + q^112 - q^118 - q^122 - q^126 
        - q^127 + q^129 - q^133 - q^135 - q^137 + q^138 + O(q^140),
    q^5 - q^16 - q^19 - q^20 - q^23 - q^24 + q^25 + q^28 + 2*q^30 + q^32 + q^36 
        + q^37 - q^40 - 2*q^42 - q^43 - q^45 + q^47 + q^50 - q^54 + q^56 - 
        2*q^57 + q^59 - q^61 + q^63 + q^69 + q^72 + q^73 + q^74 + q^75 + q^76 - 
        q^80 - q^81 - 2*q^86 - q^92 + q^94 - q^95 - q^98 - q^101 + q^108 + q^111
        + q^112 - q^122 + q^125 - q^127 - q^133 - q^135 - q^137 + O(q^140),
    q^6 - q^16 - q^19 - 2*q^20 - q^23 + q^25 + q^28 + 2*q^30 + q^32 + 2*q^36 + 
        2*q^37 - q^40 - 3*q^42 - q^43 - 2*q^45 - q^46 + 2*q^47 - q^48 + 2*q^50 +
        q^56 - 2*q^57 + q^59 - q^60 - q^61 + q^63 - q^64 + q^69 + q^70 + q^72 + 
        q^73 + q^74 + 2*q^75 + q^76 - 2*q^80 - q^81 - q^84 - 2*q^86 - q^90 - 
        q^92 + q^94 - q^95 + q^96 - q^98 - q^101 + q^105 + q^108 + q^111 + 
        2*q^112 - q^118 - q^122 - q^126 - q^127 - q^133 - q^135 - q^137 + 
        O(q^140),
    q^7 - q^16 - q^19 - 2*q^20 - q^23 - q^24 + q^25 + 2*q^28 + 3*q^30 + q^32 + 
        2*q^36 + q^37 + q^38 - q^40 - 3*q^42 - q^43 - 2*q^45 - q^46 + q^47 - 
        q^48 + q^50 - q^54 + 2*q^56 - 2*q^57 + q^59 - q^61 + 2*q^63 - q^64 + 
        q^69 + q^72 + q^73 + q^74 + q^75 + q^76 - 2*q^80 - q^81 - q^84 - 2*q^86 
        - q^92 + q^94 - q^95 + q^96 - q^98 - q^101 + q^108 + q^111 + 2*q^112 - 
        q^118 + q^120 - q^122 + q^125 - q^126 - q^127 + q^129 - q^133 - q^135 - 
        q^137 + q^138 + O(q^140),
    q^8 - q^16 - q^19 - 2*q^20 - q^23 - q^24 + q^25 + q^27 + q^28 + 3*q^30 + 
        2*q^32 + q^36 + q^37 - 3*q^42 - q^43 - 2*q^45 - q^46 + q^47 - q^48 + 
        q^49 + q^50 - q^54 + q^56 - 2*q^57 + q^59 - q^60 - q^61 + q^63 - q^64 + 
        2*q^69 + 2*q^72 + q^73 + q^74 + q^75 + q^76 - 2*q^80 - q^81 - 2*q^86 - 
        q^90 - q^92 + q^94 - q^95 - q^98 - q^101 + q^106 + 2*q^108 + q^111 + 
        q^112 + q^114 - q^118 + q^120 - q^122 - q^127 + q^128 - q^133 - q^137 + 
        O(q^140),
    q^9 - q^16 - q^19 - 2*q^20 - q^23 + q^25 + 2*q^28 + 2*q^30 + q^32 + 2*q^36 +
        q^37 + q^38 - q^40 - 3*q^42 - q^43 - 2*q^45 - q^46 + q^47 - q^48 + 
        2*q^50 - q^54 + q^56 - 2*q^57 + q^59 - q^60 - q^61 + q^63 - q^64 + q^69 
        + q^70 + q^72 + q^73 + q^74 + q^75 + q^76 - 2*q^80 - q^84 - 2*q^86 - 
        q^92 + q^94 + q^96 - q^98 - q^101 + q^108 + q^111 + 2*q^112 + q^115 - 
        q^118 + q^120 - q^122 - q^126 - q^127 - q^133 - q^135 - q^137 + 
        O(q^140),
    q^10 - q^16 - q^19 - 2*q^20 + q^25 + q^28 + 2*q^30 + q^32 + q^36 + q^37 - 
        2*q^42 - q^43 - q^45 - q^46 + q^47 - q^48 + q^50 - q^54 + q^56 - 2*q^57 
        + q^59 - q^60 - q^61 + q^63 - q^64 + q^69 + q^72 + q^73 + q^74 + q^75 + 
        q^76 - 2*q^80 - q^86 + q^94 - q^95 + q^96 - q^98 - q^101 + q^108 + q^111
        + q^112 - q^118 + q^120 - q^122 - q^126 - q^127 + q^128 - q^133 - q^135 
        - q^137 + O(q^140),
    q^12 - q^16 - q^19 - q^20 + q^25 + q^28 + q^30 + q^36 + q^37 - q^40 - 2*q^42
        - q^45 + q^47 + q^50 - q^54 + q^56 - 2*q^57 - q^60 - q^61 - q^64 + q^69 
        + q^70 + q^72 + q^73 + q^74 + q^75 + q^76 - q^80 - q^86 - q^92 + q^94 - 
        q^98 - q^101 + q^108 + q^111 + q^112 - q^118 - q^126 - q^127 - q^133 - 
        q^135 - q^137 + O(q^140),
    q^14 - q^16 - q^20 + q^28 + q^30 - q^42 - q^54 + q^56 - q^57 - q^64 + q^69 +
        q^72 + q^73 + q^76 - q^80 - q^98 - q^101 + q^112 - q^118 + q^120 - q^133
        + O(q^140),
    q^15 - q^19 - q^20 - q^23 - q^24 + q^25 + q^28 + 2*q^30 + q^32 + q^36 + q^37
        - q^40 - 2*q^42 - q^43 - 2*q^45 - q^46 + q^47 - q^48 + q^50 + q^56 - 
        q^57 + q^59 - q^61 + q^63 + q^69 + q^72 + q^73 + q^74 + q^75 + q^76 - 
        q^80 - q^81 - q^84 - 2*q^86 - q^90 - q^92 + q^94 - q^95 + q^108 + q^111 
        + q^112 - q^122 - q^127 - q^137 + q^138 + O(q^140),
    q^18 - q^20 - q^23 - q^24 + q^25 + q^30 + q^32 + q^36 + q^37 - q^40 - 2*q^42
        - q^43 - q^45 - q^46 + q^47 + q^50 + q^56 - q^57 + q^59 - q^61 + q^63 + 
        q^72 + q^74 + q^75 + q^76 - q^80 - q^81 - q^84 - 2*q^86 - q^90 - q^92 + 
        q^94 - q^95 + q^100 + q^105 + q^108 + q^111 + q^112 - q^122 - q^127 - 
        q^135 + O(q^140),
    q^21 - q^23 - q^24 + q^30 + q^32 - q^42 - q^45 + q^59 + q^63 - q^81 - q^86 +
        q^108 + q^114 + O(q^140),
    q^35 - q^36 - q^37 + q^40 + q^42 - q^47 - q^50 + q^57 + q^61 - q^70 - q^75 +
        q^86 + q^92 - q^105 - q^112 + q^127 + q^135 + O(q^140)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 - q^6 - q^9 + q^10 + q^15 + q^16 + q^24 - q^25 - 2*q^31 + q^36 - 
        q^40 + q^49 + q^54 - q^60 - q^64 + 2*q^79 + q^81 - q^90 - q^96 + q^100 -
        2*q^106 - q^121 + 2*q^124 - q^135 - q^144 + q^150 + 2*q^151 - 2*q^159 + 
        q^160 + 2*q^166 - q^169 + 2*q^186 - q^196 - 2*q^199 - 2*q^214 - q^216 + 
        q^225 + q^240 - 2*q^241 + 2*q^249 - q^250 + q^256 + 2*q^265 + 2*q^271 + 
        2*q^279 - q^289 - q^294 - 2*q^310 - 2*q^316 - 2*q^321 - q^324 + 2*q^346 
        + O(q^354),
    q^2 + q^3 - q^5 - q^8 - q^12 - q^18 + q^20 - q^27 + q^30 + q^32 + q^45 + 
        q^48 - q^50 + 2*q^53 - 2*q^62 + q^72 - q^75 - q^80 - 2*q^83 - 2*q^93 + 
        q^98 + 2*q^107 + q^108 - q^120 + q^125 - q^128 + q^147 + 2*q^155 + 
        2*q^158 + q^162 - 2*q^173 - q^180 - q^192 - 2*q^197 + q^200 - 2*q^212 - 
        2*q^227 + 2*q^237 - q^242 + q^243 - q^245 + 2*q^248 - q^270 - q^288 + 
        2*q^293 + q^300 + 2*q^302 + 2*q^317 - 2*q^318 + q^320 + 2*q^332 - q^338 
        - 2*q^347 + O(q^354),
    q^7 - q^28 - q^42 - q^63 + q^70 + q^105 + q^112 + q^168 - q^175 - 2*q^217 + 
        q^252 - q^280 + q^343 + O(q^354),
    q^14 + q^21 - q^35 - q^56 - q^84 - q^126 + q^140 - q^189 + q^210 + q^224 + 
        q^315 + q^336 - q^350 + O(q^354)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.4 + H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.4 + H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + H.4 + H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + H.4 + H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + 1/2*(-a^2 + a + 1)*q^7 + (-a^3 + a)*q^9 + 1/2*(-a^2 - 1)*q^10 - 
        1/2*q^15 + a^2*q^16 + 1/2*(a^3 + 1)*q^22 - 1/2*a*q^25 + 1/2*(a^3 - a^2 -
        a)*q^28 + 1/2*(a^3 + a^2 + a - 2)*q^33 - q^36 + 1/2*(a^3 + a)*q^40 + 
        1/2*(a^2 - a - 1)*q^42 + 1/2*(-a^3 + 2*a)*q^55 + 1/2*(a^3 - a^2 - 
        a)*q^58 + 1/2*a*q^60 + 1/2*(-a^3 + 1)*q^63 - a^3*q^64 + 1/2*(-a^3 + a^2 
        - 1)*q^70 + (-a^2 + 1)*q^81 + 1/2*(2*a^3 + a^2 - a + 1)*q^87 + 1/2*(-a^2
        - a + 1)*q^88 + 1/2*(a^3 - 2*a)*q^90 + 1/2*(a^3 + 2*a^2 - 2*a - 1)*q^97 
        + 1/2*a^2*q^100 + 1/2*(a^3 - a - 1)*q^105 + 1/2*(a^3 + 1)*q^112 + 
        1/2*(-a^3 + 2*a^2 + 2*a - 1)*q^118 - a^2*q^121 + 1/2*(-a^3 - 1)*q^127 + 
        1/2*(-a^3 - 2*a^2 + 2*a + 1)*q^132 + 1/2*(a^3 - a)*q^135 + a*q^144 + 
        1/2*(-a^3 - a)*q^145 + 1/2*(a^2 + 1)*q^150 + (a^2 - 1)*q^151 + (-a^3 + 
        a)*q^154 + (-a^3 - a)*q^159 + 1/2*(-2*a^2 + 1)*q^160 + (-a^2 + 2)*q^166 
        + 1/2*(-a^3 + a^2 + a)*q^168 + a^3*q^169 + 1/2*(a^3 - a^2 + 1)*q^175 + 
        1/2*(-a^3 - a^2 + a)*q^177 + (-a^2 + 1)*q^186 + 1/2*(a^2 + a - 1)*q^193 
        + 1/2*(-a^3 + a^2 + a)*q^198 + a*q^214 + 1/2*(-a^3 - a^2 + a)*q^217 + 
        1/2*(-a^2 - 1)*q^220 + 1/2*(a^3 - 2*a^2 - 2*a + 1)*q^223 - 1/2*q^225 + 
        a^2*q^231 + 1/2*(a^3 + 1)*q^232 - 1/2*a^2*q^240 + 1/2*(a^2 - a - 
        1)*q^252 + (a^2 - 1)*q^256 + 1/2*(-2*a^3 - a^2 + a - 1)*q^262 + 
        1/2*(2*a^2 - 1)*q^265 + (a^2 - 2)*q^271 + 1/2*(-a^3 + a^2 + a - 1)*q^280
        + (a^3 - a)*q^289 + (a^3 - a)*q^294 + 1/2*(2*a^3 + 1)*q^295 + 1/2*(2*a^3
        + a^2 - a + 1)*q^297 + (a^2 + a - 1)*q^298 + (a^3 - a^2 - a)*q^303 + 
        1/2*(a^3 - a)*q^310 + 1/2*(-a^3 - a^2 - a + 2)*q^313 - a*q^319 + (a^3 - 
        a)*q^324 + 1/2*(-2*a^3 + 1)*q^330 + 1/2*(-a^3 - 1)*q^337 + 1/2*(a^3 - 
        1)*q^343 + 1/2*(-a^3 - a^2 - a + 2)*q^348 + 1/2*(a^3 + a^2 - a)*q^352 + 
        O(q^354),
    q^2 + 1/2*(-a^3 + 2*a)*q^5 - a*q^8 + 1/2*(a^3 - a^2 - a)*q^11 + 1/2*(-a^2 + 
        a + 1)*q^14 + (-a^3 + a)*q^18 + 1/2*(-a^2 - 1)*q^20 + 1/2*(-a^3 + 
        1)*q^21 + 1/2*(-a^2 + a + 1)*q^29 - 1/2*q^30 + a^2*q^32 + 1/2*(-a^3 + 
        a^2)*q^35 + 1/2*(a^3 + 1)*q^44 + 1/2*(-a^2 + 2)*q^45 - 1/2*a*q^50 + 
        1/2*(a^3 - a^2 - a)*q^56 + 1/2*(-a^3 + a^2 - a - 2)*q^59 + 1/2*(a^3 + 
        a^2 + a - 2)*q^66 - q^72 + 1/2*(a^3 - 2*a)*q^75 + (a^2 - 1)*q^77 + 
        1/2*(a^3 + a)*q^80 + (2*a^3 - a)*q^83 + 1/2*(a^2 - a - 1)*q^84 + 
        a^3*q^93 + 1/2*(a^2 - a - 1)*q^99 - q^107 + 1/2*(-a^3 + 2*a)*q^110 + 
        1/2*(a^3 - a^2 - a)*q^116 + 1/2*a*q^120 + 1/2*(-a^3 + 1)*q^126 - 
        a^3*q^128 + 1/2*(-a^3 + 2*a^2 + 2*a - 1)*q^131 + 1/2*(-a^3 + a^2 - 
        1)*q^140 + (-a^2 + 1)*q^147 + (-a^3 - 1)*q^149 + 1/2*(-a^2 + 1)*q^155 + 
        (-a^2 + 1)*q^162 + 1/2*(a^3 + 2*a^2 - a)*q^165 + 1/2*(2*a^3 + a^2 - a + 
        1)*q^174 + 1/2*(-a^2 - a + 1)*q^176 + (-a^3 - a^2 + a)*q^179 + 1/2*(a^3 
        - 2*a)*q^180 + 1/2*(-a^3 - a^2 + a)*q^189 + 1/2*(a^3 + 2*a^2 - 2*a - 
        1)*q^194 + 1/2*a^2*q^200 + a*q^203 + 1/2*(a^3 - a - 1)*q^210 + (a^3 + 
        1)*q^219 + 1/2*(a^3 + 1)*q^224 + 1/2*(-a^3 + 2*a^2 + 2*a - 1)*q^236 + 
        (-a^2 - 1)*q^237 - a^2*q^242 + 1/2*(a^3 - a)*q^245 + 1/2*(-2*a^3 + a^2 +
        a + 1)*q^251 + 1/2*(-a^3 - 1)*q^254 + 1/2*(-a^3 + 1)*q^261 + 1/2*(-a^3 -
        2*a^2 + 2*a + 1)*q^264 + 1/2*(a^3 - a^2 + a + 2)*q^269 + 1/2*(a^3 - 
        a)*q^270 + 1/2*(-a^3 + 2)*q^275 + a*q^288 + 1/2*(-a^3 - a)*q^290 + 
        1/2*(-a^3 + a^2 + a)*q^291 + 1/2*(a^2 + 1)*q^300 + (a^2 - 1)*q^302 + 
        (-a^3 + a)*q^308 + (a^2 - a - 1)*q^309 + 1/2*(-a^2 + a)*q^315 + q^317 + 
        (-a^3 - a)*q^318 + 1/2*(-2*a^2 + 1)*q^320 + (-a^2 + 2)*q^332 + 1/2*(-a^3
        + a^2 + a)*q^336 + a^3*q^338 + 1/2*(a^3 - 2*a^2 - 2*a + 1)*q^341 + 
        1/2*(a^3 - a^2 + 1)*q^350 + O(q^354),
    q^3 - 1/2*a*q^5 + 1/2*(a^3 + 2*a^2 - 2*a - 1)*q^11 - a*q^12 + 1/2*(a^3 - a^2
        - a)*q^14 + 1/2*a^2*q^20 + 1/2*(-a^2 + a + 1)*q^21 + (-a^3 + a)*q^27 + 
        1/2*(a^3 + a^2 + a - 2)*q^29 + 1/2*(-a^2 - 1)*q^30 + 1/2*(-a - 1)*q^35 +
        1/2*(-2*a^3 + a^2 + a + 1)*q^44 - 1/2*q^45 + a^2*q^48 + 1/2*(a^3 + 
        a)*q^50 + (-2*a^2 + 1)*q^53 + 1/2*(a^3 + 1)*q^56 + 1/2*(-a^3 + 1)*q^59 +
        (-a^3 + a)*q^62 + 1/2*(a^3 + 1)*q^66 - 1/2*a*q^75 + a^3*q^77 - 
        1/2*a^3*q^80 + 1/2*(a^3 - a^2 - a)*q^84 - q^98 + 1/2*(a^3 + a^2 + a - 
        2)*q^99 + (-a^3 - 1)*q^101 - q^108 + 1/2*(-2*a^2 + a + 2)*q^110 + 
        1/2*(-a^3 - 2*a^2 + 2*a + 1)*q^116 + 1/2*(a^3 + a)*q^120 + a^2*q^125 + 
        1/2*(a^2 - a - 1)*q^126 + 1/2*(-a^2 + a + 1)*q^131 + 1/2*(a^2 + a)*q^140
        + (-a^3 - a^2 + a)*q^146 + 1/2*(-a^2 + 2)*q^155 + (2*a^2 - 1)*q^158 + 
        1/2*(-a^3 + 2*a)*q^165 + 1/2*(a^3 - a^2 - a)*q^174 + 1/2*(-a^3 + a^2 - a
        - 2)*q^176 + 1/2*a*q^180 + 1/2*(-a^3 + 1)*q^189 - a^3*q^192 + 1/2*(-a^2 
        - a + 1)*q^194 + 1/2*(-2*a^2 + 1)*q^200 + (a^2 - 1)*q^203 + (a^3 + 
        1)*q^206 + 1/2*(-a^3 + a^2 - 1)*q^210 + (2*a^3 - a)*q^212 + 1/2*(-a^2 - 
        a + 1)*q^224 + a^3*q^227 + 1/2*(a^2 - a - 1)*q^236 + (a^3 - 2*a)*q^242 +
        (-a^2 + 1)*q^243 + 1/2*(a^3 - 2*a)*q^245 - q^248 + 1/2*(-a^3 - a^2 + 
        a)*q^251 + 1/2*(-2*a^3 + a^2 + a + 1)*q^254 + 1/2*(2*a^3 + a^2 - a + 
        1)*q^261 + 1/2*(-a^2 - a + 1)*q^264 + 1/2*(-a^3 + 1)*q^269 + 1/2*(a^3 - 
        2*a)*q^270 + 1/2*(-2*a^3 + a)*q^275 + 1/2*(-a^3 + 2)*q^290 + 1/2*(a^3 + 
        2*a^2 - 2*a - 1)*q^291 + a^2*q^293 + 1/2*a^2*q^300 + (-a^2 + 1)*q^308 + 
        1/2*(a^3 - a - 1)*q^315 + 1/2*(a^2 - 1)*q^320 + 1/2*(a^3 + 1)*q^336 + 
        1/2*(a^2 - a - 1)*q^341 + 1/2*(a^2 + a)*q^350 + O(q^354),
    q^6 + 1/2*(-a^2 + a + 1)*q^7 - 1/2*a*q^10 + 1/2*(-a^3 + 2*a)*q^15 + 1/2*(a^3
        + 2*a^2 - 2*a - 1)*q^22 - a*q^24 + 1/2*(-a^2 - 1)*q^25 + 1/2*(a^3 - a^2 
        - a)*q^28 + (a^2 - 1)*q^31 + 1/2*(a^3 - a^2 - a)*q^33 + 1/2*a^2*q^40 + 
        1/2*(-a^2 + a + 1)*q^42 + (-a^3 + a)*q^49 + (-a^3 + a)*q^54 + 1/2*(2*a^3
        - 1)*q^55 + 1/2*(a^3 + a^2 + a - 2)*q^58 + 1/2*(-a^2 - 1)*q^60 + 
        1/2*(-a^3 + 1)*q^63 + 1/2*(-a - 1)*q^70 + (a^2 + a - 1)*q^73 + (-a^3 - 
        a)*q^79 + 1/2*(-a^2 + a + 1)*q^87 + 1/2*(-2*a^3 + a^2 + a + 1)*q^88 - 
        1/2*q^90 + a^2*q^96 + 1/2*(a^3 + 1)*q^97 + 1/2*(a^3 + a)*q^100 + (a^3 - 
        a^2 - a)*q^103 + 1/2*(-a^3 + a^2)*q^105 + (-2*a^2 + 1)*q^106 + 1/2*(a^3 
        + 1)*q^112 + 1/2*(-a^3 + 1)*q^118 + (-a^2 + 2)*q^121 + (-a^3 + a)*q^124 
        + 1/2*(a^3 + 2*a^2 - 2*a - 1)*q^127 + 1/2*(a^3 + 1)*q^132 + 1/2*(-a^2 + 
        2)*q^135 + 1/2*(2*a^3 + a^2 - 2*a)*q^145 - 1/2*a*q^150 + a^3*q^154 - 
        1/2*a^3*q^160 + 1/2*(a^3 - a^2 - a)*q^168 + 1/2*(-a - 1)*q^175 + 
        1/2*(-a^3 + a^2 - a - 2)*q^177 + 1/2*(-2*a^3 + a^2 + a + 1)*q^193 - 
        q^196 + 1/2*(a^3 + a^2 + a - 2)*q^198 + (-a^3 - 1)*q^202 - q^216 + 
        1/2*(a^3 + a^2 - a)*q^217 + 1/2*(-2*a^2 + a + 2)*q^220 + 1/2*(-a^3 + 
        1)*q^223 + 1/2*(a^3 - 2*a)*q^225 + (a^2 - 1)*q^231 + 1/2*(-a^3 - 2*a^2 +
        2*a + 1)*q^232 + 1/2*(a^3 + a)*q^240 + (-a^2 + 1)*q^241 + (2*a^3 - 
        a)*q^249 + a^2*q^250 + 1/2*(a^2 - a - 1)*q^252 + 1/2*(-a^2 + a + 
        1)*q^262 - 3/2*a^3*q^265 + a^3*q^279 + 1/2*(a^2 + a)*q^280 + (-a^3 - a^2
        + a)*q^292 + 1/2*(-a^3 + 2*a)*q^295 + 1/2*(a^2 - a - 1)*q^297 + 
        1/2*(-a^2 + 2)*q^310 + 1/2*(a^3 - a^2 - a)*q^313 + (2*a^2 - 1)*q^316 - 
        q^321 + 1/2*(-a^3 + 2*a)*q^330 + 1/2*(-a^3 - 2*a^2 + 2*a + 1)*q^337 + 
        1/2*(-a^3 + 1)*q^343 + 1/2*(a^3 - a^2 - a)*q^348 + 1/2*(-a^3 + a^2 - a -
        2)*q^352 + O(q^354)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.4 + H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.4 + H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + 2*H.4 + H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - 1/2*a*q^9 - 1/2*a*q^21 + (a - 1)*q^25 + 1/2*(-a - 1)*q^45 + a*q^49 + (a 
        - 2)*q^61 + 1/2*(-2*a + 1)*q^69 + 1/2*(-a + 1)*q^81 + 1/2*(a + 1)*q^105 
        + (-a + 1)*q^109 + a*q^121 + 1/2*(a + 1)*q^129 + (-a + 2)*q^145 - q^169 
        + (-2*a + 1)*q^181 + (a - 1)*q^189 + 1/2*(a - 2)*q^201 - a*q^205 + 
        1/2*q^225 + 1/2*(3*a - 3)*q^249 + 3/2*a*q^261 - a*q^289 + (-a - 1)*q^301
        + 1/2*q^309 + 1/2*(2*a - 1)*q^321 - 1/2*a*q^345 + (2*a - 1)*q^349 + 
        O(q^354),
    q^2 + (-a + 1)*q^8 + 1/2*(2*a - 1)*q^12 - 1/2*a*q^18 - a*q^32 - 1/2*a*q^42 +
        1/2*(a + 1)*q^48 + (a - 1)*q^50 + 1/2*a*q^60 - 1/2*q^72 + 1/2*(-a - 
        1)*q^90 + (a - 1)*q^92 + a*q^98 + (a - 2)*q^122 - q^128 + 1/2*(-2*a + 
        1)*q^138 - a*q^140 + 1/2*(-a + 1)*q^162 - 1/2*q^168 + 1/2*(-a + 2)*q^192
        + a*q^200 + 1/2*(a + 1)*q^210 + (-a + 1)*q^218 + 1/2*q^240 + a*q^242 + 
        1/2*(-a + 2)*q^252 + 1/2*(a + 1)*q^258 + 1/2*(a - 1)*q^288 + (-a + 
        2)*q^290 + 1/2*(-a - 1)*q^300 + (-a + 2)*q^332 - q^338 + 1/2*(-2*a + 
        1)*q^348 + O(q^354),
    q^3 + 1/3*(-a + 2)*q^15 + 1/3*(2*a + 2)*q^23 + 1/3*(2*a - 4)*q^35 - a*q^63 +
        (a - 1)*q^75 - 2*a*q^83 - q^87 + 1/3*(-2*a - 2)*q^107 + 1/3*(2*a - 
        1)*q^123 + 1/3*(-2*a - 2)*q^135 + a*q^147 + 2*a*q^167 + (a - 2)*q^183 + 
        2*q^203 + 1/3*(-2*a + 1)*q^207 + (-2*a + 2)*q^215 + (-a + 1)*q^243 + 
        1/3*(4*a - 2)*q^263 + 1/3*(-a + 2)*q^267 + 1/3*(-4*a + 2)*q^287 + 1/3*(a
        + 1)*q^303 + 1/3*(a + 1)*q^315 + (-a + 1)*q^327 + 2*a*q^335 + 1/3*(-4*a 
        + 2)*q^347 + O(q^354),
    q^4 + (a - 2)*q^14 + (-a + 1)*q^16 + (-a + 2)*q^20 + (2*a - 2)*q^30 + a*q^36
        - q^46 + (-a - 1)*q^54 + (2*a - 1)*q^56 - a*q^64 + (-a + 1)*q^70 + (-2*a
        + 1)*q^80 - 2*a*q^84 + (-3*a + 3)*q^86 + (a - 1)*q^100 - 3*q^116 + 
        2*a*q^120 + (a + 1)*q^126 + 3*a*q^134 + q^144 + (2*a - 1)*q^164 + (a + 
        1)*q^166 + (-2*a + 4)*q^174 + (-a - 1)*q^180 + (a - 1)*q^184 + a*q^196 +
        (-2*a + 1)*q^206 + q^214 + (a - 2)*q^216 + (a + 1)*q^224 + (a - 2)*q^230
        + (a - 2)*q^244 - 2*a*q^246 - q^256 + q^270 - a*q^280 + (-a - 1)*q^320 +
        (-2*a + 2)*q^324 + (-a - 1)*q^334 - 2*q^336 - 3*a*q^344 + (-2*a + 
        1)*q^350 + O(q^354),
    q^5 + 1/2*(2*a - 1)*q^9 + 1/2*(-2*a + 1)*q^21 + (-a - 1)*q^29 + (a - 1)*q^41
        - 1/2*a*q^45 + 1/2*(a - 1)*q^69 + 1/2*(-a + 2)*q^81 + q^89 + a*q^101 - 
        1/2*a*q^105 + (a - 1)*q^125 + 3/2*a*q^129 + (-2*a + 1)*q^149 + (-a + 
        1)*q^161 - 3/2*q^201 + 1/2*(-a - 1)*q^225 + a*q^245 + 1/2*(-a + 2)*q^249
        + 1/2*(2*a - 1)*q^261 - a*q^269 + (a - 2)*q^305 + 1/2*(a + 1)*q^309 + 
        1/2*(-a + 1)*q^321 + 1/2*(-2*a + 1)*q^345 + O(q^354),
    q^6 - 2*q^14 + 2*q^20 + (-a + 1)*q^24 + (a - 2)*q^30 + (2*a - 1)*q^36 - 
        2*a*q^54 + (2*a - 2)*q^56 + (-2*a + 2)*q^80 + (-2*a + 1)*q^84 + (-2*a + 
        4)*q^86 - a*q^96 + (-2*a - 2)*q^116 + (2*a - 1)*q^120 + a*q^126 + (4*a -
        2)*q^134 + (a + 1)*q^144 + (a - 1)*q^150 + (2*a - 2)*q^164 + 3*q^174 - 
        a*q^180 + (-2*a + 2)*q^206 - 2*q^216 + 2*a*q^224 - 2*q^230 + (-2*a + 
        1)*q^246 + (a - 1)*q^276 + a*q^294 - 2*a*q^320 + (-a + 2)*q^324 + (-a - 
        1)*q^336 + (-4*a + 2)*q^344 + (-2*a + 2)*q^350 + O(q^354),
    q^7 + 1/3*(-2*a + 4)*q^15 + 1/3*(a + 1)*q^23 + a*q^27 + 1/3*(a - 2)*q^35 + 
        (a - 2)*q^43 - a*q^63 + (-2*a + 1)*q^67 - a*q^83 - 2*q^87 + (a - 
        1)*q^103 + 1/3*(-a - 1)*q^107 + q^115 + 1/3*(4*a - 2)*q^123 + 1/3*(-a - 
        1)*q^135 + a*q^167 + (a - 1)*q^175 + q^203 + 1/3*(2*a - 1)*q^207 + (-a +
        1)*q^215 - 2*a*q^223 + (-a + 1)*q^243 + 1/3*(2*a - 1)*q^263 + 1/3*(-2*a 
        + 4)*q^267 + 2*q^283 + 1/3*(-2*a + 1)*q^287 + 1/3*(2*a + 2)*q^303 + 
        a*q^307 + 1/3*(-a - 1)*q^315 + a*q^335 + a*q^343 + 1/3*(-2*a + 1)*q^347 
        + O(q^354),
    q^10 + 1/2*(-a + 1)*q^12 + 1/2*(2*a - 1)*q^18 + (a - 1)*q^28 + (-a + 1)*q^40
        + 1/2*(-2*a + 1)*q^42 - 1/2*a*q^48 + (-a - 1)*q^58 + 1/2*(2*a - 1)*q^60 
        + 1/2*(a + 1)*q^72 + (a - 1)*q^82 - 1/2*a*q^90 - q^108 + a*q^112 + 
        1/2*(a - 1)*q^138 - a*q^160 + 1/2*(-a + 2)*q^162 + 1/2*(-a - 1)*q^168 + 
        (-2*a + 1)*q^172 + q^178 - 1/2*q^192 + a*q^202 - 1/2*a*q^210 + (a - 
        2)*q^232 + 1/2*(a + 1)*q^240 + (a - 1)*q^250 + 1/2*q^252 + 3/2*a*q^258 +
        (a + 1)*q^268 + 1/2*(-a + 2)*q^288 + (-2*a + 1)*q^298 + 1/2*a*q^300 + 
        (-a + 1)*q^322 + a*q^328 + 1/2*(-3*a + 3)*q^348 + O(q^354)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + 2*H.4 + H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 2*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + (a - 1)*q^7 + (a - 1)*q^9 - q^13 + (-a + 1)*q^19 + q^21 - a*q^25
        + q^27 + a*q^31 + (-a + 1)*q^37 + a*q^39 - q^43 - a*q^49 - q^57 + (2*a -
        2)*q^61 - a*q^63 + a*q^67 + a*q^73 + (a - 1)*q^75 + (-a + 1)*q^79 - 
        a*q^81 + (-a + 1)*q^91 + (-a + 1)*q^93 + 2*q^97 + (-a + 1)*q^103 + 
        a*q^109 - q^111 + (-a + 1)*q^117 + (a - 1)*q^121 - q^127 + a*q^129 + 
        a*q^133 - q^139 + (a - 1)*q^147 - 2*a*q^151 - 2*a*q^157 + (2*a - 
        2)*q^163 + a*q^171 + q^175 - q^181 + 2*q^183 + (a - 1)*q^189 + a*q^193 -
        2*a*q^199 + (-a + 1)*q^201 + 2*q^211 - q^217 + (-a + 1)*q^219 + 2*q^223 
        + q^225 + (-a + 1)*q^229 - q^237 - 2*a*q^241 + (a - 1)*q^243 + (a - 
        1)*q^247 + a*q^259 + (2*a - 2)*q^271 - q^273 + a*q^277 - q^279 + a*q^283
        + (a - 1)*q^289 - 2*a*q^291 + (-a + 1)*q^301 - q^307 - q^309 + (-a + 
        1)*q^313 + a*q^325 + (-a + 1)*q^327 + (-a + 1)*q^331 + a*q^333 - q^337 +
        q^343 + 2*q^349 - q^351 + O(q^354),
    q^2 - a*q^6 + (a - 1)*q^14 + (a - 1)*q^18 - q^26 + (-a + 1)*q^38 + q^42 - 
        a*q^50 + q^54 + a*q^62 + (-a + 1)*q^74 + a*q^78 - q^86 - a*q^98 - q^114 
        + (2*a - 2)*q^122 - a*q^126 + a*q^134 + a*q^146 + (a - 1)*q^150 + (-a + 
        1)*q^158 - a*q^162 + (-a + 1)*q^182 + (-a + 1)*q^186 + 2*q^194 + (-a + 
        1)*q^206 + a*q^218 - q^222 + (-a + 1)*q^234 + (a - 1)*q^242 - q^254 + 
        a*q^258 + a*q^266 - q^278 + (a - 1)*q^294 - 2*a*q^302 - 2*a*q^314 + (2*a
        - 2)*q^326 + a*q^342 + q^350 + O(q^354),
    q^5 - a*q^15 + (a - 1)*q^35 + (a - 1)*q^45 - q^65 + (-a + 1)*q^95 + q^105 - 
        a*q^125 + q^135 + a*q^155 + (-a + 1)*q^185 + a*q^195 - q^215 - a*q^245 -
        q^285 + (2*a - 2)*q^305 - a*q^315 + a*q^335 + O(q^354),
    q^10 - a*q^30 + (a - 1)*q^70 + (a - 1)*q^90 - q^130 + (-a + 1)*q^190 + q^210
        - a*q^250 + q^270 + a*q^310 + O(q^354)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 2*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + q^6 - a*q^7 + (a - 1)*q^9 + (a - 1)*q^16 - q^22 - a*q^24 + 
        a*q^25 + (a - 1)*q^28 + a*q^31 + (-a + 1)*q^33 + q^36 - a*q^42 + (a - 
        1)*q^49 + (a - 1)*q^54 + (-a + 1)*q^58 + q^63 + q^64 - 2*a*q^73 + (-a + 
        1)*q^79 - a*q^81 + a*q^87 + a*q^88 + (a - 1)*q^96 - q^97 + (-a + 
        1)*q^100 + (2*a - 2)*q^103 - q^106 + q^112 - q^118 + (-a + 1)*q^124 - 
        q^127 - q^132 - a*q^144 + a*q^150 + a*q^151 + a*q^154 + (-a + 1)*q^159 +
        (-a + 1)*q^166 + (a - 1)*q^168 + q^169 + (-a + 1)*q^175 + (-a + 1)*q^177
        + a*q^186 + a*q^193 + q^196 + (-a + 1)*q^198 - 2*a*q^199 + 2*q^202 + 
        a*q^214 + q^216 + (-a + 1)*q^217 - q^223 - q^225 - q^231 - q^232 + 
        a*q^241 + a*q^249 + (a - 1)*q^250 - a*q^252 - a*q^256 + a*q^262 + (-a + 
        1)*q^271 - q^279 + (a - 1)*q^289 + (2*a - 2)*q^292 + (a - 1)*q^294 + 
        a*q^297 - 2*a*q^298 + (2*a - 2)*q^303 + (-a + 1)*q^313 - q^316 - a*q^319
        - q^321 + (a - 1)*q^324 - q^337 + q^343 - 2*a*q^346 + (-a + 1)*q^348 + 
        (-a + 1)*q^352 + O(q^354),
    q^2 + (a - 1)*q^3 - a*q^8 + (-a + 1)*q^11 + q^12 - a*q^14 + (a - 1)*q^18 + 
        q^21 - a*q^27 + a*q^29 + (a - 1)*q^32 - q^44 - a*q^48 + a*q^50 + (-a + 
        1)*q^53 + (a - 1)*q^56 + (-a + 1)*q^59 + a*q^62 + (-a + 1)*q^66 + q^72 -
        q^75 - q^77 + a*q^83 - a*q^84 - q^93 + (a - 1)*q^98 + a*q^99 + (2*a - 
        2)*q^101 - q^107 + (a - 1)*q^108 + (-a + 1)*q^116 - a*q^125 + q^126 + 
        q^128 - q^131 - 2*a*q^146 - a*q^147 + 2*q^149 + (-a + 1)*q^158 - a*q^162
        + 2*q^173 + a*q^174 + a*q^176 + (2*a - 2)*q^179 + (a - 1)*q^189 + (a - 
        1)*q^192 - q^194 - 2*a*q^197 + (-a + 1)*q^200 + (-a + 1)*q^203 + (2*a - 
        2)*q^206 - q^212 + 2*q^219 + q^224 + (-a + 1)*q^227 - q^236 + a*q^237 + 
        q^243 + (-a + 1)*q^248 + a*q^251 - q^254 - q^261 - q^264 + (-a + 
        1)*q^269 + q^275 - a*q^288 + (-a + 1)*q^291 + a*q^293 + a*q^300 + 
        a*q^302 + a*q^308 - 2*a*q^309 - q^317 + (-a + 1)*q^318 + (-a + 1)*q^332 
        + (a - 1)*q^336 + q^338 + q^341 + (2*a - 2)*q^347 + (-a + 1)*q^350 + 
        O(q^354),
    q^5 - a*q^20 + q^30 - a*q^35 + (a - 1)*q^45 + a*q^50 - q^75 + (a - 1)*q^80 -
        q^110 - a*q^120 + (a - 1)*q^140 + a*q^155 + (-a + 1)*q^165 + q^180 + (-a
        + 1)*q^200 - a*q^210 + (a - 1)*q^245 + (a - 1)*q^270 + q^275 + (-a + 
        1)*q^290 + a*q^300 + q^315 + q^320 + (-a + 1)*q^350 + O(q^354),
    q^10 + (a - 1)*q^15 - q^25 - a*q^40 + (-a + 1)*q^55 + q^60 - a*q^70 + (a - 
        1)*q^90 + a*q^100 + q^105 - a*q^135 + a*q^145 - q^150 + (a - 1)*q^160 + 
        a*q^175 - q^220 + (-a + 1)*q^225 - a*q^240 + (-a + 1)*q^265 + (a - 
        1)*q^280 + (-a + 1)*q^295 + a*q^310 + (-a + 1)*q^330 + O(q^354)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4 + 2*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4 + 2*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + H.4 + 2*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + H.4 + 2*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.4 + 2*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^5 + (-a + 1)*q^21 - a*q^25 - q^29 - q^41 + (a - 1)*q^49 + (-a 
        + 1)*q^61 + q^69 + a*q^81 + (-a + 1)*q^89 + a*q^101 + a*q^105 + a*q^109 
        + (a - 1)*q^121 + q^125 - a*q^129 - 2*q^141 + (-a + 1)*q^145 + (-a + 
        1)*q^149 - q^161 + q^169 - q^181 - a*q^189 + (a - 1)*q^201 + (-a + 
        1)*q^205 + (2*a - 2)*q^229 - 2*a*q^241 - a*q^245 - a*q^249 + a*q^269 + 
        2*q^281 + (a - 1)*q^289 + a*q^301 + a*q^305 + q^309 + q^321 + 2*q^329 + 
        (a - 1)*q^345 - q^349 + O(q^354),
    q^2 - a*q^8 + (a - 1)*q^10 + (-a + 1)*q^18 + q^28 + (a - 1)*q^32 + q^40 - 
        a*q^50 - q^58 - q^72 - q^82 + a*q^90 + a*q^92 + (a - 1)*q^98 + (a - 
        1)*q^108 - a*q^112 + (-a + 1)*q^122 + q^128 + (a - 1)*q^140 - a*q^160 + 
        (-a + 1)*q^172 + (-a + 1)*q^178 - 2*a*q^188 + (a - 1)*q^200 + a*q^202 + 
        a*q^218 + a*q^232 + (a - 1)*q^242 + q^250 + (-a + 1)*q^252 - q^268 + 
        a*q^288 + (-a + 1)*q^290 + (-a + 1)*q^298 - q^322 + a*q^328 + (-a + 
        1)*q^332 + q^338 + O(q^354),
    q^3 + (a - 1)*q^15 + (-a + 1)*q^63 - a*q^75 - q^87 - q^123 + (a - 1)*q^147 +
        (-a + 1)*q^183 + q^207 + a*q^243 + (-a + 1)*q^267 + a*q^303 + a*q^315 + 
        a*q^327 + O(q^354),
    q^4 + (a - 1)*q^14 - a*q^16 + (a - 1)*q^20 + (-a + 1)*q^36 - q^46 - a*q^54 +
        q^56 + (a - 1)*q^64 - a*q^70 + q^80 + a*q^86 + 2*q^94 - a*q^100 - q^116 
        + a*q^126 + (-a + 1)*q^134 - q^144 - q^164 + a*q^166 + a*q^180 + a*q^184
        + (a - 1)*q^196 - q^206 - q^214 + (a - 1)*q^216 - a*q^224 + (-a + 
        1)*q^230 + (-a + 1)*q^244 - 2*a*q^254 + q^256 + q^270 + (a - 1)*q^280 - 
        a*q^320 + 2*q^326 + a*q^334 + (-a + 1)*q^344 + q^350 + O(q^354),
    q^6 - a*q^24 + (a - 1)*q^30 - q^36 + q^84 + (a - 1)*q^96 + q^120 + (-a + 
        1)*q^126 + a*q^144 - a*q^150 - q^174 + (-a + 1)*q^180 - q^246 + a*q^276 
        + (a - 1)*q^294 + (a - 1)*q^324 - a*q^336 + O(q^354),
    q^7 + a*q^23 + (a - 1)*q^27 + (a - 1)*q^35 + (-a + 1)*q^43 - 2*a*q^47 + (-a 
        + 1)*q^63 - q^67 + (-a + 1)*q^83 + a*q^103 + a*q^107 - q^115 + (2*a - 
        2)*q^127 - a*q^135 - 2*a*q^163 + (-a + 1)*q^167 - a*q^175 - q^203 + 
        q^207 + a*q^215 + (2*a - 2)*q^223 + 2*q^227 + 2*q^235 + a*q^243 - q^263 
        + 2*q^283 - q^287 + (-a + 1)*q^307 + a*q^315 + (-a + 1)*q^335 + (a - 
        1)*q^343 - q^347 + O(q^354),
    q^9 - q^21 + (a - 1)*q^45 - a*q^69 + (-a + 1)*q^81 + (-a + 1)*q^105 + (a - 
        1)*q^129 + 2*a*q^141 + q^201 - a*q^225 + (a - 1)*q^249 - q^261 - a*q^309
        - a*q^321 + q^345 + O(q^354),
    q^12 + (-a + 1)*q^18 + (a - 1)*q^42 - a*q^48 + (a - 1)*q^60 - q^72 + a*q^90 
        - q^138 - a*q^162 + q^168 + (a - 1)*q^192 - a*q^210 + q^240 + (-a + 
        1)*q^252 + a*q^258 + 2*q^282 + a*q^288 - a*q^300 - q^348 + O(q^354)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.4 + 2*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + (a - 1)*q^9 - a*q^10 + a*q^11 + (a - 1)*q^14 + (a - 1)*q^16 + 
        (-a + 1)*q^19 - a*q^25 + (-a + 1)*q^26 + (a - 1)*q^35 + q^36 + (a - 
        1)*q^40 - q^41 + (-a + 1)*q^44 + a*q^46 + q^49 + q^56 - 2*a*q^59 + q^64 
        + (-a + 1)*q^65 + a*q^74 - q^76 - a*q^81 + (2*a - 2)*q^89 + q^90 - q^91 
        + a*q^94 - q^99 + (a - 1)*q^100 - q^104 - q^106 + (-a + 1)*q^110 + 
        a*q^115 - a*q^126 + (-a + 1)*q^131 + 2*q^139 + q^140 - a*q^144 - q^154 +
        q^160 + (-a + 1)*q^161 + a*q^164 + a*q^171 - q^176 + a*q^179 + (-a + 
        1)*q^184 + a*q^185 - q^190 - a*q^196 - 2*a*q^206 + q^209 - q^211 - 
        a*q^224 + q^225 + a*q^234 + a*q^235 + (2*a - 2)*q^236 + a*q^241 + (a - 
        1)*q^250 - q^251 + (-a + 1)*q^254 - a*q^256 + (-a + 1)*q^259 - q^260 - 
        q^265 + a*q^266 + (-a + 1)*q^275 - q^281 + q^286 + (a - 1)*q^289 + (-a +
        1)*q^296 + (a - 1)*q^299 + a*q^304 - q^314 - a*q^315 + (a - 1)*q^324 + 
        (-a + 1)*q^329 + (-a + 1)*q^331 + (-a + 1)*q^334 + a*q^346 + q^350 + 
        O(q^354),
    q^2 + q^5 - a*q^7 - a*q^8 + a*q^13 + (a - 1)*q^18 - a*q^20 + a*q^22 - q^23 +
        (a - 1)*q^28 + (a - 1)*q^32 - q^37 + (-a + 1)*q^38 + (a - 1)*q^45 - q^47
        - a*q^50 + (-a + 1)*q^52 + (-a + 1)*q^53 + a*q^55 + q^63 + (a - 1)*q^70 
        + q^72 + (-a + 1)*q^77 + (a - 1)*q^80 - q^82 + (-a + 1)*q^88 + a*q^92 + 
        (-a + 1)*q^95 + q^98 + 2*q^103 + q^112 - q^117 - 2*a*q^118 - a*q^125 + 
        a*q^127 + q^128 + (-a + 1)*q^130 - q^133 + (a - 1)*q^143 + a*q^148 - 
        q^152 + (-a + 1)*q^157 - a*q^162 + a*q^167 - q^173 + (a - 1)*q^175 + 
        (2*a - 2)*q^178 + q^180 - q^182 + a*q^188 + a*q^197 - q^198 + (a - 
        1)*q^200 - q^205 + (-a + 1)*q^207 - q^208 - q^212 + (-a + 1)*q^220 - 
        2*a*q^223 + a*q^230 + q^245 + q^247 - a*q^252 - a*q^253 + (-a + 1)*q^262
        + (2*a - 2)*q^263 + (2*a - 2)*q^277 + 2*q^278 + q^280 + a*q^287 - 
        a*q^288 + a*q^293 - 2*a*q^295 - q^308 + 2*q^317 + q^320 + (-a + 1)*q^322
        + (-a + 1)*q^325 + a*q^328 + (-a + 1)*q^333 + a*q^342 - a*q^343 - q^352 
        + O(q^354),
    q^3 - a*q^12 + (a - 1)*q^27 - a*q^30 + a*q^33 + (a - 1)*q^42 + (a - 1)*q^48 
        + (-a + 1)*q^57 - a*q^75 + (-a + 1)*q^78 + (a - 1)*q^105 + q^108 + (a - 
        1)*q^120 - q^123 + (-a + 1)*q^132 + a*q^138 + q^147 + q^168 - 2*a*q^177 
        + q^192 + (-a + 1)*q^195 + a*q^222 - q^228 - a*q^243 + (2*a - 2)*q^267 +
        q^270 - q^273 + a*q^282 - q^297 + (a - 1)*q^300 - q^312 - q^318 + (-a + 
        1)*q^330 + a*q^345 + O(q^354),
    q^6 + q^15 - a*q^21 - a*q^24 + a*q^39 + (a - 1)*q^54 - a*q^60 + a*q^66 - 
        q^69 + (a - 1)*q^84 + (a - 1)*q^96 - q^111 + (-a + 1)*q^114 + (a - 
        1)*q^135 - q^141 - a*q^150 + (-a + 1)*q^156 + (-a + 1)*q^159 + a*q^165 +
        q^189 + (a - 1)*q^210 + q^216 + (-a + 1)*q^231 + (a - 1)*q^240 - q^246 +
        (-a + 1)*q^264 + a*q^276 + (-a + 1)*q^285 + q^294 + 2*q^309 + q^336 - 
        q^351 + O(q^354)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 2*H.4 + 2*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 2*H.4 + 2*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 - q^6 + (-a + 1)*q^9 + 1/2*a*q^10 - 1/2*q^15 + (a - 1)*q^16 - 
        a*q^24 - 1/2*a*q^25 - a*q^31 + q^36 + 1/2*(a - 1)*q^40 + (a - 1)*q^49 + 
        (a - 1)*q^54 + 3/2*q^55 - 1/2*a*q^60 - q^64 + 1/2*(-a - 1)*q^70 + (-a + 
        1)*q^79 - a*q^81 + 1/2*q^90 + (-a + 1)*q^96 + 1/2*(-a + 1)*q^100 + 
        1/2*(-a + 2)*q^105 + q^106 + (2*a - 2)*q^121 + (-a + 1)*q^124 + 1/2*(a -
        1)*q^135 + a*q^144 + 1/2*(3*a - 3)*q^145 + 1/2*a*q^150 + a*q^151 + (-a +
        2)*q^154 + (a - 1)*q^159 - 1/2*q^160 + (-a + 1)*q^166 - q^169 + 1/2*(-a 
        - 1)*q^175 + a*q^186 - q^196 + 2*a*q^199 - a*q^214 - q^216 + 3/2*a*q^220
        - 1/2*q^225 + (2*a - 1)*q^231 + 1/2*(-a + 1)*q^240 - a*q^241 + a*q^249 +
        (-a + 1)*q^250 - a*q^256 + 1/2*q^265 + (-a + 1)*q^271 - q^279 + 
        1/2*(-2*a + 1)*q^280 + (-a + 1)*q^289 + (-a + 1)*q^294 - 3/2*q^295 + 
        1/2*(-a + 1)*q^310 + q^316 - 3*a*q^319 + q^321 + (-a + 1)*q^324 - 
        3/2*q^330 - 2*a*q^346 + O(q^354),
    q^2 + (a - 1)*q^3 + a*q^8 + (-a + 1)*q^11 - q^12 + 1/3*(a - 2)*q^14 + (-a + 
        1)*q^18 + 1/3*(-2*a + 1)*q^21 + a*q^27 + a*q^29 + (a - 1)*q^32 + 
        1/3*(2*a - 4)*q^35 + q^44 - a*q^48 - a*q^50 + (-a + 1)*q^53 + 1/3*(-a - 
        1)*q^56 + (a - 1)*q^59 - a*q^62 + (a - 1)*q^66 + q^72 + q^75 + (-2*a + 
        1)*q^77 - a*q^83 + 1/3*(-a + 2)*q^84 + q^93 + (a - 1)*q^98 - a*q^99 - 
        q^107 + (a - 1)*q^108 + 2*q^110 + (a - 1)*q^116 - a*q^125 + 1/3*(2*a - 
        1)*q^126 - q^128 + q^131 + 1/3*(-2*a - 2)*q^140 - a*q^147 + (-a + 
        1)*q^158 - a*q^162 + (2*a - 2)*q^165 - 2*q^173 - a*q^174 + a*q^176 + 
        1/3*(-a - 1)*q^189 + (-a + 1)*q^192 + q^194 + 2*a*q^197 + (-a + 1)*q^200
        + (a + 1)*q^203 + 1/3*(-2*a + 4)*q^210 + q^212 + 1/3*(-2*a + 1)*q^224 + 
        (a - 1)*q^227 - q^236 + a*q^237 + (2*a - 2)*q^242 + q^243 + (-a + 
        1)*q^248 - a*q^251 - q^254 + q^261 - q^264 + (-a + 1)*q^269 + q^275 + 
        a*q^288 + (2*a - 2)*q^290 + (a - 1)*q^291 + a*q^293 + a*q^300 + a*q^302 
        + (-a + 2)*q^308 + 1/3*(4*a - 2)*q^315 - q^317 + (a - 1)*q^318 + (-a + 
        1)*q^332 + 1/3*(a + 1)*q^336 - q^338 - q^341 + (-2*a + 2)*q^347 + 
        1/3*(-a - 1)*q^350 + O(q^354),
    q^5 + (2*a - 2)*q^11 + 1/3*(-2*a + 4)*q^14 + a*q^20 + 1/3*(4*a - 2)*q^21 - 
        2*a*q^29 - q^30 + 1/3*(-a + 2)*q^35 - 2*q^44 + (-a + 1)*q^45 + a*q^50 + 
        1/3*(2*a + 2)*q^56 + (-2*a + 2)*q^59 + (-2*a + 2)*q^66 - q^75 + (a - 
        1)*q^80 + 1/3*(2*a - 4)*q^84 + 2*a*q^99 - q^110 + (-2*a + 2)*q^116 - 
        a*q^120 + 1/3*(-4*a + 2)*q^126 - 2*q^131 + 1/3*(a + 1)*q^140 - a*q^155 +
        (-a + 1)*q^165 + 2*a*q^174 - 2*a*q^176 + q^180 + 1/3*(2*a + 2)*q^189 - 
        2*q^194 + (a - 1)*q^200 + 1/3*(a - 2)*q^210 + 1/3*(4*a - 2)*q^224 + 
        2*q^236 + (a - 1)*q^245 + 2*a*q^251 + 2*q^254 - 2*q^261 + 2*q^264 + (2*a
        - 2)*q^269 + (a - 1)*q^270 + q^275 + (-a + 1)*q^290 + (-2*a + 2)*q^291 -
        a*q^300 + 1/3*(-2*a + 1)*q^315 - q^320 + 1/3*(-2*a - 2)*q^336 + 2*q^341 
        + 1/3*(-a - 1)*q^350 + O(q^354),
    q^7 + 1/2*(2*a - 1)*q^10 + 1/2*(-a - 1)*q^15 + (-a - 1)*q^22 + 1/2*(2*a - 
        1)*q^25 + a*q^28 + (-a + 2)*q^33 + 1/2*(a - 2)*q^40 - q^42 + 1/2*(-a - 
        1)*q^55 + (-a + 2)*q^58 + 1/2*(-2*a + 1)*q^60 + (-a + 1)*q^63 + 
        1/2*a*q^70 + (2*a - 1)*q^87 + (-2*a + 1)*q^88 + 1/2*(a + 1)*q^90 + (-a -
        1)*q^97 + 1/2*(a - 2)*q^100 - 1/2*q^105 + (a - 1)*q^112 + (a + 1)*q^118 
        + (a + 1)*q^127 + (a + 1)*q^132 + 1/2*(a - 2)*q^135 + 1/2*(-a + 2)*q^145
        + 1/2*(-2*a + 1)*q^150 + 1/2*(-a - 1)*q^160 - a*q^168 - 1/2*a*q^175 + (a
        - 2)*q^177 + (2*a - 1)*q^193 + (a - 2)*q^198 - a*q^217 + 1/2*(-2*a + 
        1)*q^220 + (-a - 1)*q^223 + 1/2*(a + 1)*q^225 + (a + 1)*q^232 + 1/2*(-a 
        + 2)*q^240 + q^252 + (-2*a + 1)*q^262 + 1/2*(a + 1)*q^265 + 1/2*(a - 
        1)*q^280 + 1/2*(a + 1)*q^295 + (-2*a + 1)*q^297 + 1/2*(-a + 2)*q^310 + 
        (a - 2)*q^313 + 1/2*(a + 1)*q^330 + (-a - 1)*q^337 + (a - 1)*q^343 + (a 
        - 2)*q^348 + (-a + 2)*q^352 + O(q^354)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 + q^4 - q^7 - q^8 - q^9 + q^14 + q^16 + q^18 + 2*q^23 - q^25 - q^28 
        - q^32 - q^36 - 2*q^46 + q^49 + q^50 + q^56 + q^63 + q^64 - 2*q^71 + 
        q^72 - 2*q^79 + q^81 + 2*q^92 - q^98 - q^100 - q^112 - 2*q^113 + q^121 -
        q^126 + 2*q^127 - q^128 + 2*q^137 + 2*q^142 - q^144 + 2*q^151 + 2*q^158 
        - 2*q^161 - q^162 - q^169 + q^175 - 2*q^184 - 2*q^191 - 2*q^193 + q^196 
        + q^200 - 2*q^207 + q^224 + q^225 + 2*q^226 + 2*q^233 + 2*q^239 - q^242 
        + q^252 - 2*q^254 + q^256 - 2*q^263 - 2*q^274 + 2*q^281 - 2*q^284 + 
        q^288 + q^289 - 2*q^302 - 2*q^316 + 2*q^322 + q^324 - 2*q^337 + q^338 - 
        q^343 - q^350 + O(q^354),
    q^3 - q^6 + q^12 - q^21 - q^24 - q^27 + q^42 + q^48 + q^54 + 2*q^69 - q^75 -
        q^84 - q^96 - q^108 - 2*q^138 + q^147 + q^150 + q^168 + q^189 + q^192 - 
        2*q^213 + q^216 - 2*q^237 + q^243 + 2*q^276 - q^294 - q^300 - q^336 - 
        2*q^339 + O(q^354),
    q^5 - q^10 + q^20 - q^35 - q^40 - q^45 + q^70 + q^80 + q^90 + 2*q^115 - 
        q^125 - q^140 - q^160 - q^180 - 2*q^230 + q^245 + q^250 + q^280 + q^315 
        + q^320 + O(q^354),
    q^15 - q^30 + q^60 - q^105 - q^120 - q^135 + q^210 + q^240 + q^270 + 2*q^345
        + O(q^354)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + 3*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + 3*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.4 + 3*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.4 + 3*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + H.4 + 3*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + H.4 + 3*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - 9/2*q^13 + 1/4*q^15 - q^16 + 1/4*(-a + 1)*q^18 + 1/2*(-3*a + 6)*q^19 + 
        3/2*a*q^21 + 1/2*(-a - 1)*q^22 - 3*a*q^24 + 1/2*(-2*a + 1)*q^25 - 
        3/2*q^26 + 3/2*a*q^27 + (a - 1)*q^28 + 1/4*(2*a + 1)*q^30 + 3*q^31 + 
        1/2*(-3*a + 3)*q^33 + 3/2*q^35 - q^36 + 3/2*q^38 - 1/2*a*q^39 - 3*q^40 +
        (4*a + 1)*q^42 + 3/2*q^45 + q^46 - a*q^49 + 9/2*a*q^52 - 3/2*q^54 + 
        1/2*(-3*a - 3)*q^55 + 1/4*(3*a + 3)*q^57 + 1/2*(a - 1)*q^58 - 3/2*q^59 +
        3/4*a*q^60 + 1/2*(3*a + 6)*q^61 + 1/4*(3*a - 3)*q^63 + (-3*a + 3)*q^69 +
        (-4*a + 1)*q^70 + 1/4*(-a - 1)*q^72 + 1/2*(3*a - 3)*q^73 - 3/2*q^75 + 
        1/2*(-6*a - 3)*q^76 + 1/4*(-a + 1)*q^78 + a*q^79 - 1/2*q^81 - 3/2*q^83 +
        3/2*q^84 + 1/2*(-3*a - 3)*q^87 + 1/2*(-a + 1)*q^88 - 3/2*a*q^90 + 
        1/2*(-3*a - 6)*q^91 + 1/2*(3*a + 3)*q^97 - 1/2*a*q^100 - 3/2*a*q^101 + 
        1/2*(3*a - 3)*q^103 + 3/2*a*q^104 + 1/4*(3*a + 2)*q^105 + 3/2*q^108 + 
        1/2*a*q^114 + (3*a - 3)*q^115 + 1/2*(-6*a - 3)*q^117 + 3/2*q^118 + 
        1/4*(-a + 2)*q^120 + 3/2*q^122 + 3*a*q^124 + 3/2*a*q^125 - 1/2*q^126 + 
        1/2*a*q^130 + 3/2*q^131 + 1/2*(3*a + 3)*q^132 - 3/2*a*q^133 + 1/4*(4*a -
        1)*q^135 + 1/2*(-3*a - 3)*q^138 + 1/2*(-6*a + 3)*q^139 - 3/2*a*q^140 + 
        1/2*(a + 1)*q^142 + 1/2*(3*a - 3)*q^145 + 1/2*(3*a - 6)*q^150 - q^151 - 
        3/2*a*q^152 - a*q^154 - 1/2*q^156 + 3/2*q^157 + 1/2*(-a - 1)*q^162 + 
        1/2*(6*a + 3)*q^166 + (a + 2)*q^168 + a*q^169 + 3/2*q^171 + 3/2*a*q^173 
        - 1/2*a*q^175 + 1/4*(-3*a - 3)*q^177 - 3/2*a*q^180 + 1/2*(6*a + 3)*q^181
        - 3/2*q^182 + 1/4*(-a + 1)*q^183 - a*q^184 + q^186 + 1/2*(3*a - 3)*q^189
        + 1/2*(-a - 2)*q^190 + 1/2*(a - 1)*q^193 + 9/2*a*q^195 + 2*q^196 + 
        1/2*(-a + 1)*q^198 + 3/2*a*q^202 + 1/2*(a + 1)*q^207 + 9/2*q^208 + 
        1/4*(-2*a + 1)*q^210 + 1/2*(3*a - 3)*q^213 + a*q^214 + 1/2*(3*a + 
        6)*q^216 + (-2*a - 2)*q^217 + 1/2*(-3*a + 3)*q^220 + 1/2*(-3*a + 
        3)*q^223 + 1/4*(-a + 1)*q^225 - 3/2*a*q^227 + 1/4*(-3*a + 3)*q^228 + 
        1/2*(6*a - 3)*q^229 + 1/2*(3*a - 3)*q^230 - 2*q^231 + 1/2*(-a - 1)*q^232
        + 1/2*(3*a - 6)*q^234 + 3/2*a*q^236 + 1/2*(-3*a + 3)*q^237 - 1/4*q^240 -
        3*q^241 - 3*q^243 + 1/2*(-6*a + 3)*q^244 + 1/2*(a + 1)*q^247 - 
        1/2*a*q^249 + 9/2*q^250 + 3/2*a*q^251 + 1/4*(-a - 1)*q^252 + q^256 + 
        1/2*(-12*a - 3)*q^262 - 3/2*a*q^266 - 3/2*a*q^269 + 1/4*q^270 + 1/4*(a -
        1)*q^273 - a*q^274 + (-3*a - 3)*q^276 - 3/2*a*q^278 + 3*a*q^279 + (a - 
        2)*q^280 + 9/2*q^283 + 1/2*(-3*a - 6)*q^285 + 1/4*(a - 1)*q^288 - 
        a*q^289 + 1/2*(-3*a - 3)*q^292 - 3/2*a*q^293 + a*q^294 + 1/2*q^295 + 
        1/2*(3*a + 3)*q^297 + 1/2*(-a + 1)*q^298 + 1/2*(3*a + 3)*q^299 + 
        3/2*a*q^300 + 1/4*(-3*a + 3)*q^303 + 1/2*(3*a - 6)*q^304 - 9/2*a*q^307 -
        a*q^310 + 1/4*(-a - 1)*q^312 + 1/2*(-3*a + 3)*q^313 + 3/2*q^314 + 
        1/2*(-3*a + 3)*q^315 + q^316 - a*q^319 - 3*q^321 + 1/2*(-a - 1)*q^322 - 
        1/2*a*q^324 + 1/2*(-6*a + 3)*q^325 + 1/2*(-a - 1)*q^330 + 3/2*a*q^332 - 
        3/2*a*q^336 + 1/2*(a + 1)*q^337 + 1/2*(-6*a + 3)*q^342 + 1/2*(a - 
        1)*q^343 + 1/4*(a - 3)*q^345 + 1/2*(3*a + 6)*q^346 + 1/2*(-3*a + 
        3)*q^348 + 1/2*(3*a - 6)*q^349 + 1/2*(a + 1)*q^352 + O(q^354),
    q^2 + 1/2*(a - 1)*q^11 + 1/2*(3*a - 3)*q^13 + 1/8*(a - 1)*q^15 + 3/4*a*q^18 
        + 1/2*(-3*a + 1)*q^19 + 1/4*(a + 3)*q^21 - 1/2*a*q^23 + (-a - 1)*q^24 - 
        1/2*a*q^25 + 1/2*(a - 1)*q^26 + 1/2*(a + 1)*q^27 + a*q^28 + 1/2*(a + 
        1)*q^29 + 1/8*(-3*a + 7)*q^30 + (-a + 1)*q^31 - q^32 - a*q^33 + 
        1/4*(-3*a + 1)*q^35 + 1/2*(-a + 1)*q^38 + 1/4*(-3*a - 3)*q^39 + (a - 
        1)*q^40 + 1/2*(2*a + 3)*q^42 + 1/2*(-a - 1)*q^44 + 1/2*(-a + 1)*q^45 + 
        1/2*(-a + 1)*q^46 + 1/2*(-a - 1)*q^49 + 1/4*(-a - 1)*q^50 + 1/2*(3*a + 
        3)*q^52 + 1/2*(a - 1)*q^54 - q^55 + 1/2*(-a + 1)*q^56 + 3/4*q^57 + 
        1/2*(a - 1)*q^59 + 1/8*(a + 1)*q^60 + 1/2*(-a + 3)*q^61 + 3/4*a*q^63 + 
        1/4*(3*a + 1)*q^65 - 2*a*q^69 + 1/2*(-3*a - 2)*q^70 + 1/2*(a - 1)*q^71 -
        1/4*q^72 + a*q^73 + 1/2*(a - 1)*q^75 + 1/2*(-a - 3)*q^76 + 1/2*q^77 - 
        1/4*a*q^78 + 1/2*(a + 1)*q^79 + 1/4*(a - 1)*q^81 + 1/2*(a - 1)*q^83 + 
        1/4*(-a + 3)*q^84 - q^87 + 1/2*(-a - 1)*q^90 + 1/2*(a - 3)*q^91 - 
        1/2*q^92 - a*q^93 + 1/4*(-a - 1)*q^95 + q^97 + 1/2*a*q^98 + 1/2*(-a - 
        1)*q^99 - 1/2*q^100 + 1/2*(-a - 1)*q^101 + a*q^103 + 1/2*(a + 1)*q^104 +
        1/8*(a + 5)*q^105 + q^107 + 1/2*(-a + 1)*q^108 + 1/4*(a + 1)*q^114 + 
        2*a*q^115 + 1/2*(a - 1)*q^116 + 1/2*(-a - 3)*q^117 + 1/2*(-a + 1)*q^118 
        + 1/8*(a - 3)*q^120 + 1/2*(-a + 1)*q^122 + (a + 1)*q^124 + 1/2*(a + 
        1)*q^125 + 1/4*(a - 1)*q^126 + 1/2*a*q^130 + 1/2*(-a + 1)*q^131 + q^132 
        + 1/2*(-a - 1)*q^133 + 1/8*(a + 3)*q^135 - 1/2*q^137 - q^138 + 1/2*(-3*a
        - 1)*q^139 + 1/4*(-3*a - 1)*q^140 + a*q^145 - 1/2*q^147 + 1/2*(-a - 
        1)*q^149 + 1/2*(3*a - 1)*q^150 + 1/2*(-a - 1)*q^152 + 1/2*(-a - 1)*q^154
        - q^155 + 1/4*(3*a - 3)*q^156 + 1/2*(-a + 1)*q^157 - 1/2*a*q^158 + 
        1/2*(-a + 1)*q^161 - q^162 + 1/2*(a - 1)*q^165 + 1/2*(a + 3)*q^166 + 
        1/2*(-a + 2)*q^168 + 1/2*(a + 1)*q^169 + 1/2*(-a + 1)*q^171 + 1/2*(a + 
        1)*q^173 - 1/2*a*q^175 + 1/2*(-a + 1)*q^176 - 1/4*q^177 + 1/2*(a + 
        1)*q^179 + 1/2*(-a - 1)*q^180 + 1/2*(a + 3)*q^181 + 1/2*(a - 1)*q^182 + 
        3/4*a*q^183 + 1/2*(-a - 1)*q^184 + 1/4*(5*a + 1)*q^189 - 1/2*q^190 + 
        1/2*(-a + 1)*q^191 + 1/2*(3*a + 3)*q^195 + 1/2*(-a + 1)*q^196 + 1/4*(a +
        3)*q^200 + 1/2*(a + 1)*q^202 - 1/2*a*q^203 + q^207 + 1/2*(-3*a + 
        3)*q^208 + 1/8*(-5*a + 1)*q^210 + a*q^213 + 1/2*(-a + 3)*q^216 - q^217 +
        1/2*(a + 1)*q^219 - a*q^220 - a*q^223 - 1/4*q^225 + 1/2*(-a - 1)*q^227 -
        3/4*a*q^228 + 1/2*(3*a + 1)*q^229 + a*q^230 + 1/2*(a - 1)*q^231 + 
        1/2*a*q^233 + 1/2*(3*a - 1)*q^234 + 1/2*(a + 1)*q^236 - a*q^237 + 1/2*(a
        + 1)*q^239 + 1/8*(-a + 1)*q^240 + (a - 1)*q^241 + (a - 1)*q^243 + 
        1/2*(-3*a - 1)*q^244 + 1/2*a*q^245 + 1/4*(-a - 1)*q^249 + 1/2*(-3*a + 
        3)*q^250 + 1/2*(a + 1)*q^251 - 1/4*q^252 + 1/4*(-a + 3)*q^260 + 1/2*(a -
        1)*q^261 + 1/2*(-3*a - 5)*q^262 + 1/2*(-a - 1)*q^266 + 1/2*(-a - 
        1)*q^269 + 1/8*(5*a + 3)*q^270 - 3/4*a*q^273 + 1/2*(-a - 1)*q^274 + 
        1/2*(a + 1)*q^275 - 2*q^276 + 1/2*(-a - 1)*q^278 + (a + 1)*q^279 + 
        1/2*(2*a - 1)*q^280 + 1/2*(-a + 1)*q^281 + 1/2*(-3*a + 3)*q^283 + 1/2*(a
        + 1)*q^284 + 1/2*(a - 3)*q^285 - 3/4*a*q^288 + 1/2*(-a + 1)*q^291 - 
        q^292 + 1/2*(-a - 1)*q^293 + 1/2*(a + 1)*q^294 - 1/2*a*q^295 + q^297 + 
        q^299 + 1/2*(a + 1)*q^300 - q^302 - 1/4*a*q^303 + 1/2*(3*a - 1)*q^304 + 
        1/4*(-3*a + 1)*q^305 + 1/2*(-3*a - 3)*q^307 + 1/2*a*q^308 + 1/2*(a + 
        1)*q^309 - 1/4*q^312 - a*q^313 + 1/2*(-a + 1)*q^314 + 1/4*(-5*a + 
        1)*q^315 + 1/2*(-a + 1)*q^316 - q^317 + (a - 1)*q^321 + 1/4*(a + 
        1)*q^324 + 1/2*(-3*a - 1)*q^325 + 1/2*(a + 1)*q^332 + 1/4*(-a - 3)*q^336
        - 1/2*a*q^338 + 1/2*(-3*a - 1)*q^342 - 3/4*q^345 + 1/2*(-a + 3)*q^346 - 
        a*q^348 + 1/2*(3*a - 1)*q^349 + 1/4*(a - 3)*q^350 + 1/2*(-a + 1)*q^351 +
        O(q^354),
    q^3 + 1/2*(-2*a - 1)*q^13 + 1/8*(a + 1)*q^15 - 1/4*q^18 + 1/2*(2*a + 1)*q^19
        + q^20 + 1/4*(-a - 5)*q^21 + 1/2*q^23 + 1/2*(-a - 2)*q^26 - 1/2*q^27 + 
        1/8*(a + 1)*q^30 + 1/4*(a + 3)*q^35 + 3/2*q^38 + 1/4*(-a + 1)*q^39 + 
        1/2*(2*a - 1)*q^42 + 1/2*(a + 2)*q^45 - q^48 + 1/4*(-a - 1)*q^50 + 
        1/2*(a - 2)*q^52 - 1/2*q^54 + 1/2*(a + 1)*q^56 + 1/4*a*q^57 + 1/2*(2*a -
        3)*q^59 + 1/8*(-a + 1)*q^60 + 1/2*(2*a + 1)*q^61 - a*q^62 - 1/4*q^63 + 
        1/4*(a - 1)*q^65 + 1/2*(-a - 1)*q^66 + 1/2*(-a + 3)*q^69 + 1/2*(-a + 
        2)*q^70 + 1/4*a*q^72 - 3/2*a*q^75 + 1/2*(-a + 2)*q^76 + 1/2*a*q^77 - 
        1/4*q^78 + 1/4*(-a - 1)*q^81 - 3/2*q^83 + 1/4*(3*a + 1)*q^84 + 1/2*(a + 
        2)*q^90 + 1/2*(-2*a - 1)*q^91 - 1/2*a*q^92 + 1/4*(-a - 1)*q^95 - 
        1/2*q^98 + 1/2*(-3*a - 2)*q^101 + 1/2*(2*a - 1)*q^104 + 1/8*(-a + 
        1)*q^105 + 1/2*(a - 2)*q^108 + 1/2*(a - 1)*q^110 + 1/4*(-a + 1)*q^114 + 
        1/2*(-a - 3)*q^115 - 3/2*a*q^117 + 1/2*(a - 2)*q^118 + 1/8*(-a + 
        1)*q^120 + 1/2*q^122 + 1/2*(2*a - 1)*q^125 + 1/4*(a + 1)*q^126 + 
        1/2*(2*a + 3)*q^131 + 1/2*(-a + 2)*q^133 + 1/8*(a + 1)*q^135 - 
        1/2*a*q^137 + (-a + 1)*q^138 + 1/2*(-a + 2)*q^139 + 1/4*(-5*a - 1)*q^140
        + 1/2*(a + 1)*q^146 + 1/2*a*q^147 + 1/2*(-a - 2)*q^150 - 3/2*a*q^152 + 
        1/4*(-a - 1)*q^156 + 1/2*(2*a + 1)*q^157 + 1/2*q^158 + 1/2*(a - 2)*q^166
        + 1/2*(a + 2)*q^168 + 1/2*(2*a + 3)*q^171 + 1/2*a*q^173 + 1/2*(a - 
        1)*q^174 + 1/4*a*q^177 + 1/2*q^180 + 1/2*(a - 2)*q^181 - 1/2*q^182 - 
        1/4*q^183 + 1/4*(a - 3)*q^189 + 1/2*(-a + 1)*q^194 + 1/2*(2*a - 1)*q^195
        + 1/4*(a - 1)*q^200 + 1/2*(-2*a - 1)*q^202 + 1/2*q^203 + 1/2*(a + 
        1)*q^206 + 1/2*(2*a + 1)*q^208 + 1/8*(-a + 3)*q^210 + 1/2*a*q^216 - 
        1/4*a*q^225 - 5/2*a*q^227 + 1/4*q^228 + 1/2*(a - 2)*q^229 + (a - 
        1)*q^230 - 1/2*q^233 + 1/2*(-a - 2)*q^234 + 1/2*a*q^236 + (a + 1)*q^237 
        + 1/2*(a - 1)*q^239 + 1/8*(-a - 1)*q^240 + 1/2*(-a - 3)*q^243 + 1/2*(-a 
        + 2)*q^244 - 1/2*q^245 + q^248 + 1/4*(a - 1)*q^249 + 1/2*(2*a + 1)*q^250
        + 1/2*a*q^251 + 1/4*a*q^252 + 1/4*(a + 1)*q^260 + 1/2*(-a + 2)*q^262 + 
        1/2*(-a + 1)*q^264 + 1/2*(-2*a - 1)*q^266 - 1/2*a*q^269 + 1/8*(a + 
        1)*q^270 + 1/4*q^273 + 1/2*(-3*a - 1)*q^276 - 1/2*a*q^278 + 1/2*(-2*a - 
        1)*q^280 + 1/2*(a + 1)*q^281 + 1/2*(2*a + 1)*q^283 + 1/2*(-a - 2)*q^285 
        + 1/4*q^288 + 1/2*(a + 1)*q^290 + 1/2*(-a + 2)*q^293 + 1/2*(a + 1)*q^299
        - 1/2*q^300 - 1/4*q^303 + 1/2*(-2*a - 1)*q^304 + 1/4*(a + 1)*q^305 + 
        1/2*(-a + 2)*q^307 - 1/2*q^308 + 1/4*a*q^312 + 1/2*(-a + 2)*q^314 + 
        1/4*(-a + 1)*q^315 - q^320 + 1/4*(a - 1)*q^324 + 1/2*(-a + 2)*q^325 + 
        3/2*a*q^332 + 1/4*(a + 5)*q^336 + 1/2*q^338 + (a + 1)*q^341 + 1/2*(-a + 
        2)*q^342 - 1/4*a*q^345 + 1/2*(2*a + 1)*q^346 + 1/2*(-2*a - 1)*q^349 + 
        1/4*(-a - 1)*q^350 + O(q^354),
    q^4 + 9/2*a*q^13 + 1/4*(-a + 2)*q^15 + 1/4*(a + 1)*q^18 + 1/2*(-6*a - 
        3)*q^19 + 3/2*q^21 + 1/2*(a - 1)*q^22 - 3*q^24 + 1/2*(-a - 2)*q^25 + 
        3/2*a*q^26 + 3/2*q^27 + (a + 1)*q^28 - 1/4*a*q^30 - 3*a*q^31 + 1/2*(-3*a
        - 3)*q^33 - 3/2*a*q^35 + a*q^36 - 3/2*a*q^38 - 1/2*q^39 + 3*a*q^40 + (-a
        + 4)*q^42 - 3/2*a*q^45 - a*q^46 - 2*q^49 + 9/2*q^52 + 3/2*a*q^54 + 
        1/2*(3*a - 3)*q^55 + 1/4*(-a + 1)*q^57 + 1/2*(a + 1)*q^58 + 3/2*a*q^59 +
        1/4*(-2*a + 3)*q^60 + 1/2*(-6*a + 3)*q^61 + 1/4*(a + 1)*q^63 - q^64 + 
        (-3*a - 3)*q^69 + (-a - 4)*q^70 + 1/4*(-a + 1)*q^72 + 1/2*(3*a + 3)*q^73
        + 3/2*a*q^75 + 1/2*(3*a - 6)*q^76 + 1/4*(-3*a - 3)*q^78 + q^79 + 
        1/2*a*q^81 + 3/2*a*q^83 - 3/2*a*q^84 + 1/2*(3*a - 3)*q^87 + 1/2*(-a - 
        1)*q^88 - 3/2*q^90 + 1/2*(6*a - 3)*q^91 + 1/2*(-3*a + 3)*q^97 - 
        1/2*q^100 - 3/2*q^101 + 1/2*(3*a + 3)*q^103 + 3/2*q^104 + 3/4*q^105 - 
        3/2*a*q^108 + 1/2*q^114 + (3*a + 3)*q^115 + 1/2*(3*a - 6)*q^117 - 
        3/2*a*q^118 - 1/4*q^120 - a*q^121 - 3/2*a*q^122 + 3*q^124 + 3/2*q^125 + 
        1/2*a*q^126 + (-a + 1)*q^127 + 1/2*(2*a + 1)*q^130 - 3/2*a*q^131 + 
        1/2*(-3*a + 3)*q^132 - 3/2*q^133 + 1/4*(a + 2)*q^135 + 1/2*(3*a - 
        3)*q^138 + 1/2*(-3*a - 6)*q^139 - 3/2*q^140 + 1/2*(a - 1)*q^142 + 
        1/2*(3*a + 3)*q^145 + 1/2*(6*a + 3)*q^150 + a*q^151 - 3/2*q^152 - q^154 
        + 1/2*a*q^156 - 3/2*a*q^157 + 1/2*(a - 1)*q^162 + 1/2*(-3*a + 6)*q^166 +
        (-2*a + 1)*q^168 + 2*q^169 - 3/2*a*q^171 + 3/2*q^173 + 1/2*(-2*a - 
        1)*q^175 + 1/4*(a - 1)*q^177 - 3/2*q^180 + 1/2*(-3*a + 6)*q^181 + 
        3/2*a*q^182 + 1/4*(a + 1)*q^183 - q^184 - a*q^186 + 1/2*(3*a + 3)*q^189 
        - 1/2*q^190 + 1/2*(a + 1)*q^193 + 9/2*q^195 - a*q^196 + 1/2*(-a - 
        1)*q^198 + 3/2*q^202 + 1/2*(-a + 1)*q^207 - 9/2*a*q^208 - 1/4*a*q^210 + 
        1/2*(3*a + 3)*q^213 + q^214 + 1/2*(-6*a + 3)*q^216 + (2*a - 2)*q^217 + 
        1/2*(-3*a - 3)*q^220 + 1/2*(-3*a - 3)*q^223 + 1/4*(-3*a + 1)*q^225 - 
        3/2*q^227 + 1/4*(-a - 1)*q^228 + 1/2*(3*a + 6)*q^229 + 1/2*(3*a + 
        3)*q^230 + 2*a*q^231 + 1/2*(a - 1)*q^232 + 1/2*(6*a + 3)*q^234 + 
        3/2*q^236 + 1/2*(-3*a - 3)*q^237 + 1/4*(a - 2)*q^240 + 3*a*q^241 + 
        3*a*q^243 + 1/2*(-3*a - 6)*q^244 + 1/2*(a - 1)*q^247 - 1/2*q^249 - 
        9/2*a*q^250 + 3/2*q^251 + 1/4*(3*a - 3)*q^252 + 1/2*(3*a - 12)*q^262 - 
        3/2*q^266 - 3/2*q^269 + 1/4*(-a + 2)*q^270 + 1/4*(-a - 1)*q^273 - q^274 
        + (3*a - 3)*q^276 - 3/2*q^278 + 3*q^279 + (2*a + 1)*q^280 - 9/2*a*q^283 
        + 1/2*(6*a - 3)*q^285 + 1/4*(-a - 1)*q^288 + 1/2*(3*a - 3)*q^292 - 
        3/2*q^293 + q^294 + 1/2*a*q^295 + 1/2*(-3*a + 3)*q^297 + 1/2*(-a - 
        1)*q^298 + 1/2*(-3*a + 3)*q^299 + 3/2*q^300 + 1/4*(-a - 1)*q^303 + 
        1/2*(6*a + 3)*q^304 - 9/2*q^307 - q^310 + 1/4*(3*a - 3)*q^312 + 
        1/2*(-3*a - 3)*q^313 - 3/2*a*q^314 + 1/2*(-3*a - 3)*q^315 - a*q^316 - 
        q^319 + 3*a*q^321 + 1/2*(-a + 1)*q^322 - 1/2*q^324 + 1/2*(-3*a - 
        6)*q^325 + 1/2*(a - 1)*q^330 + 3/2*q^332 - 3/2*q^336 + 1/2*(-a + 
        1)*q^337 + 1/2*(-3*a - 6)*q^342 + 1/2*(a + 1)*q^343 + 1/4*(a - 1)*q^345 
        + 1/2*(-6*a + 3)*q^346 + 1/2*(-3*a - 3)*q^348 + 1/2*(6*a + 3)*q^349 - 
        a*q^351 + 1/2*(-a + 1)*q^352 + O(q^354),
    q^5 - q^13 + q^19 - a*q^20 + (a - 1)*q^21 + (a - 2)*q^26 - q^27 + (-a + 
        1)*q^35 + (-2*a + 1)*q^38 + (a + 1)*q^42 + q^45 + a*q^52 + a*q^54 + 
        a*q^59 + q^61 - 2*a*q^69 - a*q^70 + (-a - 1)*q^75 - a*q^76 - q^80 + (2*a
        - 1)*q^83 + (a + 1)*q^84 + (-a + 1)*q^90 - q^91 - q^101 + (2*a + 
        1)*q^104 + a*q^108 + (a - 1)*q^115 + (-a - 2)*q^117 + a*q^118 + q^122 + 
        (a + 1)*q^125 + (-a + 2)*q^131 - a*q^133 - 2*a*q^138 - a*q^139 + (-a - 
        1)*q^140 + (a - 1)*q^150 + (-a - 2)*q^152 + q^157 + a*q^166 + (-a + 
        1)*q^168 + (-a + 2)*q^171 + a*q^173 - a*q^180 + a*q^181 - q^182 + 
        a*q^189 + (a + 1)*q^195 - q^202 + q^208 + q^216 + (-a - 2)*q^227 + 
        a*q^229 + 2*a*q^230 - q^234 + q^236 + 2*q^237 + (a - 1)*q^243 - a*q^244 
        + a*q^245 + q^250 + q^251 - a*q^262 - q^266 + (-2*a - 1)*q^269 - 2*q^276
        - a*q^278 - q^280 + q^283 + (a - 1)*q^285 - a*q^293 + (a + 1)*q^299 + (a
        - 1)*q^300 - q^304 - a*q^307 - a*q^314 + a*q^320 - a*q^325 + (a + 
        2)*q^332 + (-a + 1)*q^336 - a*q^342 + q^346 - q^349 + O(q^354),
    q^6 + (-a - 1)*q^13 + (a + 1)*q^19 - q^21 - a*q^24 + (-a - 1)*q^26 + (a + 
        1)*q^35 + (a + 1)*q^38 + (a - 1)*q^42 + a*q^45 + (a - 1)*q^52 - q^54 + 
        (-a - 1)*q^59 + (a + 1)*q^61 + 2*q^69 + (-a + 1)*q^70 - a*q^75 + (-a + 
        1)*q^76 + (-a - 1)*q^83 + a*q^84 + q^90 + (-a - 1)*q^91 - q^96 + (-a + 
        1)*q^101 + (a - 1)*q^104 - 2*q^115 - 2*a*q^117 + (a - 1)*q^118 + (a + 
        1)*q^122 + (a - 1)*q^125 + (a + 1)*q^131 + (-a + 1)*q^133 + (-a + 
        1)*q^138 + (-a + 1)*q^139 + (-a + 1)*q^140 + (-a - 1)*q^150 + (-a + 
        1)*q^152 + (a + 1)*q^157 + (a - 1)*q^166 + (a + 1)*q^168 + (a + 1)*q^171
        + (a - 1)*q^173 + q^180 + (a - 1)*q^181 + (-a - 1)*q^182 - q^189 + (2*a 
        - 1)*q^195 + (-a - 1)*q^202 + (a + 1)*q^208 + (a - 1)*q^213 + a*q^216 + 
        (-a + 1)*q^227 + (a - 1)*q^229 - 2*q^230 + (-a - 1)*q^234 + (a - 
        1)*q^236 + (a + 1)*q^237 + (-a - 1)*q^243 + (-a + 1)*q^244 + (a + 
        1)*q^250 + (a - 1)*q^251 + (-a + 1)*q^262 + (-a + 1)*q^266 + (-a + 
        1)*q^269 - 2*a*q^276 + (-a + 1)*q^278 + (-a - 1)*q^280 + (a + 1)*q^283 +
        (-2*a - 1)*q^285 + (-a + 1)*q^293 + a*q^294 + 2*a*q^299 - q^300 + (-a - 
        1)*q^304 + (-a + 1)*q^307 + (a + 1)*q^314 + q^315 + (-a + 1)*q^325 + (a 
        - 1)*q^332 + q^336 + 2*q^342 + (a + 1)*q^346 + (-a - 1)*q^349 + 
        O(q^354),
    q^7 + (3*a - 3)*q^13 + (-3*a + 1)*q^19 + (a + 1)*q^21 + (-2*a - 2)*q^24 + (a
        - 1)*q^26 + (a + 1)*q^27 + a*q^28 + (-2*a + 2)*q^31 - 2*a*q^33 + (-a + 
        1)*q^35 + (-a + 1)*q^38 + (2*a - 2)*q^40 + (2*a + 3)*q^42 + (-a + 
        1)*q^45 + (-a - 1)*q^49 + (3*a + 3)*q^52 + (a - 1)*q^54 - 2*q^55 + (a - 
        1)*q^59 + (-a + 3)*q^61 + a*q^63 - 4*a*q^69 + (-3*a - 2)*q^70 + 2*a*q^73
        + (a - 1)*q^75 + (-a - 3)*q^76 + (a - 1)*q^83 + (-a + 1)*q^84 - 2*q^87 +
        (-a - 1)*q^90 + (a - 3)*q^91 + 2*q^97 + (-a - 1)*q^101 + 2*a*q^103 + (a 
        + 1)*q^104 + q^105 + (-a + 1)*q^108 - q^112 + 4*a*q^115 + (-a - 3)*q^117
        + (-a + 1)*q^118 + (-a + 1)*q^122 + (2*a + 2)*q^124 + (a + 1)*q^125 + 
        (-a + 1)*q^131 + 2*q^132 + (-a - 1)*q^133 - 2*q^138 + (-3*a - 1)*q^139 +
        (-a - 1)*q^140 + 2*a*q^145 + (3*a - 1)*q^150 + (-a - 1)*q^152 + (-a - 
        1)*q^154 + (-a + 1)*q^157 + (a + 3)*q^166 + (-a + 2)*q^168 + (-a + 
        1)*q^171 + (a + 1)*q^173 - a*q^175 + (-a - 1)*q^180 + (a + 3)*q^181 + (a
        - 1)*q^182 + 2*a*q^189 + (3*a + 3)*q^195 + (-a + 1)*q^196 + (a + 
        1)*q^202 + (-3*a + 3)*q^208 + 2*a*q^213 + (-a + 3)*q^216 - 2*q^217 - 
        2*a*q^220 - 2*a*q^223 + (-a - 1)*q^227 + (3*a + 1)*q^229 + 2*a*q^230 + 
        (a - 1)*q^231 + (3*a - 1)*q^234 + (a + 1)*q^236 - 2*a*q^237 + (2*a - 
        2)*q^241 + (2*a - 2)*q^243 + (-3*a - 1)*q^244 + (-3*a + 3)*q^250 + (a + 
        1)*q^251 - q^252 + (-3*a - 5)*q^262 + (-a - 1)*q^266 + (-a - 1)*q^269 - 
        4*q^276 + (-a - 1)*q^278 + (2*a + 2)*q^279 + (2*a - 1)*q^280 + (-3*a + 
        3)*q^283 + (a - 3)*q^285 - 2*q^292 + (-a - 1)*q^293 + (a + 1)*q^294 + 
        2*q^297 + 2*q^299 + (a + 1)*q^300 + (3*a - 1)*q^304 + (-3*a - 3)*q^307 -
        2*a*q^313 + (-a + 1)*q^314 - 2*a*q^315 + (2*a - 2)*q^321 + (-3*a - 
        1)*q^325 + (a + 1)*q^332 + (-a - 1)*q^336 + (-3*a - 1)*q^342 + a*q^343 +
        (-a + 3)*q^346 - 2*a*q^348 + (3*a - 1)*q^349 + O(q^354),
    q^8 + 1/2*(a + 1)*q^11 + 1/2*(-3*a - 3)*q^13 + 1/8*(-3*a - 3)*q^15 + 
        3/4*q^18 + 1/2*(a + 3)*q^19 + 1/4*(a - 3)*q^21 - 1/2*q^23 + (-a + 
        1)*q^24 + 1/2*q^25 + 1/2*(-a - 1)*q^26 + 1/2*(a - 1)*q^27 - q^28 + 
        1/2*(-a + 1)*q^29 + 1/8*(-3*a + 1)*q^30 + (a + 1)*q^31 + q^33 + 1/4*(3*a
        + 1)*q^35 + 1/2*(a + 1)*q^38 + 1/4*(-a + 1)*q^39 + (-a - 1)*q^40 + 
        1/2*(3*a - 2)*q^42 + 1/2*(a - 1)*q^44 + 1/2*(a + 1)*q^45 + 1/2*(a + 
        1)*q^46 + 1/2*(-a + 1)*q^49 + 1/4*(a - 1)*q^50 + 1/2*(3*a - 3)*q^52 + 
        1/2*(-a - 1)*q^54 - a*q^55 + 1/2*(-a - 1)*q^56 + 1/4*a*q^57 + 1/2*(-a - 
        1)*q^59 + 1/8*(3*a - 3)*q^60 + 1/2*(3*a + 1)*q^61 - 1/4*q^63 + 1/4*(-a -
        1)*q^65 + 2*q^69 + 1/2*(-2*a + 3)*q^70 + 1/2*(-a - 1)*q^71 + 1/4*a*q^72 
        - q^73 + 1/2*(-a - 1)*q^75 + 1/2*(-3*a + 1)*q^76 - 1/2*a*q^77 + 3/4*q^78
        + 1/2*(a - 1)*q^79 + 1/4*(a + 1)*q^81 + 1/2*(-a - 1)*q^83 + 1/4*(a + 
        3)*q^84 - a*q^87 + 1/2*(-a + 1)*q^90 + 1/2*(-3*a - 1)*q^91 + 1/2*a*q^92 
        - q^93 + 1/4*(a + 3)*q^95 + a*q^97 - 1/2*q^98 + 1/2*(a - 1)*q^99 - 
        1/2*a*q^100 + 1/2*(-a + 1)*q^101 - q^103 + 1/2*(a - 1)*q^104 + 1/8*(7*a 
        - 3)*q^105 - a*q^107 + 1/2*(a + 1)*q^108 + 1/4*(3*a - 3)*q^114 - 2*q^115
        + 1/2*(a + 1)*q^116 + 1/2*(-3*a + 1)*q^117 + 1/2*(a + 1)*q^118 + 1/8*(-a
        + 5)*q^120 + 1/2*(a + 1)*q^122 + (a - 1)*q^124 + 1/2*(a - 1)*q^125 + 
        1/4*(-3*a - 3)*q^126 - q^128 - 1/2*q^130 + 1/2*(a + 1)*q^131 + a*q^132 +
        1/2*(-a + 1)*q^133 + 1/8*(a - 3)*q^135 + 1/2*a*q^137 - a*q^138 + 1/2*(-a
        + 3)*q^139 + 1/4*(-3*a + 1)*q^140 - q^145 + 1/2*a*q^147 + 1/2*(a - 
        1)*q^149 + 1/2*(-a - 3)*q^150 + 1/2*(-a + 1)*q^152 + 1/2*(-a + 1)*q^154 
        + a*q^155 + 1/4*(-a - 1)*q^156 + 1/2*(a + 1)*q^157 - 1/2*q^158 + 1/2*(a 
        + 1)*q^161 + 1/2*(a + 1)*q^165 + 1/2*(3*a - 1)*q^166 + 1/2*(2*a + 
        1)*q^168 + 1/2*(a - 1)*q^169 + 1/2*(a + 1)*q^171 + 1/2*(a - 1)*q^173 + 
        1/2*q^175 + 1/2*(-a - 1)*q^176 - 3/4*a*q^177 + 1/2*(-a + 1)*q^179 + 
        1/2*(-a + 1)*q^180 + 1/2*(3*a - 1)*q^181 + 1/2*(-a - 1)*q^182 - 
        1/4*q^183 + 1/2*(-a + 1)*q^184 + 1/4*(-a - 3)*q^189 - 1/2*a*q^190 + 
        1/2*(a + 1)*q^191 + 1/2*(3*a - 3)*q^195 + 1/2*(a + 1)*q^196 + 1/4*(-3*a 
        + 1)*q^200 + 1/2*(a - 1)*q^202 - 1/2*q^203 + a*q^207 + 1/2*(3*a + 
        3)*q^208 + 1/8*(3*a - 1)*q^210 - q^213 + 1/2*(3*a + 1)*q^216 - a*q^217 +
        1/2*(-a + 1)*q^219 + q^220 + q^223 + 1/4*a*q^225 + 1/2*(-a + 1)*q^227 + 
        1/4*q^228 + 1/2*(a - 3)*q^229 - q^230 + 1/2*(-a - 1)*q^231 + 1/2*q^233 +
        1/2*(-a - 3)*q^234 + 1/2*(a - 1)*q^236 + q^237 + 1/2*(-a + 1)*q^239 + 
        1/8*(3*a + 3)*q^240 + (-a - 1)*q^241 - a*q^242 + (-a - 1)*q^243 + 
        1/2*(-a + 3)*q^244 + 1/2*q^245 + 1/4*(-3*a + 3)*q^249 + 1/2*(3*a + 
        3)*q^250 + 1/2*(a - 1)*q^251 - 3/4*a*q^252 + (-a + 1)*q^254 + 1/4*(a - 
        1)*q^260 + 1/2*(a + 1)*q^261 + 1/2*(-5*a + 3)*q^262 + 1/2*(-a + 1)*q^266
        + 1/2*(-a + 1)*q^269 + 1/8*(a + 1)*q^270 + 1/4*q^273 + 1/2*(-a + 
        1)*q^274 + 1/2*(-a + 1)*q^275 - 2*a*q^276 + 1/2*(-a + 1)*q^278 + (a - 
        1)*q^279 + 1/2*(-a - 2)*q^280 + 1/2*(-a - 1)*q^281 + 1/2*(3*a + 3)*q^283
        + 1/2*(a - 1)*q^284 + 1/2*(-3*a - 1)*q^285 - 3/4*q^288 + 1/2*(-a - 
        1)*q^291 - a*q^292 + 1/2*(-a + 1)*q^293 + 1/2*(a - 1)*q^294 + 1/2*q^295 
        + a*q^297 + a*q^299 + 1/2*(a - 1)*q^300 + a*q^302 + 3/4*q^303 + 1/2*(-a 
        - 3)*q^304 + 1/4*(-a + 1)*q^305 + 1/2*(-3*a + 3)*q^307 + 1/2*q^308 + 
        1/2*(-a + 1)*q^309 - 3/4*a*q^312 + q^313 + 1/2*(a + 1)*q^314 + 1/4*(-a +
        3)*q^315 + 1/2*(a + 1)*q^316 + a*q^317 + (-a - 1)*q^321 + 1/4*(-a + 
        1)*q^324 + 1/2*(-a + 3)*q^325 + 1/2*(a - 1)*q^332 + 1/4*(-a + 3)*q^336 +
        1/2*q^338 + 1/2*(-a + 3)*q^342 - 1/4*a*q^345 + 1/2*(3*a + 1)*q^346 + 
        q^348 + 1/2*(-a - 3)*q^349 + 1/4*(-a + 1)*q^350 + 1/2*(a + 1)*q^351 + 
        O(q^354),
    q^9 - 6*a*q^13 + 1/2*(-a - 1)*q^15 + (4*a + 2)*q^19 - 2*q^21 + 4*q^24 + (a +
        1)*q^25 - 2*a*q^26 - 2*q^27 + (-2*a - 2)*q^28 + 1/2*(a - 1)*q^30 + 
        4*a*q^31 + (2*a + 2)*q^33 + 2*a*q^35 - a*q^36 + 2*a*q^38 + q^39 - 
        4*a*q^40 + (a - 5)*q^42 + 2*a*q^45 + 2*a*q^46 + 2*q^49 - 6*q^52 - 
        2*a*q^54 + (-2*a + 2)*q^55 + (a - 1)*q^57 - 2*a*q^59 + 1/2*(a - 1)*q^60 
        + (4*a - 2)*q^61 + (-a - 1)*q^63 + (4*a + 4)*q^69 + (a + 5)*q^70 + (-2*a
        - 2)*q^73 - 2*a*q^75 + (-2*a + 4)*q^76 + (a + 1)*q^78 - 2*q^79 - 
        2*a*q^83 + 2*a*q^84 + (-2*a + 2)*q^87 + 2*q^90 + (-4*a + 2)*q^91 + (2*a 
        - 2)*q^97 + (-a + 1)*q^100 + 2*q^101 + (-2*a - 2)*q^103 - 2*q^104 + 
        1/2*(a - 3)*q^105 + 2*a*q^108 - q^114 + (-4*a - 4)*q^115 + (-2*a + 
        4)*q^117 + 2*a*q^118 + 1/2*(a + 1)*q^120 + 2*a*q^122 - 4*q^124 - 2*q^125
        - a*q^126 + (-a - 1)*q^130 + 2*a*q^131 + (2*a - 2)*q^132 + 2*q^133 + 
        1/2*(-a - 1)*q^135 + (-2*a + 2)*q^138 + (2*a + 4)*q^139 + 2*q^140 - 
        q^144 + (-2*a - 2)*q^145 + (-4*a - 2)*q^150 + 2*q^152 + 2*q^154 - 
        a*q^156 + 2*a*q^157 + (-a + 1)*q^162 + (2*a - 4)*q^166 + (3*a - 1)*q^168
        - 2*q^169 + 2*a*q^171 - 2*q^173 + (a + 1)*q^175 + 2*q^180 + (2*a - 
        4)*q^181 - 2*a*q^182 + 2*q^184 + (-2*a - 2)*q^189 + (-a + 1)*q^190 - 
        6*q^195 + 2*a*q^196 - 2*q^202 + (a - 1)*q^207 + 6*a*q^208 + 1/2*(a + 
        1)*q^210 + (-2*a - 2)*q^213 + (4*a - 2)*q^216 + (-2*a + 2)*q^217 + (2*a 
        + 2)*q^220 + (2*a + 2)*q^223 + 2*q^227 + (a + 1)*q^228 + (-2*a - 
        4)*q^229 + (-2*a - 2)*q^230 - 2*a*q^231 + (-4*a - 2)*q^234 - 2*q^236 + 
        (2*a + 2)*q^237 + 1/2*(a + 1)*q^240 - 4*a*q^241 - 4*a*q^243 + (2*a + 
        4)*q^244 + q^249 + 6*a*q^250 - 2*q^251 + (-a + 1)*q^252 + (-2*a + 
        8)*q^262 + 2*q^266 + 2*q^269 + 1/2*(a - 1)*q^270 + 2*q^274 + (-4*a + 
        4)*q^276 + 2*q^278 - 4*q^279 + (-3*a - 1)*q^280 + 6*a*q^283 + (-4*a + 
        2)*q^285 + (-2*a + 2)*q^292 + 2*q^293 - 2*q^294 + (a + 1)*q^295 + (2*a -
        2)*q^297 + (2*a - 2)*q^299 - 2*q^300 + (-4*a - 2)*q^304 + 6*q^307 + (-a 
        + 1)*q^312 + (2*a + 2)*q^313 + 2*a*q^314 + (2*a + 2)*q^315 + 2*a*q^316 -
        4*a*q^321 + (2*a + 4)*q^325 - 2*q^332 + 2*q^336 + (2*a + 4)*q^342 - 
        a*q^345 + (4*a - 2)*q^346 + (2*a + 2)*q^348 + (-4*a - 2)*q^349 + a*q^351
        + O(q^354),
    q^10 + (-2*a - 1)*q^13 + (a + 2)*q^19 + (a - 1)*q^21 - q^26 - q^27 + q^35 + 
        q^38 - a*q^40 + (a - 1)*q^42 + (a + 1)*q^45 + (a - 2)*q^52 - q^54 - q^59
        + a*q^61 + 2*q^69 + (-a + 1)*q^70 + (-a - 1)*q^75 + (-2*a + 1)*q^76 - 
        q^83 + (a + 1)*q^84 + q^90 - a*q^91 - a*q^101 + a*q^104 + a*q^108 - 
        2*q^115 - a*q^117 + a*q^118 + q^122 + a*q^125 + q^131 - a*q^133 - 
        2*a*q^138 + q^139 - a*q^140 + (-a - 1)*q^150 - a*q^152 + q^157 - q^160 +
        (2*a - 1)*q^166 + (a + 1)*q^168 + q^171 + a*q^173 + (-a + 1)*q^180 + 
        (2*a - 1)*q^181 - q^182 - q^189 + (a - 1)*q^195 - q^202 + (2*a + 
        1)*q^208 + a*q^216 - a*q^227 - q^229 + (a - 1)*q^230 + (-a - 2)*q^234 + 
        a*q^236 + 2*q^237 + (-a - 1)*q^243 + q^244 + (a + 1)*q^250 + a*q^251 + 
        (-a + 2)*q^262 - a*q^266 - a*q^269 - 2*a*q^276 - a*q^278 + (-a - 
        1)*q^280 + (2*a + 1)*q^283 + (-a - 1)*q^285 - a*q^293 + (a + 1)*q^299 + 
        (a - 1)*q^300 + (-a - 2)*q^304 + (-a + 2)*q^307 + q^314 + q^315 + q^325 
        + a*q^332 + (-a + 1)*q^336 + (-a + 2)*q^342 + a*q^346 + (-a - 2)*q^349 +
        O(q^354),
    q^12 - 1/2*a*q^13 + 1/8*(-a + 1)*q^15 + 1/4*a*q^18 + 1/2*a*q^19 - a*q^20 + 
        1/4*(a - 5)*q^21 - 1/2*a*q^23 - 3/2*q^26 - 1/2*a*q^27 + 1/8*(-a + 
        1)*q^30 + 1/4*(a + 5)*q^35 + 1/2*(-a + 2)*q^38 + 1/4*(-a - 1)*q^39 + 
        1/2*a*q^42 + 1/2*q^45 + 1/4*(a - 1)*q^50 - 1/2*q^52 + 1/2*a*q^54 + 
        1/2*(-a + 1)*q^56 + 1/4*q^57 + 1/2*a*q^59 + 1/8*(-a - 1)*q^60 + 
        1/2*a*q^61 - q^62 + 1/4*a*q^63 + 1/4*(a + 1)*q^65 + 1/2*(a - 1)*q^66 + 
        1/2*(-a + 1)*q^69 + 1/2*q^70 + 1/4*q^72 + 1/2*(-2*a - 1)*q^75 + 1/2*q^76
        + 1/2*q^77 + 1/4*a*q^78 + 1/4*(a - 1)*q^81 + 1/2*(a - 2)*q^83 + 1/4*(3*a
        - 1)*q^84 + 1/2*q^90 - 1/2*a*q^91 - 1/2*q^92 + 1/4*(a - 1)*q^95 + 
        1/2*a*q^98 - 1/2*q^101 + 3/2*a*q^104 + 1/8*(-a - 1)*q^105 + 1/2*(2*a - 
        1)*q^108 + 1/2*(a + 1)*q^110 + 1/4*(-a - 1)*q^114 + 1/2*(-a - 1)*q^115 +
        1/2*(-2*a - 1)*q^117 - 1/2*q^118 + 1/8*(-a - 1)*q^120 + 1/2*(a + 
        2)*q^122 + 3/2*a*q^125 + 1/4*(-a + 1)*q^126 + 1/2*(-a + 4)*q^131 + 
        1/2*q^133 + 1/8*(-a + 1)*q^135 - 1/2*q^137 + (-a + 1)*q^138 + 1/2*q^139 
        + 1/4*(-3*a - 1)*q^140 + 1/2*(-a + 1)*q^146 - 1/2*q^147 - 1/2*q^150 + 
        1/2*(-2*a - 1)*q^152 + 1/4*(a - 1)*q^156 + 1/2*a*q^157 - 1/2*a*q^158 - 
        1/2*q^166 + 1/2*q^168 + 1/2*(a + 2)*q^171 + 1/2*(2*a - 1)*q^173 + 1/2*(a
        + 1)*q^174 + 1/4*q^177 + 1/2*(-a + 2)*q^180 - 1/2*q^181 + 1/2*(-a - 
        2)*q^182 + 1/4*a*q^183 + 1/4*(-a - 3)*q^189 - q^192 + 1/2*(-a - 1)*q^194
        + 1/2*a*q^195 + 1/4*(a + 1)*q^200 - 1/2*a*q^202 - 1/2*a*q^203 + 1/2*(-a 
        + 1)*q^206 + 1/2*a*q^208 + 1/8*(-3*a - 1)*q^210 + 1/2*q^216 - 1/4*q^225 
        + 1/2*(-2*a - 3)*q^227 - 1/4*a*q^228 - 1/2*q^229 + (a - 1)*q^230 + 
        1/2*a*q^233 + 1/2*(-2*a - 1)*q^234 + 1/2*(2*a - 1)*q^236 + (a + 1)*q^237
        + 1/2*(a + 1)*q^239 + 1/8*(a - 1)*q^240 + 1/2*(a - 1)*q^243 + 1/2*q^244 
        + 1/2*a*q^245 - a*q^248 + 1/4*(a + 1)*q^249 + 1/2*a*q^250 + 1/2*(2*a - 
        1)*q^251 + 1/4*q^252 + 1/4*(-a + 1)*q^260 + 1/2*q^262 + 1/2*(-a - 
        1)*q^264 - 1/2*a*q^266 + 1/2*(-2*a + 1)*q^269 + 1/8*(-a + 1)*q^270 - 
        1/4*a*q^273 + 1/2*(-a - 1)*q^276 + 1/2*(-2*a + 1)*q^278 - 1/2*a*q^280 + 
        1/2*(-a + 1)*q^281 + 1/2*a*q^283 - 1/2*q^285 - 1/4*a*q^288 + 1/2*(-a + 
        1)*q^290 + 1/2*(-4*a + 1)*q^293 + 1/2*(3*a + 1)*q^299 + 1/2*(-a - 
        2)*q^300 + 1/4*a*q^303 - 1/2*a*q^304 + 1/4*(-a + 1)*q^305 + 1/2*q^307 + 
        1/2*a*q^308 + 1/4*q^312 + 1/2*q^314 + 1/4*(3*a - 1)*q^315 + a*q^320 + 
        1/4*(a + 1)*q^324 + 1/2*q^325 + 1/2*(2*a + 1)*q^332 + 1/4*(-a + 5)*q^336
        - 1/2*a*q^338 + (-a + 1)*q^341 + 1/2*q^342 - 1/4*q^345 + 1/2*a*q^346 - 
        1/2*a*q^349 + 1/4*(a - 1)*q^350 + O(q^354),
    q^14 - 1/2*a*q^15 + 1/2*(a + 1)*q^18 + (-a - 1)*q^23 - 1/2*a*q^30 - q^39 + 
        a*q^50 - a*q^56 + 1/2*(-a + 1)*q^57 - 1/2*q^60 + 1/2*(a + 1)*q^63 + q^65
        + 1/2*(-a + 1)*q^72 + 1/2*(a + 1)*q^78 + a*q^81 + (a - 1)*q^92 + a*q^95 
        - 1/2*q^105 - q^114 - 1/2*q^120 - 1/2*a*q^135 + (a - 1)*q^137 + a*q^156 
        + (-a - 1)*q^158 + 1/2*(-a + 1)*q^177 + 1/2*(a + 1)*q^183 + q^200 - 
        1/2*a*q^210 - q^224 + 1/2*(a - 1)*q^225 + 1/2*(-a - 1)*q^228 + (a + 
        1)*q^233 + 2*q^239 + 1/2*a*q^240 + q^249 + 1/2*(-a + 1)*q^252 - a*q^260 
        - 1/2*a*q^270 + 1/2*(-a - 1)*q^273 - 2*a*q^281 + 1/2*(-a - 1)*q^288 + 
        1/2*(a + 1)*q^303 - a*q^305 + 1/2*(-a + 1)*q^312 + q^324 + (-a - 
        1)*q^338 + 1/2*(a - 1)*q^345 + O(q^354)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.4 + 3*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^11 - q^15 - q^21 + q^25 - q^29 + q^35 + q^39 + q^49 + q^51 - q^65 + 
        2*q^71 - q^79 - q^81 - q^85 - q^91 - q^109 - q^119 + q^135 + q^141 + 
        2*q^149 - q^151 + q^165 + 2*q^179 + q^189 - q^191 - q^211 - 2*q^219 + 
        q^221 + q^231 - q^235 - q^239 - 2*q^249 - q^275 - q^281 + q^291 + q^309 
        + q^319 - q^329 + 2*q^331 - q^351 + O(q^354),
    q^2 - q^22 - q^30 - q^42 + q^50 - q^58 + q^70 + q^78 + q^98 + q^102 - q^130 
        + 2*q^142 - q^158 - q^162 - q^170 - q^182 - q^218 - q^238 + q^270 + 
        q^282 + 2*q^298 - q^302 + q^330 + O(q^354),
    q^3 - q^33 - q^45 - q^63 + q^75 - q^87 + q^105 + q^117 + q^147 + q^153 - 
        q^195 + 2*q^213 - q^237 - q^243 - q^255 - q^273 - q^327 + O(q^354),
    q^5 + q^7 - q^13 - q^17 + q^27 - q^45 - q^47 - q^55 - q^63 + 2*q^73 - q^77 +
        2*q^83 - q^97 - q^103 + q^117 + q^125 + q^143 - q^145 + q^153 + 2*q^157 
        - q^167 - q^173 + q^175 + q^187 - q^203 - q^223 - q^227 - q^243 + q^245 
        + 2*q^257 - q^283 - q^293 - q^297 - q^307 - q^313 - q^325 + q^343 - 
        q^353 + O(q^354),
    q^6 - q^66 - q^90 - q^126 + q^150 - q^174 + q^210 + q^234 + q^294 + q^306 + 
        O(q^354),
    q^9 - q^15 - q^21 + q^39 + q^51 - q^81 - q^99 + q^141 + q^165 - 2*q^219 + 
        q^225 + q^231 - 2*q^249 - q^261 + q^291 + q^309 + q^315 + O(q^354),
    q^10 + q^14 - q^26 - q^34 + q^54 - q^90 - q^94 - q^110 - q^126 + 2*q^146 - 
        q^154 + 2*q^166 - q^194 - q^206 + q^234 + q^250 + q^286 - q^290 + q^306 
        + 2*q^314 - q^334 - q^346 + q^350 + O(q^354),
    q^18 - q^30 - q^42 + q^78 + q^102 - q^162 - q^198 + q^282 + q^330 + O(q^354)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.4 + 3*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 + q^14 + q^16 - q^18 - q^30 + q^39 - q^49 - q^50 - q^56 - q^57 + 
        q^63 - q^64 + q^65 + q^72 + q^78 - q^81 - q^95 + q^105 + q^114 + q^120 +
        q^121 + q^130 - q^135 - 2*q^151 - q^156 - q^169 + q^175 + q^177 - q^183 
        + q^190 + q^196 + q^200 + q^224 - q^225 - 2*q^226 + q^228 + 2*q^239 + 
        q^249 - q^252 + q^256 - q^260 - q^273 - 2*q^281 - q^288 - q^289 + q^295 
        - q^303 - q^305 - q^312 + q^324 + q^351 + O(q^354),
    q^2 - q^7 - q^8 + q^18 + q^25 + q^28 + q^32 - q^63 - q^65 - q^72 - q^95 - 
        q^98 - q^100 - q^112 + 2*q^113 - q^128 + q^130 + q^135 - q^162 - q^190 -
        2*q^193 + q^225 + q^242 + 2*q^247 + q^252 + q^260 + 2*q^263 - q^270 + 
        q^288 + q^295 - 2*q^302 - q^305 + 2*q^337 - q^338 + q^343 + q^350 + 
        O(q^354),
    q^3 - q^12 - q^27 + q^42 - q^45 + q^48 - q^90 + q^108 + 2*q^117 - q^147 - 
        q^150 - q^168 + q^180 - q^192 + q^195 - q^243 - q^285 + q^315 + 2*q^342 
        + O(q^354),
    q^5 - q^13 - q^19 - q^20 + q^26 + q^27 - q^38 + q^45 + q^52 - q^54 + q^59 - 
        q^61 + q^70 + q^76 + q^80 - q^83 - q^91 - q^101 - q^104 - q^108 - q^117 
        + q^118 - q^122 + q^131 + q^133 + q^139 + q^152 - q^157 + q^166 - q^171 
        + q^173 - q^180 + q^181 - q^182 + q^189 - q^202 - q^208 + q^216 + q^227 
        + q^229 + q^234 - q^236 + q^244 - q^245 - q^250 - q^251 + q^262 - q^266 
        - q^269 + q^278 - q^280 - q^283 + q^293 - q^304 + q^307 + q^314 - q^320 
        + q^325 + q^332 - q^342 - q^346 - q^349 + O(q^354),
    q^6 - q^21 - q^24 + q^45 - q^54 + q^75 + q^84 - q^90 + q^96 - 2*q^171 - 
        q^180 + q^189 - q^195 + q^216 + 2*q^234 - q^285 - q^294 - q^300 + q^315 
        - q^336 + 2*q^339 + O(q^354),
    q^9 + q^18 + q^30 - q^36 - q^39 + q^57 - q^63 - q^72 - q^78 - q^105 - q^114 
        - q^120 + q^126 + q^144 + q^156 - q^177 + q^183 + q^225 - q^228 - q^249 
        + q^252 - q^270 + q^273 + q^288 + q^303 + q^312 + q^351 + O(q^354),
    q^10 - q^13 + q^19 - q^26 + q^27 - q^35 - q^38 - q^40 + q^52 + q^54 - q^59 +
        q^61 - q^76 - q^83 + q^90 + q^91 + q^101 + q^104 - q^108 - q^117 + q^118
        - q^122 + q^125 - q^131 + q^133 - q^139 + q^140 + q^152 - q^157 + q^160 
        - q^166 + q^171 + q^173 - q^181 - q^182 - q^189 - q^202 - q^208 - q^216 
        + q^227 - q^229 - q^234 + q^236 - q^244 + q^251 + q^262 + q^266 + q^269 
        + q^278 - q^283 + q^293 + q^304 + q^307 - q^314 - q^315 - q^325 + q^332 
        - q^342 + q^346 + q^349 + O(q^354),
    q^15 - 2*q^18 - q^30 - 2*q^57 - q^60 + 2*q^63 + 2*q^72 + 2*q^78 + q^105 + 
        q^120 - q^135 + 2*q^177 - 2*q^183 + q^210 - 2*q^225 + 2*q^228 + q^240 - 
        2*q^252 + q^270 - 2*q^273 - 2*q^288 - 2*q^303 - 2*q^312 + O(q^354)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + 2*H.4 + 3*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^9 - q^21 + q^25 - q^49 + q^81 + 2*q^109 - q^121 - q^169 + q^189 - 
        2*q^205 - q^225 + q^289 + 2*q^309 + 2*q^345 + O(q^354),
    q^2 - q^8 - q^18 + q^32 - q^42 + q^50 + q^60 + q^72 - 2*q^92 - q^98 - q^128 
        + q^140 + q^162 + q^168 - q^200 + 2*q^218 - q^240 - q^242 - q^288 - 
        q^338 + O(q^354),
    q^3 + q^7 - q^27 - q^63 + q^75 - 2*q^103 - 2*q^115 - q^147 + q^175 + 2*q^223
        + q^243 + 2*q^283 + 2*q^307 + 2*q^327 - q^343 + O(q^354),
    q^4 - q^16 - q^30 - q^36 + 2*q^46 + q^64 - q^70 - q^84 + q^100 + q^120 + 
        q^144 - 2*q^184 - q^196 - 2*q^214 + 2*q^246 - q^256 + q^270 + q^280 + 
        q^324 + q^336 + O(q^354),
    q^5 - 2*q^41 - q^45 + 2*q^69 - 2*q^89 + 2*q^101 - q^105 + q^125 + 2*q^161 - 
        q^245 - 2*q^269 - 2*q^321 + O(q^354),
    q^6 + q^14 - q^20 - q^24 - q^54 - q^56 + q^80 + q^96 - q^126 + q^150 + 
        2*q^164 + q^180 - 2*q^206 + q^216 + q^224 - 2*q^230 - 2*q^276 - q^294 - 
        q^320 + q^350 + O(q^354),
    q^10 + q^12 + q^28 - q^40 - q^48 - 2*q^82 - q^90 - q^108 - q^112 + 2*q^138 +
        q^160 - 2*q^178 + q^192 + 2*q^202 - q^210 + q^250 - q^252 + q^300 + 
        2*q^322 + 2*q^328 + O(q^354),
    q^15 - 2*q^23 + q^35 + 2*q^107 - 2*q^123 - q^135 + 2*q^207 + 2*q^263 - 
        2*q^267 - 2*q^287 + 2*q^303 - q^315 - 2*q^347 + O(q^354)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
840
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + 2*H.4 + 3*H.5
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
354
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
841
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
812
);
qprec:=
117
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
841
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
116
);
qprec:=
117
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
841
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
29*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
117
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
841
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
203*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
117
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
842
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
420
);
qprec:=
209
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
842
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
140
);
qprec:=
209
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
842
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
84
);
qprec:=
209
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
842
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
209
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
842
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
209
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
842
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
209
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
842
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
35*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
209
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
842
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
105*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
209
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
843
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
843
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
280
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
843
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
140
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
843
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
843
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
56
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
843
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
843
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
843
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
843
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
843
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 20*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
843
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 28*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
843
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
35*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
843
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 40*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
843
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 56*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
843
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 70*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 + (-a - 1)*q^6 + a*q^7 - a*q^9 - q^16 + (-a - 1)*q^22 - q^25 - 
        a*q^28 + a*q^31 - a*q^33 + a*q^36 + (-a + 1)*q^42 + q^43 + (a + 1)*q^46 
        + (a - 1)*q^54 + q^63 + q^64 + (a + 1)*q^67 + a*q^69 + (a + 1)*q^73 - 
        q^79 - q^81 + (-a + 1)*q^82 + (-a + 1)*q^94 + (a + 1)*q^96 + (-a - 
        1)*q^97 + q^100 + (a + 1)*q^103 + 2*a*q^106 - q^109 - a*q^112 - 2*q^118 
        + q^123 - a*q^124 + a*q^132 + (-a - 1)*q^139 + q^141 + a*q^144 + (a + 
        1)*q^150 + (-a + 1)*q^154 + a*q^157 + (a - 1)*q^159 + q^163 + (a - 
        1)*q^166 - a*q^169 - q^172 - a*q^175 + (-a - 1)*q^177 + q^181 + 
        O(q^186),
    q^2 + 1/2*(a + 1)*q^3 + 1/2*(a + 1)*q^11 + 1/2*(-a - 1)*q^12 + a*q^14 - 
        a*q^18 + 1/2*(a - 1)*q^21 + 1/2*(-a - 1)*q^23 + 1/2*(-a + 1)*q^27 - q^32
        + 1/2*(a - 1)*q^41 + 1/2*(-a - 1)*q^44 + 1/2*(a - 1)*q^47 + 1/2*(-a - 
        1)*q^48 - q^50 - a*q^53 + q^59 + a*q^62 - a*q^66 + 1/2*(-a - 1)*q^75 + 
        1/2*(a - 1)*q^77 + 1/2*(-a + 1)*q^83 + 1/2*(-a + 1)*q^84 + q^86 + 1/2*(a
        + 1)*q^92 + 1/2*(a - 1)*q^93 + 1/2*(-a + 1)*q^99 + q^101 + 1/2*(a - 
        1)*q^108 + 1/2*(a - 1)*q^113 + q^126 + 1/2*(a + 1)*q^129 + (a + 1)*q^134
        - a*q^137 + a*q^138 + (a + 1)*q^146 - a*q^149 - q^158 + 1/2*(-a + 
        1)*q^161 - q^162 + 1/2*(-a + 1)*q^164 + a*q^167 + 1/2*(-a + 1)*q^173 + 
        1/2*(-a - 1)*q^176 + 1/2*(a - 1)*q^179 + O(q^186)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
843
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 140*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 - q^7 + q^9 + q^16 + q^25 - q^28 - q^31 - q^33 + q^36 - q^43 - q^63 
        + q^64 - q^69 - q^79 + q^81 + q^100 - q^109 - q^112 - q^123 - q^124 - 
        q^132 - q^141 + q^144 - q^157 - q^163 + q^169 - q^172 - q^175 - q^181 + 
        O(q^186),
    q^3 - q^11 + q^12 - q^21 - q^23 + q^27 - q^41 - q^44 - q^47 + q^48 + 2*q^71 
        + q^75 + q^77 - q^83 - q^84 + 2*q^89 - q^92 - q^93 - q^99 + 2*q^107 + 
        q^108 - q^113 - q^129 + 2*q^131 + q^161 - q^164 - q^173 - q^176 - q^179 
        + O(q^186)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
844
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
844
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
210
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
844
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
210
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
844
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
844
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
844
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
844
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
844
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
844
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
844
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
844
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
844
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 30*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
844
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
35*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
844
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 42*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
844
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 70*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
844
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
105*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
208
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - q^53 - q^55 - q^59 - q^65 - q^73 + q^81 - q^83 - 
        q^95 - q^109 + q^121 - q^125 - q^143 - q^163 + q^169 - q^185 + O(q^208),
    q^5 - q^13 - q^19 + q^43 + q^45 - q^47 + q^55 - q^65 + q^71 - q^95 + q^107 -
        q^113 - q^117 - q^121 + q^125 + q^139 - q^151 + q^169 - q^171 - q^179 + 
        q^185 + q^193 + q^199 + O(q^208),
    q^11 - q^13 - q^19 + q^25 + q^37 - q^47 - q^65 + q^79 - q^95 + q^99 + q^101 
        + q^103 - q^113 - q^117 - q^121 + q^137 + q^143 - q^151 - q^171 + q^173 
        - q^179 + O(q^208)
]
;
Bo:=
[
    q - q^5 + q^9 - q^11 - q^13 - q^19 - q^37 - q^43 - q^45 - q^47 + q^49 + 
        2*q^53 + q^55 + 2*q^59 + q^65 - q^71 + 2*q^73 - q^79 + q^81 + 2*q^83 + 
        q^95 - q^99 - q^101 - q^103 - q^107 + 2*q^109 - q^113 - q^117 + q^125 - 
        q^137 - q^139 + q^143 - q^151 + 2*q^163 - q^171 - q^173 - q^179 + q^185 
        - q^193 - q^199 + O(q^208),
    q^2 + q^8 - q^10 + q^18 - q^22 - q^26 + q^32 - q^38 - q^40 + q^72 - q^74 - 
        q^86 - q^88 - q^90 - q^94 + q^98 - q^104 + 2*q^106 + q^110 + 2*q^118 + 
        q^128 + q^130 - q^142 + 2*q^146 - q^152 - q^158 - q^160 + q^162 + 
        2*q^166 + q^190 - q^198 - q^202 - q^206 + O(q^208),
    q^4 + q^16 - q^20 + q^36 - q^44 - q^52 + q^64 - q^76 - q^80 + q^144 - q^148 
        - q^172 - q^176 - q^180 - q^188 + q^196 + O(q^208)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
845
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
845
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
156
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
845
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
156
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
845
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
156
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
845
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
845
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
845
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
156
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
845
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
845
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
845
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
845
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 13*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
845
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 26*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
845
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
39*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
845
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 39*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
845
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 52*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
845
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 78*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
846
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
846
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
846
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
846
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
846
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
846
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
846
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
23*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^25 - q^28 - q^34 - q^37 - q^79 - q^103 + q^106 + q^118 + q^121 + q^136
        - q^142 + q^148 + q^169 + q^178 + q^196 - q^202 - q^241 - q^244 - q^256 
        - q^259 + q^262 - q^271 + O(q^274),
    q^2 + q^50 - q^56 - q^68 - q^74 - q^158 - q^206 + q^212 + q^236 + q^242 + 
        q^272 + O(q^274),
    q^3 - q^24 + q^42 - q^51 - q^63 + q^72 + q^75 - q^84 + q^96 - q^102 - q^108 
        - q^111 + q^141 - q^144 + q^153 + q^162 + q^204 - q^213 + q^216 - q^222 
        - q^237 - q^243 + 2*q^249 + q^252 + O(q^274),
    q^4 - q^28 - q^34 + q^100 + q^106 - q^112 + q^118 - q^142 + q^178 + q^196 - 
        q^202 - q^244 - q^256 + q^262 + O(q^274),
    q^6 - q^48 - q^54 + q^84 - q^102 + q^150 + q^162 - q^168 + q^192 - q^204 - 
        q^222 + O(q^274),
    q^7 - q^34 - q^37 - q^49 + q^61 + q^64 - q^79 + q^94 + q^97 - q^103 - q^112 
        + q^136 - q^142 + q^157 + 2*q^166 + q^175 - q^202 - q^238 - q^241 - 
        q^256 - q^271 + O(q^274),
    q^8 + q^32 + q^47 - q^53 - 2*q^56 - q^59 + 2*q^83 - q^89 - q^119 - q^128 - 
        q^131 - q^173 - q^188 + 2*q^191 + 2*q^197 + q^200 + q^212 - q^224 + 
        q^236 - q^263 + 2*q^269 - q^272 + O(q^274),
    q^9 - q^54 - q^63 + q^126 - q^144 + q^162 - q^189 + q^216 + q^225 - q^243 + 
        O(q^274),
    q^12 - q^24 + q^42 - q^84 - q^102 - q^108 + q^162 + q^168 + q^216 - q^222 + 
        O(q^274),
    q^14 + q^32 + q^47 - q^53 - q^56 - q^59 - q^74 + 2*q^83 - q^89 - q^98 - 
        q^119 + q^122 - q^131 - q^158 - q^173 + 2*q^191 + q^194 + 2*q^197 - 
        q^206 - q^224 - q^263 + 2*q^269 + O(q^274),
    q^16 - q^28 + q^34 - q^64 - q^94 - q^136 + q^142 + q^148 - 2*q^166 + q^196 +
        q^202 + q^238 - q^244 + O(q^274),
    q^17 - q^32 - q^47 + q^56 - q^68 + q^71 - 2*q^83 + q^101 + q^119 + q^128 + 
        q^149 + q^188 - 2*q^191 - 2*q^197 + q^239 + q^251 - 2*q^269 + q^272 + 
        O(q^274),
    q^18 - q^54 - q^108 - q^144 + q^162 + q^216 + q^252 + O(q^274),
    q^21 - q^24 + q^48 - q^51 + q^81 - q^84 - q^111 - q^147 + q^159 + q^168 + 
        q^177 + q^183 - q^189 + q^204 - q^213 + q^216 - q^237 - q^243 + q^267 + 
        O(q^274),
    q^27 - q^63 + q^72 - q^81 - q^108 - q^144 + q^153 + q^252 + O(q^274),
    q^36 - q^54 - q^72 + q^126 + q^162 - q^252 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
846
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 23*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^14 - a*q^18 + q^24 - a*q^25 + (a - 1)*q^32 - a*q^47 + (a - 1)*q^49 + 
        (a - 1)*q^51 + q^63 - a*q^68 + a*q^83 + (a - 1)*q^84 + (a - 1)*q^102 + 
        (a - 1)*q^106 - a*q^111 - a*q^112 + (a - 1)*q^118 + (a - 1)*q^121 - 
        a*q^122 - a*q^136 - a*q^147 + q^148 - a*q^169 + q^178 + (a - 1)*q^189 + 
        a*q^191 + (a - 1)*q^194 + q^196 - q^197 - a*q^213 + q^222 + q^237 + 
        q^238 + q^243 - a*q^252 - a*q^262 + 2*q^269 + O(q^274),
    q^2 + (-a + 2)*q^14 + a*q^17 - q^18 + (-a + 1)*q^21 + (a - 1)*q^24 - a*q^28 
        - a*q^32 + (-a + 1)*q^34 - q^37 + (a - 2)*q^42 - q^49 - a*q^50 + q^54 + 
        (-2*a + 1)*q^56 + a*q^63 + (2*a - 2)*q^64 - q^71 + (a - 1)*q^72 + a*q^74
        + (-a + 1)*q^79 + (-a + 1)*q^81 + q^84 - a*q^94 - a*q^96 + (2*a - 
        1)*q^98 + a*q^101 + (2*a - 1)*q^102 + (-a + 1)*q^103 + (2*a - 1)*q^106 -
        a*q^108 + (a - 1)*q^112 + (a + 1)*q^118 - q^119 + (a - 2)*q^122 + (-a + 
        2)*q^126 + q^128 + (-a + 1)*q^136 + a*q^142 + q^144 + a*q^149 - q^158 + 
        a*q^159 - q^162 + a*q^166 + (2*a - 1)*q^168 + (-a + 1)*q^177 + (-2*a + 
        1)*q^178 + a*q^183 + (a - 1)*q^192 + (-a + 1)*q^202 - q^206 + q^212 + 
        (-a + 1)*q^216 + (-2*a + 1)*q^222 + (-a + 1)*q^224 - a*q^236 + 2*q^238 -
        q^239 - q^241 + (a - 1)*q^242 + q^244 + (-a + 1)*q^251 - a*q^256 + 
        a*q^259 + (-a - 1)*q^262 - q^267 + (-a + 1)*q^271 + (2*a - 2)*q^272 + 
        O(q^274),
    q^3 + (-a - 1)*q^14 + (-2*a + 1)*q^17 + a*q^18 - q^21 + (2*a - 1)*q^37 + 
        q^42 + a*q^48 + (a + 1)*q^49 - a*q^54 + (a - 2)*q^56 + (-a + 1)*q^63 + 
        (2*a - 1)*q^71 + q^72 - a*q^75 + (a - 2)*q^79 - q^81 + (a - 1)*q^96 + 
        (-a + 2)*q^101 + (-a + 1)*q^102 + (-a - 1)*q^103 + (-a + 2)*q^106 + 
        (-2*a + 1)*q^118 + (a + 1)*q^122 - a*q^141 + (a - 1)*q^147 + (a - 
        1)*q^153 + (-a + 1)*q^159 + (-a + 1)*q^168 - q^177 + (a - 2)*q^178 + (-a
        + 1)*q^183 + q^189 - q^216 - q^222 + (-a - 1)*q^238 + (a + 1)*q^239 + 
        a*q^249 + (-a + 2)*q^259 + (2*a - 1)*q^262 + a*q^267 + (-a + 2)*q^272 + 
        O(q^274),
    q^4 - a*q^14 + q^17 + (a - 1)*q^18 - a*q^21 + (a - 1)*q^37 + (a - 1)*q^48 + 
        (a - 1)*q^49 - a*q^56 + q^63 + (a - 1)*q^71 - a*q^79 - a*q^81 - a*q^100 
        + q^101 + q^102 - a*q^103 + q^106 + q^118 + (a - 1)*q^119 + (a - 
        1)*q^122 + (a - 1)*q^128 + q^149 + q^159 + q^168 - a*q^177 - a*q^178 + 
        q^183 - a*q^188 + q^194 + (a - 1)*q^196 + (a - 1)*q^204 - a*q^216 - 
        a*q^222 - a*q^238 + (a - 1)*q^239 + (a - 1)*q^241 - a*q^251 + q^252 + 
        q^259 + (a - 1)*q^262 + (a - 1)*q^267 - a*q^271 + q^272 + O(q^274),
    q^6 + (-a + 2)*q^14 - q^18 + (-a - 1)*q^28 + (-2*a + 1)*q^34 + a*q^36 + (a -
        2)*q^42 - q^48 + q^54 + (-2*a + 1)*q^56 + (a - 1)*q^72 + (2*a - 1)*q^74 
        + q^84 + (a + 1)*q^98 + a*q^102 + (2*a - 1)*q^106 - a*q^108 + (a - 
        2)*q^112 + (a + 1)*q^118 + (a - 2)*q^122 + (-a + 1)*q^126 + (2*a - 
        1)*q^142 + q^144 - a*q^150 + (a - 2)*q^158 - q^162 + a*q^168 + (-2*a + 
        1)*q^178 + (a - 1)*q^192 + (-a + 2)*q^202 + (-a + 1)*q^204 + (-a - 
        1)*q^206 + (-a + 2)*q^212 + (-a + 1)*q^216 + (-a + 1)*q^222 + (-2*a + 
        1)*q^236 + (-a + 2)*q^238 + (a + 1)*q^244 + (-a - 1)*q^262 + (2*a - 
        1)*q^272 + O(q^274),
    q^7 + (a + 1)*q^14 + (a - 1)*q^17 - a*q^18 + a*q^21 - q^24 + q^27 + (-2*a + 
        1)*q^28 + (-a + 1)*q^32 + q^34 + (a - 1)*q^36 - a*q^37 + (-a - 1)*q^42 -
        a*q^48 - a*q^49 + (a - 1)*q^53 + a*q^54 + (-a + 2)*q^56 + q^59 + (a - 
        1)*q^61 + (a - 1)*q^63 - q^64 - a*q^71 - q^72 + (a - 1)*q^74 + q^79 + 
        q^81 + a*q^84 - a*q^89 + (-a + 1)*q^96 - a*q^97 + (a - 1)*q^98 + (a - 
        1)*q^101 + (a - 1)*q^102 + q^103 + (a - 2)*q^106 + (-a + 1)*q^108 - 
        q^112 + (2*a - 1)*q^118 + (-a + 1)*q^119 + (-a - 1)*q^122 + q^126 + 
        a*q^128 - a*q^131 + a*q^136 + (a - 1)*q^142 + a*q^144 + (a - 1)*q^149 - 
        a*q^153 + (a - 1)*q^157 - a*q^158 - q^159 - a*q^162 + (a - 1)*q^168 + (a
        - 1)*q^173 - a*q^175 + (-a + 1)*q^177 + (-a + 2)*q^178 + a*q^183 - q^192
        + q^202 + q^204 - a*q^206 + (a + 1)*q^212 + q^216 + q^222 + a*q^224 + 
        (-a + 2)*q^236 + 2*a*q^238 - a*q^239 - a*q^241 + (2*a - 1)*q^244 + q^251
        + (-a + 1)*q^256 - q^259 + (-2*a + 1)*q^262 + (a - 1)*q^263 - q^267 + 
        q^271 + (a - 3)*q^272 + O(q^274),
    q^8 + (a + 1)*q^14 + (a - 1)*q^17 - a*q^18 + q^21 - a*q^28 + q^34 + (a - 
        1)*q^36 - a*q^37 + (-a - 1)*q^42 - a*q^48 - a*q^49 + a*q^54 + (-a + 
        2)*q^56 + (a - 1)*q^63 - a*q^71 - q^72 + (a - 1)*q^74 + q^79 + q^81 + (a
        - 1)*q^98 + (a - 1)*q^101 + (a - 1)*q^102 + q^103 + (a - 2)*q^106 - 
        a*q^112 + (2*a - 1)*q^118 - a*q^119 + (-a - 1)*q^122 + q^126 + (a - 
        1)*q^142 + (a - 1)*q^149 - a*q^158 + (a - 1)*q^159 - a*q^162 + (a - 
        1)*q^168 + q^177 + (-a + 2)*q^178 + (a - 1)*q^183 - a*q^200 + q^202 + 
        q^204 - a*q^206 + q^212 + q^216 + q^222 + q^236 + 2*a*q^238 - a*q^239 - 
        a*q^241 + (a - 1)*q^244 + q^251 + (a - 1)*q^256 + (a - 1)*q^259 + (-2*a 
        + 1)*q^262 - a*q^267 + q^271 + (a - 2)*q^272 + O(q^274),
    q^9 + 3*q^14 + (2*a - 1)*q^17 + (-a - 1)*q^18 + 2*q^21 + (a - 1)*q^24 + (-a 
        + 1)*q^27 + (-a - 1)*q^28 + (-2*a + 1)*q^32 + (-a + 2)*q^34 + a*q^36 + 
        (-a - 1)*q^37 - 3*q^42 - q^48 + (-a - 1)*q^49 - a*q^51 + (a + 1)*q^54 + 
        (-3*a + 3)*q^56 + (-2*a + 1)*q^59 + (a + 1)*q^61 + (2*a - 1)*q^63 + (a -
        2)*q^64 + (-a - 1)*q^71 + (a - 2)*q^72 + (2*a - 1)*q^74 + (-a + 2)*q^79 
        + (-a + 2)*q^81 + q^84 + (a - 2)*q^89 + (-2*a + 1)*q^96 + (-a - 1)*q^97 
        + (2*a - 1)*q^98 + (2*a - 1)*q^101 + (2*a - 1)*q^102 + (-a + 2)*q^103 + 
        (3*a - 3)*q^106 - a*q^108 + (a - 1)*q^111 + (a - 2)*q^112 + 3*a*q^118 + 
        (-a - 1)*q^119 - 3*q^122 + (-a + 2)*q^126 + (a + 1)*q^128 + (-a + 
        2)*q^136 + (2*a - 1)*q^142 + (a + 1)*q^144 + q^147 + (2*a - 1)*q^149 - 
        q^153 + (2*a - 1)*q^157 + (-a - 1)*q^158 + (2*a - 2)*q^159 + (-a - 
        1)*q^162 + (2*a - 2)*q^168 + (a + 1)*q^173 + (-a + 1)*q^177 + (-3*a + 
        3)*q^178 + a*q^183 + (a - 2)*q^192 + (-a + 2)*q^202 + (-a + 1)*q^204 + 
        (-a - 1)*q^206 + (-a + 2)*q^212 + (a - 1)*q^213 + (-a + 2)*q^216 + (-a +
        2)*q^222 + (-a + 2)*q^224 - a*q^225 + (-2*a + 1)*q^236 + (a - 1)*q^237 +
        (2*a + 2)*q^238 + (-a - 1)*q^239 + (-a - 1)*q^241 + (a + 1)*q^244 + (-a 
        + 2)*q^251 + (-2*a + 1)*q^256 + (a - 2)*q^259 - 3*a*q^262 + (a + 
        1)*q^263 - q^267 + (-a + 2)*q^271 + (3*a - 3)*q^272 + O(q^274),
    q^12 + (2*a - 1)*q^14 + (-a + 1)*q^18 + a*q^24 - a*q^42 + (a - 1)*q^54 + 
        (-2*a + 1)*q^68 - q^84 - q^102 + (-a - 1)*q^106 + (-2*a + 1)*q^112 + (a 
        - 2)*q^118 + (-2*a + 1)*q^122 + (-a + 2)*q^136 + (a - 1)*q^144 + (2*a - 
        1)*q^148 - a*q^168 + (a + 1)*q^178 + (a + 1)*q^196 + a*q^222 + (2*a - 
        1)*q^238 + (-a + 1)*q^252 + (-a + 2)*q^262 + O(q^274),
    q^16 + a*q^17 + (-a + 1)*q^21 + (a - 1)*q^24 - a*q^32 - q^37 - q^49 - a*q^56
        + a*q^63 + (a - 1)*q^64 + q^68 - q^71 + (a - 1)*q^72 + (-a + 1)*q^79 + 
        (-a + 1)*q^81 - a*q^84 - a*q^96 + a*q^101 + (-a + 1)*q^103 + q^112 - 
        q^119 + q^128 + q^136 + (a - 1)*q^148 + a*q^149 + a*q^159 + (-a + 
        1)*q^177 + a*q^183 + (a - 1)*q^192 + (a - 1)*q^196 + (-a + 1)*q^224 - 
        q^239 - q^241 + (-a + 1)*q^251 + q^252 - a*q^256 + a*q^259 - q^267 + (-a
        + 1)*q^271 + (a - 1)*q^272 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
847
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
847
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - q^53 - q^56 - q^58 - q^67 - q^71 + q^81 - q^86 - 
        q^92 - q^113 - q^148 + O(q^154),
    q^2 + q^18 - q^28 - q^29 - q^43 - q^46 + q^50 - q^74 - q^79 + q^98 + q^107 +
        q^109 + q^127 - q^128 + q^151 + O(q^154),
    q^4 - q^14 - q^23 + q^36 - q^37 + q^53 - q^64 + q^67 + q^71 - q^92 + q^100 +
        q^113 - q^126 - q^137 - q^148 + O(q^154),
    q^7 - q^8 - q^29 + q^32 - q^43 + q^46 + q^63 - q^72 + q^74 - q^79 - q^106 + 
        q^116 - q^134 - q^142 + 2*q^149 + O(q^154)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
847
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
110
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
847
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
330
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
847
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
330
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
847
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
110
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^38 + a^27 - a^16 + a^8 + a^5)*q^2 + (-a^39 - a^38 + a^34 + a^33 - 
        a^32 - a^29 + a^27 + a^24 - a^22 + a^21 - a^19 + a^14 + a^11 - a^10 - 
        a^9 + a^5 + a^4 + a^2 - 1)*q^4 - a^7*q^7 + (a^39 - a^37 - a^35 - a^34 + 
        a^30 + a^29 - a^28 - a^25 + a^24 + a^23 + a^20 - a^18 + a^17 - a^15 - 
        a^12 + 2*a^10 + a^7 - a^6 - a^5 + a + 1)*q^8 - a^11*q^9 + a^34*q^11 + 
        (-a^15 - a)*q^14 + (-a^34 + a^32 - a^31 + a^23 + a^18 - a^12 + a^4 + 
        a)*q^16 + (-a^19 - a^5)*q^18 + (-a^39 + a^37 + a^34 - a^32 + a^31 - a^29
        + 2*a^28 + a^27 - a^26 + a^24 - a^23 - a^22 + a^21 - a^20 - a^19 + a^18 
        - a^16 + a^15 + a^14 - a^13 + a^11 - a^10 + a^8 + a^5 - a^3 - 1)*q^22 + 
        (a^39 + a^36 - a^34 - a^33 - a^31 + a^29 - a^28 + a^26 - a^25 - a^24 + 
        a^23 - a^21 + a^20 + a^19 - a^18 + a^17 + a^16 - a^15 + a^13 - a^12 - 
        a^11 + a^10 - a^8 + a^7 - a^5 - a^2 + 1)*q^23 + a^38*q^25 + (a^39 - a^28
        - a^23 + a^17 - a^9 - a^6)*q^28 + (a^39 - a^37 + a^36 - a^34 + a^32 + 
        a^29 - a^28 - a^27 + a^26 - a^24 + a^23 + a^22 - a^21 + a^19 - a^18 + 
        a^16 - a^15 - a^14 + a^13 - a^11 + a^10 + a^9 - a^8 - a^5 + a^3 + 
        1)*q^29 + (-a^39 - a^37 + a^35 + a^32 - a^30 + a^29 - a^27 + 2*a^26 - 
        a^24 + a^22 - a^21 - a^20 + a^19 - a^18 - a^17 + a^16 - a^14 + a^13 + 
        2*a^12 - a^11 + a^9 - a^8 + a^6 + a^3 - a)*q^32 + (a^39 + a^38 - a^34 - 
        a^33 + a^29 - 2*a^27 - a^24 + a^22 + a^19 + a^16 - a^14 - a^13 - a^11 + 
        a^9 - a^5 - a^4 + 1)*q^36 + (a^20 - a^9)*q^37 + (-a^29 - a^21)*q^43 + 
        (a^39 + a^36 - a^28 + a^22 + a^17 - a^6)*q^44 + (-a^39 - a^36 + a^35 + 
        a^34 + a^31 - a^30 - a^29 + a^28 - a^27 - a^26 + a^25 - a^23 + a^21 - 
        a^20 + a^18 - a^17 - a^16 + a^15 + a^12 + a^11 - a^10 - a^7 - 1)*q^46 + 
        a^14*q^49 + (a^35 + a^32 - a^24 + a^13 - a^2)*q^50 + (-a^35 + a^12)*q^53
        + (a^33 - a^31 - a^22 - a^17 + a^11 - a^3 - 1)*q^56 + (-a^36 + a^33 + 
        a^30 + a^25 - a^22 - a^14 + a^11 + a^6 + a^3 - 1)*q^58 + a^18*q^63 + 
        (a^37 - a^36 + a^34 - a^33 - a^26 + a^25 + a^20 - a^19 + a^15 - a^14 + 
        a^6 - a^4 + a^3)*q^64 + (-a^35 - a^34 + a^30 + a^29 - a^28 - a^25 + a^23
        + a^20 - a^18 + a^17 - a^15 - a^12 + a^10 + a^7 - a^6 - a^5 + a + 
        1)*q^67 + (a^37 + a^30 - a^26 + a^15 - a^4)*q^71 + (a^37 - a^35 - a^26 -
        a^21 + a^15 - a^7 - a^4)*q^72 + (a^28 - a^17 + a^14 - a^3)*q^74 + (-a^39
        - a^36 + a^34 + a^31 - a^30 - a^29 + a^28 - a^26 + a^25 + a^24 - a^23 + 
        a^21 - a^20 + a^18 - a^17 - a^16 + a^15 - a^13 + a^12 + a^11 - a^10 - 
        a^7 + a^5 + a^2 - 1)*q^77 + (-a^17 + a^10)*q^79 + a^22*q^81 + (-a^37 - 
        a^29 - a^23 - a^15)*q^86 + (a^33 + a^30 - a^22 + a^16 + a^11 - a^3 - 
        1)*q^88 + (-a^33 - a^30 + a^29 + a^28 + a^25 - a^24 - a^23 + a^22 - a^21
        - a^20 + a^19 - a^17 + a^15 - a^14 - a^13 + a^12 - a^11 - a^10 + a^9 + 
        a^6 + a^5 - a^4 - a)*q^92 + (a^22 + a^8)*q^98 + (-a^34 + a^23 - a^12 + 
        a)*q^99 + (a^38 + a^35 - a^33 - a^30 + a^29 + a^28 - a^27 + a^26 + a^25 
        - a^24 - a^23 + a^22 - a^20 + a^19 - a^17 + a^16 + a^15 - a^14 + a^12 - 
        a^11 - a^10 + a^9 + a^6 - a^4 - a)*q^100 + (-a^39 - a^38 + a^34 + a^33 -
        a^32 - 2*a^29 + a^27 + a^24 - a^22 + a^21 + a^20 - a^19 - a^16 + a^14 + 
        a^11 - a^10 - a^9 + a^6 + a^5 + a^4 - 1)*q^106 + (a^35 - a^25 - a^24 + 
        a^13 - a^2)*q^107 + (-a^36 + a^25 - a^23 - a^14 + a^3)*q^109 + (a^38 + 
        a^36 - a^34 - a^31 + a^29 - a^28 + a^26 - 2*a^25 - a^24 + a^23 - a^21 + 
        a^20 + a^19 - a^18 + a^17 + a^16 - a^15 + a^13 - a^12 - 2*a^11 + a^10 - 
        a^8 + a^7 - a^5 - a^2 + 1)*q^112 + (a^4 + a^2)*q^113 + (a^38 - a^30 + 
        a^24 + a^19 + a^14 - a^8 + 1)*q^116 - a^13*q^121 + (a^26 + a^12)*q^126 +
        (-a^39 + a^37 + a^34 - a^32 + a^31 - a^29 + a^28 + a^27 + a^24 - a^23 - 
        a^22 + a^21 - a^20 - a^19 + a^18 - a^16 + a^15 + a^14 - a^13 + a^11 - 
        a^10 + a^8 + a^5 - a^3 - 1)*q^127 + (-2*a^39 + a^37 - a^36 + 2*a^34 - 
        a^32 + 2*a^31 - a^30 - 2*a^29 + 3*a^28 - 2*a^26 + a^25 + 2*a^24 - 2*a^23
        - a^22 + 2*a^21 - 2*a^20 - a^19 + 2*a^18 - a^17 - 2*a^16 + 2*a^15 + 
        2*a^14 - 3*a^13 + a^12 + 2*a^11 - 2*a^10 + a^8 - a^7 + 2*a^5 - a^3 + a^2
        - a - 1)*q^128 + (-a^36 - a^34 - a^33 + a^25 + a^23 - a^14 - a^12 + a^4 
        + a^3 + a)*q^134 + (a^6 + a^2)*q^137 + (-a^39 + a^38 + a^37 + a^34 - 
        a^32 + a^31 - a^29 + a^28 + a^27 - a^26 + 2*a^24 - a^23 - a^22 + a^21 - 
        a^20 - a^19 + a^18 - a^16 + a^15 + a^14 - a^13 + a^11 - a^10 + a^8 + a^5
        - a^3 - a - 1)*q^142 + (-2*a^39 - a^38 + a^37 + 2*a^34 + a^33 - 2*a^32 +
        a^31 - 3*a^29 + a^28 + 2*a^27 - a^26 + 2*a^24 - a^23 - 2*a^22 + 2*a^21 -
        a^20 - 2*a^19 + a^18 - 2*a^16 + 2*a^14 - a^13 + 2*a^11 - 2*a^10 - a^9 + 
        a^8 + 2*a^5 + a^4 - a^3 - a - 2)*q^144 + (a^39 + 2*a^36 - a^34 - a^31 + 
        a^29 - a^28 + a^26 - 2*a^25 - a^24 + a^23 + a^22 - a^21 + a^20 + a^19 - 
        a^18 + a^17 + a^16 - a^15 + a^13 - a^12 - 2*a^11 + a^10 + a^7 - a^5 - 
        a^2 + 1)*q^148 + (a^39 + a^38 - a^34 - a^33 + a^29 - a^27 - a^24 + a^22 
        + a^16 - a^14 - a^11 + a^9 - a^5 - a^4 + 1)*q^149 + (a^39 - a^28 + a^17 
        - a^6 - a)*q^151 + O(q^154)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
847
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
847
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
847
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
847
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^8 - a^5)*q^2 + (a^9 - a^8 + a^7 - a^6 - a^4 + a^3 + a - 1)*q^4 - 
        a^7*q^7 + (a^9 - a^8 - a^6 + a^5 + a^3 + a - 1)*q^8 + q^9 - a*q^11 + 
        (a^4 - a)*q^14 + (-a^8 - a^6 + a^5 + a^3 - a^2 - 1)*q^16 + (a^8 - 
        a^5)*q^18 + (-a^9 + a^6)*q^22 + (a^8 + 1)*q^23 - a^5*q^25 + (-a^9 + a^6 
        - a)*q^28 + (-a^9 - a^3)*q^29 + (-a^9 - a^7 + a^6 + a^4 - a^3 - a)*q^32 
        + (a^9 - a^8 + a^7 - a^6 - a^4 + a^3 + a - 1)*q^36 - 2*a^9*q^37 + (a^9 -
        a^8 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^43 + (a^6 - a^3 + 1)*q^44 +
        (a^8 - 2*a^5 + a^2)*q^46 - a^3*q^49 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4
        + a^3 + a - 1)*q^50 + (a^2 - a)*q^53 + (-a^9 + a^6 - a^3 + 1)*q^56 + 
        (a^8 + a^6 - a^3 + 1)*q^58 - a^7*q^63 + (-a^9 + a^8 + a^6 + a^4 - a^3 - 
        a + 1)*q^64 + (-a^7 + a^6)*q^67 + (a^8 + a^4)*q^71 + (a^9 - a^8 - a^6 + 
        a^5 + a^3 + a - 1)*q^72 + (2*a^6 - 2*a^3)*q^74 + a^8*q^77 + (a^9 - a^8 +
        a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^79 + q^81 + (-a^7 + 2*a^4 - 
        a)*q^86 + (a^8 - a^5 - a^3 + 1)*q^88 + (2*a^9 - 2*a^8 + a^7 - 2*a^6 + 
        a^5 - 2*a^4 + 2*a^3 + 2*a - 2)*q^92 + (a^8 + 1)*q^98 - a*q^99 + (a^9 - 
        a^8 - a^6 + a^5 + a^3 - a^2 + a - 1)*q^100 + (-a^8 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^106 + (-a^3 + a^2)*q^107 + (-a^3 - a)*q^109 + (a^8 + a^6 
        - a^5 - a^3 + 1)*q^112 + (a^4 + a^2)*q^113 + (2*a^8 - a^5 - a^3 + a^2 + 
        1)*q^116 + a^2*q^121 + (a^4 - a)*q^126 + (-a^9 + a^4)*q^127 + (-a^9 + 
        a^8 + a^6 - a^5 - a^3 + a^2 - a + 1)*q^128 + (a^4 - a^3 - a + 1)*q^134 +
        (a^6 + a^2)*q^137 + (-a^9 - a^5 + a^2 - a)*q^142 + (-a^8 - a^6 + a^5 + 
        a^3 - a^2 - 1)*q^144 + (2*a^8 - 2*a^3 + 2)*q^148 + (a^9 + a^7 - a^6 + 
        a^5 - a^4 + a^3 - a^2 + a - 1)*q^149 + (a^6 - a)*q^151 + O(q^154)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
847
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
847
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
847
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 22*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
847
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 22*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^2*q^7 - a^3*q^8 - a*q^9 - a^3*q^25 + a^2*q^29 - q^32 + q^43 + a*q^46 +
        (a^3 - a^2 + a - 1)*q^49 + a*q^53 - q^56 + a^3*q^58 + a^3*q^63 - q^67 + 
        (-a^3 + a^2 - a + 1)*q^71 + (a^3 - a^2 + a - 1)*q^72 + a^3*q^74 - a*q^79
        + a^2*q^81 + a*q^86 - a^2*q^92 + a^2*q^106 + a^3*q^113 + (-a^3 + a^2 - a
        + 1)*q^116 - a*q^134 + q^142 + (-a^3 + a^2 - a + 1)*q^148 + (-2*a^3 + 
        2*a^2 - 2*a + 2)*q^149 + O(q^154),
    q^2 + (a^2 - a + 1)*q^7 + (a^3 - a^2 + a)*q^8 - a*q^18 + a^3*q^28 + (-a^2 + 
        2*a - 1)*q^29 + (-a^2 + a)*q^32 + (-a^3 + 2*a^2 - 2*a + 1)*q^43 + (a^3 -
        a^2 - 1)*q^46 - a^3*q^50 + (-a^3 + a^2 - a)*q^63 + (-a + 1)*q^72 + (-a^3
        - a)*q^74 + (-a^3 + a^2 - 1)*q^79 + (a^3 - a^2 + a - 1)*q^98 + (-a^2 + a
        - 1)*q^106 + a^2*q^107 + (a^3 - a^2 + a - 1)*q^109 + (a - 1)*q^116 - 
        a^3*q^127 + a*q^128 + (-a^3 + a^2)*q^134 + (a^2 - a)*q^142 + (2*a - 
        2)*q^149 + a^2*q^151 + O(q^154),
    q^4 + (-a^3 + a^2)*q^7 + (a^2 - a + 1)*q^8 + a*q^14 + a^3*q^23 + (a^3 - 
        a^2)*q^29 + (-a + 1)*q^32 - a*q^36 - q^37 + (a - 1)*q^43 + (a^2 - 
        a)*q^46 + (a^3 - a^2 + a - 1)*q^53 + (-a^2 + a - 1)*q^63 + (-a^3 + a^2 -
        a + 1)*q^64 - a^3*q^67 + a^2*q^71 + (-a^3 + a^2 - a)*q^72 + (-a^2 + a - 
        1)*q^74 + (-a^2 + a)*q^79 - q^92 - a^3*q^100 + (a^3 - a^2)*q^106 - 
        a*q^113 + (a^3 - a^2 + a)*q^116 - a^2*q^126 + (-a^2 + a)*q^134 - 
        a^2*q^137 + (a - 1)*q^142 - a^2*q^148 + (2*a^3 - 2*a^2 + 2*a)*q^149 + 
        O(q^154)
]
;
Bo:=
[
    q + (-a^2 + a - 1)*q^2 + (-a^3 + a^2 - a)*q^4 + a^2*q^7 + a^3*q^8 - a*q^9 + 
        (-a + 1)*q^14 + (a^3 - a^2 + a)*q^18 + (-a^3 + a^2)*q^23 - a^3*q^25 + 
        (-a^2 + a)*q^28 + (-a^3 - a)*q^29 + q^32 + (a - 1)*q^36 + (a^3 - a^2 + 
        a)*q^37 + (a^3 - a^2 - 1)*q^43 + (a^2 - 2*a + 1)*q^46 + (a^3 - a^2 + a -
        1)*q^49 + (a^2 - a)*q^50 + (a^2 + 1)*q^53 - q^56 + a^3*q^58 - a^3*q^63 +
        (-a^2 + a - 1)*q^64 + (a^3 - a^2 - 1)*q^67 + (-a^3 + 1)*q^71 + (-a^3 + 
        a^2 - a + 1)*q^72 + (-a^3 + a - 1)*q^74 + (a^2 + 1)*q^79 + a^2*q^81 + 
        a*q^86 + (a^3 - 2*a^2 + a)*q^92 + (-a^3 + a^2)*q^98 + (a^3 - a^2)*q^100 
        - a^2*q^106 + (-a + 1)*q^107 + (-a^3 + a^2)*q^109 + (a^3 + a - 1)*q^113 
        + (a^3 - a^2 + a - 1)*q^116 + (a^2 - a)*q^126 + (a^2 - a)*q^127 + (-a^3 
        + a^2 - a)*q^128 + a*q^134 + (a^2 - a)*q^137 - q^142 + (-a^3 + 2*a^2 - 
        2*a + 1)*q^148 + (2*a^3 - 2*a^2 + 2*a - 2)*q^149 + (-a + 1)*q^151 + 
        O(q^154),
    q^11 + (-a^2 + a - 1)*q^22 + (-a^3 + a^2 - a)*q^44 + a^2*q^77 + a^3*q^88 - 
        a*q^99 + (a^3 - a^2 + a - 1)*q^121 + O(q^154)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
847
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
55*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
847
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 55*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^5 + a^3)*q^5 - a^4*q^9 + (-a^9 + a^2)*q^13 + (-a^10 + a^9 - a^8 + 
        a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^17 + (a^10 - a^8 + 
        a^6)*q^25 + (-a^6 + a)*q^29 + (-a^10 + a^7)*q^37 + (a^11 + a^8)*q^41 + 
        (a^9 - a^7)*q^45 - a*q^49 - a^2*q^53 + (-a^11 + a^10 - a^9 + a^8 - a^7 +
        a^6 - a^5 + 2*a^4 - a^3 + a^2 - a + 1)*q^61 + (-a^11 + a^10 - a^9 + a^8 
        - 2*a^7 + a^6 + a^4 - a^3 + a^2 - 2*a + 1)*q^65 + (a^7 - a^3)*q^73 + 
        a^8*q^81 + (a^4 - a^3 - a^2 + a)*q^85 + (-a^10 - 1)*q^89 + (-a^8 - 
        1)*q^97 + (a^11 + a^10)*q^101 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + 
        2*a^5 - a^4 + a^3 - a^2 + a - 1)*q^109 + (a^9 + a^5)*q^113 + (-a^6 - 
        1)*q^117 + a^6*q^121 + (-a^11 + a^9 + a^2 - 1)*q^125 + (-a^4 - 
        a^3)*q^137 + (a^11 - a^9 - a^6 + a^4)*q^145 + (a^6 - a^3)*q^149 + (a^3 -
        a^2)*q^153 + (-a^9 + a^5)*q^157 + (-a^11 - a^5 + a^4)*q^169 + (-a^10 - 
        a^5)*q^173 + (-a^11 + a^10 - a^9 + 2*a^8 - a^7 + a^6 - a^5 + a^4 - a^3 +
        a^2 - a + 1)*q^181 + (-a^11 + 2*a^10 - a^9 + a^8 - a^7 + a^6 - a^5 + a^4
        - a^3 - a + 2)*q^185 + (a^9 + a^2)*q^193 + (-a^8 - a^4)*q^197 + (a^11 + 
        a^3 - a + 1)*q^205 + O(q^206)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^10 + a^6)*q^5 + a^8*q^9 + (-a^5 + a^4)*q^13 + (-a^11 - a^9)*q^17 + 
        (a^11 - a^10 + a^9 - a^8 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^25 + (a^11 -
        a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^29 + (-a^7 - 
        a)*q^37 + (-a^9 - a^3)*q^41 + (-a^5 - a)*q^45 + a^2*q^49 + a^4*q^53 + 
        (-a^11 + a^8)*q^61 + (-a^11 + a^10 + a^2 - a)*q^65 + (a^6 - a)*q^73 - 
        a^3*q^81 + (a^8 + a^6 + a^4 + a^2)*q^85 + (-a^7 + 1)*q^89 + (-a^3 + 
        1)*q^97 + (-a^9 - a^7)*q^101 + (-a^11 + a^10)*q^109 + (a^10 - a^5)*q^113
        + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + 
        a)*q^117 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 
        + a - 1)*q^121 + (-a^9 - a^5 + a^4 + 1)*q^125 + (a^8 + a^6)*q^137 + 
        (a^11 - a^10 + a^7 - a^6 - a^4 + a^3 - a^2 + a - 1)*q^145 + (a^11 - a^10
        + a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^149 + (a^6 + 
        a^4)*q^153 + (a^10 - a^5)*q^157 + (a^10 - a^9 + a^8)*q^169 + (a^10 - 
        a^7)*q^173 + (-a^11 - a^3)*q^181 + (-a^11 - a^7 + a^4 + 1)*q^185 + (-a^5
        + a^4)*q^193 + (a^8 - a^3)*q^197 + (-a^9 + a^6 + a^2 + 1)*q^205 + 
        O(q^206),
    q^2 + (a^10 + a^6)*q^10 + a^8*q^18 + (-a^5 + a^4)*q^26 + (-a^11 - a^9)*q^34 
        + (a^11 - a^10 + a^9 - a^8 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^50 + (a^11
        - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^58 + (-a^7 -
        a)*q^74 + (-a^9 - a^3)*q^82 + (-a^5 - a)*q^90 + a^2*q^98 + a^4*q^106 + 
        (-a^11 + a^8)*q^122 + (-a^11 + a^10 + a^2 - a)*q^130 + (a^6 - a)*q^146 -
        a^3*q^162 + (a^8 + a^6 + a^4 + a^2)*q^170 + (-a^7 + 1)*q^178 + (-a^3 + 
        1)*q^194 + (-a^9 - a^7)*q^202 + O(q^206),
    q^4 - a*q^8 + a^2*q^16 + (a^10 + a^6)*q^20 - a^3*q^32 + a^8*q^36 + (-a^11 - 
        a^7)*q^40 + (-a^5 + a^4)*q^52 + a^4*q^64 + (-a^11 - a^9)*q^68 - a^9*q^72
        + (a^11 - a^10 + a^9 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^80 +
        (a^11 - a^10 + a^9 - a^8 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^100 + (a^6 -
        a^5)*q^104 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a 
        - 1)*q^116 - a^5*q^128 + (a^11 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3
        - a^2 + a - 1)*q^136 + a^10*q^144 + (-a^7 - a)*q^148 + (-a^9 + 1)*q^160 
        + (-a^9 - a^3)*q^164 + (-a^5 - a)*q^180 + a^2*q^196 + (a^8 + a^4 + 
        1)*q^200 + O(q^206)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 13*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 13*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 13*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 26*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^13 + q^17 + q^25 - q^29 - q^37 + q^49 - q^53 - q^57 - q^69 + q^81 - 
        2*q^89 - q^97 - q^113 - 2*q^117 + q^121 + q^149 - 2*q^153 + 2*q^169 - 
        2*q^197 + O(q^206),
    q^3 - q^19 - q^23 + q^27 - q^39 - q^51 + q^71 + q^75 + q^79 - q^83 + q^87 - 
        q^103 + q^111 + q^127 + q^147 - q^151 - q^159 + q^167 - 2*q^171 - q^179 
        + q^191 + O(q^206),
    q^9 - q^13 - q^17 + q^29 + q^37 - q^57 - q^69 + q^97 + q^113 - q^149 - q^169
        + O(q^206)
]
;
Bo:=
[
    q - q^13 - q^17 + q^25 - q^29 - q^37 + q^49 + q^53 + q^57 + q^69 - q^81 + 
        2*q^89 - 2*q^93 - q^97 - q^113 + q^121 - q^149 + 2*q^197 - 2*q^201 + 
        O(q^206),
    q^2 - q^26 - q^34 + q^50 - q^58 - q^74 + q^98 + q^106 + q^114 + q^138 - 
        q^162 + 2*q^178 - 2*q^186 - q^194 + O(q^206),
    q^3 + q^19 + q^23 - q^27 - 2*q^31 - q^39 - q^51 - 2*q^67 + q^71 + q^75 + 
        q^79 + q^83 - q^87 + q^103 - q^111 + q^127 - 2*q^139 + q^147 + q^151 + 
        q^159 + q^167 + q^179 + q^191 + O(q^206),
    q^4 + q^16 - q^24 - q^52 + q^64 - q^68 - q^96 + q^100 - q^116 - q^148 - 
        q^152 - q^184 + q^196 + O(q^206),
    q^6 + q^38 + q^46 - q^54 - 2*q^62 - q^78 - q^102 - 2*q^134 + q^142 + q^150 +
        q^158 + q^166 - q^174 + O(q^206),
    q^8 - q^12 + q^32 - q^48 - q^76 - q^92 - q^104 + q^108 + 2*q^124 + q^128 - 
        q^136 + q^156 - q^192 + q^200 + q^204 + O(q^206)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 26*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
848
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 26*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^11 - q^17 - q^43 + q^49 - q^59 + q^81 - q^89 - q^97 - q^99 + 
        2*q^107 - q^113 + q^115 + 2*q^131 - q^153 + q^155 - q^163 + q^169 + 
        q^187 + O(q^206),
    q^2 + q^8 + q^18 - q^20 - q^22 + q^32 - q^34 + q^72 - q^80 - q^86 - q^88 - 
        q^92 + q^98 - q^118 - q^124 + q^128 - q^136 + q^162 - q^178 - q^180 - 
        q^194 - q^198 + O(q^206),
    q^4 - q^10 + q^16 + q^36 - q^40 - q^44 - q^46 - q^62 + q^64 - q^68 - q^90 + 
        q^106 + q^110 + 2*q^122 + 2*q^142 + q^144 - q^158 - q^160 + q^170 - 
        q^172 - q^176 - q^184 + q^196 - q^202 + O(q^206),
    q^5 + q^23 + q^31 + q^45 - q^53 - q^55 - 2*q^61 - 2*q^71 + q^79 - q^85 + 
        q^101 - 2*q^103 + q^109 - q^125 + q^127 - 2*q^151 + q^157 + q^167 + 
        q^173 - 2*q^181 + q^191 + O(q^206)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
849
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
187
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
849
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
282
);
qprec:=
187
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
849
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
282
);
qprec:=
187
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
849
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
94
);
qprec:=
187
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
849
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
94
);
qprec:=
187
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^3 + a^36*q^4 + (a^30 - a^9)*q^7 + a^2*q^9 - a^37*q^12 + (-a^33 - 
        a^5)*q^13 - a^25*q^16 + (-a^23 - a^15)*q^19 + (-a^31 + a^10)*q^21 - 
        a^43*q^25 - a^3*q^27 + (-a^45 - a^19)*q^28 + (a^40 + a^28)*q^31 + 
        a^38*q^36 + (-a^17 - a^7)*q^37 + (a^34 + a^6)*q^39 + (-a^27 - a^21)*q^43
        + a^26*q^48 + (-a^39 + a^18 - a^13)*q^49 + (-a^41 + a^22)*q^52 + (a^24 +
        a^16)*q^57 + (a^42 + a^20)*q^61 + (a^32 - a^11)*q^63 + a^14*q^64 + (a^12
        + a^8)*q^67 + (a^44 - a^29)*q^73 + a^44*q^75 + (a^12 + a^4)*q^76 + 
        (-a^35 - a^11)*q^79 + a^4*q^81 + (a^45 - a^44 + a^43 - a^42 + a^41 - 
        a^40 + a^39 - a^38 + a^37 - a^36 + a^35 - a^34 + a^33 - a^32 + a^31 - 
        a^30 + a^29 - a^28 + a^27 - a^26 + a^25 - a^24 + a^23 - a^22 + a^21 + 
        a^19 - a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + 
        a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^84 + (a^42 - 
        a^35 + a^16 + a^14)*q^91 + (-a^41 - a^29)*q^93 + (a^45 - a^44 + a^43 - 
        a^42 + a^41 - a^40 + a^39 - a^38 + a^37 - a^36 + a^35 - a^34 + a^33 - 
        a^32 + a^31 - a^30 + a^29 - a^28 + a^27 - a^26 + a^25 - a^24 + a^23 - 
        a^22 + a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - a^14 - a^12 + 
        a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^97 + a^32*q^100 + (a^45 - a^44 + a^43 - a^42 + a^41 - a^40 + a^39 -
        a^38 + a^37 - a^36 + a^35 - a^34 + a^33 - a^32 + a^31 - a^30 + a^29 - 
        a^28 + a^27 + a^25 - a^24 + a^23 - a^22 + a^21 - a^20 + a^19 - a^18 + 
        a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 
        - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^103 - a^39*q^108 + (a^24 - 
        a^21)*q^109 + (a^18 + a^8)*q^111 + (a^34 + a^8)*q^112 + (-a^35 - 
        a^7)*q^117 + a^22*q^121 + (-a^29 - a^17)*q^124 + (a^38 - a^27)*q^127 + 
        (a^28 + a^22)*q^129 + (-a^45 + a^32 + a^24 + a^6)*q^133 + (a^4 - 
        a^3)*q^139 - a^27*q^144 + (a^40 - a^19 + a^14)*q^147 + (-a^43 + 
        a^6)*q^148 + (-a^31 + a^18)*q^151 + (a^42 - a^23)*q^156 + (a^40 - 
        a^39)*q^157 + (a^44 - a^15)*q^163 + (a^38 - a^19 + a^10)*q^169 + (-a^25 
        - a^17)*q^171 + (a^16 + a^10)*q^172 + (a^26 - a^5)*q^175 + (-a^37 + 
        a^20)*q^181 + (-a^43 - a^21)*q^183 + O(q^187)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
849
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
47*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
187
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
849
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 94*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
187
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
849
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
141*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
187
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^7 + q^9 + q^10 - q^23 - q^29 - q^38 - q^44 - q^52 + q^54 - q^62 - q^63
        + q^64 - q^70 + q^71 + q^73 - q^86 - q^89 + q^90 + q^94 + q^95 + q^100 +
        q^101 - q^103 + q^110 + q^113 + q^127 + q^130 - q^135 + q^143 - q^151 + 
        q^155 - q^157 - q^160 + q^161 - q^163 - q^164 - q^176 + q^181 + 
        O(q^187),
    q^2 - q^5 - q^14 + q^18 + q^19 + q^20 + q^22 + q^26 - q^27 + q^31 - q^32 + 
        q^35 + q^43 - q^45 - q^46 - q^47 - q^50 - q^55 - q^58 - q^65 - q^76 + 
        q^80 + q^82 + q^108 - q^109 + q^115 + q^118 + q^122 - q^124 - q^126 - 
        q^133 - q^139 - q^140 + q^145 + q^149 - q^154 - q^162 - 2*q^166 - q^167 
        + q^171 - q^172 + q^173 - q^178 + q^180 - q^182 + O(q^187),
    q^3 + q^18 - q^21 + q^30 - q^45 - q^69 - q^87 + q^108 - q^114 - q^126 - 
        q^132 - q^156 + q^171 + q^180 - q^186 + O(q^187),
    q^4 - q^10 - q^11 - q^13 + q^16 + q^25 - q^28 + q^36 + q^38 - q^41 - q^54 - 
        q^59 - q^61 + q^62 + q^70 + q^71 + q^73 + q^77 + q^81 + 2*q^83 + q^86 - 
        q^90 + q^91 - q^92 - q^94 - q^95 - q^97 - q^99 + q^101 - q^110 - q^112 +
        q^113 - q^116 - q^117 + q^127 - q^130 + q^135 - q^137 + q^144 - q^155 + 
        q^160 - q^175 - q^179 + q^181 + O(q^187),
    q^6 - q^9 - q^15 + q^36 - q^42 - q^54 + q^57 + q^60 + q^63 + q^66 + q^78 - 
        2*q^90 + q^93 - q^96 - q^99 + q^105 - q^117 + q^129 + q^135 - q^138 - 
        q^141 + q^144 - q^150 - q^165 - q^174 + O(q^187),
    q^12 - q^18 + q^27 - q^30 - q^33 - q^39 + q^45 + q^48 + q^75 - q^84 + q^114 
        - q^123 + q^126 - q^171 - q^177 - q^180 - q^183 + q^186 + O(q^187)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
850
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
850
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
850
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
850
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
80
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
850
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
80
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
850
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
850
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
850
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
850
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
850
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
850
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
850
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
850
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
850
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
850
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
850
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 - q^3 + q^6 + q^8 - q^13 - q^16 + q^23 - q^24 + q^25 + q^26 + q^27 -
        q^29 - q^31 + q^39 - q^41 - q^46 - q^47 + q^48 + q^49 - q^50 - q^54 + 
        q^58 + 2*q^59 + q^62 + q^64 - q^69 - q^71 - q^73 - q^75 - q^78 - q^81 + 
        q^82 + q^87 + q^93 + q^94 - q^98 + 2*q^101 - q^104 - 2*q^118 + q^121 + 
        q^123 - q^127 - q^128 - q^131 + q^138 - q^139 + q^141 + q^142 + q^146 - 
        q^147 + O(q^150),
    q^37 - q^74 - q^111 + O(q^150)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
396
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
198
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
132
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
198
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^2 + (a - 1)*q^3 - q^6 + q^8 + (a - 1)*q^13 + a*q^16 + (a - 1)*q^24 -
        q^26 - q^27 - a*q^35 - a*q^39 + (-a + 1)*q^41 - q^48 - a*q^54 - a*q^59 +
        q^64 + (-a + 1)*q^70 + (-a + 1)*q^71 + (-a + 1)*q^78 + (-a + 1)*q^81 + 
        q^82 + q^85 - a*q^95 + (a - 1)*q^104 + q^105 + (a - 1)*q^115 + (-a + 
        1)*q^118 - q^119 + q^121 + a*q^123 + a*q^127 + a*q^128 - a*q^131 + 
        a*q^133 - a*q^139 + q^142 + O(q^150),
    q^5 - q^7 + a*q^10 - a*q^14 + (a - 1)*q^15 + (-a + 1)*q^17 - q^19 + (-a + 
        1)*q^21 + a*q^23 - q^30 + q^34 - a*q^37 - a*q^38 + q^40 + q^42 + (a - 
        1)*q^46 + a*q^51 + (a - 1)*q^53 - q^56 + (-a + 1)*q^57 - q^61 + (a - 
        1)*q^65 + q^67 - q^69 + (-a + 1)*q^74 + q^79 + a*q^80 + (-a + 1)*q^83 + 
        (a - 1)*q^89 + (-a + 1)*q^91 + 2*a*q^97 + (a - 1)*q^102 - q^106 - q^107 
        + (-a + 1)*q^109 + q^111 - a*q^112 + (-a + 1)*q^113 + q^114 + (a - 
        1)*q^120 - a*q^122 - a*q^125 - q^130 + a*q^134 - q^135 + (-a + 1)*q^136 
        - a*q^138 + O(q^150)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
851
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^27 - q^41 - q^47 + q^49 + q^64 - q^75 - q^85 - q^95 - 
        q^108 + q^121 - q^123 - q^127 - q^139 - q^141 + O(q^150),
    q^3 - q^9 + q^12 - q^25 - q^36 - q^41 - q^47 + q^48 + q^71 + q^73 + q^75 - 
        q^100 + q^101 + q^115 - q^127 - q^139 - q^144 + q^147 + O(q^150),
    q^5 - 2*q^17 - 2*q^19 + q^20 + q^23 + q^37 + q^43 - q^51 - q^57 + 2*q^61 - 
        2*q^68 + q^69 - 2*q^76 + q^79 + q^80 + 2*q^89 + q^92 + q^97 - 2*q^103 - 
        2*q^109 + q^111 - 2*q^113 - q^125 - q^135 + q^148 + O(q^150),
    q^15 - q^17 - q^19 + q^23 + q^37 - q^45 - q^51 - q^57 + q^60 + 2*q^61 - q^68
        - q^76 + 2*q^89 + q^92 - q^103 - q^109 - q^113 - q^125 + q^129 + q^148 +
        O(q^150)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
852
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
852
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
852
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
852
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
852
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
852
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
852
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
852
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
852
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
852
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + a*q^6 - a*q^9 + (-a^3 + a^2 - a + 2)*q^13 + a^2*q^16 + (-a^2 + 
        1)*q^22 - a^2*q^24 - a^3*q^25 + (a^2 - 1)*q^33 + a^2*q^36 + (a^3 - 
        a^2)*q^37 + (-a^3 + 2*a^2 - a + 1)*q^46 + a*q^49 + (-a - 1)*q^52 - 
        a^2*q^54 + (a^3 - a^2 + a - 2)*q^61 - a^3*q^64 + (a^3 - 2*a^2 + a - 
        1)*q^69 + (a - 1)*q^73 + (a + 1)*q^78 + a^2*q^81 + (a^3 - a)*q^88 + (a^3
        - a^2 + 2*a - 1)*q^94 + a^3*q^96 + (a^3 + a^2)*q^97 + (a^3 - a^2 + a - 
        1)*q^100 + (-a^2 - 1)*q^109 + (-a - 1)*q^117 + (a^3 - a^2 + a - 2)*q^118
        + (-a^2 + 2*a - 1)*q^121 + (-a^3 + a)*q^132 + (-a^3 + a^2 - 2*a + 
        1)*q^141 - q^142 - a^3*q^144 + (a^2 - a + 1)*q^148 + (-a^3 + a^2 - a + 
        1)*q^150 + (a^3 + a)*q^157 + (-a^3 + a^2 - a)*q^166 + (-2*a^3 + a^2 - a 
        + 2)*q^169 + (-a^3 + a^2 - a + 2)*q^177 + (-a^3 - a^2)*q^181 + (-a^3 - 
        1)*q^184 + (a^3 + a^2)*q^193 - a^2*q^196 + (a^3 - a)*q^198 + (a^2 + 
        a)*q^208 + q^213 + (a^3 - a^2 - 1)*q^214 + a^3*q^216 + (-a^2 + a - 
        1)*q^222 + (a^3 - a^2 + a - 1)*q^225 + (-a^3 - a)*q^229 + (a + 1)*q^244 
        + (a^3 - a^2 + a)*q^249 + (2*a^3 - a + 1)*q^253 + (a^3 - a^2 + a - 
        1)*q^256 + (a^2 + 1)*q^262 + (a^3 + 1)*q^276 + (-a + 1)*q^277 + 
        O(q^278),
    q^2 - q^3 - a*q^8 + (a^3 - a^2 + 2*a - 1)*q^11 + a*q^12 - a*q^18 + (a^3 - 
        a)*q^23 + (-a^3 + a^2 - a + 2)*q^26 + a*q^27 + a^2*q^32 + (a^3 - a^2 + a
        - 2)*q^39 + (-a^2 + 1)*q^44 + (-a^3 - 1)*q^47 - a^2*q^48 - a^3*q^50 + 
        (-2*a^3 + a^2 - a + 1)*q^59 + (a^2 - 1)*q^66 + (-a^3 + a^2 - a + 1)*q^71
        + a^2*q^72 + (a^3 - a^2)*q^74 + a^3*q^75 + (a^2 - a + 1)*q^83 + (-a^3 + 
        2*a^2 - a + 1)*q^92 + a*q^98 + (-a^2 + 1)*q^99 + (-a - 1)*q^104 + (-a^3 
        + 1)*q^107 - a^2*q^108 + (-a^3 + a^2)*q^111 + (a^3 - a^2 + a - 2)*q^122 
        - a^3*q^128 + (a^3 - a^2 - 1)*q^131 + (a^3 - 2*a^2 + a - 1)*q^138 + 
        (2*a^3 - a^2 + 2*a)*q^143 + (a - 1)*q^146 - a*q^147 + (a + 1)*q^156 + 
        a^2*q^162 + (a^3 - a^2 - 1)*q^167 + (a^3 - a)*q^176 + (a^3 + a)*q^179 + 
        (-a^3 + a^2 - a + 2)*q^183 + (a^3 - a^2 + 2*a - 1)*q^188 + (-a + 
        1)*q^191 + a^3*q^192 + (a^3 + a^2)*q^194 + (a^3 - a^2 + a - 1)*q^200 + 
        (-a^3 + 2*a^2 - a + 1)*q^207 + (-a^2 - 1)*q^218 + (-a + 1)*q^219 + (a + 
        1)*q^227 + (-a - 1)*q^234 + (a^3 - a^2 + a - 2)*q^236 + (-a^2 + 2*a - 
        1)*q^242 - a^2*q^243 - 2*a^3*q^251 + (-a^3 - a + 1)*q^263 + (-a^3 + 
        a)*q^264 + (-a^3 + 2*a^2 - a + 1)*q^275 + O(q^278)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
852
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
852
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
852
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
852
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
852
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
35*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^29 - q^45 + q^49 - q^57 + q^71 + q^75 + q^87 - q^89 - q^95 - q^103 + 
        2*q^107 - q^109 - q^111 + q^121 - q^151 - q^157 + q^169 + q^171 - q^185 
        - q^191 + q^215 - q^249 + q^267 - q^271 + O(q^278),
    q^2 - q^32 + q^48 - q^58 - q^72 + q^76 - q^90 + q^98 - q^100 + q^108 - q^114
        - q^116 + q^142 - q^144 + q^148 + q^150 + q^174 - q^178 - q^190 - q^206 
        + 2*q^214 + q^216 - q^218 - q^222 + q^242 + q^256 + O(q^278),
    q^3 - q^45 - q^57 + q^75 - q^111 - q^135 + q^147 + q^213 + q^225 - q^249 + 
        q^261 + O(q^278),
    q^4 - q^32 + q^38 - q^40 - q^48 - q^50 + q^54 - q^58 - q^60 + q^74 + q^80 + 
        q^96 + q^108 - q^116 + q^120 + q^152 - q^162 + q^166 - q^178 - q^180 + 
        q^196 + q^202 - q^206 - q^216 - q^218 + q^250 - q^270 + O(q^278),
    q^5 - q^25 + q^27 - q^29 + q^43 - q^45 + q^73 + q^79 - q^89 - q^95 - q^103 -
        q^109 + q^125 + q^131 - q^135 + q^145 - q^151 - q^157 + q^167 + q^179 - 
        q^185 - q^191 - q^215 + q^225 + q^229 + q^245 + q^261 + q^263 - q^271 + 
        O(q^278),
    q^6 - q^60 - q^72 - q^90 + q^108 - q^114 + q^120 + q^150 - q^222 + q^228 - 
        q^270 + O(q^278),
    q^8 - q^64 - q^72 + q^76 - q^80 - q^100 + q^108 - q^116 + q^148 + q^160 + 
        q^216 - q^232 + O(q^278),
    q^9 - q^27 - q^45 - q^57 + q^75 + q^81 + q^87 - q^111 + q^171 - q^243 - 
        q^249 - q^261 + q^267 + O(q^278),
    q^10 - q^32 - q^40 - q^50 + q^54 - q^58 + q^64 + q^80 + q^86 - q^90 + q^146 
        + q^158 - q^178 - q^190 + q^200 - q^206 - q^216 - q^218 + q^232 + q^250 
        + q^262 - q^270 + O(q^278),
    q^12 - q^60 - q^72 + q^108 - q^144 - q^180 + q^216 + q^240 + O(q^278),
    q^15 - q^27 - q^57 + q^81 - q^111 + q^129 + q^171 + q^219 - q^225 + q^237 - 
        q^249 - q^261 + O(q^278),
    q^16 - q^38 + q^50 - q^54 + q^58 - q^74 - q^128 - q^144 + q^152 - q^160 + 
        q^162 - q^166 + q^178 - q^200 - q^202 + q^206 + q^216 + q^218 - q^232 - 
        q^250 + q^270 + O(q^278),
    q^18 + q^48 - q^54 - q^72 - q^90 - q^114 - q^144 + q^150 + q^162 + q^174 + 
        q^216 - q^222 + O(q^278),
    q^19 - q^25 + q^27 - q^29 + q^37 - q^81 + q^83 - q^89 + q^101 - q^103 - 
        q^109 + q^125 - q^135 + q^145 - q^151 - q^157 - q^171 - q^191 + q^199 - 
        q^215 + q^223 + q^225 + q^233 + q^243 + q^251 + q^261 - q^271 + q^277 + 
        O(q^278),
    q^20 - q^32 + q^38 - q^40 - q^50 + q^54 - q^58 + q^74 - q^100 + q^108 - 
        q^116 + q^128 + q^160 - q^162 + q^166 + q^172 - q^178 - q^180 + q^200 + 
        q^202 - q^206 - q^216 - q^218 + q^232 + q^250 - q^270 + O(q^278),
    q^24 - q^48 - q^60 - q^72 + q^96 + q^108 + q^120 - q^192 + q^228 - q^240 + 
        O(q^278),
    q^30 + q^48 - q^54 - q^96 - q^114 - q^120 - q^144 + q^162 + q^192 + q^216 - 
        q^222 + q^240 + q^258 + O(q^278),
    q^36 - q^48 - q^60 + q^96 + q^120 - q^180 - q^216 + O(q^278)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
852
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 35*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^20 - q^24 - q^25 + q^30 - q^38 - q^49 - q^71 - q^74 - q^75 + q^87 + 
        q^90 + 2*q^107 - q^108 + q^121 + q^128 + q^135 - q^160 - q^166 + q^169 -
        q^171 + q^172 + q^190 + q^200 + q^202 - 2*q^215 - q^228 + q^232 - q^250 
        + q^258 - q^267 + O(q^278),
    q^2 + 1/2*q^20 + 1/4*q^24 - 7/12*q^25 + 1/4*q^27 - 7/12*q^29 + 5/12*q^30 + 
        1/12*q^32 - 13/12*q^36 + 7/6*q^37 + 1/6*q^38 + 1/12*q^40 - 2/3*q^43 - 
        7/6*q^45 - 1/6*q^48 - 3/2*q^50 + 2/3*q^54 + 1/3*q^57 - 2/3*q^58 + 
        5/6*q^60 - 7/12*q^64 + 1/12*q^71 - 1/4*q^72 + 2/3*q^73 - 1/3*q^75 + 
        2/3*q^79 + 1/4*q^80 - 1/3*q^81 - 5/6*q^83 - 1/6*q^86 - 1/2*q^87 + 
        7/12*q^89 - 1/12*q^90 + 17/12*q^95 + 3/4*q^96 - q^98 - 5/4*q^100 - 
        7/6*q^101 - 7/12*q^103 - 1/6*q^107 + 1/3*q^108 + 7/12*q^109 - 5/6*q^111 
        + 1/6*q^114 - 1/4*q^116 + 17/12*q^120 + 7/6*q^125 - 1/12*q^128 - 
        5/6*q^129 + 1/6*q^131 + 1/2*q^135 + 7/12*q^142 - 7/12*q^144 + 1/2*q^145 
        + 1/6*q^146 + 7/6*q^148 + 1/2*q^150 + 7/12*q^151 - 2/3*q^152 + 
        7/12*q^157 + 1/6*q^158 - 7/12*q^160 - 1/12*q^162 + 1/6*q^167 + 1/2*q^171
        - 2/3*q^174 + 2/3*q^178 - 1/6*q^179 + 5/12*q^180 + 7/4*q^185 + 2/3*q^190
        - 7/12*q^191 + 1/4*q^192 - 1/4*q^200 - 2/3*q^206 - 7/12*q^213 - 
        7/6*q^214 - 5/12*q^215 + 1/6*q^216 + 1/2*q^218 + 5/6*q^219 - 4/3*q^222 -
        11/12*q^225 - 3/4*q^228 - 2/3*q^229 + 7/12*q^232 - 7/6*q^233 + 5/6*q^237
        + 5/12*q^240 + q^242 - 5/12*q^243 - 1/3*q^249 + 5/6*q^251 - 7/12*q^256 +
        1/12*q^258 + 1/4*q^261 - 7/6*q^262 - 1/6*q^263 + 1/2*q^267 + 1/12*q^270 
        + 7/12*q^271 - 7/6*q^277 + O(q^278),
    q^3 + 3*q^20 - 1/2*q^24 - 1/6*q^25 + 3/2*q^27 - 13/6*q^29 + 5/6*q^30 - 
        5/6*q^32 - 1/6*q^36 + 1/3*q^37 - 5/3*q^38 + 7/6*q^40 - 4/3*q^43 - 
        4/3*q^45 - 1/3*q^48 - 3*q^50 + 1/3*q^54 + 5/3*q^57 - 4/3*q^58 + 2/3*q^60
        - 1/6*q^64 - 5/6*q^71 - 3/2*q^72 + 4/3*q^73 - 5/3*q^75 + 4/3*q^79 - 
        1/2*q^80 - 2/3*q^81 + 1/3*q^83 - 1/3*q^86 + q^87 + 13/6*q^89 + 5/6*q^90 
        + 11/6*q^95 + 1/2*q^96 - 3/2*q^100 - 1/3*q^101 - 1/6*q^103 + 5/3*q^107 +
        2/3*q^108 + 1/6*q^109 - 8/3*q^111 - 2/3*q^114 + 1/2*q^116 + 11/6*q^120 +
        1/3*q^125 + 5/6*q^128 + 1/3*q^129 - 5/3*q^131 + 2*q^135 + 1/6*q^142 - 
        7/6*q^144 - q^145 + 1/3*q^146 - q^147 + 1/3*q^148 + q^150 + 1/6*q^151 - 
        4/3*q^152 + 1/6*q^157 + 1/3*q^158 - 1/6*q^160 - 1/6*q^162 - 5/3*q^167 - 
        q^171 + 2/3*q^174 + 4/3*q^178 + 5/3*q^179 + 5/6*q^180 + 5/2*q^185 + 
        4/3*q^190 - 13/6*q^191 + 1/2*q^192 + 1/2*q^200 - 4/3*q^206 - 7/6*q^213 -
        1/3*q^214 - 23/6*q^215 + 1/3*q^216 + 3*q^218 - 1/3*q^219 - 5/3*q^222 - 
        11/6*q^225 - 5/2*q^228 - 4/3*q^229 + 1/6*q^232 - 1/3*q^233 - 1/3*q^237 +
        5/6*q^240 + 1/6*q^243 + 1/3*q^249 - 1/3*q^251 - 1/6*q^256 + 1/6*q^258 + 
        1/2*q^261 - 1/3*q^262 + 5/3*q^263 - q^267 + 7/6*q^270 + 1/6*q^271 - 
        1/3*q^277 + O(q^278),
    q^4 - q^20 + 1/2*q^24 + 1/6*q^25 + 1/2*q^27 + 1/6*q^29 + 1/6*q^30 - 1/6*q^32
        + 1/6*q^36 - 1/3*q^37 + 2/3*q^38 - 1/6*q^40 - 2/3*q^43 + 1/3*q^45 + 
        1/3*q^48 - 1/3*q^54 - 2/3*q^57 + 1/3*q^58 + 1/3*q^60 + 1/6*q^64 + 
        5/6*q^71 - 1/2*q^72 - 4/3*q^73 + q^74 + 2/3*q^75 + 2/3*q^79 - 1/2*q^80 +
        2/3*q^81 - 1/3*q^83 + 1/3*q^86 - q^87 - 1/6*q^89 - 5/6*q^90 + 1/6*q^95 -
        1/2*q^96 - 1/2*q^100 + 1/3*q^101 + 1/6*q^103 - 5/3*q^107 + 1/3*q^108 - 
        1/6*q^109 - 1/3*q^111 - 1/3*q^114 + 1/2*q^116 + 1/6*q^120 - 1/3*q^125 - 
        5/6*q^128 - 1/3*q^129 - 1/3*q^131 - q^135 - 1/6*q^142 + 1/6*q^144 + 
        q^145 - 1/3*q^146 - 1/3*q^148 - q^150 - 1/6*q^151 + 1/3*q^152 - 
        1/6*q^157 - 1/3*q^158 + 1/6*q^160 + 1/6*q^162 - q^166 - 1/3*q^167 + 
        q^171 - 2/3*q^174 - 1/3*q^178 + 1/3*q^179 + 1/6*q^180 - 1/2*q^185 + 
        2/3*q^190 + 1/6*q^191 + 1/2*q^192 - q^196 - 1/2*q^200 - q^202 + 
        1/3*q^206 + 1/6*q^213 + 1/3*q^214 + 11/6*q^215 - 1/3*q^216 + 1/3*q^219 +
        2/3*q^222 + 5/6*q^225 + 1/2*q^228 + 4/3*q^229 - 1/6*q^232 + 1/3*q^233 + 
        1/3*q^237 + 1/6*q^240 - 1/6*q^243 + 2/3*q^249 + q^250 + 1/3*q^251 + 
        1/6*q^256 - 7/6*q^258 + 1/2*q^261 + 1/3*q^262 + 1/3*q^263 + q^267 - 
        1/6*q^270 - 1/6*q^271 + 1/3*q^277 + O(q^278),
    q^5 + q^20 - 1/2*q^24 - 1/6*q^25 + 1/2*q^27 - 1/6*q^29 + 5/6*q^30 + 1/6*q^32
        - 1/6*q^36 + 1/3*q^37 - 5/3*q^38 + 1/6*q^40 - 1/3*q^43 - 1/3*q^45 - 
        1/3*q^48 + 1/3*q^54 - 1/3*q^57 - 1/3*q^58 - 1/3*q^60 - 1/6*q^64 - 
        5/6*q^71 - 1/2*q^72 + 1/3*q^73 - 2/3*q^75 + 1/3*q^79 - 1/2*q^80 - 
        2/3*q^81 + 1/3*q^83 - 1/3*q^86 + q^87 + 1/6*q^89 - 1/6*q^90 - 1/6*q^95 +
        1/2*q^96 - 1/2*q^100 - 1/3*q^101 - 1/6*q^103 + 5/3*q^107 - 1/3*q^108 + 
        1/6*q^109 - 2/3*q^111 + 1/3*q^114 - 1/2*q^116 - 1/6*q^120 - 2/3*q^125 + 
        5/6*q^128 + 1/3*q^129 - 2/3*q^131 + q^135 + 1/6*q^142 - 1/6*q^144 + 
        1/3*q^146 + 1/3*q^148 + q^150 + 1/6*q^151 + 2/3*q^152 + 1/6*q^157 + 
        1/3*q^158 - 1/6*q^160 - 1/6*q^162 - 2/3*q^167 - q^171 + 2/3*q^174 + 
        1/3*q^178 + 2/3*q^179 - 1/6*q^180 + 1/2*q^185 + 1/3*q^190 - 1/6*q^191 + 
        1/2*q^192 + 1/2*q^200 - 1/3*q^206 - 1/6*q^213 - 1/3*q^214 - 11/6*q^215 +
        1/3*q^216 - 1/3*q^219 - 2/3*q^222 + 1/6*q^225 - 1/2*q^228 - 1/3*q^229 + 
        1/6*q^232 - 1/3*q^233 - 1/3*q^237 + 5/6*q^240 + 1/6*q^243 - q^245 + 
        1/3*q^249 - 1/3*q^251 - 1/6*q^256 + 1/6*q^258 + 1/2*q^261 - 1/3*q^262 + 
        2/3*q^263 - q^267 + 1/6*q^270 + 1/6*q^271 - 1/3*q^277 + O(q^278),
    q^6 + q^20 - 1/2*q^24 - 1/6*q^25 + 3/2*q^27 - 1/6*q^29 + 5/6*q^30 - 5/6*q^32
        - 1/6*q^36 + 1/3*q^37 - 5/3*q^38 + 7/6*q^40 - 4/3*q^43 - 1/3*q^45 - 
        1/3*q^48 - q^50 + 1/3*q^54 + 2/3*q^57 - 4/3*q^58 - 1/3*q^60 - 1/6*q^64 -
        5/6*q^71 - 1/2*q^72 + 4/3*q^73 - 2/3*q^75 + 4/3*q^79 - 1/2*q^80 - 
        2/3*q^81 + 1/3*q^83 - 1/3*q^86 + q^87 + 1/6*q^89 - 1/6*q^90 - 1/6*q^95 +
        1/2*q^96 - 3/2*q^100 - 1/3*q^101 - 1/6*q^103 + 5/3*q^107 - 1/3*q^108 + 
        1/6*q^109 - 5/3*q^111 + 1/3*q^114 + 1/2*q^116 + 5/6*q^120 + 1/3*q^125 + 
        5/6*q^128 + 1/3*q^129 - 5/3*q^131 + q^135 + 1/6*q^142 - 7/6*q^144 - 
        q^145 + 1/3*q^146 + 1/3*q^148 + 1/6*q^151 + 2/3*q^152 + 1/6*q^157 + 
        1/3*q^158 - 1/6*q^160 - 1/6*q^162 - 5/3*q^167 - q^171 + 2/3*q^174 + 
        4/3*q^178 + 5/3*q^179 + 5/6*q^180 + 1/2*q^185 + 4/3*q^190 - 1/6*q^191 + 
        1/2*q^192 + 1/2*q^200 + 2/3*q^206 - 1/6*q^213 - 1/3*q^214 - 11/6*q^215 +
        1/3*q^216 + q^218 - 1/3*q^219 - 2/3*q^222 - 5/6*q^225 - 3/2*q^228 - 
        4/3*q^229 + 1/6*q^232 - 1/3*q^233 - 1/3*q^237 + 5/6*q^240 + 1/6*q^243 - 
        2/3*q^249 - 1/3*q^251 - 1/6*q^256 + 1/6*q^258 - 1/2*q^261 - 1/3*q^262 + 
        5/3*q^263 - q^267 + 1/6*q^270 + 1/6*q^271 - 1/3*q^277 + O(q^278),
    q^8 + 3/2*q^20 - 1/4*q^24 - 1/12*q^25 + 3/4*q^27 - 25/12*q^29 - 1/12*q^30 - 
        5/12*q^32 + 5/12*q^36 + 1/6*q^37 - 5/6*q^38 + 7/12*q^40 - 2/3*q^43 - 
        7/6*q^45 - 1/6*q^48 - 3/2*q^50 + 2/3*q^54 + 4/3*q^57 - 2/3*q^58 + 
        5/6*q^60 - 1/12*q^64 - 5/12*q^71 - 3/4*q^72 + 2/3*q^73 - 1/3*q^75 + 
        2/3*q^79 - 1/4*q^80 - 1/3*q^81 + 1/6*q^83 - 7/6*q^86 + 1/2*q^87 + 
        25/12*q^89 + 5/12*q^90 - 1/12*q^95 + 1/4*q^96 - 3/4*q^100 - 1/6*q^101 - 
        1/12*q^103 + 5/6*q^107 + 1/3*q^108 + 1/12*q^109 - 5/6*q^111 - 5/6*q^114 
        + 1/4*q^116 + 11/12*q^120 + 1/6*q^125 + 5/12*q^128 + 1/6*q^129 - 
        5/6*q^131 + 1/2*q^135 + 1/12*q^142 - 13/12*q^144 - 1/2*q^145 - 5/6*q^146
        + 1/6*q^148 + 1/2*q^150 + 1/12*q^151 - 2/3*q^152 + 1/12*q^157 + 
        7/6*q^158 - 1/12*q^160 + 5/12*q^162 - 5/6*q^167 - 1/2*q^171 + 1/3*q^174 
        + 2/3*q^178 + 5/6*q^179 - 1/12*q^180 + 9/4*q^185 + 2/3*q^190 - 
        1/12*q^191 - 1/4*q^192 - 3/4*q^200 - 2/3*q^206 - 13/12*q^213 - 1/6*q^214
        - 11/12*q^215 + 1/6*q^216 + 3/2*q^218 - 1/6*q^219 - 4/3*q^222 - 
        17/12*q^225 - 5/4*q^228 - 2/3*q^229 + 1/12*q^232 - 1/6*q^233 - 1/6*q^237
        + 11/12*q^240 + 1/12*q^243 + 2/3*q^249 - 1/6*q^251 - 1/12*q^256 - 
        5/12*q^258 + 3/4*q^261 - 1/6*q^262 + 5/6*q^263 - 1/2*q^267 + 7/12*q^270 
        + 1/12*q^271 - 1/6*q^277 + O(q^278),
    q^9 - q^20 - 1/2*q^24 + 5/6*q^25 - 1/2*q^27 + 5/6*q^29 - 7/6*q^30 + 1/6*q^32
        + 5/6*q^36 - 5/3*q^37 + 1/3*q^38 + 1/6*q^40 + 2/3*q^43 + 2/3*q^45 - 
        1/3*q^48 + q^50 - 2/3*q^54 - 1/3*q^57 + 2/3*q^58 - 1/3*q^60 + 5/6*q^64 +
        1/6*q^71 + 1/2*q^72 - 2/3*q^73 + 1/3*q^75 - 2/3*q^79 + 1/2*q^80 + 
        1/3*q^81 + 1/3*q^83 - 1/3*q^86 - 5/6*q^89 - 1/6*q^90 - 7/6*q^95 - 
        1/2*q^96 + 3/2*q^100 - 1/3*q^101 + 5/6*q^103 - 1/3*q^107 - 1/3*q^108 - 
        5/6*q^109 + 4/3*q^111 + 1/3*q^114 - 1/2*q^116 - 7/6*q^120 + 1/3*q^125 - 
        1/6*q^128 + 1/3*q^129 + 1/3*q^131 - q^135 - 5/6*q^142 + 5/6*q^144 - 
        q^145 + 1/3*q^146 - 5/3*q^148 - q^150 - 5/6*q^151 + 2/3*q^152 - 
        5/6*q^157 + 1/3*q^158 + 5/6*q^160 - 1/6*q^162 + 1/3*q^167 + 2/3*q^174 - 
        2/3*q^178 - 1/3*q^179 - 1/6*q^180 - 1/2*q^185 - 2/3*q^190 + 5/6*q^191 - 
        1/2*q^192 - 1/2*q^200 + 2/3*q^206 + 5/6*q^213 + 5/3*q^214 + 7/6*q^215 - 
        2/3*q^216 - q^218 - 1/3*q^219 + 4/3*q^222 + 1/6*q^225 + 3/2*q^228 + 
        2/3*q^229 - 5/6*q^232 - 1/3*q^233 - 1/3*q^237 - 1/6*q^240 + 1/6*q^243 + 
        1/3*q^249 - 1/3*q^251 + 5/6*q^256 + 1/6*q^258 - 1/2*q^261 + 5/3*q^262 - 
        1/3*q^263 + 1/6*q^270 - 5/6*q^271 + 5/3*q^277 + O(q^278),
    q^10 + 3/2*q^20 - 1/4*q^24 - 13/12*q^25 + 3/4*q^27 - 13/12*q^29 + 11/12*q^30
        - 5/12*q^32 - 7/12*q^36 + 1/6*q^37 - 5/6*q^38 + 7/12*q^40 - 2/3*q^43 - 
        1/6*q^45 - 1/6*q^48 - 3/2*q^50 + 2/3*q^54 + 1/3*q^57 - 2/3*q^58 + 
        5/6*q^60 - 1/12*q^64 - 5/12*q^71 - 3/4*q^72 + 2/3*q^73 - 1/3*q^75 - q^76
        + 2/3*q^79 - 1/4*q^80 - 1/3*q^81 + 1/6*q^83 - 1/6*q^86 + 1/2*q^87 + 
        13/12*q^89 + 5/12*q^90 + 11/12*q^95 + 1/4*q^96 - 3/4*q^100 - 1/6*q^101 -
        13/12*q^103 + 5/6*q^107 + 1/3*q^108 + 13/12*q^109 - 11/6*q^111 - 
        5/6*q^114 + 1/4*q^116 + 11/12*q^120 + 1/6*q^125 + 5/12*q^128 + 1/6*q^129
        - 5/6*q^131 + 3/2*q^135 + 1/12*q^142 - 13/12*q^144 - 1/2*q^145 + 
        1/6*q^146 + 7/6*q^148 + 1/2*q^150 + 13/12*q^151 - 2/3*q^152 + 
        13/12*q^157 + 1/6*q^158 - 13/12*q^160 - 7/12*q^162 - 5/6*q^167 - 
        1/2*q^171 + 1/3*q^174 + 2/3*q^178 + 5/6*q^179 - 1/12*q^180 + 5/4*q^185 +
        2/3*q^190 - 13/12*q^191 + 3/4*q^192 + 1/4*q^200 - 2/3*q^206 - 
        13/12*q^213 - 1/6*q^214 - 23/12*q^215 + 1/6*q^216 + 3/2*q^218 - 
        1/6*q^219 - 4/3*q^222 - 17/12*q^225 - 5/4*q^228 - 2/3*q^229 + 1/12*q^232
        - 1/6*q^233 - 1/6*q^237 - 1/12*q^240 + 1/12*q^243 - 1/3*q^249 - q^250 - 
        1/6*q^251 - 1/12*q^256 + 7/12*q^258 + 3/4*q^261 - 7/6*q^262 + 5/6*q^263 
        - 1/2*q^267 + 7/12*q^270 + 13/12*q^271 - 1/6*q^277 + O(q^278),
    q^12 + q^20 - 1/2*q^24 - 1/2*q^25 + 1/2*q^27 - 1/2*q^29 + 1/2*q^30 - 
        1/2*q^32 - 1/2*q^36 + q^37 - q^38 - 1/2*q^40 - q^45 - q^50 + q^54 - 
        1/2*q^64 - 1/2*q^71 - 1/2*q^72 + 1/2*q^80 + q^83 - q^86 + q^87 + 
        1/2*q^89 + 1/2*q^90 - 1/2*q^95 + 1/2*q^96 - 1/2*q^100 - q^101 - 
        1/2*q^103 + q^107 + 1/2*q^109 - q^111 - 1/2*q^116 + 1/2*q^120 + q^125 + 
        1/2*q^128 - q^129 - q^131 + q^135 + 1/2*q^142 - 1/2*q^144 + q^145 + 
        q^146 + q^148 + q^150 + 1/2*q^151 + 1/2*q^157 + q^158 - 1/2*q^160 - 
        1/2*q^162 - q^167 - q^171 + q^179 - 1/2*q^180 + 3/2*q^185 - 1/2*q^191 + 
        1/2*q^192 - 1/2*q^200 - 1/2*q^213 - q^214 - 3/2*q^215 + q^218 - q^219 - 
        q^222 - 1/2*q^225 - 1/2*q^228 + 1/2*q^232 - q^233 + q^237 + 1/2*q^240 + 
        1/2*q^243 - q^251 - 1/2*q^256 + 1/2*q^258 + 1/2*q^261 - q^262 + q^263 - 
        q^267 - 1/2*q^270 + 1/2*q^271 - q^277 + O(q^278),
    q^15 + 1/3*q^25 + 1/3*q^29 + 1/3*q^30 - 1/3*q^32 + 1/3*q^36 - 2/3*q^37 - 
        2/3*q^38 - 1/3*q^40 + 2/3*q^43 + 2/3*q^45 - 1/3*q^48 - 2/3*q^54 - 
        1/3*q^57 + 2/3*q^58 - 1/3*q^60 + 1/3*q^64 - 1/3*q^71 - 2/3*q^73 - 
        2/3*q^75 - 2/3*q^79 - q^80 + 1/3*q^81 - 2/3*q^83 + 2/3*q^86 - 1/3*q^89 +
        1/3*q^90 + 1/3*q^95 + q^100 + 2/3*q^101 + 1/3*q^103 + 2/3*q^107 - 
        1/3*q^108 - 1/3*q^109 + 1/3*q^111 - 2/3*q^114 + q^116 - 2/3*q^120 - 
        2/3*q^125 + 1/3*q^128 + 1/3*q^129 - 2/3*q^131 - 1/3*q^142 + 1/3*q^144 - 
        2/3*q^146 - 2/3*q^148 - 1/3*q^151 + 2/3*q^152 - 1/3*q^157 - 2/3*q^158 + 
        1/3*q^160 + 1/3*q^162 - 2/3*q^167 - q^171 + 2/3*q^174 - 2/3*q^178 + 
        2/3*q^179 + 1/3*q^180 - q^185 - 2/3*q^190 + 1/3*q^191 + q^200 + 
        2/3*q^206 + 1/3*q^213 + 2/3*q^214 - 1/3*q^215 - 2/3*q^216 - 1/3*q^219 + 
        4/3*q^222 + 2/3*q^225 + 2/3*q^229 - 1/3*q^232 + 2/3*q^233 - 1/3*q^237 - 
        2/3*q^240 - 1/3*q^243 + 1/3*q^249 + 2/3*q^251 + 1/3*q^256 - 1/3*q^258 + 
        2/3*q^262 + 2/3*q^263 - 1/3*q^270 - 1/3*q^271 + 2/3*q^277 + O(q^278),
    q^16 + 2*q^20 - 1/2*q^24 + 5/6*q^25 + 3/2*q^27 - 7/6*q^29 + 5/6*q^30 - 
        5/6*q^32 - 1/6*q^36 + 1/3*q^37 - 5/3*q^38 + 7/6*q^40 - 4/3*q^43 - 
        4/3*q^45 - 1/3*q^48 - 2*q^50 + 1/3*q^54 + 5/3*q^57 - 7/3*q^58 - 1/3*q^60
        - 1/6*q^64 - 5/6*q^71 - 1/2*q^72 + 4/3*q^73 - 2/3*q^75 + 4/3*q^79 - 
        1/2*q^80 - 2/3*q^81 + 1/3*q^83 - 1/3*q^86 + q^87 + 7/6*q^89 - 1/6*q^90 +
        5/6*q^95 + 1/2*q^96 - 3/2*q^100 - 1/3*q^101 - 7/6*q^103 + 5/3*q^107 + 
        2/3*q^108 - 5/6*q^109 - 8/3*q^111 + 1/3*q^114 + 1/2*q^116 + 11/6*q^120 +
        1/3*q^125 + 5/6*q^128 + 1/3*q^129 - 5/3*q^131 + 2*q^135 + 1/6*q^142 - 
        7/6*q^144 - q^145 + 1/3*q^146 + 1/3*q^148 + q^150 + 7/6*q^151 - 
        1/3*q^152 - 5/6*q^157 + 1/3*q^158 - 1/6*q^160 - 1/6*q^162 - 5/3*q^167 - 
        q^171 - q^172 + 2/3*q^174 + 7/3*q^178 + 5/3*q^179 + 5/6*q^180 + 
        3/2*q^185 + 1/3*q^190 - 7/6*q^191 + 1/2*q^192 + 1/2*q^200 - 1/3*q^206 - 
        1/6*q^213 - 1/3*q^214 - 17/6*q^215 + 1/3*q^216 + 2*q^218 - 1/3*q^219 - 
        2/3*q^222 - 5/6*q^225 - 5/2*q^228 - 4/3*q^229 + 1/6*q^232 - 1/3*q^233 - 
        1/3*q^237 + 5/6*q^240 + 1/6*q^243 + 1/3*q^249 - 1/3*q^251 - 1/6*q^256 + 
        1/6*q^258 - 1/2*q^261 - 1/3*q^262 + 5/3*q^263 - q^267 + 1/6*q^270 + 
        7/6*q^271 - 1/3*q^277 + O(q^278),
    q^18 + 2*q^20 - q^24 + q^30 - 2*q^38 - q^48 - q^60 - 2*q^71 - 2*q^74 - 
        2*q^75 + 2*q^87 + q^90 + 4*q^107 - q^108 + 2*q^128 + 2*q^135 + q^150 - 
        2*q^171 + q^174 + 2*q^200 - 4*q^215 - q^228 + q^258 - 2*q^267 + 
        O(q^278),
    q^19 + 1/2*q^20 + 1/4*q^24 - 1/4*q^25 + 1/4*q^27 - 1/4*q^29 + 3/4*q^30 - 
        1/4*q^32 + 1/4*q^36 - 1/2*q^37 - 1/2*q^38 + 3/4*q^40 + 1/2*q^45 - 
        1/2*q^48 - 1/2*q^50 + 1/2*q^60 - 1/4*q^64 - 1/4*q^71 - 1/4*q^72 - q^75 -
        q^76 - 3/4*q^80 - 1/2*q^83 + 1/2*q^86 - 1/2*q^87 + 1/4*q^89 + 1/4*q^90 +
        3/4*q^95 - 1/4*q^96 - 1/4*q^100 + 1/2*q^101 - 1/4*q^103 + 1/2*q^107 + 
        1/4*q^109 - 1/2*q^111 - 1/2*q^114 + 3/4*q^116 - 1/4*q^120 - 1/2*q^125 + 
        1/4*q^128 + 1/2*q^129 - 1/2*q^131 + 1/2*q^135 - 3/4*q^142 - 1/4*q^144 - 
        1/2*q^145 - 1/2*q^146 - 1/2*q^148 - 1/2*q^150 + 1/4*q^151 + 1/4*q^157 - 
        1/2*q^158 - 1/4*q^160 + 1/4*q^162 - 1/2*q^167 - 1/2*q^171 + q^174 + 
        1/2*q^179 + 3/4*q^180 - 1/4*q^185 - 1/4*q^191 + 1/4*q^192 + q^199 + 
        3/4*q^200 - 1/4*q^213 + 3/2*q^214 - 3/4*q^215 - 1/2*q^216 + 1/2*q^218 - 
        1/2*q^219 - q^223 - 1/4*q^225 - 3/4*q^228 + 1/4*q^232 + 1/2*q^233 - 
        1/2*q^237 - 1/4*q^240 + 1/4*q^243 + 1/2*q^251 + 3/4*q^256 - 1/4*q^258 + 
        1/4*q^261 - 1/2*q^262 + 1/2*q^263 + 1/2*q^267 + 3/4*q^270 + 1/4*q^271 + 
        1/2*q^277 + O(q^278)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
853
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
852
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
853
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
284
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
853
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
71*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
853
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
213*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 20*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 20*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 20*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 30*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
854
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 30*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^5 + a^3 + a^2 - a)*q^4 + (a^5 - a^3)*q^10 + (-2*a^4 + a^3 + a^2 + a 
        - 2)*q^16 - a^2*q^19 + (a^4 - a)*q^25 + (-a^5 + a)*q^31 + (-a^5 + 2*a^4 
        - a^3 - a + 1)*q^34 + (a^5 + a^4 - a^3 - 2*a^2 + 1)*q^40 + (a^5 - a^4 + 
        a)*q^46 + (a^3 - 1)*q^49 + a*q^61 + (2*a^5 - a^4 - 2*a^3 - a^2 + 
        2*a)*q^64 + (-a^5 + a^3 - a)*q^76 + (2*a^5 - a^2)*q^79 + (-a^5 + a^2 - 
        1)*q^85 + (a^4 + a^2 - a)*q^94 + (-a^5 + a^3 + a^2 - a - 1)*q^100 + 
        (-a^3 - a^2 + a + 1)*q^106 + (-a^4 - a^3)*q^109 + q^115 + a^3*q^121 + 
        (-a^5 + a^3)*q^124 + (-2*a^5 + 2*a^3 + a^2 - 2*a)*q^136 + (-a^3 + 
        a^2)*q^139 + (-a^5 + a^2 - a)*q^151 + (-a^5 + a^4 + a^3 - a^2 - 2*a + 
        1)*q^160 + (a^5 - a^4 + a^2 + a - 1)*q^166 + a^5*q^169 + (-a^3 + a^2 + 
        1)*q^181 + (a^5 + a^4 - a^3 - a^2 + a + 1)*q^184 + (a^5 - a^4 + a)*q^190
        + (a^5 - a^4 + a - 1)*q^196 - a^4*q^199 + (-a^4 + a^3 - 1)*q^211 + (-a^5
        - a^4 + a^3 + a^2)*q^214 + O(q^226),
    q^2 + 1/3*(-a^5 - 2*a^4 - a^3 + 2*a^2 + a + 2)*q^5 + (-a^5 + a^3 + a^2)*q^8 
        + 1/3*(a^5 + 2*a^4 - 2*a^3 + a^2 - a + 1)*q^17 + 1/3*(a^5 - a^4 - 2*a^3 
        + a^2 + 2*a + 1)*q^20 + 1/3*(a^5 - a^4 + a^3 - 2*a^2 - a - 2)*q^23 + 
        (-a^4 + a^3 + a^2 + a - 1)*q^32 - a^2*q^38 + 1/3*(-a^5 - 2*a^4 - 4*a^3 -
        a^2 - 2*a + 2)*q^47 + (a^4 - a)*q^50 + (a^5 + a^4 + a^3 - 1)*q^53 + 
        (-a^5 + a)*q^62 + 1/3*(-a^5 + 4*a^4 - a^3 - a^2 - 2*a + 2)*q^68 + 
        1/3*(2*a^5 + a^4 - a^3 - 4*a^2 + a + 2)*q^80 + 1/3*(-a^5 - 2*a^4 - a^3 -
        a^2 - 2*a - 1)*q^83 + 1/3*(2*a^5 - 2*a^4 - a^3 - a^2 + a - 1)*q^92 + 
        1/3*(a^5 - a^4 + a^3 - 2*a^2 - a - 2)*q^95 + (a^3 - 1)*q^98 + (a^5 + a^4
        + a^3 - a^2 - a - 1)*q^107 + (-a^5 - a^3)*q^113 + a*q^122 + 1/3*(a^5 + 
        2*a^4 + a^3 + a^2 - a - 2)*q^125 + (a^5 - a^3 + a)*q^128 + 1/3*(a^5 + 
        2*a^4 - 2*a^3 - 2*a^2 - 4*a - 2)*q^137 + (-a^5 - a)*q^152 + (-a^5 - a^4 
        + a)*q^155 + (2*a^5 - a^2)*q^158 + (a^4 + a^3 - 1)*q^167 + (-a^5 + a^2 -
        1)*q^170 + (-a^4 + a^2 + a + 1)*q^173 + 1/3*(-2*a^5 - a^4 - 2*a^3 + a^2 
        - a + 1)*q^188 + 1/3*(2*a^5 + a^4 + 2*a^3 + 2*a^2 + a + 2)*q^197 + (a^3 
        - a - 1)*q^200 + (a^5 + a^4 - a^2)*q^212 + (-a^4 - a^3)*q^218 + O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^4 + a^3 + a^2 + a - 1)*q^4 + (a^3 - a - 1)*q^10 + (a^4 - a^3 - a^2 +
        1)*q^16 + a^4*q^19 - a^5*q^25 + (a^2 - a)*q^31 + (-a^3 - a^2 - a)*q^34 +
        (a^5 - a^3 - a^2 + a)*q^40 + (a^5 + a)*q^46 - a^3*q^49 - a^2*q^61 + 
        (-a^5 - a^4 + a^2)*q^64 + (a^3 + a^2 - a - 1)*q^76 - a^4*q^79 + (-a^4 + 
        a + 1)*q^85 + (-a^5 + a^4 + 2)*q^94 + (-a^4 - a^3 + a^2 + a)*q^100 + 
        (a^4 + a^3 + a^2)*q^106 + (a^5 + a^3 - a^2 - 1)*q^109 - q^115 + (a^3 - 
        1)*q^121 + (2*a^5 - a^3 - 2*a^2 + a + 1)*q^124 - a^4*q^136 + (a^4 + a^3 
        - 1)*q^139 + (-a^4 + a^2 + a)*q^151 + (-a^5 + a^4 + a^3 + a^2 - a)*q^160
        + (-a^5 + a^4 - a + 1)*q^166 - a*q^169 + (a^4 - a^3)*q^181 + (-a^5 + a^4
        + a^3 - a)*q^184 + (-a^5 - a)*q^190 + (-a^5 - a + 1)*q^196 + (-a^5 + 
        a^2)*q^199 + (a^5 - a^3 - a^2)*q^211 + (a^5 + a^4 + a^3 - a^2 - a - 
        1)*q^214 + O(q^226),
    q^2 + (a^3 - a^2 + a - 1)*q^5 + (-a^4 + a^3 + a - 1)*q^8 + (2*a^5 - a^4 - 
        a^2 - a + 1)*q^17 + (-a^5 + a^4 + a^2 - a - 1)*q^20 + (-a^5 + a^3 + a - 
        1)*q^23 + (-a^5 + a^4 - a^3)*q^32 + a^4*q^38 + (-a^4 + a)*q^47 - 
        a^5*q^50 + (a^5 - a^3 + a^2 - a + 2)*q^53 + (a^2 - a)*q^62 + (-a^4 + a^3
        - 2*a^2 + a - 1)*q^68 + (a^5 - a^3 + 1)*q^80 + (2*a^5 - a^4 - a^3 - a + 
        2)*q^83 + (a^4 - a^3 + a^2)*q^92 + (a^5 - a^3 - a + 1)*q^95 - a^3*q^98 +
        (-a^5 + a^4 + a^3 + a - 2)*q^107 + (-2*a^5 + 2*a^4 - a^3 + 2*a^2 - a - 
        1)*q^113 - a^2*q^122 + (a^4 - a^3 + a^2 - a + 1)*q^125 + (-a^3 + a^2 - a
        + 1)*q^128 - a*q^137 + (a^2 - a)*q^152 + (a^5 - 2*a^4 + 2*a^3 - 2*a^2 + 
        a)*q^155 - a^4*q^158 + (-a^5 + a^3 - a^2 + 2*a - 2)*q^167 + (-a^4 + a + 
        1)*q^170 + (-a^5 + a^4 - 1)*q^173 + (-a^5 + a^4 + 1)*q^188 - a^5*q^197 +
        (-a^3 + a^2)*q^200 + (a^5 - a^4 + 2*a^3 - a^2 + a)*q^212 + (a^5 + a^3 - 
        a^2 - 1)*q^218 + O(q^226),
    q^3 + (-a^4 + a^3 + a^2 + a - 1)*q^12 + (-a^4 - a^3 + a)*q^18 + (a^5 - 
        a^2)*q^27 + (a^3 - a - 1)*q^30 + a^2*q^45 + (a^4 - a^3 - a^2 + 1)*q^48 +
        a^4*q^57 + (-a^5 + a^4 - a + 1)*q^72 - a^5*q^75 + (a^2 - a)*q^93 + (-a^3
        - a^2 - a)*q^102 + (-a^5 + a^3 - a - 1)*q^108 + (a^5 - a^3 - a^2 + 
        a)*q^120 + (a^5 + a)*q^138 - a^3*q^147 + (a^4 + a^3 - 1)*q^153 + (a^3 + 
        a^2 - 1)*q^162 + (a^5 + a^4 - a^2 + 1)*q^180 - a^2*q^183 + (-a^5 - a^4 +
        a^2)*q^192 + (-a^3 + 1)*q^207 + O(q^226),
    q^6 + (-a^5 + a^4 - a^3 + a^2 - a)*q^9 + (a^3 - a^2 + a - 1)*q^15 + (-a^4 + 
        a^3 + a - 1)*q^24 + (a^5 - a^4 - a^3 + 1)*q^36 + (2*a^5 - a^4 - a^2 - a 
        + 1)*q^51 + (a^5 - a^2)*q^54 + (-a^5 + a^4 + a^2 - a - 1)*q^60 + (-a^5 +
        a^3 + a - 1)*q^69 + (a^4 - a^3 + a^2 - a + 1)*q^81 + a^2*q^90 + (-a^5 + 
        a^4 - a^3)*q^96 + a^4*q^114 + (-a^5 + a - 1)*q^135 + (-a^4 + a)*q^141 + 
        (a^3 - a^2)*q^144 - a^5*q^150 + (a^5 - a^3 + a^2 - a + 2)*q^159 + (-a^4 
        + a^3 - a^2 + a)*q^171 + (a^2 - a)*q^186 + (-a^4 + a^3 - 2*a^2 + a - 
        1)*q^204 + (-a^5 + a^3 - 1)*q^216 + (a^5 - a^4 + a^3 - a^2)*q^225 + 
        O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + q^7 + (a - 2)*q^13 + (a - 1)*q^16 - q^19 + a*q^25 - a*q^28 + 
        (-2*a + 1)*q^31 + (2*a - 1)*q^37 + (-a + 1)*q^43 + (a + 1)*q^52 - a*q^61
        + q^64 + (-a + 2)*q^67 + (-a + 1)*q^73 + a*q^76 + (-a - 1)*q^79 + (a - 
        2)*q^91 + (-a + 1)*q^100 + (2*a - 1)*q^103 + (a - 1)*q^112 - q^121 + (a 
        - 2)*q^124 - q^133 - a*q^139 + (-a + 2)*q^148 + (a - 1)*q^157 + q^163 + 
        (-2*a + 2)*q^169 - q^172 + a*q^175 + (a + 1)*q^193 + a*q^199 + (-2*a + 
        1)*q^208 + (a + 1)*q^211 + (-2*a + 1)*q^217 + (-a - 1)*q^223 + O(q^226),
    q^5 - a*q^20 + q^35 + (a - 2)*q^65 + (a - 1)*q^80 - q^95 + a*q^125 - a*q^140
        + (-2*a + 1)*q^155 + (2*a - 1)*q^185 + (-a + 1)*q^215 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - 2*a*q^4 + (-a + 2)*q^10 + (a - 1)*q^16 + (-a + 1)*q^19 + a*q^25 + (2*a -
        1)*q^31 + (a - 2)*q^34 + (-a - 1)*q^40 + (4*a - 2)*q^46 + q^49 - 
        2*a*q^61 - q^64 - 2*q^76 - a*q^85 + (2*a - 1)*q^94 + (-2*a + 2)*q^100 + 
        3*q^106 + (a + 1)*q^109 - 2*q^115 - q^121 + (-2*a + 4)*q^124 + (a + 
        1)*q^136 + a*q^139 + (-2*a + 1)*q^151 + (-a - 1)*q^166 + (-a + 1)*q^169 
        + (a - 2)*q^181 + (-2*a + 4)*q^184 + (-2*a + 1)*q^190 - 2*a*q^196 - 
        2*a*q^199 + (a + 1)*q^211 + (3*a - 3)*q^214 + O(q^226),
    q^2 + 1/3*(2*a - 1)*q^5 - a*q^8 + 1/3*(-2*a + 1)*q^17 + 1/3*(-2*a + 4)*q^20 
        + 1/3*(-2*a - 2)*q^23 + (-a + 1)*q^38 + 1/3*(-a - 1)*q^47 + a*q^50 + (a 
        - 1)*q^53 + (2*a - 1)*q^62 + 1/3*(2*a - 4)*q^68 + 1/3*(-a - 1)*q^80 + 
        1/3*(-a + 2)*q^83 + 1/3*(8*a - 4)*q^92 + 1/3*(a + 1)*q^95 + q^98 - 
        a*q^107 + a*q^113 - 2*a*q^122 + 1/3*(a - 2)*q^125 - q^128 + 1/3*(a + 
        1)*q^137 - q^152 - q^155 + (-a + 1)*q^167 - a*q^170 + 1/3*(4*a - 
        2)*q^188 + 1/3*(-a + 2)*q^197 + (-a + 1)*q^200 + 2*q^212 + (a + 1)*q^218
        + O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^4 - q^7 + (-a + 1)*q^13 - a*q^16 + q^19 + (a - 1)*q^25 + (-a +
        1)*q^28 - q^31 - q^37 + a*q^43 + a*q^52 + (-a + 1)*q^61 + q^64 + (-a + 
        1)*q^67 + a*q^73 + (a - 1)*q^76 + a*q^79 + (a - 1)*q^91 - 2*a*q^97 - 
        a*q^100 - q^103 - 2*a*q^109 + a*q^112 + q^121 + (-a + 1)*q^124 + (2*a - 
        2)*q^127 - q^133 + (-a + 1)*q^139 + (-a + 1)*q^148 + 2*q^151 + a*q^157 -
        q^163 - q^172 + (-a + 1)*q^175 + (2*a - 2)*q^181 + a*q^193 + (-a + 
        1)*q^199 - q^208 + a*q^211 + q^217 + a*q^223 + O(q^226),
    q^3 - a*q^9 + (a - 1)*q^12 - q^21 + (a - 1)*q^27 + q^36 + (-a + 1)*q^39 - 
        a*q^48 + q^57 + a*q^63 + (a - 1)*q^75 + q^81 + (-a + 1)*q^84 - q^93 - 
        a*q^108 - q^111 - q^117 + a*q^129 + (a - 1)*q^144 + a*q^156 - a*q^171 + 
        (-a + 1)*q^183 + (-a + 1)*q^189 + q^192 + (-a + 1)*q^201 + a*q^219 + 
        q^225 + O(q^226),
    q^5 + (a - 1)*q^20 - q^35 + (-a + 1)*q^65 - a*q^80 + q^95 + (a - 1)*q^125 + 
        (-a + 1)*q^140 - q^155 - q^185 + a*q^215 + O(q^226),
    q^15 - a*q^45 + (a - 1)*q^60 - q^105 + (a - 1)*q^135 + q^180 + (-a + 
        1)*q^195 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^2 + 1)*q^10 + (a^2 + a - 1)*q^13 - a^2*q^16 + (a^3 - a)*q^19 + (a^3 
        + a^2 - a)*q^22 + a*q^25 - q^31 - a*q^34 + (-a^3 - 1)*q^37 + (-a^3 + 
        a)*q^40 + (-a^3 + a^2 + a)*q^43 - a^3*q^49 + (a^3 - a^2 - a)*q^55 - 
        a^3*q^64 + (a^2 - a - 1)*q^82 + (-a^2 + 1)*q^85 + (a^3 - 1)*q^88 + 
        a^3*q^94 + q^106 + (a^3 - a)*q^109 + (a^2 + a - 1)*q^118 + q^121 + (-a^2
        + a + 1)*q^127 + (-a^3 + a^2 + a)*q^130 - a^2*q^136 + a*q^139 + q^151 + 
        (-a^3 + 1)*q^163 - a^2*q^166 + (a^3 - a)*q^169 + (a^2 - 1)*q^181 + (a^3 
        + a^2 - a)*q^187 + a^3*q^190 + (a^3 - a^2 - a)*q^193 + (a^3 + 1)*q^202 +
        (-a^2 - a + 1)*q^205 + (-a^3 + 1)*q^208 - a^2*q^211 + (-a^3 + a)*q^214 +
        O(q^226),
    q^2 + a^3*q^5 + a*q^8 + (-a^2 - a + 1)*q^11 + q^17 + (a^2 + a - 1)*q^26 + 
        (a^3 - a)*q^38 + (-a^3 + 1)*q^41 - a^2*q^47 + a*q^50 + (a^3 - a)*q^53 + 
        (-a^3 - 1)*q^59 - q^62 + (a^2 - a - 1)*q^65 + (-a^3 - 1)*q^74 + (-a^3 + 
        a)*q^80 + a*q^83 + (-a^3 + a^2 + a)*q^86 - a^2*q^95 - a^3*q^98 + (a^3 - 
        a^2 - a)*q^101 + (a^3 + a^2 - a)*q^104 + (a^2 - 1)*q^107 + (a^3 - a^2 - 
        a)*q^110 - a*q^113 + (a^2 - 1)*q^125 - a^3*q^128 + (a^3 - 1)*q^131 + 
        a^2*q^137 + (-2*a^3 + 2*a)*q^143 - q^152 - a^3*q^155 - a^2*q^167 + (-a^2
        + 1)*q^170 + (a^3 - 1)*q^176 + (-a^2 + a + 1)*q^179 + (-a^3 + 1)*q^185 +
        (-a^2 - a + 1)*q^191 + (a^2 - 1)*q^197 + a^2*q^200 + (a^3 + 1)*q^209 + 
        (a^3 + a^2 - a)*q^215 + (a^3 - a)*q^218 + (a^2 + a - 1)*q^221 + O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^4 + (a - 1)*q^10 + a*q^16 - q^19 - q^31 + (-2*a + 2)*q^34 - 
        a*q^55 + (-a + 1)*q^61 - q^64 + (a - 1)*q^70 + (-a + 1)*q^76 + a*q^79 + 
        (-a + 1)*q^85 + (-a + 1)*q^91 + 2*q^106 - q^121 + (-a + 1)*q^124 - 
        a*q^130 + (a - 1)*q^139 + 2*a*q^154 - q^160 + (a - 1)*q^175 + (-a + 
        1)*q^190 + (-a + 1)*q^199 + (a - 1)*q^205 + a*q^211 - 2*a*q^214 + q^220 
        + O(q^226),
    q^2 + (a - 1)*q^11 + q^14 - q^17 + (a - 1)*q^26 + a*q^32 + q^35 - q^38 + 
        q^41 - a*q^44 + (-a + 1)*q^50 - a*q^53 - q^62 + (a - 1)*q^65 + (-a + 
        1)*q^68 - q^71 + q^74 + (-a + 1)*q^77 + a*q^86 - a*q^89 + (a - 1)*q^107 
        - 2*a*q^110 - q^119 + (-a + 1)*q^122 + (-a + 1)*q^125 + (a - 1)*q^134 + 
        (a - 1)*q^140 + a*q^143 - a*q^146 - q^149 + a*q^158 + (a - 1)*q^164 - 
        q^176 + (-a + 1)*q^182 + q^185 + q^206 + (-a + 1)*q^209 + q^212 + 
        a*q^215 + (-a + 1)*q^221 + a*q^224 + O(q^226),
    q^5 + (-2*a + 2)*q^11 - 2*q^14 + (a - 1)*q^20 + (-2*a + 2)*q^26 - q^35 - 
        2*q^41 + 2*a*q^44 + (2*a - 2)*q^50 + (-a + 1)*q^65 + 2*q^71 - 2*q^74 + 
        a*q^80 - 2*a*q^86 + 2*a*q^89 - q^95 + 2*a*q^110 + 2*q^119 + (a - 
        1)*q^125 + (-2*a + 2)*q^134 + (-a + 1)*q^140 + 2*a*q^146 + 2*q^149 - 
        q^155 + (-2*a + 2)*q^164 + (-2*a + 2)*q^170 + 2*q^176 - q^185 - 2*q^206 
        + (2*a - 2)*q^209 - a*q^215 + (2*a - 2)*q^221 - 2*a*q^224 + O(q^226),
    q^7 + (-a + 1)*q^10 + (a - 1)*q^13 - 2*a*q^22 + (-a + 1)*q^25 + (a - 1)*q^28
        + q^37 + a*q^43 - a*q^52 - a*q^55 + (a - 1)*q^67 + (a - 1)*q^70 - a*q^73
        + (2*a - 2)*q^82 + (a - 1)*q^85 + a*q^100 + q^103 + a*q^112 - a*q^130 - 
        q^133 + (-2*a + 2)*q^142 + (a - 1)*q^148 + a*q^157 + q^160 + q^163 - 
        q^172 + 2*q^178 + 2*a*q^187 + (a - 1)*q^190 - a*q^193 + (a - 1)*q^205 - 
        q^208 - q^217 + q^220 - a*q^223 + O(q^226)
]
;
Bo:=
[
    q + (-a + 1)*q^10 + a*q^16 - a*q^19 + (a - 1)*q^25 - q^31 + (a - 1)*q^34 - 
        a*q^40 - 2*q^46 + q^49 + (2*a - 2)*q^61 + q^64 - 2*a*q^79 + (-a + 
        1)*q^85 + q^94 + q^106 + a*q^109 + 2*q^115 + q^121 + a*q^136 + (-a + 
        1)*q^139 - q^151 - a*q^166 - a*q^169 + (-a + 1)*q^181 + (2*a - 2)*q^184 
        - q^190 + (2*a - 2)*q^199 + a*q^211 - a*q^214 + O(q^226),
    q^2 - q^5 + (-a + 1)*q^8 + q^17 + 2*a*q^23 - a*q^38 - a*q^47 + (a - 1)*q^50 
        - a*q^53 - q^62 - a*q^80 + (a - 1)*q^83 + a*q^95 + q^98 + (a - 1)*q^107 
        + (a - 1)*q^113 + (2*a - 2)*q^122 + (-a + 1)*q^125 + q^128 - a*q^137 - 
        q^152 + q^155 - 2*a*q^158 - a*q^167 + (-a + 1)*q^170 - 2*q^173 + (a - 
        1)*q^197 + a*q^200 + a*q^218 + O(q^226),
    q^3 + (-a + 1)*q^18 + (a - 1)*q^27 + (-a + 1)*q^30 + (a - 1)*q^45 + a*q^48 -
        a*q^57 - a*q^72 + (a - 1)*q^75 - q^93 + (a - 1)*q^102 - a*q^120 - 
        2*q^138 + q^147 + (-a + 1)*q^153 + a*q^162 + (2*a - 2)*q^183 + q^192 + 
        2*q^207 + O(q^226),
    q^6 - q^9 - q^15 + (-a + 1)*q^24 + q^51 + (a - 1)*q^54 + 2*a*q^69 + (-a + 
        1)*q^81 + (a - 1)*q^90 - a*q^114 + (-a + 1)*q^135 - a*q^141 - a*q^144 + 
        (a - 1)*q^150 - a*q^159 + a*q^171 - q^186 + a*q^216 + (-a + 1)*q^225 + 
        O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - 2*q^7 + q^16 - q^19 - q^25 - 2*q^28 + 2*q^43 + 3*q^49 - 2*q^61 + 
        q^64 + 2*q^73 - q^76 - q^100 - 2*q^112 - q^121 + 2*q^133 - 2*q^139 - 
        2*q^157 - 2*q^163 + q^169 + 2*q^172 + 2*q^175 + 3*q^196 + 2*q^199 + 
        O(q^226),
    q^5 + q^20 - 2*q^35 + q^80 - q^95 - q^125 - 2*q^140 + 2*q^215 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^6 - a*q^7 - q^9 + a*q^11 + a*q^16 + (-a + 1)*q^23 + q^24 + a*q^25 - 
        q^26 - a*q^38 + (a - 1)*q^39 + (a - 1)*q^42 - a*q^43 - a*q^47 + a*q^54 -
        q^57 + (a - 1)*q^58 + a*q^61 + q^62 + a*q^63 - q^64 + (-a + 1)*q^66 + 
        (-a + 1)*q^77 + q^81 - q^82 + a*q^83 + a*q^87 + (-a + 1)*q^93 - a*q^99 -
        a*q^101 + (-a + 1)*q^104 + (-a + 1)*q^112 + q^118 + (a - 1)*q^123 - 
        q^125 + (a - 1)*q^131 + q^134 + a*q^137 - q^138 + (-a + 1)*q^139 - 
        a*q^144 + (a - 1)*q^149 + (-a + 1)*q^150 + q^152 + (a - 1)*q^157 + (a - 
        1)*q^158 - q^161 - a*q^168 + (-a + 1)*q^175 + (a - 1)*q^176 + (-a + 
        1)*q^177 + a*q^182 - a*q^191 + (-a + 1)*q^194 + (-a + 1)*q^201 - q^206 +
        (a - 1)*q^207 - q^216 + 2*a*q^218 - a*q^225 + O(q^226),
    q^2 + (-a + 1)*q^3 + (a - 1)*q^8 - a*q^13 - a*q^14 - q^18 + (-a + 1)*q^19 - 
        q^21 + a*q^22 + (a - 1)*q^27 - q^29 + a*q^31 + q^33 - a*q^41 + (-a + 
        1)*q^46 + q^48 + a*q^50 + q^56 + a*q^59 + a*q^67 - a*q^69 + (-a + 
        1)*q^72 + q^75 + (a - 1)*q^78 - q^79 - a*q^86 - q^88 + (a - 1)*q^91 - 
        a*q^94 + q^97 - a*q^103 + (2*a - 2)*q^109 + a*q^113 - q^114 + a*q^117 + 
        a*q^122 + a*q^126 - q^128 - q^129 - q^133 - q^141 + (-a + 1)*q^143 + 
        q^151 + (-a + 1)*q^154 + q^162 + a*q^166 - a*q^167 + (a - 1)*q^171 - 
        q^173 + a*q^174 + (-2*a + 2)*q^179 + q^183 + a*q^184 + (-a + 1)*q^186 + 
        q^189 + (a - 1)*q^192 + a*q^193 - a*q^198 - q^200 - a*q^202 + a*q^203 + 
        (-a + 1)*q^208 + q^209 - a*q^211 + (-a + 1)*q^217 + q^223 + O(q^226),
    q^5 + (a - 1)*q^25 - a*q^30 - a*q^35 - q^45 + a*q^55 + a*q^80 + (-a + 
        1)*q^115 + q^120 - q^130 + q^150 + q^175 - a*q^190 + (a - 1)*q^195 + (a 
        - 1)*q^210 - a*q^215 + (-a + 1)*q^225 + O(q^226),
    q^10 + (-a + 1)*q^15 + (a - 1)*q^40 + (a - 1)*q^50 - a*q^65 - a*q^70 + 
        a*q^75 - q^90 + (-a + 1)*q^95 - q^105 + a*q^110 + (a - 1)*q^135 - q^145 
        + a*q^155 + q^165 - a*q^200 - a*q^205 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 - q^16 + (-a + 1)*q^43 + a*q^49 - a*q^55 + a*q^64 + (a - 1)*q^73 +
        a*q^85 + a*q^115 - q^121 + (a - 1)*q^133 - a*q^169 + (-a - 1)*q^172 + 
        (-a + 1)*q^175 + (a + 1)*q^187 + q^196 - q^220 + O(q^226),
    q^5 + (-a - 1)*q^17 - a*q^20 + (-a + 1)*q^23 + (a - 1)*q^35 + (a + 1)*q^47 +
        (a - 1)*q^68 + (2*a + 2)*q^77 - q^80 + (a - 1)*q^83 + (-a - 1)*q^92 - 
        q^95 - 2*a*q^119 + q^125 + 2*q^131 + (-a - 1)*q^137 + (a + 1)*q^140 + 
        2*a*q^149 - 2*q^161 + (-a + 1)*q^188 - 2*q^191 + (-a - 1)*q^197 + 
        2*a*q^209 + (-a + 1)*q^215 + O(q^226),
    q^7 + 1/2*(a + 1)*q^19 + 1/2*(-a - 1)*q^25 - a*q^28 + 1/2*(a - 1)*q^55 + (a 
        - 1)*q^61 + 1/2*(-a + 1)*q^76 + 1/2*(a + 1)*q^85 + 1/2*(a - 1)*q^100 - 
        q^112 + 1/2*(-a - 1)*q^115 - q^157 - a*q^163 + q^187 + 1/2*(a + 1)*q^220
        + O(q^226),
    q^11 - q^17 - q^23 + (a + 1)*q^35 - a*q^44 - a*q^47 + a*q^68 + (-a + 1)*q^77
        + a*q^83 + a*q^92 + a*q^95 - q^101 + (-a - 1)*q^119 - a*q^125 - a*q^131 
        - q^137 + (-a + 1)*q^140 + q^149 + (a + 1)*q^161 - q^176 - q^188 + 
        a*q^191 + a*q^197 + q^209 + O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^17 - q^19 + q^20 - q^23 - q^26 + q^47 + q^49 + q^61 - q^64 + q^68 + 
        q^74 - q^80 + q^83 - q^85 + q^92 + q^100 - q^106 - q^115 - q^121 + q^125
        - q^130 - q^131 - q^134 - q^137 + q^139 - q^188 + q^191 + q^194 + q^197 
        - q^206 + q^214 + O(q^226),
    q^2 + q^10 - q^13 - q^32 + q^37 - q^38 + q^50 - q^52 - q^53 - q^65 - q^67 + 
        q^97 + q^98 - q^103 + q^107 + q^113 + q^127 + q^148 - q^160 - q^167 + 
        q^173 + q^185 - q^190 + q^193 + q^208 - q^212 + q^223 + O(q^226),
    q^4 - q^16 - q^17 + q^20 - q^23 + q^25 - q^26 + q^47 - q^61 + q^68 + q^74 - 
        q^76 - q^80 + q^83 + q^85 + q^92 - q^106 + q^115 + q^125 - q^130 - q^131
        - q^134 - q^137 - q^139 + q^169 - q^188 + q^191 + q^194 + q^196 + q^197 
        - 2*q^199 - q^206 + q^214 + O(q^226),
    q^5 + 2*q^17 - q^20 + 2*q^23 - 2*q^47 - 2*q^68 + q^80 - 2*q^83 - 2*q^92 - 
        q^95 - q^125 + 2*q^137 + 2*q^188 - 2*q^197 + O(q^226),
    q^11 + q^17 + q^19 + q^23 + q^25 - q^44 - q^47 - q^55 - 2*q^61 - q^68 - q^76
        - q^83 + q^85 - q^92 - q^95 - q^100 + q^101 + q^115 + 2*q^121 - q^125 - 
        q^131 + q^137 - 2*q^139 + q^149 + q^176 + q^188 - q^191 - q^197 + q^209 
        + q^220 + O(q^226)
]
;
Bo:=
[
    q - q^11 - q^20 + q^25 + q^26 + q^44 + q^49 - q^55 - q^61 - q^64 - q^74 - 
        q^76 + q^80 + q^95 - q^101 - q^106 + q^121 - q^130 + 2*q^131 + q^134 - 
        q^139 - q^149 - q^176 - q^194 + q^206 - q^209 + q^214 + q^220 + 
        O(q^226),
    q^2 - q^10 + q^13 - q^32 - q^37 - q^38 + q^50 + q^52 - q^53 - q^65 + q^67 - 
        q^97 + q^98 + q^103 + q^107 + q^113 - q^127 - q^148 + q^160 - q^167 + 
        q^173 + q^185 + q^190 - q^193 - q^208 - q^212 - q^223 + O(q^226),
    q^3 - q^27 - q^33 - q^60 + q^75 + q^78 + q^132 + q^147 + q^162 - q^165 - 
        q^183 - q^192 - q^222 + O(q^226),
    q^4 - q^5 + q^11 - q^16 - q^19 + q^26 - q^44 + q^55 + q^61 - q^74 + q^100 + 
        q^101 - q^106 - 2*q^121 - q^125 - q^130 + q^134 + q^139 + q^149 + q^169 
        + q^176 - 2*q^191 - q^194 + q^196 - 2*q^199 + q^206 + q^209 + q^214 - 
        q^220 + O(q^226),
    q^6 - q^30 + q^39 - q^54 + q^81 - q^96 - q^111 - q^114 + q^150 + q^156 - 
        q^159 - q^195 + q^201 + O(q^226),
    q^9 - q^54 - q^99 - q^180 + q^225 + O(q^226),
    q^12 - q^15 + q^33 - q^48 - q^57 + q^78 - q^108 - q^132 + q^135 + q^162 + 
        q^165 + q^183 - q^222 + O(q^226),
    q^18 - q^27 - q^90 - q^108 + q^117 + q^135 + q^162 + O(q^226),
    q^36 - q^45 - q^54 + q^81 + q^99 - q^144 - q^171 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
855
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 2*H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^9 + a*q^11 - q^20 + (-2*a + 1)*q^24 - a*q^25 + (a - 1)*q^26 + q^44 + 
        (a - 1)*q^49 + (a - 1)*q^54 + (-a + 1)*q^55 + (-a + 1)*q^61 + a*q^64 + 
        (a + 1)*q^66 + (-a + 1)*q^74 + a*q^76 - a*q^80 + (a - 1)*q^95 - a*q^99 +
        (-a + 1)*q^101 - q^106 + (2*a - 1)*q^111 + (a - 1)*q^121 - q^130 + (-a +
        1)*q^131 - a*q^134 - q^139 + a*q^149 + (-a + 2)*q^156 + (-a - 1)*q^169 -
        q^176 + (a - 1)*q^180 + (-a + 1)*q^194 + (-a + 2)*q^195 + q^206 - q^209 
        + q^214 + q^220 + a*q^225 + O(q^226),
    q^2 + a*q^10 - 2*q^13 + (-2*a + 1)*q^15 + a*q^18 - a*q^27 + (-a + 1)*q^32 - 
        q^37 + (-a + 1)*q^38 + (a + 1)*q^40 + (-a - 1)*q^48 - a*q^50 + (a - 
        1)*q^52 + a*q^53 + (a - 2)*q^57 + a*q^65 + (a + 2)*q^67 + (a - 2)*q^78 +
        (a + 1)*q^88 - a*q^90 - q^97 + (a - 1)*q^98 - a*q^103 + 2*a*q^107 + (a -
        1)*q^108 + (a - 2)*q^110 + (a + 2)*q^113 + 2*q^117 + (-a - 1)*q^122 + 
        (-a + 1)*q^127 + (-a + 2)*q^128 + (-a + 2)*q^132 + a*q^135 - 3*a*q^143 -
        q^148 + (-2*a + 1)*q^152 - a*q^160 - q^162 + (-a + 2)*q^165 - q^167 + 
        (-2*a + 2)*q^173 + (a + 1)*q^183 - 2*q^185 + (a - 1)*q^190 - q^193 + (-a
        - 1)*q^202 + (-a + 1)*q^208 + a*q^212 + (-a + 1)*q^223 + O(q^226),
    q^3 + (a + 1)*q^10 - 3*q^13 + (-2*a + 1)*q^15 + a*q^18 + (-a - 1)*q^27 + (-a
        + 2)*q^32 + a*q^33 + (-a - 1)*q^37 + (-2*a + 1)*q^38 + (a + 1)*q^40 + 
        (-a - 1)*q^48 + (2*a - 1)*q^52 + (a + 1)*q^53 + (a - 2)*q^57 - q^60 + 
        (2*a - 1)*q^65 + 3*q^67 + (-2*a + 1)*q^72 - a*q^75 + (2*a - 3)*q^78 + 
        (2*a - 1)*q^88 - a*q^90 + 3*a*q^107 + (a - 1)*q^108 + (a - 2)*q^110 + 
        3*q^113 + 2*q^117 + (-a - 1)*q^122 + (-a + 2)*q^128 + (-a + 3)*q^132 + 
        a*q^135 + (-4*a - 1)*q^143 + (a - 1)*q^147 + (-a - 1)*q^148 + (-2*a + 
        1)*q^152 + (-2*a + 1)*q^160 + (a - 2)*q^162 + (-2*a + 3)*q^165 + (a - 
        2)*q^167 + (-3*a + 3)*q^173 + 2*q^183 - 3*q^185 + a*q^192 + (a - 
        2)*q^193 + (a + 1)*q^198 + (-a - 1)*q^202 + (2*a - 1)*q^212 + (-a + 
        1)*q^222 + (-2*a + 1)*q^223 + O(q^226),
    q^4 - a*q^9 + (a - 1)*q^11 + (a - 1)*q^16 - a*q^20 + q^24 + (a - 1)*q^26 - 
        a*q^30 + q^36 - a*q^44 + q^55 + q^61 - q^64 + (a - 1)*q^66 + q^74 + (a -
        1)*q^76 + q^80 - q^96 - a*q^100 + q^101 - q^104 - a*q^106 + (a - 
        1)*q^111 + (a - 1)*q^114 + q^120 - a*q^130 + q^134 - a*q^139 + (a - 
        1)*q^144 + (a - 1)*q^149 + q^156 - a*q^159 - a*q^169 + (-a + 2)*q^176 + 
        q^194 + q^195 + (a - 1)*q^196 - a*q^206 - a*q^209 + q^214 + (a - 
        1)*q^216 + (a - 1)*q^220 + (a - 1)*q^225 + O(q^226),
    q^5 + q^9 + (-a + 1)*q^16 - a*q^19 + q^20 + (a - 1)*q^24 + (-2*a + 1)*q^26 +
        q^30 - q^36 + (2*a - 1)*q^39 + a*q^44 - q^45 + (-a + 1)*q^54 + (2*a - 
        1)*q^55 + (a - 2)*q^61 + (-a + 1)*q^64 - a*q^66 - q^74 - a*q^76 + (a - 
        1)*q^80 + (a - 1)*q^81 + (-a + 1)*q^96 + q^99 + (a - 2)*q^101 - q^104 + 
        a*q^106 - a*q^111 - a*q^114 - a*q^120 - q^121 - a*q^125 + a*q^130 + (2*a
        - 1)*q^134 + (a + 1)*q^139 + (-a - 1)*q^149 + (a - 1)*q^156 + q^159 + 
        (-a + 2)*q^169 + a*q^171 + a*q^176 + (-a + 1)*q^191 - q^194 + (a - 
        1)*q^195 + a*q^199 + (-2*a + 1)*q^201 + (-a + 2)*q^209 + (a - 2)*q^214 -
        a*q^216 + (-a + 1)*q^220 - a*q^225 + O(q^226),
    q^6 + a*q^9 + (a + 1)*q^20 + (a - 2)*q^24 + (-a + 2)*q^26 + a*q^30 - q^36 + 
        (a - 1)*q^39 - a*q^45 + q^54 + (a - 2)*q^55 + (-a - 1)*q^61 + (-a + 
        2)*q^64 + (-2*a + 1)*q^66 + (-a - 1)*q^74 + (-2*a + 1)*q^76 + (a - 
        2)*q^80 + (-a + 1)*q^96 + (-a - 1)*q^101 + (a + 1)*q^106 + (-a + 
        1)*q^111 + (-a + 1)*q^114 + (2*a - 1)*q^130 + (a - 2)*q^134 + (2*a - 
        1)*q^139 - a*q^144 + (-2*a + 1)*q^149 - a*q^150 - 2*q^156 + a*q^159 + (a
        + 1)*q^169 + (a - 1)*q^171 + (2*a - 1)*q^176 + q^180 - q^195 + q^201 + 
        (a + 1)*q^209 + (-a - 1)*q^214 + (-2*a + 1)*q^220 + (-a + 1)*q^225 + 
        O(q^226),
    q^8 + (a - 1)*q^10 + (-2*a + 1)*q^13 + q^15 - q^18 + (a - 1)*q^22 + (-a + 
        1)*q^27 + a*q^32 - a*q^37 + q^38 + (a - 1)*q^40 + (-a + 1)*q^48 + (a - 
        1)*q^52 + (a - 1)*q^53 - a*q^57 - a*q^60 + (a - 1)*q^65 + (2*a - 1)*q^67
        + q^72 + (-a - 1)*q^78 - q^88 + (-a + 1)*q^90 - a*q^97 + (a - 2)*q^107 -
        a*q^110 + (2*a - 1)*q^113 + a*q^117 + (-2*a + 2)*q^122 + q^127 + a*q^128
        + a*q^132 + (a - 1)*q^135 + (-2*a + 2)*q^143 + (-a + 1)*q^148 + q^152 + 
        q^160 - a*q^162 + (a + 1)*q^165 - a*q^167 + (a + 1)*q^173 + (2*a - 
        1)*q^183 + (-2*a + 1)*q^185 - q^192 - a*q^193 + (a - 1)*q^198 - a*q^200 
        + (-2*a + 2)*q^202 - q^212 + a*q^222 + q^223 + O(q^226),
    q^12 + (-a - 1)*q^13 + (-a + 1)*q^15 + a*q^18 - a*q^27 + (a - 1)*q^33 + (a +
        1)*q^40 - q^48 - q^57 + (a + 1)*q^67 + (a - 1)*q^78 - a*q^90 + (2*a - 
        1)*q^107 + (a - 2)*q^110 + (a + 1)*q^113 + a*q^117 + (-a - 1)*q^122 + 
        (-a + 2)*q^128 + (-a + 1)*q^132 + (-2*a + 1)*q^143 + (-a - 1)*q^148 + 
        (-2*a + 1)*q^152 + q^165 + (-a + 2)*q^173 + q^183 + (-a - 1)*q^185 + (-a
        - 1)*q^202 + (a + 1)*q^212 + (-a + 1)*q^222 + O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
856
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
856
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
856
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
106
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
856
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
106
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
856
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
106
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
856
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
106
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + (a^24 + a^10)*q^3 + a^2*q^4 + (-a^25 - a^11)*q^6 - a^3*q^8 + 
        (a^48 + a^34 + a^20)*q^9 + (-a^37 - a^7)*q^11 + (a^26 + a^12)*q^12 + 
        a^4*q^16 + (a^42 + a^16)*q^17 + (-a^49 - a^35 - a^21)*q^18 + (a^28 + 
        a^22)*q^19 + (a^38 + a^8)*q^22 + (-a^27 - a^13)*q^24 - a^41*q^25 + (a^44
        + a^30 - a^19 - a^5)*q^27 - a^5*q^32 + (-a^47 - a^31 - a^17 + a^8)*q^33 
        + (-a^43 - a^17)*q^34 + (a^50 + a^36 + a^22)*q^36 + (-a^29 - a^23)*q^38 
        + (-a^45 - a^35)*q^41 + (a^50 - a^15)*q^43 + (-a^39 - a^9)*q^44 + (a^28 
        + a^14)*q^48 - a^33*q^49 + a^42*q^50 + (a^51 - a^50 + a^49 - a^48 + a^47
        - a^46 + a^45 - a^44 + a^43 - a^42 + a^41 + a^39 - a^38 + a^37 - a^36 + 
        a^35 - a^34 + a^33 - a^32 + a^31 - a^30 + a^29 - a^28 + a^27 + a^25 - 
        a^24 + a^23 - a^22 + a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - 
        a^14 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^51 + (-a^45 - a^31 + a^20 + a^6)*q^54 + (a^51 - a^50 + 
        a^49 - a^48 + a^47 + a^45 - a^44 + a^43 - a^42 + a^41 - a^40 + a^39 + 
        a^37 - a^36 + a^35 - a^34 + a^33 + a^31 - a^30 + a^29 - a^28 + a^27 - 
        a^26 + a^25 - a^24 + a^23 - a^22 + a^21 - a^20 + a^19 - a^18 + a^17 - 
        a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 +
        a^5 - a^4 + a^3 - a^2 + a - 1)*q^57 + (-a^39 - a^3)*q^59 + a^6*q^64 + 
        (a^48 + a^32 + a^18 - a^9)*q^66 + (-a^33 + a^14)*q^67 + (a^44 + 
        a^18)*q^68 + (-a^51 - a^37 - a^23)*q^72 + (-a^49 - a^11)*q^73 + (-a^51 +
        a^12)*q^75 + (a^30 + a^24)*q^76 + (-a^43 + a^40 - a^29 - a^15 - a)*q^81 
        + (a^46 + a^36)*q^82 + (-a^47 + a^46)*q^83 + (-a^51 + a^16)*q^86 + (a^40
        + a^10)*q^88 + (-a^51 - a^19)*q^89 + (-a^29 - a^15)*q^96 + (-a^25 + 
        a^18)*q^97 + a^34*q^98 + (-a^41 + a^32 - a^27 + a^18 + a^4 + a^2)*q^99 -
        a^43*q^100 + (-a^41 - a^27 + a^14 + 1)*q^102 + a^36*q^107 + (a^46 + a^32
        - a^21 - a^7)*q^108 + (a^30 + a^6)*q^113 + (-a^47 - a^39 - a^33 + 
        1)*q^114 + (a^40 + a^4)*q^118 + (a^44 - a^21 + a^14)*q^121 + (-a^45 + 
        a^16 + a^6 + a^2)*q^123 - a^7*q^128 + (-a^39 - a^25 - a^21 - a^7)*q^129 
        + (-a^31 - a^9)*q^131 + (-a^49 - a^33 - a^19 + a^10)*q^132 + (a^34 - 
        a^15)*q^134 + (-a^45 - a^19)*q^136 + (-a^23 - a)*q^137 + (a^34 - 
        a^29)*q^139 + (a^51 - a^50 + a^49 - a^48 + a^47 - a^46 + a^45 - a^44 + 
        a^43 - a^42 + a^41 - a^40 + a^39 + a^37 - a^36 + a^35 - a^34 + a^33 - 
        a^32 + a^31 - a^30 + a^29 - a^28 + a^27 - a^26 + a^25 + a^23 - a^22 + 
        a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + 
        a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^144 + (a^50 + a^12)*q^146 + (-a^43 + a^4)*q^147 + (a^51 - a^50 + 
        a^49 - a^48 + a^47 - a^46 + a^45 - a^44 + a^43 - a^42 + a^41 - a^40 + 
        a^39 - a^38 + a^37 - a^36 + a^35 - a^34 + a^33 - a^32 + a^31 - a^30 + 
        a^29 - a^28 + a^27 - a^26 + a^25 - a^24 + a^23 - a^22 + a^21 - a^20 + 
        a^19 - a^18 + a^17 - a^16 + a^15 - a^14 - a^12 + a^11 - a^10 + a^9 - a^8
        + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^150 + (-a^31 - 
        a^25)*q^152 + (a^50 - a^37 + a^36 - a^23 - a^11 - a^9)*q^153 + (a^44 - 
        a^41 + a^30 + a^16 + a^2)*q^162 + (-a^27 + a^12)*q^163 + (-a^47 - 
        a^37)*q^164 + (a^48 - a^47)*q^166 + a^28*q^169 + (a^48 + a^42 - a^23 - 
        a^17 - a^9 - a^3)*q^171 + (a^51 - a^50 + a^49 - a^48 + a^47 - a^46 + 
        a^45 - a^44 + a^43 - a^42 + a^41 - a^40 + a^39 - a^38 + a^37 - a^36 + 
        a^35 - a^34 + a^33 - a^32 + a^31 - a^30 + a^29 - a^28 + a^27 - a^26 + 
        a^25 - a^24 + a^23 - a^22 + a^21 - a^20 + a^19 - a^18 - a^16 + a^15 - 
        a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^172 + (-a^41 - a^11)*q^176 + (-a^49 - a^27 - a^13 +
        a^10)*q^177 + (a^51 - a^50 + a^49 - a^48 + a^47 - a^46 + a^45 - a^44 + 
        a^43 - a^42 + a^41 - a^40 + a^39 - a^38 + a^37 - a^36 + a^35 - a^34 + 
        a^33 - a^32 + a^31 - a^30 + a^29 - a^28 + a^27 - a^26 + a^25 - a^24 + 
        a^23 - a^22 + a^21 + a^19 - a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - 
        a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a -
        1)*q^178 + (a^38 + a^36)*q^179 + (-a^49 + a^26 - a^23 + 1)*q^187 + (a^30
        + a^16)*q^192 + (-a^9 - a^5)*q^193 + (a^26 - a^19)*q^194 - a^35*q^196 + 
        (a^42 - a^33 + a^28 - a^19 - a^5 - a^3)*q^198 + a^44*q^200 + (-a^43 + 
        a^38 + a^24 + a^4)*q^201 + (a^42 + a^28 - a^15 - a)*q^204 + (-a^35 - 
        a^29 + a^12 + a^6)*q^209 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
856
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
53*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^19 - q^23 + q^25 + q^49 - q^53 - q^61 - q^87 - q^99 + q^107 + q^111 - 
        q^117 + q^121 + q^123 - q^141 + 2*q^143 + q^169 + q^171 - q^193 + q^207 
        - q^209 + O(q^210),
    q^2 - q^38 - q^46 + q^50 + q^98 - q^106 - q^122 - q^174 - q^198 + O(q^210),
    q^3 - q^29 - q^33 + q^37 - q^39 + q^41 - q^47 + q^75 - q^83 - q^99 + q^101 -
        q^117 + q^121 - q^137 + q^143 + q^147 + q^151 + q^169 + q^197 + q^199 - 
        q^209 + O(q^210),
    q^4 - q^12 + q^16 - q^44 - q^48 - q^52 + q^64 - q^76 - q^92 + q^100 + q^108 
        + 2*q^116 + q^132 - q^148 + q^156 - q^164 - q^176 + 2*q^188 - q^192 + 
        q^196 - q^208 + O(q^210),
    q^6 - q^58 - q^66 + q^74 - q^78 + q^82 - q^94 + q^150 - q^166 - q^198 + 
        q^202 + O(q^210),
    q^8 - q^24 + q^32 - q^88 - q^96 - q^104 + q^128 - q^152 - q^184 + q^200 + 
        O(q^210),
    q^9 + q^19 + q^23 - q^27 - q^29 - q^33 - q^39 - q^47 + q^53 - q^57 + q^61 - 
        q^69 + q^81 - q^83 + q^87 + q^111 + q^123 - q^137 + q^141 - q^159 + 
        q^171 - q^183 + q^193 + q^207 + O(q^210),
    q^11 + q^13 - q^27 - q^29 - q^47 - q^57 - q^69 + q^79 + q^81 - q^83 + q^87 +
        q^89 - q^137 + q^141 + q^149 - q^159 + q^163 + q^171 - q^183 + q^207 - 
        q^209 + O(q^210),
    q^18 + q^38 + q^46 - q^54 - q^58 - q^66 - q^78 - q^94 + q^106 - q^114 + 
        q^122 - q^138 + q^162 - q^166 + q^174 + O(q^210),
    q^22 + q^26 - q^54 - q^58 - q^94 - q^114 - q^138 + q^158 + q^162 - q^166 + 
        q^174 + q^178 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
856
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 53*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^12 - q^14 - q^16 + q^23 - q^25 + q^33 + q^34 + q^39 + q^41 - q^42 + 
        q^44 - q^49 + q^52 - q^56 + q^57 - q^62 + q^76 - q^79 - q^81 - q^86 - 
        q^89 + q^102 - q^108 - q^111 + 2*q^119 + q^134 + q^136 + q^142 - q^143 +
        q^146 - q^148 - q^151 + q^154 - q^159 + q^168 + q^182 + q^183 - q^186 + 
        q^192 + q^193 - q^199 - q^209 + O(q^210),
    q^2 + q^7 - q^17 - q^21 - q^24 - q^28 + q^31 - q^32 - q^43 + q^46 - q^50 + 
        q^51 + q^66 + q^67 + q^68 - q^71 - q^73 + q^77 + q^78 + q^82 - q^84 + 
        q^88 + q^91 - q^93 - q^98 + q^104 - q^109 - q^112 + q^113 + q^114 - 
        q^124 - q^129 + q^131 + q^133 + q^152 - q^158 + q^161 - q^162 - q^172 + 
        q^173 - q^175 - q^178 - q^179 - q^181 - q^187 - q^189 - q^191 + q^201 + 
        q^204 + O(q^210),
    q^3 - q^9 + q^10 - q^11 - q^12 - q^13 - 2*q^16 - q^19 + 2*q^23 - q^25 + q^27
        + q^33 - q^36 + q^37 + q^39 + q^40 + 2*q^41 - 2*q^42 + q^44 + q^47 - 
        q^48 - 2*q^49 + q^52 + q^53 - 2*q^56 + q^57 - q^61 - 2*q^64 + q^69 - 
        q^75 + q^76 - 2*q^81 - q^86 + q^90 + 2*q^92 - q^100 - q^101 + 2*q^102 + 
        q^107 - q^108 - q^111 + q^118 + 2*q^119 - q^121 + q^123 + q^132 + 
        3*q^134 + 2*q^136 + q^137 - q^143 - q^144 - q^147 - q^148 + q^149 + 
        2*q^154 + q^156 - q^159 + q^160 + q^163 + 2*q^164 - q^169 + q^176 + 
        2*q^182 + q^183 - 2*q^186 + q^188 + q^192 + 2*q^193 - 2*q^196 - q^197 + 
        q^207 + q^208 - q^209 + O(q^210),
    q^4 + q^9 - q^10 + q^12 + q^14 + 2*q^16 - 2*q^23 + q^25 - q^33 - q^34 + q^36
        - q^39 - q^40 - 2*q^41 + q^42 - q^44 - q^47 + 2*q^49 - q^52 + q^56 - 
        q^57 + q^62 + q^64 - q^76 + 2*q^81 - q^90 - q^92 - q^102 + q^108 + q^111
        - q^118 - 2*q^119 + q^121 - 2*q^134 - q^136 - q^137 - q^142 + q^143 + 
        q^144 - q^146 + q^148 - q^154 + q^159 - q^160 - q^164 - q^168 + q^169 - 
        q^182 - q^183 + q^186 - q^188 - q^192 - 2*q^193 + q^196 - q^207 + q^209 
        + O(q^210),
    q^5 + q^7 - q^8 - q^17 - q^18 + q^20 - q^21 - q^24 - q^28 + q^31 - 2*q^32 + 
        q^45 + 2*q^46 - q^50 + q^51 + q^59 + q^66 + 2*q^67 + q^68 - q^71 - q^72 
        - q^73 + q^77 + q^78 + q^80 + 2*q^82 - q^84 + q^88 + q^91 - q^93 + q^94 
        - 2*q^98 + q^104 - q^107 - 3*q^109 - q^112 + q^113 + q^114 - q^115 - 
        q^124 - q^125 - q^128 - q^129 + 2*q^131 + q^133 - 2*q^139 + q^152 - 
        2*q^157 + q^161 - 2*q^162 + 2*q^173 - q^175 - 3*q^179 + q^180 + q^184 - 
        q^187 - q^189 - q^191 + q^201 + q^204 - q^205 + O(q^210),
    q^6 + q^7 + q^8 - q^17 + q^21 - q^22 - q^26 + q^28 + q^31 - q^38 + q^43 - 
        q^51 + q^54 - q^67 - q^68 - q^71 - q^73 + q^74 - q^77 - q^84 - q^91 + 
        q^93 - q^96 + q^106 + q^109 - q^112 + q^113 - q^122 + q^124 - q^128 - 
        q^129 - q^131 - q^133 + q^138 - q^150 + q^161 - q^172 - q^173 - q^175 + 
        q^179 + q^181 + q^184 + q^187 + q^189 - q^191 - q^200 + q^201 - q^202 + 
        q^204 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
857
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
856
);
qprec:=
143
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
857
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
107*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
143
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 - q^4 + q^9 + q^12 - q^13 + q^16 - q^25 - q^27 - q^36 + q^39 + 
        2*q^43 - q^48 + q^49 + q^52 - 2*q^61 - q^64 + q^75 - 2*q^79 + q^81 + 
        q^100 + 2*q^103 + q^108 - q^117 - q^121 - 2*q^127 - 2*q^129 + 2*q^139 + 
        q^144 - q^147 - q^156 + 2*q^157 + q^169 - 2*q^172 + 2*q^181 + 2*q^183 + 
        q^192 - q^196 - 2*q^199 - q^208 - 2*q^211 - q^225 + 2*q^237 - q^243 + 
        2*q^244 + q^256 + 2*q^277 - 2*q^283 + q^289 - q^300 - 2*q^309 - 2*q^313 
        + 2*q^316 + O(q^322),
    q^2 - q^6 - q^8 + q^18 + q^24 - q^26 + q^32 - q^50 - q^54 - q^72 + q^78 + 
        2*q^86 - q^96 + q^98 + q^104 - 2*q^122 - q^128 + q^150 - 2*q^158 + q^162
        + q^200 + 2*q^206 + q^216 - q^234 - q^242 - 2*q^254 - 2*q^258 + 2*q^278 
        + q^288 - q^294 - q^312 + 2*q^314 + O(q^322),
    q^11 - q^33 - q^44 + q^99 + q^132 - q^143 + q^176 - q^275 - q^297 + 
        O(q^322),
    q^22 - q^66 - q^88 + q^198 + q^264 - q^286 + O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^9 + (-a^3 + a^2 + 1)*q^12 + 1/5*(2*a^3 - 4*a^2 + a - 3)*q^22 - 
        a^3*q^25 + a^3*q^30 + (a^3 - a^2 + a - 1)*q^39 + a^2*q^40 + (-a^3 + 
        a^2)*q^43 + (a^3 - a^2 + a - 1)*q^49 + (-a^3 - a + 1)*q^52 - a*q^55 + 
        1/5*(3*a^3 - a^2 + 4*a - 2)*q^66 + (a^2 + 1)*q^75 + a^2*q^81 + (-a^3 + 
        1)*q^82 + 1/5*(-2*a^3 - a^2 - a + 3)*q^88 + (a^3 - 1)*q^94 + (a^3 - a^2 
        - 2)*q^100 + (a^3 - a^2 + a)*q^103 + (-a^2 - 1)*q^108 - a^3*q^118 + (a^3
        - a^2 - 1)*q^120 + a*q^130 + (-a^3 - a)*q^139 + (a^3 - a^2 - 1)*q^142 + 
        (a^3 + a - 1)*q^157 + (-a^3 + a^2 - a + 1)*q^160 - a^3*q^165 - q^166 + 
        a^2*q^169 + (a^2 + 1)*q^178 + (a^2 - a)*q^181 + (-a^3 - a)*q^183 + (-a^3
        + 1)*q^192 + 1/5*(2*a^3 + a^2 + a + 2)*q^198 + (a^3 - a^2 + a)*q^205 + 
        (a^3 + a)*q^220 + (a^3 - a^2 + a - 1)*q^225 + (a^3 - a^2 + a)*q^235 + 
        (-a^3 + 1)*q^237 + (a^2 + a + 1)*q^244 + (-a^3 - a)*q^246 + (-a^3 - a + 
        1)*q^250 + a^3*q^256 + 1/5*(2*a^3 + a^2 + a - 3)*q^264 + (-a^3 + a^2 - a
        + 1)*q^270 + q^274 - 2*a*q^277 + a^2*q^282 + 1/5*(-2*a^3 + 4*a^2 - a + 
        3)*q^286 - a^3*q^289 + (a^2 + 1)*q^295 + (-a^3 - a + 1)*q^300 + (2*a^3 +
        a - 1)*q^316 + O(q^322),
    q^2 + 1/5*(2*a^3 + a^2 + a - 3)*q^11 + a*q^15 - a*q^18 + (a^3 - a^2 - 
        1)*q^20 - q^24 + (-a^3 + 1)*q^32 + 1/5*(-2*a^3 + 4*a^2 - a + 3)*q^33 + 
        (-a^3 - a)*q^41 + 1/5*(3*a^3 - a^2 + 4*a - 2)*q^44 + (a^3 + a)*q^47 - 
        a^3*q^50 - a*q^59 + (-a^3 - a + 1)*q^60 + (-a^3 + a^2 - a + 1)*q^65 + 
        (a^3 + a - 1)*q^71 + (a^3 - a^2 + a - 1)*q^78 + a^2*q^80 + a^3*q^83 + 
        (-a^3 + a^2)*q^86 + (-a^3 + 1)*q^89 + (a^3 - a^2 + a - 1)*q^98 + 
        1/5*(-3*a^3 + a^2 + a + 2)*q^99 + a^3*q^104 - a*q^110 + (a^3 - a^2 - 
        1)*q^123 + (-a^2 - 1)*q^125 + 1/5*(2*a^3 - 4*a^2 + a - 3)*q^132 - 
        a^2*q^135 - a^3*q^137 + q^141 + 1/5*(-2*a^3 - a^2 - a + 3)*q^143 + (a^2 
        + 1)*q^150 + a^2*q^162 + 1/5*(2*a^3 + a^2 + a + 2)*q^176 + (a^3 - 
        1)*q^177 + (a^2 + 1)*q^180 + (-a^3 + a^2 - a + 1)*q^188 + (a^3 - 
        1)*q^197 + (-a^3 + a^2 + 1)*q^200 + (a^3 - a^2 + a)*q^206 + (a^2 + 
        1)*q^213 + a*q^216 + (-a^2 - 1)*q^227 - a^3*q^236 - a^2*q^239 + (-a^2 - 
        1)*q^260 + (-a^3 - a)*q^267 + 1/5*(3*a^3 - a^2 - a - 2)*q^275 + (-a^3 - 
        a)*q^278 + (-a^3 - a + 1)*q^281 + (a^3 - a^2 - 1)*q^288 + a*q^293 + 
        1/5*(-2*a^3 - a^2 - a - 2)*q^297 + (a^3 + a)*q^305 + (a^3 + a - 1)*q^314
        - q^317 + (a^3 - 1)*q^320 + O(q^322),
    q^3 - a^2*q^12 - a^3*q^13 + (a^2 - a + 1)*q^16 + (a^3 - a^2 - 1)*q^25 - 
        a*q^27 + (-a^2 + a)*q^40 + (-a^3 + a^2 - a + 1)*q^48 - q^52 + a^2*q^55 +
        (a^2 + 1)*q^61 + (a - 1)*q^64 - a^3*q^75 + (a^3 + a - 1)*q^79 - q^88 + 
        (a^3 + a)*q^100 + a^3*q^108 + (a^3 - a^2 + a - 1)*q^117 + (a^3 + 
        a)*q^120 + q^121 + (-a^2 + a - 1)*q^127 + (-a^3 + a^2)*q^129 + (-a^3 + 
        a^2 - a)*q^144 + (a^3 - a^2 + a - 1)*q^147 - a*q^160 - a*q^165 + (-a^2 +
        a - 1)*q^192 + (-a^3 - a)*q^199 + (a^2 - a)*q^205 - a^2*q^208 + (-a + 
        1)*q^211 + (-a^3 + a^2 - a + 1)*q^220 + (a^2 + 1)*q^225 + (-a^3 + 
        1)*q^235 + a^2*q^243 + (-a^3 - a + 1)*q^244 + q^256 + a*q^264 + (a^3 - 
        a^2 - 1)*q^283 + (-a + 1)*q^295 - q^300 + (a^3 - a^2 + a)*q^309 + (-a^2 
        + a - 1)*q^313 + (-a^3 + a^2 + 1)*q^316 + O(q^322),
    q^4 + (-a^3 - a + 1)*q^12 + a^2*q^16 + 1/5*(2*a^3 + a^2 + a - 3)*q^22 + 
        a*q^30 - a*q^36 + (a^3 - a^2)*q^40 + (-a^3 + a^2)*q^48 + (-a^2 - 1)*q^52
        + (-a^2 + a)*q^64 + 1/5*(-2*a^3 + 4*a^2 - a + 3)*q^66 + (-a^3 - a)*q^82 
        + 1/5*(3*a^3 - 6*a^2 + 4*a - 7)*q^88 + (a^3 + a)*q^94 + (a^3 + a - 
        1)*q^100 + (a^3 - 1)*q^108 - a*q^118 + a^3*q^120 + (-a^3 + a^2 - a + 
        1)*q^130 + (a^3 + a - 1)*q^142 - a^3*q^144 + (a^3 - a^2 + a - 1)*q^156 +
        (-a^3 + a^2 - a)*q^160 + a^3*q^166 + (-a^3 + a^2)*q^172 + (-a^3 + 
        1)*q^178 - a^2*q^192 + (a^3 - a^2 + a - 1)*q^196 + 1/5*(-3*a^3 + a^2 + a
        + 2)*q^198 + (-a + 1)*q^208 + (-a^3 + a^2 - a + 1)*q^220 + (-2*a^3 + a^2
        - a + 2)*q^244 + (a^3 - a^2 - 1)*q^246 + (-a^2 - 1)*q^250 + (a^2 + 
        1)*q^256 + 1/5*(7*a^3 - 4*a^2 + 6*a - 3)*q^264 - a^2*q^270 - a^3*q^274 +
        q^282 + 1/5*(-2*a^3 - a^2 - a + 3)*q^286 + (a^2 + a + 1)*q^316 + 
        O(q^322),
    q^5 + 1/5*(-2*a^3 - a^2 - a - 2)*q^11 + (a^3 + a - 1)*q^15 - a^2*q^20 + 
        (-a^3 - a)*q^24 + a*q^32 + 1/5*(2*a^3 + a^2 + a + 2)*q^33 + (-a^3 + a^2 
        - a + 1)*q^41 + 1/5*(2*a^3 + a^2 + a - 3)*q^44 - a*q^45 + (a^3 - 1)*q^47
        + (-a^3 + a^2 + 1)*q^60 + (a^2 + 1)*q^65 - q^71 + (a^3 - a^2 - 1)*q^83 +
        a*q^89 + 1/5*(3*a^3 - a^2 + 4*a - 2)*q^99 + (a^3 - a^2 - 1)*q^104 - 
        a^2*q^123 + (-2*a^3 - a + 1)*q^125 + 1/5*(-2*a^3 - a^2 - a + 3)*q^132 + 
        (-a^3 + 1)*q^135 + 1/5*(-3*a^3 + a^2 + a + 2)*q^143 + q^149 - a*q^164 + 
        a^2*q^167 + 1/5*(3*a^3 - a^2 - a - 2)*q^176 + (-a^2 - 1)*q^177 + 
        a^3*q^180 + (a^2 + 1)*q^188 + (a^3 - a^2 + a - 1)*q^195 + (-a^2 - 
        1)*q^197 + (a^3 + a^2 + a)*q^200 + a^3*q^213 + (-a^3 + a^2)*q^215 + (a^3
        + a - 1)*q^216 + (-a^3 - a + 1)*q^227 + (-a^3 + 1)*q^239 + a^2*q^240 + 
        (a^3 - a^2 + a - 1)*q^245 - a^3*q^249 + (-a^3 - a + 1)*q^260 + (-a^3 + 
        a^2 - a + 1)*q^267 + 1/5*(2*a^3 - 4*a^2 - 4*a - 3)*q^275 + (-a^3 + a^2 +
        1)*q^281 + a^2*q^284 - a^2*q^288 + (a^3 + a - 1)*q^293 + 1/5*(-3*a^3 + 
        a^2 - 4*a + 2)*q^297 + (2*a^3 - a^2 + a - 2)*q^305 + (-a^3 - a)*q^317 + 
        (-a^2 - 1)*q^320 + O(q^322),
    q^6 + 1/5*(-a^3 + 2*a^2 - 3*a - 1)*q^11 + (a - 1)*q^15 + (a^3 - a^2 + 
        a)*q^20 - a^3*q^26 + 1/5*(a^3 + 3*a^2 - 2*a + 1)*q^33 + (-a^3 + a^2 - a 
        + 1)*q^41 + 1/5*(-4*a^3 + 3*a^2 - 2*a + 1)*q^44 + (a^3 - a^2 + a - 
        1)*q^47 + (a^3 - a^2 - 1)*q^50 - a*q^54 + (-a + 1)*q^59 - q^60 + (a^2 - 
        a + 1)*q^65 - q^71 + (-a^2 + a)*q^80 + (a^3 - a^2)*q^83 + a*q^89 + (-a^3
        + a^2 - a + 1)*q^96 + 1/5*(-a^3 + 2*a^2 + 2*a - 1)*q^99 + a^2*q^110 + 
        (a^2 + 1)*q^122 - a^2*q^123 - a^3*q^125 + (a - 1)*q^128 + 1/5*(4*a^3 - 
        3*a^2 + 2*a - 1)*q^132 + (-a^2 + a)*q^135 + (-a^3 + a^2)*q^137 + (a^3 - 
        a^2 + a)*q^141 + 1/5*(a^3 - 2*a^2 + 3*a + 1)*q^143 - a^3*q^150 + (a^3 + 
        a - 1)*q^158 + (a^2 - a + 1)*q^164 + 1/5*(-a^3 + 2*a^2 - 3*a - 1)*q^176 
        - a*q^177 + (-a + 1)*q^180 - a*q^188 - a*q^197 + a^3*q^213 - a^3*q^227 +
        (a^3 - a^2 + a - 1)*q^234 + (-a^2 + a)*q^239 + a^2*q^240 + q^242 + (-a^2
        + a - 1)*q^254 + (-a^3 + a^2)*q^258 + a^3*q^260 + (-a^3 + a^2 - a + 
        1)*q^267 + 1/5*(a^3 - 2*a^2 - 2*a + 1)*q^275 + q^281 + (-a^3 + a^2 - 
        a)*q^284 + (a - 1)*q^293 + (a^3 - a^2 + a - 1)*q^294 + 1/5*(-4*a^3 + 
        3*a^2 - 2*a + 1)*q^297 + (a^3 - a^2 + a - 1)*q^305 + (-a^3 + a^2 - 
        a)*q^317 + O(q^322),
    q^8 + 1/5*(-2*a^3 - a^2 - a - 2)*q^11 + (a^3 - a^2 + a - 1)*q^15 + (-a^3 - a
        + 1)*q^24 + a^2*q^32 + 1/5*(2*a^3 + a^2 + a - 3)*q^33 + (-a^3 + a^2 + 
        1)*q^41 + 1/5*(2*a^3 + a^2 + a - 3)*q^44 + (a^3 - a^2 - 1)*q^47 + (-a^3 
        + a^2 - a + 1)*q^59 + a*q^60 + a^2*q^65 + (-a^2 - 1)*q^71 - a*q^72 + 
        (a^3 - a^2)*q^80 - a*q^83 + (a^3 + a)*q^89 + (-a^3 + a^2)*q^96 + 
        1/5*(3*a^3 - a^2 + 4*a - 2)*q^99 + (-a^2 - 1)*q^104 + (-a^3 - a + 
        1)*q^123 + (-a^3 + 1)*q^125 + (-a^2 + a)*q^128 + 1/5*(-2*a^3 + 4*a^2 - a
        + 3)*q^132 + q^135 + a*q^137 + a^3*q^141 + 1/5*(2*a^3 + a^2 + a + 
        2)*q^143 + (-a^3 - a)*q^164 + 1/5*(3*a^3 - 6*a^2 + 4*a - 7)*q^176 + 
        (-a^3 - a)*q^177 + (a^3 + a)*q^188 + (-a^3 - a)*q^197 + (a^3 + a - 
        1)*q^200 + (a^3 - 1)*q^213 + (a^3 - 1)*q^216 + (-a^3 + 1)*q^227 - 
        a*q^236 + q^239 + a^3*q^240 + (-a^3 + a^2 - a + 1)*q^260 + (-a^3 + a^2 +
        1)*q^267 + 1/5*(-3*a^3 + a^2 - 4*a + 2)*q^275 + (a^2 + 1)*q^281 + (a^3 +
        a - 1)*q^284 - a^3*q^288 + (a^3 - a^2 + a - 1)*q^293 + 1/5*(-3*a^3 + a^2
        + a + 2)*q^297 + (a^3 - a^2 - 1)*q^305 + (a^3 - a^2 + a - 1)*q^312 - 
        a^3*q^317 + (-a^3 + a^2 - a)*q^320 + O(q^322),
    q^10 + (-a^3 + a^2 + 1)*q^12 + (a^3 - a^2 + a - 1)*q^16 + 1/5*(-2*a^3 - a^2 
        - a - 2)*q^22 + (a^3 + a - 1)*q^30 + (-a^3 - a + 1)*q^52 + 1/5*(2*a^3 + 
        a^2 + a + 2)*q^66 + (-a^3 + a^2 - a + 1)*q^82 + 1/5*(-3*a^3 + a^2 - 4*a 
        + 2)*q^88 - a*q^90 + (a^3 - 1)*q^94 + (a^3 - a^2 - 2)*q^100 + (-a^2 - 
        1)*q^108 - q^120 + (a^2 + 1)*q^130 - q^142 + q^144 + (-a^3 + 1)*q^160 + 
        (a^3 - a^2 - 1)*q^166 + a*q^178 + (-a^3 + a^2 - a + 1)*q^192 + 
        1/5*(3*a^3 - a^2 + 4*a - 2)*q^198 + (a^3 + a)*q^220 + (a^2 + a + 
        1)*q^244 - a^2*q^246 + (-2*a^3 - a + 1)*q^250 + (a^3 + a - 1)*q^256 + 
        1/5*(3*a^3 - a^2 - a - 2)*q^264 + (-a^3 + 1)*q^270 + 1/5*(-3*a^3 + a^2 +
        a + 2)*q^286 + q^298 + (-a^3 - a + 1)*q^300 + (2*a^3 + a - 1)*q^316 + 
        O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
858
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^22 + q^25 - q^26 + q^38 - q^42 - q^53 - q^64 + q^66 - q^69 + q^78 - 
        q^81 + q^92 + q^108 - q^113 + q^121 - q^126 - q^133 + q^143 - q^144 + 
        q^146 + q^147 + q^159 + q^168 + q^169 + 2*q^179 - q^181 - q^191 + q^192 
        - q^196 + q^198 - q^199 - q^209 - q^212 + q^218 - q^231 + q^234 + q^243 
        - q^246 - q^247 - q^264 - q^273 + q^287 + q^289 - 2*q^302 + q^308 - 
        q^309 - q^311 - q^312 + O(q^322),
    q^2 - q^28 + q^33 + q^39 - q^46 + q^50 - q^54 - q^57 - q^63 - q^72 + q^76 + 
        q^96 + q^98 - q^99 + q^112 - q^117 - q^138 - q^154 - q^164 + 2*q^171 - 
        q^176 - q^182 + q^184 + q^189 - q^206 - q^208 + 2*q^216 - q^219 + q^242 
        + q^252 - q^266 + q^286 - q^288 + q^292 + q^294 + q^297 - q^314 + q^318 
        + O(q^322),
    q^3 - 2*q^42 - q^48 + q^66 - q^69 + q^75 + q^78 - q^81 + q^114 - q^126 + 
        q^147 + 2*q^168 + q^192 + q^198 - q^207 - q^231 + q^234 - 2*q^246 - 
        q^264 - q^273 - q^309 - q^312 + O(q^322),
    q^4 - q^22 + q^23 - q^26 + q^27 + q^38 - q^42 - q^48 - q^49 - q^53 - q^56 - 
        q^64 + q^66 + q^77 + q^78 - q^81 + q^91 + q^100 + q^103 - q^113 - q^126 
        + q^146 + q^152 + q^157 + q^168 - q^181 - q^191 + q^192 + q^198 - q^199 
        - q^207 - q^209 - q^212 + q^218 + q^224 + q^234 - q^246 - q^247 + q^251 
        + q^257 + q^269 - q^276 - q^287 - 2*q^302 - q^311 + q^313 + O(q^322),
    q^6 - q^72 - q^84 - q^138 + q^150 - q^162 + q^216 + q^228 + q^294 + 
        O(q^322),
    q^7 - q^19 - q^28 + q^41 + q^44 - q^46 + q^52 - q^54 - q^63 - q^73 + q^83 + 
        q^98 + q^106 - q^109 + q^112 + q^128 + q^149 - q^154 - q^161 + q^162 - 
        q^164 - q^167 + q^171 + q^175 - q^176 - q^182 + q^193 - q^197 - q^206 - 
        q^208 + q^226 - q^227 - q^239 + q^241 + q^252 + q^253 - q^271 - q^281 + 
        q^297 + q^299 - q^314 + O(q^322),
    q^8 - q^44 + q^46 - q^52 + q^54 - q^72 + q^76 - q^98 - q^106 - q^112 - q^128
        + q^154 - q^162 + q^182 + q^200 + q^206 + q^216 - q^226 + q^292 + q^304 
        + q^314 + O(q^322),
    q^9 - q^27 - q^42 + q^66 - q^69 + q^78 - q^126 - q^144 + q^147 + q^159 + 
        q^168 + q^192 + q^225 - q^231 - q^246 - q^264 - q^273 - q^309 - q^312 + 
        O(q^322),
    q^11 + q^13 - q^19 + q^32 - q^46 - q^54 - q^73 + q^98 - q^99 + q^106 - q^109
        - q^117 + 2*q^151 - q^154 + q^161 + q^162 - q^167 + q^171 - q^176 - 
        q^182 + q^184 + q^189 - q^197 - q^206 - q^208 + q^216 + q^226 - q^227 - 
        q^239 - q^271 + q^275 - q^281 - q^288 + 2*q^293 + q^297 + q^304 + 
        2*q^307 - q^314 + O(q^322),
    q^12 - 2*q^42 - q^48 + q^66 + q^78 + q^114 - q^126 - q^144 + q^168 + q^192 +
        q^198 + q^234 - 2*q^246 - q^264 - q^276 + q^300 - q^312 + O(q^322),
    q^14 - q^22 + q^23 - q^26 + q^27 - q^49 - q^53 - q^56 - q^64 + q^77 - q^81 +
        q^82 + q^88 + q^91 + q^103 + q^104 - q^113 - q^126 + q^157 + q^166 - 
        q^181 - q^191 + q^198 - q^199 - q^207 - q^209 + q^224 + q^234 - q^247 + 
        q^251 + q^256 + q^257 + q^269 - q^287 + q^298 - 2*q^302 - q^311 + q^313 
        + O(q^322),
    q^16 - q^23 - q^27 + q^49 + q^53 - q^77 + q^81 - q^88 - q^91 + q^92 - q^103 
        - q^104 + q^108 + q^113 - q^144 + q^152 - q^157 + q^181 + q^191 - q^196 
        + q^199 + q^207 + q^209 - q^212 - q^224 + q^247 - q^251 - q^256 - q^257 
        - q^269 + q^287 + q^308 + q^311 - q^313 + O(q^322),
    q^18 + q^33 + q^39 - q^54 - q^57 - q^63 - q^72 + q^96 - q^99 - q^117 - q^138
        + 2*q^171 + q^189 + q^216 - q^219 - q^288 + q^294 + q^297 + q^318 + 
        O(q^322),
    q^21 - q^33 - q^39 + q^63 + q^72 - q^84 - q^96 + q^123 + q^132 + q^156 - 
        q^171 - q^189 - q^216 + q^249 - q^252 + O(q^322),
    q^24 + q^33 + q^39 - q^57 - q^63 - 2*q^72 + q^96 - q^99 - q^117 - q^132 - 
        q^156 + 2*q^171 + q^189 + 2*q^216 - q^219 + q^228 + q^252 - q^288 + 
        q^297 + O(q^322),
    q^36 - q^42 - q^48 + q^66 + q^78 - q^108 - q^126 + q^168 + q^192 - q^246 - 
        q^276 + O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
859
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
858
);
qprec:=
143
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
859
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
286
);
qprec:=
143
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
859
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
143
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
859
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
143
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
859
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
33*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
143
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
859
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
39*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
143
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
859
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
143*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
143
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
859
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
429*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
143
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^13 + q^16 - q^17 - q^35 + q^36 + q^49 - q^52 - q^59 + q^64
        - q^68 - q^71 - q^79 + q^81 - q^91 - q^117 - q^119 + q^121 - q^140 + 
        O(q^143),
    q^5 - q^13 - q^17 + q^20 - q^25 - q^35 + q^43 + q^45 + q^47 + q^49 - q^52 - 
        q^59 + q^61 + q^65 - q^68 - q^71 - q^79 + q^80 + q^85 - q^100 - q^117 + 
        q^125 + q^127 - q^140 + O(q^143),
    q^7 - q^13 - q^17 - q^25 + q^28 + q^31 + q^41 - q^52 + q^53 - q^59 + q^63 + 
        q^65 - q^68 - q^71 - q^79 + q^85 - q^91 - q^100 + q^103 + q^112 - q^117 
        - q^119 + q^124 + q^125 + q^131 + q^137 + O(q^143)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
84
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
84
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^11 + a^9 + a^8 - a^6 + a^4 + a^3 - a - 1)*q^4 + a^4*q^5 + (a^11 + 
        a^10 - 2*a^8 - a^7 + a^5 - a^3 - a^2 + a + 1)*q^6 + (a^11 - a^7 - a^4 + 
        a^2)*q^9 + (a^7 - a^5 - 1)*q^14 - a^3*q^16 + (a^9 - a^2)*q^20 + (-a^11 -
        2*a^10 + 2*a^8 + a^7 - a^6 - a^5 + 2*a^3 + a^2 - a - 1)*q^21 + (-a^11 + 
        a^6)*q^24 + a^8*q^25 + (a^10 - a^9)*q^29 + (a^11 - a^9 - a^8 + a^6 + a^5
        - a^4 - 2*a^3 + a + 1)*q^30 + (a^11 - 2*a^9 - a^8 + a^7 + a^6 + a^5 - 
        a^4 - a^3 + a)*q^36 + (a^10 + a^2)*q^41 + (-a^11 + a^6 - a)*q^45 + 
        (-a^11 + a^8 + a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^46 + (a^11 - a^8 - a^7
        + a^6 + a^5 - a^4 - a^3 - a^2 + a + 1)*q^49 + (-a^11 - a^10 + a^9 + a^8 
        + a^4 + 2*a^3 - 2*a - 1)*q^54 + (-a^10 - a^5 + a^3)*q^56 + (-a^11 - 
        a^5)*q^61 + (-a^8 + a)*q^64 + (-a^10 + a^9 + a^8 + a^7 - a^6 - a^5 - a^4
        + a^3)*q^69 + (a^11 - a^9 - a^4)*q^70 - a^7*q^80 + (a^11 + a^10 - a^9 - 
        2*a^8 + a^5 + a^4 - a^3 - a^2 + a)*q^81 + (a^8 - a^6 + a^4)*q^84 + (a^9 
        - a^2)*q^86 + (a^11 + a^10 - a^8 - a^7 + a^5 - 2*a^3 - a^2 + 1)*q^89 + 
        (-a^11 + a^4)*q^94 + (a^11 - a^4 + a^2)*q^96 + (a^11 + a^10 - a^8 - a^7 
        + a^5 - a^3 - a^2 + 1)*q^100 + (a^6 + a^4)*q^101 + (-a^11 - a^10 + a^9 +
        a^8 - a^6 - a^5 + a^4 + 2*a^3 - a)*q^105 + (-a^10 - a^8 + a^3 + a)*q^109
        + (-a + 1)*q^116 + (a^10 - a^8 + a)*q^120 + (a^11 - a^4)*q^121 + (-a^11 
        + a^9 + a^8 - a^6 + a^4 + a^3 - a - 1)*q^125 + (-2*a^11 + 2*a^9 + a^8 - 
        a^7 - a^6 + a^4 + a^3 - a)*q^126 + (a^11 - a^9 - a^8 + a^6 + a^5 - a^4 -
        2*a^3 + a + 1)*q^129 + (a^8 + 1)*q^134 + (a^5 - 1)*q^141 + (a^10 - a^5 +
        1)*q^144 + (-a^11 - a^10 + a^8 + 2*a^7 - a^6 - a^5 + a^3 + a^2 - 
        2)*q^145 + (-a^9 + a^2)*q^149 + (-a^7 + a^2)*q^150 + (-a^11 + a^9 + a^4 
        - 1)*q^161 + (a^7 - a - 1)*q^164 + (a^8 + a^6)*q^166 - a*q^169 + (-a^9 +
        a^8 + a^4 - a^3)*q^174 + (-a^10 + a^8 + a^7 - a^6 - a^5 - a^4 + a^3 + 
        2*a^2 - 1)*q^180 + (a^11 + a^10 - a^8 - a^7 - a^3 - a^2 + 1)*q^181 + 
        (a^4 - a)*q^184 + (2*a^11 + 2*a^10 - a^9 - 2*a^8 + a^6 + a^5 - a^4 - 
        3*a^3 - a^2 + 2*a + 1)*q^189 + (a^11 + a^10 - a^9 - a^8 - a^7 + a^6 + 
        a^5 - a^4 - a^3 + a + 1)*q^196 + (-a^11 + a^9 + a^8 - a^3 - a^2)*q^201 +
        (a^7 + a^6 - 1)*q^205 + (a^11 - a^7 - a^4)*q^206 + (a^11 - a^9 - a^8 + 
        a^6 + a^5 - a^4 - a^3 + a^2 + a + 1)*q^214 + (-a^10 + 2*a^8 + a^7 - a^6 
        - a^5 - a^4 + a^2 - 1)*q^216 + (-a^10 + a^8 + a^3)*q^224 + (a^10 - a^8 -
        a^5 + a)*q^225 + (a^9 - a^3 - a^2)*q^229 + (-a^10 + a^7 + a^3 - 1)*q^230
        + (-a^11 + a^9 + a^8 - a^6 + a^4 + a^3 - 2*a - 1)*q^241 + (-a^10 + a^3 +
        a^2)*q^244 + (a^10 - a^8 - a^7 + a^5 - a^3 + 1)*q^245 + (-a^10 - a^9 + 
        a^4 + a^3 - a)*q^246 + (-a^11 + a^7 - a^2 - 1)*q^249 + O(q^254),
    q^2 + (a^8 - a^3)*q^3 + (a^7 + a^2 - 1)*q^7 + (-a^11 + a^9 + a^8 - a^6 + a^4
        + a^3 - a - 1)*q^8 + a^4*q^10 + (a^11 + a^10 - 2*a^8 - a^7 + a^5 - a^3 -
        a^2 + a + 1)*q^12 + (-a^11 + a^9 + a^8 - a^7 - a^6 + a^4 + a^3 - a - 
        1)*q^15 + (a^11 - a^7 - a^4 + a^2)*q^18 + (a^11 - a^9 - a^8 + a^6 + a^5 
        - a^4 - a^3 + 1)*q^23 + (a^10 - a^8 - a^5 + a + 1)*q^27 + (a^7 - a^5 - 
        1)*q^28 - a^3*q^32 + (a^11 + a^6 - a^4)*q^35 + (a^9 - a^2)*q^40 + (-a^11
        - 2*a^10 + 2*a^8 + a^7 - a^6 - a^5 + 2*a^3 + a^2 - a - 1)*q^42 + 
        a^4*q^43 - a^6*q^47 + (-a^11 + a^6)*q^48 + a^8*q^50 + (a^10 - a^9)*q^58 
        + (a^11 - a^9 - a^8 + a^6 + a^5 - a^4 - 2*a^3 + a + 1)*q^60 + (a^10 - 
        a^8 - a^7 + a^5 + a^4 - a^3 - 2*a^2 + 2)*q^63 + (-a^10 - a^9 + a^3)*q^67
        + (a^11 - 2*a^9 - a^8 + a^7 + a^6 + a^5 - a^4 - a^3 + a)*q^72 + (-a^11 +
        a^9 - a^2)*q^75 + (a^10 + a^2)*q^82 + (-a^10 - a^8 + a^3 + a)*q^83 + 
        (-a^11 - 2*a^10 + a^9 + 2*a^8 + a^7 - 2*a^6 - a^5 + 3*a^3 + a^2 - a - 
        2)*q^87 + (-a^11 + a^6 - a)*q^90 + (-a^11 + a^8 + a^7 - a^6 - a^5 + a^3 
        + a^2 - 1)*q^92 + (a^11 - a^8 - a^7 + a^6 + a^5 - a^4 - a^3 - a^2 + a + 
        1)*q^98 + (a^9 + a^6 - a^2)*q^103 + (-a^11 - a^7)*q^107 + (-a^11 - a^10 
        + a^9 + a^8 + a^4 + 2*a^3 - 2*a - 1)*q^108 + (-a^10 - a^5 + a^3)*q^112 +
        (-a^5 + a^2)*q^115 + (-a^11 - a^5)*q^122 + (a^8 + a^7 - a^6 - 2*a^5 - 
        a^4 + a^3 + a^2 - 1)*q^123 + (a^11 + a^10 - a^8 - a^7 + a^5 - a^3 - a^2 
        - a + 1)*q^127 + (-a^8 + a)*q^128 + (a^11 - 2*a^9 - a^8 + a^7 + a^6 + 
        a^5 - a^3 + a)*q^135 + (-a^10 + a^9 + a^8 + a^7 - a^6 - a^5 - a^4 + 
        a^3)*q^138 + (a^11 - a^9 - a^4)*q^140 + (a^11 + a^10 - a^9 - 2*a^8 + 
        2*a^6 + a^5 - a^4 - 2*a^3 + a + 1)*q^147 - a^7*q^160 + (a^11 + a^10 - 
        a^9 - 2*a^8 + a^5 + a^4 - a^3 - a^2 + a)*q^162 + (-a^7 + a^6)*q^163 + 
        (-a^9 + a^8)*q^167 + (a^8 - a^6 + a^4)*q^168 + (a^9 - a^2)*q^172 + (a^10
        - a)*q^175 + (a^11 + a^10 - a^8 - a^7 + a^5 - 2*a^3 - a^2 + 1)*q^178 + 
        (-a^10 - a^9 + a^8 + 2*a^7 - a^4 + a^2 + a - 1)*q^183 + (-a^11 + 
        a^4)*q^188 + (a^11 - a^4 + a^2)*q^192 + (a^11 + a^10 - a^8 - a^7 + a^5 -
        a^3 - a^2 + 1)*q^200 + (a^6 + a^4)*q^202 + (-2*a^11 + a^9 + a^8 - a^6 + 
        a^4 + a^2 - a - 1)*q^203 + (a^11 + a^6 - a^4 - 2*a^3 - a^2 + a + 
        2)*q^207 + (-a^11 - a^10 + a^9 + a^8 - a^6 - a^5 + a^4 + 2*a^3 - 
        a)*q^210 + a^8*q^215 + (-a^10 - a^8 + a^3 + a)*q^218 + (a^10 + a^7 - 
        1)*q^223 + a^7*q^227 + (-a + 1)*q^232 - a^10*q^235 + (a^10 - a^8 + 
        a)*q^240 + (a^11 - a^4)*q^242 + (-a^10 + a^9 + a^8 - a^7 - a^6 + 2*a^3 +
        a^2 - 2*a - 1)*q^243 + (-a^11 + a^9 + a^8 - a^6 + a^4 + a^3 - a - 
        1)*q^250 + (-2*a^11 + 2*a^9 + a^8 - a^7 - a^6 + a^4 + a^3 - a)*q^252 + 
        O(q^254)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^5*q^4 + a^4*q^5 + (a^5 - a^4 + a^3 - a^2 - 1)*q^6 + (a^4 + a^2 + 
        1)*q^9 + (-a^5 + 1)*q^14 - a^3*q^16 + a^2*q^20 + (a^5 - a^4 - a^2 - a - 
        1)*q^21 + (a^5 + a^3 - a^2 + a - 1)*q^24 - a*q^25 + (-a^3 + a^2)*q^29 + 
        (-a^5 - a^3)*q^30 + (-a^5 + a^2 + 1)*q^36 + (-a^3 + a^2)*q^41 + (a^5 + 
        a^3 - a^2 - 1)*q^45 + (a^5 - a^4 - a^2 + a - 1)*q^46 + (-a^5 + a^2 + 
        1)*q^49 + (-a^4 - a^2 - 1)*q^54 + (-a^5 - a^3)*q^56 + (-a^5 + a^4)*q^61 
        - a*q^64 + (a^5 + a^3 + a)*q^69 + (a^4 + a^2)*q^70 + q^80 + (a^5 + 
        a^3)*q^81 + (2*a^5 - a^4 + 2*a^3 - 2*a^2 + a - 2)*q^84 + a^2*q^86 + (a^5
        - a^4 - a^2 + a - 1)*q^89 + 2*a^4*q^94 + (a^4 + a^2)*q^96 + (a^5 - a^4 +
        a^3 - a^2 + a - 1)*q^100 + (a^5 + a^3 - a^2 + a - 1)*q^101 + (-2*a^5 - 
        a^3 + 1)*q^105 + (-a^3 - a)*q^109 + (-a + 1)*q^116 + (-a^3 - a)*q^120 + 
        a^4*q^121 - a^5*q^125 + (-a^5 + a^4 + 2*a^2 + 2)*q^126 + (-a^5 - 
        a^3)*q^129 + (-a + 1)*q^134 + (-2*a^5 + 2)*q^141 + (-a^5 - a^3 + 
        1)*q^144 + (a^5 - a^4 + a^3 - a^2 + a)*q^145 + 2*a^2*q^149 + (a^2 + 
        1)*q^150 + (-a^4 - a^2 - 1)*q^161 + (-a + 1)*q^164 + (a^5 - a^4 + a^3 - 
        a^2 - 1)*q^166 - a*q^169 + (a^4 - a^3 + a^2 - a)*q^174 + (a^5 + a^3 + a 
        - 1)*q^180 + (-a^4 + a^3 - a^2 + a - 1)*q^181 + (a^4 - a)*q^184 + (-a^5 
        - a^4 - a^3 - a^2 - a)*q^189 + (-a^5 - a^3 + 1)*q^196 + (a^4 - a^3 + a^2
        - a)*q^201 + (a^5 - a^4 + a^3 - a^2 + a)*q^205 + (a^4 + 1)*q^206 + (-a^5
        + a^2)*q^214 + (a^5 - a^2 - 1)*q^216 + (-a^3 - a)*q^224 + (-a^5 - a^3 - 
        a)*q^225 + (-a^3 + a^2)*q^229 + (-a^3 + 1)*q^230 + (-a^5 - a)*q^241 + 
        (-a^3 + a^2)*q^244 + (a^5 + a^3 + a - 1)*q^245 + (a^4 - a^3 + a^2 - 
        a)*q^246 + (a^4 + 2*a^2 + 1)*q^249 + O(q^254),
    q^2 + (-a^3 - a)*q^3 + (a^2 + 1)*q^7 - a^5*q^8 + a^4*q^10 + (a^5 - a^4 + a^3
        - a^2 - 1)*q^12 + (-a^5 + 1)*q^15 + (a^4 + a^2 + 1)*q^18 + (-a^5 - 
        a)*q^23 + (-a^5 - a^3 - a + 1)*q^27 + (-a^5 + 1)*q^28 - a^3*q^32 + (a^5 
        + a^3 - a^2 + a - 1)*q^35 + a^2*q^40 + (a^5 - a^4 - a^2 - a - 1)*q^42 + 
        a^4*q^43 + (2*a^5 - 2*a^4 + 2*a^3 - 2*a^2 + 2*a - 2)*q^47 + (a^5 + a^3 -
        a^2 + a - 1)*q^48 - a*q^50 + (-a^3 + a^2)*q^58 + (-a^5 - a^3)*q^60 + 
        (a^5 + a^4 + a^3 + a^2 + a)*q^63 + (-a^3 + a^2)*q^67 + (-a^5 + a^2 + 
        1)*q^72 + (a^4 + a^2)*q^75 + (-a^3 + a^2)*q^82 + (-a^3 - a)*q^83 + (-a^2
        + a - 1)*q^87 + (a^5 + a^3 - a^2 - 1)*q^90 + (a^5 - a^4 - a^2 + a - 
        1)*q^92 + (-a^5 + a^2 + 1)*q^98 + (a^5 - a^4 + a^3 + a - 1)*q^103 + (a^4
        + 1)*q^107 + (-a^4 - a^2 - 1)*q^108 + (-a^5 - a^3)*q^112 + (-a^5 + 
        a^2)*q^115 + (-a^5 + a^4)*q^122 + (-a^2 + a - 1)*q^123 + (a^5 - a^4 + 
        a^3 - a^2 - 1)*q^127 - a*q^128 + (-a^5 + a^4 + a^2 + 1)*q^135 + (a^5 + 
        a^3 + a)*q^138 + (a^4 + a^2)*q^140 + (-a^4 - a^3 - a^2 - a - 1)*q^147 + 
        q^160 + (a^5 + a^3)*q^162 + (a^5 - a^4 + a^3 - a^2 + a)*q^163 + (a^2 - 
        a)*q^167 + (2*a^5 - a^4 + 2*a^3 - 2*a^2 + a - 2)*q^168 + a^2*q^172 + 
        (-a^3 - a)*q^175 + (a^5 - a^4 - a^2 + a - 1)*q^178 + (-a^4 + a^3 - 
        a^2)*q^183 + 2*a^4*q^188 + (a^4 + a^2)*q^192 + (a^5 - a^4 + a^3 - a^2 + 
        a - 1)*q^200 + (a^5 + a^3 - a^2 + a - 1)*q^202 + (-a^5 + a^4 - a^3 + 
        a^2)*q^203 + (-2*a^5 - a^3 + a^2 - a + 1)*q^207 + (-2*a^5 - a^3 + 
        1)*q^210 - a*q^215 + (-a^3 - a)*q^218 + (-a^3 + 1)*q^223 + 2*q^227 + (-a
        + 1)*q^232 - 2*a^3*q^235 + (-a^3 - a)*q^240 + a^4*q^242 + (-a^5 + a^4 - 
        a^3 + a^2 - a + 1)*q^243 - a^5*q^250 + (-a^5 + a^4 + 2*a^2 + 2)*q^252 + 
        O(q^254)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 - a*q^5 + a*q^6 + (2*a - 2)*q^14 + q^16 - a*q^20 - 2*q^21 + a*q^24 +
        (a - 1)*q^25 + (-a + 1)*q^29 + (-a + 1)*q^30 - q^41 - 2*a*q^46 - 
        3*a*q^49 + q^54 + (2*a - 2)*q^56 + (2*a - 2)*q^61 + q^64 + (-2*a + 
        2)*q^69 + 2*q^70 - a*q^80 + a*q^81 - 2*q^84 - a*q^86 + a*q^89 - q^94 + 
        a*q^96 + (a - 1)*q^100 + (-a + 1)*q^101 + 2*a*q^105 + a*q^109 + (-a + 
        1)*q^116 + (-a + 1)*q^120 + q^121 + q^125 + (-a + 1)*q^129 + a*q^134 - 
        a*q^141 - q^145 + a*q^149 - q^150 + 4*q^161 - q^164 + a*q^166 - a*q^169 
        + q^174 + (2*a - 2)*q^181 - 2*a*q^184 + (2*a - 2)*q^189 - 3*a*q^196 + (a
        - 1)*q^201 + a*q^205 + (-a + 1)*q^206 - q^214 + q^216 + (2*a - 2)*q^224 
        + (-a + 1)*q^229 + (2*a - 2)*q^230 + (-a + 1)*q^241 + (2*a - 2)*q^244 + 
        (3*a - 3)*q^245 - a*q^246 + (a - 1)*q^249 + O(q^254),
    q^2 + a*q^3 + (2*a - 2)*q^7 + q^8 - a*q^10 + a*q^12 + (-a + 1)*q^15 - 
        2*a*q^23 + q^27 + (2*a - 2)*q^28 + q^32 + 2*q^35 - a*q^40 - 2*q^42 - 
        a*q^43 - q^47 + a*q^48 + (a - 1)*q^50 + (-a + 1)*q^58 + (-a + 1)*q^60 + 
        a*q^67 - q^75 - q^82 + a*q^83 + q^87 - 2*a*q^92 - 3*a*q^98 + (-a + 
        1)*q^103 - q^107 + q^108 + (2*a - 2)*q^112 + (2*a - 2)*q^115 + (2*a - 
        2)*q^122 - a*q^123 - q^127 + q^128 - a*q^135 + (-2*a + 2)*q^138 + 
        2*q^140 + (-3*a + 3)*q^147 - a*q^160 + a*q^162 + (-a + 1)*q^163 + 
        a*q^167 - 2*q^168 - a*q^172 - 2*a*q^175 + a*q^178 - 2*q^183 - q^188 + 
        a*q^192 + (a - 1)*q^200 + (-a + 1)*q^202 + 2*a*q^203 + 2*a*q^210 + (a - 
        1)*q^215 + a*q^218 - q^223 + a*q^227 + (-a + 1)*q^232 + a*q^235 + (-a + 
        1)*q^240 + q^242 + q^250 + O(q^254)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^11 - q^13 - q^17 - q^23 + q^25 - q^31 - q^41 + q^43 + 2*q^47 + 
        q^49 - q^53 + 2*q^59 - q^67 + 2*q^79 + q^81 - q^83 - q^97 - q^99 - q^101
        - q^103 + 2*q^107 - q^109 - q^117 - q^127 - q^139 + q^143 - q^153 - 
        q^167 + 2*q^173 + 2*q^181 + q^187 - q^193 + 2*q^197 - q^207 + q^221 + 
        q^225 - q^229 + 2*q^239 - q^251 + q^253 + O(q^254),
    q^5 + q^45 - q^55 - q^65 - q^85 - q^115 + q^125 - q^155 - q^205 + q^215 + 
        2*q^235 + q^245 + O(q^254)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 21*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
860
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 21*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^25 - q^31 - q^35 + q^49 - q^99 - q^101 - q^109 - q^111 + q^121 - q^165
        + q^169 - q^189 + q^215 + q^219 + q^231 - q^239 + 2*q^251 + O(q^254),
    q^2 - q^28 - q^32 + q^50 - q^62 - q^70 + q^98 + q^108 + q^112 + q^148 - 
        q^180 + q^192 - q^198 - q^202 - q^218 + q^220 - q^222 + q^242 + 
        O(q^254),
    q^3 - q^33 - q^37 - q^55 - q^63 + q^73 + q^75 + q^77 + q^137 + q^157 - q^163
        + q^205 - q^217 + q^233 - q^237 - q^245 + O(q^254),
    q^4 + q^40 + q^44 - 2*q^56 - q^60 - q^64 + q^100 - q^124 - q^140 - q^144 - 
        q^164 + q^176 + 2*q^196 + q^216 + q^224 - q^236 + O(q^254),
    q^5 - q^27 - q^33 - q^37 + q^43 + q^45 - q^55 + q^63 - q^93 - q^105 + 
        2*q^123 + q^125 - q^147 - q^163 + 2*q^177 + q^217 + 2*q^223 - q^237 - 
        q^243 + O(q^254),
    q^6 + q^40 + q^44 - q^56 - q^60 - q^66 - q^74 - q^110 - q^126 - q^144 + 
        q^146 + q^150 + q^154 - q^164 + q^176 + q^196 - q^236 + O(q^254),
    q^7 - q^27 - q^37 + q^45 - q^55 + q^77 - q^93 - q^105 + q^113 + q^123 + 
        q^155 - q^163 + q^175 + q^177 - q^217 + q^227 - q^245 + O(q^254),
    q^8 - q^28 - q^48 + q^108 + q^148 - q^180 + q^200 + q^220 - q^248 + 
        O(q^254),
    q^9 - q^15 - q^21 + q^31 + q^35 - q^41 - q^59 + q^81 + q^101 + q^109 + q^111
        - q^121 - q^129 - q^135 - q^139 + q^165 - q^181 - q^189 + q^219 + q^225 
        + q^239 + O(q^254),
    q^10 + q^24 + q^44 - q^54 - q^56 - q^60 - q^66 - q^74 + q^86 + q^90 - q^96 -
        q^110 + q^126 - q^164 - q^186 + q^196 - q^210 + q^216 + q^224 - q^236 + 
        2*q^246 + q^250 + O(q^254),
    q^11 - q^15 - q^41 + q^49 - q^59 + q^79 + q^81 + q^111 - q^121 - q^129 - 
        q^139 + q^165 - q^181 + q^185 - q^189 + q^229 + O(q^254),
    q^12 - q^28 - q^32 + q^80 + q^88 + q^108 - q^120 - q^132 - q^180 + q^192 - 
        q^252 + O(q^254),
    q^14 + q^24 + q^40 + q^44 - q^54 - 2*q^56 - q^60 - q^64 - q^74 + q^90 - 
        q^110 - q^144 + q^154 + q^160 - q^164 + 2*q^176 - q^186 + q^196 - q^210 
        + q^216 + q^226 - q^236 - q^240 + q^246 + O(q^254),
    q^16 - q^24 - q^40 - q^44 + q^56 + q^60 + q^64 - q^96 + q^144 - q^160 + 
        q^164 - 2*q^176 - q^196 + q^236 + q^240 + O(q^254),
    q^18 - q^30 + q^32 - q^42 - q^48 + q^62 + q^70 - q^72 - q^82 - q^118 + q^120
        + q^162 + q^168 + q^202 + q^218 + q^222 - q^242 - q^248 + O(q^254),
    q^20 - q^28 - q^32 + q^48 - q^72 + q^80 + 2*q^88 - q^112 - q^120 - q^128 - 
        q^132 + q^168 + q^172 + q^192 - q^248 + q^252 + O(q^254),
    q^22 - q^30 + q^32 - q^48 - q^80 - q^82 - q^88 + q^98 + q^112 - q^118 + 
        q^120 + q^128 + q^158 + q^162 - q^192 + q^222 - q^242 + O(q^254),
    q^36 - q^40 - q^44 + q^56 + q^64 - q^84 - q^96 + q^124 + q^140 - q^176 - 
        q^196 + q^240 + O(q^254)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
120
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
120
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
861
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^21 - q^23 + q^25 - q^32 - q^39 - q^42 + q^49 + q^51 + q^57 + q^74 - 
        q^78 - q^81 - q^86 + q^92 + 2*q^102 - q^113 + 2*q^114 + q^121 - q^123 + 
        q^128 - q^141 - q^156 - q^163 - q^172 + q^182 - q^184 + q^189 + q^204 - 
        q^214 + O(q^218),
    q^2 - q^16 - q^21 + q^37 - q^39 - q^42 - q^43 + q^50 + 2*q^51 + 2*q^57 - 
        2*q^78 - q^84 - q^86 + q^91 - q^92 + q^98 + 2*q^102 - q^107 + 2*q^114 - 
        q^119 - q^123 + q^127 - q^133 - q^141 + q^148 - q^162 + q^168 + q^184 + 
        q^189 - q^197 + q^204 - q^214 + O(q^218),
    q^3 + q^27 - q^54 - q^63 - q^69 + q^75 - q^96 - q^108 + q^147 - q^153 - 
        q^171 + q^216 + O(q^218),
    q^4 - q^8 + q^23 - q^39 - q^42 - q^43 - q^46 + q^51 + q^57 + q^74 + q^100 + 
        q^102 - q^107 + q^113 + q^114 - q^119 - q^133 - q^141 - q^148 - q^156 + 
        q^163 + q^169 + q^182 + q^196 - q^197 - q^200 + O(q^218),
    q^6 - q^27 - q^48 + q^111 - q^129 + q^150 + q^153 + q^171 + O(q^218),
    q^7 + q^26 + q^27 - q^34 - q^38 + q^41 - q^63 - q^68 - q^76 + q^94 - q^97 - 
        q^101 - q^108 + q^136 + q^152 - q^161 + q^175 + q^178 - q^181 - q^208 + 
        q^216 + O(q^218),
    q^9 - q^21 - q^39 - q^42 + q^51 + q^57 - q^78 + 2*q^102 + 2*q^114 - q^123 - 
        q^141 - q^156 - q^162 + q^204 - q^207 + O(q^218),
    q^12 - q^24 - q^27 + q^63 + q^69 + q^108 - q^117 - q^126 - q^129 - q^138 + 
        q^153 + q^171 - q^216 + O(q^218),
    q^13 + q^14 - q^26 + q^27 - q^28 - q^34 - q^38 + q^47 + 2*q^52 - q^54 + q^56
        + q^82 + q^89 - q^94 - q^97 - q^101 - 2*q^104 + q^108 - q^112 - q^117 - 
        q^126 - q^161 - q^164 - q^178 - q^181 + 2*q^188 + q^194 + q^199 + q^202 
        + q^208 - q^216 + O(q^218),
    q^17 + q^19 - q^26 + q^27 - q^28 + q^52 - q^54 + q^56 - q^94 - q^97 - q^101 
        - q^104 - q^153 + q^157 - q^161 - q^164 + q^167 - q^171 - q^178 - q^181 
        + q^188 + q^194 + q^202 + q^208 + O(q^218),
    q^18 - q^21 - q^39 - q^42 + 2*q^51 + 2*q^57 - 2*q^78 - q^81 - q^84 + 2*q^102
        + 2*q^114 - q^123 - q^141 - q^144 - q^162 + q^168 + q^189 + q^204 + 
        O(q^218),
    q^36 - q^39 - q^42 + q^51 + q^57 - q^72 - q^81 + q^102 + q^114 - q^141 - 
        q^156 + q^189 + q^207 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
862
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
430
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
862
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
86
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
862
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
43*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
862
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
215*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^23 - q^24 + 2*q^25 + q^38 + q^40 - q^46 + q^48 + q^49 - q^50 - q^54 - 
        2*q^55 - q^57 - q^59 - q^64 + q^66 - q^72 - q^82 - q^90 - q^92 - q^96 - 
        q^99 - q^100 + q^106 + q^108 - q^109 + q^110 + q^114 + q^116 + q^121 - 
        q^123 + q^128 - q^132 - q^135 + q^144 - q^145 - q^159 - q^160 + q^163 + 
        q^164 + q^165 + q^169 + q^171 + q^173 - q^174 + q^180 + q^184 + q^192 - 
        q^197 + q^198 + q^200 - q^205 + O(q^214),
    q^2 - q^23 - q^25 - q^40 - q^44 + q^50 + q^55 + q^57 + q^98 + q^99 + q^109 -
        q^110 - q^118 + q^145 + q^159 - q^163 - q^165 - q^171 - q^173 - q^180 - 
        q^192 + O(q^214),
    q^3 - q^30 - q^32 + q^38 + q^40 - q^41 - q^45 + q^75 - q^87 - q^95 + q^106 +
        q^116 - q^122 - q^132 + q^145 + q^147 + q^149 + q^176 + q^190 + q^209 + 
        O(q^214),
    q^4 - q^30 - q^32 + q^38 + q^40 - q^46 - q^50 - q^80 - q^88 + q^100 + q^106 
        + q^110 + q^114 + q^116 - q^122 - q^132 + q^176 + q^190 + q^196 + q^198 
        + O(q^214),
    q^5 + q^24 + q^30 + q^45 - q^54 - q^55 - q^57 + q^58 - q^60 - q^64 - q^69 - 
        q^75 + q^76 - q^82 + q^87 - q^90 - q^109 + q^115 - q^120 + q^125 - q^145
        + q^151 - q^159 + q^162 - q^174 + q^183 - q^190 + q^194 - q^207 + q^212 
        + O(q^214),
    q^6 + q^23 + q^25 - q^55 - q^57 - q^60 - q^64 + q^76 + q^80 - q^82 - q^90 - 
        q^99 - q^109 - q^145 + q^150 - q^159 + q^163 + q^165 + q^171 + q^173 - 
        q^174 - q^190 + q^212 + O(q^214),
    q^8 + q^23 - q^24 + q^25 + q^32 - q^55 - q^57 - q^92 - q^96 - q^99 - q^100 -
        q^109 + q^128 - q^145 - q^159 - q^160 + q^163 + q^165 + q^171 + q^173 - 
        q^176 + q^200 + O(q^214),
    q^9 - q^23 + q^24 - q^25 - q^38 - q^40 + q^46 - q^48 + q^50 + q^55 + q^59 - 
        q^60 - q^66 - q^69 + q^72 - q^75 + q^81 + q^92 + q^96 + q^100 - q^106 - 
        q^116 + q^123 + q^135 + q^138 - q^144 + q^150 + q^160 - q^163 - q^165 - 
        q^171 - q^173 - q^184 - q^190 - q^192 + q^197 - q^200 + q^205 - q^207 + 
        O(q^214),
    q^10 + q^23 - q^24 + q^25 + q^40 + q^44 + q^48 - q^54 - q^55 - q^57 - q^64 -
        q^82 - q^92 - q^99 - q^100 - q^109 + q^116 - q^120 - q^132 - q^145 + 
        q^152 - q^159 + q^163 + q^165 + q^171 + q^173 + q^180 - q^190 + q^192 + 
        q^198 + O(q^214),
    q^11 - q^23 + q^24 - q^25 - q^40 - q^44 + q^45 + q^57 - q^69 - q^75 + q^92 +
        q^99 + q^100 + q^121 + q^157 + q^159 - q^163 - q^165 - q^171 - q^173 - 
        q^180 + q^183 - q^192 - q^207 + O(q^214),
    q^12 + q^23 - q^24 + q^25 + q^38 + q^40 + q^48 - q^54 - q^55 - q^57 - q^64 +
        q^66 - q^72 - q^82 - q^90 - q^92 - q^96 - q^99 - q^100 + q^106 + q^108 -
        q^109 + q^116 - q^120 - q^132 + q^144 - q^145 + q^152 - q^159 + q^163 + 
        q^165 + q^171 + q^173 - q^174 + q^184 + q^192 + q^200 + O(q^214),
    q^15 - q^23 + q^24 - q^25 - q^32 + q^33 - q^60 + q^61 - q^64 - q^69 + q^72 -
        q^75 + q^92 + q^96 + q^100 + q^115 - q^120 + q^125 - q^128 - q^132 + 
        q^135 + q^160 - q^163 - q^165 - q^173 + q^176 + q^179 - q^207 + q^209 + 
        O(q^214),
    q^16 + q^23 - q^24 + q^25 + q^30 + q^32 - q^54 - q^55 - q^57 + q^66 - q^72 -
        q^82 - q^90 - q^92 - q^96 - q^99 - q^100 + q^108 - q^109 + q^122 + q^128
        + q^144 - q^145 - q^159 - q^160 + q^163 + q^164 + q^165 + q^171 + q^173 
        - q^174 - q^176 + q^180 - q^190 + O(q^214),
    q^18 + q^23 + q^25 + q^40 + q^44 - q^54 - q^55 - q^57 - q^60 - q^64 - q^82 -
        q^90 - q^99 - q^109 + q^110 + q^118 - q^120 - q^132 - q^145 - q^159 + 
        q^162 + q^163 + q^165 + q^171 + q^173 - q^174 + q^180 - q^190 + q^192 + 
        O(q^214),
    q^19 - q^23 - q^25 + q^33 + q^53 - q^69 + q^72 - q^75 - q^76 - q^80 + q^92 +
        q^95 + q^100 - q^120 - q^132 + q^135 + q^160 - q^163 - q^173 + q^176 + 
        q^205 - q^212 + O(q^214),
    q^20 + q^23 + q^25 + q^30 - q^54 - q^55 - q^57 + q^58 - q^60 - q^64 - q^72 +
        q^76 + q^80 - q^82 + q^88 - q^90 - q^92 - q^99 - q^100 - q^109 + q^144 -
        q^145 - q^159 - q^160 + q^162 + q^163 + q^165 + q^171 + q^173 - q^174 - 
        q^176 + q^180 - q^190 + q^192 + q^194 + q^212 + O(q^214),
    q^22 - q^24 - q^30 + q^38 + q^40 - q^46 + q^48 - q^50 - q^58 + q^60 + q^66 -
        q^76 - q^80 - q^88 + q^90 + q^106 + q^114 + q^116 - q^132 - q^138 - 
        q^150 - q^162 + q^176 + q^184 + q^190 - q^194 + q^198 + q^200 - q^212 + 
        O(q^214),
    q^27 + q^30 + q^32 + q^41 + q^45 - q^54 - q^55 - q^57 - q^64 + q^66 - q^69 -
        q^75 - q^82 + q^87 - q^90 + q^95 - q^99 - q^109 - q^120 + q^122 - q^145 
        - q^159 + q^165 - q^174 + q^177 - q^190 - q^207 + O(q^214),
    q^29 + q^32 - q^33 - q^40 - q^48 - q^61 + q^64 + q^81 + q^97 - q^115 - q^116
        + q^120 + q^123 - q^125 + q^128 + q^132 + q^139 - q^152 - q^160 - q^171 
        - q^176 - q^179 - q^192 - q^209 + O(q^214),
    q^36 - q^38 - q^40 + q^46 + q^50 - q^60 - q^66 + q^80 + q^88 - q^106 - q^116
        + q^138 + q^150 - q^176 - q^190 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
863
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
862
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
863
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
431*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^16 + q^17 + q^19 + q^25 - q^29 - q^31 - q^32 - q^34 - q^37 + q^41 + 
        q^43 + q^49 + q^53 - q^57 - q^59 - q^68 - q^71 - q^72 + q^74 + q^81 - 
        q^82 - q^86 - q^103 - q^107 - q^108 + q^111 - q^113 + q^121 - q^123 + 
        q^127 - q^129 + q^142 + O(q^144),
    q^2 + q^19 + q^24 - q^27 - q^29 - q^31 - q^34 - q^37 + q^41 + q^43 - q^48 + 
        q^50 - q^51 + q^53 - q^57 + q^58 - q^61 + q^62 - q^64 - q^68 - q^71 - 
        q^72 + q^74 + q^81 - q^82 - q^86 + q^87 + q^93 + q^98 + q^109 + q^111 - 
        q^113 - q^116 - q^124 + q^128 + q^136 + q^142 + O(q^144),
    q^3 - q^19 - q^24 + q^27 - q^38 - q^53 + q^72 + q^75 - q^81 + q^82 + q^86 - 
        q^106 + q^116 + q^124 + O(q^144),
    q^4 - q^17 - q^19 - q^24 + q^29 + q^31 + q^37 - q^41 - q^43 - q^53 + q^57 - 
        q^58 + q^59 - q^62 + q^64 + q^68 + q^71 + q^72 - q^74 - q^81 + q^82 + 
        q^86 - q^96 + q^100 - q^102 - q^111 + q^113 + q^123 - q^127 - q^128 + 
        q^129 - q^136 - q^142 + O(q^144),
    q^6 - q^16 - q^17 - q^19 + q^29 + q^31 + q^37 - q^53 + q^71 - q^74 - q^81 + 
        q^82 + q^86 - q^102 - q^111 + q^113 - q^114 - q^122 + q^123 - q^127 + 
        q^129 - q^142 + O(q^144),
    q^8 - q^16 - q^17 - q^19 - q^24 + q^27 + q^29 + q^31 + q^32 + q^34 + q^37 - 
        q^41 - q^43 - q^53 - q^54 + q^57 - q^58 + q^61 - q^62 + q^71 + q^72 - 
        q^74 - q^81 + q^82 + q^86 - q^87 - q^93 + q^108 - q^111 + q^113 + q^118 
        - q^122 + q^123 - q^127 + q^129 - q^142 + O(q^144),
    q^9 - q^16 - q^17 - q^19 + q^29 + q^31 + q^32 + q^34 + q^37 - q^41 - q^43 - 
        q^53 - q^54 + q^71 - q^74 + q^82 + q^86 - q^87 - q^93 + q^103 + q^107 + 
        q^108 - q^111 + q^113 - q^114 - q^122 + q^123 - q^127 + q^129 - q^142 + 
        O(q^144),
    q^12 - q^16 - q^17 + q^29 + q^31 - q^51 - q^54 + q^82 + q^86 + q^108 - q^111
        - q^114 - q^122 + q^123 - q^127 + q^129 + O(q^144),
    q^18 - q^19 - q^24 + q^29 + q^31 - q^38 - q^53 + q^64 + q^68 + q^72 - q^74 -
        q^76 - q^81 + q^82 + q^86 - q^96 - q^102 - q^106 + q^116 + q^123 + q^124
        + q^129 - q^142 + O(q^144),
    q^36 - q^37 - q^38 + q^41 + q^43 - q^48 - q^51 + q^58 + q^62 - q^71 - q^76 +
        q^87 + q^93 - q^106 - q^113 + q^128 + q^136 + O(q^144)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^25 - q^49 - 2*q^109 + q^121 + 2*q^133 + 2*q^157 + q^169 - 2*q^229 + 
        O(q^242),
    q^2 - q^50 - q^98 - 2*q^218 + O(q^242),
    q^3 - 2*q^39 - q^75 + 2*q^111 + q^147 + 2*q^183 - 2*q^219 + O(q^242),
    q^6 - 2*q^78 - q^150 + 2*q^222 + O(q^242),
    q^7 - q^19 - q^67 - q^79 + q^91 + q^103 + q^139 - q^151 + q^163 - q^175 + 
        q^199 + q^211 + O(q^242),
    q^13 - q^37 - q^49 - q^61 + q^73 + q^97 + q^133 - q^169 + q^181 - q^193 + 
        q^241 + O(q^242),
    q^14 - q^38 - q^134 - q^158 + q^182 + q^206 + O(q^242),
    q^26 - q^74 - q^98 - q^122 + q^146 + q^194 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^4*q^3 + (a^5 - a^2)*q^9 + (-a^3 - a^2 + 1)*q^11 + (-a^5 - a^4 + 
        a)*q^17 + (-a^5 + a^4 + a^2 - a)*q^19 - a*q^25 + a^3*q^27 + (a^3 - a - 
        1)*q^33 + (a^4 - a^3)*q^41 + (a^5 + a^3)*q^43 - a^5*q^49 + (-a^2 - 
        1)*q^51 + (-a^3 + a^2)*q^57 + (a - 1)*q^59 + (-a^3 + a + 1)*q^67 + (a^4 
        + a^2)*q^73 + a^5*q^75 + (-a^4 + a)*q^81 - a*q^83 + a^3*q^89 + (a^3 + 
        a^2 - 1)*q^97 + (a^5 + a)*q^99 + (-a^5 + a^2 + a)*q^107 + a^5*q^113 + 
        (a^5 + a^4 - a^3 - a^2)*q^121 + (-a^5 + a^4 + a^2 - a)*q^123 + (-a^4 + a
        + 1)*q^129 + a^2*q^131 + (a^5 - a^3 - a^2)*q^137 + (-a^4 - 1)*q^139 - 
        q^147 + (a^4 + a^3 - 1)*q^153 + q^163 + (-a^4 + a)*q^169 + (a^4 - a^3 - 
        a + 1)*q^171 + (-a^5 + a^4)*q^177 + (a^3 - 1)*q^179 + (-a^2 - a - 
        1)*q^187 + (-a^4 + a^3 + a - 1)*q^193 + (-a^5 - a)*q^201 + (-a^5 + a^4 -
        a + 1)*q^209 - a^5*q^211 + (-a^5 - a^3 + a^2 + 1)*q^219 + q^225 + (a^5 +
        a^3)*q^227 + (a^2 - a)*q^233 + (a^5 - a^3 - a^2)*q^241 + O(q^242)
]
;
Bo:=
[
    q + a^4*q^3 + (a^5 - a^2)*q^9 + (a^3 + a^2 - 1)*q^11 + (-a^5 - a^4 + a)*q^17
        + (a^5 - a^4 - a^2 + a)*q^19 - a*q^25 - a^3*q^27 + (a^3 - a - 1)*q^33 + 
        (a^4 - a^3)*q^41 + (-a^5 - a^3)*q^43 - a^5*q^49 + (a^2 + 1)*q^51 + (-a^3
        + a^2)*q^57 + (-a + 1)*q^59 + (a^3 - a - 1)*q^67 + (a^4 + a^2)*q^73 - 
        a^5*q^75 + (-a^4 + a)*q^81 + a*q^83 + a^3*q^89 + (a^3 + a^2 - 1)*q^97 + 
        (-a^5 - a)*q^99 + (a^5 - a^2 - a)*q^107 + a^5*q^113 + (a^5 + a^4 - a^3 -
        a^2)*q^121 + (a^5 - a^4 - a^2 + a)*q^123 + (-a^4 + a + 1)*q^129 - 
        a^2*q^131 + (a^5 - a^3 - a^2)*q^137 + (a^4 + 1)*q^139 + q^147 + (a^4 + 
        a^3 - 1)*q^153 - q^163 + (-a^4 + a)*q^169 + (-a^4 + a^3 + a - 1)*q^171 +
        (-a^5 + a^4)*q^177 + (-a^3 + 1)*q^179 + (a^2 + a + 1)*q^187 + (-a^4 + 
        a^3 + a - 1)*q^193 + (-a^5 - a)*q^201 + (-a^5 + a^4 - a + 1)*q^209 + 
        a^5*q^211 + (a^5 + a^3 - a^2 - 1)*q^219 + q^225 + (-a^5 - a^3)*q^227 + 
        (a^2 - a)*q^233 + (a^5 - a^3 - a^2)*q^241 + O(q^242),
    q^2 + a^4*q^6 + (a^5 - a^2)*q^18 + (a^3 + a^2 - 1)*q^22 + (-a^5 - a^4 + 
        a)*q^34 + (a^5 - a^4 - a^2 + a)*q^38 - a*q^50 - a^3*q^54 + (a^3 - a - 
        1)*q^66 + (a^4 - a^3)*q^82 + (-a^5 - a^3)*q^86 - a^5*q^98 + (a^2 + 
        1)*q^102 + (-a^3 + a^2)*q^114 + (-a + 1)*q^118 + (a^3 - a - 1)*q^134 + 
        (a^4 + a^2)*q^146 - a^5*q^150 + (-a^4 + a)*q^162 + a*q^166 + a^3*q^178 +
        (a^3 + a^2 - 1)*q^194 + (-a^5 - a)*q^198 + (a^5 - a^2 - a)*q^214 + 
        a^5*q^226 + O(q^242),
    q^4 - a*q^8 + a^4*q^12 + a^2*q^16 - a^5*q^24 - a^3*q^32 + (a^5 - a^2)*q^36 +
        (a^3 + a^2 - 1)*q^44 + (a^3 - 1)*q^48 + a^4*q^64 + (-a^5 - a^4 + a)*q^68
        + q^72 + (a^5 - a^4 - a^2 + a)*q^76 + (-a^4 - a^3 + a)*q^88 + (-a^4 + 
        a)*q^96 - a*q^100 - a^3*q^108 - a^5*q^128 + (a^3 - a - 1)*q^132 + (a^5 +
        a^3 - a^2 - 1)*q^136 - a*q^144 + (a^5 - a^2 + 1)*q^152 + (a^4 - 
        a^3)*q^164 + (-a^5 - a^3)*q^172 + (a^5 + a^4 - a^2)*q^176 + (a^5 - 
        a^2)*q^192 - a^5*q^196 + a^2*q^200 + (a^2 + 1)*q^204 + a^4*q^216 + (-a^3
        + a^2)*q^228 + (-a + 1)*q^236 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^5 + (a - 1)*q^13 + a*q^29 + (-a + 1)*q^41 - a*q^61 - a*q^65 + 
        (-a + 1)*q^77 - a*q^97 - a*q^101 + (a - 1)*q^113 - q^125 + a*q^137 - 
        q^145 + (-a + 1)*q^149 + (-a + 1)*q^157 + q^161 - a*q^173 + (a - 
        1)*q^193 + 2*q^197 + a*q^205 - q^217 + (-a + 1)*q^229 - 2*q^233 + 
        a*q^241 + O(q^242),
    q^7 + q^11 + a*q^23 - a*q^31 + (a - 1)*q^35 + q^43 - q^47 + (a - 1)*q^55 - 
        a*q^59 - a*q^67 + (-2*a + 2)*q^71 - q^79 - q^83 + (a - 1)*q^91 + a*q^103
        - q^115 - a*q^131 + a*q^139 + (a - 1)*q^143 - q^151 + q^155 - a*q^167 - 
        q^191 + (-2*a + 2)*q^199 + a*q^203 - a*q^211 + (a - 1)*q^215 + q^223 + 
        q^227 + (-a + 1)*q^235 + a*q^239 + O(q^242)
]
;
Bo:=
[
    q + (-a + 1)*q^5 + (a - 1)*q^13 - a*q^29 + (a - 1)*q^41 - a*q^61 + a*q^65 + 
        (a - 1)*q^77 - a*q^97 + a*q^101 + (-a + 1)*q^113 + q^125 - a*q^137 - 
        q^145 + (a - 1)*q^149 + (-a + 1)*q^157 - q^161 + a*q^173 + (a - 1)*q^193
        - 2*q^197 + a*q^205 - q^217 + (-a + 1)*q^229 + 2*q^233 + a*q^241 + 
        O(q^242),
    q^3 + (-a + 1)*q^15 - q^27 + (a - 1)*q^39 + a*q^63 - a*q^87 - a*q^99 + (a - 
        1)*q^123 + (a - 1)*q^135 - a*q^183 + a*q^195 + (-a + 1)*q^207 + (a - 
        1)*q^231 + O(q^242),
    q^7 - q^11 - a*q^23 - a*q^31 + (-a + 1)*q^35 + q^43 + q^47 + (a - 1)*q^55 + 
        a*q^59 - a*q^67 + (2*a - 2)*q^71 - q^79 + q^83 + (a - 1)*q^91 + a*q^103 
        - q^115 + a*q^131 + a*q^139 + (-a + 1)*q^143 - q^151 - q^155 + a*q^167 +
        q^191 + (-2*a + 2)*q^199 - a*q^203 - a*q^211 + (-a + 1)*q^215 + q^223 - 
        q^227 + (-a + 1)*q^235 - a*q^239 + O(q^242),
    q^9 - a*q^21 + a*q^33 + (-a + 1)*q^45 + (a - 1)*q^69 - q^81 + (a - 1)*q^93 -
        q^105 + (a - 1)*q^117 - a*q^129 - a*q^141 + q^165 + (-a + 1)*q^177 + 
        a*q^189 + (a - 1)*q^201 + 2*q^213 + a*q^237 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^11 + q^17 + q^19 - a*q^25 + (a - 1)*q^41 - a*q^43 + (a - 1)*q^49 + 
        (-a + 1)*q^59 + (a - 1)*q^67 - q^73 - 2*a*q^83 - 2*q^89 + a*q^97 - q^107
        + (-2*a + 2)*q^113 + (2*a - 2)*q^131 - a*q^137 + (a - 1)*q^139 - 2*q^163
        - a*q^169 + 2*q^179 + a*q^187 + (-a + 1)*q^193 + a*q^209 + (-2*a + 
        2)*q^211 + a*q^227 + q^233 + a*q^241 + O(q^242)
]
;
Bo:=
[
    q - q^19 - a*q^25 + a*q^43 + (a - 1)*q^49 + (-a + 1)*q^67 - q^73 + a*q^97 + 
        (-a + 1)*q^139 + 2*q^163 - a*q^169 - a*q^187 + (-a + 1)*q^193 + (2*a - 
        2)*q^211 + a*q^241 + O(q^242),
    q^2 - q^38 - a*q^50 + a*q^86 + (a - 1)*q^98 + (-a + 1)*q^134 - q^146 + 
        a*q^194 + O(q^242),
    q^3 + (a - 1)*q^27 - q^51 - a*q^75 + (-a + 1)*q^99 + (-a + 1)*q^123 + (a - 
        1)*q^147 + a*q^171 - q^219 + O(q^242),
    q^4 + (a - 1)*q^16 - a*q^64 - q^76 + (-a + 1)*q^88 - a*q^100 + a*q^136 + 
        a*q^172 + (a - 1)*q^196 + O(q^242),
    q^6 - a*q^18 + (a - 1)*q^54 + a*q^66 - q^102 - q^114 - a*q^150 + q^162 + (-a
        + 1)*q^198 + O(q^242),
    q^8 + (a - 1)*q^32 - q^44 + (-a + 1)*q^68 - a*q^128 - q^152 + a*q^164 + (-a 
        + 1)*q^176 - a*q^200 + a*q^236 + O(q^242),
    q^9 - q^33 + (-a + 1)*q^57 + (a - 1)*q^81 - q^129 - q^153 + a*q^177 + 
        a*q^201 - a*q^225 + O(q^242),
    q^11 + (a - 1)*q^19 + q^43 - a*q^59 - a*q^67 - 2*q^83 + (a - 1)*q^107 + 
        2*a*q^131 - a*q^139 + (-2*a + 2)*q^163 + (-2*a + 2)*q^179 - q^187 + 
        2*a*q^211 + q^227 + O(q^242),
    q^12 - a*q^24 - a*q^36 + (a - 1)*q^48 + (a - 1)*q^72 + q^96 + (a - 1)*q^108 
        + a*q^132 + q^144 - a*q^192 - q^204 + q^216 - q^228 + O(q^242),
    q^17 - q^19 + (a - 1)*q^41 + a*q^43 + (-a + 1)*q^67 - 2*q^89 + (-2*a + 
        2)*q^113 - a*q^137 + (-a + 1)*q^139 + 2*q^163 - a*q^187 + a*q^209 + (2*a
        - 2)*q^211 + q^233 + O(q^242),
    q^22 + (a - 1)*q^34 - a*q^82 - a*q^118 - 2*q^166 + (-2*a + 2)*q^178 + (a - 
        1)*q^214 + 2*a*q^226 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^25 - 2*q^37 - q^49 + 2*q^61 + 2*q^85 + q^121 + 2*q^145 - 2*q^157 - 
        q^169 - 2*q^193 - 2*q^205 + O(q^242),
    q^2 - q^26 + q^50 - q^74 - q^122 - q^146 - q^194 + 2*q^218 + O(q^242),
    q^3 - q^75 - 2*q^111 - q^147 + 2*q^183 + O(q^242),
    q^4 - q^28 - q^52 - q^76 + q^100 + 2*q^124 - q^148 + 2*q^172 + O(q^242),
    q^5 - q^17 - q^29 + q^41 - q^53 + q^89 + q^101 + q^113 - q^137 - q^149 + 
        q^173 - 2*q^185 + q^197 - q^233 + O(q^242),
    q^7 + q^19 - 2*q^31 - 2*q^43 + q^67 + q^79 - q^91 + q^103 - 2*q^127 + q^139 
        + q^151 + q^163 + q^175 + q^199 + q^211 - 2*q^223 + O(q^242),
    q^8 - q^56 - q^104 - q^152 + q^200 + O(q^242),
    q^13 - 2*q^25 - q^37 - q^49 + 3*q^61 + q^73 + 2*q^85 + q^97 - 2*q^109 - 
        q^133 + 2*q^145 - 4*q^157 - q^169 + q^181 - q^193 - 2*q^205 + 2*q^217 - 
        2*q^229 + q^241 + O(q^242),
    q^14 + q^38 - 2*q^62 - 2*q^86 + q^134 + q^158 - q^182 + q^206 + O(q^242),
    q^15 - q^51 - q^87 + q^123 - q^159 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^7 + (a - 1)*q^13 + q^31 + (-a - 1)*q^43 + a*q^55 + (-a + 1)*q^67 - 
        a*q^73 + (-a - 1)*q^85 + (-a - 1)*q^91 + q^97 - q^127 - a*q^151 + (a - 
        1)*q^163 - a*q^169 + (a + 1)*q^187 - q^193 - a*q^199 + a*q^217 + (a + 
        1)*q^229 + (a + 1)*q^235 + O(q^242),
    q^2 - a*q^8 + a*q^14 - a*q^20 + (a - 1)*q^26 - q^32 + a*q^44 + q^56 + q^62 +
        (-a - 1)*q^68 - q^80 + (-a - 1)*q^86 + (a + 1)*q^104 + a*q^110 + a*q^128
        + (-a + 1)*q^134 + q^140 - a*q^146 + (-a - 1)*q^170 + q^176 + (-a - 
        1)*q^182 + (a + 1)*q^188 + q^194 + a*q^212 - a*q^224 + O(q^242),
    q^4 + q^10 - a*q^16 - q^22 + a*q^28 + (-a + 1)*q^34 - a*q^40 + (a - 1)*q^52 
        - q^64 + a*q^70 + a*q^88 + (a - 1)*q^94 - q^106 + q^112 + q^124 + (a - 
        1)*q^130 + (-a - 1)*q^136 + (-a - 1)*q^142 - a*q^154 - q^160 - a*q^166 +
        (-a - 1)*q^172 + (a + 1)*q^178 + q^202 + (a + 1)*q^208 + q^214 + a*q^220
        + (a + 1)*q^238 + O(q^242),
    q^5 - q^11 + (-a + 1)*q^17 + a*q^35 + (a - 1)*q^47 - q^53 + (a - 1)*q^65 + 
        (-a - 1)*q^71 - a*q^77 - a*q^83 + (a + 1)*q^89 + q^101 + q^107 + (a + 
        1)*q^119 + a*q^125 - a*q^131 + (-a - 1)*q^137 + (-a + 1)*q^143 - q^149 +
        q^155 + (a + 1)*q^167 - a*q^173 + a*q^179 + (-a + 1)*q^191 - q^197 + (-a
        - 1)*q^215 + 2*a*q^221 + (-a - 1)*q^233 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
864
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^7 + q^31 - q^55 - q^73 - 2*q^79 - q^97 - 2*q^103 + q^127 - 2*q^145 + 
        q^151 + q^169 - q^193 + q^199 + q^217 - 2*q^223 + 2*q^241 + O(q^242),
    q^5 - q^11 - 2*q^29 + q^35 + q^53 + 2*q^59 - q^77 - q^83 + q^101 - q^107 - 
        q^125 - q^131 + q^149 + q^155 + q^173 - q^179 + q^197 - 2*q^203 + 
        2*q^227 + O(q^242)
]
;
Bo:=
[
    q - q^7 - q^31 + q^55 - q^73 + 2*q^79 - q^97 + 2*q^103 - q^127 - 2*q^145 - 
        q^151 + q^169 - q^193 - q^199 + q^217 + 2*q^223 + 2*q^241 + O(q^242),
    q^2 - q^14 - q^62 + q^110 - q^146 + 2*q^158 - q^194 + 2*q^206 + O(q^242),
    q^4 + q^16 - q^28 - q^40 + q^64 - q^88 - q^112 - q^124 - q^160 + q^220 + 
        2*q^232 + O(q^242),
    q^5 + q^11 - 2*q^29 - q^35 + q^53 - 2*q^59 - q^77 + q^83 + q^101 + q^107 - 
        q^125 + q^131 + q^149 - q^155 + q^173 + q^179 + q^197 + 2*q^203 - 
        2*q^227 + O(q^242),
    q^8 - q^20 + q^32 - q^44 - q^56 - q^80 + 2*q^116 + q^128 + q^140 - q^176 - 
        q^212 - q^224 + 2*q^236 + O(q^242),
    q^10 + q^22 - 2*q^58 - q^70 + q^106 - 2*q^118 - q^154 + q^166 + q^202 + 
        q^214 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
865
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
865
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
172
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
865
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
172
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
865
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
172
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
865
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
172
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
865
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
43*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
865
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 43*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
865
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 86*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
866
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
432
);
qprec:=
215
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
866
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
144
);
qprec:=
215
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
866
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
215
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
866
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
215
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
867
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^13 + q^16 - q^19 - q^21 + q^25 + q^36 - q^43 - q^52 + q^64
        - q^67 - q^76 + q^81 - q^84 - q^93 + q^100 - q^103 - q^111 - q^117 + 
        q^121 - q^127 + q^144 - q^151 - q^157 + O(q^170),
    q^3 - q^7 + q^12 + q^27 - q^28 - q^31 - q^37 - q^39 + q^48 - q^57 - q^61 - 
        q^63 + 2*q^73 + q^75 + 2*q^79 + q^91 - q^97 + q^108 + 2*q^109 - q^112 - 
        q^124 - q^129 + q^133 - q^139 - q^148 - q^156 + 2*q^163 + O(q^170)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
867
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
272
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
867
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
136
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
867
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
68
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
867
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
867
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 16*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
867
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
17*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
867
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 34*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^2*q^4 + a*q^9 - a^2*q^13 - q^16 + a^3*q^19 + a^2*q^21 - a*q^25 - 
        a^3*q^36 - a*q^43 - q^52 + a^2*q^64 + q^67 + a*q^76 + a^2*q^81 + q^84 + 
        a*q^93 + a^3*q^100 - q^103 - a*q^111 - a^3*q^117 - a^3*q^121 + a*q^127 -
        a*q^144 - a^3*q^151 + a^2*q^157 + O(q^170),
    q^3 + a*q^7 - a^2*q^12 + a*q^27 - a^3*q^28 + q^31 - q^37 - a^2*q^39 - q^48 +
        a^3*q^57 - a*q^61 + a^2*q^63 + 2*a^2*q^73 - a*q^75 + 2*a^3*q^79 - 
        a^3*q^91 + a^2*q^97 - a^3*q^108 - 2*a*q^109 - a*q^112 - a^2*q^124 - 
        a*q^129 - q^133 - q^139 + a^2*q^148 - q^156 + 2*a*q^163 + O(q^170)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
867
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 68*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 + a*q^9 + q^13 + q^16 + a*q^19 + q^21 + a*q^25 - a*q^36 - a*q^43 - 
        q^52 - q^64 - q^67 - a*q^76 - q^81 - q^84 - a*q^93 - a*q^100 - q^103 - 
        a*q^111 + a*q^117 - a*q^121 - a*q^127 + a*q^144 + a*q^151 + q^157 + 
        O(q^170),
    q^3 - a*q^7 - q^12 + a*q^27 + a*q^28 - q^31 - q^37 + q^39 + q^48 + a*q^57 - 
        a*q^61 + q^63 - 2*q^73 + a*q^75 - 2*a*q^79 - a*q^91 + q^97 - a*q^108 + 
        2*a*q^109 - a*q^112 + q^124 - a*q^129 + q^133 - q^139 + q^148 - q^156 + 
        2*a*q^163 + O(q^170)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
867
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 136*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 - q^9 - q^13 + q^16 + q^19 - q^21 - q^25 - q^36 + q^43 - q^52 + q^64
        - q^67 + q^76 + q^81 - q^84 + q^93 - q^100 - q^103 + q^111 + q^117 - 
        q^121 + q^127 - q^144 + q^151 - q^157 + O(q^170),
    q^3 + q^7 + q^12 - q^27 + q^28 - q^31 - q^37 - q^39 + q^48 + q^57 + q^61 - 
        q^63 + 2*q^73 - q^75 - 2*q^79 - q^91 - q^97 - q^108 - 2*q^109 + q^112 - 
        q^124 + q^129 + q^133 - q^139 - q^148 - q^156 - 2*q^163 + O(q^170)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 - a)*q^9 + (-a + 1)*q^11 + (a^2 + 1)*q^15 + (-a^3 + 1)*q^21 - 
        a^2*q^23 + (a^3 - a^2 + a - 1)*q^29 + a^3*q^35 - q^37 + (a^3 + a^2 + 
        a)*q^39 + (-a^3 + a^2 - a + 1)*q^43 + a*q^49 + (-a^3 - a)*q^53 - q^57 + 
        (-a^2 - 1)*q^65 - q^67 - a^2*q^71 + a^2*q^79 + (a^3 - 1)*q^91 + (a^3 + 
        a)*q^93 + (-a^2 + a)*q^95 - q^99 + a^2*q^107 + a*q^109 + (a^3 + a - 
        1)*q^113 + (a^2 - a + 1)*q^121 + (a^3 - a^2 - 2)*q^123 + a*q^127 + (-a^3
        + a^2 - a)*q^133 - a^3*q^135 + (-a^2 + a - 1)*q^137 + (a^3 - a^2 - 
        1)*q^149 - a^3*q^151 - a*q^155 + (a^3 + a)*q^163 + (-a^3 + a^2 - a + 
        1)*q^165 + (-a^3 - a)*q^169 + (a^3 + a)*q^177 + (-a + 1)*q^179 + a*q^183
        - a*q^189 + q^191 + (-a^3 + 1)*q^205 + (a^3 - 1)*q^207 + (a^3 - a^2 + a 
        - 1)*q^217 - a^2*q^231 + (a^2 + 1)*q^233 + (-a^3 - a)*q^239 + O(q^246),
    q^3 + (a^2 - a)*q^5 + (a^3 - a^2 + a)*q^7 - q^13 + (-a^3 + a - 1)*q^19 + 
        (-a^3 + a^2 - a)*q^27 + (a^3 - a^2)*q^31 + (-a + 1)*q^33 - a^3*q^41 + 
        a*q^45 + (-a^3 + 2*a^2 - a)*q^55 + (a^3 - a^2)*q^59 + (a^3 - 2*a^2 + 2*a
        - 1)*q^61 + (-a^3 + a^2 - a + 1)*q^63 - a^2*q^69 + (a^3 - a^2 + 1)*q^77 
        + (a - 1)*q^83 + (a^3 - a^2 + a - 1)*q^87 + (-a^3 + 2*a^2 - a)*q^97 + 
        a*q^101 + (-a + 1)*q^103 + a^3*q^105 - q^111 + (a^2 - a + 1)*q^115 + 
        (a^3 + a)*q^117 + (a^2 - a)*q^125 + (-a^3 + a^2 - a + 1)*q^129 + (-a^3 +
        2*a^2 - a)*q^131 + (a^3 - a^2)*q^139 + (a - 1)*q^143 + (-a + 1)*q^145 + 
        a*q^147 + (-a^3 - a)*q^159 + (-a^2 + a)*q^161 + (-a + 1)*q^167 + (a^3 - 
        a^2)*q^171 + (-a^3 + a^2 - 1)*q^173 + (-a^3 + a^2 - a + 1)*q^181 + (-a^2
        + a)*q^185 + (-a^2 - 1)*q^195 + q^199 - q^201 + (-a^2 + a - 1)*q^203 + 
        (-2*a^2 + 3*a - 2)*q^209 - a^2*q^213 + (a - 1)*q^215 + (-a^2 + a)*q^223 
        + (a^3 - a + 1)*q^227 + a^2*q^237 + (-a^3 + a^2 - a)*q^241 + (-a^2 + 
        a)*q^243 + (a^3 - a^2)*q^245 + O(q^246)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 + (a - 1)*q^5 - a*q^6 + (-a + 1)*q^13 + q^16 - a*q^17 + (-a + 
        1)*q^20 + (a - 1)*q^22 + a*q^24 + q^30 - q^33 - a*q^37 - a*q^38 + (a - 
        1)*q^41 + (a - 1)*q^49 + (a - 1)*q^52 + (-a + 1)*q^53 + q^54 + (-a + 
        1)*q^57 + q^62 - q^64 + a*q^65 + a*q^68 + (a - 1)*q^73 - q^78 + (a - 
        1)*q^80 + a*q^81 + q^85 - a*q^86 + (-a + 1)*q^88 + a*q^93 - a*q^96 + (a 
        - 1)*q^102 - a*q^110 + (-a + 1)*q^113 + a*q^118 - q^120 - q^125 + (-a + 
        1)*q^129 + q^132 + (a - 1)*q^134 + (a - 1)*q^137 + (-a + 1)*q^142 + 
        a*q^148 - a*q^149 + a*q^152 + a*q^158 + (-a + 1)*q^164 + (-a + 1)*q^165 
        + (-a + 1)*q^166 + (a - 1)*q^173 + (a - 1)*q^177 + (a - 1)*q^181 + q^185
        + q^190 - a*q^193 + (-a + 1)*q^196 + (-a + 1)*q^197 - q^201 - a*q^205 + 
        (a - 1)*q^206 + (-a + 1)*q^208 - q^209 + (a - 1)*q^212 + q^213 - a*q^214
        - q^216 - q^221 + (a - 1)*q^222 + (a - 1)*q^228 + a*q^229 + (a - 
        1)*q^237 + a*q^241 - a*q^245 + O(q^246),
    q^2 + a*q^3 - q^8 + (a - 1)*q^10 + (-a + 1)*q^11 - a*q^12 - q^15 + a*q^19 + 
        (-a + 1)*q^26 - q^27 - q^31 + q^32 - a*q^34 + q^39 + (-a + 1)*q^40 + 
        a*q^43 + (a - 1)*q^44 + a*q^48 + (-a + 1)*q^51 + a*q^55 - a*q^59 + q^60 
        - q^66 + (-a + 1)*q^67 + (a - 1)*q^71 - a*q^74 - a*q^76 - a*q^79 + (a - 
        1)*q^82 + (a - 1)*q^83 - q^95 + (a - 1)*q^98 + (-a + 1)*q^103 + (a - 
        1)*q^104 + (-a + 1)*q^106 + a*q^107 + q^108 + (-a + 1)*q^111 + (-a + 
        1)*q^114 - q^123 + q^124 + a*q^127 - q^128 + a*q^130 + a*q^131 + (-a + 
        1)*q^135 + a*q^136 - a*q^143 + (a - 1)*q^146 - q^147 + 2*q^151 + (-a + 
        1)*q^155 - q^156 + q^159 + (a - 1)*q^160 + a*q^162 + a*q^167 + q^170 - 
        a*q^172 + (-a + 1)*q^176 - a*q^179 + a*q^186 - q^187 + (a - 1)*q^191 - 
        a*q^192 + (a - 1)*q^195 + (a - 1)*q^199 + (a - 1)*q^204 - a*q^211 - 
        q^215 - q^219 - a*q^220 - a*q^223 + (-a + 1)*q^226 + (-a + 1)*q^227 + 
        a*q^236 + (-a + 1)*q^239 - q^240 + O(q^246),
    q^7 - q^28 + (a - 1)*q^35 - a*q^42 + (-a + 1)*q^91 + a*q^98 + q^112 - 
        a*q^119 + (-a + 1)*q^140 + (a - 1)*q^147 + (a - 1)*q^154 + a*q^168 + 
        q^210 - q^231 + O(q^246),
    q^14 + a*q^21 - a*q^49 - q^56 + (a - 1)*q^70 + (-a + 1)*q^77 - a*q^84 - 
        q^105 + a*q^133 + (-a + 1)*q^182 - q^189 + a*q^196 - q^217 + q^224 - 
        a*q^238 + q^245 + O(q^246)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 + q^9 - q^19 + q^31 - q^41 - q^45 + 2*q^47 - q^49 - q^59 + 2*q^67 - 
        q^71 + q^81 + q^95 - q^97 - q^101 - q^103 - q^107 - q^109 - q^113 + 
        q^121 + q^125 + 2*q^131 + 2*q^149 - q^155 - q^157 - q^163 + q^169 - 
        q^171 + 2*q^173 - q^191 - q^193 + q^205 - q^211 + 2*q^227 - q^233 - 
        2*q^235 + q^245 + O(q^246),
    q^2 - q^8 - q^10 + q^16 + q^18 - q^38 + q^40 + q^62 - q^64 - q^72 - q^80 - 
        q^82 - q^90 + 2*q^94 - q^98 - q^118 + q^128 + 2*q^134 - q^142 + q^144 + 
        q^152 + q^162 + q^190 - q^194 - q^202 - q^206 - q^214 - q^218 - q^226 + 
        q^242 + O(q^246),
    q^4 - q^8 - q^20 + q^32 + q^36 + q^40 - q^64 - q^72 - q^76 + q^124 + q^152 -
        q^160 - q^164 - q^180 + 2*q^188 - q^196 - q^236 + O(q^246),
    q^7 - q^35 - q^49 + q^63 - q^133 + q^217 + q^245 + O(q^246),
    q^14 - q^56 - q^70 - q^98 + q^112 + q^126 + O(q^246),
    q^28 - q^56 - q^140 - q^196 + q^224 + O(q^246)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^9 + 1/3*(-2*a - 2)*q^10 + 1/3*(a - 2)*q^14 + 1/3*(-2*a + 1)*q^20 + 
        (-a + 1)*q^25 + 1/3*(2*a - 1)*q^28 + 1/3*(a + 1)*q^31 + 1/3*(-a + 
        2)*q^35 + 1/3*(a + 1)*q^38 + 1/3*(a - 2)*q^47 + q^50 - q^64 + (a - 
        1)*q^67 + 1/3*(a - 2)*q^70 + 1/3*(2*a - 1)*q^76 + 1/3*(-a - 1)*q^80 + (a
        - 1)*q^81 + 1/3*(-a + 2)*q^82 + 1/3*(4*a - 2)*q^90 + (-a + 1)*q^95 + 
        1/3*(-2*a + 1)*q^98 + a*q^100 + 1/3*(-a - 1)*q^112 + 1/3*(2*a - 1)*q^118
        + a*q^121 + (2*a - 1)*q^125 + 1/3*(a + 1)*q^126 + 1/3*(-a + 2)*q^131 - 
        q^133 + 1/3*(-a + 2)*q^140 - a*q^142 - a*q^149 + 1/3*(-4*a + 2)*q^160 + 
        1/3*(2*a + 2)*q^164 - q^169 + 1/3*(a - 2)*q^175 + 1/3*(a - 2)*q^180 + 
        1/3*(-a + 2)*q^194 + 1/3*(-2*a + 1)*q^196 + 1/3*(-2*a + 1)*q^202 + 
        a*q^205 + 1/3*(a + 1)*q^206 + (-a + 1)*q^214 + 1/3*(a + 1)*q^224 - q^225
        + 1/3*(-2*a - 2)*q^227 + 1/3*(-2*a + 4)*q^236 + q^245 + O(q^246),
    q^2 + 1/7*(a + 2)*q^10 + 1/7*(-a - 2)*q^14 + 1/7*(8*a - 5)*q^16 - a*q^18 + 
        1/7*(12*a - 4)*q^19 + 1/7*(-a - 9)*q^20 + 1/7*(2*a + 4)*q^25 + 1/7*(6*a 
        - 9)*q^28 + 1/7*(-5*a + 4)*q^32 + 1/7*(-12*a + 4)*q^35 + 1/7*(-a - 
        2)*q^38 + 1/7*(-8*a - 2)*q^40 + 1/7*(-2*a + 10)*q^41 + 1/7*(-2*a - 
        4)*q^49 + 1/7*(-6*a + 2)*q^50 + 1/7*(-a + 5)*q^56 + 1/7*(-12*a + 4)*q^59
        + 1/7*(-5*a + 11)*q^62 + 1/7*(-8*a + 5)*q^70 + 1/7*(4*a + 8)*q^71 + 
        1/7*(6*a - 2)*q^76 + 1/7*(2*a + 4)*q^80 + 1/7*(4*a - 6)*q^82 + 1/7*(-3*a
        + 1)*q^90 + 1/7*(11*a - 6)*q^94 + 1/7*(-4*a - 8)*q^95 + 1/7*(2*a - 
        10)*q^97 + 1/7*(a + 2)*q^98 + 1/7*(-8*a + 12)*q^100 + 1/7*(10*a - 
        8)*q^101 + 1/7*(-4*a - 8)*q^103 + 1/7*(12*a - 4)*q^107 + 1/7*(4*a + 
        8)*q^109 + 1/7*(2*a - 3)*q^112 + 1/7*(-12*a + 4)*q^113 + 1/7*(6*a - 
        2)*q^118 + 1/7*(4*a - 6)*q^124 + 1/7*(3*a - 1)*q^126 + 1/7*(8*a - 
        12)*q^128 + 1/7*(4*a - 6)*q^133 + 1/7*(17*a - 1)*q^134 + 1/7*(9*a - 
        3)*q^140 + 1/7*(-4*a - 1)*q^142 + 1/7*(-3*a + 8)*q^144 + 1/7*(2*a - 
        3)*q^152 + 1/7*(12*a - 4)*q^155 + 1/7*(10*a - 8)*q^157 + 1/7*(-6*a + 
        2)*q^160 + (a - 1)*q^162 + 1/7*(8*a - 12)*q^163 + 1/7*(-11*a + 6)*q^164 
        + 1/7*(-8*a + 12)*q^171 + 1/7*(4*a + 8)*q^175 + 1/7*(10*a - 1)*q^180 + 
        1/7*(-6*a + 2)*q^188 + 1/7*(-18*a + 6)*q^190 + 1/7*(4*a + 8)*q^191 + 
        1/7*(-2*a - 4)*q^193 + 1/7*(-2*a + 3)*q^194 + 1/7*(-a - 2)*q^196 + 
        1/7*(9*a + 4)*q^200 + 1/7*(-3*a + 1)*q^202 + 1/7*(-4*a + 6)*q^205 + 
        1/7*(2*a + 4)*q^206 + 1/7*(-8*a + 12)*q^211 + 1/7*(-5*a + 4)*q^214 + 
        1/7*(-2*a - 4)*q^217 + 1/7*(a - 5)*q^218 + 1/7*(-3*a - 6)*q^224 + 
        1/7*(-6*a + 2)*q^225 + 1/7*(4*a + 1)*q^226 + 1/7*(-8*a + 12)*q^233 + 
        1/7*(-4*a - 8)*q^235 + 1/7*(6*a + 5)*q^236 + a*q^242 + 1/7*(4*a - 
        6)*q^245 + O(q^246),
    q^4 + 1/7*(6*a - 2)*q^10 + 1/7*(a - 5)*q^14 + 1/7*(-a + 5)*q^16 + 1/7*(2*a +
        4)*q^19 + 1/7*(a + 2)*q^20 + 1/7*(-2*a - 4)*q^25 + 1/7*(a + 2)*q^28 + 
        1/7*(-2*a + 3)*q^32 + 1/7*(-2*a - 4)*q^35 - a*q^36 + 1/7*(8*a - 5)*q^38 
        + 1/7*(a - 5)*q^40 + 1/7*(2*a - 10)*q^41 + 1/7*(2*a + 4)*q^49 + 1/7*(-a 
        - 2)*q^50 + 1/7*(a - 5)*q^56 + 1/7*(-2*a - 4)*q^59 + 1/7*(-2*a - 4)*q^62
        + 1/7*(a - 5)*q^70 + 1/7*(-4*a + 6)*q^71 + 1/7*(a + 2)*q^76 + 1/7*(-2*a 
        + 3)*q^80 + 1/7*(3*a - 1)*q^82 + 1/7*(-4*a + 6)*q^90 + 1/7*(-4*a + 
        6)*q^94 + 1/7*(4*a - 6)*q^95 + 1/7*(-2*a + 10)*q^97 + 1/7*(-a - 2)*q^98 
        + 1/7*(-6*a + 2)*q^100 + 1/7*(-10*a + 8)*q^101 + 1/7*(4*a - 6)*q^103 + 
        1/7*(2*a + 4)*q^107 + 1/7*(-4*a - 8)*q^109 + 1/7*(5*a - 4)*q^112 + 
        1/7*(12*a - 4)*q^113 + 1/7*(a + 2)*q^118 + 1/7*(3*a - 1)*q^124 + 
        1/7*(4*a + 1)*q^126 + 1/7*(-a + 5)*q^128 + 1/7*(-4*a + 6)*q^133 + 
        1/7*(-10*a + 8)*q^134 + 1/7*(-2*a + 3)*q^140 + 1/7*(-3*a + 1)*q^142 + 
        1/7*(-4*a - 1)*q^144 + 1/7*(5*a + 3)*q^152 + 1/7*(2*a + 4)*q^155 + 
        1/7*(-10*a + 8)*q^157 + 1/7*(-a - 2)*q^160 + 1/7*(6*a - 2)*q^163 + 
        1/7*(4*a - 6)*q^164 + 1/7*(-6*a + 2)*q^171 + 1/7*(-4*a + 6)*q^175 + 
        1/7*(-3*a + 1)*q^180 + 1/7*(-a - 2)*q^188 + 1/7*(4*a - 6)*q^190 + 
        1/7*(-4*a + 6)*q^191 + 1/7*(2*a + 4)*q^193 + 1/7*(-5*a - 3)*q^194 + 
        1/7*(a + 2)*q^196 + 1/7*(-2*a + 3)*q^200 + 1/7*(3*a - 8)*q^202 + 
        1/7*(4*a - 6)*q^205 + 1/7*(-2*a + 3)*q^206 + 1/7*(-6*a + 2)*q^211 + 
        1/7*(-2*a + 3)*q^214 + 1/7*(2*a + 4)*q^217 + 1/7*(6*a - 2)*q^218 + 
        1/7*(3*a - 1)*q^224 + 1/7*(6*a - 2)*q^225 + 1/7*(-4*a + 6)*q^226 + 
        1/7*(8*a - 12)*q^233 + 1/7*(4*a - 6)*q^235 + 1/7*(-6*a + 2)*q^236 + 
        1/7*(-4*a + 6)*q^245 + O(q^246),
    q^5 + 1/7*(3*a - 1)*q^10 + 1/7*(-3*a + 1)*q^14 + 1/7*(-4*a - 1)*q^16 + 
        1/7*(a - 5)*q^19 + 1/7*(-3*a + 1)*q^20 + 1/7*(6*a - 9)*q^25 + 1/7*(-3*a 
        + 1)*q^28 + 1/7*(-a + 5)*q^32 + 1/7*(-a + 5)*q^35 + 1/7*(-3*a + 1)*q^38 
        + 1/7*(-3*a + 8)*q^40 + 1/7*(8*a - 5)*q^41 - a*q^45 + 1/7*(a + 2)*q^49 +
        1/7*(-4*a - 1)*q^50 + 1/7*(4*a + 1)*q^56 + 1/7*(-a + 5)*q^59 + 1/7*(6*a 
        - 2)*q^62 + 1/7*(4*a + 1)*q^70 + 1/7*(5*a - 4)*q^71 + 1/7*(-3*a + 
        1)*q^76 + 1/7*(6*a - 2)*q^80 + 1/7*(-2*a - 4)*q^82 + 1/7*(-2*a + 3)*q^90
        + 1/7*(-2*a - 4)*q^94 + 1/7*(-5*a + 4)*q^95 + 1/7*(-a - 2)*q^97 + 
        1/7*(3*a - 1)*q^98 + 1/7*(4*a + 1)*q^100 + 1/7*(2*a - 3)*q^101 + 
        1/7*(-5*a + 4)*q^103 + 1/7*(a - 5)*q^107 + 1/7*(5*a - 4)*q^109 + 1/7*(-a
        - 2)*q^112 + 1/7*(-a + 5)*q^113 + 1/7*(4*a - 6)*q^118 + 1/7*(-2*a - 
        4)*q^124 + (-a + 1)*q^125 + 1/7*(2*a - 3)*q^126 + 1/7*(-4*a - 1)*q^128 +
        1/7*(-2*a + 3)*q^133 + 1/7*(2*a - 10)*q^134 + 1/7*(6*a - 9)*q^140 + 
        1/7*(-5*a + 4)*q^142 + 1/7*(5*a - 4)*q^144 + 1/7*(-a + 5)*q^152 + 1/7*(a
        - 5)*q^155 + 1/7*(-5*a - 3)*q^157 + 1/7*(3*a - 1)*q^160 + 1/7*(-4*a - 
        1)*q^163 + 1/7*(2*a + 4)*q^164 + 1/7*(4*a + 1)*q^171 + 1/7*(5*a - 
        4)*q^175 + 1/7*(2*a - 3)*q^180 + 1/7*(-4*a + 6)*q^188 + 1/7*(2*a + 
        11)*q^190 + 1/7*(5*a - 4)*q^191 + 1/7*(a - 5)*q^193 + 1/7*(a + 2)*q^194 
        + 1/7*(-3*a + 1)*q^196 + 1/7*(6*a - 9)*q^200 + 1/7*(-2*a + 3)*q^202 + 
        1/7*(-5*a + 4)*q^205 + 1/7*(6*a - 2)*q^206 + 1/7*(4*a + 1)*q^211 + 
        1/7*(-a + 5)*q^214 + 1/7*(-6*a + 2)*q^217 + 1/7*(-4*a - 1)*q^218 + 
        1/7*(-2*a + 3)*q^224 + 1/7*(3*a + 6)*q^225 + 1/7*(5*a - 4)*q^226 + 
        1/7*(4*a + 1)*q^233 + 1/7*(-5*a + 4)*q^235 + 1/7*(4*a - 6)*q^236 + 
        1/7*(-2*a - 4)*q^245 + O(q^246),
    q^7 + 1/7*(3*a - 1)*q^10 + 1/7*(-3*a + 1)*q^14 + 1/7*(10*a - 8)*q^16 + 
        1/7*(a + 2)*q^19 + 1/7*(4*a - 6)*q^20 + 1/7*(-a + 5)*q^25 + 1/7*(4*a - 
        6)*q^28 + 1/7*(-a + 5)*q^32 + 1/7*(-8*a + 5)*q^35 + 1/7*(-3*a + 1)*q^38 
        + 1/7*(-3*a - 6)*q^40 + 1/7*(-6*a + 9)*q^41 + 1/7*(a - 5)*q^49 + 
        1/7*(-4*a - 1)*q^50 + 1/7*(-3*a + 8)*q^56 + 1/7*(-15*a + 5)*q^59 + 
        1/7*(-8*a + 12)*q^62 - a*q^63 + 1/7*(-10*a + 1)*q^70 + 1/7*(12*a + 
        3)*q^71 + 1/7*(4*a - 6)*q^76 + 1/7*(6*a - 2)*q^80 + 1/7*(-2*a - 4)*q^82 
        + 1/7*(-2*a + 3)*q^90 + 1/7*(12*a - 4)*q^94 + 1/7*(2*a - 10)*q^95 + 
        1/7*(6*a - 9)*q^97 + 1/7*(3*a - 1)*q^98 + 1/7*(-10*a + 8)*q^100 + 
        1/7*(9*a - 3)*q^101 + 1/7*(-5*a - 10)*q^103 + 1/7*(15*a - 12)*q^107 + 
        1/7*(-2*a + 10)*q^109 + 1/7*(-a - 2)*q^112 + 1/7*(-8*a - 2)*q^113 + 
        1/7*(4*a - 6)*q^118 + 1/7*(-2*a - 4)*q^124 + 1/7*(2*a - 3)*q^126 + 
        1/7*(10*a - 8)*q^128 + 1/7*(5*a - 4)*q^133 + 1/7*(16*a + 4)*q^134 + 
        1/7*(6*a - 2)*q^140 + 1/7*(-5*a + 4)*q^142 + 1/7*(-2*a + 10)*q^144 + 
        1/7*(-a - 2)*q^152 + 1/7*(8*a + 2)*q^155 + 1/7*(9*a - 3)*q^157 + 
        1/7*(-4*a + 6)*q^160 + 1/7*(10*a - 8)*q^163 + 1/7*(-12*a + 4)*q^164 + 
        1/7*(-3*a + 1)*q^171 + 1/7*(-2*a + 10)*q^175 + 1/7*(2*a + 4)*q^180 + 
        1/7*(-4*a + 6)*q^188 + 1/7*(-12*a - 3)*q^190 + 1/7*(5*a - 4)*q^191 + 
        1/7*(a - 5)*q^193 + 1/7*(a + 2)*q^194 + 1/7*(4*a - 6)*q^196 + 1/7*(-a + 
        5)*q^200 + 1/7*(-2*a + 3)*q^202 + 1/7*(-5*a + 4)*q^205 + 1/7*(6*a - 
        2)*q^206 + 1/7*(4*a + 1)*q^211 + 1/7*(-a + 5)*q^214 + 1/7*(a - 5)*q^217 
        + 1/7*(-4*a - 1)*q^218 + 1/7*(-2*a - 4)*q^224 + 1/7*(-4*a - 1)*q^225 + 
        1/7*(5*a - 4)*q^226 + 1/7*(-10*a + 8)*q^233 + 1/7*(2*a - 10)*q^235 + 
        1/7*(4*a + 8)*q^236 + 1/7*(5*a - 4)*q^245 + O(q^246),
    q^8 + 1/3*(a + 1)*q^10 + 1/3*(a + 1)*q^14 + 1/3*(4*a - 2)*q^20 + 1/3*(-a - 
        1)*q^28 + 1/3*(-2*a - 2)*q^31 + 1/3*(2*a - 4)*q^35 + 1/3*(a + 1)*q^38 + 
        1/3*(-2*a + 4)*q^47 - q^50 + q^64 + (-2*a + 2)*q^67 + 1/3*(-2*a + 
        1)*q^70 - a*q^72 + 1/3*(2*a - 1)*q^76 + 1/3*(-a - 1)*q^80 + 1/3*(2*a - 
        4)*q^82 + 1/3*(-2*a + 1)*q^90 + (2*a - 2)*q^95 + 1/3*(a + 1)*q^98 - 
        a*q^100 + 1/3*(2*a - 1)*q^112 + 1/3*(-4*a + 2)*q^118 + 1/3*(-2*a + 
        1)*q^126 + 1/3*(2*a - 4)*q^131 + 1/3*(-a - 1)*q^140 + a*q^142 + 1/3*(2*a
        - 1)*q^160 + 1/3*(-a - 1)*q^164 + 1/3*(-2*a + 4)*q^175 + 1/3*(-2*a + 
        4)*q^180 - q^190 + 1/3*(-a + 2)*q^194 + 1/3*(a - 2)*q^196 + (-a + 
        1)*q^200 + 1/3*(-2*a + 1)*q^202 + 1/3*(-2*a - 2)*q^206 + (a - 1)*q^214 -
        q^218 + 1/3*(a - 2)*q^224 + a*q^226 + 1/3*(4*a + 4)*q^227 + 1/3*(a - 
        2)*q^236 + O(q^246)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^9 - a*q^25 - a*q^31 + (a - 1)*q^35 + (-a + 1)*q^47 + a*q^67 - 
        a*q^81 + a*q^95 + (a - 1)*q^121 - q^125 + (-a + 1)*q^131 + q^133 + (-a +
        1)*q^149 + q^169 + (2*a - 2)*q^173 + (a - 1)*q^175 + (-a + 1)*q^205 + 
        q^225 - 2*a*q^227 + q^245 + O(q^246),
    q^2 + (a - 1)*q^18 + 1/3*(-a - 1)*q^28 + q^40 - a*q^50 + 1/3*(-2*a + 1)*q^56
        - a*q^62 + (a - 1)*q^70 + a*q^76 + (-a + 1)*q^94 - q^100 - q^128 + 
        a*q^134 + 1/3*(a + 1)*q^140 - q^152 + a*q^160 - a*q^162 + (a - 1)*q^164 
        + a*q^190 + 1/3*(-2*a + 1)*q^196 + (-a + 1)*q^200 + 1/3*(-a + 2)*q^224 +
        q^236 + (a - 1)*q^242 + O(q^246),
    q^4 + (-a + 1)*q^20 + 1/3*(-a - 1)*q^28 - q^32 + (a - 1)*q^36 + a*q^40 + 
        1/3*(-2*a + 1)*q^56 + (a - 1)*q^64 + (a - 1)*q^76 + 2*q^80 - 2*a*q^100 -
        a*q^112 - a*q^124 + 1/3*(4*a - 5)*q^140 + a*q^180 + (-a + 1)*q^188 + 
        1/3*(a + 1)*q^196 + 1/3*(2*a - 1)*q^224 + O(q^246),
    q^5 - a*q^19 + q^25 - a*q^35 + q^41 + (a - 1)*q^45 + (a - 1)*q^49 - a*q^59 +
        (a - 1)*q^71 + (a - 1)*q^95 + (a - 1)*q^97 + q^101 + (a - 1)*q^103 - 
        a*q^107 + (a - 1)*q^109 - a*q^113 - a*q^125 + q^133 - a*q^155 - a*q^157 
        + q^163 + q^171 + (a - 1)*q^175 + (a - 1)*q^191 - a*q^193 + (a - 
        1)*q^205 + q^211 + (a - 1)*q^225 + q^233 + (-a + 1)*q^235 + O(q^246),
    q^7 + (-a - 1)*q^19 + (-a + 2)*q^25 - q^35 + (-2*a + 1)*q^41 + a*q^49 + (a -
        2)*q^59 + (a - 1)*q^63 + (2*a - 1)*q^71 + (2*a - 1)*q^97 + (-a + 
        2)*q^101 + (a + 1)*q^103 + (-a - 1)*q^107 + (-a + 1)*q^133 + (a - 
        2)*q^157 + (-a + 2)*q^171 + (a + 1)*q^191 + (a - 2)*q^193 + (a + 
        1)*q^205 + (-2*a + 1)*q^211 - a*q^217 + (2*a - 1)*q^225 + (a - 1)*q^245 
        + O(q^246),
    q^8 + 1/3*(-a + 2)*q^28 - a*q^32 + (a - 1)*q^40 + 1/3*(a + 1)*q^56 - q^64 + 
        (a - 1)*q^72 - q^76 + a*q^80 + (-a + 1)*q^100 - a*q^112 + 1/3*(a - 
        2)*q^140 + (-a + 1)*q^152 + q^160 - a*q^164 + 1/3*(a + 1)*q^196 + 
        1/3*(-a - 1)*q^224 + (a - 1)*q^236 + O(q^246),
    q^10 - a*q^20 + 1/3*(a - 2)*q^28 - q^32 - a*q^38 + a*q^40 + q^50 + 1/3*(-a +
        2)*q^56 + a*q^64 - a*q^70 + a*q^76 + (-a + 1)*q^80 + q^82 + (a - 1)*q^90
        + (a - 1)*q^98 - q^100 - q^112 - a*q^118 + 1/3*(2*a - 1)*q^140 + (a - 
        1)*q^142 - a*q^152 + q^180 + (a - 1)*q^190 + (a - 1)*q^194 + 1/3*(-a + 
        2)*q^196 + q^200 + q^202 + (a - 1)*q^206 - a*q^214 + (a - 1)*q^218 + 
        1/3*(a + 1)*q^224 - a*q^226 + O(q^246),
    q^14 + (a - 2)*q^20 + a*q^28 + (-a - 1)*q^38 + (-a + 2)*q^50 + (-a + 2)*q^64
        - q^70 + (-a + 2)*q^76 + (-a - 1)*q^80 + (-2*a + 1)*q^82 + a*q^98 + (2*a
        - 1)*q^100 + (a - 1)*q^112 + (a - 2)*q^118 + (a - 1)*q^126 + q^140 + 
        (2*a - 1)*q^142 + (-2*a + 1)*q^180 + (2*a - 1)*q^194 - a*q^196 + (-a + 
        2)*q^202 + (a + 1)*q^206 + (-a - 1)*q^214 + (-a + 1)*q^224 + O(q^246),
    q^16 - a*q^20 + 1/3*(a - 2)*q^28 + 1/3*(-a + 2)*q^56 + a*q^76 - q^100 - 
        q^128 + 1/3*(2*a - 1)*q^140 + (a - 1)*q^144 - q^152 + a*q^160 + q^180 + 
        1/3*(-a + 2)*q^196 + (-a + 1)*q^200 + 1/3*(-2*a + 1)*q^224 + O(q^246)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
868
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^8 + q^9 + 1/2*q^14 - q^25 + 1/2*q^28 - q^50 + q^64 - 1/2*q^70 - q^72 +
        q^81 - 1/2*q^98 + q^100 - 1/2*q^112 - q^121 + 1/2*q^126 - q^133 - 
        1/2*q^140 - q^142 - 2*q^149 - q^169 + q^190 + 1/2*q^196 + q^200 + 
        2*q^205 + q^214 + q^218 - 1/2*q^224 - q^225 + q^226 + q^245 + O(q^246),
    q^2 - 1/2*q^14 - q^16 + q^18 - q^19 - q^25 + q^28 + 1/2*q^31 + 1/2*q^35 + 
        q^38 - q^47 - 1/2*q^49 - q^50 + q^59 - 1/2*q^62 + q^71 - q^76 + q^94 - 
        q^95 - q^100 - q^103 - q^107 + q^109 + 1/2*q^112 + q^113 - q^118 + 
        1/2*q^124 - 1/2*q^126 + q^128 + q^131 + 1/2*q^133 - 1/2*q^140 - q^144 + 
        q^152 - q^155 + q^162 + q^163 - q^171 + 3/2*q^175 - q^188 + q^191 + 
        q^193 - 1/2*q^196 + q^200 + q^205 + q^206 - q^211 - 1/2*q^217 - q^224 - 
        q^225 - q^227 - q^233 + 2*q^235 + q^236 - q^242 + 1/2*q^245 + O(q^246),
    q^4 - q^14 - q^19 + q^25 + 1/2*q^28 + 1/2*q^31 - q^32 + 1/2*q^35 + q^36 + 
        q^38 - q^47 + 1/2*q^49 - q^50 + q^59 - 1/2*q^62 + 1/2*q^70 + q^71 - q^76
        + q^94 - q^95 - 1/2*q^98 - q^100 - q^103 - q^107 - q^109 + q^112 - q^113
        - q^118 + 1/2*q^124 - q^126 + q^131 - 1/2*q^133 + q^142 + q^152 - q^155 
        + q^163 - q^171 + 3/2*q^175 - q^188 - q^190 + q^191 - q^193 - q^200 - 
        q^205 + q^206 - q^211 - q^214 + 1/2*q^217 + q^218 - 1/2*q^224 + q^225 + 
        q^226 - q^227 + q^233 + 2*q^235 + q^236 - 1/2*q^245 + O(q^246),
    q^5 + 1/2*q^14 - q^20 - 1/2*q^31 + 1/2*q^35 - q^38 - q^40 - q^41 + q^45 + 
        q^47 - 1/2*q^49 - 1/2*q^62 + q^70 + q^94 - q^97 + q^101 - 1/2*q^112 + 
        q^118 - 1/2*q^124 - q^125 + 1/2*q^126 - q^131 + 1/2*q^133 + 1/2*q^140 - 
        q^157 + q^160 + q^164 - 1/2*q^175 - q^180 + q^188 + 1/2*q^196 - q^206 + 
        1/2*q^217 + q^227 - 1/2*q^245 + O(q^246),
    q^7 - q^14 - 2*q^19 + q^28 + q^31 + 2*q^38 - 2*q^47 - q^56 + 2*q^59 - q^62 +
        q^63 - 2*q^76 + 2*q^94 - 2*q^103 + q^112 - 2*q^118 + q^124 - q^126 + 
        2*q^131 + 2*q^152 - 2*q^171 + q^175 - 2*q^188 + 2*q^206 - q^224 - 
        2*q^227 + 2*q^236 + O(q^246),
    q^10 - 1/2*q^14 + q^20 + 1/2*q^28 + q^31 - q^35 + q^38 - 2*q^47 - 1/2*q^70 -
        q^76 - q^80 - q^82 + q^90 - 1/2*q^98 + 1/2*q^112 - q^118 - 1/2*q^126 + 
        2*q^131 + 1/2*q^140 - q^160 - q^164 + q^175 + q^180 - q^194 - 1/2*q^196 
        + q^202 + q^206 - 1/2*q^224 - 2*q^227 + q^236 + O(q^246)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
869
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
869
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
869
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
869
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
390
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
869
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
390
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
869
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
869
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
869
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
130
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
869
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
130
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
869
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
869
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
869
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 13*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
869
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 26*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
869
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 26*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
869
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
39*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 - q^8 + q^9 - q^10 - q^19 + q^20 - q^23 + q^25 + q^26 + q^32 - q^38 
        + q^40 - q^45 - q^46 + q^49 + q^50 - q^52 + q^62 - q^65 - q^67 - q^72 - 
        q^73 + q^76 + q^79 + q^81 + 2*q^83 - q^90 + q^92 + 2*q^95 - q^97 - q^100
        + 2*q^115 - q^121 - q^124 - q^125 - q^131 - q^134 - q^146 - q^151 + 
        q^152 - q^155 + O(q^158),
    q^2 - q^4 - q^5 + q^13 + q^18 - q^19 - q^23 + q^25 - q^26 + q^31 - q^36 + 
        q^40 - q^45 + q^52 - q^62 + q^64 - q^67 - q^73 + q^89 + q^95 - q^97 + 
        q^98 + q^101 - q^104 + q^115 + q^117 + q^124 - q^128 - q^130 - q^131 - 
        q^151 + q^152 + O(q^158),
    q^11 - q^55 - q^88 + q^99 - q^110 + O(q^158),
    q^22 - q^44 - q^55 + q^121 + q^143 + O(q^158)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
869
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 39*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^3*q^8 - a*q^9 + (a^3 + a - 1)*q^19 + (a^2 + 1)*q^20 + 1/5*(-3*a^3 + 
        a^2 - 4*a + 2)*q^22 + (a^3 - a^2 - 1)*q^23 - a^3*q^25 + (a^3 + a)*q^26 +
        (-a^3 + a^2 + 1)*q^32 + (a^3 - 1)*q^38 + (-a^3 - a)*q^40 + 1/5*(-2*a^3 +
        4*a^2 - a + 3)*q^44 + (-a^2 - 1)*q^46 + (a^3 - a^2 + a - 1)*q^49 + (a^3 
        - a^2 + a - 1)*q^50 + a^3*q^52 + 1/5*(-2*a^3 - a^2 - a - 2)*q^55 + (-a^3
        + a^2 + 1)*q^65 + (-a^3 + a^2 + 1)*q^67 + (a^3 - a^2 + a - 1)*q^72 - 
        a^2*q^73 - q^76 - a*q^79 + a^2*q^81 + (-a^3 + 1)*q^83 - a^2*q^92 + (a^3 
        - a^2 + a)*q^95 - a*q^97 + q^100 - a*q^110 + (a^2 - a)*q^115 + 
        1/5*(2*a^3 + a^2 + a - 3)*q^121 + (a^3 + a - 1)*q^124 + (a^2 + 1)*q^130 
        - q^131 + (a^2 + 1)*q^134 + 1/5*(-8*a^3 + a^2 - 4*a + 2)*q^143 - 
        a^3*q^146 + (-a^3 - a + 1)*q^151 + q^155 + O(q^158),
    q^2 + a^2*q^8 + 1/5*(3*a^3 - a^2 + 4*a - 2)*q^11 - q^13 + a^3*q^16 - a*q^18 
        + a^2*q^25 + (a^3 - a^2 - 1)*q^31 + (a^3 - a^2 + a - 1)*q^32 + (-a^3 - a
        + 1)*q^38 + (a^2 + 1)*q^40 - a*q^44 + (-a^3 + a^2 + 1)*q^46 - a^3*q^50 +
        (a^3 - a^2 + a)*q^52 + 1/5*(2*a^3 - 4*a^2 + a - 3)*q^55 + (-a^3 + 
        a^2)*q^64 + (-a^3 + 1)*q^65 - a^3*q^72 + (-a^3 + 1)*q^76 + (-a^3 - 
        a)*q^80 + 1/5*(2*a^3 - 4*a^2 + a - 3)*q^88 + (a^3 - 1)*q^89 + (a^2 + 
        1)*q^92 + (-a^2 - 1)*q^95 + (a^3 - a^2 + a - 1)*q^98 + 1/5*(-2*a^3 - a^2
        - a + 3)*q^99 + (2*a^3 - 2*a^2 + 2*a - 2)*q^100 + (-a^3 + a^2 + 1)*q^101
        - a^3*q^104 + 1/5*(2*a^3 + a^2 + a + 2)*q^110 + (-a^3 - a + 1)*q^115 + 
        a*q^117 + (-a^3 - a)*q^124 - a*q^128 + (a^3 - a^2 - 1)*q^130 + (a^3 - 
        a^2 - 1)*q^134 + (-a^3 + a^2 - a + 1)*q^144 + a^2*q^146 + (-a^3 + 
        a^2)*q^152 + (-a^3 + a^2 - a + 1)*q^155 + O(q^158),
    q^4 + a*q^8 + a^2*q^16 + (-a^2 - 1)*q^19 + 1/5*(3*a^3 - a^2 + 4*a - 2)*q^22 
        + (-a^3 - a + 1)*q^23 - q^26 + a^3*q^32 - a*q^36 + (-a^3 - a)*q^38 + 
        1/5*(2*a^3 + a^2 + a - 3)*q^44 + (-a^3 + 1)*q^46 + a^2*q^50 - a*q^52 + 
        1/5*(-3*a^3 + a^2 + a + 2)*q^55 + (a^3 - a^2 - 1)*q^62 + (a^3 - a^2 + a 
        - 1)*q^64 + (a^3 + a - 1)*q^65 + (a^3 + a - 1)*q^67 - a^2*q^72 + q^73 + 
        (-a^3 - a + 1)*q^76 + (a^2 + 1)*q^80 - a*q^88 + (-a^3 + a^2 + 1)*q^92 + 
        (-a^3 + a^2 - a + 1)*q^97 + (a^3 - a^2 + a)*q^104 + 1/5*(-2*a^3 - a^2 - 
        a - 2)*q^121 + (-a^2 - 1)*q^124 + (-a^3 + a^2)*q^128 - a^3*q^131 + (a^3 
        - 1)*q^134 + 1/5*(-2*a^3 + 4*a^2 - a + 3)*q^143 - a^3*q^144 + a*q^146 + 
        (a^2 + 1)*q^151 + (-a^3 + 1)*q^152 + a^3*q^155 + O(q^158),
    q^5 + (-a^3 + 1)*q^8 + 1/5*(-2*a^3 - a^2 - a + 3)*q^11 + (a^3 + a)*q^13 + 
        (-a^3 + a^2 + 1)*q^16 + (a^3 - 1)*q^19 + 1/5*(-3*a^3 + a^2 + a + 2)*q^22
        + (-a^2 - 1)*q^23 + (a^3 + a - 1)*q^26 + a^2*q^31 + (a^2 + 1)*q^32 + 
        (a^3 - a^2 - 2)*q^38 - a^3*q^40 + 1/5*(3*a^3 - a^2 + 4*a - 2)*q^44 - 
        a*q^45 + (-a^3 - a^2 - a)*q^46 + a^3*q^62 + a*q^67 + (a^3 - a^2 - 
        1)*q^72 + (-a^2 - a - 1)*q^76 + 1/5*(2*a^3 + a^2 + a - 3)*q^88 + (a^2 + 
        1)*q^89 + (-2*a^3 - a + 1)*q^92 + (a^3 + a - 1)*q^95 + (-a^3 - a)*q^97 +
        1/5*(3*a^3 - a^2 - a - 2)*q^99 + (a^2 + 1)*q^100 + (-a^3 - a)*q^101 + 
        1/5*(-3*a^3 + a^2 - 4*a + 2)*q^110 + (a^3 - a^2 - 1)*q^115 + (-a^3 - a +
        1)*q^117 + 1/5*(2*a^3 + a^2 + a - 3)*q^121 + (a^3 - 1)*q^124 + (a^3 + 
        a)*q^130 + (a^3 + a^2 + a)*q^134 + 1/5*(-3*a^3 + a^2 - 4*a + 2)*q^143 + 
        (-a^2 - 1)*q^144 + (-a^3 + 1)*q^146 + (-a^3 + a^2 - a + 1)*q^151 - 
        a^2*q^152 + O(q^158),
    q^10 + 1/5*(-3*a^3 + a^2 - 4*a + 2)*q^11 + (a^2 + 1)*q^13 + (-a^3 + 1)*q^16 
        - a*q^20 + a*q^31 + (a^3 - 1)*q^38 + (-a^2 - 1)*q^46 + 1/5*(3*a^3 - a^2 
        + 4*a - 2)*q^55 - q^65 - q^76 + 1/5*(3*a^3 - a^2 + 4*a - 2)*q^88 + (-a^3
        + a^2 + 1)*q^89 - a*q^90 - a^2*q^92 + (a^3 + a)*q^95 + 1/5*(2*a^3 + a^2 
        + a - 3)*q^99 + (-a^2 - 1)*q^101 + 1/5*(-2*a^3 - a^2 - a + 3)*q^110 + 
        (a^3 - 1)*q^115 + (-a^3 - a)*q^117 + a^2*q^125 + a*q^130 + a*q^134 + 
        (a^3 - a^2 - 1)*q^144 + (a^3 - a^2 - 1)*q^155 + O(q^158)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^4 - a*q^5 + a*q^9 + (-a - 1)*q^11 - q^16 + (-a - 1)*q^19 + q^20 - 
        q^25 + a*q^29 + (a + 1)*q^31 - q^36 + (-a + 1)*q^41 + (-a + 1)*q^44 + 
        q^45 + q^49 + (a - 1)*q^55 + (a + 1)*q^61 - a*q^64 + 2*a*q^71 + (-a + 
        1)*q^76 + (-a - 1)*q^79 + a*q^80 - q^81 + (-a - 1)*q^89 + (a - 1)*q^95 +
        (-a + 1)*q^99 - a*q^100 + (-a - 1)*q^101 - q^116 + a*q^121 + (a - 
        1)*q^124 + a*q^125 + (a - 1)*q^131 + 2*q^139 - a*q^144 + q^145 - 
        2*a*q^151 + (-a + 1)*q^155 + (a + 1)*q^164 - q^169 + (-a + 1)*q^171 + (a
        + 1)*q^176 + a*q^180 + (a + 1)*q^191 + a*q^196 + (-a - 1)*q^205 + 
        2*a*q^209 + (-a + 1)*q^211 + (-a - 1)*q^220 - a*q^225 + (a - 1)*q^229 - 
        2*a*q^241 + (a - 1)*q^244 - a*q^245 + (-a - 1)*q^251 + q^256 - q^261 + 
        (-a + 1)*q^269 + (a - 1)*q^271 + (a + 1)*q^275 + (a - 1)*q^279 - 2*q^281
        - 2*q^284 + a*q^289 + (a + 1)*q^304 + (-a + 1)*q^305 + (a + 1)*q^311 + 
        (-a + 1)*q^316 + (-a + 1)*q^319 - q^320 - a*q^324 + (a - 1)*q^331 - 
        2*a*q^341 + O(q^346),
    q^2 + a*q^8 - a*q^10 + a*q^18 + (-a - 1)*q^22 - q^32 + (-a - 1)*q^38 + q^40 
        - q^50 + a*q^58 + (a + 1)*q^62 - q^72 + (-a + 1)*q^82 + (-a + 1)*q^88 + 
        q^90 + q^98 + (a - 1)*q^110 + (a + 1)*q^122 - a*q^128 + 2*a*q^142 + (-a 
        + 1)*q^152 + (-a - 1)*q^158 + a*q^160 - q^162 + (-a - 1)*q^178 + (a - 
        1)*q^190 + (-a + 1)*q^198 - a*q^200 + (-a - 1)*q^202 - q^232 + a*q^242 +
        (a - 1)*q^248 + a*q^250 + (a - 1)*q^262 + 2*q^278 - a*q^288 + q^290 - 
        2*a*q^302 + (-a + 1)*q^310 + (a + 1)*q^328 - q^338 + (-a + 1)*q^342 + 
        O(q^346),
    q^3 + a*q^12 - a*q^15 + a*q^27 + (-a - 1)*q^33 - q^48 + (-a - 1)*q^57 + q^60
        - q^75 + a*q^87 + (a + 1)*q^93 - q^108 + (-a + 1)*q^123 + (-a + 1)*q^132
        + q^135 + q^147 + (a - 1)*q^165 + (a + 1)*q^183 - a*q^192 + 2*a*q^213 + 
        (-a + 1)*q^228 + (-a - 1)*q^237 + a*q^240 - q^243 + (-a - 1)*q^267 + (a 
        - 1)*q^285 + (-a + 1)*q^297 - a*q^300 + (-a - 1)*q^303 + O(q^346),
    q^6 + a*q^24 - a*q^30 + a*q^54 + (-a - 1)*q^66 - q^96 + (-a - 1)*q^114 + 
        q^120 - q^150 + a*q^174 + (a + 1)*q^186 - q^216 + (-a + 1)*q^246 + (-a +
        1)*q^264 + q^270 + q^294 + (a - 1)*q^330 + O(q^346)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^6 - q^7 + q^9 - q^13 - q^16 + q^22 + q^24 + q^25 - q^33 + q^34 + q^42 
        - q^51 - q^54 - q^58 - q^63 + q^64 - q^67 + q^78 + q^81 - 2*q^82 + q^87 
        - q^88 + q^91 + q^94 + 2*q^103 - q^109 + q^112 - q^117 + 2*q^123 - q^136
        - q^139 - q^141 - q^144 - q^150 + 2*q^151 - q^154 - q^168 - q^175 + 
        q^178 - q^181 + q^187 + q^198 - q^199 + q^202 + q^208 + q^216 - q^223 + 
        q^225 + q^226 + q^231 + q^232 - q^238 - q^241 + q^262 - q^267 - 2*q^274 
        - q^277 + 2*q^283 - q^286 - q^297 - q^303 + q^306 - q^312 - q^313 - 
        q^319 - q^325 + 2*q^328 - q^339 + q^343 + O(q^346),
    q^2 - q^12 - q^14 + q^18 - q^26 - q^32 + q^44 + q^48 + q^50 - q^66 + q^68 + 
        q^84 - q^102 - q^108 - q^116 - q^126 + q^128 - q^134 + q^156 + q^162 - 
        2*q^164 + q^174 - q^176 + q^182 + q^188 + 2*q^206 - q^218 + q^224 - 
        q^234 + 2*q^246 - q^272 - q^278 - q^282 - q^288 - q^300 + 2*q^302 - 
        q^308 - q^336 + O(q^346),
    q^3 + q^8 - q^11 - q^12 - q^17 - q^21 + q^27 + q^29 - q^32 - q^39 + 2*q^41 +
        q^44 - q^47 - q^56 + q^68 + q^72 + q^75 + q^77 + q^84 - q^89 - q^99 - 
        q^101 - q^104 - q^108 - q^113 - q^116 + q^119 - q^131 + 2*q^137 + q^143 
        - q^153 + q^156 - 2*q^164 + q^188 - q^189 + 2*q^191 + q^192 + q^200 - 
        q^201 - q^203 + q^221 + q^224 + q^243 - q^251 + q^261 + 2*q^263 - q^264 
        - q^269 + q^273 - q^275 - 2*q^287 - q^288 - q^293 - q^300 - q^308 + 
        2*q^309 - q^311 - q^317 - q^327 + q^329 + O(q^346),
    q^4 - q^6 - q^16 + q^22 - q^28 + q^34 + q^36 + q^42 - q^52 - q^54 - q^58 + 
        q^78 - 2*q^82 + q^94 + q^96 + q^100 + q^112 - q^132 - q^144 - q^150 - 
        q^154 + q^178 + q^198 + q^202 - q^204 + q^208 + q^226 - q^238 - q^252 + 
        q^256 + q^262 - q^268 - 2*q^274 - q^286 + q^306 + q^324 + O(q^346),
    q^5 - q^30 - q^35 + q^45 - q^65 - q^80 + q^110 + q^120 + q^125 - q^165 + 
        q^170 + q^210 - q^255 - q^270 - q^290 - q^315 + q^320 - q^335 + 
        O(q^346),
    q^10 - q^60 - q^70 + q^90 - q^130 - q^160 + q^220 + q^240 + q^250 - q^330 + 
        q^340 + O(q^346),
    q^15 + q^40 - q^55 - q^60 - q^85 - q^105 + q^135 + q^145 - q^160 - q^195 + 
        2*q^205 + q^220 - q^235 - q^280 + q^340 + O(q^346),
    q^20 - q^30 - q^80 + q^110 - q^140 + q^170 + q^180 + q^210 - q^260 - q^270 -
        q^290 + O(q^346)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^4 + a*q^5 + (-a - 1)*q^7 - a*q^9 + (-a + 1)*q^13 - q^16 - q^20 + (a 
        - 1)*q^23 - q^25 + (-a + 1)*q^28 + a*q^29 + (-a + 1)*q^35 + q^36 + q^45 
        + a*q^49 + (a + 1)*q^52 + (a - 1)*q^53 - 2*a*q^59 + (a - 1)*q^63 - 
        a*q^64 + (a + 1)*q^65 + (a + 1)*q^67 - a*q^80 - q^81 + (-a + 1)*q^83 - 
        2*q^91 + (-a - 1)*q^92 - a*q^100 + (a - 1)*q^103 + (a + 1)*q^107 + (a + 
        1)*q^112 + (-a - 1)*q^115 - q^116 + (-a - 1)*q^117 + q^121 - a*q^125 + 
        (a + 1)*q^140 + a*q^144 - q^145 + 2*q^161 + (a + 1)*q^167 - a*q^169 + 
        (-a + 1)*q^173 + (a + 1)*q^175 + a*q^180 - q^196 + (-a - 1)*q^197 + 
        2*a*q^199 + (-a + 1)*q^203 + (a + 1)*q^207 + (a - 1)*q^208 + (-a - 
        1)*q^212 + (-a + 1)*q^223 + a*q^225 + (-a - 1)*q^227 + (a - 1)*q^233 + 
        2*q^236 - 2*a*q^239 - q^245 + (-a - 1)*q^252 + q^256 + (-a - 1)*q^257 + 
        (a - 1)*q^260 + q^261 + (-a - 1)*q^265 + (a - 1)*q^268 + (-a - 1)*q^277 
        - 2*q^281 + (-a + 1)*q^283 + a*q^289 + 2*q^295 + 2*a*q^299 + (-a + 
        1)*q^313 + (-a - 1)*q^315 + q^320 - a*q^324 + (a - 1)*q^325 + (a + 
        1)*q^332 + (a - 1)*q^335 + O(q^346),
    q^2 + a*q^8 + a*q^10 + (-a - 1)*q^14 - a*q^18 + (-a + 1)*q^26 - q^32 - q^40 
        + (a - 1)*q^46 - q^50 + (-a + 1)*q^56 + a*q^58 + (-a + 1)*q^70 + q^72 + 
        q^90 + a*q^98 + (a + 1)*q^104 + (a - 1)*q^106 - 2*a*q^118 + (a - 
        1)*q^126 - a*q^128 + (a + 1)*q^130 + (a + 1)*q^134 - a*q^160 - q^162 + 
        (-a + 1)*q^166 - 2*q^182 + (-a - 1)*q^184 - a*q^200 + (a - 1)*q^206 + (a
        + 1)*q^214 + (a + 1)*q^224 + (-a - 1)*q^230 - q^232 + (-a - 1)*q^234 + 
        q^242 - a*q^250 + (a + 1)*q^280 + a*q^288 - q^290 + 2*q^322 + (a + 
        1)*q^334 - a*q^338 + O(q^346),
    q^3 + a*q^12 + a*q^15 + (-a - 1)*q^21 - a*q^27 + (-a + 1)*q^39 - q^48 - q^60
        + (a - 1)*q^69 - q^75 + (-a + 1)*q^84 + a*q^87 + (-a + 1)*q^105 + q^108 
        + q^135 + a*q^147 + (a + 1)*q^156 + (a - 1)*q^159 - 2*a*q^177 + (a - 
        1)*q^189 - a*q^192 + (a + 1)*q^195 + (a + 1)*q^201 - a*q^240 - q^243 + 
        (-a + 1)*q^249 - 2*q^273 + (-a - 1)*q^276 - a*q^300 + (a - 1)*q^309 + (a
        + 1)*q^321 + (a + 1)*q^336 + (-a - 1)*q^345 + O(q^346),
    q^6 + a*q^24 + a*q^30 + (-a - 1)*q^42 - a*q^54 + (-a + 1)*q^78 - q^96 - 
        q^120 + (a - 1)*q^138 - q^150 + (-a + 1)*q^168 + a*q^174 + (-a + 
        1)*q^210 + q^216 + q^270 + a*q^294 + (a + 1)*q^312 + (a - 1)*q^318 + 
        O(q^346)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
870
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
346
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^16 - q^20 + q^24 - q^25 + q^30 - q^34 - q^36 - q^45 + q^49 + q^51 + 
        q^54 + q^74 - q^81 + q^86 + q^94 + 2*q^109 - q^111 + q^116 - q^121 - 
        q^129 - q^136 - 2*q^139 - q^141 + q^145 - q^146 + q^169 - q^170 - q^174 
        - q^194 + q^204 + q^219 + q^226 + 2*q^236 + q^254 + q^255 + q^256 + 
        q^261 - q^274 - 2*q^284 - q^289 + q^291 + 2*q^295 - q^296 - q^306 + 
        q^314 + q^320 - q^326 - q^339 - q^344 + O(q^346),
    q^2 + q^12 - q^15 + q^17 - q^27 - q^32 - q^37 + q^40 - q^43 - q^47 - q^50 - 
        q^68 + q^72 + q^73 + q^85 + q^87 - q^90 + q^97 + q^98 + q^102 - q^113 - 
        q^127 + q^137 - q^148 + q^153 - q^157 - q^162 + q^163 - q^172 + 2*q^177 
        + q^185 + q^188 - q^192 + q^193 - 2*q^213 + q^215 + 2*q^218 - q^222 - 
        q^232 - q^235 + q^240 - q^242 - q^258 - q^263 - q^272 - 2*q^278 - q^282 
        + q^290 + q^292 + q^293 - q^300 + q^307 - q^317 + q^333 - q^337 + q^338 
        + q^340 + O(q^346),
    q^3 + q^12 - q^15 - q^27 - 2*q^37 + 2*q^40 - 2*q^43 - q^48 - q^60 + 2*q^72 +
        2*q^73 - q^75 + 2*q^85 + q^87 + 2*q^97 - q^108 - 2*q^127 - q^135 + q^147
        - 2*q^148 + 2*q^153 - 2*q^157 + 2*q^163 - 2*q^172 + 2*q^177 - q^192 + 
        2*q^193 - 2*q^213 - 2*q^232 - 2*q^235 + q^240 - q^243 + 2*q^292 - q^300 
        + 2*q^307 + 2*q^327 - 2*q^337 + 2*q^340 + O(q^346),
    q^4 + q^20 - q^30 + q^34 + q^36 - q^54 - q^64 - q^74 - q^86 - q^94 - q^100 -
        q^116 + q^120 - q^136 + q^146 + q^170 + q^174 - q^180 + q^194 + q^196 + 
        q^216 - q^226 - 2*q^236 - q^254 + q^274 + 2*q^284 + q^296 + q^306 - 
        q^314 - q^320 - q^324 + q^326 + q^344 + O(q^346),
    q^5 + q^9 + q^20 - q^24 - q^29 + q^36 - q^51 - 2*q^59 + 2*q^71 - q^80 - 
        q^111 - q^116 + q^120 - q^125 - q^129 + q^141 - q^144 - q^204 + q^216 + 
        q^219 - q^225 - 2*q^236 + 2*q^239 + q^245 + q^255 + 2*q^284 + q^291 + 
        2*q^296 - q^320 + q^339 + 2*q^344 + O(q^346),
    q^6 + 2*q^20 - q^24 - q^30 + 2*q^36 - q^54 - 2*q^74 - 2*q^86 - q^96 - 
        2*q^116 + q^120 + 2*q^146 - q^150 + 2*q^170 + q^174 + 2*q^194 - 2*q^204 
        + q^216 - 4*q^236 - 2*q^254 - q^270 + 4*q^284 + q^294 + 2*q^296 + 
        2*q^306 - 2*q^314 - 2*q^320 + 2*q^326 + 2*q^344 + O(q^346),
    q^8 - q^15 + q^17 - q^27 - q^37 + q^40 - q^43 - q^47 - q^60 + q^68 + q^72 + 
        q^73 + q^85 + q^87 + q^97 - q^108 - q^113 - q^127 - q^128 + q^137 - 
        q^148 + q^153 - q^157 + q^163 - q^172 + 2*q^177 + q^185 - q^188 + q^193 
        - q^200 - 2*q^213 + q^215 - q^232 - q^235 + q^240 - q^263 - q^272 + 
        q^292 + q^293 + q^307 - q^317 + q^333 - q^337 + q^340 + O(q^346),
    q^10 - q^12 + q^18 - q^40 - q^58 + q^60 - q^72 - q^102 + q^108 - 2*q^118 + 
        2*q^142 + 2*q^148 - q^160 + 2*q^172 + q^192 - q^222 + q^232 - q^250 - 
        q^258 + q^282 - q^288 - 2*q^292 + q^300 - 2*q^340 + O(q^346)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
132
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
132
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
132
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
132
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + 11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + 11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 22*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 22*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 22*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
33*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 33*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 33*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
871
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 33*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - q^55 - q^56 - q^62 - q^65 - q^77 + q^81 - q^82 - 
        q^100 - q^107 + q^121 - q^131 - q^140 + O(q^156),
    q^2 + q^18 - q^28 - q^31 - q^41 - q^70 - q^85 + q^98 + q^109 + q^119 - q^136
        + q^137 + q^145 + O(q^156),
    q^4 - q^14 - q^25 - q^35 + q^36 + q^55 + q^65 - q^68 + q^77 - q^88 + q^100 +
        q^107 - q^126 - q^127 + q^131 - q^143 + O(q^156),
    q^5 - q^13 - q^20 + q^44 + q^45 - q^46 + q^58 - q^67 + q^70 - q^98 + q^112 -
        q^117 - 2*q^119 + q^125 + q^136 - q^154 + O(q^156),
    q^7 - q^13 - 2*q^20 + q^28 + q^32 + q^34 + q^44 - 2*q^46 + q^50 - q^52 + 
        q^63 - q^67 + q^70 - q^80 - 2*q^98 + q^110 + q^112 - q^117 - 2*q^119 + 
        q^124 + q^125 + q^128 + q^136 + q^145 - 2*q^154 + O(q^156),
    q^8 - q^13 - 2*q^20 + q^28 + q^31 + q^32 + q^41 - 2*q^46 + q^50 - q^52 - 
        q^67 + q^70 + q^72 - 2*q^80 + q^85 - 2*q^98 + q^110 + q^112 + q^115 - 
        q^117 - 2*q^119 + q^124 + q^128 + q^130 + q^136 - q^154 + O(q^156),
    q^10 - q^14 - q^17 + q^29 + q^35 - q^55 - q^64 + q^90 - q^91 + q^92 - q^100 
        + q^103 + q^104 + q^121 - q^126 - q^140 - q^153 - q^155 + O(q^156),
    q^11 - q^13 - q^20 + q^28 + q^34 + q^44 - 2*q^46 - q^52 + q^58 - q^67 + q^70
        - q^80 + q^85 + q^97 - 2*q^98 + q^99 + q^110 + q^112 - q^117 - 2*q^119 +
        q^128 + q^136 - 2*q^154 + O(q^156),
    q^16 - q^17 - q^23 + q^25 - q^26 + q^29 + 2*q^35 - 2*q^40 - q^49 - q^55 + 
        q^56 + q^62 + q^68 - q^77 + q^82 - q^91 - q^92 + q^103 - q^116 + q^121 +
        q^127 - q^134 - q^140 + q^143 + q^144 - q^153 - 2*q^155 + O(q^156),
    q^22 - q^23 - q^26 + q^29 + q^35 - q^40 - q^49 + q^56 + q^68 - q^77 - q^92 +
        q^103 + q^121 - q^134 - q^155 + O(q^156)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
108
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
108
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^16 - a)*q^5 + (-a^14 + a^5)*q^9 + (a^9 + a^8 - 1)*q^13 + (a^14 + 
        a^10)*q^17 + (-a^17 - a^5 + a^2)*q^25 + (-a^12 + a^11 + a^3 - a^2)*q^29 
        + (-a^15 + a^13 - a^4)*q^37 + (-a^16 - a^11 + a^7)*q^41 + (a^15 + a^12 -
        a^6)*q^45 + (a^17 - a^8)*q^49 + (-a^13 + a^4)*q^53 + (-a^13 - a^7)*q^61 
        + (a^15 - a^10 - a^9 - a^7 - a^6 + a)*q^65 + (-a^16 + a^7 + a^6)*q^73 + 
        (-a^10 + a)*q^81 + (a^17 - a^15 - a^11 - a^8 - a^3)*q^85 + (a^11 - a^9 -
        a^2)*q^89 + (-a^5 - a^3)*q^97 + (a^12 + a^6)*q^101 + a^2*q^109 + (-a^17 
        + a^13 - a^4)*q^113 + (a^14 + a^4)*q^117 + a^4*q^121 + (-a^12 + a^9 + 
        a^6 - 1)*q^125 + (a^8 - a^3)*q^137 + (a^13 - a^12 + a^10 - a^9 - a^4 + 
        a^3)*q^145 + (-a^14 + a^12 + a^5)*q^149 + (a^10 + a^6)*q^153 - 
        a^10*q^157 + (a^17 + a^16 - a^9 - a^8)*q^169 + (-a^17 - a^10 + a)*q^173 
        + (a^8 + a^2)*q^181 + (a^16 - a^14 - a^11 + a^5 + a^4)*q^185 + (-a^7 + 
        1)*q^193 + (-a^15 - a^7)*q^197 + (a^17 + a^14 + a^12 - a^8 + 1)*q^205 + 
        O(q^214),
    q^2 - a^3*q^4 + a^6*q^8 + (a^16 - a)*q^10 - a^9*q^16 + (-a^14 + a^5)*q^18 + 
        (-a^10 + a^4 + a)*q^20 + (a^9 + a^8 - 1)*q^26 + a^12*q^32 + (a^14 + 
        a^10)*q^34 + (a^17 - a^8)*q^36 + (a^13 - a^7 - a^4)*q^40 + (-a^17 - a^5 
        + a^2)*q^50 + (-a^12 - a^11 + a^3)*q^52 + (-a^12 + a^11 + a^3 - 
        a^2)*q^58 - a^15*q^64 + (-a^17 - a^13)*q^68 + a^2*q^72 + (-a^15 + a^13 -
        a^4)*q^74 + (-a^16 + a^10 + a^7)*q^80 + (-a^16 - a^11 + a^7)*q^82 + 
        (a^15 + a^12 - a^6)*q^90 + (a^17 - a^8)*q^98 + (a^11 + a^8 - a^5 - 
        a^2)*q^100 + (a^15 + a^14 - a^6)*q^104 + (-a^13 + a^4)*q^106 + (a^15 - 
        a^14 - a^6 + a^5)*q^116 + (-a^13 - a^7)*q^122 + (a^9 - 1)*q^128 + (a^15 
        - a^10 - a^9 - a^7 - a^6 + a)*q^130 + (a^16 + a^11 - a^2)*q^136 - 
        a^5*q^144 + (-a^16 + a^7 + a^6)*q^146 + (-a^16 + a^9 + a^7 - 1)*q^148 + 
        (-a^13 - a)*q^160 + (-a^10 + a)*q^162 + (a^14 - a)*q^164 + (a^17 - a^15 
        - a^11 - a^8 - a^3)*q^170 + (a^11 - a^9 - a^2)*q^178 + (-a^15 + 1)*q^180
        + (-a^5 - a^3)*q^194 + a^2*q^196 + (-a^14 - a^11 + a^8 + a^5)*q^200 + 
        (a^12 + a^6)*q^202 + (-a^17 + 1)*q^208 + (a^16 - a^7)*q^212 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^4*q^5 - a^5*q^9 + (a^5 - a^2 + 1)*q^13 + (-a^5 - a)*q^17 + (-a^3 + 
        a^2)*q^29 + (a^4 + a^3 - 1)*q^37 + (-a^4 + a^2 + a)*q^41 - q^45 + (a^5 -
        a^2)*q^49 + 2*a^4*q^53 + a*q^61 + (-a^4 + a^3)*q^65 + (-a^4 + a^3 + a - 
        1)*q^73 - a*q^81 + (a^5 - 1)*q^85 + (a^2 + 1)*q^89 + (-a^5 - a^3)*q^97 -
        q^101 + a^2*q^109 + (a^5 + a^4 - a^2)*q^113 + (-a^5 + a^4)*q^117 + 
        a^4*q^121 - a^3*q^125 + (a^5 - a^3 - a^2)*q^137 + (a^4 - a^3 - a + 
        1)*q^145 + (-a^5 - a^3)*q^149 + (a^3 - a - 1)*q^153 - 2*a*q^157 + (a^5 -
        a^4 - a^2 + a + 1)*q^169 + (a^5 - a^2 - a)*q^173 + a^5*q^181 + (-a^5 + 
        a^2 + a)*q^185 + (-a^4 + a + 1)*q^193 + (-a^4 + a^3 + a - 1)*q^197 + 
        (-a^3 - a^2 + 1)*q^205 + O(q^214),
    q^2 - a^3*q^4 + (a^3 - 1)*q^8 - a^4*q^10 + q^16 - a^5*q^18 + (a^4 - a)*q^20 
        + (a^5 - a^2 + 1)*q^26 - a^3*q^32 + (-a^5 - a)*q^34 + (a^5 - a^2)*q^36 +
        a*q^40 + (-a^3 + a^2)*q^52 + (-a^3 + a^2)*q^58 + (a^3 - 1)*q^64 + (a^5 +
        a^4 - a^2)*q^68 + a^2*q^72 + (a^4 + a^3 - 1)*q^74 - a^4*q^80 + (-a^4 + 
        a^2 + a)*q^82 - q^90 + (a^5 - a^2)*q^98 + (-a^5 + a^3 - 1)*q^104 + 
        2*a^4*q^106 + (-a^5 + a^3 - 1)*q^116 + a*q^122 + q^128 + (-a^4 + 
        a^3)*q^130 + (-a^4 + a^2 + a)*q^136 - a^5*q^144 + (-a^4 + a^3 + a - 
        1)*q^146 + (-a^4 + a + 1)*q^148 + (a^4 - a)*q^160 - a*q^162 + (-a^5 - 
        a)*q^164 + (a^5 - 1)*q^170 + (a^2 + 1)*q^178 + a^3*q^180 + (-a^5 - 
        a^3)*q^194 + a^2*q^196 - q^202 + (a^5 - a^2 + 1)*q^208 + (-2*a^4 + 
        2*a)*q^212 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 12*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 18*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 27*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 36*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - 2*a*q^5 + (a - 1)*q^9 + a*q^13 - q^17 + (3*a - 3)*q^25 + a*q^29 + (-a + 
        1)*q^37 - q^41 + 2*q^45 + (a - 1)*q^49 - 2*a*q^53 - 2*a*q^61 + (-2*a + 
        2)*q^65 + (-a + 1)*q^73 - a*q^81 + 2*a*q^85 + a*q^89 + a*q^97 + 2*q^101 
        + (a - 1)*q^109 - q^113 - q^117 - a*q^121 + 4*q^125 + a*q^137 + (-2*a + 
        2)*q^145 + a*q^149 + (-a + 1)*q^153 - 2*a*q^157 - q^173 + (2*a - 
        2)*q^181 - 2*q^185 + (-a + 1)*q^193 + (-a + 1)*q^197 + 2*a*q^205 + 
        O(q^214),
    q^2 + q^4 + q^8 - 2*a*q^10 + q^16 + (a - 1)*q^18 - 2*a*q^20 + a*q^26 + q^32 
        - q^34 + (a - 1)*q^36 - 2*a*q^40 + (3*a - 3)*q^50 + a*q^52 + a*q^58 + 
        q^64 - q^68 + (a - 1)*q^72 + (-a + 1)*q^74 - 2*a*q^80 - q^82 + 2*q^90 + 
        (a - 1)*q^98 + (3*a - 3)*q^100 + a*q^104 - 2*a*q^106 + a*q^116 - 
        2*a*q^122 + q^128 + (-2*a + 2)*q^130 - q^136 + (a - 1)*q^144 + (-a + 
        1)*q^146 + (-a + 1)*q^148 - 2*a*q^160 - a*q^162 - q^164 + 2*a*q^170 + 
        a*q^178 + 2*q^180 + a*q^194 + (a - 1)*q^196 + (3*a - 3)*q^200 + 2*q^202 
        + a*q^208 - 2*a*q^212 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 36*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^3 - q^4 + a*q^10 + (a - 1)*q^11 - a*q^12 + a*q^14 + q^16 - 2*q^19 + 
        a*q^26 + q^27 + (a - 1)*q^30 - q^33 + (-a + 1)*q^35 - a*q^40 + (a - 
        1)*q^42 + (-a + 1)*q^44 + a*q^48 - a*q^56 - 2*a*q^57 - a*q^58 + (a - 
        1)*q^59 + (-a + 1)*q^62 - q^64 + (-a + 1)*q^65 + (a - 1)*q^67 + (-a + 
        1)*q^73 + (-a + 1)*q^74 + 2*q^76 + (a - 1)*q^78 + a*q^81 + a*q^83 - 
        a*q^89 + (-a + 1)*q^91 + (-a + 1)*q^94 - a*q^97 - a*q^104 + q^105 - 
        a*q^106 + 2*q^107 - q^108 - q^110 + (-a + 1)*q^120 + a*q^122 + (-a + 
        1)*q^131 + q^132 + a*q^137 + (a - 1)*q^139 + (a - 1)*q^140 + (a - 
        1)*q^145 - q^154 - q^155 + (a - 1)*q^158 + a*q^160 + (-a + 1)*q^168 + 
        (-a + 1)*q^174 + (a - 1)*q^176 - q^177 + (-a + 1)*q^179 - q^185 + q^186 
        - 2*a*q^190 - a*q^192 + (-a + 1)*q^193 + q^195 - q^201 - 2*q^202 + (a - 
        1)*q^203 + a*q^206 + (-2*a + 2)*q^209 - a*q^211 + O(q^214),
    q^2 - a*q^5 + a*q^6 - a*q^7 - q^8 - a*q^13 + (-a + 1)*q^15 + a*q^20 + (-a + 
        1)*q^21 + (a - 1)*q^22 - a*q^24 + a*q^28 + a*q^29 + (a - 1)*q^31 + q^32 
        + (a - 1)*q^37 - 2*q^38 + (-a + 1)*q^39 + (a - 1)*q^47 + a*q^52 + a*q^53
        + q^54 + q^55 + (a - 1)*q^60 - a*q^61 - q^66 + (-a + 1)*q^70 + q^77 + 
        (-a + 1)*q^79 - a*q^80 + (a - 1)*q^84 + (a - 1)*q^87 + (-a + 1)*q^88 - 
        q^93 + 2*a*q^95 + a*q^96 + 2*q^101 - a*q^103 - q^109 - q^111 - a*q^112 -
        2*a*q^114 - a*q^116 + (a - 1)*q^118 + (-a + 1)*q^124 + q^125 + (a - 
        1)*q^127 - q^128 + (-a + 1)*q^130 + 2*a*q^133 + (a - 1)*q^134 - a*q^135 
        - q^141 + q^143 + (-a + 1)*q^146 + (-a + 1)*q^148 - a*q^149 + (-a + 
        1)*q^151 + 2*q^152 + (a - 1)*q^156 - a*q^157 + (a - 1)*q^159 + a*q^162 +
        a*q^165 + a*q^166 - a*q^167 - a*q^178 + (a - 1)*q^181 + (-a + 1)*q^182 +
        (-a + 1)*q^183 + (-a + 1)*q^188 - a*q^189 - a*q^194 + (a - 1)*q^197 - 
        2*q^199 - a*q^208 + q^210 - a*q^212 + O(q^214)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 54*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 + q^9 - q^29 - q^45 + q^49 - q^61 - q^73 + q^81 - q^89 - q^97 + 
        q^109 + 2*q^113 + q^125 - q^137 + q^145 - q^157 + q^169 + 2*q^173 - 
        q^193 - q^197 + q^209 + O(q^214),
    q^2 + q^8 - q^10 + q^18 + q^32 - q^40 - q^44 - q^58 + q^72 - q^76 - q^90 - 
        q^92 + q^98 - q^122 + q^128 - q^146 - q^160 + q^162 - q^176 - q^178 - 
        q^188 - q^194 + O(q^214),
    q^4 + q^16 - q^20 - q^22 + q^36 - q^38 - q^46 + q^64 - q^80 - q^88 - q^94 + 
        q^110 - q^116 + 2*q^118 + 2*q^134 + q^144 - q^152 + 2*q^158 - q^180 - 
        q^184 + q^190 + q^196 - q^198 - q^206 + O(q^214),
    q^11 + q^19 + q^23 + q^47 - q^55 - 2*q^59 - 2*q^67 - 2*q^79 - q^95 + q^99 + 
        q^103 + q^107 - q^115 + q^127 - 2*q^139 + q^151 + q^163 - 2*q^167 + 
        q^171 + q^179 - 2*q^199 + q^207 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
872
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 54*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 + q^25 - q^26 - q^27 - q^43 - q^46 + q^49 + q^64 - q^78 - 
        q^83 - q^97 + q^100 - q^104 - q^108 + q^121 - q^129 - q^131 - q^137 - 
        q^138 + q^169 - q^172 - q^184 + q^196 - q^202 - q^211 + O(q^214),
    q^2 + q^8 - q^13 - q^23 + q^32 - q^39 + q^50 - q^52 - q^54 - q^69 - q^86 - 
        q^92 + q^98 - q^101 + q^109 + q^111 + q^117 + 2*q^127 + q^128 + q^141 - 
        q^151 - q^156 + q^159 - q^166 + 2*q^181 - q^194 - q^199 + q^200 + q^207 
        - q^208 + O(q^214),
    q^3 - q^9 + q^12 - q^26 - q^36 - q^43 - q^46 + q^48 + q^73 + q^74 + q^75 - 
        q^83 + q^89 + q^94 - q^97 - q^104 + q^106 + q^113 - q^131 - q^137 - 
        q^144 + q^147 + q^158 + q^169 - q^172 - q^184 + q^192 + q^193 - q^202 + 
        q^206 - q^211 + O(q^214),
    q^6 - q^13 - q^18 - q^23 + q^24 + q^37 + q^47 - q^52 + q^53 - q^72 + q^79 - 
        q^86 - q^92 + q^96 - q^101 + q^103 - q^111 - q^141 + q^146 + q^148 + 
        q^149 + q^150 - q^151 - q^159 - q^166 + q^167 + q^178 + q^188 - q^194 - 
        q^199 - q^208 + q^212 + O(q^214)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
96
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
96
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
96
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
32
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^2*q^4 + (a^12 - a^3)*q^7 + (a^15 + a^10)*q^13 + a^4*q^16 + (a^9 + 
        a^8)*q^19 - a*q^25 + (-a^14 + a^5)*q^28 + (-a^9 - a^5)*q^31 + (a^7 - 
        a^4)*q^37 + (a^13 - a^7)*q^43 + (-a^15 - a^8 + a^6)*q^49 + (-a^12 + 
        a)*q^52 + (-a^13 + a^3)*q^61 - a^6*q^64 + (a^14 + a^11)*q^67 + (-a^10 + 
        a^2)*q^73 + (-a^11 - a^10)*q^76 + (a^14 - 1)*q^79 + (-a^13 - a^11 - a^6 
        + a^2)*q^91 + a*q^97 + a^3*q^100 + (-a^8 - 1)*q^103 + (-a^15 + 
        a^11)*q^109 + (-a^7 - 1)*q^112 + a^6*q^121 + (a^11 + a^7)*q^124 + (a^13 
        - a^12)*q^127 + (-a^12 - a^11 - a^5 - a^4)*q^133 + (a^5 + a^2)*q^139 + 
        (-a^9 + a^6)*q^148 + (a^3 - a)*q^151 + (-a^14 + a^13)*q^157 + (a^8 - 
        a^6)*q^163 + (-a^14 - a^9 - a^4)*q^169 + (-a^15 + a^9)*q^172 + (-a^13 + 
        a^4)*q^175 + (a^15 - a^10)*q^181 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
96
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^2*q^4 + (-a^4 + a^3)*q^7 + (-a^7 - a^2)*q^13 + a^4*q^16 + (-a - 
        1)*q^19 + a*q^25 + (-a^6 + a^5)*q^28 + (a^5 - a)*q^31 + (a^7 + a^4)*q^37
        + (a^7 - a^5)*q^43 + (-a^7 + a^6 - 1)*q^49 + (-a^4 + a)*q^52 + (-a^5 + 
        a^3)*q^61 + a^6*q^64 + (-a^6 - a^3)*q^67 + (-a^3 - a^2)*q^76 + (-a^6 + 
        1)*q^79 + (a^6 - a^5 - a^3 + a^2)*q^91 + a*q^97 + a^3*q^100 + (-a^7 - 
        a^3)*q^109 + (a^7 + 1)*q^112 + a^6*q^121 + (a^7 - a^3)*q^124 + (-a^5 - 
        a^4)*q^127 + (a^5 - a^3)*q^133 + (a^5 + a^2)*q^139 + (a^6 - a)*q^148 + 
        (a^3 + a)*q^151 + (-a^6 - a^5)*q^157 + (a^6 - 1)*q^163 + (-a^6 + a^4 - 
        a)*q^169 + (-a^7 - a)*q^172 + (-a^5 + a^4)*q^175 + (-a^7 - a^2)*q^181 + 
        O(q^190),
    q^3 - a^3*q^9 + a^2*q^12 + (-a^4 + a^3)*q^21 + a^6*q^27 - a^5*q^36 + (-a^7 -
        a^2)*q^39 + a^4*q^48 + (-a - 1)*q^57 + (a^7 - a^6)*q^63 + a*q^75 + 
        a*q^81 + (-a^6 + a^5)*q^84 + (a^5 - a)*q^93 - q^108 + (a^7 + a^4)*q^111 
        + (a^5 - a^2)*q^117 + (a^7 - a^5)*q^129 - a^7*q^144 + (-a^7 + a^6 - 
        1)*q^147 + (-a^4 + a)*q^156 + (a^4 + a^3)*q^171 + (-a^5 + a^3)*q^183 + 
        (a^2 - a)*q^189 + O(q^190)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^2*q^4 + (a^3 - 1)*q^7 + (-a^3 + a^2)*q^13 - q^16 + (a + 1)*q^19 + 
        a*q^25 + (-a^2 - a)*q^28 + (-a^3 - 1)*q^37 + (-a^3 - a)*q^43 + (-a^3 - 
        a^2 + 1)*q^49 + (a - 1)*q^52 + (a^3 - a)*q^61 - a^2*q^64 + (a^3 - 
        a^2)*q^67 + 2*a^2*q^73 + (a^3 + a^2)*q^76 + (-a^2 + 1)*q^79 + (a^3 - 
        a)*q^91 + a*q^97 + a^3*q^100 + 2*q^103 + (-a^3 + 1)*q^112 - a^2*q^121 + 
        (-a - 1)*q^127 + (a^3 - a - 2)*q^133 + (a^2 - a)*q^139 + (-a^2 + 
        a)*q^148 + (a^3 + a)*q^151 + (-a^2 - a)*q^157 + (-a^2 + 1)*q^163 + (-a^2
        + a - 1)*q^169 + (-a^3 + a)*q^172 + (-a - 1)*q^175 + (-a^3 + a^2)*q^181 
        + O(q^190),
    q^3 + a^3*q^9 + a^2*q^12 + (a^3 - 1)*q^21 - a^2*q^27 - a*q^36 + (-a^3 + 
        a^2)*q^39 - q^48 + (a + 1)*q^57 + (-a^3 - a^2)*q^63 + a*q^75 + a*q^81 + 
        (-a^2 - a)*q^84 + q^108 + (-a^3 - 1)*q^111 + (a^2 - a)*q^117 + (-a^3 - 
        a)*q^129 - a^3*q^144 + (-a^3 - a^2 + 1)*q^147 + (a - 1)*q^156 + (a^3 - 
        1)*q^171 + (a^3 - a)*q^183 + (a^2 + a)*q^189 + O(q^190)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 16*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 16*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 16*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 24*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 24*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 + (-a + 1)*q^7 + (-a - 1)*q^13 + q^16 + (a + 1)*q^19 + a*q^25 + (a -
        1)*q^28 + 2*a*q^31 + (-a + 1)*q^37 - a*q^49 + (a + 1)*q^52 - q^64 + (-a 
        - 1)*q^67 - 2*q^73 + (-a - 1)*q^76 - 2*q^91 + a*q^97 - a*q^100 + 2*q^103
        - 2*a*q^109 + (-a + 1)*q^112 - q^121 - 2*a*q^124 + (a + 1)*q^127 + 
        2*q^133 + (a - 1)*q^139 + (a - 1)*q^148 + (a - 1)*q^157 + a*q^169 + (a +
        1)*q^175 + (-a - 1)*q^181 + O(q^190),
    q^3 - a*q^9 - q^12 + (-a + 1)*q^21 - q^27 + a*q^36 + (-a - 1)*q^39 + q^48 + 
        (a + 1)*q^57 + (-a - 1)*q^63 + a*q^75 + a*q^81 + (a - 1)*q^84 + 2*a*q^93
        + q^108 + (-a + 1)*q^111 + (a - 1)*q^117 - a*q^144 - a*q^147 + (a + 
        1)*q^156 + (-a + 1)*q^171 + (a - 1)*q^189 + O(q^190)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 32*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 32*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 32*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 48*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
873
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 48*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 + q^16 - q^25 - 2*q^31 - 2*q^43 + q^49 - 2*q^61 + q^64 + 2*q^73 + 
        2*q^79 - q^97 - q^100 + 2*q^103 - 2*q^109 + q^121 - 2*q^124 - 2*q^151 + 
        2*q^163 + q^169 - 2*q^172 + O(q^190),
    q^3 - q^9 + q^12 + q^27 - q^36 + q^48 - q^75 - q^81 - 2*q^93 + q^108 - 
        2*q^129 - q^144 + q^147 - 2*q^183 + O(q^190)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
874
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
874
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
874
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
874
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
874
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
198
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
874
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
874
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
198
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
874
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
874
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^4*q^4 + (-a^7 + a^6)*q^5 + (-a^9 - a^7)*q^7 + (a^9 - a^8 + a^7 - a^6 +
        a^5 - a^4 + a^3 - a^2 + a - 1)*q^9 + (a^6 - a)*q^11 + a^8*q^16 + (-a^9 -
        a^5)*q^17 + a^4*q^19 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + 
        a)*q^20 + a^8*q^23 + (-a^3 + a^2 - a)*q^25 + (a^2 + 1)*q^28 + (-a^5 + 
        a^4 - a^3 + a^2)*q^35 - a^3*q^36 + (-a^9 - a)*q^43 + (a^9 - a^8 + a^7 - 
        a^6 - a^4 + a^3 - a^2 + a - 1)*q^44 + (a^6 - a^5)*q^45 + (a^8 - 
        a^3)*q^47 + (-a^7 - a^5 - a^3)*q^49 + (a^8 - a^7 + a^2 - a)*q^55 + (a^9 
        - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^61 + (a^8 + a^6)*q^63 - 
        a*q^64 + (-a^9 + a^2)*q^68 + (-a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 +
        a - 1)*q^73 + a^8*q^76 + (a^9 + a^7 - a^6 + a^5 + a^3 + a - 1)*q^77 + 
        (a^4 - a^3)*q^80 - a^9*q^81 + (a^6 - a^3)*q^83 + (-a^5 + a^4 - a + 
        1)*q^85 - a*q^92 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + 
        a)*q^95 + (-a^5 + 1)*q^99 + (-a^7 + a^6 - a^5)*q^100 + (-a^9 + 1)*q^101 
        + (a^6 + a^4)*q^112 + (a^4 - a^3)*q^115 + (-a^7 - a^5 - a^3 - a)*q^119 +
        (-a^7 + a^2 - a)*q^121 + (-a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^125 + 
        (a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^131 + (a^2 + 
        1)*q^133 + 2*q^137 + (-a^7 + a^4)*q^139 + (-a^9 + a^8 - a^7 + a^6)*q^140
        - a^7*q^144 + (-a^7 + 1)*q^149 + (a^8 + a^4)*q^153 + (a^6 + a^2)*q^157 +
        (a^6 + a^4)*q^161 + (-a^9 + a^6)*q^163 + a^6*q^169 - a^3*q^171 + (-a^5 +
        a^2)*q^172 + (a^9 - a^8 + 2*a^7 - 2*a^6 + 2*a^5 - 2*a^4 + 2*a^3 - 2*a^2 
        + a - 1)*q^175 + (-a^9 - a^3)*q^176 + (-a^8 + a^7 - a^6 + a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^180 + (a^9 - a^8 + a^7 + a^5 + a^3 - a^2 + a)*q^187
        + (-a^7 - a)*q^188 + (a^4 - a)*q^191 + (-a^9 - a^7 + 1)*q^196 + (-a^5 - 
        a)*q^197 + (a^8 + a^4)*q^199 - a^7*q^207 + (a^9 - a^8 + a^7 - a^6 - a^4 
        + a^3 - a^2 + a - 1)*q^209 + (a^8 - a^7 - a^5 + a^4)*q^215 + (a^6 - a^5 
        - a + 1)*q^220 + (a^2 - a + 1)*q^225 + (a^8 - a^3)*q^229 + (a^8 + 
        a^2)*q^233 + O(q^234),
    q^2 + a^4*q^8 + (-a^7 + a^6)*q^10 + (-a^9 - a^7)*q^14 + (a^9 - a^8 + a^7 - 
        a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^18 + (a^6 - a)*q^22 + a^8*q^32 + 
        (-a^9 - a^5)*q^34 + a^4*q^38 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 
        - a^2 + a)*q^40 + a^8*q^46 + (-a^3 + a^2 - a)*q^50 + (a^2 + 1)*q^56 + 
        (-a^5 + a^4 - a^3 + a^2)*q^70 - a^3*q^72 + (-a^9 - a)*q^86 + (a^9 - a^8 
        + a^7 - a^6 - a^4 + a^3 - a^2 + a - 1)*q^88 + (a^6 - a^5)*q^90 + (a^8 - 
        a^3)*q^94 + (-a^7 - a^5 - a^3)*q^98 + (a^8 - a^7 + a^2 - a)*q^110 + (a^9
        - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^122 + (a^8 + a^6)*q^126 -
        a*q^128 + (-a^9 + a^2)*q^136 + (-a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2
        + a - 1)*q^146 + a^8*q^152 + (a^9 + a^7 - a^6 + a^5 + a^3 + a - 1)*q^154
        + (a^4 - a^3)*q^160 - a^9*q^162 + (a^6 - a^3)*q^166 + (-a^5 + a^4 - a + 
        1)*q^170 - a*q^184 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + 
        a)*q^190 + (-a^5 + 1)*q^198 + (-a^7 + a^6 - a^5)*q^200 + (-a^9 + 
        1)*q^202 + (a^6 + a^4)*q^224 + (a^4 - a^3)*q^230 + O(q^234)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
874
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 - q^4 + q^8 + q^12 - q^13 + q^23 - q^24 + q^25 + q^27 - q^29 - q^31 
        - q^32 + q^39 - q^41 - q^47 + q^49 + q^52 + 2*q^59 + q^64 - q^69 - q^71 
        - q^73 - q^75 - q^81 + q^87 - q^92 + q^93 + q^96 - q^100 + 2*q^101 - 
        q^104 - q^108 + q^116 + q^121 + q^123 + q^124 - q^127 - q^131 - q^139 + 
        q^141 - q^147 - q^151 - q^156 - q^163 + q^164 + 2*q^167 + 2*q^173 - 
        2*q^177 - q^179 + q^184 + q^188 - q^192 - q^193 - q^196 - q^197 + q^200 
        + 2*q^211 + q^213 + q^216 + q^219 + 2*q^223 - q^232 - q^233 + O(q^234),
    q^2 - q^4 - q^6 + q^12 + q^16 - q^26 - q^32 + q^46 - q^48 + q^50 + q^52 + 
        q^54 - q^58 - q^62 + q^78 - q^82 - q^92 - q^94 + q^96 + q^98 - q^100 - 
        q^108 + q^116 + 2*q^118 + q^124 + q^128 - q^138 - q^142 - q^146 - q^150 
        - q^156 - q^162 + q^164 + q^174 + q^186 + q^188 - q^196 + 2*q^202 - 
        q^208 + O(q^234),
    q^19 - q^57 - q^76 + q^152 + q^228 + O(q^234),
    q^38 - q^76 - q^114 + q^228 + O(q^234)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
874
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
874
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
100
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
25*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
150
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
150
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
20*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
50*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
300
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
25*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 + q^16 + q^29 + q^39 - q^49 - q^51 - q^64 - q^71 - q^91 + q^99 - 
        q^116 + q^119 + q^149 - q^151 - q^156 - q^169 + O(q^182),
    q^3 - q^12 - q^13 + q^17 - q^33 + q^48 + q^52 - q^63 - q^68 + q^73 - q^77 + 
        q^83 - q^97 + q^103 + q^132 - q^147 + q^157 + q^167 + O(q^182),
    q^7 + q^13 - q^17 - q^27 - q^28 - q^33 + 2*q^47 - q^52 + q^68 - q^87 + q^108
        + q^112 + q^117 + q^132 + q^143 - q^153 - q^157 - q^167 - 2*q^173 + 
        O(q^182),
    q^9 + q^11 + q^21 + q^29 - q^36 - q^44 - q^71 - q^79 - q^84 - q^91 - q^99 - 
        q^109 - q^116 + q^119 - q^121 + 2*q^141 + q^144 + q^149 - q^151 - q^169 
        + q^176 - q^179 + O(q^182)
]
;
Bo:=
[
    q + q^9 - q^11 - q^14 - q^16 - q^29 + q^46 + q^49 + q^56 + q^64 - q^71 + 
        q^74 - q^79 + q^81 + q^86 - q^99 - 2*q^106 - q^109 - q^126 + q^134 - 
        q^144 - q^149 - q^151 + q^154 - q^161 + q^169 + q^176 + 2*q^179 + 
        O(q^182),
    q^2 - q^7 - q^8 + q^18 - q^22 + q^23 + q^37 + q^43 - 2*q^53 - q^58 - q^63 + 
        q^67 - q^72 + q^77 + q^88 + q^98 - 2*q^107 + q^112 + q^113 + q^127 + 
        q^128 - 2*q^137 - q^142 - q^158 + q^162 - 2*q^163 + O(q^182),
    q^5 + q^45 - q^55 - q^70 - q^80 - q^145 + O(q^182),
    q^10 - q^35 - q^40 + q^90 - q^110 + q^115 + O(q^182)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
50
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
50
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
20*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
875
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
50*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^29 - q^39 + q^49 - q^51 + q^64 - q^71 - q^91 - q^99 - 
        q^116 - q^119 - q^149 - q^151 - q^156 + q^169 + O(q^182),
    q^3 + q^12 - q^13 - q^17 - q^33 + q^48 - q^52 - q^63 - q^68 + q^73 + q^77 + 
        q^83 + q^97 + q^103 - q^132 + q^147 - q^157 - q^167 + O(q^182),
    q^7 - q^13 - q^17 - q^27 + q^28 + q^33 + 2*q^47 - q^52 - q^68 - q^87 - q^108
        + q^112 + q^117 + q^132 - q^143 + q^153 - q^157 - q^167 + 2*q^173 + 
        O(q^182),
    q^9 - q^11 - q^21 + q^29 + q^36 - q^44 + q^71 - q^79 - q^84 + q^91 - q^99 - 
        q^109 + q^116 + q^119 + q^121 - 2*q^141 + q^144 + q^149 + q^151 - q^169 
        - q^176 - q^179 + O(q^182)
]
;
Bo:=
[
    q - q^9 - q^11 + q^14 - q^16 + q^29 + q^46 - q^49 + q^56 - q^64 - q^71 - 
        q^74 + q^79 + q^81 + q^86 + q^99 - 2*q^106 + q^109 - q^126 - q^134 + 
        q^144 + q^149 - q^151 - q^154 - q^161 - q^169 + q^176 - 2*q^179 + 
        O(q^182),
    q^2 - q^7 + q^8 - q^18 - q^22 - q^23 + q^37 - q^43 + 2*q^53 + q^58 + q^63 + 
        q^67 - q^72 + q^77 - q^88 - q^98 - 2*q^107 + q^112 - q^113 + q^127 - 
        q^128 - 2*q^137 - q^142 + q^158 + q^162 + 2*q^163 + O(q^182),
    q^5 - q^45 - q^55 + q^70 - q^80 + q^145 + O(q^182),
    q^10 - q^35 + q^40 - q^90 - q^110 - q^115 + O(q^182)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^3*q^3 + (-a^8 + a^7)*q^7 + a^6*q^9 + (-a^10 - a^7 + a^4)*q^13 + (-a^5 
        + a^3)*q^19 + (a^11 - a^10)*q^21 + a*q^25 - a^9*q^27 + (a^11 - a^6 - a^5
        + 1)*q^31 + (-2*a^11 + a^5)*q^37 + (a^10 - a)*q^39 + (-a^7 - a^2 + 
        a)*q^43 + (a^10 - a^9 + a^8 - a^4 + a^3 - a^2)*q^49 + (a^8 - a^6)*q^57 +
        (a^4 - 1)*q^61 + (-a^8 + a^7 + a^2 - a)*q^63 + (a^6 + a^2 - 1)*q^67 + 
        a^9*q^73 - a^4*q^75 + (a^9 + a^5)*q^79 + (a^6 - 1)*q^81 + (a^9 - a^8 - 
        a^6 + a^5 - a^3 + a^2)*q^91 + (a^9 - a^3 + a^2)*q^93 + (a^8 - a^4)*q^97 
        + (-a^9 + a^3 - 1)*q^103 + (a^9 + a^7 - a^3 - a)*q^109 + (a^8 - 
        2*a^2)*q^111 + (-a^7 + a^4 + a)*q^117 - a*q^121 + (a^10 + a^5 - 
        a^4)*q^129 + (-a^11 + a^10 + a^7 - a^6 - a + 1)*q^133 + (a^11 + a^10 - 
        a^5 - a^4)*q^139 + (-a^11 + a^5 + a - 1)*q^147 + (-a^11 + a^5 + 
        a^2)*q^151 + (-a^10 - a^9)*q^157 + (a^11 + a^10)*q^163 - a^5*q^169 + 
        (-a^11 + a^9)*q^171 + (-a^9 + a^8)*q^175 + (-a^7 + a^3 + a)*q^181 + 
        (-a^7 + a^3)*q^183 + (a^11 - a^10 - a^5 + a^4)*q^189 + (a^6 - a - 
        1)*q^193 + (a^11 + a^6)*q^199 + (-a^9 - a^5 + a^3)*q^201 + (-a^10 - a^8 
        + a^4)*q^211 + (a^7 - a^6 - a^2 + a)*q^217 + (-a^6 + 1)*q^219 + (-a^10 -
        a^6)*q^223 + a^7*q^225 + (-a^7 - a^2)*q^229 + (-a^8 - a^6 + 1)*q^237 + 
        (a^6 - a^3)*q^241 + (-a^9 + a^3)*q^243 + (-a^10 + a^6 - a^3 + a - 
        1)*q^247 + (-a^7 + a^6 - a + 1)*q^259 + (a^8 - a^7 + a)*q^271 + (a^11 + 
        a^9 - a^8 - a^5 + 1)*q^273 + (a^11 - a^8 + a^2)*q^277 + (-a^5 + 1)*q^279
        + (-a^10 + a^8 + a^4 - a^2)*q^283 + O(q^286)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^4*q^2 + (a^5 - a^2)*q^4 + (-a^5 + 2*a^2)*q^5 + a^3*q^8 + (a^3 - 1)*q^9
        + (-2*a^3 + 1)*q^10 + (-a^5 - 1)*q^13 + (-a^4 + a)*q^16 + (-a^2 - 
        a)*q^17 + a*q^18 + (a^4 - 2*a)*q^20 + 2*a*q^25 + (a^4 - 1)*q^26 + (a^5 -
        a^3)*q^29 - a^2*q^32 + (a^5 + a^3 - 1)*q^34 - a^5*q^36 + (a^4 + a^3 - 
        a)*q^37 + (a^5 + a^2)*q^40 + (a^4 - a^3 - a + 1)*q^41 + (2*a^5 - 
        a^2)*q^45 + (-a^3 + 1)*q^49 - 2*a^5*q^50 + (-a^5 + a^4 + a^2)*q^52 + 
        (a^4 - a + 1)*q^58 + (a^3 + a)*q^61 + (a^3 - 1)*q^64 + (a^5 - 2*a^4 - 
        2*a^2 + a)*q^65 + (a + 1)*q^68 - q^72 - a^5*q^73 + (-a^4 + a^2 + a)*q^74
        + (-a^3 + 2)*q^80 - a^3*q^81 + (a^2 - a)*q^82 + (-a^4 - a^3 - a - 
        1)*q^85 + (a^5 + a^3 - a^2 - 1)*q^89 + (a^3 + 1)*q^90 + (-a^5 - a^4 + 
        a^2)*q^97 - a*q^98 - 2*q^100 + (a^3 - a)*q^101 + (-a^5 - a^3 + 
        a^2)*q^104 + a^5*q^109 + (-a^4 + a - 1)*q^113 + (-a^4 + a^2)*q^116 + 
        (-a^3 + a^2 + 1)*q^117 + a*q^121 + (-a^5 - a^4 + a)*q^122 + (a^3 + 
        1)*q^125 + a*q^128 + (a^5 + 2*a^3 - 2*a^2 - 1)*q^130 + (-a^5 - 
        a^4)*q^136 + (-a^3 + 1)*q^137 + a^4*q^144 + (-a^5 + 2*a^4 - a^2 - 
        a)*q^145 - q^146 + (-a^3 - a^2 + 1)*q^148 + (-a^5 + a^4 + a^2 - a)*q^149
        + (-a^5 - a^4 + a^2 + a)*q^153 + (a + 1)*q^157 + (-a^4 - a)*q^160 + (a^4
        - a)*q^162 + (a^5 - a^3 + 1)*q^164 + (a^5 - a + 1)*q^169 + (2*a^5 + 
        2*a^4 - a^2 - a)*q^170 + (-a^5 + a^4)*q^173 + (a^3 + a)*q^178 + (-2*a^4 
        + a)*q^180 + (a^5 - a^2)*q^181 + (a^5 + a^3 + a^2 - 2)*q^185 + (a^5 - 
        a^3 - a^2)*q^194 + a^5*q^196 + (a^5 + a^4)*q^197 + 2*a^4*q^200 + (a^5 - 
        a^4 + a)*q^202 + (-2*a^5 + a^3 + a^2 - 2)*q^205 + (a^4 - a^3 - a)*q^208 
        + q^218 + (a^4 + a^3 + a^2 - 1)*q^221 + (2*a^4 - 2*a)*q^225 + (a^4 - 
        a^2)*q^226 + (-a^4 - a^2 + a)*q^229 + (a^5 - a^3 - a^2 + 1)*q^232 + 
        (-a^5 - 1)*q^233 + (-a^3 - a + 1)*q^234 + (-a^5 + a^2 - a)*q^241 - 
        a^5*q^242 + (-a^2 - 1)*q^244 + (-2*a^5 + a^2)*q^245 + (-2*a^4 + a)*q^250
        - a^5*q^256 + (-a^3 + a + 1)*q^257 + (-a^4 + 2*a^3 + 2*a - 1)*q^260 + 
        (-a^2 + 1)*q^261 + (-a^4 - a^3 + a)*q^269 + (a^5 - a^2 - 1)*q^272 - 
        a*q^274 + (-a^4 + a - 1)*q^277 + (a + 1)*q^281 + O(q^286),
    q^3 - a^4*q^6 + (a^5 - a^2)*q^12 + (-a^5 + 2*a^2)*q^15 + a^3*q^24 + (a^3 - 
        1)*q^27 + (-2*a^3 + 1)*q^30 + (-a^5 - 1)*q^39 + (-a^4 + a)*q^48 + (-a^2 
        - a)*q^51 + a*q^54 + (a^4 - 2*a)*q^60 + 2*a*q^75 + (a^4 - 1)*q^78 + (a^5
        - a^3)*q^87 - a^2*q^96 + (a^5 + a^3 - 1)*q^102 - a^5*q^108 + (a^4 + a^3 
        - a)*q^111 + (a^5 + a^2)*q^120 + (a^4 - a^3 - a + 1)*q^123 + (2*a^5 - 
        a^2)*q^135 + (-a^3 + 1)*q^147 - 2*a^5*q^150 + (-a^5 + a^4 + a^2)*q^156 +
        (a^4 - a + 1)*q^174 + (a^3 + a)*q^183 + (a^3 - 1)*q^192 + (a^5 - 2*a^4 -
        2*a^2 + a)*q^195 + (a + 1)*q^204 - q^216 - a^5*q^219 + (-a^4 + a^2 + 
        a)*q^222 + (-a^3 + 2)*q^240 - a^3*q^243 + (a^2 - a)*q^246 + (-a^4 - a^3 
        - a - 1)*q^255 + (a^5 + a^3 - a^2 - 1)*q^267 + (a^3 + 1)*q^270 + 
        O(q^286)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^3*q^3 + (a^5 + a^4 - a^2 - a)*q^7 + (a^3 - 1)*q^9 + (a^5 + a^3)*q^19 +
        (-a^2 - a)*q^21 + a*q^25 - q^27 + (-a^5 - a^3 + a^2)*q^31 - a^5*q^37 + 
        (-a^4 + a^2)*q^43 + (-a^5 - a^4 - a^3 + a + 1)*q^49 + (a^5 + a^3 - a^2 -
        1)*q^57 + (a^4 + 1)*q^61 + (-a^5 - a^4)*q^63 + (-a^3 + a^2)*q^67 - q^73 
        + a^4*q^75 + (a^5 - 1)*q^79 - a^3*q^81 + (-a^3 + a^2 + 1)*q^93 + (a^5 + 
        a^4 - a^2)*q^97 + (-a^3 + 2)*q^103 + (-a^4 - a^3 + 1)*q^109 + (-a^5 + 
        a^2)*q^111 + a*q^121 + 2*a^4*q^127 + (a^5 - a^4 + a)*q^129 + (-a^4 - a^3
        - a^2 - a)*q^133 + (-a^5 - a^4 + a^2 + a)*q^139 + (-a^5 + a^2 + a + 
        1)*q^147 + (-a^5 + 2*a^2)*q^151 + (-a - 1)*q^157 + (-a^2 - a)*q^163 - 
        a^5*q^169 + (-a^2 - 1)*q^171 + (a^5 - a^2 - 1)*q^175 + (-a^4 + 
        a^3)*q^181 + (a^4 + a^3 - a)*q^183 + (-a^5 - a^4 + a^2 + a)*q^189 + 
        (-a^3 + a)*q^193 + (a^3 - a^2 - 1)*q^199 + (a^5 - a^3 + 1)*q^201 + (a^5 
        - a^4 - a^2 + a)*q^211 + (a^4 + a^3 + a^2 - 1)*q^217 - a^3*q^219 + (a^3 
        - a - 1)*q^223 + (a^4 - a)*q^225 + (a^4 + a^2 - a)*q^229 + (a^5 - a^3 - 
        a^2)*q^237 + (2*a^3 - 1)*q^241 + (-a^3 + 1)*q^243 + (a^4 + a^3)*q^259 + 
        (a^5 - a^4 - a^2)*q^271 + (-a^5 - a^2)*q^277 + (a^5 + 1)*q^279 + (-a^5 -
        a^4 + a)*q^283 + O(q^286)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^3*q^3 + (a^2 - a)*q^7 - q^9 + (-a^2 + a + 1)*q^13 + a*q^19 + (-a^3 + 
        a^2 + a - 1)*q^21 + a*q^25 + a^3*q^27 + (a^3 - a - 1)*q^31 + (-a^2 - a +
        1)*q^39 + (-a^2 - a)*q^43 + (-a^3 + 2*a^2 - 1)*q^49 + (-a^2 + 1)*q^57 + 
        (a^2 - 2)*q^61 + (-a^2 + a)*q^63 + (a^2 + 1)*q^67 - a^3*q^73 + (-a^2 + 
        1)*q^75 - a*q^79 + q^81 + (2*a^3 - a^2 - a + 1)*q^91 + (a^3 + a^2)*q^93 
        + (-2*a^2 + 1)*q^97 + (-a^3 - 1)*q^103 + (a^3 + a)*q^109 + (a^2 - a - 
        1)*q^117 - a*q^121 + (a^3 + a^2 - a - 1)*q^129 + (a^3 - a^2)*q^133 + 
        (a^3 + a^2 - a - 1)*q^139 + (-a^3 + 2*a - 1)*q^147 + (-a^3 + a^2 + 
        a)*q^151 + (a^3 + a^2 - 1)*q^157 + (-a^3 - a^2 + a + 1)*q^163 + (-a^3 + 
        a)*q^169 - a*q^171 + (a^3 - a^2)*q^175 + (a^3 - a)*q^181 + (a^3 + 
        a)*q^183 + (a^3 - a^2 - a + 1)*q^189 + (-a + 1)*q^193 + (-a^3 + a - 
        1)*q^199 + (-2*a^3 + a)*q^201 + q^211 + (-a^2 + 1)*q^217 - q^219 + 
        a^2*q^223 - a*q^225 + (-a^2 + a)*q^229 + (a^2 - 1)*q^237 + (-a^3 - 
        1)*q^241 - a^3*q^243 + (-a^3 + a^2 + a)*q^247 + (-a^2 - a)*q^271 + (a^2 
        - a + 1)*q^273 + (-a^3 - a^2 + a)*q^277 + (-a^3 + a + 1)*q^279 + q^283 +
        O(q^286),
    q^2 - a^3*q^6 - a^2*q^8 + (a^2 - a)*q^14 - q^18 + (a^3 - a)*q^24 + (-a^2 + a
        + 1)*q^26 + (a^2 - 1)*q^32 + a*q^38 + (-a^3 + a^2 + a - 1)*q^42 + a*q^50
        + a^3*q^54 + (a^3 - a^2 + 1)*q^56 + (a^3 - a - 1)*q^62 + a^2*q^72 + 
        (-a^2 - a + 1)*q^78 + (-a^2 - a)*q^86 + a*q^96 + (-a^3 + 2*a^2 - 1)*q^98
        + (-a^3 - 1)*q^104 + (-a^2 + 1)*q^114 + (a^2 - 2)*q^122 + (-a^2 + 
        a)*q^126 + q^128 + (a^2 + 1)*q^134 - a^3*q^146 + (-a^2 + 1)*q^150 - 
        a^3*q^152 - a*q^158 + q^162 + (-a + 1)*q^168 + (2*a^3 - a^2 - a + 
        1)*q^182 + (a^3 + a^2)*q^186 + (-2*a^2 + 1)*q^194 - a^3*q^200 + (-a^3 - 
        1)*q^206 + (-a^3 + a)*q^216 + (a^3 + a)*q^218 + (-a^3 + a - 1)*q^224 + 
        (a^2 - a - 1)*q^234 - a*q^242 + (a^2 + a)*q^248 + (a^3 + a^2 - a - 
        1)*q^258 + (a^3 - a^2)*q^266 + (a^3 + a^2 - a - 1)*q^278 + O(q^286),
    q^4 - a^3*q^12 - a^2*q^16 + (a^2 - a)*q^28 - q^36 + (a^3 - a)*q^48 + (-a^2 +
        a + 1)*q^52 + (a^2 - 1)*q^64 + a*q^76 + (-a^3 + a^2 + a - 1)*q^84 + 
        a*q^100 + a^3*q^108 + (a^3 - a^2 + 1)*q^112 + (a^3 - a - 1)*q^124 + 
        a^2*q^144 + (-a^2 - a + 1)*q^156 + (-a^2 - a)*q^172 + a*q^192 + (-a^3 + 
        2*a^2 - 1)*q^196 + (-a^3 - 1)*q^208 + (-a^2 + 1)*q^228 + (a^2 - 2)*q^244
        + (-a^2 + a)*q^252 + q^256 + (a^2 + 1)*q^268 + O(q^286)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^5 - a^2)*q^2 + (-a^4 + a)*q^4 + a*q^5 + (a^3 - 1)*q^8 - a^3*q^9 - 
        q^10 + (-a + 1)*q^13 - a^5*q^16 + (a^4 + a^2)*q^17 + a^2*q^18 + (-a^5 + 
        a^2)*q^20 + (a^5 - a^2 + 1)*q^26 + (a^3 - a - 1)*q^29 + a^4*q^32 + (-a^3
        - a)*q^34 - a*q^36 + (-a^5 + a^3 - 1)*q^37 + (a^4 - a)*q^40 + (-a^5 - 
        a^3)*q^41 - a^4*q^45 - a^3*q^49 + (a^5 - a^4 - a^2 + a)*q^52 + (2*a^5 - 
        2*a^2)*q^53 + (-a^5 + 1)*q^58 + (a^3 + a^2 - 1)*q^61 - a^3*q^64 + (-a^2 
        + a)*q^65 + (a^2 + 1)*q^68 + q^72 - a*q^73 + (-a^5 + a^4)*q^74 + (-a^3 +
        1)*q^80 + (a^3 - 1)*q^81 + (a^4 + a^2)*q^82 + (a^5 + a^3)*q^85 + (-a^4 -
        a^3 + a)*q^89 + a^3*q^90 + (a^5 - a^4 - a^2 + a)*q^97 + a^2*q^98 + (a^3 
        + a^2 - 1)*q^101 + (-a^4 + a^3 + a - 1)*q^104 + (-2*a^4 + 2*a)*q^106 + 
        a*q^109 + (-a^5 + 1)*q^113 + (a^5 + a^4 - a^2)*q^116 + (a^4 - a^3)*q^117
        + a^2*q^121 + (-a^5 - a)*q^122 - a^3*q^125 + a^2*q^128 + (a - 1)*q^130 +
        (a^5 - a^2 - a)*q^136 + a^3*q^137 + (a^5 - a^2)*q^144 + (a^4 - a^2 - 
        a)*q^145 + q^146 + (a^4 - a^3)*q^148 + (-a^5 - a^4 + a)*q^149 + (-a^5 - 
        a^4 + a)*q^153 + (a^2 + 1)*q^157 + a^5*q^160 - a^5*q^162 + (-a^3 - 
        a)*q^164 + (a^2 - a + 1)*q^169 + (-a^4 - a^2)*q^170 + (a^5 - a^2 - 
        a)*q^173 + (a^3 + a^2 - 1)*q^178 - a^2*q^180 + (a^4 - a)*q^181 + (a^4 - 
        a^3 - a + 1)*q^185 + 2*a^4*q^193 + (-a^4 + a^3 + a - 1)*q^194 - a*q^196 
        + (a^5 - a^2 - a)*q^197 + (-a^5 - a)*q^202 + (-a^4 - a^3 + 1)*q^205 + 
        (-a^5 + a^3 - 1)*q^208 + (2*a^3 - 2)*q^212 - q^218 + (-a^5 + a^4 - a^3 +
        a^2)*q^221 + (a^5 + a^4 - a^2)*q^226 + (-a^5 + a^4)*q^229 + (-a^4 - a^3 
        + a)*q^232 + (-a + 1)*q^233 + (-a^3 + a^2)*q^234 + (-a^4 + a^2 + 
        a)*q^241 - a*q^242 + (a^4 + 1)*q^244 - a^4*q^245 + a^2*q^250 - a*q^256 +
        (-a^3 + a^2)*q^257 + (-a^5 + a^2 - 1)*q^260 + (a^4 + 1)*q^261 - 2*q^265 
        + (-a^5 + a^3 - 1)*q^269 + (-a^4 + a + 1)*q^272 - a^2*q^274 + (-a^5 + 
        1)*q^277 + (a^2 + 1)*q^281 + O(q^286),
    q^3 + (a^5 - a^2)*q^6 + (-a^4 + a)*q^12 + a*q^15 + (a^3 - 1)*q^24 - a^3*q^27
        - q^30 + (-a + 1)*q^39 - a^5*q^48 + (a^4 + a^2)*q^51 + a^2*q^54 + (-a^5 
        + a^2)*q^60 + (a^5 - a^2 + 1)*q^78 + (a^3 - a - 1)*q^87 + a^4*q^96 + 
        (-a^3 - a)*q^102 - a*q^108 + (-a^5 + a^3 - 1)*q^111 + (a^4 - a)*q^120 + 
        (-a^5 - a^3)*q^123 - a^4*q^135 - a^3*q^147 + (a^5 - a^4 - a^2 + a)*q^156
        + (2*a^5 - 2*a^2)*q^159 + (-a^5 + 1)*q^174 + (a^3 + a^2 - 1)*q^183 - 
        a^3*q^192 + (-a^2 + a)*q^195 + (a^2 + 1)*q^204 + q^216 - a*q^219 + (-a^5
        + a^4)*q^222 + (-a^3 + 1)*q^240 + (a^3 - 1)*q^243 + (a^4 + a^2)*q^246 + 
        (a^5 + a^3)*q^255 + (-a^4 - a^3 + a)*q^267 + a^3*q^270 + O(q^286)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^3 - 1)*q^3 + (-a^5 - a^4 + a)*q^7 - a^3*q^9 - 2*a^5*q^13 + (a^3 - a -
        1)*q^19 + (a^4 + a^2)*q^21 + a^2*q^25 + q^27 + (-a^4 + a^3 + a - 1)*q^31
        + a*q^37 + 2*a^2*q^39 + (a^5 + a^4 - a^2)*q^43 + (-a^5 - a^3 - a)*q^49 +
        (-a^4 - a^3 + a)*q^57 + (a^5 - a^2 + 1)*q^61 + (a^5 - a^2 - a)*q^63 + 
        (a^4 + a^3 - 1)*q^67 + q^73 + (a^5 - a^2)*q^75 + (-a + 1)*q^79 + (a^3 - 
        1)*q^81 + (-2*a^3 - 2*a)*q^91 + (a^4 - a^3)*q^93 + (a^5 - a^4 - a^2 + 
        a)*q^97 + (-a^3 + 1)*q^103 + (a^5 - a^3 - a^2)*q^109 + (a^4 - a)*q^111 +
        (2*a^5 - 2*a^2)*q^117 + a^2*q^121 + (2*a^5 - 2*a^2)*q^127 + (-a^5 - 
        a)*q^129 + (a^5 + a^4 + a^3 - 1)*q^133 + (-a^5 - a^4 + a)*q^139 + (-a^4 
        + a^2 + a + 1)*q^147 + a*q^151 + (a^2 + 1)*q^157 + (a^4 + a^2)*q^163 - 
        3*a*q^169 + (a^4 + 1)*q^171 + (-a^4 + a + 1)*q^175 + (a^5 + a^3 - a^2 - 
        1)*q^181 + (-a^5 + a^3 - 1)*q^183 + (-a^5 - a^4 + a)*q^189 + (a^3 + a^2 
        - 1)*q^193 + (a^4 - a^3)*q^199 + (-a^3 - a)*q^201 + (-a^5 - a^4 + 
        a)*q^211 + (-a^5 + a^4 - a^3 + a^2)*q^217 + (a^3 - 1)*q^219 + (-a^3 + 
        a^2)*q^223 - a^5*q^225 + (-a^5 + a^4)*q^229 + (-a^4 + a^3 + a - 1)*q^237
        - q^241 - a^3*q^243 + (2*a^3 + 2*a^2 - 2)*q^247 + (-a^5 - a^3 + a^2 + 
        1)*q^259 + (a^5 - a^4 - a^2 + a)*q^271 + (-2*a^4 + 2*a + 2)*q^273 + (a^4
        - a)*q^277 + (-a + 1)*q^279 + (-a^5 - a)*q^283 + O(q^286)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^2 + (a - 1)*q^4 - q^8 + q^9 + (a - 2)*q^13 - a*q^16 + (-2*a + 
        1)*q^17 + a*q^18 - a*q^25 + (-a - 1)*q^26 + (-a + 2)*q^29 + (-a + 
        1)*q^32 + (-a + 2)*q^34 + (a - 1)*q^36 + (a - 1)*q^37 + (a - 1)*q^41 - 
        q^49 + (-a + 1)*q^50 + (-2*a + 1)*q^52 + (a + 1)*q^58 + (a - 1)*q^61 + 
        q^64 + (a + 1)*q^68 - q^72 + (a - 1)*q^73 - q^74 + q^81 - q^82 + a*q^89 
        + q^97 - a*q^98 + q^100 + (-a - 1)*q^101 + (-a + 2)*q^104 + (2*a - 
        2)*q^109 + (-a - 1)*q^113 + (2*a - 1)*q^116 + (a - 2)*q^117 + a*q^121 - 
        q^122 + a*q^128 + (2*a - 1)*q^136 + 2*q^137 - a*q^144 - q^146 - a*q^148 
        + q^149 + (-2*a + 1)*q^153 + (a + 1)*q^157 + a*q^162 - a*q^164 + (-2*a +
        2)*q^169 - q^173 + (a - 1)*q^178 + (-2*a + 2)*q^181 + a*q^194 + (-a + 
        1)*q^196 + (-2*a + 1)*q^197 + a*q^200 + (-2*a + 1)*q^202 + (a + 1)*q^208
        - 2*q^218 + 3*a*q^221 - a*q^225 + (-2*a + 1)*q^226 + (-2*a + 1)*q^229 + 
        (a - 2)*q^232 + (a - 2)*q^233 + (-a - 1)*q^234 + (-2*a + 1)*q^241 + (a -
        1)*q^242 - a*q^244 + (a - 1)*q^256 + (a - 1)*q^257 + (-a + 2)*q^261 + 
        (-a + 1)*q^269 + (a - 2)*q^272 + 2*a*q^274 + (-a - 1)*q^277 + (a + 
        1)*q^281 + O(q^286),
    q^3 + a*q^6 + (a - 1)*q^12 - q^24 + q^27 + (a - 2)*q^39 - a*q^48 + (-2*a + 
        1)*q^51 + a*q^54 - a*q^75 + (-a - 1)*q^78 + (-a + 2)*q^87 + (-a + 
        1)*q^96 + (-a + 2)*q^102 + (a - 1)*q^108 + (a - 1)*q^111 + (a - 1)*q^123
        - q^147 + (-a + 1)*q^150 + (-2*a + 1)*q^156 + (a + 1)*q^174 + (a - 
        1)*q^183 + q^192 + (a + 1)*q^204 - q^216 + (a - 1)*q^219 - q^222 + q^243
        - q^246 + a*q^267 + O(q^286)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 12*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 + (2*a - 1)*q^7 + q^9 - a*q^19 + (-2*a + 1)*q^21 + a*q^25 - q^27 + 
        (-a + 2)*q^31 + (-2*a + 2)*q^37 + (2*a - 1)*q^43 - 2*q^49 + a*q^57 + (-a
        + 1)*q^61 + (2*a - 1)*q^63 + a*q^67 - q^73 - a*q^75 - a*q^79 + q^81 + (a
        - 2)*q^93 - q^97 + (a - 1)*q^109 + (2*a - 2)*q^111 + a*q^121 - 2*a*q^127
        + (-2*a + 1)*q^129 + (-a + 2)*q^133 + (-2*a + 1)*q^139 + 2*q^147 + (-a -
        1)*q^157 + (-2*a + 1)*q^163 + (a - 1)*q^169 - a*q^171 + (a - 2)*q^175 + 
        (a - 1)*q^181 + (a - 1)*q^183 + (-2*a + 1)*q^189 + (a + 1)*q^193 + (-a +
        2)*q^199 - a*q^201 - q^211 + 3*a*q^217 + q^219 + (-a + 1)*q^223 + 
        a*q^225 + (2*a - 1)*q^229 + a*q^237 - q^243 + (2*a + 2)*q^259 + (2*a - 
        1)*q^271 + (-a + 2)*q^279 - q^283 + O(q^286),
    q^2 - q^6 + (a - 1)*q^8 + (2*a - 1)*q^14 + q^18 + (-a + 1)*q^24 - a*q^32 - 
        a*q^38 + (-2*a + 1)*q^42 + a*q^50 - q^54 + (-a - 1)*q^56 + (-a + 2)*q^62
        + (a - 1)*q^72 + (-2*a + 2)*q^74 + (2*a - 1)*q^86 + a*q^96 - 2*q^98 + 
        a*q^114 + (-a + 1)*q^122 + (2*a - 1)*q^126 + q^128 + a*q^134 - q^146 - 
        a*q^150 + q^152 - a*q^158 + q^162 + (a + 1)*q^168 + (a - 2)*q^186 - 
        q^194 - q^200 + (-a + 1)*q^216 + (a - 1)*q^218 + (2*a - 2)*q^222 + (-a +
        2)*q^224 + a*q^242 + (2*a - 1)*q^248 - 2*a*q^254 + (-2*a + 1)*q^258 + 
        (-a + 2)*q^266 + (-2*a + 1)*q^278 + O(q^286),
    q^4 - q^12 + (a - 1)*q^16 + (2*a - 1)*q^28 + q^36 + (-a + 1)*q^48 - a*q^64 -
        a*q^76 + (-2*a + 1)*q^84 + a*q^100 - q^108 + (-a - 1)*q^112 + (-a + 
        2)*q^124 + (a - 1)*q^144 + (-2*a + 2)*q^148 + (2*a - 1)*q^172 + a*q^192 
        - 2*q^196 + a*q^228 + (-a + 1)*q^244 + (2*a - 1)*q^252 + q^256 + a*q^268
        + O(q^286)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 18*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^3 + (-a - 1)*q^7 - q^9 + (a - 1)*q^13 - 2*a*q^19 + (-a + 1)*q^21 + 
        a*q^25 - a*q^27 + (a - 1)*q^31 + (-a - 1)*q^39 + (-a + 1)*q^43 + a*q^49 
        + 2*q^57 + (a + 1)*q^63 + a*q^73 - q^75 + 2*a*q^79 + q^81 + 2*q^91 + (-a
        - 1)*q^93 + (a - 1)*q^103 + (-a + 1)*q^117 - a*q^121 + (a + 1)*q^129 + 
        (2*a - 2)*q^133 + (a + 1)*q^139 - q^147 + (-a - 1)*q^151 + (-a + 
        1)*q^157 + (-a - 1)*q^163 - a*q^169 + 2*a*q^171 + (-a + 1)*q^175 - 
        2*a*q^181 + (a - 1)*q^189 + (-a + 1)*q^193 + (-a - 1)*q^199 - 2*q^211 + 
        2*q^217 - q^219 + 2*q^223 - a*q^225 + (a + 1)*q^229 - 2*q^237 + (a - 
        1)*q^241 + a*q^243 + (2*a + 2)*q^247 + (-a + 1)*q^271 + 2*a*q^273 + (-a 
        + 1)*q^277 + (-a + 1)*q^279 - 2*q^283 + O(q^286),
    q^2 + a*q^6 + q^8 + (-a - 1)*q^14 - q^18 + a*q^24 + (a - 1)*q^26 + q^32 - 
        2*a*q^38 + (-a + 1)*q^42 + a*q^50 - a*q^54 + (-a - 1)*q^56 + (a - 
        1)*q^62 - q^72 + (-a - 1)*q^78 + (-a + 1)*q^86 + a*q^96 + a*q^98 + (a - 
        1)*q^104 + 2*q^114 + (a + 1)*q^126 + q^128 + a*q^146 - q^150 - 2*a*q^152
        + 2*a*q^158 + q^162 + (-a + 1)*q^168 + 2*q^182 + (-a - 1)*q^186 + 
        a*q^200 + (a - 1)*q^206 - a*q^216 + (-a - 1)*q^224 + (-a + 1)*q^234 - 
        a*q^242 + (a - 1)*q^248 + (a + 1)*q^258 + (2*a - 2)*q^266 + (a + 
        1)*q^278 + O(q^286),
    q^4 + a*q^12 + q^16 + (-a - 1)*q^28 - q^36 + a*q^48 + (a - 1)*q^52 + q^64 - 
        2*a*q^76 + (-a + 1)*q^84 + a*q^100 - a*q^108 + (-a - 1)*q^112 + (a - 
        1)*q^124 - q^144 + (-a - 1)*q^156 + (-a + 1)*q^172 + a*q^192 + a*q^196 +
        (a - 1)*q^208 + 2*q^228 + (a + 1)*q^252 + q^256 + O(q^286)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 24*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^2 - a*q^4 - 2*a*q^5 + q^8 + q^9 + 2*q^10 + (-a + 1)*q^13 + (a 
        - 1)*q^16 - q^17 + (a - 1)*q^18 + (2*a - 2)*q^20 + (3*a - 3)*q^25 + 
        a*q^26 + (-a + 1)*q^29 - a*q^32 + (-a + 1)*q^34 - a*q^36 + a*q^37 - 
        2*a*q^40 + a*q^41 - 2*a*q^45 + q^49 - 3*a*q^50 - q^52 + (2*a - 2)*q^53 +
        a*q^58 + a*q^61 + q^64 - 2*q^65 + a*q^68 + q^72 - a*q^73 - q^74 + 2*q^80
        + q^81 - q^82 + 2*a*q^85 + (-a + 1)*q^89 + 2*q^90 - q^97 + (a - 1)*q^98 
        + 3*q^100 + a*q^101 + (-a + 1)*q^104 - 2*a*q^106 - 2*a*q^109 + a*q^113 -
        q^116 + (-a + 1)*q^117 + (a - 1)*q^121 - q^122 + 4*q^125 + (a - 1)*q^128
        + (-2*a + 2)*q^130 - q^136 + 2*q^137 + (a - 1)*q^144 - 2*q^145 + q^146 +
        (-a + 1)*q^148 - q^149 - q^153 + a*q^157 + (2*a - 2)*q^160 + (a - 
        1)*q^162 + (-a + 1)*q^164 - 2*q^170 - q^173 + a*q^178 + (2*a - 2)*q^180 
        - 2*a*q^181 + (-2*a + 2)*q^185 - 2*a*q^193 + (-a + 1)*q^194 - a*q^196 - 
        q^197 + (3*a - 3)*q^200 - q^202 + (-2*a + 2)*q^205 + a*q^208 + 2*q^212 +
        2*q^218 + (a - 1)*q^221 + (3*a - 3)*q^225 - q^226 - q^229 + (-a + 
        1)*q^232 + (-a + 1)*q^233 + a*q^234 - q^241 - a*q^242 + (-a + 1)*q^244 -
        2*a*q^245 + (4*a - 4)*q^250 - a*q^256 + a*q^257 + 2*a*q^260 + (-a + 
        1)*q^261 + 4*q^265 + a*q^269 + (-a + 1)*q^272 + (2*a - 2)*q^274 + 
        a*q^277 + a*q^281 + O(q^286),
    q^3 + (a - 1)*q^6 - a*q^12 - 2*a*q^15 + q^24 + q^27 + 2*q^30 + (-a + 1)*q^39
        + (a - 1)*q^48 - q^51 + (a - 1)*q^54 + (2*a - 2)*q^60 + (3*a - 3)*q^75 +
        a*q^78 + (-a + 1)*q^87 - a*q^96 + (-a + 1)*q^102 - a*q^108 + a*q^111 - 
        2*a*q^120 + a*q^123 - 2*a*q^135 + q^147 - 3*a*q^150 - q^156 + (2*a - 
        2)*q^159 + a*q^174 + a*q^183 + q^192 - 2*q^195 + a*q^204 + q^216 - 
        a*q^219 - q^222 + 2*q^240 + q^243 - q^246 + 2*a*q^255 + (-a + 1)*q^267 +
        2*q^270 + O(q^286)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 24*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^9 + (-a + 1)*q^13 - a*q^15 + (a - 1)*q^19 + (a - 1)*q^31 + a*q^33 - 
        a*q^37 + 2*q^43 - q^49 + (a - 1)*q^55 + a*q^61 + (-a + 1)*q^67 - a*q^69 
        - q^73 + (a - 1)*q^79 + q^81 + (-a + 1)*q^87 + a*q^109 + (-a + 1)*q^115 
        + (a - 1)*q^117 - a*q^123 + (a - 1)*q^127 + a*q^135 + a*q^141 + q^145 - 
        a*q^151 - a*q^157 + (-a + 1)*q^159 + (-a + 1)*q^171 + (a - 1)*q^177 - 
        a*q^181 - a*q^193 - q^195 + (-a + 1)*q^199 + (-a + 1)*q^205 + (a - 
        1)*q^213 - a*q^223 + (a - 1)*q^235 + a*q^247 + (a - 1)*q^253 + q^265 + 
        (a - 1)*q^267 + a*q^277 + (-a + 1)*q^279 + q^285 + O(q^286),
    q^2 - q^16 - q^18 - q^20 - a*q^24 + (-a + 1)*q^26 + (a - 1)*q^28 - a*q^30 + 
        (-a + 1)*q^32 + (-2*a + 2)*q^36 + (a - 1)*q^38 + (-a + 1)*q^40 + q^44 + 
        3*a*q^52 + q^60 + (a - 1)*q^62 + 2*a*q^64 + a*q^66 - a*q^74 - 2*a*q^76 +
        a*q^80 + (a - 1)*q^84 + 2*q^86 + (a - 1)*q^88 - q^92 + (a - 1)*q^96 - 
        q^98 + a*q^100 + (-2*a + 2)*q^108 + (a - 1)*q^110 + q^112 - a*q^116 + 
        a*q^122 - 2*a*q^124 - q^128 - q^132 + (-a + 1)*q^134 - a*q^138 - q^144 -
        q^146 - q^148 + 3*a*q^156 + (a - 1)*q^158 - q^160 + q^162 - q^164 + (3*a
        - 3)*q^172 + (-a + 1)*q^174 - a*q^176 + q^180 + (-a + 1)*q^184 + q^188 +
        a*q^192 + (-a + 1)*q^196 + (-2*a + 2)*q^208 - a*q^212 + a*q^216 + 
        a*q^218 - a*q^220 - 2*a*q^228 + (-a + 1)*q^230 + q^232 + (a - 1)*q^234 +
        a*q^236 - a*q^246 + (a - 1)*q^252 + (a - 1)*q^254 + (-2*a + 2)*q^256 + 
        (a - 1)*q^260 + a*q^270 + q^276 + a*q^282 + a*q^284 + O(q^286),
    q^3 - q^7 + 2*q^9 + (3*a - 3)*q^13 + a*q^15 + (-2*a + 2)*q^19 - q^21 + (a - 
        1)*q^25 + q^27 + (-2*a + 2)*q^31 - a*q^33 - a*q^37 + (2*a - 2)*q^39 - 
        3*q^43 + q^49 + (-a + 1)*q^55 + (-a + 1)*q^57 - q^63 + a*q^69 + 2*q^73 +
        (a - 1)*q^75 + (-2*a + 2)*q^79 + (a - 1)*q^87 + (-2*a + 2)*q^91 + (-a + 
        1)*q^93 - q^97 + 2*q^103 - 2*a*q^111 + (a - 1)*q^115 + (a - 1)*q^117 + 
        (a - 1)*q^121 + a*q^123 + (a - 1)*q^127 - q^129 + (a - 1)*q^133 - 
        a*q^135 - q^139 - a*q^141 - q^145 - a*q^151 + 2*a*q^157 + (a - 1)*q^159 
        - q^163 - 3*a*q^169 + (-a + 1)*q^175 + (-a + 1)*q^177 + 2*a*q^181 + 
        a*q^183 - q^189 + 2*a*q^193 + q^195 + (-a + 1)*q^201 + (a - 1)*q^205 - 
        q^211 + (-a + 1)*q^213 + (a - 1)*q^217 + q^219 + 2*a*q^223 + (a - 
        1)*q^225 - q^229 + (-a + 1)*q^235 + (-a + 1)*q^237 + 2*q^241 + q^243 + 
        a*q^247 + (-a + 1)*q^253 + 2*a*q^259 - q^265 + (-a + 1)*q^267 - q^271 + 
        (-2*a + 2)*q^273 - 3*a*q^277 - q^283 - q^285 + O(q^286),
    q^4 + (a - 1)*q^24 - q^36 - q^40 + (-a + 1)*q^52 - a*q^60 + (-a + 1)*q^64 + 
        (a - 1)*q^76 + q^88 + q^96 + (a - 1)*q^124 + a*q^132 - a*q^148 + a*q^160
        + 2*q^172 - q^184 - q^196 + (-a + 1)*q^216 + (a - 1)*q^220 - a*q^232 + 
        a*q^244 - q^256 + (-a + 1)*q^268 - a*q^276 + O(q^286),
    q^5 + (-a + 1)*q^7 + (2*a - 2)*q^9 - q^11 - 3*a*q^13 - q^15 + 2*a*q^19 + (-a
        + 1)*q^21 + q^23 - a*q^25 + (2*a - 2)*q^27 + a*q^29 + 2*a*q^31 + q^33 + 
        q^37 - 3*a*q^39 + q^41 + (-3*a + 3)*q^43 - q^45 - q^47 + (a - 1)*q^49 + 
        a*q^53 + a*q^55 + 2*a*q^57 - a*q^59 + (-a + 1)*q^63 + (-a + 1)*q^65 - 
        q^69 - a*q^71 + (2*a - 2)*q^73 - a*q^75 + 2*a*q^79 - a*q^87 - a*q^89 + 
        2*a*q^91 + 2*a*q^93 + (a - 1)*q^95 + (-a + 1)*q^97 + q^99 - q^101 + (2*a
        - 2)*q^103 - a*q^107 + q^111 - q^113 - a*q^115 - a*q^117 - a*q^121 - 
        q^123 + (a - 1)*q^125 - a*q^127 + (-3*a + 3)*q^129 + q^131 - a*q^133 + 
        q^135 + (-a + 1)*q^139 + q^141 + (a - 1)*q^143 + (-a + 1)*q^145 + (a - 
        1)*q^147 + (2*a - 2)*q^149 + q^151 + (a - 1)*q^155 - 2*q^157 - a*q^159 +
        (-a + 1)*q^163 + a*q^165 + 3*q^169 + a*q^175 + a*q^177 + q^179 - 2*q^181
        - a*q^185 + (-a + 1)*q^189 + q^191 - 2*q^193 + (a - 1)*q^195 - a*q^205 -
        q^207 + (-a + 1)*q^209 + (-a + 1)*q^211 + a*q^213 + 2*q^215 - a*q^217 + 
        (2*a - 2)*q^219 - 2*q^223 - a*q^225 + (-a + 1)*q^229 - a*q^233 + a*q^235
        + 2*a*q^237 - a*q^239 + (2*a - 2)*q^241 - q^245 - q^247 - q^251 + 
        a*q^253 + q^257 - 2*q^259 - a*q^261 - a*q^263 + (-a + 1)*q^265 + a*q^267
        + q^269 + (-a + 1)*q^271 + 2*a*q^273 + 3*q^277 + q^281 + (-a + 1)*q^283 
        + (-a + 1)*q^285 + O(q^286),
    q^6 - q^14 + 2*q^18 - a*q^24 + (3*a - 3)*q^26 + a*q^30 + (a - 1)*q^32 + 
        (-2*a + 2)*q^38 - q^42 - q^48 + (a - 1)*q^50 + q^54 + a*q^56 + (-2*a + 
        2)*q^62 - a*q^66 - 2*a*q^72 - a*q^74 + (2*a - 2)*q^78 - a*q^80 - 3*q^86 
        + (a - 1)*q^96 + q^98 + 3*q^104 + (-a + 1)*q^110 + (-a + 1)*q^114 + (-a 
        + 1)*q^120 - q^126 + 2*q^128 + a*q^138 + 2*q^146 + (a - 1)*q^150 - 
        2*q^152 + (-2*a + 2)*q^158 + a*q^168 + (a - 1)*q^174 + a*q^176 + (-2*a +
        2)*q^182 + (-a + 1)*q^186 + a*q^192 - q^194 + q^200 + 2*q^206 - a*q^216 
        - 2*a*q^222 + (-a + 1)*q^224 + (a - 1)*q^230 + (a - 1)*q^234 + (a - 
        1)*q^242 + a*q^246 - 2*q^248 + (a - 1)*q^254 - q^258 + (a - 1)*q^264 + 
        (a - 1)*q^266 - a*q^270 - q^278 - a*q^282 + O(q^286),
    q^8 + (a - 1)*q^16 + (a - 1)*q^20 - q^24 + a*q^28 - a*q^32 - 2*a*q^36 - 
        a*q^40 + (-a + 1)*q^44 + (a - 1)*q^48 + 3*q^52 + (-a + 1)*q^60 + 2*q^64 
        - q^72 - 2*q^76 + a*q^84 + a*q^88 + (a - 1)*q^92 + a*q^96 + q^100 + (-a 
        + 1)*q^104 - 2*a*q^108 + (-a + 1)*q^112 - q^116 - a*q^120 - 2*q^124 + (a
        - 1)*q^132 + (a - 1)*q^144 + (a - 1)*q^148 + (a - 1)*q^152 + 3*q^156 + 
        (a - 1)*q^160 + (a - 1)*q^164 + 3*a*q^172 + (-a + 1)*q^180 - a*q^184 + 
        (-a + 1)*q^188 + 2*q^192 - a*q^196 - 2*a*q^208 - q^212 + q^216 - q^220 -
        2*q^228 + (-a + 1)*q^232 + q^236 + (a - 1)*q^248 + a*q^252 - 2*a*q^256 +
        a*q^260 + a*q^264 + (-a + 1)*q^276 + q^284 + O(q^286),
    q^10 + (-a + 1)*q^14 + (a - 1)*q^16 + (2*a - 2)*q^18 - q^22 - 3*a*q^26 - 
        q^30 - a*q^32 + 2*a*q^38 - a*q^40 + (-a + 1)*q^42 + q^46 + (-a + 1)*q^48
        - a*q^50 + (2*a - 2)*q^54 - q^56 + a*q^58 + 2*a*q^62 + q^64 + q^66 + 
        2*q^72 + q^74 - 3*a*q^78 + q^80 + q^82 + (-3*a + 3)*q^86 + a*q^88 - q^90
        - q^94 - a*q^96 + (a - 1)*q^98 + (3*a - 3)*q^104 + a*q^106 + a*q^110 + 
        2*a*q^114 - a*q^118 + a*q^120 + (-a + 1)*q^126 + (2*a - 2)*q^128 + (-a +
        1)*q^130 - q^138 - a*q^142 + (-a + 1)*q^144 + (2*a - 2)*q^146 - a*q^150 
        + (-2*a + 2)*q^152 + 2*a*q^158 - q^168 - a*q^174 - q^176 - a*q^178 + 
        2*a*q^182 - a*q^184 + 2*a*q^186 + (a - 1)*q^190 - q^192 + (-a + 1)*q^194
        + q^198 + (a - 1)*q^200 - q^202 + (2*a - 2)*q^206 + a*q^208 - a*q^214 + 
        2*q^216 + q^222 + a*q^224 - q^226 - a*q^230 + (-a + 1)*q^232 - a*q^234 +
        q^240 - a*q^242 - q^246 + (-2*a + 2)*q^248 + (a - 1)*q^250 - a*q^254 + 
        (-3*a + 3)*q^258 + q^262 - a*q^264 - a*q^266 + q^270 + (-a + 1)*q^278 + 
        q^282 + O(q^286),
    q^12 - a*q^16 + (-a + 1)*q^24 - q^28 + 2*q^36 + q^40 - a*q^48 + (3*a - 
        3)*q^52 + a*q^60 + (2*a - 2)*q^64 + (-2*a + 2)*q^76 - q^84 - q^88 - q^96
        + (a - 1)*q^100 + q^108 + a*q^112 + (-2*a + 2)*q^124 - a*q^132 - a*q^144
        - a*q^148 + (2*a - 2)*q^156 - a*q^160 - 3*q^172 + q^184 + (a - 1)*q^192 
        + q^196 + 2*q^208 + (a - 1)*q^216 + (-a + 1)*q^220 + (-a + 1)*q^228 + 
        a*q^232 - q^252 + 2*q^256 + a*q^276 + O(q^286)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 36*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 + q^4 - q^8 + q^9 + q^16 - q^18 + q^25 - q^32 + q^36 - 2*q^37 - 
        2*q^41 - q^49 - q^50 - 2*q^61 + q^64 - q^72 + q^73 + 2*q^74 + q^81 + 
        2*q^82 + 2*q^89 - 2*q^97 + q^98 + q^100 + 2*q^109 - q^121 + 2*q^122 - 
        q^128 + 2*q^137 + q^144 - q^146 - 2*q^148 - 2*q^149 - q^162 - 2*q^164 + 
        q^169 + 2*q^173 - 2*q^178 - 2*q^181 + 2*q^194 - q^196 - q^200 - 2*q^218 
        + q^225 + q^242 - 2*q^244 + q^256 - 2*q^257 + 2*q^269 - 2*q^274 + 
        O(q^286),
    q^3 - q^6 + q^12 - q^24 + q^27 + q^48 - q^54 + q^75 - q^96 + q^108 - 2*q^111
        - 2*q^123 - q^147 - q^150 - 2*q^183 + q^192 - q^216 + q^219 + 2*q^222 + 
        q^243 + 2*q^246 + 2*q^267 + O(q^286)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
876
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 36*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
286
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - q^55 - q^57 - q^61 - q^67 - q^75 + q^81 - q^85 - 
        q^97 - q^111 + q^121 - q^127 - q^145 - q^165 + q^169 - q^187 - q^211 + 
        q^219 + 2*q^223 + q^225 + 2*q^235 - q^237 + 2*q^255 - q^265 + 2*q^283 + 
        O(q^286),
    q^3 - q^19 - q^25 + q^27 - q^37 - q^55 + q^73 + q^75 - q^79 + 2*q^85 - q^109
        + 2*q^121 - q^145 + q^147 - q^165 - q^171 + 2*q^181 - q^183 - q^187 - 
        q^201 - q^225 - q^235 + q^243 - q^255 + 2*q^265 + O(q^286),
    q^5 - q^15 - q^17 + q^45 + q^47 + q^51 - q^53 - q^59 + q^83 + q^95 - q^101 -
        q^107 + q^125 - q^131 - q^135 - q^141 - q^153 + q^159 + q^177 + q^179 + 
        q^185 + q^233 - q^239 + q^245 - q^249 - q^263 + q^281 - q^285 + 
        O(q^286),
    q^11 - q^15 - q^17 + q^29 + q^33 - q^53 - q^59 + q^87 + q^95 + q^99 - q^101 
        - q^107 + q^113 + q^125 - q^131 - q^135 - q^141 - q^153 + q^167 + q^185 
        + q^191 + q^197 - q^209 - q^239 - q^249 + q^261 - q^263 + O(q^286)
]
;
Bo:=
[
    q - q^3 + q^9 - 2*q^19 - q^25 - q^27 - 2*q^37 + q^49 + 2*q^57 + 2*q^61 + 
        2*q^67 - q^73 + q^75 - 2*q^79 + q^81 + 2*q^97 - 2*q^109 + 2*q^111 - 
        q^121 + 2*q^127 - q^147 + q^169 - 2*q^171 - 2*q^181 - 2*q^183 - 2*q^201 
        + 2*q^211 + q^219 + 2*q^223 - q^225 + 2*q^237 - q^243 + 2*q^283 + 
        O(q^286),
    q^2 - q^6 + q^8 + q^18 - q^24 + q^32 - 2*q^38 - q^50 - q^54 + q^72 - 2*q^74 
        - q^96 + q^98 + 2*q^114 + 2*q^122 + q^128 + 2*q^134 - q^146 + q^150 - 
        2*q^152 - 2*q^158 + q^162 + 2*q^194 - q^200 - q^216 - 2*q^218 + 2*q^222 
        - q^242 + 2*q^254 + O(q^286),
    q^4 - q^12 + q^16 + q^36 - q^48 + q^64 - 2*q^76 - q^100 - q^108 + q^144 - 
        2*q^148 - q^192 + q^196 + 2*q^228 + 2*q^244 + q^256 + 2*q^268 + O(q^286)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
877
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
876
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
877
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
292
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
877
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
73*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
877
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
219*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
878
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
438
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
878
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
146
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
878
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
73*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
878
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
219*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 + q^25 + q^49 - q^55 - q^56 - q^58 - q^61 - q^65 - q^70 - q^76 + 
        q^81 - q^83 - q^91 - q^100 + q^112 + q^116 + q^122 + q^130 - q^133 + 
        q^140 - q^146 + q^152 - q^160 + q^166 + q^169 - q^175 + q^182 - q^191 + 
        q^200 - q^208 + O(q^218),
    q^2 + q^18 + q^50 - q^56 - q^58 - q^70 - q^76 + q^98 - q^100 - q^110 - q^146
        - q^160 + q^162 - q^208 + O(q^218),
    q^4 + q^29 + q^35 + q^36 - q^56 - q^58 - q^61 - q^65 - q^70 + q^73 - q^76 - 
        q^83 - q^91 + q^113 - q^121 + q^122 + q^130 - q^133 + q^143 - q^146 - 
        q^160 + q^166 - q^175 + q^182 - q^191 + q^196 + q^203 - q^208 + 
        O(q^218),
    q^5 + q^26 - q^29 - q^35 - q^38 + q^45 - q^50 - q^55 + q^64 + q^70 - q^73 - 
        q^80 + q^91 + q^95 - q^104 - q^113 + q^125 + q^127 + q^139 + q^142 - 
        q^143 + q^152 - q^154 - q^190 + q^200 + q^206 + O(q^218),
    q^7 + q^20 + q^26 - q^55 - q^56 - q^58 - q^61 + q^63 - q^76 + q^77 - q^83 + 
        q^88 - q^91 - q^100 + q^109 - q^110 - q^121 - q^133 + q^142 + q^145 - 
        q^146 + q^176 + q^180 - q^191 + q^206 - q^208 + q^209 + O(q^218),
    q^8 - q^20 - q^26 + q^29 + q^32 + q^35 + q^38 + q^50 - q^61 - q^64 - q^65 - 
        q^70 + q^72 + q^73 - q^83 - q^88 - q^91 - q^112 + q^113 - q^121 + q^128 
        - q^133 - q^142 + q^143 - q^152 + q^154 - q^160 - q^175 - q^176 - q^180 
        + q^190 - q^191 + q^203 - q^206 + O(q^218),
    q^10 - q^20 - q^26 + q^29 + q^35 + q^38 + q^40 + q^44 + q^50 + q^52 - q^58 -
        q^61 - q^64 - q^65 - 2*q^70 + q^73 - q^76 + q^80 - q^83 + q^90 - q^91 - 
        q^100 - q^110 - q^112 + q^113 - q^121 + q^128 - q^133 + q^140 - q^142 + 
        q^143 - q^146 - q^152 + q^154 - q^160 - q^175 - q^180 + q^182 + 2*q^190 
        - q^191 + q^196 - q^200 + q^203 - q^206 + q^212 + O(q^218),
    q^11 + q^20 + q^26 - q^29 - q^35 - q^38 - q^40 - q^44 + q^49 - q^50 + q^53 -
        q^55 + q^64 + q^70 - q^73 - q^80 + q^99 + q^112 - q^113 + q^133 + q^142 
        - q^143 + q^145 + q^152 - q^154 + q^167 + q^175 + q^180 - q^190 - q^196 
        + q^200 - q^203 + q^206 - q^208 - q^212 + O(q^218),
    q^13 + q^20 + q^26 - q^29 - q^38 - q^40 - q^50 - q^52 - q^55 - q^56 + q^64 +
        q^70 + q^71 - q^73 + q^88 + q^103 + q^112 - q^113 + q^117 - q^128 + 
        q^137 - q^140 + q^142 - q^143 + q^152 - q^154 + q^169 + q^180 - q^190 + 
        q^200 - q^203 + q^206 - q^208 + q^209 + q^211 + O(q^218),
    q^14 - q^20 - q^26 + q^29 + q^32 + q^35 + q^38 + q^40 + q^50 + q^52 - q^58 -
        q^61 - q^64 - q^65 - 2*q^70 + q^73 - q^83 - q^88 - q^91 - q^110 - q^112 
        + q^113 - q^121 + q^126 + q^128 + q^130 - q^133 + q^140 - q^142 + q^143 
        - q^146 - q^152 + 2*q^154 - q^160 - q^175 - q^180 + q^190 - q^191 - 
        q^200 + q^203 - q^206 + O(q^218),
    q^16 - q^20 - q^26 + q^38 + q^50 - q^70 - q^88 + q^116 + q^140 - q^142 + 
        q^144 + q^154 - q^160 - q^176 - q^180 + q^190 - q^206 + O(q^218),
    q^19 + q^20 + q^25 + q^26 - q^29 - q^32 - q^35 - q^38 - q^50 - q^55 - q^56 +
        q^64 + q^70 - q^73 - q^76 + q^77 + q^88 + q^95 - q^100 + q^112 - q^113 +
        q^125 - q^128 + q^142 + q^152 - q^154 + q^171 + q^176 + q^180 - q^190 + 
        q^199 + q^200 - q^203 + q^206 - q^208 + O(q^218),
    q^22 - q^26 + q^29 + q^35 + q^38 + q^40 + q^44 + q^50 - q^56 - q^58 - q^61 -
        q^64 - q^65 - 2*q^70 + q^73 - q^76 + q^80 - q^83 - q^91 + q^98 - q^100 +
        q^104 + q^106 - q^110 + q^113 - q^121 - q^133 - q^142 + q^143 - q^146 - 
        q^152 + q^154 - q^160 - q^175 + q^190 - q^191 + q^196 + q^198 - q^200 + 
        q^203 - q^206 + q^212 + O(q^218),
    q^28 + q^29 + q^35 + q^38 + q^50 - q^56 - q^58 - q^61 - q^65 - q^70 + q^73 -
        q^76 + q^80 - q^83 - q^91 - q^100 + q^104 - q^110 + q^113 - q^121 - 
        q^133 + q^143 - q^146 + q^154 - q^160 - q^175 + q^190 - q^191 + q^203 - 
        q^208 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
879
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
879
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
292
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
879
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
146
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
879
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
146
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
879
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
73*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
879
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 146*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - q^55 - q^58 - q^60 - q^69 - q^73 + q^81 - q^88 - 
        q^94 - q^115 + q^121 - q^123 - q^150 - q^160 + q^169 - q^193 + O(q^194),
    q^2 + q^18 - q^29 - q^30 - q^44 - q^47 + q^50 - q^75 - q^80 + q^98 + q^111 +
        q^113 - q^122 + q^125 - q^129 + q^131 + q^155 + q^162 + q^165 - q^185 + 
        O(q^194),
    q^3 - q^20 - q^23 + q^27 - q^41 - q^50 + q^74 + q^75 + q^80 - q^86 + q^92 - 
        q^101 + q^110 + q^134 + q^147 - q^155 + q^164 - q^165 - q^174 - q^176 - 
        q^180 + O(q^194),
    q^4 - q^15 - q^24 - q^25 + q^31 + q^33 + q^36 - q^40 - q^43 - q^46 + q^55 + 
        q^60 - q^61 + q^64 + q^69 + q^73 - q^82 - q^87 - q^97 + q^100 + q^109 + 
        2*q^115 + q^123 - q^124 - q^132 - q^135 - q^141 - q^145 - q^148 + q^193 
        + O(q^194),
    q^5 - q^12 - q^23 - q^41 + q^44 + q^45 + q^62 + q^66 - q^74 - q^101 - q^108 
        - q^110 + q^120 + q^125 + q^128 - q^134 - q^155 - q^165 + q^179 + q^183 
        + O(q^194),
    q^6 - q^15 - q^16 - q^25 + q^31 + q^33 + q^37 - q^43 + q^54 + q^55 - q^58 - 
        q^61 + q^67 - q^87 - q^88 - q^94 + q^96 - q^97 + q^100 + q^109 + q^115 +
        q^121 - q^124 - q^132 - q^135 - q^141 - q^144 + q^148 + q^160 + q^172 + 
        2*q^184 + O(q^194),
    q^8 - q^12 - q^20 - q^23 + q^29 + q^30 + q^32 - q^41 + q^44 + q^47 - q^48 - 
        q^50 + q^72 - q^74 + q^75 - q^86 - q^92 - q^101 - q^108 + q^116 + q^120 
        + q^122 + q^128 + q^129 - q^134 + q^138 + q^146 - q^155 - q^164 - q^165 
        - q^174 - q^180 + q^185 + q^188 - q^192 + O(q^194),
    q^10 - q^15 - q^16 + q^31 + q^33 - q^58 - q^61 + q^90 - q^94 + q^96 - q^97 +
        q^100 + q^109 + q^115 - q^135 - q^144 - q^145 - q^150 + q^172 + q^184 + 
        O(q^194),
    q^11 - q^12 - q^23 + q^30 + q^32 - q^41 + q^44 - q^48 - q^50 + q^62 + q^66 -
        q^74 - q^86 + q^89 - q^92 + q^93 + q^99 - q^101 - q^108 - q^110 + q^116 
        + q^120 + q^122 + q^128 - q^134 - q^155 - q^164 - q^165 + q^173 - q^174 
        + q^185 + q^188 + O(q^194),
    q^22 - q^24 - q^25 + q^31 + q^33 - q^43 - q^46 + q^60 + q^64 - q^82 - q^87 +
        q^109 + q^115 - q^141 - q^148 + q^178 + q^186 + O(q^194)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 - q^9 + q^25 + 2*q^29 - 2*q^41 + q^45 - q^49 - 2*q^61 + q^81 + 
        2*q^89 + 2*q^101 - 2*q^109 + q^121 - q^125 - 2*q^145 - 2*q^149 + q^169 +
        2*q^181 + 2*q^205 - q^225 + 2*q^229 - 2*q^241 + q^245 - 2*q^261 + 
        O(q^266),
    q^11 - q^55 - q^99 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 2*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^3 + a - 1)*q^3 + (-a^2 - 1)*q^9 - a^3*q^11 + (a^2 - a)*q^17 + (-a + 
        1)*q^19 - a^3*q^25 + (-a^3 + a^2 - a + 1)*q^27 + (a^2 + 1)*q^33 + (a^3 +
        a - 1)*q^41 + (a^3 - a^2 - 1)*q^43 + (a^3 - a^2 + a - 1)*q^49 - a^2*q^51
        + a*q^57 + (a^3 - a^2 + a)*q^59 + (-a^3 + a^2)*q^67 + (-a^3 - a)*q^73 + 
        (a^2 + 1)*q^75 + (-a^3 + 1)*q^83 + (a^3 - a^2 - 1)*q^89 + (a^2 + 1)*q^97
        + (a^3 - 1)*q^99 + (a^3 + a - 1)*q^107 + (-a + 1)*q^113 - a*q^121 + 
        (-a^2 - a - 1)*q^123 + (-2*a^3 - a + 1)*q^129 + (-a^3 + a^2)*q^131 + 
        (-a^3 + 1)*q^137 + 2*a^2*q^139 + (-a^3 - a)*q^147 + q^153 + (-a^2 + a - 
        1)*q^163 + a^2*q^169 + (a^3 - a^2 + a - 1)*q^171 - q^177 + (-a + 
        1)*q^179 + (a^3 - a^2 + a)*q^187 + (2*a^3 - 2*a^2 + 2*a - 2)*q^193 + 
        a^3*q^201 + (-a^2 + a - 1)*q^209 + (a^2 + 1)*q^211 + (-a^3 + a^2 + 
        2)*q^219 + (a^3 - 1)*q^225 + (a^3 - a^2 + a)*q^227 + (a^2 + 1)*q^233 + 
        (-a^3 + a^2)*q^241 + q^243 + (a^3 + a^2 + a)*q^249 - 2*a*q^251 + (-a^3 -
        a)*q^257 + O(q^266),
    q^2 - a*q^4 + (a^3 + a - 1)*q^6 + a^2*q^8 + (-a^3 + 1)*q^12 - a^3*q^16 + 
        (-a^2 - 1)*q^18 - a^3*q^22 + (a^3 - a^2 - 1)*q^24 + (a^3 - a^2 + a - 
        1)*q^32 + (a^2 - a)*q^34 + (a^3 + a)*q^36 + (-a + 1)*q^38 + (a^3 - a^2 +
        a - 1)*q^44 + (a^2 + 1)*q^48 - a^3*q^50 + (-a^3 + a^2 - a + 1)*q^54 + 
        q^64 + (a^2 + 1)*q^66 + (-a^3 + a^2)*q^68 + (-a^3 - a + 1)*q^72 + (a^2 -
        a)*q^76 + (a^3 + a - 1)*q^82 + (a^3 - a^2 - 1)*q^86 + q^88 + (-a^3 - 
        a)*q^96 + (a^3 - a^2 + a - 1)*q^98 + (a^3 - a^2 + a - 1)*q^100 - 
        a^2*q^102 - q^108 + a*q^114 + (a^3 - a^2 + a)*q^118 - a*q^128 + (-a^3 - 
        a)*q^132 + (-a^3 + a^2)*q^134 + (-a^2 + a - 1)*q^136 + (a^3 - 1)*q^144 +
        (-a^3 - a)*q^146 + (a^2 + 1)*q^150 + (-a^3 + a^2)*q^152 + (-a^3 + 
        1)*q^164 + (-a^3 + 1)*q^166 + (a^2 + 1)*q^172 - a*q^176 + (a^3 - a^2 - 
        1)*q^178 + (a^3 + a - 1)*q^192 + (a^2 + 1)*q^194 + q^196 + (a^3 - 
        1)*q^198 + q^200 + a^3*q^204 + (a^3 + a - 1)*q^214 + a*q^216 + (-a + 
        1)*q^226 - a^2*q^228 + (-a + 1)*q^236 - a*q^242 + (-a^2 - a - 1)*q^246 +
        a^2*q^256 + (-2*a^3 - a + 1)*q^258 + (-a^3 + a^2)*q^262 + (a^3 + a - 
        1)*q^264 + O(q^266),
    q^5 + (a^3 + a - 1)*q^15 + (-a^2 - 1)*q^45 - a^3*q^55 + (a^2 - a)*q^85 + (-a
        + 1)*q^95 - a^3*q^125 + (-a^3 + a^2 - a + 1)*q^135 + (a^2 + 1)*q^165 + 
        (a^3 + a - 1)*q^205 + (a^3 - a^2 - 1)*q^215 + (a^3 - a^2 + a - 1)*q^245 
        - a^2*q^255 + O(q^266),
    q^10 - a*q^20 + (a^3 + a - 1)*q^30 + a^2*q^40 + (-a^3 + 1)*q^60 - a^3*q^80 +
        (-a^2 - 1)*q^90 - a^3*q^110 + (a^3 - a^2 - 1)*q^120 + (a^3 - a^2 + a - 
        1)*q^160 + (a^2 - a)*q^170 + (a^3 + a)*q^180 + (-a + 1)*q^190 + (a^3 - 
        a^2 + a - 1)*q^220 + (a^2 + 1)*q^240 - a^3*q^250 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^9 + a^2*q^11 + (a^3 + a - 1)*q^19 - a^3*q^25 + (-a^2 + a - 1)*q^35 +
        (-a + 1)*q^41 + (-a^2 + a)*q^49 + (-a^3 - a)*q^59 + (a^3 - a^2 - 1)*q^65
        + a^2*q^81 + (-a^3 + a^2)*q^89 + a^3*q^91 - a^3*q^99 + (a^2 - a)*q^115 +
        (a^3 - a^2 + a - 1)*q^121 + 2*q^131 + (a^3 - a^2 + a)*q^139 + (-a^3 + 
        2*a^2 - a)*q^161 + (a^3 + a)*q^169 + (-a^3 + 1)*q^171 + (-a + 1)*q^179 +
        (a^2 + 1)*q^185 + (a^3 - a^2 - 1)*q^209 - 2*a*q^211 + (a^3 - a^2 + a - 
        1)*q^225 + (-a^3 - a)*q^235 + (-a^3 + a^2)*q^241 + (-a^2 + a - 1)*q^251 
        + (-a^3 + a^2 - a + 1)*q^259 + (-a^3 + a^2)*q^265 + O(q^266),
    q^2 + a^2*q^8 - a*q^18 + q^20 + a^2*q^22 + (-a + 1)*q^28 + (a^3 - a^2 + a - 
        1)*q^32 + (a^3 + a - 1)*q^38 - a^3*q^50 + (-a^3 - a)*q^52 + (-a^2 + a - 
        1)*q^70 - a^3*q^72 + a^2*q^80 + (-a + 1)*q^82 + (a^3 - a^2 + a - 1)*q^88
        + (-a^2 + a - 1)*q^92 + (-a^2 + a)*q^98 + (-a^3 + a^2)*q^112 + (-a^3 - 
        a)*q^118 - a*q^128 + (a^3 - a^2 - 1)*q^130 + (a^3 + a - 1)*q^148 + (a^3 
        - a^2 - 1)*q^152 + a^2*q^162 + (-a^3 + a^2)*q^178 - a*q^180 + a^3*q^182 
        + (-a^3 + 1)*q^188 - a^3*q^198 + q^200 + (-a^3 + 1)*q^208 + (a^3 - a^2 +
        a)*q^212 + a^2*q^220 + (a^2 - a)*q^230 + (a^3 - a^2 + a - 1)*q^242 + 
        (a^2 - a)*q^252 + 2*q^262 + O(q^266),
    q^4 - a^3*q^10 + (-a^2 + a - 1)*q^14 + a^2*q^16 + (a^3 - a^2 - 1)*q^26 - 
        a*q^36 + q^40 + a^2*q^44 + (a^2 - a)*q^46 + (-a + 1)*q^56 + (a^3 - a^2 +
        a - 1)*q^64 + (a^2 + 1)*q^74 + (a^3 + a - 1)*q^76 + (a^3 - a^2 + a - 
        1)*q^90 + (-a^3 - a)*q^94 - a^3*q^100 + (-a^3 - a)*q^104 + (-a^3 + 
        a^2)*q^106 + q^110 + (a^3 - a^2 + a)*q^126 + (-a^2 + a - 1)*q^140 - 
        a^3*q^144 + (-a + 1)*q^154 + a^2*q^160 + (-a + 1)*q^164 + (a^3 - a^2 + a
        - 1)*q^176 + (-a^2 + a - 1)*q^184 + (a^2 + 1)*q^190 + (-a^2 + a)*q^196 +
        (a^2 + 1)*q^206 + (-a^3 + a^2)*q^224 + (a^2 + 1)*q^234 + (-a^3 - 
        a)*q^236 - a*q^250 + (a^3 + a - 1)*q^254 - a*q^256 + (a^3 - a^2 - 
        1)*q^260 + O(q^266),
    q^5 + (-a + 1)*q^7 + (-a^3 - a)*q^13 + (-a^2 + a - 1)*q^23 + (a^3 + a - 
        1)*q^37 - a*q^45 + (-a^3 + 1)*q^47 + (a^3 - a^2 + a)*q^53 + a^2*q^55 + 
        (a^2 - a)*q^63 + (-a^3 + a^2)*q^77 + (a^3 + a - 1)*q^95 + (a^3 + a - 
        1)*q^103 + (a^3 + a - 1)*q^117 - a^3*q^125 + (a^3 - a^2 - 1)*q^127 + 
        a*q^133 + (-a^3 + 1)*q^143 + (a^2 - a)*q^157 + (-a^3 - a)*q^167 + (a^2 -
        a)*q^173 + (-a^2 + a - 1)*q^175 + (-a^2 + a - 1)*q^197 + (-a + 1)*q^205 
        + (a^3 - a^2 + a)*q^207 + (a^2 - a)*q^223 + (-a^2 + a)*q^245 + (-a^3 + 
        a^2 + 2)*q^247 + (-a + 1)*q^253 + (a^2 + 1)*q^263 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^25 - q^33 - q^37 + q^49 + 2*q^53 + q^69 - q^81 - q^89 + q^93 - q^97 - 
        q^113 + q^121 + q^125 - q^137 - 2*q^141 - q^157 + q^169 + q^177 - q^181 
        + q^201 + q^213 - q^229 - q^253 + 2*q^257 + O(q^266),
    q^2 - q^6 + q^22 - q^46 - q^50 + q^54 - q^62 - q^66 - q^74 + 2*q^94 + q^98 +
        2*q^106 - q^118 - q^134 + q^138 - q^142 + q^150 - q^162 - q^178 + q^186 
        - q^194 + 2*q^206 + q^222 - q^226 + q^242 + q^250 + O(q^266),
    q^3 - q^11 + q^23 - q^27 + q^31 - 2*q^47 + q^59 + q^67 + q^71 - q^75 - 
        2*q^103 - q^111 + q^147 + 2*q^159 - 2*q^163 + q^179 + q^191 - 2*q^199 + 
        q^223 + q^251 + O(q^266),
    q^4 - q^12 + q^44 - q^92 - q^100 + q^108 - q^124 - q^132 - q^148 + 2*q^188 +
        q^196 + 2*q^212 - q^236 + O(q^266),
    q^5 - q^25 - q^165 - q^185 + q^245 + 2*q^265 + O(q^266),
    q^10 - q^30 - q^50 + q^110 + q^150 - q^230 + O(q^266),
    q^15 - q^55 - q^75 + q^115 - q^135 + q^155 - 2*q^235 + O(q^266),
    q^20 - q^60 - q^100 + q^220 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^25 + a*q^33 - q^37 + (-a + 1)*q^45 - a*q^49 + (a - 1)*q^53 + q^69 - 
        a*q^81 - q^89 - a*q^93 - a*q^97 - q^113 - q^121 + a*q^125 + q^137 + (a -
        1)*q^141 - a*q^157 - a*q^169 - q^177 + q^181 + a*q^201 + q^213 + a*q^229
        + q^253 + (a + 1)*q^257 + O(q^266),
    q^3 + a*q^23 + a*q^27 - a*q^31 + q^55 - q^59 - q^67 - q^71 - a*q^75 - a*q^99
        + q^111 + (-a - 1)*q^135 - a*q^147 + (a - 1)*q^159 + a*q^179 + a*q^191 -
        a*q^223 + (a + 1)*q^235 + (a - 1)*q^243 + q^251 + O(q^266),
    q^5 - a*q^25 + (-a - 1)*q^33 + (-a + 1)*q^37 + (a - 1)*q^45 - 2*q^69 + 
        2*a*q^81 + 2*q^89 + (a + 1)*q^93 + (a - 1)*q^97 + (a + 1)*q^113 + (a - 
        1)*q^137 - 2*a*q^141 + (a - 1)*q^157 + a*q^165 + (-a + 1)*q^177 - q^185 
        - 2*a*q^201 + (-a - 1)*q^213 + (-a + 1)*q^225 - a*q^245 + (-a - 1)*q^253
        + (a - 1)*q^265 + O(q^266),
    q^9 - q^25 - q^33 - a*q^37 + a*q^45 + a*q^69 + (a + 1)*q^81 - a*q^89 - 
        a*q^93 + q^97 - a*q^113 + a*q^137 + (-a - 1)*q^141 + q^157 + q^165 - 
        q^177 + a*q^181 + a*q^185 - q^201 - q^213 - a*q^225 - q^229 + a*q^253 + 
        O(q^266),
    q^11 - 2*q^23 + (-a - 1)*q^27 + (a + 1)*q^31 + (a + 1)*q^47 + a*q^55 + (-a +
        1)*q^59 - 2*a*q^67 + (-a - 1)*q^71 + (a + 1)*q^75 + q^99 + (a - 1)*q^103
        + (a - 1)*q^111 - 2*q^115 + (-a + 1)*q^135 + (a + 1)*q^155 + (-a + 
        1)*q^163 + (a - 1)*q^179 + (-a - 1)*q^191 - 2*a*q^199 + (a + 1)*q^207 + 
        2*q^223 + (a - 1)*q^235 + (-a - 1)*q^243 + (a + 1)*q^251 + O(q^266),
    q^15 + 2*a*q^23 + (-a + 1)*q^31 + q^55 + (-a - 1)*q^59 - 2*q^67 + (a - 
        1)*q^71 - a*q^75 + (-a - 1)*q^99 + (-a + 1)*q^111 + a*q^115 - q^135 - 
        a*q^155 + (a + 1)*q^179 + (a - 1)*q^191 - 2*a*q^223 + (a + 1)*q^235 + 
        2*a*q^243 + (-a + 1)*q^251 + O(q^266)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + H.3 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.3 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^9 + q^11 - q^15 - q^45 - q^49 + 2*q^69 - q^75 + q^81 - q^99 + 2*q^111 
        + q^115 + q^121 - q^125 + q^135 - q^155 - q^165 - q^169 + q^185 - 
        2*q^199 - 2*q^201 + q^225 + O(q^266),
    q^3 + q^9 + q^15 - q^23 + q^25 - q^27 + q^31 + q^33 - q^37 - q^45 - q^59 + 
        q^67 - q^69 - q^71 - q^89 - q^93 + q^97 + q^99 - q^111 - q^113 - q^115 -
        q^135 - q^137 - q^147 - q^155 + q^157 + q^165 + q^177 + q^179 - q^181 - 
        q^185 + q^191 + q^201 + 2*q^207 + q^213 - q^223 - q^225 + q^229 - q^251 
        - q^253 + O(q^266),
    q^5 - 2*q^9 - q^15 - q^25 - 2*q^31 + q^55 + 2*q^59 + 2*q^69 + 2*q^71 - q^75 
        + 2*q^89 - 2*q^99 + 2*q^111 + q^115 + q^135 + q^155 - q^165 - 2*q^179 + 
        2*q^181 + q^185 - 2*q^191 - 2*q^201 - 2*q^229 - q^245 + 2*q^251 + 
        O(q^266)
]
;
Bo:=
[
    q - q^9 - q^11 + q^15 - q^45 - q^49 + 2*q^69 + q^75 + q^81 + q^99 - 2*q^111 
        - q^115 + q^121 - q^125 - q^135 + q^155 - q^165 - q^169 + q^185 + 
        2*q^199 - 2*q^201 + q^225 + O(q^266),
    q^2 - q^18 - q^22 + q^30 - q^90 - q^98 + 2*q^138 + q^150 + q^162 + q^198 - 
        2*q^222 - q^230 + q^242 - q^250 + O(q^266),
    q^3 - q^9 + q^15 - q^23 - q^25 - q^27 + q^31 - q^33 + q^37 + q^45 - q^59 + 
        q^67 + q^69 - q^71 + q^89 + q^93 - q^97 + q^99 - q^111 + q^113 - q^115 -
        q^135 + q^137 - q^147 - q^155 - q^157 - q^165 - q^177 + q^179 + q^181 + 
        q^185 + q^191 - q^201 + 2*q^207 - q^213 - q^223 + q^225 - q^229 - q^251 
        + q^253 + O(q^266),
    q^4 - q^36 - q^44 + q^60 - q^180 - q^196 + O(q^266),
    q^5 - 2*q^9 + q^15 - q^25 + 2*q^31 - q^55 - 2*q^59 + 2*q^69 - 2*q^71 + q^75 
        + 2*q^89 + 2*q^99 - 2*q^111 - q^115 - q^135 - q^155 - q^165 + 2*q^179 + 
        2*q^181 + q^185 + 2*q^191 - 2*q^201 - 2*q^229 - q^245 - 2*q^251 + 
        O(q^266),
    q^6 - q^18 + q^30 - q^46 - q^50 - q^54 + q^62 - q^66 + q^74 + q^90 - q^118 +
        q^134 + q^138 - q^142 + q^178 + q^186 - q^194 + q^198 - q^222 + q^226 - 
        q^230 + O(q^266),
    q^8 - q^32 - q^40 + q^72 - q^88 + q^128 + q^160 + q^200 - 2*q^248 + 
        O(q^266),
    q^10 - 2*q^18 + q^30 - q^50 + 2*q^62 - q^110 - 2*q^118 + 2*q^138 - 2*q^142 +
        q^150 + 2*q^178 + 2*q^198 - 2*q^222 - q^230 + O(q^266),
    q^12 - q^36 + q^60 - q^92 - q^100 - q^108 + q^124 - q^132 + q^148 + q^180 - 
        q^236 + O(q^266),
    q^16 - q^64 - q^80 + q^144 - q^176 + q^256 + O(q^266),
    q^20 - 2*q^36 + q^60 - q^100 + 2*q^124 - q^220 - 2*q^236 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^9 + q^14 - a*q^16 + q^20 + a*q^25 + a*q^26 - a*q^34 - q^44 - q^49 - 
        a*q^55 + a*q^56 + (a + 1)*q^59 - q^70 - q^81 - q^86 + (-a - 1)*q^91 + 
        a*q^104 + 2*a*q^119 + a*q^121 + (a - 1)*q^124 - a*q^126 - q^130 + q^136 
        - q^144 - a*q^146 + q^154 + (-a - 1)*q^155 + a*q^166 - a*q^169 + a*q^170
        - a*q^180 + (-a + 1)*q^196 + a*q^214 + (a - 1)*q^221 - a*q^224 + q^225 +
        (-a - 1)*q^229 + q^234 + (a + 1)*q^245 + (a + 1)*q^251 + q^254 - q^256 +
        O(q^266),
    q^2 - a*q^8 + q^10 + (a - 1)*q^13 - a*q^18 - q^22 + (a + 1)*q^28 - a*q^32 + 
        (a - 1)*q^35 + q^40 + (-a - 1)*q^43 + a*q^50 + 2*a*q^52 + (a - 1)*q^62 -
        2*q^65 + (-a + 1)*q^68 - q^72 - 2*a*q^73 + (-a + 1)*q^77 + (a - 1)*q^83 
        + (a + 1)*q^85 - q^88 - a*q^90 - a*q^98 + (a + 1)*q^107 - a*q^110 + (a +
        1)*q^117 + (a + 1)*q^118 + 2*q^127 - q^128 + 2*q^143 - a*q^160 - q^162 -
        2*a*q^167 - 2*q^172 + (a - 1)*q^173 + (a + 1)*q^178 + (-a - 1)*q^182 + 
        (-a - 1)*q^187 + 2*q^193 + (a + 1)*q^197 + a*q^198 + q^200 + (a + 
        1)*q^208 - 2*a*q^215 - 2*a*q^217 + (-a + 1)*q^227 + (a - 1)*q^238 + 
        a*q^242 + (a - 1)*q^248 + a*q^250 + (-a + 1)*q^252 + (a - 1)*q^260 + 
        2*a*q^263 + O(q^266),
    q^4 + a*q^5 - a*q^11 - q^14 - q^26 + (-a - 1)*q^31 + a*q^34 - a*q^36 + q^45 
        + (a + 1)*q^49 + q^56 - a*q^64 + a*q^70 + q^80 - a*q^86 + (a - 1)*q^89 -
        q^99 + a*q^100 + a*q^104 + (-a + 1)*q^119 - q^125 + a*q^126 - q^130 - 
        a*q^136 - a*q^146 - a*q^154 - q^166 + (-a + 1)*q^169 + q^170 - q^176 + 
        (a + 1)*q^191 - q^196 + q^214 - a*q^220 + a*q^224 + a*q^234 + (a + 
        1)*q^236 - a*q^245 + q^254 + O(q^266),
    q^7 - a*q^8 + q^10 + a*q^13 - a*q^17 - q^22 + a*q^28 - q^35 - q^43 + a*q^52 
        + (a - 1)*q^62 - a*q^63 - q^65 + q^68 - q^72 - a*q^73 + q^77 + a*q^83 + 
        a*q^85 - a*q^90 + (-a + 1)*q^98 + a*q^107 - a*q^112 + q^117 + q^127 - 
        q^128 + q^140 + q^143 - q^153 - a*q^160 - a*q^167 - q^172 - q^173 + 
        a*q^175 + (a + 1)*q^178 - a*q^187 + q^193 + a*q^197 + a*q^198 + q^200 + 
        q^208 - a*q^215 + (-a + 1)*q^217 - a*q^227 - q^233 + (-a - 1)*q^238 + 
        a*q^250 + q^252 + a*q^260 + a*q^263 + O(q^266)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
880
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 2*H.3 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^15 + q^25 - q^31 - q^71 - q^81 - q^89 + q^111 + q^119 + q^121 + q^135 
        + q^159 + q^169 - q^185 + 2*q^191 - q^199 - 2*q^201 - q^209 + q^231 - 
        q^265 + O(q^266),
    q^2 - q^18 + q^28 - q^32 + q^40 - q^50 - q^52 - q^68 + q^88 + q^98 - q^110 -
        q^112 + q^140 + 2*q^142 + q^162 + q^172 - q^208 - 2*q^238 - q^242 - 
        q^252 + q^260 + O(q^266),
    q^3 + q^19 - q^21 - q^27 + q^29 + q^35 + q^37 - q^45 - q^51 + q^53 + q^61 - 
        2*q^67 + q^75 + q^77 + q^85 - 2*q^91 - q^93 - q^99 - 2*q^101 - 2*q^109 -
        2*q^125 + q^131 - q^133 - 2*q^139 + q^149 + q^155 + q^157 + q^163 + 
        q^165 + 2*q^179 - 2*q^181 + q^187 + q^189 - q^203 + q^211 - q^213 + 
        2*q^219 + 2*q^221 + q^245 - q^259 + O(q^266),
    q^4 + q^20 - q^26 - 2*q^34 + q^44 - 2*q^56 - q^60 + q^64 - q^66 + q^70 + 
        q^86 + q^100 - q^104 + q^110 + q^114 - q^124 - q^126 + q^130 + q^144 + 
        q^146 + q^154 - q^166 - q^170 + q^174 - q^180 - q^190 + q^210 - q^214 - 
        2*q^224 + q^234 - q^240 + 3*q^254 + 2*q^256 - q^264 + O(q^266),
    q^5 + q^19 - q^21 + q^29 + q^35 - q^45 - q^51 + q^61 + q^85 - 2*q^91 - q^99 
        - 2*q^101 - 2*q^109 - q^125 + q^131 - 2*q^139 + q^149 + q^165 + 2*q^179 
        - 2*q^181 + q^189 + q^211 + 2*q^219 + 2*q^221 + q^245 - q^259 + 
        O(q^266),
    q^6 + q^18 + q^22 + q^24 - 3*q^28 - q^30 + 2*q^32 - 2*q^40 - q^44 + 2*q^50 -
        q^54 - q^62 + q^68 + q^72 + q^74 + q^76 - q^84 - q^88 - q^90 + q^96 - 
        q^98 + q^106 + q^110 - q^112 + q^116 - q^120 + 2*q^128 - q^132 - 2*q^134
        + q^140 - 3*q^142 + q^150 + q^154 - 2*q^160 - 2*q^162 - q^176 - q^178 - 
        2*q^182 - q^186 - q^198 + 2*q^200 - q^204 + 2*q^208 - q^216 + q^220 + 
        q^222 + q^228 + 3*q^238 + 2*q^242 + q^244 - q^248 - 2*q^250 + 2*q^252 - 
        2*q^260 + O(q^266),
    q^7 + 1/2*q^33 - 1/2*q^55 - 1/2*q^57 - 1/2*q^63 + 1/2*q^65 - 3/2*q^73 - 
        1/2*q^87 + 1/2*q^95 - 1/2*q^105 - 1/2*q^127 + 1/2*q^143 + 1/2*q^145 + 
        1/2*q^153 - 1/2*q^183 + q^193 - 1/2*q^215 - 1/2*q^217 + q^233 - 
        1/2*q^255 + O(q^266),
    q^8 + q^18 - 2*q^28 - q^30 + 2*q^32 - q^40 + 2*q^50 + q^52 - q^62 - q^88 - 
        q^98 + q^110 - q^120 + q^128 - q^132 - q^140 - 3*q^142 - 2*q^162 - q^172
        - q^178 + q^200 + q^208 + q^220 + q^222 + q^228 + 3*q^238 + 2*q^242 - 
        q^248 + q^252 - q^260 + O(q^266),
    q^9 - q^15 + 2*q^25 - q^31 - q^49 + q^55 - 3*q^71 - 2*q^81 - q^89 + q^111 + 
        3*q^119 + 2*q^121 + q^135 + q^159 + 2*q^169 - q^185 + 2*q^191 - 3*q^199 
        - 2*q^201 - q^209 - q^225 + q^231 - q^265 + O(q^266),
    q^10 + q^18 + q^22 - 3*q^28 - q^30 + 2*q^32 - q^40 + 2*q^50 - q^62 + q^68 + 
        q^72 - q^88 - q^90 - q^98 + q^110 - q^112 - q^120 + 2*q^128 - q^132 - 
        3*q^142 - q^160 - 2*q^162 - q^178 - 2*q^182 - q^198 + 2*q^200 + 2*q^208 
        + q^220 + q^222 + q^228 + 3*q^238 + 2*q^242 - q^248 - q^250 + 2*q^252 - 
        2*q^260 + O(q^266),
    q^11 - q^19 + q^21 - q^29 - q^35 + q^51 - q^61 - q^85 + 2*q^101 + 2*q^109 - 
        q^131 + 2*q^139 - q^149 - q^165 - q^189 - q^211 - 2*q^219 + q^259 + 
        O(q^266),
    q^12 - q^20 - q^22 + q^38 - q^42 + q^48 + q^58 + q^70 - q^80 - q^88 - q^102 
        - q^108 + q^122 + q^148 + q^152 - q^168 + q^170 + q^192 - 2*q^202 + 
        q^212 - 2*q^218 + q^232 + q^262 + O(q^266),
    q^13 - q^35 - q^43 - q^77 + q^83 + q^85 + q^107 - q^117 - q^173 + q^187 + 
        q^197 + q^227 + O(q^266),
    q^14 - q^20 + 2*q^26 + q^34 - q^36 - q^44 + 3*q^56 + q^60 - 2*q^64 + q^66 - 
        2*q^70 + q^80 - 2*q^86 - 2*q^100 - q^110 - q^114 + q^124 - q^136 - q^144
        - 2*q^146 - 2*q^154 + 2*q^166 + 2*q^170 - q^174 + q^176 + q^180 + q^190 
        + q^196 - q^210 + 2*q^214 - q^220 + q^224 - 2*q^234 + q^240 - 2*q^254 - 
        2*q^256 + q^264 + O(q^266),
    q^16 - 2*q^20 + 3*q^26 + 2*q^34 - q^36 - 2*q^44 + 4*q^56 + q^60 - 2*q^64 + 
        q^66 - 3*q^70 + q^80 - 3*q^86 - 2*q^100 + q^104 - q^110 - q^114 + q^124 
        + q^126 - q^130 - 2*q^136 - 2*q^144 - q^146 - 3*q^154 + 3*q^166 + 
        3*q^170 - q^174 + q^176 + 2*q^180 + q^190 + q^196 - q^210 + 3*q^214 - 
        q^220 + 2*q^224 - 3*q^234 + q^240 - 3*q^254 - 3*q^256 + q^264 + 
        O(q^266),
    q^17 + 1/2*q^33 - 1/2*q^55 - 1/2*q^57 + 1/2*q^63 - 1/2*q^65 - 1/2*q^73 - 
        1/2*q^87 + 1/2*q^95 - 1/2*q^105 - 3/2*q^127 - 1/2*q^143 + 1/2*q^145 - 
        1/2*q^153 + q^167 + q^175 - 1/2*q^183 + 1/2*q^215 - 1/2*q^217 - 
        1/2*q^255 + q^263 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
881
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
880
);
qprec:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
881
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
176
);
qprec:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
881
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
80
);
qprec:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
881
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
55*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^16 - q^22 + q^25 + q^46 + q^58 - 2*q^67 + 2*q^79 - q^88 + q^106 - 
        q^121 - 2*q^127 - q^142 - 2*q^163 - q^169 + q^184 - q^214 + q^226 + 
        q^232 + 2*q^253 + q^256 + O(q^274),
    q^2 + q^11 - q^23 - q^29 - q^32 - q^44 + q^50 - q^53 + q^71 + q^92 + q^107 -
        q^113 + q^116 - 2*q^134 - q^137 + q^149 + 2*q^158 - q^176 + q^179 - 
        q^191 + q^197 + q^212 + q^233 + q^239 - q^242 - 2*q^254 - q^263 + 
        O(q^274),
    q^4 + q^22 - q^46 - q^58 - q^64 - q^88 + q^100 - q^106 + q^142 + q^184 + 
        q^214 - q^226 + q^232 - 2*q^268 + O(q^274),
    q^8 + q^11 - q^23 - q^29 + q^44 - q^53 + q^71 - q^92 + q^107 - q^113 - q^116
        - q^128 - q^137 + q^149 - q^176 + q^179 - q^191 + q^197 + q^200 - q^212 
        + q^233 + q^239 - q^263 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^5*q^4 + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^7 + (a^3 + a^2)*q^13 - 
        a^3*q^16 + (a^5 - a^4 + a^3 - a^2 + 2*a - 1)*q^19 - a*q^25 + a^4*q^28 + 
        (-a^5 - a^2)*q^31 + (-a^4 - 1)*q^37 + (-a^4 - a^2)*q^43 - a^5*q^49 + (-a
        - 1)*q^52 + (a^4 - 1)*q^61 + a*q^64 + (a^4 - a^3)*q^67 + (a^5 - a^4 + 
        2*a^3 - a^2 + a - 1)*q^73 + (a^5 - 2*a^4 + a^3 - a^2 + a - 1)*q^76 + 
        (-a^5 + a^2)*q^79 + (a^2 + a)*q^91 + (-a^5 + a^4 - a^3 + a^2 - 2*a + 
        1)*q^97 + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^100 + (a^5 - a^3)*q^103 + 
        (a^3 - a^2)*q^109 - a^2*q^112 + a^5*q^121 + (a^3 + 1)*q^124 + (-a^3 - 
        a)*q^127 + (a^5 + 1)*q^133 + (a + 1)*q^139 + (-a^5 + a^2)*q^148 + (-a^5 
        - a^3 + a^2 - a + 1)*q^151 + (-a^5 + a^4 - a^3 + a^2 - a + 2)*q^157 + 
        (a^5 - a^4 + a^3 - a^2 + a)*q^163 + (2*a^5 + a^3 - a^2 + a - 1)*q^169 + 
        (a^2 + 1)*q^172 - q^175 + (a^5 + a^4)*q^181 + (a - 1)*q^193 + a^3*q^196 
        + (a^5 - a^3)*q^199 + (-2*a^5 + a^4 - a^3 + a^2 - a + 1)*q^208 + (-a^5 +
        a^4 + a^2 - a + 1)*q^211 + (-a^4 - a)*q^217 + (-a^3 - 1)*q^223 + (-a^4 +
        a^2)*q^229 + (a^2 + a)*q^241 + (-a^5 - a^2)*q^244 + (a^4 + a^3 - a^2 - 
        a)*q^247 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^256 + (a^5 - a^4 - a^2 + a 
        - 1)*q^259 + (-a^2 + a)*q^268 + (-a^2 - a)*q^271 + O(q^274),
    q^2 + a^5*q^8 + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^14 + (a^3 + a^2)*q^26 - 
        a^3*q^32 + (a^5 - a^4 + a^3 - a^2 + 2*a - 1)*q^38 - a*q^50 + a^4*q^56 + 
        (-a^5 - a^2)*q^62 + (-a^4 - 1)*q^74 + (-a^4 - a^2)*q^86 - a^5*q^98 + (-a
        - 1)*q^104 + (a^4 - 1)*q^122 + a*q^128 + (a^4 - a^3)*q^134 + (a^5 - a^4 
        + 2*a^3 - a^2 + a - 1)*q^146 + (a^5 - 2*a^4 + a^3 - a^2 + a - 1)*q^152 +
        (-a^5 + a^2)*q^158 + (a^2 + a)*q^182 + (-a^5 + a^4 - a^3 + a^2 - 2*a + 
        1)*q^194 + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^200 + (a^5 - a^3)*q^206 + 
        (a^3 - a^2)*q^218 - a^2*q^224 + a^5*q^242 + (a^3 + 1)*q^248 + (-a^3 - 
        a)*q^254 + (a^5 + 1)*q^266 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^3*q^4 - a^5*q^7 + (a^5 + a^3 - a^2 + a - 1)*q^13 + (a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^16 + (-a^5 + a^2)*q^19 + a^2*q^25 - a*q^28 + (a^4 - 
        a^3)*q^31 + (-a + 1)*q^37 + (a^4 - a)*q^43 - a^3*q^49 + (a^2 + 1)*q^52 +
        (-a + 1)*q^61 + a^2*q^64 + (a^5 - a^4 + a^3 - a^2 - 1)*q^67 + (-a^4 + 
        a^3 - a^2 + a - 1)*q^73 + (-a^5 - a)*q^76 + (a^4 - a^3)*q^79 + (a^4 + 
        a^2)*q^91 + (-a^5 + a^2)*q^97 - a^5*q^100 + (a^5 - a^4 - a^2 + a - 
        1)*q^103 + (a^5 + a^3 - a^2 + a - 1)*q^109 + a^4*q^112 - a^3*q^121 + 
        (a^5 - a^4 + a^3 - a^2 + a)*q^124 + (a^5 - a^4 + a^3 + a - 1)*q^127 + 
        (-a^3 + 1)*q^133 + (a^2 + 1)*q^139 + (a^4 - a^3)*q^148 + (-a^5 - 
        a)*q^151 + (-a^5 + 1)*q^157 + (-a^5 + 1)*q^163 + (-a^5 - a^3 - a)*q^169 
        + (a^4 + 1)*q^172 + q^175 + (-a^3 - a)*q^181 + (a^2 + 1)*q^193 + (a^5 - 
        a^4 + a^3 - a^2 + a - 1)*q^196 + (a^5 - a^4 - a^2 + a - 1)*q^199 + (-a^5
        - a^3)*q^208 + (-a^4 + a^3 - a^2 + a - 1)*q^211 + (a^2 - a)*q^217 + (a^5
        - a^4 + a^3 - a^2 + a)*q^223 + (a^4 - a)*q^229 + (a^4 + a^2)*q^241 + 
        (a^4 - a^3)*q^244 + (a^5 + a^3 - 1)*q^247 - a^5*q^256 + (-a^4 + a^3 - 
        a^2 + a - 1)*q^259 + (a^4 + a^2)*q^268 + (a^4 + a^2)*q^271 + O(q^274),
    q^2 - a^3*q^8 - a^5*q^14 + (a^5 + a^3 - a^2 + a - 1)*q^26 + (a^5 - a^4 + a^3
        - a^2 + a - 1)*q^32 + (-a^5 + a^2)*q^38 + a^2*q^50 - a*q^56 + (a^4 - 
        a^3)*q^62 + (-a + 1)*q^74 + (a^4 - a)*q^86 - a^3*q^98 + (a^2 + 1)*q^104 
        + (-a + 1)*q^122 + a^2*q^128 + (a^5 - a^4 + a^3 - a^2 - 1)*q^134 + (-a^4
        + a^3 - a^2 + a - 1)*q^146 + (-a^5 - a)*q^152 + (a^4 - a^3)*q^158 + (a^4
        + a^2)*q^182 + (-a^5 + a^2)*q^194 - a^5*q^200 + (a^5 - a^4 - a^2 + a - 
        1)*q^206 + (a^5 + a^3 - a^2 + a - 1)*q^218 + a^4*q^224 - a^3*q^242 + 
        (a^5 - a^4 + a^3 - a^2 + a)*q^248 + (a^5 - a^4 + a^3 + a - 1)*q^254 + 
        (-a^3 + 1)*q^266 + O(q^274),
    q^3 - a*q^9 - a^3*q^12 - a^5*q^21 + a^2*q^27 + a^4*q^36 + (a^5 + a^3 - a^2 +
        a - 1)*q^39 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^48 + (-a^5 + a^2)*q^57 +
        (a^5 - a^4 + a^3 - a^2 + a - 1)*q^63 + a^2*q^75 - a^3*q^81 - a*q^84 + 
        (a^4 - a^3)*q^93 - a^5*q^108 + (-a + 1)*q^111 + (-a^5 + 1)*q^117 + (a^4 
        - a)*q^129 + q^144 - a^3*q^147 + (a^2 + 1)*q^156 + (a^5 - a^4 - a^2 + a 
        - 1)*q^171 + (-a + 1)*q^183 + q^189 + a^2*q^192 + (a^5 - a^4 + a^3 - a^2
        - 1)*q^201 + (-a^4 + a^3 - a^2 + a - 1)*q^219 - a^3*q^225 + (-a^5 - 
        a)*q^228 + (a^4 - a^3)*q^237 + a^4*q^243 + a^2*q^252 + (a^4 + a^2)*q^273
        + O(q^274),
    q^6 - a*q^18 - a^3*q^24 - a^5*q^42 + a^2*q^54 + a^4*q^72 + (a^5 + a^3 - a^2 
        + a - 1)*q^78 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^96 + (-a^5 + 
        a^2)*q^114 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^126 + a^2*q^150 - 
        a^3*q^162 - a*q^168 + (a^4 - a^3)*q^186 - a^5*q^216 + (-a + 1)*q^222 + 
        (-a^5 + 1)*q^234 + (a^4 - a)*q^258 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^4 - a*q^16 + (a - 1)*q^25 + 2*a*q^37 - 2*q^43 - q^64 + (2*a -
        2)*q^67 - 2*a*q^79 + a*q^100 + (-2*a + 2)*q^109 + a*q^121 + 2*q^127 + 
        2*q^148 + (-2*a + 2)*q^151 - 2*a*q^163 + q^169 + (2*a - 2)*q^172 + (-2*a
        + 2)*q^193 - 2*q^211 + (a - 1)*q^256 + 2*a*q^268 + O(q^274),
    q^2 + (-a + 1)*q^8 - a*q^32 + (a - 1)*q^50 + 2*a*q^74 - 2*q^86 - q^128 + 
        (2*a - 2)*q^134 - 2*a*q^158 + a*q^200 + (-2*a + 2)*q^218 + a*q^242 + 
        2*q^254 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^16 - q^22 - a*q^25 - a*q^46 + (a - 1)*q^58 + 2*a*q^67 + (2*a 
        - 2)*q^79 + a*q^88 + q^106 + (-a + 1)*q^121 - 2*q^127 + (-a + 1)*q^142 +
        (-2*a + 2)*q^163 - q^169 + (a - 1)*q^184 + a*q^214 + (a - 1)*q^226 + 
        q^232 + 2*q^253 - a*q^256 + O(q^274),
    q^2 + (a - 1)*q^11 - q^23 + a*q^29 + (-a + 1)*q^32 - q^44 - a*q^50 + (-a + 
        1)*q^53 - a*q^71 - a*q^92 + q^107 + a*q^113 + (a - 1)*q^116 + 2*a*q^134 
        + (-a + 1)*q^137 + q^149 + (2*a - 2)*q^158 + a*q^176 + (a - 1)*q^179 - 
        q^191 - a*q^197 + q^212 + q^233 - a*q^239 + (-a + 1)*q^242 - 2*q^254 + 
        (-a + 1)*q^263 + O(q^274),
    q^4 + (a - 1)*q^22 - q^46 + a*q^58 + (-a + 1)*q^64 - q^88 - a*q^100 + (-a + 
        1)*q^106 - a*q^142 - a*q^184 + q^214 + a*q^226 + (a - 1)*q^232 + 
        2*a*q^268 + O(q^274),
    q^8 - a*q^11 + (-a + 1)*q^23 - q^29 + (a - 1)*q^44 + a*q^53 + q^71 - q^92 + 
        (a - 1)*q^107 - q^113 + a*q^116 + (-a + 1)*q^128 + a*q^137 + (a - 
        1)*q^149 - q^176 - a*q^179 + (-a + 1)*q^191 + q^197 - a*q^200 + (-a + 
        1)*q^212 + (a - 1)*q^233 + q^239 + a*q^263 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 + q^16 + q^25 - 2*q^37 - 2*q^43 - q^64 + 2*q^67 + 2*q^79 - q^100 - 
        2*q^109 - q^121 + 2*q^127 + 2*q^148 - 2*q^151 + 2*q^163 + q^169 + 
        2*q^172 - 2*q^193 - 2*q^211 + q^256 - 2*q^268 + O(q^274),
    q^2 - q^8 + q^32 + q^50 - 2*q^74 - 2*q^86 - q^128 + 2*q^134 + 2*q^158 - 
        q^200 - 2*q^218 - q^242 + 2*q^254 + O(q^274),
    q^7 - q^28 - q^49 + q^112 + q^175 + q^196 - 2*q^259 + O(q^274),
    q^14 - q^56 - q^98 + q^224 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
882
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
883
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
882
);
qprec:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
883
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
294
);
qprec:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
883
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
883
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
98
);
qprec:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
883
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
883
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
49*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
883
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
63*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
883
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
147*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
883
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
441*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^13 + q^16 - q^17 + q^25 - q^29 - q^31 + q^36 + q^49 - q^52
        + q^64 - q^67 - q^68 - q^71 - q^79 + q^81 - q^83 + q^100 - q^116 - q^117
        + q^121 - q^124 - q^131 - q^137 + q^144 + O(q^147)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 + (a - 1)*q^4 - q^5 + q^8 + (a - 1)*q^9 + a*q^10 - a*q^13 - a*q^16
        + q^18 + (-a + 1)*q^20 + (a - 1)*q^26 + a*q^29 + (a - 1)*q^32 - a*q^36 +
        a*q^37 - q^40 + a*q^41 + (-a + 1)*q^45 - a*q^49 + q^52 - q^53 + (-a + 
        1)*q^58 + (-a + 1)*q^61 + q^64 + a*q^65 + (a - 1)*q^72 - q^73 + (-a + 
        1)*q^74 + a*q^80 - a*q^81 + (-a + 1)*q^82 - 2*a*q^89 - q^90 + (2*a - 
        2)*q^97 + (a - 1)*q^98 + a*q^101 - a*q^104 + a*q^106 + 2*q^109 + (-a + 
        1)*q^113 - q^116 + q^117 + (a - 1)*q^121 - q^122 + q^125 - a*q^128 + (-a
        + 1)*q^130 + (-a + 1)*q^137 + q^144 - a*q^145 + a*q^146 - q^148 + (-a + 
        1)*q^149 - q^157 + (-a + 1)*q^160 + (a - 1)*q^162 - q^164 + (a - 
        1)*q^169 + (2*a - 2)*q^173 + (2*a - 2)*q^178 + a*q^180 - q^181 - a*q^185
        + a*q^193 + 2*q^194 + q^196 - 2*a*q^197 + (-a + 1)*q^202 - a*q^205 + (a 
        - 1)*q^208 + (-a + 1)*q^212 - 2*a*q^218 - q^226 + 2*q^229 + a*q^232 + 
        2*q^233 - a*q^234 + (-a + 1)*q^241 + O(q^242),
    q^17 - a*q^34 + (a - 1)*q^68 - q^85 + q^136 + (a - 1)*q^153 + a*q^170 - 
        a*q^221 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^15 + a^7)*q^2 + (-a^14 + a^6)*q^4 + (a^14 - a^13)*q^5 + (-a^13 + 
        a^5)*q^8 + (a^11 - a^3)*q^9 + (a^13 - a^12)*q^10 + (-a^9 + a)*q^13 + 
        (-a^12 + a^4)*q^16 + a^6*q^17 + (a^10 - a^2)*q^18 + (a^12 - a^11)*q^20 +
        (-a^4 + a^3 - a^2)*q^25 + (-a^8 + 1)*q^26 + (-a^7 - 1)*q^29 + (-a^11 + 
        a^3)*q^32 + a^5*q^34 + (a^9 - a)*q^36 + (a^14 + a^9 - a^6)*q^37 + (a^11 
        - a^10)*q^40 + (a^13 + a^8 - a^5 - 1)*q^41 + (-a^9 + a^8)*q^45 - 
        a^5*q^49 + (-a^3 + a^2 - a)*q^50 - a^15*q^52 + (a^10 - a^8)*q^53 + (a^15
        - a^7 - a^6)*q^58 + (-a^15 + a^2)*q^61 + (-a^10 + a^2)*q^64 + (a^7 - 
        a^6)*q^65 + a^4*q^68 + (a^8 - 1)*q^72 + (a^15 - a^7 + a^4)*q^73 + (a^13 
        + a^8 - a^5)*q^74 + (a^10 - a^9)*q^80 - a^14*q^81 + (a^15 + a^12 - 
        a^4)*q^82 + (a^12 - a^11 - a^4 + a^3)*q^85 + (a^11 + a^5)*q^89 + (-a^8 +
        a^7)*q^90 + (-a^10 - a)*q^97 - a^4*q^98 + (-a^2 + a - 1)*q^100 + (a^15 +
        a)*q^101 - a^14*q^104 + (a^9 - a^7)*q^106 + (-a^10 - a^3 + a^2)*q^109 + 
        (-a^11 + a^10 - a^2)*q^113 + (a^14 - a^6 - a^5)*q^116 + a^12*q^117 + 
        a*q^121 + (-a^14 + a)*q^122 + (a^15 - a^10 + a^9 - a^8 + a^2 - a + 
        1)*q^125 + (-a^9 + a)*q^128 + (a^6 - a^5)*q^130 + a^3*q^136 + (a^9 - a^3
        - a)*q^137 + a^15*q^144 + (-a^14 + a^12 + a^5 - a^4)*q^145 + (a^14 - a^6
        + a^3)*q^146 + (a^12 + a^7 - a^4)*q^148 + (-2*a^12 + a^4)*q^149 - 
        a*q^153 + (-a^12 - a^8 + a^4 + 1)*q^157 + (a^9 - a^8)*q^160 - a^13*q^162
        + (a^14 + a^11 - a^3)*q^164 - a^10*q^169 + (a^11 - a^10 - a^3 + 
        a^2)*q^170 + (a^7 + a^4)*q^173 + (a^10 + a^4)*q^178 + (-a^7 + a^6)*q^180
        + (-a^15 - a^14 + a^7 + a^6)*q^181 + (a^15 - a^14 - a^12 + a^11 - a^7 + 
        a^6)*q^185 + (a^13 + a^12)*q^193 + (-a^9 - 1)*q^194 - a^3*q^196 + (-a^8 
        - a^5)*q^197 + (a^15 - a^7 - a + 1)*q^200 + (a^14 + 1)*q^202 + (-a^11 + 
        a^10 - a^6 + a^5)*q^205 - a^13*q^208 + (a^8 - a^6)*q^212 + (-a^9 - a^2 +
        a)*q^218 + (-a^15 + a^7)*q^221 + (-a^15 + a^14 - a^13 + a^7 - a^6 + 
        a^5)*q^225 + (-a^10 + a^9 - a)*q^226 + (a^13 - a^5 - a^4)*q^232 + (-a^13
        + a^10 + a^5 - a^2)*q^233 + a^11*q^234 + (-a^15 + a^8)*q^241 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + a^2*q^4 + (-a^6 - a^3)*q^5 - a^3*q^8 + a*q^9 + (a^7 + a^4)*q^10 
        + a*q^13 + a^4*q^16 - a^2*q^17 - a^2*q^18 + (-a^5 + 1)*q^20 + (a^6 - a^4
        - a)*q^25 - a^2*q^26 + (a^5 - 1)*q^29 - a^5*q^32 + a^3*q^34 + a^3*q^36 +
        (-a^7 - a^6)*q^37 + (a^6 - a)*q^40 + (a^4 - a^3)*q^41 + (-a^7 - 
        a^4)*q^45 + a^7*q^49 + (-a^7 + a^5 + a^2)*q^50 + a^3*q^52 + (-a^6 + 
        1)*q^53 + (-a^6 + a)*q^58 + (a^6 - a^5)*q^61 + a^6*q^64 + (-a^7 - 
        a^4)*q^65 - a^4*q^68 - a^4*q^72 + (-a - 1)*q^73 + (a^7 - 1)*q^74 + (-a^7
        + a^2)*q^80 + a^2*q^81 + (-a^5 + a^4)*q^82 + (a^5 - 1)*q^85 + (a^5 + 
        a^3)*q^89 + (a^5 - 1)*q^90 + (a^7 - a^2)*q^97 + q^98 + (-a^6 - a^3 - 
        1)*q^100 + (-a^5 + a^3)*q^101 - a^4*q^104 + (a^7 - a)*q^106 + (-a^5 + 
        a^2)*q^109 + (a^6 + a)*q^113 + (a^7 - a^2)*q^116 + a^2*q^117 + a^3*q^121
        + (-a^7 + a^6)*q^122 + (a^7 + a^4 - a^2 + a)*q^125 - a^7*q^128 + (a^5 - 
        1)*q^130 + a^5*q^136 + (a^7 + a^5)*q^137 + a^5*q^144 + (a^6 + 2*a^3 + 
        1)*q^145 + (a^2 + a)*q^146 + (a + 1)*q^148 - a^3*q^153 + (a^4 - 1)*q^157
        + (-a^3 - 1)*q^160 - a^3*q^162 + (a^6 - a^5)*q^164 + a^2*q^169 + (-a^6 +
        a)*q^170 + (a^5 + a^4)*q^173 + (-a^6 - a^4)*q^178 + (-a^6 + a)*q^180 + 
        (-a^5 + a^2)*q^181 + (-a^5 - a^4 - a^2 - a)*q^185 + (-a^3 + 1)*q^193 + 
        (a^3 + 1)*q^194 - a*q^196 + (a^4 + a^3)*q^197 + (a^7 + a^4 + a)*q^200 + 
        (a^6 - a^4)*q^202 + (-a^7 + a^6 + a^2 - a)*q^205 + a^5*q^208 + (a^2 + 
        1)*q^212 + (a^6 - a^3)*q^218 - a^3*q^221 + (a^7 - a^5 - a^2)*q^225 + 
        (-a^7 - a^2)*q^226 + (a^3 + 1)*q^232 + (a^7 - a^6)*q^233 - a^3*q^234 + 
        (a^4 - a)*q^241 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 7*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^11*q^2 + (a^14 - a^6)*q^4 + (a^10 + a^9 - a)*q^5 - a^9*q^8 + (a^11 - 
        a^3)*q^9 + (a^13 - a^5 - a^4)*q^10 - a^11*q^13 + (-a^12 + a^4)*q^16 + 
        a^14*q^17 - a^6*q^18 + (-a^15 - a^8)*q^20 + (a^12 - a^10 - a^4 - 
        a^3)*q^25 + (-a^14 + a^6)*q^26 + (a^15 - a^8 + 1)*q^29 + a^7*q^32 - 
        a*q^34 + (-a^9 + a)*q^36 + (a^13 - a^10 + a^2)*q^37 + (-a^11 + a^3 + 
        a^2)*q^40 + (a^12 + a)*q^41 + (-a^12 - a^5)*q^45 + a^5*q^49 + (-a^14 - 
        a^13 - a^7 + a^5)*q^50 + a^9*q^52 + (a^8 - a^2 - 1)*q^53 + (a^3 - 
        a^2)*q^58 + (a^15 + a^10 - a^7 - a^2)*q^61 + (a^10 - a^2)*q^64 + (-a^13 
        + a^5 + a^4)*q^65 - a^12*q^68 + a^4*q^72 + (-a^11 + a^8 + a^3)*q^73 + 
        (a^5 - 1)*q^74 + (a^13 + a^6)*q^80 - a^14*q^81 + (a^15 + a^12 - 
        a^7)*q^82 + (-a^7 - 1)*q^85 + (-a^15 - a^9 + a^7 + a)*q^89 + (-a^15 - 
        a^8 + a^7 + 1)*q^90 + (-a^14 - a^13 + a^6)*q^97 + (a^8 - 1)*q^98 + 
        (-a^10 + a^8 + a^2 + a)*q^100 + (a^9 + a^7)*q^101 + (a^12 - a^4)*q^104 +
        (-a^13 - a^3)*q^106 + (-a^15 + a^6)*q^109 + (a^3 + a^2)*q^113 + (a^14 - 
        a^13)*q^116 + a^6*q^117 - a*q^121 + (-a^10 - a^5)*q^122 + (-a^13 - a^12 
        - a^6 + a^4 + a^3)*q^125 - a^5*q^128 + (a^15 + a^8)*q^130 + (-a^15 + 
        a^7)*q^136 + (-a^15 + a^13 + a^7 - a^5)*q^137 + a^15*q^144 + (a^9 - a^8 
        + a^2 - a)*q^145 + (a^11 + a^6 - a^3)*q^146 + (-a^11 + a^8 - 1)*q^148 + 
        (-a^8 - 1)*q^149 - a^9*q^153 + (a^8 - a^4)*q^157 + (a^9 - a - 1)*q^160 +
        a*q^162 + (a^15 - a^10 - a^7)*q^164 + (a^14 - a^6)*q^169 + (-a^11 - a^10
        + a^2)*q^170 + (-a^7 - a^4)*q^173 + (a^10 + a^4)*q^178 + (a^10 + 
        a^3)*q^180 + (-a^14 + a^7)*q^181 + (a^15 + a^11 - a^7 - a^6 + a^4)*q^185
        + (-a^9 + a^8 - 1)*q^193 + (a^9 + 1)*q^194 - a^3*q^196 + (-a^12 - a^9 + 
        a^4 + a)*q^197 + (a^12 + a^11 + a^5 - a^3)*q^200 + (a^12 + a^10 - a^4 - 
        a^2)*q^202 + (a^14 + a^11 + a^10 - a^6 - a^5 - a^2)*q^205 - a^7*q^208 + 
        (-a^14 + 1)*q^212 + (a^9 + a^2 - a)*q^218 + a*q^221 + (-a^15 - a^14 + 
        a^6 + a^5)*q^225 + (a^14 + a^13)*q^226 + (-a + 1)*q^232 + (a^13 - a^10 -
        a^5 + a^2)*q^233 + (a^9 - a)*q^234 + (a^12 + a^11)*q^241 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 9*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^5*q^2 - a^2*q^4 + (a^7 - a^2)*q^5 - a^7*q^8 + a*q^9 + (-a^7 - 
        a^4)*q^10 + a^3*q^13 + a^4*q^16 + a^2*q^17 + a^6*q^18 + (a^4 + a)*q^20 +
        (-a^6 + a^4 + a)*q^25 - q^26 + (a^5 - 1)*q^29 - a*q^32 + a^7*q^34 - 
        a^3*q^36 + (a^3 + a^2)*q^37 + (a^6 - a)*q^40 + (a^7 + 1)*q^41 + (-a^3 - 
        1)*q^45 - a^7*q^49 + (a^6 + a^3 - a)*q^50 - a^5*q^52 + (-a^6 + 1)*q^53 +
        (-a^5 - a^2)*q^58 + (a^6 - a^5)*q^61 - a^6*q^64 + (-a^5 - a^2)*q^65 - 
        a^4*q^68 + q^72 + (-a^5 - a^4)*q^73 + (a^7 - 1)*q^74 + (-a^6 - a^3)*q^80
        + a^2*q^81 + (a^5 - a^4)*q^82 + (-a^4 - a)*q^85 + (a^7 - a)*q^89 + (-a^5
        + 1)*q^90 + (a^6 + a^3)*q^97 + a^4*q^98 + (-a^6 - a^3 - 1)*q^100 + (a^5 
        - a^3)*q^101 + a^2*q^104 + (a^5 + a^3)*q^106 + (-a^6 - a)*q^109 + (a^6 +
        a)*q^113 + (-a^7 + a^2)*q^116 + a^4*q^117 - a^3*q^121 + (-a^3 + 
        a^2)*q^122 + (-a^6 + a^5 - a^3 - 1)*q^125 + a^3*q^128 + (-a^7 + 
        a^2)*q^130 + a*q^136 + (-a^3 - a)*q^137 + a^5*q^144 + (-2*a^7 - a^4 + 
        a^2)*q^145 + (a^2 + a)*q^146 + (-a^5 - a^4)*q^148 + a^3*q^153 + (a^4 - 
        1)*q^157 + (a^3 + 1)*q^160 + a^7*q^162 + (-a^2 + a)*q^164 + a^6*q^169 + 
        (-a^6 + a)*q^170 + (-a^5 - a^4)*q^173 + (-a^6 - a^4)*q^178 + (a^5 + 
        a^2)*q^180 + (a^5 - a^2)*q^181 + (-a^5 - a^4 - a^2 - a)*q^185 + (-a^7 + 
        a^4)*q^193 + (-a^3 - 1)*q^194 - a*q^196 + (-a^7 + 1)*q^197 + (-a^5 + a^3
        + 1)*q^200 + (-a^2 + 1)*q^202 + (a^7 - a^6 - a^2 + a)*q^205 + a^7*q^208 
        + (-a^2 - 1)*q^212 + (-a^6 + a^3)*q^218 + a^5*q^221 + (-a^7 + a^5 + 
        a^2)*q^225 + (a^6 - a^3)*q^226 + (a^7 + a^4)*q^232 + (-a^7 + a^6)*q^233 
        - a*q^234 + (-a^5 - 1)*q^241 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^6 + a^2)*q^4 + 1/2*(a^6 - a^5 - 2*a^2 - a)*q^5 - a^7*q^9 + 1/2*(-a^5
        + a^4 - 1)*q^10 + 1/2*(a^7 - a^5 - a^3)*q^13 + (-a^4 + 1)*q^16 + 
        1/2*(a^6 - a^2)*q^17 + 1/2*(a^7 + a^4 - 2*a^3 - 2)*q^20 + 1/2*(a^6 + 
        2*a^3 + 1)*q^25 + 1/2*(-a^6 - a^4 + a^2)*q^26 + 1/2*(a^7 - a^4 - a^3 + 
        1)*q^29 + 1/2*(a^5 + a)*q^34 - a^5*q^36 + 1/2*(-2*a^6 + a^5 + a^2 - 
        2*a)*q^37 + 1/2*(a^6 - a^3)*q^40 + 1/2*(-a^5 - a^4 + 2*a - 1)*q^41 + 
        1/2*(2*a^5 + a^4 - a - 2)*q^45 + a^5*q^49 + 1/2*(a^7 - a^5 + a^3 + 
        2*a)*q^50 + 1/2*(a^5 - a^3 - a)*q^52 + 1/2*(a^6 - 1)*q^53 + 1/2*(-a^7 + 
        a^6 + 2*a^3 + a^2)*q^58 + 1/2*(-a^7 - a^6 + a^2)*q^61 - a^6*q^64 + 
        1/2*(a^7 + a^6 - a^5 + a^4 + a)*q^65 + 1/2*(a^4 - 1)*q^68 + 1/2*(-2*a^7 
        + 2*a^4 + a^3 - 1)*q^73 + 1/2*(a^4 + a)*q^74 + 1/2*(2*a^6 + a^5 - a^2 - 
        2*a)*q^80 - a^2*q^81 + 1/2*(-a^7 - a^4)*q^82 + 1/2*(-a^4 + 2)*q^85 + 
        1/2*(a^3 - 1)*q^90 + 1/2*(-a^6 + a^4 + a^2 + 2*a)*q^100 + 1/2*(a^7 + a^5
        - a^3)*q^101 + 1/2*(-a^4 - a^2 + 1)*q^104 + 1/2*(a^7 + a^5 + a^3 - 
        2*a)*q^106 + 1/2*(a^7 - a^6 + a^2)*q^113 + 1/2*(-a^6 + a^5 - a)*q^116 + 
        1/2*(a^6 - 1)*q^117 + a*q^121 + 1/2*(a^6 + a^5 - 2*a^2 + a)*q^122 + 
        1/2*(-a^5 - 2*a^4 - a + 1)*q^125 + 1/2*(a^6 + a^5 + a^4 - a^3 - 1)*q^130
        + 1/2*(-a^7 + 2*a^3)*q^136 + 1/2*(-a^7 - 2*a^5 + 2*a^3 + a)*q^137 - 
        a^3*q^144 + 1/2*(-a^7 + a^3 + a^2)*q^146 + 1/2*(2*a^7 - 2*a^4 - a^3 + 
        1)*q^148 + 1/2*a^5*q^153 + 1/2*(a^4 - a)*q^160 + 1/2*(-2*a^7 + a^6 + a^3
        - 2*a^2)*q^164 + 1/2*(-2*a^6 - a^3)*q^170 + (a^7 + a^4)*q^173 + (a^6 + 
        a^4 - a^2)*q^178 + 1/2*(a^7 + 2*a^6 + a^3 - a^2)*q^180 + 1/2*(-a^6 + 
        a^3)*q^181 + 1/2*(a^4 + a^2 - 1)*q^185 + 1/2*(a^5 - a^4 - 2*a - 1)*q^193
        + (a^5 - a + 1)*q^194 + a^3*q^196 + 1/2*(-2*a^7 + a^5 + a^3 + a)*q^200 +
        1/2*(-a^6 - a^4 - a^2 + 2)*q^202 + (a^7 + a^5 - a^3)*q^205 + 1/2*(a^7 - 
        a)*q^208 + 1/2*(a^6 + a^4 - a^2)*q^212 + (-a^5 + a^2)*q^218 + 1/2*(-a^7 
        + a^3 + a)*q^221 + 1/2*(-a^7 - 2*a^6 + 2*a^2 + a)*q^225 + 1/2*(a^6 - a^5
        - 2*a^2 - a)*q^226 + 1/2*(-a^5 + a^4 + 2*a + 1)*q^232 + (-a^6 - a^5 + 
        a)*q^233 + 1/2*(a^7 - a^5 - a^3)*q^234 + 1/2*(a^7 + a^4 - 2*a^3 - 
        2)*q^241 + O(q^242),
    q^2 + 1/2*(-a^7 + a^6 - a^2)*q^5 + (-a^6 + a^2)*q^8 + 1/2*(a^6 - a^5 - 2*a^2
        - a)*q^10 + 1/2*(-a^6 + 1)*q^13 + 1/2*(a^7 + a^3)*q^17 - a^7*q^18 + 
        1/2*(-a^5 + a^4 - 1)*q^20 + 1/2*(-a^7 + 2*a^5 + 2*a^3 - a)*q^25 + 
        1/2*(a^7 - a^5 - a^3)*q^26 + 1/2*(a^5 + 2*a^4 + a - 1)*q^29 + (-a^4 + 
        1)*q^32 + 1/2*(a^6 - a^2)*q^34 + 1/2*(a^6 + a^3)*q^37 + 1/2*(a^7 + a^4 -
        2*a^3 - 2)*q^40 + 1/2*(-a^6 - a^5 + a)*q^41 + 1/2*(a^5 - a^2)*q^45 + 
        1/2*(a^6 + 2*a^3 + 1)*q^50 + 1/2*(-a^6 - a^4 + a^2)*q^52 + 1/2*(a^7 + 
        2*a^5 - 2*a^3 - a)*q^53 + 1/2*(a^7 - a^4 - a^3 + 1)*q^58 + 1/2*(a^7 - 
        a^4 + a^3 - 1)*q^61 + 1/2*(a^7 + a^6 - a^5 + a^4 - a^2 - 1)*q^65 + 
        1/2*(a^5 + a)*q^68 - a^5*q^72 + 1/2*(a^4 + a)*q^73 + 1/2*(-2*a^6 + a^5 +
        a^2 - 2*a)*q^74 + 1/2*(a^6 - a^3)*q^80 + 1/2*(-a^5 - a^4 + 2*a - 1)*q^82
        + 1/2*(-a^5 - 2*a^4 + 2)*q^85 + (a^6 - 1)*q^89 + 1/2*(2*a^5 + a^4 - a - 
        2)*q^90 + (a^7 - a^3 + a^2)*q^97 + a^5*q^98 + 1/2*(a^7 - a^5 + a^3 + 
        2*a)*q^100 + 1/2*(-a^6 - 2*a^4 + 2*a^2 + 1)*q^101 + 1/2*(a^5 - a^3 - 
        a)*q^104 + 1/2*(a^6 - 1)*q^106 + (-a^7 + a^4)*q^109 + 1/2*(-a^7 - a^4 - 
        a^3 - 1)*q^113 + 1/2*(-a^7 + a^6 + 2*a^3 + a^2)*q^116 + 1/2*(-a^7 - 
        a)*q^117 + 1/2*(-a^7 - a^6 + a^2)*q^122 + 1/2*(-2*a^7 - a^6 - 2*a^4 + 
        a^2 - a)*q^125 - a^6*q^128 + 1/2*(a^7 + a^6 - a^5 + a^4 + a)*q^130 + 
        1/2*(a^4 - 1)*q^136 + 1/2*(a^4 - a^2 - 1)*q^137 + (-a^6 - a^5 - a^3 + 
        a)*q^145 + 1/2*(-2*a^7 + 2*a^4 + a^3 - 1)*q^146 + 1/2*(a^4 + a)*q^148 - 
        a^5*q^149 + 1/2*(-a^6 + 2*a^2)*q^153 + (-2*a^5 + a)*q^157 + 1/2*(2*a^6 +
        a^5 - a^2 - 2*a)*q^160 - a^2*q^162 + 1/2*(-a^7 - a^4)*q^164 + (a^7 - 
        a^3)*q^169 + 1/2*(-a^4 + 2)*q^170 + 1/2*(a^3 - 1)*q^180 + 1/2*(-a^7 - 
        a^4 + 2*a^3 + 2)*q^181 + 1/2*(-2*a^7 - a^5 + a^3 - a)*q^185 + 1/2*(-a^6 
        + a^5 - a)*q^193 + (a^6 + a^5 - a)*q^197 + 1/2*(-a^6 + a^4 + a^2 + 
        2*a)*q^200 + 1/2*(a^7 + a^5 - a^3)*q^202 + (2*a^7 - a^3)*q^205 + 
        1/2*(-a^4 - a^2 + 1)*q^208 + 1/2*(a^7 + a^5 + a^3 - 2*a)*q^212 + 
        1/2*(-a^2 + 1)*q^221 + 1/2*(-2*a^6 + a^4 + a^2 + 1)*q^225 + 1/2*(a^7 - 
        a^6 + a^2)*q^226 + (2*a^6 - 2*a^2)*q^229 + 1/2*(-a^6 + a^5 - a)*q^232 + 
        1/2*(a^6 - 1)*q^234 + 1/2*(a^5 - a^4 + 1)*q^241 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^9 + 1/2*(-a^3 - 1)*q^10 + 1/4*(a^3 - 2*a^2 + a)*q^13 + 1/2*(a + 
        1)*q^14 - q^16 + 1/2*(a^2 - 1)*q^17 + 1/2*(-a + 1)*q^22 + 1/2*(-a^2 - 
        1)*q^25 + 1/4*(a^2 + 1)*q^26 + 1/2*(-a^3 - a^2 - a + 1)*q^29 + 1/2*(a^3 
        + a)*q^38 + 1/2*(-a^2 + a)*q^40 + 1/2*(a^2 - 1)*q^49 + 1/4*(a^3 - a - 
        2)*q^52 + 1/2*(-a^2 + 1)*q^53 + 1/2*(-a^3 - a^2)*q^56 + 1/2*(a^3 - a^2 -
        a + 1)*q^61 + 1/2*(a^2 - a)*q^62 + 1/4*(-a^3 + a^2 - a - 1)*q^65 + 
        1/2*(a^2 - 1)*q^68 + 1/2*(-a^3 + 1)*q^74 + 1/2*(a^2 + 1)*q^77 + a^2*q^81
        + 1/2*(-a - 1)*q^82 + 1/2*(a^3 - a^2)*q^88 + 1/2*(-a + 1)*q^90 + 
        1/2*(2*a^3 - a^2 + 1)*q^100 + 1/4*(a^2 - 1)*q^104 + 1/2*(-a^3 + a^2 - a 
        - 1)*q^116 + 1/4*(-2*a^3 + a^2 - 1)*q^117 + 1/2*(a^3 - a)*q^118 + 
        1/2*(a^2 - 1)*q^121 + 1/2*(a^2 + a)*q^126 + 1/4*(-a^3 + a^2 - a + 
        1)*q^130 + 1/2*(a^3 - a^2 - a - 1)*q^133 + 1/2*(a^2 - 1)*q^134 + 
        1/2*(-a^3 + 1)*q^142 - a*q^144 + 1/2*(a^2 + a)*q^146 + 1/2*(-a^3 + 
        a)*q^152 + 1/2*(a^3 - a)*q^153 + 1/2*(a^3 + a)*q^157 + 1/2*(a^3 + 
        1)*q^160 - 1/2*q^169 + 1/2*(-a^2 + a)*q^170 + 1/2*(a^3 - a^2 - a - 
        1)*q^173 + 1/2*(-a^2 - 1)*q^178 + 1/2*(-a^3 - a^2)*q^182 + 1/2*(a^2 - 
        1)*q^185 + 1/2*(a^3 + 1)*q^194 + 1/2*(a^2 + 2*a + 1)*q^196 + 1/2*(-a^2 +
        a)*q^198 + 1/2*(-a^3 + a)*q^205 + 1/4*(-a^3 + 2*a^2 - a)*q^208 + 
        1/2*(a^3 + a^2 - a + 1)*q^209 + 1/2*(a^2 + 1)*q^212 + 1/2*(-a^3 - 
        a)*q^217 + 1/2*(a^3 - a^2)*q^218 + 1/4*(a^3 + 2*a^2 - a)*q^221 + 1/2*(-a
        - 1)*q^224 + 1/2*(-a^3 - a)*q^225 + 1/2*(-a^3 - a^2 + a - 1)*q^233 + 
        1/4*(a^3 + a)*q^234 + 1/2*(-a - 1)*q^238 + O(q^242),
    q^2 + (a^3 + a^2)*q^7 - a^2*q^8 + (-a^3 + a^2)*q^11 + a*q^18 + (a^3 - 
        a)*q^19 - a^2*q^26 + (a + 1)*q^28 + (-a^3 - 1)*q^31 - q^32 - q^34 + (-a 
        + 1)*q^44 - a*q^50 + (-a^3 - a^2)*q^58 + (-a^3 - a)*q^59 + (a^3 - 
        1)*q^63 + (-a^2 - 1)*q^67 + (a^2 + a)*q^71 - a^3*q^72 + (a^3 + a)*q^76 +
        (a + 1)*q^91 + (a^3 + a^2 - 1)*q^98 + (a^3 + 1)*q^99 - q^104 + (-a^3 - 
        a^2)*q^112 + (-a^3 - a^2)*q^119 + (a^3 + 1)*q^122 + (a^2 - a)*q^124 + 
        a^2*q^128 + a^2*q^136 + (-a + 1)*q^143 + 2*q^151 + (a^2 + 1)*q^154 + 
        a^2*q^162 + (a - 1)*q^163 + (-a^2 - a)*q^167 + (-a^2 - 1)*q^171 + (-a^3 
        + 1)*q^175 + (a^3 - a^2)*q^176 + (a^3 - a^2)*q^187 + a^3*q^200 + (-a^3 +
        a)*q^202 + (a^2 + 2*a + 1)*q^203 + (a^2 - a)*q^226 + (a + 1)*q^227 + (-a
        - 1)*q^232 - a^3*q^234 + (a^3 - a)*q^236 + (-a^2 - 1)*q^239 + O(q^242),
    q^4 + 1/2*(a^2 - a)*q^10 + 1/4*(-a^3 + a + 2)*q^13 + 1/2*(a^3 + a^2)*q^14 + 
        1/2*(-a^2 + 1)*q^17 + 1/2*(-a^3 + a^2)*q^22 + 1/2*(-2*a^3 + a^2 - 
        1)*q^25 + 1/4*(-a^2 + 1)*q^26 + 1/2*(a^3 - a^2 + a + 1)*q^29 + a*q^36 + 
        1/2*(a^3 - a)*q^38 + 1/2*(-a^3 - 1)*q^40 + 1/2*(-a^2 - 2*a - 1)*q^49 + 
        1/4*(a^3 - 2*a^2 + a)*q^52 + 1/2*(-a^2 - 1)*q^53 + 1/2*(a + 1)*q^56 + 
        1/2*(a^3 + a^2 - a - 1)*q^61 + 1/2*(-a^3 - 1)*q^62 - q^64 + 1/4*(a^3 + 
        a^2 - a + 1)*q^65 + 1/2*(a^2 - 1)*q^68 + 1/2*(-a^2 - a)*q^74 + 1/2*(a^2 
        - 1)*q^77 + 1/2*(a^3 + a^2)*q^82 + 1/2*(-a + 1)*q^88 + 1/2*(a^3 - 
        a^2)*q^90 + 1/2*(-a^2 - 1)*q^100 + (a^3 + a)*q^101 + 1/4*(a^2 + 1)*q^104
        + (-a^3 - 1)*q^113 + 1/2*(-a^3 - a^2 - a + 1)*q^116 + 1/4*(a^2 + 2*a + 
        1)*q^117 + 1/2*(-a^3 - a)*q^118 + 1/2*(-a^2 + 2*a - 1)*q^121 + 1/2*(a^3 
        - 1)*q^126 + 1/4*(a^3 - a^2 - a + 1)*q^130 + 1/2*(-a^3 - a^2 - a + 
        1)*q^133 + 1/2*(-a^2 - 1)*q^134 + 1/2*(a^2 + a)*q^142 + 1/2*(-a^3 + 
        1)*q^146 + 1/2*(a^3 + a)*q^152 + 1/2*(-a^3 + a)*q^153 + 1/2*(a^3 - 
        a)*q^157 + 1/2*(-a^2 + a)*q^160 - 1/2*a^2*q^169 + 1/2*(-a^3 - 1)*q^170 +
        1/2*(a^3 + a^2 - a + 1)*q^173 + 1/2*(a^2 - 1)*q^178 + (a^3 + 1)*q^181 + 
        1/2*(a + 1)*q^182 + 1/2*(a^2 + 1)*q^185 + 1/2*(-a^2 + a)*q^194 + 
        1/2*(a^2 - 1)*q^196 + 1/2*(a^3 + 1)*q^198 + 1/2*(-a^3 - a)*q^205 + 
        1/4*(a^3 - a - 2)*q^208 + 1/2*(-a^3 + a^2 - a - 1)*q^209 + 1/2*(-a^2 + 
        1)*q^212 + 1/2*(-a^3 + a)*q^217 + 1/2*(a - 1)*q^218 + 1/4*(a^3 + a - 
        2)*q^221 + 1/2*(-a^3 - a^2)*q^224 + 1/2*(a^3 - a + 2)*q^225 + 1/2*(a^3 -
        a^2 - a - 1)*q^233 + 1/4*(-a^3 + a)*q^234 + 1/2*(-a^3 - a^2)*q^238 + 
        O(q^242),
    q^5 + (a^3 + a^2 - 1)*q^7 + (-a^3 - a^2 - a + 1)*q^8 + a*q^11 + 1/2*(a^3 - 
        1)*q^13 + (-a - 1)*q^19 + a^2*q^20 + 1/2*(-2*a^3 - 2*a^2 - a + 1)*q^26 +
        (a^2 + a + 1)*q^28 - a^2*q^31 + (-a^2 - a)*q^34 + (a^3 + a^2 + a)*q^37 +
        (-a^3 - a^2 + 1)*q^41 - a^3*q^44 + a*q^45 + (-a^3 - 1)*q^50 + 1/2*(-a^2 
        - a)*q^52 + (-a^2 + 1)*q^58 + (-a^3 - a^2)*q^59 + (a^3 - a - 1)*q^63 + 
        1/2*(a^3 + a)*q^65 + (-a^2 - a)*q^67 + (a^3 + a^2 + a)*q^71 + (-a^3 - 
        a^2 + a + 1)*q^72 + (a^3 - a - 1)*q^73 + (a^3 + a^2)*q^76 - q^80 + 
        a^2*q^85 + (-a^3 + 1)*q^89 + (a^2 + a + 1)*q^91 - q^97 + (2*a^3 + a^2 - 
        a - 2)*q^98 + a^2*q^99 + 1/2*(a^3 - a^2)*q^104 + (a^3 - 1)*q^106 - 
        a^3*q^109 + (-a^3 - a^2 + 1)*q^112 + 1/2*(-a - 1)*q^117 + (-a^3 - a^2 + 
        1)*q^119 + (a^3 + 2*a^2 + a)*q^122 - q^124 + (-a^2 - 1)*q^125 + (a^3 + 
        a^2 + a - 1)*q^128 + 1/2*(a^2 + 1)*q^130 + (a^2 + a)*q^136 + (a^2 + 
        a)*q^137 - a^3*q^143 + (-a + 1)*q^145 + (a^3 - a - 1)*q^148 + (a^3 + a^2
        - a - 1)*q^149 + (-a^3 + a^2 + a + 1)*q^151 + (a^2 + a)*q^154 + 
        a^3*q^163 + (a^2 + a + 1)*q^164 + (-a^3 - a^2 - a)*q^167 + 1/2*(-a^3 - 
        a^2 - a - 1)*q^169 + (-a^2 - a)*q^171 + (-a^3 + a + 1)*q^175 - a*q^176 +
        a^3*q^180 - a*q^187 - a*q^193 + (-a^3 - a^2 + 1)*q^197 + (a^3 - 1)*q^200
        + (2*a + 2)*q^202 + (a^3 + 2*a^2 + 2*a + 1)*q^203 + 1/2*(-a^3 + 1)*q^208
        + 1/2*(-a^2 - a)*q^221 - 2*q^226 + (a^2 + a + 1)*q^227 + (a^3 + a^2 + a 
        - 1)*q^229 + (-a^2 - 2*a - 1)*q^232 + 1/2*(-2*a^3 - a^2 + a + 2)*q^234 +
        (-a - 1)*q^236 + (-a^2 - a)*q^239 - a^2*q^241 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^2 - q^4 + (-a - 1)*q^5 - a*q^8 + a*q^9 + (-a + 1)*q^10 + q^16 - q^17
        - q^18 + (a + 1)*q^20 + a*q^25 + (a + 1)*q^29 + a*q^32 - a*q^34 - a*q^36
        + (-a - 1)*q^37 + (a - 1)*q^40 + (-a + 1)*q^41 + (-a + 1)*q^45 - a*q^49 
        - q^50 + (a - 1)*q^58 + (a - 1)*q^61 - q^64 + q^68 + q^72 + (a + 1)*q^73
        + (-a + 1)*q^74 + (-a - 1)*q^80 - q^81 + (a + 1)*q^82 + (a + 1)*q^85 + 
        (a + 1)*q^90 + (-a - 1)*q^97 + q^98 - a*q^100 + (a - 1)*q^109 + (a - 
        1)*q^113 + (-a - 1)*q^116 - a*q^121 + (-a - 1)*q^122 - a*q^128 + a*q^136
        + a*q^144 - 2*a*q^145 + (a - 1)*q^146 + (a + 1)*q^148 + 2*q^149 - 
        a*q^153 + 2*q^157 + (-a + 1)*q^160 - a*q^162 + (a - 1)*q^164 - q^169 + 
        (a - 1)*q^170 + (a + 1)*q^173 + (a - 1)*q^180 + (a - 1)*q^181 + 
        2*a*q^185 + (-a + 1)*q^193 + (-a + 1)*q^194 + a*q^196 + (-a + 1)*q^197 +
        q^200 - 2*q^205 + (-a - 1)*q^218 - q^225 + (-a - 1)*q^226 - 2*a*q^229 + 
        (-a + 1)*q^232 + (-a - 1)*q^233 + (a + 1)*q^241 + O(q^242),
    q^13 + a*q^26 - q^52 + (-a - 1)*q^65 - a*q^104 + a*q^117 + (-a + 1)*q^130 + 
        q^208 - q^221 - q^234 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 + a)*q^2 + (-a^2 + 1)*q^4 - a^3*q^8 - a*q^9 + 1/3*(-a^2 + 2)*q^13 
        - a^2*q^16 + 1/2*(a^2 + a - 1)*q^17 - q^18 + 1/3*(-2*a^3 + a)*q^26 + 
        (a^3 + a^2 - a)*q^29 - a*q^32 + 1/2*(a^3 + 1)*q^34 + (a^3 - a)*q^36 + 
        (-a^3 + a^2 + a)*q^41 + (a^3 - a)*q^49 + 1/3*(-2*a^2 + 1)*q^52 + 
        a^3*q^53 + (a^2 + a - 1)*q^58 - q^64 + 1/3*(-a^3 + a^2 - a - 2)*q^65 + 
        1/2*(-a^3 + a^2 + a)*q^68 + (a^2 - 1)*q^72 + (-a^3 - 1)*q^73 + a^2*q^81 
        + (-a^2 + a + 1)*q^82 + 1/2*(-a^2 - a + 1)*q^85 + (-a^2 + a + 1)*q^97 + 
        (a^2 - 1)*q^98 - a^2*q^101 + 1/3*(-a^3 - a)*q^104 + a^2*q^106 + (a^3 - 
        1)*q^109 + (a^2 + a - 1)*q^113 + (a^3 + 1)*q^116 + 1/3*(a^3 - 2*a)*q^117
        + a*q^121 + (a^3 - 1)*q^125 + (a^3 - a)*q^128 + 1/3*(2*a^3 - a^2 - a - 
        1)*q^130 + 1/2*(-a^2 + a + 1)*q^136 + (-a^2 + 1)*q^137 + a^3*q^144 + 
        (-a^3 + a)*q^145 + (a^3 - a^2 - a)*q^146 + (-a^2 + 1)*q^149 + 1/2*(-a^3 
        - a^2 + a)*q^153 - q^157 + a*q^162 + (-a^3 + 1)*q^164 + (-a^2 + 1)*q^169
        + 1/2*(-a^3 - 1)*q^170 + (a^2 - a - 1)*q^173 + (-a^3 + a)*q^185 + (-a^3 
        + 1)*q^194 + a^3*q^196 + (a^3 - a^2 - a)*q^197 - a*q^202 - a^2*q^205 + 
        1/3*(-a^2 - 1)*q^208 + a*q^212 + (a^3 + a^2 - a)*q^218 + 1/6*(-3*a^3 + 
        2*a^2 + 6*a - 1)*q^221 + (a^3 + 1)*q^226 - 2*a^3*q^229 + (-a^3 + a^2 + 
        a)*q^232 + (-a^3 - 1)*q^233 + 1/3*(a^2 - 2)*q^234 + (-a^2 + a + 1)*q^241
        + O(q^242),
    q^5 + (-a^3 + a)*q^10 + 1/3*(a^3 + a^2 + a - 2)*q^13 + 1/2*(a^2 - a - 
        1)*q^17 + (-a^2 + 1)*q^20 + (a^3 + 1)*q^25 + 1/3*(2*a^3 + a^2 - a + 
        1)*q^26 - a^2*q^29 + 1/2*(a^3 - 1)*q^34 - a^2*q^37 - a^3*q^40 + (a^3 - 
        a)*q^41 - a*q^45 + (-a^3 + a^2 + a)*q^50 + 1/3*(-a^3 + 2*a^2 + 2*a - 
        1)*q^52 + (-a^3 - 1)*q^53 - a*q^58 + a*q^61 + 1/3*(a^2 - 2)*q^65 + 
        1/2*(a^3 + a^2 - a)*q^68 + q^73 - a*q^74 - a^2*q^80 + (a^2 - 1)*q^82 + 
        1/2*(a^2 - a - 1)*q^85 - q^90 + (-a^2 + a + 1)*q^100 + (-a^3 + a^2 + 
        a)*q^101 + 1/3*(a^3 - a^2 + a + 2)*q^104 + (a^3 - a^2 - a)*q^106 - 
        a*q^113 - q^116 + 1/3*(-a^3 - 2*a^2 + 2*a + 1)*q^117 + q^122 + a^3*q^125
        + 1/3*(2*a^3 - a)*q^130 + 1/2*(a^2 + a - 1)*q^136 + (a^2 + a - 1)*q^137 
        + (-a^3 + a)*q^146 - q^148 + 1/2*(-a^3 + a^2 + a)*q^153 - a*q^160 + 
        a^3*q^164 + 1/2*(a^3 - 1)*q^170 + (a^3 - a)*q^180 - a^3*q^181 + (-a^3 - 
        a^2 + a)*q^185 + (-a^3 + a)*q^193 + (-a^3 + 1)*q^200 + (-a^2 + a + 
        1)*q^202 + 1/3*(-2*a^3 + a^2 + a + 1)*q^208 + (a^2 - a - 1)*q^212 + 
        1/6*(a^3 - 2*a^2 - 2*a + 1)*q^221 + (-a^2 - a + 1)*q^225 - q^226 + (a^3 
        - a)*q^232 + 1/3*(-a^3 - a^2 - a + 2)*q^234 + (a^2 - 1)*q^241 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 + a*q^9 - q^13 + (a + 1)*q^14 + q^16 + q^17 + (a + 1)*q^22 + a*q^25 
        + (-a - 1)*q^29 - a*q^36 - a*q^49 + q^52 + 2*a*q^53 + (-a - 1)*q^56 + 
        (-a + 1)*q^61 + (a - 1)*q^62 - q^64 - q^68 - 2*a*q^77 - q^81 + (-a - 
        1)*q^88 - 2*a*q^94 - a*q^100 + (a - 1)*q^113 + (a + 1)*q^116 - a*q^117 -
        a*q^121 + (a - 1)*q^126 + (-a + 1)*q^142 + a*q^144 + a*q^153 + 2*q^166 +
        q^169 + (-a - 1)*q^173 + (a - 1)*q^181 + (-a - 1)*q^182 + a*q^196 + (a -
        1)*q^198 - q^208 - 2*a*q^212 + 2*q^217 - q^221 + (a + 1)*q^224 - q^225 +
        (a + 1)*q^233 + (a + 1)*q^238 + O(q^242),
    q^2 + (-a - 1)*q^7 - q^8 + (-a - 1)*q^11 + a*q^18 - q^26 + (a + 1)*q^28 + 
        (-a + 1)*q^31 + q^32 + q^34 + (a + 1)*q^44 + 2*a*q^47 + a*q^50 + (-a - 
        1)*q^58 + (-a + 1)*q^63 + (a - 1)*q^71 - a*q^72 - 2*q^83 + (a + 1)*q^91 
        - a*q^98 + (-a + 1)*q^99 + q^104 + 2*a*q^106 + (-a - 1)*q^112 + (-a - 
        1)*q^119 + (-a + 1)*q^122 + (a - 1)*q^124 - q^128 - q^136 + (a + 
        1)*q^143 + 2*q^151 - 2*a*q^154 - q^162 + (a + 1)*q^163 + (a - 1)*q^167 +
        (-a + 1)*q^175 + (-a - 1)*q^176 + (-a - 1)*q^187 - 2*a*q^188 - a*q^200 +
        2*a*q^203 - 2*q^223 + (a - 1)*q^226 + (a + 1)*q^227 + (a + 1)*q^232 - 
        a*q^234 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 + q^4 - q^8 - q^9 + q^16 + q^17 + q^18 + q^25 - q^32 - q^34 - q^36 -
        q^49 - q^50 + 2*q^53 + q^64 + q^68 + q^72 + q^81 - 2*q^89 + q^98 + q^100
        - 2*q^101 - 2*q^106 - q^121 - q^128 - q^136 - 2*q^137 - q^144 + 2*q^149 
        - q^153 + 2*q^157 - q^162 - q^169 + 2*q^178 - q^196 - q^200 + 2*q^202 + 
        2*q^212 - q^225 - 2*q^229 + O(q^242),
    q^13 - q^26 + q^52 - q^104 - q^117 - 2*q^169 + q^208 + q^221 + q^234 + 
        O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 - a*q^9 + (a - 1)*q^16 - a*q^17 + (2*a - 1)*q^18 - q^25 + (-a + 
        1)*q^26 + (-a + 2)*q^33 + (-a + 1)*q^36 + (a - 1)*q^42 + (-a + 1)*q^49 -
        q^53 - q^64 - q^66 + (-a + 1)*q^68 - a*q^69 + (a - 2)*q^72 - q^77 + (2*a
        - 2)*q^81 + (a + 1)*q^93 + (-a + 2)*q^98 - a*q^100 + q^104 + (-a + 
        2)*q^117 + a*q^121 + (a + 1)*q^132 + q^144 + (a - 1)*q^153 + (-a - 
        1)*q^154 + q^157 + (2*a - 1)*q^161 + (-a + 2)*q^162 - q^168 - q^169 + 
        a*q^178 - 2*a*q^186 + (a - 2)*q^189 + q^196 - a*q^212 + (2*a - 1)*q^213 
        + a*q^217 + a*q^225 - q^234 + (-2*a + 2)*q^237 + O(q^242),
    q^2 + a*q^8 + (a + 1)*q^9 - a*q^13 - a*q^18 + a*q^21 + (a - 1)*q^32 + (a - 
        1)*q^33 - a*q^34 + (2*a - 1)*q^36 + (-2*a + 1)*q^49 - q^50 + (-a + 
        1)*q^52 + (-a + 2)*q^66 + (-a + 1)*q^72 + (a - 2)*q^77 + (-2*a + 1)*q^81
        + (a - 1)*q^84 + q^89 - 2*q^93 + (-a + 1)*q^98 - q^106 + (a - 1)*q^117 -
        q^128 - q^132 + (-a + 1)*q^136 + (-a + 1)*q^137 - a*q^138 + (a - 
        2)*q^144 + (-2*a + 1)*q^153 - q^154 + 2*a*q^161 + (2*a - 2)*q^162 + (a +
        1)*q^186 + (-a + 2)*q^196 - a*q^200 + q^208 - a*q^213 + (a - 1)*q^221 + 
        (-a - 1)*q^225 + a*q^229 + (-a + 2)*q^234 + (2*a - 1)*q^237 + O(q^242),
    q^3 + (-a - 1)*q^7 + (2*a - 1)*q^11 + a*q^12 - 2*a*q^14 + (a - 1)*q^22 + 
        2*q^23 + (-2*a + 1)*q^28 + (a - 2)*q^44 + (a + 1)*q^46 + (a - 1)*q^48 - 
        a*q^51 + (2*a - 1)*q^54 + (-2*a + 2)*q^56 + q^62 + (-2*a + 1)*q^63 + (-a
        - 1)*q^71 - q^75 + (-a + 1)*q^78 + a*q^79 - q^88 + (2*a - 2)*q^91 + 
        2*a*q^92 - q^107 + (-a + 2)*q^112 + (2*a - 1)*q^119 + (-a + 1)*q^126 - 
        a*q^131 + (-2*a + 2)*q^139 - a*q^142 + q^143 + (-a + 1)*q^147 - q^159 + 
        (a + 1)*q^163 + (a + 1)*q^175 + (-a - 1)*q^176 + (a - 2)*q^182 + (2*a - 
        1)*q^184 + (-a + 2)*q^187 - q^192 - 2*q^198 + (a - 1)*q^199 + (-a + 
        1)*q^204 + a*q^207 + 2*q^211 + (-a - 1)*q^214 + (a - 2)*q^216 + 2*q^224 
        + (-a - 1)*q^227 - q^231 + (2*a - 2)*q^238 + O(q^242),
    q^6 - 2*q^7 + a*q^11 + (-a - 1)*q^14 + (2*a - 1)*q^22 + (-a + 2)*q^23 + 
        a*q^24 + (a + 1)*q^27 - 2*a*q^28 + (-a + 1)*q^31 - a*q^39 + (a - 1)*q^44
        + 2*q^46 + (-2*a + 1)*q^56 - a*q^63 - q^71 + (a - 2)*q^88 + (2*a - 
        1)*q^91 + (a + 1)*q^92 + (a - 1)*q^96 + (2*a - 2)*q^99 - a*q^102 + (a - 
        2)*q^107 + (2*a - 1)*q^108 + (-2*a + 2)*q^112 + 2*a*q^119 + q^124 + 
        (-2*a + 1)*q^126 + (-a - 1)*q^131 + (-2*a + 1)*q^139 + (-a - 1)*q^142 + 
        (-a + 2)*q^143 + (-2*a + 1)*q^147 - q^150 + (-a + 1)*q^156 + a*q^158 + 
        q^163 - a*q^167 + 2*q^175 - q^176 + (2*a - 2)*q^182 + 2*a*q^184 + (-a + 
        1)*q^187 + (2*a - 1)*q^199 + (a + 1)*q^207 + (-a + 2)*q^211 - q^214 + 
        (-a + 2)*q^224 - 2*q^227 + (a - 2)*q^231 + (2*a - 1)*q^238 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^4 + 1/3*(a + 1)*q^13 - a*q^16 + 1/2*(a - 1)*q^17 + q^21 + 
        1/3*(-a - 1)*q^26 + (-a + 1)*q^33 + 1/2*q^34 - a*q^50 + 1/3*(a - 2)*q^52
        - q^53 + q^64 - q^66 - 1/2*a*q^68 - q^77 + (a - 1)*q^84 + 1/2*(-a + 
        1)*q^85 + a*q^89 - a*q^101 + 1/3*(-a + 2)*q^104 + 1/3*(-a + 2)*q^117 + 
        (a - 1)*q^121 + a*q^132 + 1/2*(a - 1)*q^136 + q^138 - a*q^145 + (a - 
        1)*q^149 - 1/2*a*q^153 + a*q^154 - q^157 + (-a + 1)*q^162 + 1/3*(a + 
        1)*q^169 + 1/2*q^170 + a*q^185 + (a - 1)*q^186 + q^200 + (a - 1)*q^202 +
        a*q^205 + 1/3*(-2*a + 1)*q^208 + (-a + 1)*q^212 - q^213 + 1/6*(2*a - 
        1)*q^221 + (a - 1)*q^225 - q^229 + 1/3*(a + 1)*q^234 - a*q^237 + 
        O(q^242),
    q^2 + (a - 1)*q^8 + 1/3*(2*a - 1)*q^13 - 1/2*a*q^17 + (a - 1)*q^25 + 1/3*(a 
        + 1)*q^26 - a*q^32 + a*q^33 + 1/2*(a - 1)*q^34 + q^42 + 1/3*(-a - 
        1)*q^52 + (-a + 1)*q^66 + 1/2*q^68 - a*q^69 + (-a + 1)*q^77 - q^81 - 
        1/2*a*q^85 + q^93 - a*q^100 + q^101 + 1/3*(a - 2)*q^104 - q^106 + 
        1/3*(-2*a + 1)*q^117 - 2*a*q^121 + q^128 - q^132 - 1/2*a*q^136 + a*q^137
        - q^145 - a*q^149 - 1/2*q^153 - q^154 + (a - 1)*q^161 + (a - 1)*q^168 + 
        1/3*(2*a - 1)*q^169 + 1/2*(-a + 1)*q^170 + a*q^178 + q^185 + a*q^189 - 
        a*q^202 + q^205 + 1/3*(-a + 2)*q^208 + (-a + 1)*q^213 - a*q^217 + 
        1/6*(-5*a + 1)*q^221 + a*q^225 + 1/3*(-a + 2)*q^234 + O(q^242),
    q^3 - a*q^7 - q^11 + (a - 1)*q^12 + a*q^22 + q^28 + (-a + 1)*q^44 - a*q^46 -
        a*q^48 + (a - 1)*q^51 - q^54 + q^62 + q^63 + a*q^71 + q^75 - a*q^78 + (a
        - 1)*q^79 - q^88 - q^107 + (a - 1)*q^112 + q^119 + a*q^126 + (-a + 
        1)*q^131 + (-a + 1)*q^142 - q^143 - a*q^147 - q^159 + a*q^163 - a*q^175 
        + a*q^176 + (a - 1)*q^182 + q^184 + (-a + 1)*q^187 + q^192 + a*q^199 - 
        a*q^204 + (-a + 1)*q^207 + a*q^214 + (-a + 1)*q^216 - a*q^227 - q^231 + 
        O(q^242),
    q^5 + a*q^10 + 1/2*(a - 1)*q^17 + (a - 1)*q^20 + a*q^29 - 1/2*q^34 - a*q^37 
        - q^40 - a*q^41 + (-a + 1)*q^45 + (a - 1)*q^58 + (-a + 1)*q^61 + a*q^65 
        - 1/2*a*q^68 - q^73 + (-a + 1)*q^74 - a*q^80 + (-a + 1)*q^82 + 1/2*(-a +
        1)*q^85 + q^90 + (a - 1)*q^113 - q^116 + q^122 - q^125 + (a - 1)*q^130 +
        1/2*(-a + 1)*q^136 - a*q^146 + q^148 + 1/2*a*q^153 + (-a + 1)*q^160 + 
        q^164 + 1/2*q^170 + a*q^180 - q^181 + a*q^193 - 1/2*q^221 - q^226 - 
        a*q^232 + (-a + 1)*q^241 + O(q^242),
    q^6 + (-a + 1)*q^11 - a*q^14 - q^22 + (a - 1)*q^23 + (a - 1)*q^24 + a*q^27 -
        a*q^31 + (a - 1)*q^39 + a*q^44 + q^56 + (-a + 1)*q^63 - q^71 + (-a + 
        1)*q^88 + q^91 - a*q^92 - a*q^96 + (a - 1)*q^102 + (-a + 1)*q^107 - 
        q^108 + q^124 + q^126 + a*q^131 + q^139 + a*q^142 + (-a + 1)*q^143 - 
        q^147 + q^150 - a*q^156 + (a - 1)*q^158 - q^163 + (a - 1)*q^167 - q^176 
        + a*q^187 - q^199 - a*q^207 + (a - 1)*q^211 - q^214 + (a - 1)*q^224 + 
        (-a + 1)*q^231 + q^238 + O(q^242),
    q^9 + 1/3*(2*a - 1)*q^13 + 1/2*q^17 + a*q^18 - a*q^21 - a*q^25 + 1/3*(a - 
        2)*q^26 + 1/2*a*q^34 + (a - 1)*q^36 + (-a + 1)*q^42 + (a - 1)*q^49 + (-a
        + 1)*q^50 + 1/3*(-a - 1)*q^52 + 1/2*(a - 1)*q^68 - q^69 - q^72 + q^84 + 
        1/2*q^85 + (a - 1)*q^89 + (-a + 1)*q^93 - q^98 + q^100 + (-a + 1)*q^101 
        + 1/3*(-2*a + 1)*q^104 + 1/3*(a - 2)*q^117 - 1/2*q^136 - a*q^138 - 
        a*q^144 + (-a + 1)*q^145 + q^149 + 1/2*(a - 1)*q^153 + a*q^161 + a*q^168
        + 1/3*(-a - 1)*q^169 + 1/2*a*q^170 - q^178 + (a - 1)*q^185 + q^186 + 
        q^189 - a*q^196 + a*q^200 + q^202 + (a - 1)*q^205 + 1/3*(-a + 2)*q^208 -
        q^217 + 1/6*(a - 2)*q^221 - a*q^229 + 1/3*(-a - 1)*q^234 + (a - 1)*q^237
        + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
884
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*q^13 + q^16 + q^17 - q^25 - 1/2*q^26 - q^36 - q^38 - q^42 + 1/2*q^52
        + q^66 - q^69 + q^77 - q^94 - q^101 + 1/2*q^104 - 1/2*q^117 - q^118 + 
        q^134 - q^152 - 2*q^157 + q^166 + q^168 + q^178 + q^186 + q^196 + 
        1/2*q^208 - 2*q^212 + q^217 + 1/2*q^221 - 1/2*q^234 - q^237 + O(q^242),
    q^2 + 1/2*q^13 - q^19 + q^21 + 1/2*q^26 + q^32 - q^33 + q^34 - q^47 - q^50 -
        1/2*q^52 - q^59 + q^67 - q^72 - q^76 + q^83 - q^84 - q^89 - q^93 + 
        1/2*q^104 + 1/2*q^117 + q^132 + q^137 - q^138 + q^151 + q^154 - q^161 + 
        q^171 - q^188 - q^202 + 1/2*q^208 - q^213 + 1/2*q^221 + q^223 + q^229 - 
        1/2*q^234 - q^236 + q^239 + O(q^242),
    q^3 - q^12 - q^14 + q^22 - q^23 + q^48 + q^51 + q^56 + q^62 - q^75 - q^78 - 
        q^79 - q^88 - q^91 + q^92 - q^107 - q^126 + q^131 + q^139 + q^142 + 
        q^143 - q^147 + 2*q^159 - q^192 + q^198 + q^199 - q^204 - q^207 - q^211 
        - q^224 + 2*q^231 - q^238 + O(q^242),
    q^4 - 1/2*q^13 - q^17 + q^25 + 1/2*q^26 - q^30 + q^36 + q^42 + q^49 - 
        1/2*q^52 - q^53 + q^64 - q^66 - q^77 - 1/2*q^104 - 1/2*q^117 - q^120 + 
        q^121 - q^134 - q^153 + q^157 - q^166 - q^168 + q^169 - q^178 - q^185 - 
        q^186 - q^205 - 1/2*q^208 + q^212 - q^217 + 1/2*q^221 + q^222 + q^225 + 
        q^230 + 1/2*q^234 + 2*q^237 + O(q^242),
    q^5 + q^7 - q^11 + q^20 - 2*q^24 - q^28 - q^31 - q^37 + q^39 - q^41 + q^44 +
        q^45 + q^63 - q^65 - q^71 + q^73 + q^78 + q^80 - q^85 - q^97 - q^99 + 
        2*q^102 + q^109 + q^112 + q^119 + q^124 - q^148 - 2*q^150 - q^156 - 
        2*q^158 + q^163 - q^164 + q^167 - q^175 - q^176 + q^180 - q^182 + 
        2*q^184 - q^187 + q^193 - q^197 + 2*q^201 - 2*q^214 + q^227 - q^241 + 
        O(q^242),
    q^6 + q^7 - q^11 - q^24 - q^28 - q^31 + q^39 + q^44 - q^46 + q^63 - q^71 + 
        q^96 - q^99 + q^102 + q^112 + q^119 + q^124 - q^150 - q^156 - q^158 + 
        q^163 + q^167 - q^175 - q^176 - q^182 + q^184 - q^187 - q^214 + q^227 + 
        O(q^242),
    q^8 - 1/2*q^13 - q^18 - q^19 - q^21 + 1/2*q^26 + q^33 - q^47 + 1/2*q^52 - 
        q^59 + q^67 - q^76 + q^83 + q^84 + q^89 + q^93 + q^98 + 1/2*q^104 - 
        2*q^106 - 1/2*q^117 + q^128 - q^132 + q^136 - q^137 + q^138 + q^151 - 
        q^154 + q^161 + q^162 + q^171 - q^188 - q^200 - q^202 - 1/2*q^208 + 
        q^213 - 1/2*q^221 + q^223 - q^229 - 1/2*q^234 - q^236 + q^239 + 
        O(q^242),
    q^9 - q^13 - q^17 + q^25 - q^30 + q^36 + q^38 - q^52 + q^53 - q^68 - q^69 - 
        q^81 + q^94 + q^100 + q^101 + q^118 - q^120 - 2*q^134 + q^144 + q^152 + 
        q^157 - 2*q^166 - q^185 - q^205 - q^208 + q^212 + q^222 + q^230 + q^237 
        + O(q^242),
    q^10 - 2*q^12 - q^14 + q^22 + q^39 + q^40 + 2*q^51 + q^56 + q^62 - q^74 - 
        2*q^75 - q^78 - 2*q^79 - q^82 - q^88 + q^90 - q^91 + 2*q^92 - 2*q^107 - 
        q^126 - q^130 + 2*q^131 + q^142 + q^143 + q^146 - 2*q^147 + q^156 + 
        2*q^159 + q^160 - q^170 - 2*q^192 - q^194 + q^198 + 2*q^199 + q^218 - 
        q^224 + 2*q^231 - q^238 + O(q^242),
    q^15 - q^18 - q^19 + q^26 + q^34 - q^47 - q^50 - q^59 + q^60 + 2*q^67 - q^72
        - q^76 + 2*q^83 + q^104 - q^106 - q^111 - q^115 - q^123 + q^136 + q^138 
        + q^162 + q^171 - q^188 - q^195 - q^200 - q^202 + q^219 - q^236 + 
        2*q^239 + q^240 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
885
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
885
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
885
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
885
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
58
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
885
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
116
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
885
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
58
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
885
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
58
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
885
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
116
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
885
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
58
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
885
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
29*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^7 - q^9 + q^16 + 2*q^17 - q^19 - q^25 + q^27 - q^28 - q^29 - 
        q^36 - q^41 - q^53 + q^59 + q^63 + q^64 + 2*q^68 + 2*q^71 - q^76 - q^79 
        - q^100 - q^107 + q^108 - q^112 - q^116 - 2*q^119 + q^121 + q^125 - 
        q^127 + q^133 - q^137 + 2*q^139 - q^144 - 2*q^153 + 2*q^163 - q^164 - 
        q^167 + q^169 + q^171 + q^175 - q^181 - q^189 - q^193 + 2*q^197 - q^199 
        + q^203 - q^212 + 2*q^223 + q^225 + O(q^234),
    q^3 - q^9 + q^12 - q^21 - q^36 + q^48 + 2*q^51 - q^57 + q^63 - q^75 + q^81 -
        q^84 - q^87 - q^123 - q^144 - 2*q^153 - q^159 + q^171 + q^177 + q^192 + 
        2*q^204 + 2*q^213 + q^225 - q^228 + O(q^234),
    q^5 + q^20 - q^25 - q^35 - q^45 + q^80 + 2*q^85 - q^95 - q^100 + q^135 - 
        q^140 - q^145 + q^175 - q^180 - q^205 + q^225 + O(q^234),
    q^15 - q^45 + q^60 - q^75 - q^105 - q^180 + q^225 + O(q^234)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
885
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 29*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 - q^16 + (a - 1)*q^17 + a*q^21 - a*q^27 + q^35 - q^45 + a*q^49 + 
        q^57 - q^59 - a*q^63 + a*q^64 + (a + 1)*q^68 - 2*a*q^71 + a*q^75 + q^84 
        + q^87 - a*q^95 - q^105 - q^108 - q^121 - q^123 + q^125 + (-a + 1)*q^133
        - a*q^140 - a*q^145 - a*q^147 + q^159 + (a - 1)*q^163 - a*q^169 + 
        a*q^171 + a*q^175 + a*q^180 + q^196 + (a - 1)*q^197 + (a + 1)*q^203 + 
        a*q^205 + (a - 1)*q^223 - a*q^228 + O(q^234),
    q^3 - a*q^12 + 1/5*(2*a - 4)*q^17 + 1/5*(2*a - 4)*q^19 + 1/5*(6*a - 2)*q^21 
        + 1/5*(-a - 3)*q^25 + 1/5*(-a + 2)*q^27 + 1/5*(-4*a - 2)*q^29 + (a + 
        1)*q^35 + 1/5*(4*a + 2)*q^41 + 1/5*(-a + 2)*q^45 - q^48 + 1/5*(-2*a + 
        4)*q^49 + 1/5*(-3*a + 1)*q^51 + 1/5*(-4*a - 2)*q^53 + 1/5*(-2*a + 
        4)*q^57 + 1/5*(-a - 3)*q^59 + 1/5*(-4*a - 2)*q^63 + 1/5*(4*a + 2)*q^68 +
        1/5*(-6*a + 2)*q^71 + 1/5*(3*a - 1)*q^75 + 1/5*(4*a + 2)*q^76 + 1/5*(2*a
        - 4)*q^79 + 1/5*(-a - 3)*q^81 + 1/5*(2*a + 6)*q^84 + 1/5*(4*a + 2)*q^85 
        + 1/5*(-7*a - 1)*q^95 + 1/5*(3*a - 1)*q^100 + 1/5*(a - 2)*q^105 + 
        1/5*(-2*a + 4)*q^107 + 1/5*(-2*a - 1)*q^108 + 1/5*(2*a - 4)*q^116 + 
        1/5*(6*a - 2)*q^119 + 1/5*(a + 3)*q^125 + 1/5*(6*a - 2)*q^127 + 
        1/5*(-2*a - 6)*q^133 + 1/5*(-2*a - 1)*q^135 + 1/5*(4*a + 2)*q^137 + (-a 
        + 1)*q^140 + 1/5*(-3*a + 1)*q^145 + 1/5*(3*a + 4)*q^147 + 1/5*(-4*a - 
        2)*q^153 + 1/5*(-2*a + 4)*q^164 + 1/5*(-4*a - 2)*q^167 + 1/5*(7*a + 
        1)*q^171 + 1/5*(-3*a + 1)*q^175 + 1/5*(-a + 2)*q^177 + 1/5*(-2*a - 
        1)*q^180 + 1/5*(-4*a - 2)*q^181 + 1/5*(-3*a + 1)*q^189 + a*q^192 + 
        1/5*(2*a + 6)*q^193 + 1/5*(-4*a - 2)*q^196 + 1/5*(2*a - 4)*q^197 + 
        1/5*(-2*a + 4)*q^199 + 1/5*(6*a - 2)*q^203 + 1/5*(-a - 3)*q^204 + 
        1/5*(-3*a + 1)*q^205 + 1/5*(2*a - 4)*q^212 + 1/5*(4*a + 2)*q^213 + 
        1/5*(a - 2)*q^225 + 1/5*(-4*a - 2)*q^228 + O(q^234),
    q^5 + 1/5*(8*a + 4)*q^17 + 1/5*(3*a - 1)*q^19 - a*q^20 + 1/5*(4*a + 12)*q^21
        + 1/5*(a - 2)*q^25 + 1/5*(-4*a - 2)*q^27 + 1/5*(9*a - 3)*q^29 + (-2*a + 
        1)*q^35 + 1/5*(a + 3)*q^41 + 1/5*(a - 2)*q^45 + 1/5*(-3*a + 1)*q^49 + 
        1/5*(-2*a - 6)*q^51 + 1/5*(4*a - 8)*q^53 + 1/5*(-8*a - 4)*q^57 + 
        1/5*(6*a - 2)*q^59 + 1/5*(4*a - 8)*q^63 + 1/5*(-4*a + 8)*q^68 + 
        1/5*(-4*a - 12)*q^71 + 1/5*(2*a + 6)*q^75 + 1/5*(a + 3)*q^76 + 1/5*(3*a 
        - 1)*q^79 - q^80 + 1/5*(a + 3)*q^81 + 1/5*(-12*a + 4)*q^84 + 1/5*(a + 
        3)*q^85 + 1/5*(2*a - 9)*q^95 + 1/5*(2*a + 1)*q^100 + 1/5*(4*a + 2)*q^105
        + 1/5*(-8*a - 4)*q^107 + 1/5*(2*a - 4)*q^108 + 1/5*(3*a + 9)*q^116 + 
        1/5*(-6*a + 2)*q^119 + 1/5*(-6*a + 2)*q^125 + 1/5*(4*a + 2)*q^127 + 
        1/5*(2*a - 4)*q^133 + 1/5*(-3*a - 4)*q^135 + 1/5*(-4*a - 2)*q^137 + (-a 
        - 2)*q^140 + 1/5*(-2*a - 1)*q^145 + 1/5*(-8*a - 4)*q^147 + 1/5*(4*a - 
        8)*q^153 + 1/5*(-3*a + 1)*q^164 + 1/5*(4*a + 2)*q^167 + 1/5*(3*a + 
        9)*q^171 + 1/5*(-2*a - 1)*q^175 + 1/5*(-4*a - 2)*q^177 + 1/5*(2*a + 
        1)*q^180 + 1/5*(-a - 3)*q^181 + 1/5*(3*a - 1)*q^189 + 1/5*(-2*a + 
        4)*q^193 + 1/5*(-a - 3)*q^196 + 1/5*(8*a + 4)*q^197 + 1/5*(-3*a + 
        1)*q^199 + 1/5*(-6*a + 12)*q^203 + 1/5*(6*a - 2)*q^204 + 1/5*(-2*a - 
        1)*q^205 + 1/5*(8*a + 4)*q^212 + 1/5*(-4*a + 8)*q^213 + 1/5*(4*a - 
        3)*q^225 + 1/5*(4*a - 8)*q^228 + O(q^234),
    q^7 + 1/5*(2*a - 4)*q^17 + 1/5*(-3*a - 4)*q^19 + 1/5*(6*a - 2)*q^21 + 
        1/5*(-a + 2)*q^25 + 1/5*(-a + 2)*q^27 - a*q^28 + 1/5*(a - 2)*q^29 + q^35
        + 1/5*(-a + 2)*q^41 + 1/5*(-a - 3)*q^45 + 1/5*(-2*a - 1)*q^49 + 1/5*(2*a
        - 4)*q^51 + 1/5*(a - 2)*q^53 + 1/5*(-2*a + 4)*q^57 + 1/5*(-a - 3)*q^59 +
        1/5*(a - 2)*q^63 + 1/5*(4*a + 2)*q^68 + 1/5*(-6*a + 2)*q^71 + 1/5*(3*a -
        1)*q^75 + 1/5*(4*a - 3)*q^76 + 1/5*(2*a + 1)*q^79 + 1/5*(-a + 2)*q^81 + 
        1/5*(2*a + 6)*q^84 + 1/5*(4*a + 2)*q^85 + 1/5*(-2*a - 1)*q^95 + 
        1/5*(-2*a - 1)*q^100 + 1/5*(a + 3)*q^105 + 1/5*(-2*a - 1)*q^107 + 
        1/5*(-2*a - 1)*q^108 - q^112 + 1/5*(2*a + 1)*q^116 + 1/5*(a + 3)*q^119 +
        1/5*(a + 3)*q^125 + 1/5*(a - 2)*q^127 + 1/5*(-2*a - 1)*q^133 + 1/5*(-2*a
        - 1)*q^135 + 1/5*(-a + 2)*q^137 - a*q^140 + 1/5*(2*a + 1)*q^145 + 
        1/5*(-2*a + 4)*q^147 + 1/5*(-4*a - 2)*q^153 + 1/5*(-2*a - 1)*q^164 + 
        1/5*(a - 2)*q^167 + 1/5*(2*a + 1)*q^171 + 1/5*(-3*a + 1)*q^175 + 1/5*(-a
        - 3)*q^177 + 1/5*(3*a - 1)*q^180 + 1/5*(a - 2)*q^181 + 1/5*(-3*a - 
        4)*q^189 + 1/5*(2*a + 1)*q^193 + 1/5*(a - 2)*q^196 + 1/5*(2*a - 4)*q^197
        + 1/5*(3*a + 4)*q^199 + 1/5*(6*a + 3)*q^203 + 1/5*(4*a + 2)*q^204 + 
        1/5*(2*a + 1)*q^205 + 1/5*(2*a + 1)*q^212 + 1/5*(-6*a + 2)*q^213 + 
        1/5*(a - 2)*q^225 + 1/5*(-4*a - 2)*q^228 + O(q^234),
    q^9 + 1/5*(12*a + 6)*q^17 + 1/5*(2*a - 4)*q^19 + 1/5*(6*a + 13)*q^21 + 
        1/5*(-a - 3)*q^25 + 1/5*(-6*a - 3)*q^27 + 1/5*(6*a - 2)*q^29 + (-3*a + 
        1)*q^35 - a*q^36 + 1/5*(-6*a + 2)*q^41 + 1/5*(4*a - 3)*q^45 + 1/5*(-2*a 
        + 4)*q^49 + 1/5*(2*a - 4)*q^51 + 1/5*(6*a - 2)*q^53 + 1/5*(-7*a - 
        6)*q^57 + 1/5*(9*a - 3)*q^59 + 1/5*(6*a - 7)*q^63 + 1/5*(-6*a + 12)*q^68
        + 1/5*(-6*a - 18)*q^71 + 1/5*(3*a + 4)*q^75 + 1/5*(4*a + 2)*q^76 + 
        1/5*(2*a - 4)*q^79 + 1/5*(-a + 2)*q^81 + 1/5*(-13*a + 6)*q^84 + 1/5*(4*a
        + 2)*q^85 - a*q^87 + 1/5*(3*a - 11)*q^95 + 1/5*(3*a - 1)*q^100 + 
        1/5*(6*a + 3)*q^105 + 1/5*(-2*a - 6)*q^107 + 1/5*(3*a - 6)*q^108 + 
        1/5*(2*a + 6)*q^116 + 1/5*(-4*a + 8)*q^119 + a*q^123 + 1/5*(-9*a + 
        3)*q^125 + 1/5*(6*a - 2)*q^127 + 1/5*(-2*a - 6)*q^133 + 1/5*(-2*a - 
        1)*q^135 + 1/5*(-6*a + 2)*q^137 + (-a - 3)*q^140 - q^144 + 1/5*(-3*a + 
        1)*q^145 + 1/5*(-12*a - 1)*q^147 + 1/5*(a - 7)*q^153 - a*q^159 + 
        1/5*(-2*a - 6)*q^164 + 1/5*(6*a - 2)*q^167 + 1/5*(2*a + 11)*q^171 + 
        1/5*(-3*a + 1)*q^175 + 1/5*(-a - 3)*q^177 + 1/5*(3*a + 4)*q^180 + 
        1/5*(-4*a - 2)*q^181 + 1/5*(2*a - 4)*q^189 + 1/5*(2*a + 6)*q^193 + 
        1/5*(-4*a - 2)*q^196 + 1/5*(12*a + 6)*q^197 + 1/5*(-2*a + 4)*q^199 + 
        1/5*(-4*a + 18)*q^203 + 1/5*(4*a + 2)*q^204 + 1/5*(-3*a + 1)*q^205 + 
        1/5*(2*a + 6)*q^212 + 1/5*(-6*a + 2)*q^213 + 1/5*(6*a - 2)*q^225 + 
        1/5*(6*a - 7)*q^228 + O(q^234),
    q^15 + (-2*a + 2)*q^17 - 2*a*q^21 + (a - 1)*q^27 - 2*q^35 + q^45 + (a - 
        1)*q^57 + 2*q^59 - a*q^60 + (a + 1)*q^63 + (-2*a - 2)*q^68 + 4*a*q^71 - 
        a*q^75 - 2*q^84 + (a - 1)*q^87 + 2*a*q^95 + q^105 + (a + 1)*q^108 + (a +
        1)*q^123 - 2*q^125 + 2*a*q^140 + (a - 1)*q^147 - 2*q^159 - 2*a*q^171 - 
        a*q^180 + (-2*a + 2)*q^197 + (-2*a - 2)*q^203 + q^225 + (a + 1)*q^228 + 
        O(q^234)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
885
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 29*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^19 - q^20 - q^21 + q^25 - q^26 - q^27 - q^29 + q^36 - q^41 + q^45 - 
        q^46 + q^49 + q^57 - q^63 - q^64 - q^71 + q^74 - q^75 + q^76 + q^80 + 
        2*q^81 + q^84 + q^86 + q^87 + q^94 - q^95 + q^105 + q^108 + q^116 + 
        q^121 + q^123 + q^130 - q^134 - q^135 - q^144 - q^145 + q^146 - q^147 + 
        q^159 + q^164 - q^166 - 2*q^171 - 2*q^180 - q^181 + 2*q^189 - q^194 - 
        q^199 - q^205 + q^206 + q^225 - q^226 - q^228 + q^230 + O(q^234),
    q^2 - q^10 - q^13 + q^18 - q^23 - q^32 + q^37 + q^43 + q^47 + q^50 - q^52 + 
        q^65 - q^67 + q^73 - q^83 - q^90 - q^92 - q^97 + q^98 + q^103 - q^113 + 
        q^115 - q^117 - q^118 + q^148 + q^157 - 2*q^158 + q^160 + q^162 + q^172 
        + q^173 - q^185 + q^188 - q^207 + q^208 - q^215 + q^227 - q^233 + 
        O(q^234),
    q^3 + q^27 - q^57 - q^60 + q^75 - q^78 - q^87 - q^123 - q^138 + q^147 - 
        q^192 - q^213 + q^222 + q^228 + O(q^234),
    q^4 - q^16 - q^19 - q^20 + q^25 - q^26 - q^29 - q^35 + q^36 - q^41 - q^46 + 
        2*q^49 - q^59 + q^71 + q^74 + q^76 + q^80 + 2*q^81 + q^86 + q^94 + q^116
        - q^125 + q^130 - q^134 - q^135 - 2*q^139 + q^140 - q^144 + q^146 + 
        q^164 - q^166 + q^169 - q^171 + q^175 - q^180 - q^181 + 2*q^189 - q^194 
        - q^196 - q^199 + q^206 + q^225 - q^226 + q^230 + O(q^234),
    q^5 - 2*q^19 - q^20 + q^25 - 2*q^29 - q^35 - 2*q^41 + q^45 + 2*q^49 + 2*q^76
        + 2*q^79 + q^80 + 2*q^81 - q^95 - q^100 + 2*q^116 - q^135 + q^140 - 
        q^145 + 2*q^164 - 2*q^171 + q^175 - q^180 - 2*q^181 + 2*q^189 - 2*q^196 
        - 2*q^199 - q^205 + q^225 + O(q^234),
    q^6 - q^30 - q^39 + q^54 - q^69 - q^96 + q^111 + q^129 + q^141 + q^150 - 
        q^156 + q^195 - q^201 + q^219 + O(q^234),
    q^7 - q^19 + q^25 + q^27 - q^28 - q^29 - q^35 - q^41 + q^49 - q^53 + q^63 + 
        q^76 + q^79 + q^81 - q^95 - q^100 + q^107 - q^108 + q^112 + q^116 - 
        q^127 + q^133 - q^135 - q^137 + q^140 - q^145 + q^164 - q^167 - q^171 - 
        q^181 + q^189 + q^193 - q^196 - q^199 + q^203 - q^205 + q^212 + q^225 + 
        O(q^234),
    q^9 + q^21 + q^27 - q^36 - q^45 - q^57 + q^63 + q^75 - q^81 - q^84 - q^87 - 
        q^105 - q^108 - q^123 + q^135 + q^144 + q^147 - q^159 + q^171 + q^180 - 
        2*q^189 + q^228 + O(q^234),
    q^12 + 2*q^27 - q^45 - q^48 - q^57 - q^60 + 2*q^63 + q^75 - q^78 - q^87 - 
        q^105 - q^108 - q^123 - q^135 - q^138 + 2*q^147 - q^177 + q^180 + q^213 
        + q^222 + q^225 + q^228 + O(q^234),
    q^15 + 2*q^27 - q^45 - 2*q^57 - q^60 + 2*q^63 + q^75 - 2*q^87 - q^105 - 
        2*q^108 - 2*q^123 + 2*q^147 + q^180 + q^225 + 2*q^228 + O(q^234)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
886
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
442
);
qprec:=
220
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
886
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
220
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
886
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
17*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
220
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
886
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
221*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
220
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^13 + q^16 - q^17 + q^25 - q^27 - q^39 + q^49 - q^51 - q^52 - 
        q^59 + q^64 - q^68 - q^71 - q^79 + q^100 - q^103 - q^108 - q^109 + q^111
        + 2*q^113 + q^117 + q^121 + q^123 + 2*q^131 - q^137 + q^141 + q^153 - 
        q^156 - q^163 + 2*q^167 + q^169 - q^177 + q^183 + q^196 - q^197 + q^201 
        - q^204 - q^208 - q^213 + O(q^220),
    q^2 + q^8 - q^26 + q^32 - q^34 + q^50 - q^54 - q^78 + q^98 - q^102 - q^104 -
        q^118 + q^128 - q^136 - q^142 - q^158 + q^200 - q^206 - q^216 - q^218 + 
        O(q^220),
    q^3 - q^9 + q^12 - q^13 - q^17 - q^36 + q^37 + q^41 + q^47 + q^48 - q^52 - 
        q^59 + q^61 + q^67 - q^68 - q^71 + q^75 - q^79 + q^89 - q^103 + q^107 - 
        q^109 - q^111 - q^123 - q^137 + q^139 - q^141 - q^144 + q^147 + q^148 + 
        q^149 + q^151 - q^163 + q^164 + q^169 + q^181 - q^183 + q^188 + q^191 + 
        q^192 - q^197 - q^201 - q^208 + O(q^220),
    q^6 - q^18 + q^24 - q^26 - q^34 - q^72 + q^74 + q^82 + q^94 + q^96 - q^104 -
        q^118 + q^122 + q^134 - q^136 - q^142 + q^150 - q^158 + q^178 - q^206 + 
        q^214 - q^218 + O(q^220)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
887
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
886
);
qprec:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
887
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
443*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^14 + q^18 + q^21 + q^25 - q^26 - q^28 - q^36 - q^42 + q^43 - q^48 + 
        q^49 + q^52 - q^57 - q^63 + q^64 - q^66 + q^72 - q^76 - q^78 - q^83 + 
        q^84 - q^86 + q^96 - q^99 - q^101 - q^104 + q^111 - q^112 + q^121 + 
        q^126 - q^127 - q^128 - q^141 - q^142 - q^144 + O(q^148),
    q^2 + q^18 - q^28 - q^33 - q^39 + q^50 - q^54 - q^66 - q^91 + q^98 - q^109 +
        q^111 + q^117 + q^121 + q^139 - q^144 + q^147 + O(q^148),
    q^3 - q^21 - q^22 + q^27 - q^44 - q^47 + q^75 + q^76 + q^78 - q^91 - q^96 + 
        q^98 + q^104 + q^144 + q^147 + O(q^148),
    q^4 - q^14 - q^27 - q^33 + q^36 + q^57 + q^63 - q^72 + q^83 - q^84 + q^100 +
        q^101 - q^126 - q^133 + q^141 + O(q^148),
    q^6 - q^14 - q^18 - q^21 + q^24 + q^38 + q^39 - q^43 + q^49 + q^54 - q^56 - 
        q^64 + q^77 - q^84 + q^107 - q^108 - q^111 + q^114 - q^126 - q^132 - 
        q^143 + O(q^148),
    q^7 - q^14 - q^18 - q^21 + q^28 + q^32 + q^36 + q^42 - q^43 - q^52 + q^54 - 
        q^56 + q^63 - q^64 + q^66 - q^72 - q^84 + q^86 - q^96 + q^104 - q^108 - 
        q^111 + q^112 - q^126 + q^128 + q^129 + q^141 - q^143 + q^144 + 
        O(q^148),
    q^8 - q^14 - q^18 - q^21 + q^28 + q^32 + q^33 + q^39 - q^43 - q^52 + q^54 - 
        q^56 - q^64 + q^66 - q^84 + q^91 - q^96 - q^108 + q^109 - q^111 + q^112 
        + q^114 + q^128 - q^143 + q^144 + O(q^148),
    q^9 - q^14 - q^18 - q^21 + q^26 + q^28 + q^36 + q^42 - q^43 + q^48 - q^52 - 
        q^56 - q^64 - q^72 + q^76 + q^81 - q^84 + q^86 - q^96 + q^99 + q^104 - 
        q^108 - q^111 + q^112 - q^126 + q^127 + q^128 - q^132 + q^142 + q^144 + 
        O(q^148),
    q^11 - q^14 - q^18 - q^21 + q^22 + q^24 + q^42 - q^43 + q^44 + q^48 - q^52 -
        q^56 - q^64 - q^72 + q^81 + q^88 + q^94 + q^99 - q^108 - q^111 + q^117 -
        q^126 - q^132 + q^133 - q^143 + O(q^148),
    q^12 - q^14 - q^18 + q^22 - q^43 + q^44 + q^47 + q^48 - q^52 - q^56 - q^64 -
        q^72 + q^74 + q^88 + q^91 - q^111 + q^118 - q^132 - q^143 + O(q^148),
    q^13 - q^14 - q^21 + q^24 + q^38 - q^43 - q^64 + q^71 + q^99 - q^108 - q^111
        + q^114 + q^117 - q^126 - q^132 - q^143 + q^147 + O(q^148),
    q^16 - q^18 - q^21 + q^27 + q^33 - q^43 - q^52 + q^66 + q^78 - q^96 - q^111 
        + q^133 - q^143 + q^144 + O(q^148),
    q^19 - q^21 - q^22 + q^26 + q^36 - q^44 - q^47 + q^57 - q^74 + q^76 + q^77 +
        q^78 - q^84 - q^88 - q^91 - q^96 + q^98 + q^104 + q^112 - q^118 - q^126 
        + q^142 + q^144 + O(q^148),
    q^37 - q^38 - q^39 + q^42 + q^44 - q^49 - q^52 + q^59 + q^63 - q^72 - q^77 +
        q^88 + q^94 - q^107 - q^114 + q^129 + q^137 + O(q^148)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^4*q^3 + (-a^5 - a^3 + a^2 + 1)*q^7 + (a^5 - a^2)*q^9 + (a^2 - 1)*q^13 
        + (a^4 - 2*a)*q^19 + (a^3 + a)*q^21 + a^5*q^25 - a^3*q^27 + (-a^4 - a^2 
        + a)*q^31 + (a^3 - 1)*q^37 + (-a^4 + a^3 - 1)*q^39 + (-a^5 - a^4)*q^43 +
        (-a^5 - a^4 - a^3 + a)*q^49 + (-a^5 - a^2)*q^57 + (a^5 + a^4 - a)*q^63 +
        (a^3 - a^2)*q^67 + (a^5 - a^4)*q^73 - q^75 + (a^3 + a^2)*q^79 + (-a^4 + 
        a)*q^81 + (a^3 + a - 1)*q^91 + (-a^3 + a^2 + 1)*q^93 + (a^5 + a^4 - a^2 
        - a)*q^97 + (-a^3 - 1)*q^103 + (a^4 - a^3 + 1)*q^109 - a*q^111 + (-a^5 +
        a^2 - a)*q^117 - a^3*q^121 + (a^4 + 1)*q^127 + (-a^5 + a^2 + 1)*q^129 + 
        (2*a^4 + a^3 - a - 2)*q^133 + (-a^3 + a + 1)*q^139 + (-a^4 + a^2 + a + 
        1)*q^147 + (a^5 - a^2 + 1)*q^151 + (-a^4 + a^3)*q^157 + (2*a^5 - 
        a^2)*q^163 + (a^4 - a^2 + 1)*q^169 + (-a^3 + 2)*q^171 + (a^4 + 
        a^2)*q^175 + (-a^5 + a^3 + a^2)*q^181 + (-a^2 - 1)*q^189 + (-a^5 + a^4 +
        a^2)*q^193 + (-a^5 + a)*q^199 + (a^4 - a^3 - a + 1)*q^201 + (-a^5 - a^4 
        + a)*q^211 + (a^5 - a^4 - a^3 - a^2 - a + 1)*q^217 + (-a^5 + a^2 - 
        1)*q^219 + (a^5 - a^2 - a)*q^223 - a^4*q^225 + (-a^3 + a^2)*q^229 + (a^4
        + a^3 - a - 1)*q^237 + (a^3 - a^2 - 1)*q^241 + a^2*q^243 + (-a^4 - a^3 +
        2*a - 1)*q^247 + (a^5 + a^3)*q^259 + (a^4 + a^3 - a)*q^271 + (a^5 - 
        a)*q^273 + (-a^4 + 2*a)*q^277 + (a^3 + a - 1)*q^279 + (a^5 + a^3 - 
        1)*q^283 + (a^4 - a)*q^289 + O(q^290),
    q^2 + a^4*q^6 + (-a^5 - a^3 + a^2 + 1)*q^14 + (a^5 - a^2)*q^18 + (a^2 - 
        1)*q^26 + (a^4 - 2*a)*q^38 + (a^3 + a)*q^42 + a^5*q^50 - a^3*q^54 + 
        (-a^4 - a^2 + a)*q^62 + (a^3 - 1)*q^74 + (-a^4 + a^3 - 1)*q^78 + (-a^5 -
        a^4)*q^86 + (-a^5 - a^4 - a^3 + a)*q^98 + (-a^5 - a^2)*q^114 + (a^5 + 
        a^4 - a)*q^126 + (a^3 - a^2)*q^134 + (a^5 - a^4)*q^146 - q^150 + (a^3 + 
        a^2)*q^158 + (-a^4 + a)*q^162 + (a^3 + a - 1)*q^182 + (-a^3 + a^2 + 
        1)*q^186 + (a^5 + a^4 - a^2 - a)*q^194 + (-a^3 - 1)*q^206 + (a^4 - a^3 +
        1)*q^218 - a*q^222 + (-a^5 + a^2 - a)*q^234 - a^3*q^242 + (a^4 + 
        1)*q^254 + (-a^5 + a^2 + 1)*q^258 + (2*a^4 + a^3 - a - 2)*q^266 + (-a^3 
        + a + 1)*q^278 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^4 + a^3 - 1)*q^5 + (-a^4 + a)*q^9 - a^2*q^13 + (-a^3 + a^2)*q^17 + 
        (a^5 - a^3 - a^2 - a)*q^25 + (-a^5 - a)*q^29 + a^2*q^37 + (-a^4 + a^3 + 
        a - 1)*q^41 + (a^4 + a^2)*q^45 - a*q^49 - a^4*q^53 + (a^4 + 1)*q^61 + 
        (-a^5 - a^3 + a^2 + 1)*q^65 - q^73 - a^5*q^81 + (a^5 - a^4 + a^3 - a^2 +
        a)*q^85 + (a^5 - a^2 + 1)*q^89 + (a^5 + a^4 - a^2)*q^97 + (a^5 + a^4 - 
        a^2)*q^101 + (-a^5 + a^3 - 1)*q^109 + a*q^113 - q^117 + (a^3 - 1)*q^121 
        + (-a^5 - a^4 - a^3 + a + 1)*q^125 + (a^4 + a^2)*q^137 + (-a^5 - a^4 + 
        a^2 + a + 1)*q^145 + (a^5 - a^2 - a)*q^149 + (-a + 1)*q^153 + (-a^3 + 
        a^2)*q^157 + (a^2 + 1)*q^173 + (-a^3 - a)*q^181 + (a^5 + a^3 - a^2 - 
        1)*q^185 + (-a^5 - a)*q^193 + (-a^5 + a^3 - 1)*q^197 + (a^4 - a^3 + a^2 
        - a)*q^205 + (a^5 - a^4)*q^221 + (a^5 + a^3 - a^2 - a - 1)*q^225 + (-a^4
        - a^3 + a)*q^229 + (a^4 + a^2)*q^233 + (-a^5 + a^2)*q^241 + (-a^5 - a^4 
        + a)*q^245 + (a^5 - a^3 - a^2)*q^257 + (a^5 - a^3 - a^2)*q^261 + (-a^5 +
        a^2 + a)*q^265 + (-a^3 + 1)*q^269 + (-a^4 + a + 1)*q^277 + (-a^5 - 
        a^3)*q^281 + (-a^5 + a^4 + a^3 - 1)*q^289 + O(q^290),
    q^2 - a*q^4 + a^2*q^8 + (a^4 + a^3 - 1)*q^10 - a^3*q^16 + (-a^4 + a)*q^18 + 
        (-a^5 - a^4 + a)*q^20 - a^2*q^26 + a^4*q^32 + (-a^3 + a^2)*q^34 + (a^5 -
        a^2)*q^36 + (a^5 + a^3 - a^2 - 1)*q^40 + (a^5 - a^3 - a^2 - a)*q^50 + 
        a^3*q^52 + (-a^5 - a)*q^58 - a^5*q^64 + (a^4 - a^3)*q^68 + q^72 + 
        a^2*q^74 + (-a^4 + a + 1)*q^80 + (-a^4 + a^3 + a - 1)*q^82 + (a^4 + 
        a^2)*q^90 - a*q^98 + (a^4 + a^2 + 1)*q^100 - a^4*q^104 - a^4*q^106 + 
        (a^3 + a^2 - 1)*q^116 + (a^4 + 1)*q^122 + (a^3 - 1)*q^128 + (-a^5 - a^3 
        + a^2 + 1)*q^130 + (-a^5 + a^4)*q^136 - a*q^144 - q^146 - a^3*q^148 + 
        (a^5 - a^2 - a)*q^160 - a^5*q^162 + (a^5 - a^4 - a^2 + a)*q^164 + (a^5 -
        a^4 + a^3 - a^2 + a)*q^170 + (a^5 - a^2 + 1)*q^178 + (-a^5 - a^3)*q^180 
        + (a^5 + a^4 - a^2)*q^194 + a^2*q^196 + (-a^5 - a^3 - a)*q^200 + (a^5 + 
        a^4 - a^2)*q^202 + a^5*q^208 + a^5*q^212 + (-a^5 + a^3 - 1)*q^218 + 
        a*q^226 + (-a^4 - a^3 + a)*q^232 - q^234 + (a^3 - 1)*q^242 + (-a^5 - 
        a)*q^244 + (-a^5 - a^4 - a^3 + a + 1)*q^250 + (-a^4 + a)*q^256 + (a^4 - 
        a - 1)*q^260 + (-a^5 + a^3 - 1)*q^272 + (a^4 + a^2)*q^274 + a^2*q^288 + 
        O(q^290),
    q^3 + (a^4 + a^3 - 1)*q^15 + (-a^4 + a)*q^27 - a^2*q^39 + (-a^3 + a^2)*q^51 
        + (a^5 - a^3 - a^2 - a)*q^75 + (-a^5 - a)*q^87 + a^2*q^111 + (-a^4 + a^3
        + a - 1)*q^123 + (a^4 + a^2)*q^135 - a*q^147 - a^4*q^159 + (a^4 + 
        1)*q^183 + (-a^5 - a^3 + a^2 + 1)*q^195 - q^219 - a^5*q^243 + (a^5 - a^4
        + a^3 - a^2 + a)*q^255 + (a^5 - a^2 + 1)*q^267 + O(q^290),
    q^6 - a*q^12 + a^2*q^24 + (a^4 + a^3 - 1)*q^30 - a^3*q^48 + (-a^4 + a)*q^54 
        + (-a^5 - a^4 + a)*q^60 - a^2*q^78 + a^4*q^96 + (-a^3 + a^2)*q^102 + 
        (a^5 - a^2)*q^108 + (a^5 + a^3 - a^2 - 1)*q^120 + (a^5 - a^3 - a^2 - 
        a)*q^150 + a^3*q^156 + (-a^5 - a)*q^174 - a^5*q^192 + (a^4 - a^3)*q^204 
        + q^216 + a^2*q^222 + (-a^4 + a + 1)*q^240 + (-a^4 + a^3 + a - 1)*q^246 
        + (a^4 + a^2)*q^270 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^5 - a^2)*q^3 + (-a^4 - a^3 + a)*q^7 + (-a^4 + a)*q^9 + (a^4 + 1)*q^13
        + (-a^5 + a^2)*q^19 + (a^3 + a^2 - 1)*q^21 - a*q^25 + (a^3 - 1)*q^27 + 
        (-a^5 + a^4)*q^31 - a^3*q^37 + (a^5 - a^3 - a^2)*q^39 + (a^5 - a^2 - 
        a)*q^43 + (-a^5 + a^3 - a - 1)*q^49 + (a^4 - a)*q^57 + 2*a^2*q^61 + 
        (-a^5 - a)*q^63 + (a^4 + a^3 - 1)*q^67 + (a^5 - a^2 - a)*q^73 + q^75 + 
        (a^4 + a^3 - 1)*q^79 - a^5*q^81 + (-2*a^4 - a^3 + a^2 + 2*a)*q^91 + (a^4
        - a^3)*q^93 + (-a^5 - a^4 + a)*q^97 + a^3*q^103 + (a^5 - a^3 - 
        a^2)*q^109 + a^2*q^111 + (-a^4 + a^2 + a)*q^117 + (a^3 - 1)*q^121 + (a^5
        - a^2 + 1)*q^127 + (-a^4 + a + 1)*q^129 + (-a^3 - a^2 + 1)*q^133 + (-a^3
        + a^2)*q^139 + (-a^5 + a^4 + 1)*q^147 + (-a^4 + a + 1)*q^151 + (a^5 + 
        a^3 - a^2 - 1)*q^157 - a^4*q^163 + (a^5 + a^4 - a^2 + 1)*q^169 + (-a^3 +
        1)*q^171 + (a^5 + a^4 - a^2)*q^175 + (-a^4 + a^3 + a - 1)*q^181 - 
        2*a*q^183 + (a^4 + 1)*q^189 + (a^5 - a^4 - a^2 + a)*q^193 + (a^2 - 
        a)*q^199 + (-a^5 - a^3)*q^201 + (-a^5 - a)*q^211 + (a^5 - a^4 - a^3 + 
        a)*q^217 + (-a^4 + a + 1)*q^219 + (-a^4 + a^2 + a)*q^223 + (a^5 - 
        a^2)*q^225 + (a^4 + a^3 - 1)*q^229 + (-a^5 - a^3)*q^237 + (a^4 - 
        a^3)*q^241 + a^4*q^243 + (-a^5 + a^3 + a^2)*q^247 + (a^3 - a - 1)*q^259 
        + (-a^5 + a^3 - 1)*q^271 + (2*a^3 + a^2 - a - 2)*q^273 + (-a^5 + 
        a^2)*q^277 + (-a^3 + a^2)*q^279 + (-a^3 - a)*q^283 - a^5*q^289 + 
        O(q^290),
    q^2 + (a^5 - a^2)*q^6 + (-a^4 - a^3 + a)*q^14 + (-a^4 + a)*q^18 + (a^4 + 
        1)*q^26 + (-a^5 + a^2)*q^38 + (a^3 + a^2 - 1)*q^42 - a*q^50 + (a^3 - 
        1)*q^54 + (-a^5 + a^4)*q^62 - a^3*q^74 + (a^5 - a^3 - a^2)*q^78 + (a^5 -
        a^2 - a)*q^86 + (-a^5 + a^3 - a - 1)*q^98 + (a^4 - a)*q^114 + 
        2*a^2*q^122 + (-a^5 - a)*q^126 + (a^4 + a^3 - 1)*q^134 + (a^5 - a^2 - 
        a)*q^146 + q^150 + (a^4 + a^3 - 1)*q^158 - a^5*q^162 + (-2*a^4 - a^3 + 
        a^2 + 2*a)*q^182 + (a^4 - a^3)*q^186 + (-a^5 - a^4 + a)*q^194 + 
        a^3*q^206 + (a^5 - a^3 - a^2)*q^218 + a^2*q^222 + (-a^4 + a^2 + a)*q^234
        + (a^3 - 1)*q^242 + (a^5 - a^2 + 1)*q^254 + (-a^4 + a + 1)*q^258 + (-a^3
        - a^2 + 1)*q^266 + (-a^3 + a^2)*q^278 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 - a*q^7 + (a - 1)*q^9 + (a - 2)*q^13 + (a - 1)*q^21 + (-a + 
        1)*q^25 + q^27 + (-2*a + 1)*q^31 + q^37 + (a + 1)*q^39 + (2*a - 1)*q^43 
        + q^63 - a*q^67 + q^73 - q^75 + (a - 2)*q^79 - a*q^81 + (a + 1)*q^91 + 
        (a - 2)*q^93 + (2*a - 1)*q^97 + (-a - 1)*q^109 - a*q^111 + (-2*a + 
        1)*q^117 + q^121 + (-a + 1)*q^127 + (-a + 2)*q^129 + (a - 1)*q^139 + 
        a*q^151 + (a - 1)*q^157 + (-2*a + 2)*q^169 - q^175 - a*q^181 - a*q^189 +
        (-2*a + 1)*q^193 + (2*a - 1)*q^199 + (a - 1)*q^201 - q^211 + (a - 
        2)*q^217 - a*q^219 - q^223 + a*q^225 + a*q^229 + (a + 1)*q^237 + (-a + 
        2)*q^241 + (a - 1)*q^243 - a*q^259 + (a - 1)*q^271 + (-2*a + 1)*q^273 + 
        (a + 1)*q^279 + (-a + 2)*q^283 + a*q^289 + O(q^290),
    q^2 - a*q^6 - a*q^14 + (a - 1)*q^18 + (a - 2)*q^26 + (a - 1)*q^42 + (-a + 
        1)*q^50 + q^54 + (-2*a + 1)*q^62 + q^74 + (a + 1)*q^78 + (2*a - 1)*q^86 
        + q^126 - a*q^134 + q^146 - q^150 + (a - 2)*q^158 - a*q^162 + (a + 
        1)*q^182 + (a - 2)*q^186 + (2*a - 1)*q^194 + (-a - 1)*q^218 - a*q^222 + 
        (-2*a + 1)*q^234 + q^242 + (-a + 1)*q^254 + (-a + 2)*q^258 + (a - 
        1)*q^278 + O(q^290),
    q^4 - a*q^12 + a*q^16 - a*q^28 + (a - 1)*q^36 + (-a + 1)*q^48 + (a - 2)*q^52
        + (a - 1)*q^64 + (a - 1)*q^84 + (-a + 1)*q^100 + q^108 + (-a + 1)*q^112 
        + (-2*a + 1)*q^124 - q^144 + q^148 + (a + 1)*q^156 + (2*a - 1)*q^172 + 
        q^192 + (-a - 1)*q^208 + q^252 - q^256 - a*q^268 + O(q^290),
    q^8 - a*q^24 + a*q^32 - a*q^56 + (a - 1)*q^72 + (-a + 1)*q^96 + (a - 
        2)*q^104 + (a - 1)*q^128 + (a - 1)*q^168 + (-a + 1)*q^200 + q^216 + (-a 
        + 1)*q^224 + (-2*a + 1)*q^248 - q^288 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^7 + a*q^11 + 1/2*(-a - 1)*q^15 + (a - 1)*q^17 + (-a + 1)*q^19 + (a - 
        1)*q^23 + a*q^25 - a*q^27 + (-a - 1)*q^29 - a*q^37 + 1/2*(a + 1)*q^39 - 
        a*q^41 + 1/2*(-a + 1)*q^45 + q^47 + 1/2*(a + 1)*q^51 + q^53 + 1/2*(-a - 
        1)*q^57 + (a + 1)*q^69 + q^71 - a*q^73 + q^75 - a*q^77 + (a - 1)*q^79 - 
        q^81 - q^83 + (a - 1)*q^87 + (-a - 1)*q^89 + a*q^101 + 1/2*(a + 1)*q^105
        + (a - 1)*q^109 + 1/2*(-a - 1)*q^111 + (a + 1)*q^113 + 1/2*(a - 1)*q^117
        + (-a + 1)*q^119 + q^127 + 1/2*(a + 1)*q^129 + (a + 1)*q^131 + (a - 
        1)*q^133 - a*q^141 - q^149 + 1/2*(a - 1)*q^153 + q^157 - a*q^159 + (-a +
        1)*q^161 + 1/2*(-a + 1)*q^165 + (-a + 1)*q^167 + a*q^169 + 1/2*(-a + 
        1)*q^171 - a*q^173 - a*q^175 + (-a - 1)*q^179 + q^181 + (-a - 1)*q^187 +
        a*q^189 - q^195 + q^197 + (a + 1)*q^199 + q^201 + (a + 1)*q^203 + (a - 
        1)*q^207 + (a + 1)*q^209 - q^211 - q^219 - q^223 + a*q^225 + q^229 + 
        1/2*(a + 1)*q^237 + (-a + 1)*q^239 + (a - 1)*q^241 - a*q^243 + (-a - 
        1)*q^253 + a*q^259 + (-a - 1)*q^261 - a*q^263 + 1/2*(a - 1)*q^267 - 
        2*q^269 - q^271 + 1/2*(-a - 1)*q^273 - q^275 + a*q^287 - a*q^289 + 
        O(q^290),
    q^2 - q^14 + q^18 + a*q^22 + (a - 1)*q^34 + (-a + 1)*q^38 + (a - 1)*q^46 + 
        a*q^50 - a*q^54 + (-a - 1)*q^58 - a*q^74 - a*q^82 + q^94 + q^106 - q^126
        + q^142 - a*q^146 - a*q^154 + (a - 1)*q^158 - q^166 + (-a - 1)*q^178 + 
        a*q^198 + a*q^202 + (a - 1)*q^218 + (a + 1)*q^226 + (-a + 1)*q^238 + 
        q^254 + (a + 1)*q^262 + (a - 1)*q^266 + O(q^290),
    q^3 + 1/2*(a - 1)*q^15 - q^21 + a*q^33 + 1/2*(-a + 1)*q^39 + 1/2*(-a - 
        1)*q^45 + 1/2*(a - 1)*q^51 + 1/2*(-a + 1)*q^57 + 1/2*(-a + 1)*q^105 + 
        1/2*(-a - 1)*q^111 + 1/2*(a + 1)*q^117 - a*q^123 + 1/2*(-a + 1)*q^129 + 
        1/2*(a + 1)*q^153 + 1/2*(-a - 1)*q^165 + 1/2*(-a - 1)*q^171 + a*q^195 - 
        a*q^201 + (a + 1)*q^207 + q^213 + q^225 - a*q^231 + 1/2*(a - 1)*q^237 - 
        q^243 - q^249 + (a - 1)*q^261 + 1/2*(-a - 1)*q^267 + 1/2*(a - 1)*q^273 +
        O(q^290),
    q^5 - q^13 - q^17 + q^19 - 2*q^23 + (a - 1)*q^25 + (-a + 1)*q^27 - 2*a*q^29 
        - q^35 + q^37 - q^43 + q^45 + (a + 1)*q^47 + (a + 1)*q^53 + a*q^55 + (-a
        + 1)*q^65 + (a - 1)*q^67 + (-a + 1)*q^73 - q^79 - a*q^89 + q^91 - 
        a*q^103 - q^109 + 2*a*q^113 + (-a + 1)*q^115 - q^117 + q^119 + a*q^131 -
        q^133 + a*q^135 - a*q^143 + (a + 1)*q^145 + (-a - 1)*q^149 - q^153 + (a 
        + 1)*q^157 + 2*q^161 - a*q^163 + q^167 + (a - 1)*q^169 + q^171 + (-a + 
        1)*q^175 + (a + 1)*q^181 - q^185 - a*q^187 + (a - 1)*q^189 - q^193 + (a 
        + 1)*q^197 + 2*a*q^199 + 2*a*q^203 - a*q^205 - 2*q^207 + a*q^209 + (-a +
        1)*q^215 + (a - 1)*q^225 - q^235 - 2*q^241 + (-a + 1)*q^243 + a*q^251 - 
        2*a*q^253 - q^259 - 2*a*q^261 + (-a + 1)*q^263 - q^265 + (-a - 1)*q^269 
        + (-a - 1)*q^271 + (-a - 1)*q^275 + (-a + 1)*q^289 + O(q^290),
    q^6 - a*q^18 - q^42 + a*q^66 + (a - 1)*q^102 + (-a + 1)*q^114 + a*q^126 + (a
        - 1)*q^138 + a*q^150 - a*q^162 + (-a - 1)*q^174 + q^198 - a*q^222 - 
        a*q^246 + q^282 + O(q^290),
    q^9 + 1/2*(a + 1)*q^15 + 1/2*(-a - 1)*q^39 + 1/2*(a - 1)*q^45 + 1/2*(-a - 
        1)*q^51 + 1/2*(a + 1)*q^57 - q^63 + (-a - 1)*q^69 - q^75 + q^81 + (-a + 
        1)*q^87 + a*q^99 + 1/2*(-a - 1)*q^105 + 1/2*(a + 1)*q^111 + 1/2*(-a + 
        1)*q^117 + 1/2*(-a - 1)*q^129 + a*q^141 + 1/2*(a - 1)*q^153 + a*q^159 + 
        1/2*(a - 1)*q^165 + 1/2*(-a + 1)*q^171 + q^195 - q^201 + q^219 + 1/2*(-a
        - 1)*q^237 + 1/2*(-a + 1)*q^267 + 1/2*(a + 1)*q^273 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 9*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + 9*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + 9*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^5 - a*q^9 + (2*a - 2)*q^13 + a*q^17 - q^29 + (a - 1)*q^37 + 
        (-a + 1)*q^41 - q^45 - a*q^49 - 2*a*q^53 + (-a + 1)*q^61 + 2*a*q^65 + 
        2*q^73 + (a - 1)*q^81 + q^85 + a*q^89 - q^97 - q^101 + a*q^109 - 
        2*a*q^113 + 2*q^117 + q^121 + q^125 - q^137 + (a - 1)*q^145 - q^149 + 
        (-a + 1)*q^153 + a*q^157 - 3*a*q^169 + a*q^173 + (-a + 1)*q^181 + 
        a*q^185 - q^193 + a*q^197 - a*q^205 - 2*q^221 + (-a + 1)*q^229 - q^233 +
        (2*a - 2)*q^241 - q^245 + a*q^257 + a*q^261 - 2*q^265 + 2*q^269 + (-a + 
        1)*q^277 + a*q^281 + O(q^290),
    q^2 - a*q^4 + (a - 1)*q^8 + (-a + 1)*q^10 + q^16 - a*q^18 - q^20 + (2*a - 
        2)*q^26 - a*q^32 + a*q^34 + (a - 1)*q^36 + a*q^40 + 2*q^52 - q^58 + (a -
        1)*q^64 + (-a + 1)*q^68 + q^72 + (a - 1)*q^74 + (-a + 1)*q^80 + (-a + 
        1)*q^82 - q^90 - a*q^98 - 2*a*q^104 - 2*a*q^106 + a*q^116 + (-a + 
        1)*q^122 + q^128 + 2*a*q^130 - q^136 - a*q^144 + 2*q^146 + q^148 - q^160
        + (a - 1)*q^162 - q^164 + q^170 + a*q^178 + a*q^180 - q^194 + (a - 
        1)*q^196 - q^202 + (2*a - 2)*q^208 + (2*a - 2)*q^212 + a*q^218 - 
        2*a*q^226 + (-a + 1)*q^232 + 2*q^234 + q^242 - q^244 + q^250 - a*q^256 +
        (-2*a + 2)*q^260 + a*q^272 - q^274 + (a - 1)*q^288 + O(q^290),
    q^3 + (-a + 1)*q^15 - a*q^27 + (2*a - 2)*q^39 + a*q^51 - q^87 + (a - 
        1)*q^111 + (-a + 1)*q^123 - q^135 - a*q^147 - 2*a*q^159 + (-a + 1)*q^183
        + 2*a*q^195 + 2*q^219 + (a - 1)*q^243 + q^255 + a*q^267 + O(q^290),
    q^6 - a*q^12 + (a - 1)*q^24 + (-a + 1)*q^30 + q^48 - a*q^54 - q^60 + (2*a - 
        2)*q^78 - a*q^96 + a*q^102 + (a - 1)*q^108 + a*q^120 + 2*q^156 - q^174 +
        (a - 1)*q^192 + (-a + 1)*q^204 + q^216 + (a - 1)*q^222 + (-a + 1)*q^240 
        + (-a + 1)*q^246 - q^270 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 12*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 12*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^3 + (-a + 1)*q^7 - a*q^9 + (-a + 1)*q^13 + (2*a - 2)*q^19 + 
        a*q^21 - a*q^25 + q^27 - q^31 + q^37 + a*q^39 - q^43 - 2*a*q^57 + (2*a -
        2)*q^61 - q^63 + (-a + 1)*q^67 - q^73 + q^75 + (-a + 1)*q^79 + (a - 
        1)*q^81 - a*q^91 + (-a + 1)*q^93 - q^97 + 2*q^103 + a*q^109 + (a - 
        1)*q^111 - q^117 + q^121 + a*q^127 + (-a + 1)*q^129 + 2*a*q^133 + 
        a*q^139 + (-a + 1)*q^151 + a*q^157 - 2*a*q^163 + 2*q^171 - q^175 + (-a +
        1)*q^181 - 2*a*q^183 + (-a + 1)*q^189 - q^193 - q^199 + a*q^201 - q^211 
        + (a - 1)*q^217 + (-a + 1)*q^219 - q^223 + (a - 1)*q^225 + (-a + 
        1)*q^229 + a*q^237 + (-a + 1)*q^241 - a*q^243 + 2*a*q^247 + (-a + 
        1)*q^259 + a*q^271 + q^273 + (2*a - 2)*q^277 + a*q^279 + (-a + 1)*q^283 
        + (a - 1)*q^289 + O(q^290),
    q^2 + (a - 1)*q^6 + (-a + 1)*q^14 - a*q^18 + (-a + 1)*q^26 + (2*a - 2)*q^38 
        + a*q^42 - a*q^50 + q^54 - q^62 + q^74 + a*q^78 - q^86 - 2*a*q^114 + 
        (2*a - 2)*q^122 - q^126 + (-a + 1)*q^134 - q^146 + q^150 + (-a + 
        1)*q^158 + (a - 1)*q^162 - a*q^182 + (-a + 1)*q^186 - q^194 + 2*q^206 + 
        a*q^218 + (a - 1)*q^222 - q^234 + q^242 + a*q^254 + (-a + 1)*q^258 + 
        2*a*q^266 + a*q^278 + O(q^290),
    q^4 + (a - 1)*q^12 + (a - 1)*q^16 + (-a + 1)*q^28 - a*q^36 - a*q^48 + (-a + 
        1)*q^52 - a*q^64 + (2*a - 2)*q^76 + a*q^84 - a*q^100 + q^108 + a*q^112 -
        q^124 + q^144 + q^148 + a*q^156 - q^172 + q^192 + a*q^208 - 2*a*q^228 + 
        (2*a - 2)*q^244 - q^252 + q^256 + (-a + 1)*q^268 + O(q^290),
    q^8 + (a - 1)*q^24 + (a - 1)*q^32 + (-a + 1)*q^56 - a*q^72 - a*q^96 + (-a + 
        1)*q^104 - a*q^128 + (2*a - 2)*q^152 + a*q^168 - a*q^200 + q^216 + 
        a*q^224 - q^248 + q^288 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 12*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 18*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 + q^16 - q^26 - q^30 - q^33 - q^41 - q^46 + q^49 - q^58 + q^64 - 
        q^65 + q^74 + q^75 + q^78 - q^81 + 2*q^83 - q^104 - q^107 + q^110 - 
        q^115 - q^120 + q^123 - q^132 + q^138 - q^139 - q^145 + q^155 - q^158 - 
        q^164 + q^169 + q^174 - q^184 - q^186 + q^196 - q^201 + 2*q^218 - q^219 
        - q^232 - q^233 + q^243 - q^250 + q^256 - q^260 + q^270 - q^275 - q^286 
        + q^289 + O(q^290),
    q^2 + q^8 - q^13 - q^18 - q^23 - q^29 + q^32 + q^37 - q^52 + q^54 + q^55 - 
        q^72 - q^79 - q^82 - q^92 + q^98 + 2*q^109 - q^116 + q^117 - q^125 + 
        q^128 - q^130 + q^135 - q^143 + q^148 - q^162 + 2*q^166 + 2*q^199 - 
        q^205 + q^207 - q^208 - q^214 + q^216 + q^220 - q^230 - q^253 + q^261 - 
        q^278 - q^288 + O(q^290),
    q^3 + q^12 - q^30 - q^33 + q^48 + q^75 - q^81 - q^90 - q^99 - q^120 - q^132 
        + q^147 - q^186 + q^192 - q^195 - q^201 - q^219 + q^222 + q^225 + q^234 
        + 2*q^249 + q^270 + O(q^290),
    q^5 - q^13 + q^20 + q^22 - q^23 - q^29 + q^31 - q^45 - q^50 - q^52 + q^54 - 
        q^55 + q^61 - q^79 + q^80 - q^82 + q^88 - q^92 + q^103 - q^116 + q^117 +
        q^124 + q^134 + q^146 - q^162 + q^167 - q^180 + q^191 - q^198 - q^200 + 
        q^207 - q^208 - q^214 + q^216 - q^220 + q^239 - q^242 + q^244 + q^245 + 
        q^261 + q^274 + q^277 - q^278 - q^279 + O(q^290),
    q^6 - q^18 + q^24 - q^39 - q^45 + q^54 - q^69 - q^72 - q^87 + q^96 + q^111 +
        2*q^117 + q^135 - q^156 - q^162 + q^165 - q^180 - q^198 + 2*q^207 + 
        q^216 - q^237 - q^246 + 2*q^261 - q^276 - q^279 - q^288 + O(q^290),
    q^9 - q^27 - q^30 - q^33 + q^36 + q^75 + q^78 - q^108 - q^120 + q^123 - 
        q^132 + q^138 + q^144 + q^174 - q^186 - q^201 - q^219 - q^234 + 
        O(q^290),
    q^10 + q^11 - q^25 - q^26 + q^27 + q^40 - q^41 + q^44 - q^46 - q^58 + q^62 +
        q^67 + q^73 - q^81 - q^90 - q^99 - q^100 - q^104 - q^107 + q^108 - q^110
        - q^121 + q^122 + q^137 - q^139 - q^155 - q^158 + q^160 - q^164 + q^169 
        + q^176 - q^184 + q^185 + q^206 + q^211 + q^225 - q^232 - q^233 + q^234 
        + q^248 + q^268 + q^275 + O(q^290),
    q^15 - q^18 - q^39 + q^54 + q^60 + q^66 - q^69 - q^72 - q^87 + q^93 + q^117 
        - q^150 - q^156 - q^165 + q^183 + q^207 + q^216 - q^237 + q^240 - q^246 
        + q^261 + q^264 - q^276 - q^288 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 18*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^21 - q^25 + q^27 - q^33 + q^37 + q^49 - q^63 - 2*q^67 + q^99 - q^121 +
        q^123 - 2*q^139 + q^141 + q^147 + 2*q^151 + q^159 + q^169 - q^213 - 
        q^219 - q^231 + q^249 - q^289 + O(q^290),
    q^2 - q^42 - q^50 + q^54 - q^66 + q^74 + q^98 - q^126 - 2*q^134 + q^198 - 
        q^242 + q^246 - 2*q^278 + q^282 + O(q^290),
    q^3 - q^9 - q^21 - 2*q^25 + 2*q^27 - q^33 + 2*q^37 + 2*q^49 - q^63 - 2*q^67 
        + q^75 - q^81 + 2*q^85 + q^99 - q^111 - 2*q^115 - 2*q^121 + q^123 - 
        2*q^127 - 2*q^139 + q^141 + 2*q^145 + 4*q^151 + q^159 - 2*q^211 - q^213 
        - q^219 + 2*q^223 - q^225 + 2*q^229 - q^231 + q^243 + q^249 - 2*q^255 - 
        2*q^289 + O(q^290),
    q^4 - q^28 + q^36 - q^40 - q^48 - q^84 + q^112 + q^120 + q^136 - q^184 + 
        q^192 + q^196 + q^232 - q^252 - q^256 - q^268 + O(q^290),
    q^5 - q^15 - q^17 + q^23 - q^29 + q^45 + q^51 - q^59 - q^69 + q^87 + q^89 + 
        q^113 - q^131 - q^135 - q^153 - q^167 + q^177 + q^179 - q^185 - q^191 + 
        q^207 + q^227 + q^239 - q^245 + q^251 + q^257 - q^261 - q^267 + q^281 + 
        O(q^290),
    q^6 - q^18 - q^42 - 2*q^50 + 2*q^54 - q^66 + 2*q^74 + 2*q^98 - q^126 - 
        2*q^134 + q^150 - q^162 + 2*q^170 + q^198 - q^222 - 2*q^230 - 2*q^242 + 
        q^246 - 2*q^254 - 2*q^278 + q^282 + O(q^290),
    q^7 - q^9 - q^25 + q^27 - q^33 + q^37 - q^67 + q^73 + q^75 - q^81 + q^85 + 
        q^99 - q^111 - q^115 - 2*q^121 + q^123 - 2*q^127 - q^139 + q^141 + q^145
        - q^147 + 2*q^151 + q^157 + q^159 - q^175 + q^181 + q^189 + q^201 - 
        2*q^211 - q^213 - q^231 + q^249 - q^255 + q^259 + q^271 - q^289 + 
        O(q^290),
    q^8 - q^56 + q^72 - q^80 - q^96 - q^168 + q^224 + q^240 + q^272 + O(q^290),
    q^10 - q^30 - q^34 + q^46 - q^58 + q^90 + q^102 - q^118 - q^138 + q^174 + 
        q^178 + q^226 - q^262 - q^270 + O(q^290),
    q^11 + q^21 + q^25 - q^27 - q^37 - q^41 - q^47 - q^49 - q^53 + q^67 + q^71 -
        q^75 + q^77 + q^81 - q^83 - q^85 - q^99 + q^101 + q^111 + q^115 + q^121 
        + q^127 + q^139 - q^145 + q^149 - 2*q^151 - q^173 + q^197 - q^201 + 
        q^211 + q^219 - q^223 + q^225 - q^229 - q^243 + q^255 + q^263 - q^275 - 
        q^287 + q^289 + O(q^290),
    q^12 - q^28 - q^48 + q^64 - q^84 - q^100 + q^108 + q^112 + q^148 - q^160 + 
        2*q^196 - q^252 - q^256 - q^268 + O(q^290),
    q^14 - q^18 - q^50 + q^54 - q^66 + q^74 - q^134 + q^146 + q^150 - q^162 + 
        q^170 + q^198 - q^222 - q^230 - 2*q^242 + q^246 - 2*q^254 - q^278 + 
        q^282 + O(q^290),
    q^16 - q^40 - q^48 + q^120 + q^136 + q^144 - q^160 - q^184 + q^232 - q^256 +
        O(q^290),
    q^20 + q^32 - q^60 - q^68 - q^80 + q^92 - q^96 - q^116 + q^180 + q^204 - 
        q^236 + q^240 + q^272 - q^276 + q^288 + O(q^290),
    q^22 + q^42 + q^50 - q^54 - q^74 - q^82 - q^94 - q^98 - q^106 + q^134 + 
        q^142 - q^150 + q^154 + q^162 - q^166 - q^170 - q^198 + q^202 + q^222 + 
        q^230 + q^242 + q^254 + q^278 + O(q^290),
    q^24 - q^32 - q^56 + q^80 + q^128 - q^168 - q^200 + q^216 + q^224 - q^240 - 
        q^272 - q^288 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
888
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 18*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*q^16 - 1/2*q^21 + 1/2*q^25 - q^28 - 1/2*q^33 - 1/2*q^34 + q^36 + 
        1/2*q^40 - 1/2*q^46 + 1/2*q^48 + 1/2*q^49 + q^58 - q^63 + 1/2*q^64 - 
        1/2*q^67 - q^70 - q^73 - 1/2*q^75 - 1/2*q^78 + q^81 - 1/2*q^84 + 
        1/2*q^85 + 1/2*q^100 + 1/2*q^111 - 1/2*q^114 + 1/2*q^115 - q^118 + 
        1/2*q^120 - 1/2*q^121 - 3/2*q^127 - 1/2*q^132 - q^136 + q^138 + 
        1/2*q^139 + 1/2*q^144 + 1/2*q^145 - 1/2*q^151 - 1/2*q^157 - 1/2*q^159 - 
        1/2*q^169 - 1/2*q^178 + 1/2*q^181 + 1/2*q^189 - 1/2*q^192 - 1/2*q^196 - 
        1/2*q^201 + 1/2*q^219 + 1/2*q^222 + q^223 + 1/2*q^225 + q^226 + 
        1/2*q^231 - 1/2*q^232 + 1/2*q^238 + 1/2*q^247 - 1/2*q^249 - q^250 - 
        1/2*q^255 + q^258 + 1/2*q^259 + q^262 - 1/2*q^268 + 3/2*q^271 + 
        1/2*q^286 + O(q^290),
    q^2 - q^15 + q^17 - q^18 - q^29 + q^35 - q^50 - q^56 + q^59 - q^60 + q^68 - 
        q^69 + q^80 + q^96 + q^98 + q^105 + q^116 - q^119 + q^125 - q^131 + 
        q^135 - q^140 - q^153 - q^161 + q^162 - q^167 - q^168 + q^185 + q^191 - 
        q^200 - q^203 + q^222 - q^236 - q^242 - 2*q^254 + q^261 + q^267 + q^276 
        + O(q^290),
    q^3 - q^11 + q^12 - q^21 - q^26 + q^27 - q^38 - q^44 + q^48 - q^53 + q^74 + 
        q^75 + q^77 - q^83 - q^84 + 2*q^86 - q^99 + 2*q^101 - q^102 - q^104 - 
        q^107 + q^108 + 2*q^122 - q^138 + 2*q^149 - q^152 - q^173 - q^176 + 
        q^182 - q^189 + q^192 - q^197 - q^212 - q^218 - q^219 + q^221 - q^234 + 
        q^243 + q^266 - q^269 - q^275 + O(q^290),
    q^4 + q^11 - 2*q^12 - q^16 + 3*q^21 + q^26 - 2*q^27 + q^28 - q^30 + q^34 - 
        q^36 - q^37 + q^38 - q^40 + q^44 - 2*q^46 - q^48 + q^53 - q^58 + q^64 + 
        2*q^67 + q^70 - q^74 - q^77 + q^83 - 2*q^86 + q^99 - 2*q^101 + q^102 + 
        q^104 + q^107 - 2*q^112 - 2*q^115 + q^118 - 2*q^122 - 2*q^139 + q^144 + 
        q^147 + q^148 - 2*q^149 + q^152 + 2*q^157 + q^160 + q^173 + 2*q^174 + 
        q^176 + 2*q^178 - 2*q^181 - q^182 + q^184 - q^189 + q^196 + q^197 - 
        q^210 + q^212 + q^218 - q^219 - q^221 + 2*q^226 - 2*q^229 + 2*q^232 + 
        q^234 + q^238 + q^250 - q^252 - 2*q^259 - q^262 - q^266 - q^268 + q^269 
        + q^270 + q^275 - q^280 + O(q^290),
    q^5 + q^15 - 2*q^17 + 2*q^18 - 2*q^23 + q^29 + q^32 - 2*q^35 - q^39 - q^42 -
        q^45 + 3*q^50 + q^51 - q^57 - q^59 + 2*q^60 - q^66 - 3*q^68 + q^69 + 
        2*q^72 - q^80 + q^87 - q^92 - q^96 - q^98 - 2*q^105 + q^111 + 3*q^113 + 
        3*q^119 - 2*q^125 - 2*q^126 + q^128 + 2*q^129 + q^131 - q^134 - q^135 + 
        q^143 - 2*q^146 - q^150 - q^156 + q^161 + q^168 + q^170 - q^177 + q^179 
        + 2*q^183 - q^185 - 2*q^191 + 3*q^200 + q^209 - q^222 - q^227 - q^228 + 
        q^230 + q^239 + q^240 + q^242 + q^245 + q^251 + q^254 - q^261 - q^264 - 
        q^267 - 2*q^272 + q^273 + q^278 - 2*q^281 + q^288 + O(q^290),
    q^6 - q^15 + 2*q^17 - 2*q^18 + q^20 + 3*q^23 - q^29 - 2*q^32 + q^35 + q^39 +
        q^42 - 3*q^50 - q^54 + q^56 + q^57 + q^59 - 2*q^60 + q^66 + 3*q^68 - 
        q^69 - 2*q^72 - q^74 + q^80 - 2*q^87 - q^89 + q^96 + q^98 + 3*q^105 - 
        q^111 - 4*q^113 - 4*q^119 + q^125 + 2*q^126 - q^128 - 2*q^129 - q^131 + 
        q^134 + q^135 - q^140 - q^143 + 2*q^146 + q^156 - 2*q^168 + q^170 + 
        2*q^177 - q^180 - 2*q^183 + q^185 + 2*q^191 - 2*q^200 - q^203 + q^204 - 
        q^207 - q^209 + q^222 + q^228 - q^230 - q^242 - q^254 - q^257 + q^261 + 
        q^264 + q^267 + q^272 - q^273 - q^278 + 3*q^281 + O(q^290),
    q^7 + q^11 - 2*q^12 - q^16 + 2*q^21 + q^25 + q^26 - 2*q^27 + q^28 - q^37 + 
        q^38 - q^40 + q^44 - 2*q^46 - q^48 + q^53 - q^63 + q^64 + q^67 - q^73 - 
        q^74 - q^75 - q^77 + q^83 + q^85 - 2*q^86 + q^99 + q^100 - 2*q^101 + 
        q^102 + q^104 + q^107 - q^112 - q^115 + q^120 - 2*q^122 - q^136 + q^138 
        - q^139 + q^144 + q^145 + q^147 + q^148 - 2*q^149 + q^152 + q^157 + 
        q^173 + 2*q^174 - q^175 + q^176 + 2*q^178 - q^181 - q^182 + q^184 - 
        q^192 + q^197 - q^201 - 2*q^210 + q^212 + q^218 - q^221 - q^225 + 
        2*q^226 - 2*q^229 + q^232 + q^234 + 2*q^238 - q^252 + q^255 - q^259 - 
        q^266 - q^268 + q^269 + q^271 + q^275 - q^289 + O(q^290),
    q^8 + 2*q^15 - 3*q^17 + 2*q^18 - q^20 - q^23 - q^24 + q^32 - q^39 + q^42 + 
        3*q^50 - q^57 + q^60 - q^66 - 2*q^68 + q^72 - 2*q^80 - q^89 - 2*q^92 - 
        q^96 - q^98 - 2*q^105 + q^111 + 2*q^113 - q^116 + 3*q^119 - 2*q^126 + 
        2*q^128 + 2*q^129 + q^134 - 2*q^135 + 2*q^140 + q^143 - 2*q^146 + q^150 
        + q^153 - q^156 + 3*q^161 + q^167 + q^168 - q^170 + q^180 + 2*q^183 - 
        2*q^185 - 3*q^191 + 2*q^200 - q^204 - q^207 + q^209 + q^216 - q^222 - 
        2*q^224 - q^228 - q^230 + q^236 + 2*q^239 + q^242 + q^254 - q^257 - 
        q^264 - q^272 + q^273 - q^276 - q^278 - q^281 + q^288 + O(q^290),
    q^9 + 1/2*q^16 - 1/2*q^21 + 3/2*q^25 + q^30 - 1/2*q^33 - 3/2*q^34 + q^36 - 
        1/2*q^40 - 1/2*q^46 - 1/2*q^48 - 1/2*q^49 - q^63 + 1/2*q^64 - 1/2*q^67 -
        q^73 - 1/2*q^75 - 1/2*q^78 + 1/2*q^84 + 1/2*q^85 + 3/2*q^100 - 1/2*q^111
        - 1/2*q^114 + 1/2*q^115 + 1/2*q^120 + 1/2*q^121 + 1/2*q^127 - 1/2*q^132 
        - q^136 + 1/2*q^139 + 1/2*q^144 + 1/2*q^145 - 1/2*q^151 - 1/2*q^157 - 
        1/2*q^159 - q^160 + 1/2*q^169 - 2*q^175 - 1/2*q^178 + 1/2*q^181 - q^184 
        + 1/2*q^189 - 1/2*q^192 - 1/2*q^196 - 1/2*q^201 - q^210 + 1/2*q^219 + 
        1/2*q^222 + q^223 - 1/2*q^225 + q^226 + 1/2*q^231 - 1/2*q^232 + 
        3/2*q^238 + 1/2*q^247 - 1/2*q^249 - q^252 + 3/2*q^255 + q^256 + q^258 + 
        1/2*q^259 + 1/2*q^268 - q^270 + 3/2*q^271 + q^280 + 1/2*q^286 - q^289 + 
        O(q^290),
    q^10 + q^11 - q^12 - q^16 + q^21 + q^26 - 2*q^27 + q^28 - q^37 + q^38 + q^44
        - q^46 - q^48 + q^53 - q^70 - q^74 - 2*q^75 - q^77 + q^83 + 2*q^85 - 
        2*q^86 - q^90 + q^99 + q^100 - 2*q^101 + 2*q^102 + q^104 + q^107 - q^108
        + q^120 - 2*q^122 - q^136 + q^138 + q^144 + q^147 - 2*q^149 + q^152 + 
        q^173 + q^174 + q^176 + q^178 - q^182 + q^189 - q^192 + q^197 - q^210 + 
        q^212 + q^218 + q^219 - q^221 + q^226 - 2*q^229 + q^232 + q^234 + q^238 
        - q^250 - q^252 - q^266 - q^268 + q^269 + q^275 - q^280 + O(q^290),
    q^13 - q^15 + 2*q^17 - 2*q^18 + q^19 + q^20 + q^22 + 3*q^23 - q^24 - q^29 - 
        2*q^32 + q^35 - q^37 + q^39 + 2*q^42 - 2*q^43 - 3*q^50 + q^51 + q^52 - 
        2*q^54 + q^56 + q^57 + q^59 - 2*q^60 - 2*q^61 + q^66 + 3*q^68 - 2*q^72 -
        q^74 + q^76 + q^80 - 2*q^87 + q^88 - q^89 - q^91 + q^98 + 3*q^105 + 
        q^106 + q^109 - q^111 - 4*q^113 + q^117 - 4*q^119 + q^125 + 2*q^126 - 
        q^128 - 2*q^129 - q^131 - q^133 + q^134 + q^135 - q^140 - q^143 + 
        2*q^146 - q^148 - q^150 - q^154 + q^156 + q^163 + q^166 - q^168 + q^170 
        + q^171 - 2*q^172 + 2*q^177 - q^180 - 2*q^183 + q^185 - q^187 + 2*q^191 
        + q^198 - 2*q^200 - 2*q^202 - q^203 + 2*q^204 - q^207 + q^208 - q^209 + 
        q^214 - q^216 + q^222 + q^228 - q^230 - q^242 - 2*q^244 - q^253 - q^254 
        - q^257 + q^259 + q^261 + q^264 + 2*q^267 + q^272 - q^273 + q^276 + 
        q^277 - q^278 + 3*q^281 + q^283 + O(q^290),
    q^14 + q^15 - q^17 - q^20 - q^24 - q^29 + q^35 + q^42 + q^50 + q^59 - q^69 -
        q^80 - q^92 - q^105 + q^119 + q^125 - q^126 + q^128 - q^131 + q^134 - 
        q^135 + q^140 - q^146 + q^150 + q^153 + q^161 + q^167 - q^170 + q^180 - 
        q^185 - q^191 - q^203 - q^204 + q^216 - q^224 - q^230 + q^261 + q^267 - 
        q^278 + O(q^290)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^32 + a^28 + a^11)*q^2 + (a^35 - a^22 + a^18 - a^14 + a)*q^4 + (a^31 
        - a^10)*q^7 + (-a^33 + a^25 - a^21 + a^8 - a^4)*q^8 + a^2*q^9 + (a^33 - 
        a^27 - a^24 + a^18 + a^16 + a^15 - a^12 - a^9 + a^3 + 1)*q^11 + (a^21 - 
        a^17 - 1)*q^14 + (-a^34 - a^33 - a^31 - a^28 + a^27 + a^25 + a^24 - a^23
        + a^22 - a^18 - a^16 + a^12 - a^11 + a^10 + a^9 + 2*a^7 - a^3 - a - 
        1)*q^16 + (-a^34 + a^30 + a^13)*q^18 + (-a^26 + a^23 + a^22 + a^6 + a^5 
        - a^2)*q^22 + (a^34 - a^19)*q^23 + (a^27 - a^6)*q^25 + (a^32 - a^24 - 
        a^7 + a^3)*q^28 + (a^34 + a^33 + a^31 + a^30 - a^25 - a^24 - a^22 - a^21
        + a^19 + a^16 + a^15 - a^10 - a^9 - a^7 - a^6 + a + 1)*q^29 + (-a^33 - 
        2*a^30 + a^26 + a^24 + a^21 - a^18 - a^15 + a^14 - a^13 + 2*a^9 + a^6 - 
        a - 1)*q^32 + (-a^34 + a^28 + a^25 - a^24 + a^20 - a^19 - a^16 + a^13 + 
        a^10 - a^4 + a^3 - a)*q^36 + (-a^33 - a^31 - a^30 + a^24 + a^21 - a^18 -
        a^15 + a^9 + a^6 - 1)*q^37 + (-a^15 - a)*q^43 + (a^35 + 2*a^34 - a^28 - 
        a^26 - a^25 + a^20 + a^19 + a^17 - a^14 - a^13 + a^12 - a^11 - a^10 - 
        a^9 - a^8 + a^5 + a^4 + a^2 + a)*q^44 + (a^35 + a^32 - 2*a^26 + a^24 - 
        a^23 + a^17 - a^11 - a^9 - a^8 + a^5 + a^2)*q^46 + (-a^35 - a^32 + a^26 
        + a^23 - a^20 - a^17 + a^11 + a^8 - a^2)*q^49 + (-a^35 + a^29 + a^26 - 
        a^20 + a^14 - a^13 + a^11 - a^5 - a^2)*q^50 + (-a^34 - a^31 - a^27 + 
        a^25 + a^22 - a^16 + a^10 + a^7 - a)*q^53 + (-a^35 + a^33 + a^30 - a^24 
        + a^22 - a^21 + a^15 + a^10 - a^9 - a^6 + 1)*q^56 + (a^30 + a^29 - a^25 
        - a^8 - a^5)*q^58 + (a^33 - a^12)*q^63 + (-a^35 + a^33 - a^32 - a^29 + 
        a^26 + a^23 + a^21 - a^20 - a^17 + a^16 - a^12 + a^11 + a^8 + a^4 - a^3 
        - a^2 - 1)*q^64 + (a^20 - a^3)*q^67 + (-a^25 - a^7)*q^71 + (-a^35 + a^27
        - a^23 + a^10 - a^6)*q^72 + (a^35 - 2*a^29 - a^26 - a^21 + a^20 + a^17 -
        a^14 - a^11 + a^5 + a^4 + a^2)*q^74 + (a^25 - a^5 - a^4)*q^77 + (-a^35 -
        a^33 + a^29 + a^27 + a^26 + a^24 - a^20 - a^18 + a^14 + a^12 + a^11 + 
        a^9 - a^5 - a^3 - a^2 - 1)*q^79 + a^4*q^81 + (a^33 - a^29 - a^22 - a^12 
        - a^5 + a)*q^86 + (a^35 + 2*a^34 + a^32 + a^31 - 2*a^28 - a^27 - a^26 - 
        2*a^25 + a^24 - a^23 - a^22 + 2*a^19 + a^17 + a^16 - a^15 - a^13 - a^11 
        - 2*a^10 - a^8 + a^4 + 2*a^2 + 2*a)*q^88 + (a^35 + a^34 + a^32 + a^31 - 
        a^28 - a^27 - a^26 - a^25 - a^23 + a^19 + a^17 + a^14 - a^13 + a^12 - 
        a^11 - 2*a^10 - a^8 + a^4 + a^2 + a)*q^92 + (-a^31 + a^6)*q^98 + (a^35 -
        a^29 - a^26 + a^20 + a^18 + a^17 - a^14 - a^11 + a^5 + a^2)*q^99 + 
        (-a^35 - a^32 + a^28 + a^26 + a^23 - a^20 - a^17 + a^11 + a^8 - a^3 - 
        a^2)*q^100 + (-a^34 - a^30 + a^26 - a^17 + a^13 + a^9)*q^106 + (-a^34 + 
        a^28 + a^26 + a^25 - a^19 - a^16 + a^13 + a^10 - a^4 - a)*q^107 + (a^14 
        + a^8)*q^109 + (-a^35 + 2*a^29 + a^26 - a^25 - a^20 + a^14 + a^12 + a^11
        - a^8 - a^5 - a^2 + 1)*q^112 + (-a^35 + a^24)*q^113 + (-a^33 - a^32 + 
        a^31 + a^28 - a^22 + a^20 - a^15 + a^13 + a^11 - a^7 - a^4)*q^116 + 
        (a^32 - a^30 + a^10 + a^9)*q^121 + (a^23 - a^19 - a^2)*q^126 - a^9*q^127
        + (a^35 + a^33 + a^32 - a^31 - a^27 - a^24 + a^23 - a^19 + a^18 + a^15 -
        a^14 - a^12 - a^9 - a^7 + a^6 + a^3 - a^2 + 1)*q^128 + (a^35 - a^31 + 
        a^27 - a^14 + a^10 - a^6)*q^134 + (-a^34 + a^13 - a^11)*q^137 + (-a^35 +
        a^33 - a^32 + a^30 - a^24 - a^21 + a^11 - a^9 - a^6 + 1)*q^142 + (-a^35 
        - a^30 + a^29 + a^26 - a^25 - a^20 + a^14 - a^13 + a^11 + a^9 - a^5 - 
        a^2 + 1)*q^144 + (a^33 + a^32 - a^28 - a^27 - a^19 + a^18 + a^15 - a^12 
        - a^11 - a^9 + a^7 + a^3 + 1)*q^148 + (-a^17 - a^11)*q^149 + (a^23 + 
        a^12 - a^2)*q^151 + (-a^34 - 2*a^33 + a^28 + a^27 + a^25 + a^24 - a^19 -
        a^18 - a^16 + a^13 + a^12 - a^11 + a^10 + a^9 - a^4 - a^3 - a - 1)*q^154
        + (a^28 + a^26 - a^3 - a)*q^158 + (-a^23 + a^8)*q^161 + (a^33 + a^32 - 
        a^27 - a^24 + a^18 + a^15 - a^12 - a^9 + a^3 + 1)*q^162 + (a^22 + 
        a^18)*q^163 + O(q^168)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^11 - a^7)*q^2 + (a^11 + a^7 - a^4 - a - 1)*q^4 + a^10*q^7 + (-a^11 +
        a^9 + 2*a^8 - a^6 + 2*a^4 + a^3 - a)*q^8 + a^2*q^9 + (a^9 - a^8 - a^2 + 
        a)*q^11 + (-a^10 + a^3 + 1)*q^14 + (-a^9 - 2*a^8 - a^7 + a^6 + a^5 - a^4
        - a^3 + a^2 + 2*a + 1)*q^16 + (-a^11 - a^10 - a^9 + a^8 + a^7 - a^6 - 
        a^5 + a^3 + a^2 - 1)*q^18 + (a^6 - a^5 + a^2 - a)*q^22 + (-a^10 - a^9 + 
        a^7 - a^4 + a^2 + a)*q^23 + a^6*q^25 + (-a^11 - a^7 - a^3)*q^28 + 
        (2*a^11 - a^9 - a^8 + a^6 + a^5 - 2*a^4 - a^3 + a + 1)*q^29 + (-a^10 - 
        a^9 + a^8 + 2*a^7 - a^6 - 2*a^5 - a^4 + a^3 + a^2 - a - 2)*q^32 + (a^11 
        + a^10 + a^9 - a^8 - a^7 + a^5 - 2*a^3 - 2*a^2 + 1)*q^36 + (a^11 + a^10 
        - a^4)*q^37 - a^8*q^43 + (-2*a^11 - 2*a^10 + a^9 + 3*a^8 + a^7 - 2*a^6 -
        a^5 + a^4 + 3*a^3 - a - 2)*q^44 + (a^11 + a^10 - a^9 - a^8 - a^7 - 2*a^3
        - a^2 + 1)*q^46 + (a^11 + a^10 - a^8 - a^7 + a^5 - a^3 - a^2 + 1)*q^49 +
        (-a^11 - 2*a^10 + a^8 + a^7 - a^6 - a^5 + 2*a^3 + a^2 - 1)*q^50 + (a^11 
        - a^9 - a^8 + 2*a^6 + a^5 - a^4 - a^3 + a + 1)*q^53 + (a^11 + a^10 + a^7
        - a^4 - a - 1)*q^56 + (-a^9 + a^8 - a^5 + a^4)*q^58 + (-a^11 + a^9 + a^8
        - a^6 + a^4 + a^3 - a - 1)*q^63 + (a^10 + 2*a^9 + a^8 - a^7 - a^6 + a^5 
        + 2*a^4 - a^3 - 2*a^2 - a + 1)*q^64 + (a^11 + a^10 - a^8 - a^7 + a^5 - 
        2*a^3 - a^2 + 1)*q^67 + (-a^7 + a^4)*q^71 + (a^10 + a^7 + a^6 + a^2 - 
        1)*q^72 + (-a^10 + a^8 + a^4 + a^3 + 1)*q^74 + (-a^5 + a^4)*q^77 + 
        (-a^10 - a^8 + a^3 + a)*q^79 + a^4*q^81 + (-a^11 + a^9 + 2*a^8 - a^6 - 
        a^5 + a^4 + a^3 - 2*a - 1)*q^86 + (2*a^11 + a^10 - 3*a^8 - 2*a^7 + 2*a^6
        + 2*a^5 - a^4 - 3*a^3 - a^2 + 2*a + 2)*q^88 + (2*a^10 + 2*a^9 + a^5 + 
        a^4 - 2*a^2 - a - 1)*q^92 + (a^10 + a^6)*q^98 + (a^11 - a^10 - a^4 + 
        a^3)*q^99 + (a^11 + a^10 - a^8 - 2*a^7 + a^5 - 2*a^3 - a^2 + 1)*q^100 + 
        (-a^11 - 2*a^10 - a^9 + a^8 + a^7 - a^6 - 2*a^5 + 2*a^3 + a^2 - 1)*q^106
        + (a^9 - a^5 - a^2)*q^107 + (a^8 + a^7 - 1)*q^109 + (-a^11 - a^10 + a^9 
        + 2*a^8 - a^6 + 2*a^4 + 2*a^3 - a)*q^112 + (a^7 - a^3 - 1)*q^113 + (a^10
        + a^9 - 2*a^8 - a^7 + 2*a^5 - a^3 - 2*a^2 + a + 1)*q^116 + (-a^11 + a^10
        - a^9)*q^121 + (a^11 - a^9 - a^8 + a^6 + a^5 - a^4 - a^3 + a^2 + a + 
        1)*q^126 - a^9*q^127 + (a^10 - a^9 - 2*a^8 + 2*a^6 + a^5 - a^4 - a^3 + 
        a^2 + 2*a)*q^128 + (2*a^10 + a^7 + a^6 - 1)*q^134 + (-2*a^11 - a^10 + 
        a^8 + a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^137 + (-a^8 + a^7 - a^4 + a - 
        1)*q^142 + (-a^11 - 2*a^10 - a^9 + a^8 + a^7 - a^6 - a^5 + a^4 + 2*a^3 +
        a^2)*q^144 + (-a^11 - a^9 - 2*a^8 - a^7 + a^6 + a^5 - a^4 - 2*a^3 + 2*a 
        + 1)*q^148 + (-a^11 - a^10 + a^3)*q^149 + (-a^11 + a^9 + a^8 - a^6 + a^4
        + a^3 + a^2 - a - 1)*q^151 + (-2*a^11 + 2*a^9 - a^6 + a^4 + a^3 - a^2 - 
        1)*q^154 + (-a^7 - a^5 - a^3 - a)*q^158 + (a^8 + a^2)*q^161 + (-a^11 - 
        a^8 + a)*q^162 + (a^11 - a^4 - a)*q^163 + O(q^168)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^5 - a^2 - a)*q^2 + (-a^4 + a^2 + a + 1)*q^4 + (-a^4 + a)*q^7 + (a^5 -
        a^2 - a - 1)*q^8 + a^2*q^9 + (-a^4 - a^3 + a)*q^11 + (a^5 + a^3 - a^2 - 
        1)*q^14 + (-a^5 + a^2 + a + 1)*q^16 + (-a^3 - a)*q^18 + (a^5 + a^4 + a^3
        - 1)*q^22 - a^4*q^23 - a^3*q^25 + (-a^5 - a^4 + a + 1)*q^28 + (a^4 + a^3
        - 1)*q^29 + (a^4 - a^2 - a - 1)*q^32 + (a^4 + a^2 + 1)*q^36 + (a^4 - 
        a^3)*q^37 + (a^3 - a - 1)*q^43 + (-2*a^5 - a^4 - a^3 + 1)*q^44 + (a^5 + 
        a^3)*q^46 - a^5*q^49 + (a^4 + a^2)*q^50 + (-a^4 + a + 1)*q^53 + (a^5 + 
        a^4 + a^3 - a^2 - a - 1)*q^56 + (-2*a^5 - a^4 - a^3 + a)*q^58 + q^63 + 
        (-a^5 + a^2 + a)*q^64 + (-a^3 + a^2)*q^67 + (-2*a^4 + 2*a)*q^71 + (-a^3 
        - a^2 - a)*q^72 + (-a^5 + a^4 - a^3 + a^2)*q^74 + (-a^5 - a)*q^77 + (a^2
        + 1)*q^79 + a^4*q^81 + (-a^5 - a^4 + a^2 + a + 1)*q^86 + (a^5 + 2*a^4 + 
        2*a^3 - a - 1)*q^88 + (-a^4 - a^3 - a^2 + 1)*q^92 + (a^4 + a^3 - 1)*q^98
        + (-a^5 + 1)*q^99 + (-a^5 - a^3 - a)*q^100 + (2*a^5 + a^3 - 2*a^2 - a - 
        1)*q^106 + (a^5 + a^4 - a^2)*q^107 - a^2*q^109 + (-a^5 - a^4 - a^3 + a^2
        + a + 1)*q^112 + (a^5 + a^3 - a^2 - 1)*q^113 + (a^5 + 2*a^4 + 2*a^3 - 
        2)*q^116 + (-a^5 + a^3 - a - 1)*q^121 + (a^5 - a^2 - a)*q^126 + q^127 - 
        q^128 + (a^4 - a^3 + a^2 - a)*q^134 + (a^2 - a)*q^137 + (2*a^5 + 2*a^3 -
        2*a^2 - 2)*q^142 + (a^3 + a^2 + a)*q^144 + (-a^5 + a^4 + a^2 - a - 
        1)*q^148 + a^5*q^149 + (a^5 - a^3 - a^2)*q^151 + (a^4 + a^3 + a^2)*q^154
        + (a^5 - a^3 - a^2 - 2*a)*q^158 - a^2*q^161 + (-a^5 - a^3)*q^162 + (a^4 
        + 1)*q^163 + O(q^168)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^4 + 1)*q^2 + (a^4 - a + 1)*q^4 - a^3*q^7 + (-a^5 + a^4 - a + 1)*q^8 +
        a^2*q^9 + (a^2 - a)*q^11 + (-a^3 + 1)*q^14 + (-a^5 + a^4 + a^2 - a + 
        1)*q^16 + (a^5 - a^4 + a^3 + a - 1)*q^18 + (-a^4 + a^3 - 1)*q^22 + (-a^4
        + a^3 - a^2 + a - 1)*q^23 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^25 + (a^4 
        - a^3 + 1)*q^28 + (-a^5 + a^4)*q^29 + a^3*q^32 + (a^5 - a^4 + a - 
        1)*q^36 + (a^4 - a^3)*q^37 - 2*a*q^43 + (-a^4 + a^2 - 1)*q^44 + (-a^4 + 
        a - 1)*q^46 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^49 + (a^5 - a^4 - a^2 + 
        a - 1)*q^50 + (-a^4 + a^3 - a^2 + a - 1)*q^53 + (a^4 - a^3 - a + 1)*q^56
        + (-a^5 + a^4 + a^2 - a)*q^58 - a^5*q^63 + (a^5 - a^4 - a^2 + a - 
        1)*q^67 + (a^4 + 1)*q^71 + (a^5 - a^4 + a)*q^72 + (a^4 - a^3 - a + 
        1)*q^74 + (-a^5 + a^4)*q^77 + (-a^3 - a)*q^79 + a^4*q^81 + (-2*a^5 - 
        2*a)*q^86 + (a^5 - 2*a^4 + a^3 + a - 1)*q^88 + (a^5 - 2*a^4 + a^3 - a^2 
        + 2*a - 1)*q^92 + (a^5 - a^4 - a^2 + a - 1)*q^98 + (a^4 - a^3)*q^99 + 
        (a^5 - a^4 - a^2 + a)*q^100 + (-a^4 + a - 1)*q^106 + (-a^5 + a^2)*q^107 
        + (-a + 1)*q^109 + (-a^5 + a^4 - a^3 - a + 1)*q^112 + (-a^3 + 1)*q^113 +
        (-a^5 + a^3 - 1)*q^116 + (a^4 - a^3 + a^2)*q^121 + (-a^5 + a^2)*q^126 + 
        a^2*q^127 + q^128 + (a^5 - a^4 - a^3 - a^2 + a)*q^134 + (a^5 + a^3 - a^2
        + a - 1)*q^137 + (2*a^4 - a + 1)*q^142 + (a^5 + a)*q^144 + (-a^5 + 2*a^4
        - a^3 - a + 1)*q^148 + (a^4 - a^3)*q^149 + (-a^5 + a^2)*q^151 + (-a^5 + 
        a^4 + a^2 - a)*q^154 + (-a^5 - a^3 - a + 1)*q^158 + (a^2 - a)*q^161 + 
        (a^4 - a)*q^162 + (a^4 - a)*q^163 + O(q^168)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 42*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 42*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^2 - a*q^7 + q^8 + (a - 1)*q^9 + (-a + 1)*q^11 + a*q^14 - q^16 + (-a + 
        1)*q^18 + (a - 1)*q^22 - 2*a*q^23 + q^25 + (-a + 1)*q^29 + (-a + 1)*q^37
        + (-a + 1)*q^43 + 2*a*q^46 + (a - 1)*q^49 - q^50 + (-a + 1)*q^53 - 
        a*q^56 + (a - 1)*q^58 + q^63 + q^64 + a*q^67 - 2*a*q^71 + (a - 1)*q^72 +
        (a - 1)*q^74 - q^77 + a*q^79 - a*q^81 + (a - 1)*q^86 + (-a + 1)*q^88 + 
        (-a + 1)*q^98 + a*q^99 + (a - 1)*q^106 - q^107 + (2*a - 2)*q^109 + 
        a*q^112 + a*q^113 - q^126 + q^127 - q^128 - a*q^134 - q^137 + 2*a*q^142 
        + (-a + 1)*q^144 + (2*a - 2)*q^149 + a*q^151 + q^154 - a*q^158 + (2*a - 
        2)*q^161 + a*q^162 + (-a + 1)*q^163 + O(q^168)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 42*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
63*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^8 + q^9 - q^11 - q^13 - q^22 + q^25 - q^26 + q^32 + q^34 + q^38 - q^41
        + q^44 - q^47 + q^49 + q^52 + q^62 - q^68 - q^72 - q^73 + q^74 - q^76 - 
        q^79 + q^81 - q^82 + q^88 - q^94 - q^99 - q^103 + q^104 - q^113 - q^117 
        + q^121 + q^122 - q^124 + q^127 + 2*q^131 + q^142 + 2*q^143 - q^146 - 
        q^148 - q^157 - q^158 + 2*q^163 + q^164 + O(q^168),
    q^2 - q^4 - q^11 - q^13 + q^17 + q^18 + q^19 + q^31 - q^34 - q^36 + q^37 - 
        q^38 - q^41 - q^47 + q^50 + q^61 - q^62 + q^64 + q^68 + q^71 - q^73 - 
        q^74 + q^76 - q^79 + q^88 + q^98 - q^99 - q^100 - q^103 + q^104 + q^107 
        - q^113 - q^117 + q^121 - q^122 + q^124 - q^128 - q^136 - q^142 + q^143 
        + q^148 + q^149 - q^152 + q^153 - q^157 + q^162 + O(q^168),
    q^7 - q^56 + q^63 - q^77 - q^91 - q^154 + O(q^168),
    q^14 - q^28 - q^77 - q^91 + q^119 + q^126 + q^133 + O(q^168)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
889
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 63*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
168
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^2 - q^8 + a*q^11 + q^15 + (-a + 1)*q^16 - a*q^17 + (a - 
        1)*q^19 - a*q^21 - q^22 + (a - 1)*q^30 - a*q^31 + q^34 + (-a + 1)*q^35 +
        (-a + 1)*q^37 - a*q^38 + q^42 + (a - 1)*q^47 - q^49 + (a - 1)*q^61 + 
        q^62 + q^64 + q^69 + a*q^70 - a*q^73 + a*q^74 + (a - 1)*q^79 + a*q^81 - 
        a*q^88 - a*q^94 + (-a + 1)*q^98 + (a - 1)*q^103 + (a - 1)*q^107 + 
        a*q^115 - q^120 - a*q^122 - q^127 + (a - 1)*q^128 - 2*a*q^129 + (-a + 
        1)*q^131 + (a - 1)*q^135 + a*q^136 + (a - 1)*q^138 + q^146 + (a - 
        1)*q^149 + (-a + 1)*q^152 + a*q^157 - a*q^158 + (-a + 1)*q^159 + (-a + 
        1)*q^161 - q^162 + (-a + 1)*q^163 + a*q^165 + O(q^168),
    q^3 + a*q^5 + (a - 1)*q^6 + (-a + 1)*q^7 - q^10 + a*q^14 + a*q^23 - q^24 + 
        (a - 1)*q^27 + a*q^33 - a*q^40 + (-2*a + 2)*q^43 - q^46 + (-a + 1)*q^48 
        - a*q^51 + q^53 - a*q^54 + (a - 1)*q^55 + (a - 1)*q^56 + (a - 1)*q^57 - 
        q^59 - q^66 - q^67 + q^77 + q^80 + (-a + 1)*q^85 + 2*a*q^86 - a*q^89 - 
        a*q^93 - q^95 + q^101 + q^102 + (-a + 1)*q^105 + (a - 1)*q^106 + q^109 -
        a*q^110 + (-a + 1)*q^111 - a*q^112 - a*q^114 + (-a + 1)*q^118 - q^119 + 
        (-a + 1)*q^125 + a*q^133 + (-a + 1)*q^134 + q^137 + (-2*a + 2)*q^139 + 
        (a - 1)*q^141 - q^147 - q^151 + (a - 1)*q^154 + (-a + 1)*q^155 + 
        O(q^168)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
890
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
890
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
88
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
890
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
88
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
890
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
890
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
890
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
890
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
890
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
890
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
890
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 22*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
890
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 22*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
890
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 44*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 - a*q^5 + (a - 1)*q^8 - a*q^9 + q^16 + (-a - 1)*q^17 - q^20 - q^25
        - q^36 + (a + 1)*q^40 - q^45 + (a + 1)*q^47 + a*q^49 + (-a + 1)*q^53 - 
        a*q^64 + (a + 1)*q^67 + (a - 1)*q^68 + 2*q^71 + (a + 1)*q^72 + (-a + 
        1)*q^73 - 2*a*q^79 - a*q^80 - q^81 + (a - 1)*q^85 + a*q^89 + (a + 
        1)*q^97 + a*q^100 + (a + 1)*q^107 - q^121 + a*q^125 + (a - 1)*q^128 - 
        2*q^131 + 2*q^136 + 2*a*q^139 - a*q^144 + (a - 1)*q^153 + (-a - 1)*q^157
        + (-a - 1)*q^167 - a*q^169 + (a - 1)*q^173 + 2*a*q^179 + a*q^180 + (-a +
        1)*q^188 + q^196 - 2*a*q^199 + (-a + 1)*q^200 + (-a - 1)*q^212 + (-a + 
        1)*q^223 + a*q^225 + (a + 1)*q^227 + (-a + 1)*q^233 + (-a + 1)*q^235 + 
        q^245 + q^256 + (-a - 1)*q^257 + (a - 1)*q^263 + O(q^264),
    q^2 + (-a - 1)*q^4 + a*q^8 - a*q^10 - a*q^18 + (a - 1)*q^20 + q^32 + (-a - 
        1)*q^34 + (a - 1)*q^36 + q^40 - q^50 + (-a - 1)*q^64 + 2*a*q^68 + q^72 -
        q^90 + (a + 1)*q^94 + a*q^98 + (a + 1)*q^100 + (-a + 1)*q^106 + a*q^128 
        + (a + 1)*q^134 + (-a + 1)*q^136 + 2*q^142 + (-a + 1)*q^146 - 2*a*q^158 
        - a*q^160 - q^162 + (a - 1)*q^170 + a*q^178 + (a + 1)*q^180 - 2*a*q^188 
        + (a + 1)*q^194 + (-a + 1)*q^196 - a*q^200 - 2*q^212 + (a + 1)*q^214 - 
        q^242 + a*q^250 - 2*q^262 + O(q^264)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
891
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
891
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
891
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
891
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
891
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
891
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
270
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
891
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
891
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
18*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
891
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
270
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
891
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
891
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
891
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
891
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^31 - q^37 + q^49 - q^55 + q^64 - q^67 - q^97 - q^103 - 
        2*q^115 + q^121 - q^124 - q^148 - q^157 - q^163 + q^169 - q^181 + 
        O(q^194),
    q^5 - q^11 + q^20 - 2*q^23 - q^44 + q^47 + q^53 + q^59 + q^71 + q^80 - 
        2*q^89 - 2*q^92 + q^113 - q^125 + q^137 - q^155 - q^176 + q^179 - q^185 
        + q^188 + q^191 + O(q^194)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
891
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^8*q^3 + a^2*q^4 + (a^12 - a^7)*q^5 + a^16*q^9 - a^13*q^11 + a^10*q^12 
        + (-a^15 + a^11 - a^2)*q^15 + a^4*q^16 + (a^14 - a^9)*q^20 + (a^17 - 
        a^14 - a^8 + a^5)*q^23 + (a^15 + a^14 - a^10 - a^6 + a)*q^25 + (a^15 - 
        a^6)*q^27 + (a^10 - a^3)*q^31 + (-a^12 + a^3)*q^33 + (a^9 - 1)*q^36 + 
        (-a^17 - a^13)*q^37 - a^15*q^44 + (-a^14 + a^5 - a)*q^45 + (-a^11 - 
        a^3)*q^47 + a^12*q^48 - a^5*q^49 + (a^8 - a)*q^53 + (-a^16 + a^11 + a^7 
        - a^2)*q^55 + (a^13 + a^6 - a^4)*q^59 + (-a^17 + a^13 - a^4)*q^60 + 
        a^6*q^64 + (-a^16 - a^9 + a^7)*q^67 + (-a^7 + a^4)*q^69 + (-a^10 + a^2 +
        a)*q^71 + (a^13 - a^5 - a^4 + 1)*q^75 + (a^16 - a^11)*q^80 - a^5*q^81 + 
        (a^6 + 1)*q^89 + (-a^16 + a^7 - a)*q^92 + (-a^11 + a^9 - 1)*q^93 + 
        (-a^17 + a^9 - 1)*q^97 + a^2*q^99 + (a^17 + a^16 - a^12 - a^8 + 
        a^3)*q^100 + (-a^12 - a^7 + a^3)*q^103 + (a^17 - a^8)*q^108 + (-a^16 - 
        a^12 + a^7 + a^3)*q^111 + (-a^10 + a^9 + a - 1)*q^113 + (-a^11 + a^8 + 
        a^6 - a^3)*q^115 + (a^17 - a^8)*q^121 + (a^12 - a^5)*q^124 + (a^17 - 
        a^12 - a^9 - a^8 + a^4 + a^3)*q^125 + (-a^14 + a^5)*q^132 + (-a^9 + 
        a^4)*q^135 + (a^11 + a^9 - a^2 - 1)*q^137 + (-a^11 - a^10 + a)*q^141 + 
        (a^11 - a^2)*q^144 - a^13*q^147 + (-a^15 - a^10 + a)*q^148 + (-a^17 - 
        a^15 + a^13 + a^10 - a^4)*q^155 + (a^15 + a^13 - a^6 - a^4)*q^157 + 
        (a^16 - a^9)*q^159 + (-a^14 + a^5 + a^4)*q^163 + (a^6 - a)*q^165 + 
        a^16*q^169 - a^17*q^176 + (a^14 - a^3)*q^177 + (-a^7 - a^5)*q^179 + 
        (-a^16 + a^7 - a^3)*q^180 + (a^14 - a)*q^181 + (-a^16 + a^15 + a^11 + 
        a^7 - a^6)*q^185 + (-a^13 - a^5)*q^188 + (a^15 - a^14 - a^6 + a^5)*q^191
        + a^14*q^192 + O(q^194)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
891
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^4 + (a^4 + a^3 - a)*q^5 - a^4*q^11 + a^4*q^16 + (a^5 - 1)*q^20 + 
        a^2*q^23 + (-a^5 + a^3 - a - 1)*q^25 + (-a^3 - a)*q^31 + (a^5 + a^4 - 
        a^2)*q^37 + (-a^3 + 1)*q^44 + (a^3 - a^2)*q^47 - a^5*q^49 + (-a^5 + a^2 
        + a)*q^53 + (-a^4 + a^2 + a)*q^55 + (-a^4 - a^3 + 1)*q^59 + (a^3 - 
        1)*q^64 + (-a^4 + a + 1)*q^67 + (-a^2 + a)*q^71 + (a^4 - a^2 - a)*q^80 -
        a^3*q^89 + a^4*q^92 + (a^5 - a^2 + 1)*q^97 + (a^5 - a^4 - a^3 - a^2 + 
        a)*q^100 + (-a^4 - a^3 + a)*q^103 + (a - 1)*q^113 + (a^5 - 1)*q^115 + 
        (a^5 - a^2)*q^121 + (-a^5 - a^3)*q^124 + (-a^5 - a^4 + a^3 + a^2 - 
        1)*q^125 + (-a^2 - 1)*q^137 + (a^3 - a - 1)*q^148 + (-a^5 - a^4 - a^3 + 
        a^2 + a + 1)*q^155 + (a^4 + a^3 - 1)*q^157 + (-a^5 + a^4)*q^163 + (-a^4 
        + a)*q^169 + (-a^5 + a^2)*q^176 + (a^5 + a^4 - a)*q^179 + (-a^5 - 
        a)*q^181 + (a^4 - a^3 - 2*a^2 - a + 1)*q^185 + (a^5 - a^4)*q^188 + (a^5 
        - a^3 + 1)*q^191 + O(q^194)
]
;
Bo:=
[
    q + a^2*q^4 + (-a^4 - a^3 + a)*q^5 + a^4*q^11 + a^4*q^16 + (-a^5 + 1)*q^20 -
        a^2*q^23 + (-a^5 + a^3 - a - 1)*q^25 + (-a^3 - a)*q^31 + (a^5 + a^4 - 
        a^2)*q^37 + (a^3 - 1)*q^44 + (-a^3 + a^2)*q^47 - a^5*q^49 + (a^5 - a^2 -
        a)*q^53 + (-a^4 + a^2 + a)*q^55 + (a^4 + a^3 - 1)*q^59 + (a^3 - 1)*q^64 
        + (-a^4 + a + 1)*q^67 + (a^2 - a)*q^71 + (-a^4 + a^2 + a)*q^80 + 
        a^3*q^89 - a^4*q^92 + (a^5 - a^2 + 1)*q^97 + (a^5 - a^4 - a^3 - a^2 + 
        a)*q^100 + (-a^4 - a^3 + a)*q^103 + (-a + 1)*q^113 + (a^5 - 1)*q^115 + 
        (a^5 - a^2)*q^121 + (-a^5 - a^3)*q^124 + (a^5 + a^4 - a^3 - a^2 + 
        1)*q^125 + (a^2 + 1)*q^137 + (a^3 - a - 1)*q^148 + (a^5 + a^4 + a^3 - 
        a^2 - a - 1)*q^155 + (a^4 + a^3 - 1)*q^157 + (-a^5 + a^4)*q^163 + (-a^4 
        + a)*q^169 + (a^5 - a^2)*q^176 + (-a^5 - a^4 + a)*q^179 + (-a^5 - 
        a)*q^181 + (-a^4 + a^3 + 2*a^2 + a - 1)*q^185 + (-a^5 + a^4)*q^188 + 
        (-a^5 + a^3 - 1)*q^191 + O(q^194),
    q^3 + (a^5 - a^2)*q^9 + a^2*q^12 + (-a^4 - a^3 + a)*q^15 + (-a^4 + a)*q^27 +
        a^4*q^33 - a*q^36 + (a^3 + a^2 - 1)*q^45 + a^4*q^48 + (-a^5 + 1)*q^60 - 
        a^2*q^69 + (-a^5 + a^3 - a - 1)*q^75 + (a^3 - 1)*q^81 + (-a^3 - a)*q^93 
        - a^3*q^99 + q^108 + (a^5 + a^4 - a^2)*q^111 + (a^3 - 1)*q^132 + (-a^5 -
        a)*q^135 + (-a^3 + a^2)*q^141 - a^3*q^144 - a^5*q^147 + (a^5 - a^2 - 
        a)*q^159 + (-a^4 + a^2 + a)*q^165 + (a^4 + a^3 - 1)*q^177 + (a^5 + a^4 -
        a^2)*q^180 + (a^3 - 1)*q^192 + O(q^194)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
891
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
18*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^4 - a*q^16 + (-a + 1)*q^31 - q^37 + (a - 1)*q^49 - q^55 + q^64
        + (-a + 1)*q^67 + a*q^97 + (-a + 1)*q^103 + 2*a*q^115 + (a - 1)*q^121 + 
        a*q^124 + (-a + 1)*q^148 + (-a + 1)*q^157 - q^163 - a*q^169 - q^181 + 
        O(q^194),
    q^3 + (a - 1)*q^12 - a*q^48 + (-a + 1)*q^93 - q^111 + (a - 1)*q^147 - q^165 
        + q^192 + O(q^194),
    q^5 + (-a + 1)*q^11 + (a - 1)*q^20 - 2*q^23 + a*q^44 + (a - 1)*q^47 - a*q^53
        + q^59 - a*q^71 - a*q^80 + 2*a*q^89 + (-2*a + 2)*q^92 + q^113 + a*q^125 
        + (a - 1)*q^137 + (-a + 1)*q^155 - q^176 - a*q^179 - q^185 - a*q^188 + 
        (a - 1)*q^191 + O(q^194),
    q^9 + (a - 1)*q^27 + (a - 1)*q^36 + (-a + 1)*q^45 - a*q^81 - a*q^99 - 
        a*q^108 + a*q^135 - a*q^144 + a*q^180 + O(q^194),
    q^15 + (-a + 1)*q^33 + (a - 1)*q^60 - 2*q^69 + a*q^132 + (a - 1)*q^141 - 
        a*q^159 + q^177 + O(q^194)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
892
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
220
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
892
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
222
);
qprec:=
220
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
892
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
222
);
qprec:=
220
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
892
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
74
);
qprec:=
220
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
892
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
74
);
qprec:=
220
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
892
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
37*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
220
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
892
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 74*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
220
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
892
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
111*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
220
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 + q^25 - q^29 - q^31 - q^43 - q^73 + q^81 - q^83 - q^119 + q^121 - 
        q^133 + q^169 - q^181 - q^199 + O(q^220),
    q^2 + q^18 + q^50 - q^56 - q^58 - q^62 - q^68 - q^76 - q^86 + q^116 + q^124 
        - q^128 + q^136 - q^146 + q^152 + q^162 - q^166 + q^172 - q^188 + q^196 
        - q^212 + O(q^220),
    q^4 + q^36 - q^56 - q^68 - q^76 + q^100 - q^112 - q^128 - q^188 + q^196 - 
        q^212 + O(q^220),
    q^7 - q^29 - q^31 + q^37 + q^41 - q^43 - q^49 + q^63 - q^73 - q^83 + q^89 + 
        q^101 - q^119 + q^131 - q^133 + q^139 + q^175 + q^179 - q^181 + q^197 - 
        q^199 + q^203 + q^217 + O(q^220),
    q^8 + q^34 + q^38 - q^56 - q^58 - q^62 - q^68 + q^72 - q^76 - q^86 + q^94 - 
        q^98 + q^106 - q^112 + q^116 + q^124 - q^128 - q^146 - q^166 + q^172 - 
        q^188 + q^196 + q^200 - q^212 + q^218 + O(q^220),
    q^14 + q^32 - q^34 - q^38 - q^56 - q^64 + q^74 + q^82 - q^94 - q^106 + q^126
        + q^136 + q^152 + q^178 + q^202 - q^218 + O(q^220),
    q^16 - q^32 + q^34 + q^38 - q^58 - q^62 + q^64 - q^86 + q^94 - q^98 + q^106 
        - q^112 - q^128 - q^136 + q^144 - q^146 - q^152 - q^166 + q^218 + 
        O(q^220),
    q^17 + q^19 - q^29 - q^31 - q^43 + q^47 - q^49 + q^53 - q^73 - q^83 + q^109 
        + q^127 + q^153 + q^171 - q^181 - q^199 + q^203 + q^211 + q^217 + 
        O(q^220),
    q^28 + q^34 + q^38 - q^58 - q^62 + q^64 - q^68 - q^76 - q^86 + q^94 - q^98 +
        q^106 - q^112 - q^128 - q^146 + q^148 + q^164 - q^166 - q^188 - q^212 + 
        q^218 + O(q^220)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
893
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
893
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
893
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
893
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
893
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
414
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
893
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
893
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
414
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
893
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
893
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^13*q^4 + (a^18 - a^7)*q^5 + (a^16 + a^2)*q^7 - a^17*q^9 + (-a^11 - 
        a^3)*q^11 - a^3*q^16 + (-a^17 - a^15)*q^17 + (a^21 - a^20 + a^19 - a^18 
        + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + 
        a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^19 + (a^20 + a^8)*q^20 + 
        (-a^19 + a^14)*q^23 + (a^14 - a^13 + a^2)*q^25 + (-a^15 + a^6)*q^28 + 
        (a^20 - a^11 - a^9 + 1)*q^35 - a^7*q^36 + (-a^21 - a^5)*q^43 + (a^16 - 
        a)*q^44 + (a^12 - a)*q^45 + (a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + 
        a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - 
        a^4 + a^3 - a^2 + a - 1)*q^47 + (a^18 - a^9 + a^4)*q^49 + (-a^21 + a^18 
        + a^10 + a^6)*q^55 + (a^8 + 1)*q^61 + (-a^19 + a^10)*q^63 + a^16*q^64 + 
        (-a^7 - a^5)*q^68 + (a^8 + a^4)*q^73 + a^12*q^76 + (-a^19 - a^13 - a^5 +
        a^4)*q^77 + (-a^21 + a^10)*q^80 - a^11*q^81 + (a^12 + a^2)*q^83 + (a^21 
        - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - a^14 + a^13 + a^11 + a^9 - 
        a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 - 1)*q^85 + (-a^9 + a^4)*q^92 + 
        (-a^17 + a^6)*q^95 + (a^20 - a^5)*q^99 + (-a^15 + a^4 - a^3)*q^100 + 
        (a^12 + a^6)*q^101 + (-a^19 - a^5)*q^112 + (-a^21 + a^14 - a^9 - 
        a^3)*q^115 + (-a^19 - a^17 + a^10 + a^8)*q^119 + (a^21 - a^20 + a^19 - 
        a^18 + a^17 - a^16 + a^15 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 
        + a^5 - a^4 + a^3 - a^2 + a - 1)*q^121 + (-a^21 + a^20 - a^9 + 
        a^8)*q^125 + (a^14 - a)*q^131 + (-a^15 - a)*q^133 + (a^2 - a)*q^137 + 
        (-a^21 - a^15)*q^139 + (a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 -
        a^14 - a^12 + a^11 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 - 
        1)*q^140 + a^20*q^144 + (-a^11 - a^5)*q^149 + (-a^11 - a^9)*q^153 + 
        (a^20 - a^9)*q^157 + O(q^158)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
893
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
23*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 - q^6 - q^8 + q^9 + q^12 + q^14 - q^17 + q^18 - q^21 + q^24 + q^25 -
        q^27 - q^28 + q^32 - q^34 - q^36 - q^37 + q^47 + 2*q^51 + q^63 + q^68 - 
        q^71 - q^72 - q^74 - q^75 - q^79 + 2*q^83 - q^96 - q^98 - q^101 + q^102 
        - q^103 + q^106 + 2*q^111 + q^118 - q^119 + q^121 + q^122 + q^136 - 
        q^141 - q^142 + q^147 + q^148 - q^149 - q^150 - 2*q^153 + O(q^158),
    q^2 - q^3 - q^4 + q^7 + q^9 - q^14 - q^17 + q^24 + q^28 - q^37 - q^42 - q^49
        + q^50 + q^51 + q^53 - q^54 - q^56 + q^59 + q^61 + q^64 - q^71 - q^72 - 
        q^75 - q^79 + q^84 + q^89 + q^94 - q^96 + q^97 + q^98 - q^100 - q^101 + 
        q^102 - q^103 - q^106 + q^108 + q^111 - q^118 - q^122 + q^126 - q^128 + 
        q^131 + q^136 - q^141 - q^149 - q^153 + q^157 + O(q^158),
    q^19 - q^57 - q^114 - q^152 + O(q^158),
    q^38 - q^57 - q^76 + q^133 + O(q^158)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
893
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 23*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
893
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 23*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
894
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
294
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
894
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
148
);
qprec:=
294
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
894
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
74
);
qprec:=
294
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
894
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
74
);
qprec:=
294
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
894
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
37*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
294
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
894
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 74*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
294
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 + q^25 - q^28 - q^31 - q^33 - q^42 - q^46 + q^49 - q^61 - q^67 + 
        q^81 - q^88 - q^96 + q^112 + q^114 + q^118 + q^121 - q^123 + q^124 + 
        q^132 - q^133 + q^142 + q^154 - q^166 + q^168 + q^169 - q^178 + q^184 + 
        q^202 - q^217 + q^222 + q^225 - q^231 + q^244 - q^252 - q^253 - q^259 - 
        q^262 + q^268 - q^274 - q^276 - q^279 + q^289 - q^292 + O(q^294),
    q^2 + q^18 + q^50 - q^56 - q^62 - q^66 - q^84 - q^92 + q^98 - q^122 - q^134 
        + q^162 - q^176 - q^192 + q^224 + q^228 + q^236 + q^242 - q^246 + q^248 
        + q^264 - q^266 + q^284 + O(q^294),
    q^3 + q^27 + q^38 + q^44 - q^57 - q^59 - q^62 - q^66 - q^71 + q^74 + q^75 - 
        q^77 - q^84 - q^92 + q^98 - q^101 - q^111 - q^122 + q^128 - q^134 + 
        q^149 + q^161 + q^164 - q^176 - q^192 + 2*q^197 + q^206 - q^209 - q^227 
        + q^243 - q^246 + q^254 + 2*q^257 - q^266 - q^287 + O(q^294),
    q^4 - q^28 + q^36 - q^42 - q^46 - q^88 - q^96 + q^100 + q^114 + q^118 + 
        q^142 + q^154 - q^166 - q^178 + q^196 + q^202 + q^222 - q^252 - q^262 - 
        q^274 - q^276 - q^292 + O(q^294),
    q^6 - q^22 - q^28 + q^54 - q^64 + q^76 - q^82 + q^88 + q^112 + q^148 + q^150
        - q^154 - q^168 - q^184 - q^186 + q^196 - q^198 - q^252 + q^256 - q^276 
        - q^292 + O(q^294),
    q^7 + q^22 + q^24 - q^28 - q^31 - q^33 - q^42 - q^46 - q^61 + q^63 - q^67 + 
        q^69 + q^73 + q^76 + q^82 - q^88 - q^96 + q^121 - q^123 + q^148 + q^154 
        - q^166 + q^175 - q^178 + q^186 + q^196 + q^198 + q^216 - q^217 + q^229 
        - q^231 + q^249 - q^252 - q^253 - q^262 + q^267 - q^274 - q^276 - q^279 
        - q^292 + O(q^294),
    q^8 + q^21 + q^23 - q^56 - q^57 - q^59 - q^71 + q^72 - q^77 + q^83 - q^84 + 
        q^89 - q^92 - q^101 - q^111 + q^131 + q^137 - q^147 - q^161 - q^176 + 
        q^189 - q^192 + q^200 + q^207 + q^219 - q^227 + q^228 + q^236 + q^284 - 
        q^287 + O(q^294),
    q^11 - q^21 - q^23 + q^32 + q^41 - q^44 - q^48 + q^77 - q^83 + q^84 - q^89 +
        q^92 + q^93 + q^99 - q^131 - q^137 - q^152 - q^164 + q^167 + q^183 - 
        q^189 + q^201 - q^207 - q^209 - q^219 + q^233 + q^239 + q^248 + q^264 + 
        q^275 + q^287 + q^288 + O(q^294),
    q^12 + q^21 + q^23 - q^32 + q^38 + q^44 + q^48 - q^56 - q^57 - q^59 - q^62 -
        q^66 - q^71 + q^74 - q^77 + q^83 - 2*q^84 + q^89 - 2*q^92 + q^98 - q^101
        + q^108 - q^111 - q^122 + q^131 - q^134 + q^137 - q^147 + 2*q^152 - 
        q^161 + q^164 + q^189 - q^192 + q^206 + q^207 + q^219 + q^224 - q^227 - 
        q^246 - q^248 + q^254 - q^264 - q^266 - q^287 - q^288 + O(q^294),
    q^14 + q^21 + q^23 + q^44 + q^48 - q^56 - q^57 - q^59 - q^62 - q^66 - q^71 -
        q^77 + q^83 - q^84 + q^89 - q^92 - q^101 - q^111 - q^122 + q^126 + q^131
        - q^134 + q^137 + q^138 + q^146 - q^147 + q^152 - q^161 + q^164 - q^176 
        + q^189 - q^192 + q^207 + q^219 - q^227 + q^242 - q^246 - q^287 + 
        O(q^294),
    q^16 - q^22 - q^24 + q^42 + q^46 - q^76 - q^82 + q^124 + q^132 + q^144 - 
        q^148 - q^154 + q^166 + q^178 - q^186 - q^196 - q^198 - q^216 + q^244 + 
        q^262 + q^268 + q^274 + O(q^294),
    q^19 + q^22 - q^31 - q^33 + q^37 - q^42 - q^46 + q^49 - q^61 + q^64 - q^67 +
        q^82 - q^88 - q^96 + q^103 - q^123 + q^127 - q^133 + q^154 - q^166 + 
        q^168 + q^171 + q^177 - q^178 + q^184 + q^186 + q^198 + q^213 - q^259 - 
        q^262 - q^274 - q^279 + O(q^294)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
895
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
895
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
178
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
895
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
178
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
895
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
356
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
895
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
89*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^13 + q^16 - q^25 - q^27 - q^31 - q^39 - q^43 + 2*q^47 + q^49 + 
        q^51 - q^52 + q^57 + q^64 - q^83 + q^87 - q^89 - q^93 - q^100 + 2*q^101 
        - q^107 - q^108 + q^117 + q^121 - q^124 + q^125 - q^129 - q^139 - q^149 
        - q^151 - q^153 - q^156 + q^169 - q^171 - q^172 - q^173 + q^177 + 
        O(q^178),
    q^3 - q^9 + q^12 - q^13 + q^17 + q^19 + q^29 - q^31 - q^36 - q^43 + q^48 - 
        q^51 - q^52 - q^57 + q^59 + q^61 + q^67 + q^68 - q^75 + q^76 - q^83 - 
        q^87 - q^89 - q^107 + q^116 - q^124 + q^125 - q^139 + 2*q^141 - q^144 + 
        q^147 - q^149 - q^151 + q^153 + q^169 + q^171 - q^172 - q^173 - q^177 + 
        O(q^178),
    q^5 + q^20 - q^25 - q^65 - q^75 + q^80 - q^100 + q^125 - q^135 - q^155 + 
        O(q^178),
    q^15 - q^25 - q^45 + q^60 - q^65 + q^85 + q^95 - q^100 + q^125 + q^145 - 
        q^155 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
895
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 89*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - 1/2*q^14 + 1/2*q^19 + 1/2*q^20 + 1/2*q^25 - q^29 - q^31 + q^36 + 
        1/2*q^45 + 1/2*q^46 + 1/2*q^49 - q^51 - 1/2*q^56 - 1/2*q^64 + 1/2*q^65 -
        q^70 - q^74 + 1/2*q^75 - 1/2*q^76 - 1/2*q^80 + q^81 + 1/2*q^100 - 
        1/2*q^101 + 1/2*q^106 - 1/2*q^116 + q^121 - 1/2*q^124 - 1/2*q^126 + 
        1/2*q^135 - q^139 - q^144 - q^145 + 1/2*q^146 + 1/2*q^149 - 1/2*q^155 - 
        q^161 + 1/2*q^171 + O(q^178),
    q^2 + q^18 - q^28 - q^35 - q^37 + q^50 - q^58 - q^62 - q^97 + q^98 - q^103 +
        q^113 + q^115 + q^127 + q^133 - q^152 + q^157 - q^160 + q^162 + q^167 + 
        O(q^178),
    q^3 - q^12 + q^17 + q^19 - q^25 - q^27 - q^29 - q^39 - q^45 + q^48 + q^59 + 
        q^61 + q^65 + q^67 - q^68 - q^76 - q^81 - q^93 + q^100 + q^108 + q^116 +
        q^117 + q^129 + q^135 - q^147 - 2*q^153 - q^155 + q^156 - q^169 + 
        O(q^178),
    q^4 - q^14 - q^29 - q^31 + q^36 + q^59 + q^61 - q^76 - q^80 + q^89 + q^95 + 
        q^100 - q^126 - q^139 - q^145 + q^151 - q^155 + O(q^178),
    q^5 - q^14 - q^19 + q^45 + q^46 - q^49 + q^56 - q^64 + q^76 - q^101 + q^106 
        - q^116 - q^124 + q^125 - q^126 + q^146 - q^149 - q^171 + O(q^178),
    q^7 - q^10 - q^23 + q^32 - q^53 + q^58 + q^62 + q^63 - q^73 - q^90 - q^92 - 
        q^112 + q^133 + q^137 + q^140 + q^148 - q^152 - q^163 + q^175 + 
        O(q^178),
    q^8 - q^10 - q^23 + q^32 + q^35 + q^37 - q^38 - q^40 - q^53 + q^58 + q^62 + 
        q^72 - q^73 - q^90 - 2*q^92 + q^97 - q^98 + q^103 - q^112 + q^118 + 
        q^122 + q^140 + q^148 - q^152 - q^163 + O(q^178),
    q^9 + 1/2*q^14 - 1/2*q^19 - 1/2*q^20 + 1/2*q^25 + q^29 + q^31 - q^36 - 
        1/2*q^45 - 1/2*q^46 + 1/2*q^49 + q^51 - 1/2*q^56 - q^59 - q^61 + 
        1/2*q^64 - 1/2*q^65 - 1/2*q^75 + 1/2*q^76 + 1/2*q^80 - q^89 - q^95 - 
        1/2*q^100 + 1/2*q^101 - 1/2*q^106 - 1/2*q^116 - 1/2*q^124 + 1/2*q^126 - 
        1/2*q^135 + q^139 + q^144 + q^145 - 1/2*q^146 - 1/2*q^149 - q^151 + 
        1/2*q^155 + q^169 - 1/2*q^171 + O(q^178),
    q^13 - 1/2*q^14 - 3/2*q^19 + 1/2*q^20 + 1/2*q^25 + q^27 + q^29 + q^39 - q^43
        + 3/2*q^45 + 1/2*q^46 - 1/2*q^49 - q^52 + 1/2*q^56 + q^57 - q^59 - q^61 
        - 1/2*q^64 - 1/2*q^65 - 1/2*q^75 + 3/2*q^76 - 1/2*q^80 + q^81 - q^83 - 
        q^87 + q^93 - q^95 - 1/2*q^100 - 1/2*q^101 + 1/2*q^106 - q^107 - q^108 -
        3/2*q^116 - q^117 - 1/2*q^124 + q^125 - 1/2*q^126 - q^129 - 1/2*q^135 + 
        q^145 + 1/2*q^146 - 1/2*q^149 + q^153 + 1/2*q^155 - q^156 + q^169 - 
        1/2*q^171 + q^172 - q^173 + q^177 + O(q^178),
    q^15 + 2*q^19 - q^25 - 2*q^29 - 2*q^39 - q^45 + 2*q^59 - q^60 + 2*q^61 + 
        q^65 - 2*q^76 - 2*q^81 + q^85 + q^95 + q^100 + 2*q^116 - q^125 + 2*q^129
        - q^145 - q^155 + 2*q^156 - 2*q^169 + O(q^178),
    q^16 - q^19 - q^20 + q^29 + q^31 - q^46 - q^49 + q^70 + q^74 - q^101 - q^106
        + q^139 + q^144 + q^145 - q^146 - q^149 + q^155 + q^161 - q^171 + 
        O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
32
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 16*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^9 - 2*q^17 + q^25 + 2*q^41 + q^49 - 2*q^73 + q^81 - 2*q^89 - 2*q^97 + 
        2*q^113 - q^121 + 2*q^137 + 2*q^153 + q^169 - 2*q^193 - q^225 + 
        O(q^226),
    q^7 - q^63 - 2*q^119 + q^175 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
96
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
16*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^17 + (a - 1)*q^33 - q^49 - q^57 + a*q^73 + a*q^81 + (-a + 1)*q^89 + 
        q^105 - a*q^137 + (-a + 1)*q^161 - q^169 + (-a + 1)*q^177 + a*q^185 - 
        a*q^193 + (-a + 1)*q^201 + q^209 + a*q^217 + O(q^226),
    q^2 - a*q^34 + (a - 1)*q^66 - q^98 - q^114 + a*q^146 + a*q^162 + (-a + 
        1)*q^178 + q^210 + O(q^226),
    q^3 - q^11 - a*q^19 + (a - 1)*q^27 + a*q^35 - a*q^51 + q^59 + q^67 - a*q^107
        - q^115 + a*q^131 - q^147 + (-a + 1)*q^155 + a*q^163 - q^179 + a*q^187 +
        a*q^219 + O(q^226),
    q^4 + (a - 1)*q^20 - a*q^68 - a*q^84 + (a - 1)*q^132 + (-a + 1)*q^148 - 
        q^196 + a*q^212 + O(q^226),
    q^5 + (a - 1)*q^21 - q^37 + (-a + 1)*q^53 - q^61 - a*q^69 + (-a + 1)*q^77 - 
        a*q^85 + q^93 + (a - 1)*q^101 + (a - 1)*q^109 + a*q^125 + q^133 + 
        a*q^141 + q^149 + (-a + 1)*q^157 + (a - 1)*q^165 - q^173 + 2*a*q^181 - 
        a*q^189 + O(q^226),
    q^6 - q^22 - a*q^38 + (a - 1)*q^54 + a*q^70 - a*q^102 + q^118 + q^134 - 
        a*q^214 + O(q^226),
    q^7 - q^15 + (a - 1)*q^23 - a*q^31 + (-a + 1)*q^47 + q^55 + (a - 1)*q^79 + 
        a*q^95 + (a - 1)*q^103 + q^111 - a*q^119 + (-a + 1)*q^135 - a*q^151 + (a
        - 1)*q^159 - 2*q^167 + q^183 + (-a + 1)*q^191 - a*q^199 + O(q^226),
    q^10 + (a - 1)*q^42 - q^74 + (-a + 1)*q^106 - q^122 - a*q^138 + (-a + 
        1)*q^154 - a*q^170 + q^186 + (a - 1)*q^202 + (a - 1)*q^218 + O(q^226),
    q^12 + (-a + 1)*q^28 - q^44 + (a - 1)*q^60 - a*q^76 + a*q^92 + (a - 1)*q^108
        - q^124 + a*q^140 - a*q^188 - a*q^204 + (-a + 1)*q^220 + O(q^226),
    q^14 - q^30 + (a - 1)*q^46 - a*q^62 + (-a + 1)*q^94 + q^110 + (a - 1)*q^158 
        + a*q^190 + (a - 1)*q^206 + q^222 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
96
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 16*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
32
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^9*q^2 - a^2*q^4 + a^5*q^7 + a^11*q^8 + a^3*q^9 + (-a^15 - a^6)*q^11 - 
        a^14*q^14 + a^4*q^16 - a^12*q^18 + (a^15 - a^8)*q^22 + (-a^10 - 
        a^4)*q^23 + a*q^25 - a^7*q^28 + (a^14 + a^13)*q^29 - a^13*q^32 - 
        a^5*q^36 + (-a^7 + a^2)*q^37 + (a^12 - a)*q^43 + (a^8 - a)*q^44 + (a^13 
        - a^3)*q^46 + a^10*q^49 - a^10*q^50 + (-a^12 + a^9)*q^53 - q^56 + (a^7 +
        a^6)*q^58 + a^8*q^63 - a^6*q^64 + (-a^11 - a^8)*q^67 + (a^7 - a^3)*q^71 
        + a^14*q^72 + (-a^11 - 1)*q^74 + (-a^11 + a^4)*q^77 + (a^11 + a^9)*q^79 
        + a^6*q^81 + (a^10 + a^5)*q^86 + (a^10 + a)*q^88 + (a^12 + a^6)*q^92 + 
        a^3*q^98 + (-a^9 + a^2)*q^99 - a^3*q^100 + (-a^5 + a^2)*q^106 + (-a^13 -
        1)*q^107 + (a^15 + a^8)*q^109 + a^9*q^112 + (-a^13 + a^7)*q^113 + (-a^15
        + 1)*q^116 + (-a^14 + a^12 - a^5)*q^121 + a*q^126 + (a^14 - a^2)*q^127 +
        a^15*q^128 + (-a^4 - a)*q^134 + (-a^4 - a^2)*q^137 + (a^12 + 1)*q^142 + 
        a^7*q^144 + (a^9 - a^4)*q^148 + (-a^8 - a^5)*q^149 + (-a^14 - 1)*q^151 +
        (-a^13 - a^4)*q^154 + (a^4 + a^2)*q^158 + (-a^15 - a^9)*q^161 - 
        a^15*q^162 + (-a^14 + a^13)*q^163 + a^15*q^169 + (-a^14 + a^3)*q^172 + 
        a^6*q^175 + (-a^10 + a^3)*q^176 + (a^10 - a^5)*q^179 + (-a^15 + 
        a^5)*q^184 + (a^15 + a)*q^191 + (a^11 + a^5)*q^193 - a^12*q^196 + (a^11 
        + a^6)*q^197 + (-a^11 - a^2)*q^198 + a^12*q^200 + (-a^3 - a^2)*q^203 + 
        (-a^13 - a^7)*q^207 + (a^4 + a^3)*q^211 + (a^14 - a^11)*q^212 + (a^9 - 
        a^6)*q^214 + (a^8 + a)*q^218 + a^2*q^224 + a^4*q^225 + O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^5*q^7 + a^3*q^9 + (-a^7 + a^6)*q^11 + (a^4 - a^2)*q^23 + a*q^25 + 
        (-a^6 - a^5)*q^29 + (a^7 + a^2)*q^37 + (-a^4 + a)*q^43 - a^2*q^49 + 
        (-a^4 - a)*q^53 - q^63 + (-a^3 - 1)*q^67 + (a^7 + a^3)*q^71 + (a^4 - 
        a^3)*q^77 + (-a^3 - a)*q^79 + a^6*q^81 + (a^2 - a)*q^99 + (-a^5 + 
        1)*q^107 + (-a^7 - 1)*q^109 + (a^7 - a^5)*q^113 + (-a^6 + a^5 - 
        a^4)*q^121 + (-a^6 + a^2)*q^127 + (a^4 + a^2)*q^137 + (a^5 - 1)*q^149 + 
        (-a^6 + 1)*q^151 + (-a^7 - a)*q^161 + (-a^6 - a^5)*q^163 - a^7*q^169 + 
        a^6*q^175 + (a^5 - a^2)*q^179 + (-a^7 + a)*q^191 + (a^5 - a^3)*q^193 + 
        (a^6 - a^3)*q^197 + (a^3 + a^2)*q^203 + (a^7 - a^5)*q^207 + (a^4 + 
        a^3)*q^211 + a^4*q^225 + O(q^226),
    q^2 - a*q^4 + a^2*q^8 + a^5*q^14 - a^3*q^16 + a^3*q^18 + (-a^7 + a^6)*q^22 -
        a^6*q^28 + a^4*q^32 - a^4*q^36 + (-a^7 - 1)*q^44 + (a^4 - a^2)*q^46 + 
        a*q^50 + a^7*q^56 + (-a^6 - a^5)*q^58 - a^5*q^64 + a^5*q^72 + (a^7 + 
        a^2)*q^74 + (-a^4 + a)*q^86 + (a - 1)*q^88 + (-a^5 + a^3)*q^92 - 
        a^2*q^98 - a^2*q^100 + (-a^4 - a)*q^106 + q^112 + (a^7 + a^6)*q^116 - 
        q^126 + a^6*q^128 + (-a^3 - 1)*q^134 + (a^7 + a^3)*q^142 - a^6*q^144 + 
        (-a^3 + 1)*q^148 + (a^4 - a^3)*q^154 + (-a^3 - a)*q^158 + a^6*q^162 + 
        (a^5 - a^2)*q^172 + (-a^2 + a)*q^176 + (a^6 - a^4)*q^184 + a^3*q^196 + 
        (a^2 - a)*q^198 + a^3*q^200 + (a^5 + a^2)*q^212 + (-a^5 + 1)*q^214 + 
        (-a^7 - 1)*q^218 - a*q^224 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^7 + a^3*q^9 + (a^3 + a^2)*q^11 + (-a^2 + 1)*q^23 + a*q^25 + (-a^2 - 
        a)*q^29 + (-a^3 + a^2)*q^37 + (-a + 1)*q^43 + a^2*q^49 + (a - 1)*q^53 - 
        q^63 + (-a^3 - 1)*q^67 + (a^3 - 1)*q^77 + (-a^3 - a)*q^79 - a^2*q^81 + 
        (-a^2 - a)*q^99 + (a - 1)*q^107 + (-a^3 + 1)*q^109 + (-a^3 - a)*q^113 + 
        (-a^2 - a - 1)*q^121 + (a^2 - 1)*q^137 + (-a + 1)*q^149 + (a^2 - 
        1)*q^151 + (-a^3 + a)*q^161 + (a^2 + a)*q^163 - a^3*q^169 + a^2*q^175 + 
        (-a^2 + a)*q^179 + (a^3 - a)*q^191 + (a^3 - a)*q^193 + (a^3 - a^2)*q^197
        + (-a^3 - a^2)*q^203 + (a^3 + a)*q^207 + (-a^3 + 1)*q^211 - q^225 + 
        O(q^226)
]
;
Bo:=
[
    q - a*q^7 + a^3*q^9 + (-a^3 - a^2)*q^11 + (a^2 - 1)*q^23 + a*q^25 + (-a^2 - 
        a)*q^29 + (-a^3 + a^2)*q^37 + (a - 1)*q^43 + a^2*q^49 + (a - 1)*q^53 + 
        q^63 + (a^3 + 1)*q^67 + (a^3 - 1)*q^77 + (a^3 + a)*q^79 - a^2*q^81 + 
        (a^2 + a)*q^99 + (-a + 1)*q^107 + (-a^3 + 1)*q^109 + (-a^3 - a)*q^113 + 
        (-a^2 - a - 1)*q^121 + (a^2 - 1)*q^137 + (-a + 1)*q^149 + (-a^2 + 
        1)*q^151 + (-a^3 + a)*q^161 + (-a^2 - a)*q^163 - a^3*q^169 - a^2*q^175 +
        (a^2 - a)*q^179 + (-a^3 + a)*q^191 + (a^3 - a)*q^193 + (a^3 - a^2)*q^197
        + (a^3 + a^2)*q^203 + (-a^3 - a)*q^207 + (a^3 - 1)*q^211 - q^225 + 
        O(q^226),
    q^2 - a*q^14 + a^3*q^18 + (-a^3 - a^2)*q^22 + (a^2 - 1)*q^46 + a*q^50 + 
        (-a^2 - a)*q^58 + (-a^3 + a^2)*q^74 + (a - 1)*q^86 + a^2*q^98 + (a - 
        1)*q^106 + q^126 + (a^3 + 1)*q^134 + (a^3 - 1)*q^154 + (a^3 + a)*q^158 -
        a^2*q^162 + (a^2 + a)*q^198 + (-a + 1)*q^214 + (-a^3 + 1)*q^218 + 
        O(q^226),
    q^4 + a*q^8 + a^2*q^16 - a*q^28 + a^3*q^32 + a^3*q^36 + (-a^3 - a^2)*q^44 - 
        a^2*q^56 - q^64 - q^72 + (-a^3 + 1)*q^88 + (a^2 - 1)*q^92 + a*q^100 - 
        a^3*q^112 + (-a^2 - a)*q^116 - a*q^128 - a*q^144 + (-a^3 + a^2)*q^148 + 
        (a - 1)*q^172 + (a + 1)*q^176 + (a^3 - a)*q^184 + a^2*q^196 + a^2*q^200 
        + (a - 1)*q^212 + q^224 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^9 + a*q^25 + (-a + 1)*q^29 + (a + 1)*q^37 - q^49 + (-a - 1)*q^53 + 
        (a - 1)*q^77 - q^81 + (a - 1)*q^109 + a*q^121 + (-a - 1)*q^149 - a*q^169
        + (a + 1)*q^197 + q^225 + O(q^226),
    q^7 + (-a + 1)*q^11 + (a - 1)*q^43 - a*q^63 + (a + 1)*q^67 - 2*q^71 + (-a - 
        1)*q^99 + (a - 1)*q^107 + 2*a*q^127 + (-a - 1)*q^163 + a*q^175 + (-a - 
        1)*q^179 + (-a + 1)*q^203 + (a + 1)*q^211 + O(q^226)
]
;
Bo:=
[
    q - a*q^9 + a*q^25 + (a - 1)*q^29 + (-a - 1)*q^37 - q^49 + (a + 1)*q^53 + 
        (-a + 1)*q^77 - q^81 + (-a + 1)*q^109 + a*q^121 + (a + 1)*q^149 - 
        a*q^169 + (-a - 1)*q^197 + q^225 + O(q^226),
    q^2 - a*q^18 + a*q^50 + (a - 1)*q^58 + (-a - 1)*q^74 - q^98 + (a + 1)*q^106 
        + (-a + 1)*q^154 - q^162 + (-a + 1)*q^218 + O(q^226),
    q^4 + a*q^28 - a*q^36 + (-a - 1)*q^44 + a*q^100 + (a - 1)*q^116 + (-a - 
        1)*q^148 + (a + 1)*q^172 - q^196 + (a + 1)*q^212 + O(q^226),
    q^7 + (a - 1)*q^11 + (-a + 1)*q^43 - a*q^63 + (-a - 1)*q^67 - 2*q^71 + (a + 
        1)*q^99 + (-a + 1)*q^107 + 2*a*q^127 + (a + 1)*q^163 + a*q^175 + (a + 
        1)*q^179 + (a - 1)*q^203 + (-a - 1)*q^211 + O(q^226),
    q^8 + a*q^16 - q^32 + a*q^56 - a*q^64 - a*q^72 + (-a - 1)*q^88 - q^112 + 
        q^128 + q^144 + (-a + 1)*q^176 + a*q^200 - a*q^224 + O(q^226),
    q^14 + (a - 1)*q^22 + (-a + 1)*q^86 - a*q^126 + (-a - 1)*q^134 - 2*q^142 + 
        (a + 1)*q^198 + (-a + 1)*q^214 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
896
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
16*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - 2*q^57 - 2*q^65 - q^81 - 2*q^105 + q^121 - 2*q^137 +
        q^169 - 2*q^177 + q^225 + O(q^226),
    q^3 - q^19 - q^35 - q^59 + q^75 + q^83 + q^91 + q^131 - q^139 + q^147 - 
        q^171 - 2*q^195 + O(q^226),
    q^5 - q^13 - q^21 + q^45 + q^61 - q^101 - q^117 + q^133 - q^157 - q^173 + 
        q^181 + 2*q^213 + O(q^226),
    q^7 - 2*q^15 + 2*q^39 + q^63 - 2*q^71 - 2*q^79 + 2*q^95 + q^175 - 2*q^183 + 
        2*q^191 + O(q^226)
]
;
Bo:=
[
    q - q^9 - q^25 + q^49 + q^81 - 2*q^113 + q^121 + 2*q^137 - 2*q^161 - q^169 -
        2*q^193 + q^225 + O(q^226),
    q^2 - q^18 - q^50 + q^98 + q^162 + O(q^226),
    q^4 - q^36 - q^100 + q^196 + O(q^226),
    q^7 - 2*q^23 - q^63 + 2*q^71 + 2*q^79 - 2*q^127 - 2*q^151 - q^175 + 2*q^191 
        + 2*q^207 + O(q^226),
    q^8 - q^56 - q^72 + 2*q^184 - q^200 + O(q^226),
    q^14 - 2*q^46 - q^126 + 2*q^142 + 2*q^158 + O(q^226),
    q^16 - q^32 + q^64 - q^112 - q^128 - q^144 + q^224 + O(q^226),
    q^28 - 2*q^92 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 - q^4 + q^9 + q^12 - q^13 + q^16 - q^25 - q^27 - q^36 + q^39 + 
        2*q^43 - q^48 + q^49 + q^52 - 2*q^61 - q^64 + q^75 - 2*q^79 + q^81 + 
        q^100 + 2*q^103 + q^108 - q^117 - q^121 - 2*q^127 - 2*q^129 + 2*q^139 + 
        q^144 - q^147 - q^156 + 2*q^157 + q^169 - 2*q^172 + 2*q^181 + 2*q^183 + 
        q^192 - q^196 - 2*q^199 - q^208 - 2*q^211 + O(q^218),
    q^23 - q^69 - q^92 + q^207 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
132
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
132
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 + q^8 - q^9 - q^16 + q^18 + q^23 + q^25 + q^27 - q^29 - q^31 - q^41 
        - q^46 - q^47 + q^49 - q^50 - q^54 + q^58 + 2*q^59 + q^62 + q^64 - q^71 
        - q^72 - q^73 + q^82 + q^94 - q^98 + 2*q^101 - 2*q^118 + q^121 - q^127 -
        q^128 - q^131 - q^139 + q^142 + q^144 + q^146 - q^151 - q^163 + 2*q^167 
        - q^169 + 2*q^173 - q^179 + q^184 - q^193 - q^197 + q^200 - 2*q^202 - 
        q^207 + 2*q^211 + q^216 + O(q^218),
    q^3 - q^6 - q^9 + q^18 + q^24 - q^48 + q^69 - q^72 + q^75 + q^81 - q^87 - 
        q^93 - q^123 - q^138 - q^141 + q^144 + q^147 - q^150 - q^162 + q^174 + 
        2*q^177 + q^186 + q^192 - q^207 - q^213 + O(q^218),
    q^13 - q^26 + q^104 - q^117 - q^169 - q^208 + O(q^218),
    q^39 - q^78 - q^117 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/44*(30*a^3 + 9*a^2 - 15*a - 9)*q^9 + 1/44*(19*a^3 - 10*a^2 + 5)*q^12 +
        1/22*(13*a^3 - a^2 - 9*a)*q^13 + 1/22*(-13*a^3 + a^2 - 13*a)*q^16 + 
        1/44*(19*a^3 + 10*a^2 - 10*a - 19)*q^18 + 1/22*(a^3 + a^2 + 3*a - 
        4)*q^24 + a^3*q^25 + 1/22*(-6*a^3 - 7*a^2 - a + 1)*q^26 + 1/2*(a^3 - 
        2*a)*q^27 + 1/11*(-3*a^3 - 4*a^2 - 3*a)*q^29 + 1/22*(3*a^3 + 12*a^2 - 
        12*a - 3)*q^31 + 1/22*(6*a^3 + 7*a^2 + a - 1)*q^32 + 1/22*(-9*a^3 + 
        7*a^2 + 9*a - 14)*q^36 + 1/44*(-29*a^3 - 15*a^2 + 5*a + 20)*q^39 + 
        1/22*(-5*a^3 + 5*a^2 + 13*a + 8)*q^41 + 1/22*(8*a^3 + 5*a^2 - 13*a - 
        13)*q^46 + 1/11*(-a^3 - 6*a^2 - 6*a - 1)*q^47 + 1/22*(10*a^3 + 3*a^2 - 
        5*a - 3)*q^48 + (-a^3 + a)*q^49 + 1/22*(-8*a^3 - 5*a^2 + 13*a - 9)*q^52 
        + 1/44*(-5*a^3 + 5*a^2 + 13*a + 8)*q^54 + 1/11*(-2*a^3 + 5*a^2 + 7*a - 
        7)*q^58 + 1/22*(-13*a^3 - 7*a^2 + 13*a + 14)*q^62 + 1/22*(-a^3 - 18*a^2 
        + 9)*q^64 + 1/22*(-3*a^2 + 7*a - 3)*q^69 + 1/22*(6*a^3 + 7*a^2 + a - 
        1)*q^71 + 1/11*(5*a^3 - a^2 - 4*a - 4)*q^72 + 1/11*(-7*a^3 + 2*a^2 + 2*a
        - 7)*q^73 + 1/44*(-5*a^3 - 14*a^2 + 6*a + 11)*q^78 + 1/44*(3*a^3 - 7*a^2
        + 3*a)*q^81 + 1/22*(-a^2 - 5*a - 1)*q^82 + 1/22*(-20*a^3 + 5*a^2 + 10*a 
        - 5)*q^87 + 1/22*(-a^3 + 2*a + 5)*q^92 + 1/44*(-29*a^3 + 29*a^2 + 49*a +
        20)*q^93 + 1/11*(-2*a^3 + a^2 - 2*a)*q^94 + 1/44*(3*a^3 + 12*a^2 - 12*a 
        - 3)*q^96 + 1/22*(-6*a^3 - 7*a^2 - a + 1)*q^104 + 1/44*(-a^2 - 5*a - 
        1)*q^108 + 1/44*(3*a^3 - 29*a^2 + 3*a + 22)*q^117 + 1/11*(-4*a^3 + 8*a +
        9)*q^118 + a*q^121 + 1/44*(-10*a^3 + 25*a^2 + 35*a - 35)*q^123 + 
        1/22*(14*a^3 - 27*a^2 + 13*a + 13)*q^124 + 1/11*(a^3 - 2*a^2 - a + 
        4)*q^127 + 1/22*(a^3 - 2*a - 5)*q^131 + 1/22*(7*a^3 - 2*a^2 - 2*a + 
        7)*q^138 + 1/22*(2*a^3 - 17*a^2 - a + 17)*q^139 + 1/22*(-5*a^3 - 5*a^2 -
        15*a + 20)*q^141 + 1/22*(-a^3 + 26*a^2 - 13)*q^142 + 1/22*(-4*a^3 + 8*a 
        + 9)*q^144 + 1/11*(-3*a^3 - 4*a^2 - 3*a)*q^146 + 1/11*(-4*a^3 - 2*a^2 - 
        2*a - 4)*q^151 + 1/22*(-7*a^3 + 2*a^2 + 2*a - 7)*q^156 + 1/44*(2*a^3 - 
        5*a^2 - 7*a + 7)*q^162 + 1/22*(-14*a^3 + 5*a^2 + 9*a + 9)*q^163 + 
        1/22*(13*a^3 - 4*a + 1)*q^169 + 1/44*(25*a^3 + 34*a^2 - 34*a - 25)*q^174
        + 1/11*(-5*a^3 + 3*a^2 + 3*a - 5)*q^177 + 1/22*(13*a^3 + 7*a^2 - 13*a - 
        14)*q^179 + 1/22*(-5*a^3 + 5*a^2 - 9*a - 14)*q^184 + 1/4*(a^2 + a + 
        1)*q^186 + 1/22*(-3*a^3 - 5*a^2 + 3*a + 10)*q^192 + 1/22*(13*a^3 + 
        13*a^2 - 5*a - 8)*q^193 + 1/22*(-5*a^3 + 5*a^2 + 13*a + 8)*q^197 + 
        1/22*(18*a^3 + 3*a^2 - 21*a - 21)*q^202 + 1/44*(25*a^3 + 10*a^2 - 
        5)*q^207 + 1/22*(a^3 - 4*a^2 + 13)*q^208 - a^2*q^211 + 1/44*(5*a^3 + 
        20*a^2 - 20*a - 5)*q^213 + 1/44*(-5*a^3 + 14*a^2 + 14*a - 5)*q^216 + 
        O(q^218),
    q^2 + 1/44*(-5*a^3 - 5*a^2 - 15*a + 20)*q^9 + 1/44*(-74*a^3 + 9*a^2 + 83*a -
        83)*q^12 + 1/22*(-9*a^3 + 12*a^2 + 12*a - 9)*q^13 + 1/22*(9*a^3 - 12*a^2
        - 12*a + 9)*q^16 + 1/44*(38*a^3 - 15*a^2 - 19*a + 15)*q^18 + (-a^2 + 
        a)*q^23 + 1/22*(5*a^3 + 2*a^2 - 1)*q^24 + 1/22*(-7*a^3 + 9*a^2 - 
        7*a)*q^26 + 1/2*(a^3 - a^2)*q^27 + 1/11*(-14*a^3 + 4*a^2 + 4*a - 
        14)*q^29 + 1/22*(6*a^3 + 15*a^2 - 3*a - 15)*q^31 + 1/22*(7*a^3 + 13*a^2 
        + 7*a)*q^32 + 1/22*(5*a^3 - 2*a^2 + 2*a - 5)*q^36 + 1/44*(39*a^3 - 
        44*a^2 + 10*a + 25)*q^39 + 1/22*(-13*a^3 + 26*a - 1)*q^41 + 1/22*(21*a^3
        - 9*a^2 - 21*a + 18)*q^46 + 1/11*(4*a^2 - 13*a + 4)*q^47 + 1/22*(13*a^3 
        + 13*a^2 - 5*a - 8)*q^48 + a^3*q^50 + 1/22*(-21*a^3 + 9*a^2 + 21*a - 
        18)*q^52 + 1/44*(31*a^3 - 62*a + 21)*q^54 + 1/11*(-6*a^3 + 3*a^2 - 
        6*a)*q^58 + (-a^3 + a^2 + a - 2)*q^59 + 1/22*(-5*a^3 + 2*a^2 - 2*a + 
        5)*q^62 + 1/22*(12*a^3 + 3*a^2 - 9*a + 9)*q^64 + 1/22*(3*a^3 - 3*a^2 + a
        + 4)*q^69 + 1/22*(-15*a^3 + 13*a^2 - 15*a)*q^71 + 1/11*(9*a^3 + 4*a^2 - 
        9*a - 8)*q^72 + 1/11*(6*a^2 - 3*a + 6)*q^73 + 1/44*(-16*a^3 - 19*a^2 + 
        3*a + 17)*q^78 + 1/44*(3*a^3 - 4*a^2 - 4*a + 3)*q^81 + 1/22*(-21*a^3 + 
        21*a^2 + 15*a - 6)*q^82 + 1/22*(-15*a^3 - 15*a^2 + 10*a + 5)*q^87 + 
        1/22*(-6*a^3 - a^2 + 7*a + 7)*q^92 + 1/44*(39*a^3 - 78*a + 69)*q^93 + 
        1/11*(9*a^3 - 12*a^2 - 12*a + 9)*q^94 + 1/44*(6*a^3 + 15*a^2 - 3*a - 
        15)*q^96 + (-a^3 + a)*q^98 + (-a^3 + a^2 - a + 1)*q^101 + 1/22*(-7*a^3 +
        9*a^2 - 7*a - 22)*q^104 + 1/44*(a^3 - a^2 - 7*a - 6)*q^108 + (a^3 - a + 
        1)*q^116 + 1/44*(25*a^3 - 26*a^2 - 4*a + 25)*q^117 + 1/11*(9*a^3 - 
        15*a^2 + 6*a + 6)*q^118 + 1/44*(25*a^3 + 15*a^2 + 25*a)*q^123 + 
        1/22*(-21*a^3 + 9*a^2 + 21*a - 18)*q^124 + 1/11*(-3*a^3 - 12*a^2 + 12*a 
        + 3)*q^127 + (-2*a^2 + 1)*q^128 + 1/22*(28*a^3 - 21*a^2 - 7*a - 7)*q^131
        + 1/22*(5*a^2 + 3*a + 5)*q^138 + 1/22*(-15*a^3 - 15*a^2 + 21*a - 
        6)*q^139 + 1/22*(-25*a^3 - 10*a^2 + 5)*q^141 + 1/22*(12*a^3 + 3*a^2 - 
        9*a + 9)*q^142 + 1/22*(-13*a^3 + 18*a^2 - 5*a - 5)*q^144 + 1/11*(8*a^3 -
        7*a^2 - 7*a + 8)*q^146 + 1/11*(-6*a^2 + 3*a - 6)*q^151 + 1/22*(-5*a^2 - 
        3*a - 5)*q^156 + 1/44*(-5*a^3 - 3*a^2 - 5*a)*q^162 + 1/22*(21*a^3 - 
        9*a^2 - 21*a + 18)*q^163 + (a^2 - 2*a + 1)*q^164 + (2*a^3 - 2*a^2 + 
        1)*q^167 + 1/22*(12*a^3 - 9*a^2 - 3*a - 3)*q^169 + (-a^3 + a^2 - 
        1)*q^173 + 1/44*(50*a^3 - 29*a^2 - 25*a + 29)*q^174 + 1/11*(-2*a^2 + a -
        2)*q^177 + 1/22*(5*a^3 + 20*a^2 - 20*a - 5)*q^179 + 1/22*(9*a^3 - 18*a +
        21)*q^184 + 1/4*(-a^3 + a^2 + 3*a + 2)*q^186 + (a^3 - 2*a^2 + a)*q^188 +
        1/22*(-13*a^3 - 8*a^2 + 8*a + 13)*q^192 + 1/22*(21*a^3 - 18*a^2 + 
        9)*q^193 + 1/22*(-13*a^3 + 26*a - 23)*q^197 + 1/22*(-27*a^3 + 21*a^2 + 
        27*a - 42)*q^202 + 1/44*(-14*a^3 + 35*a^2 + 49*a - 49)*q^207 + 
        1/22*(-12*a^3 - 3*a^2 + 9*a - 9)*q^208 + 1/44*(10*a^3 + 25*a^2 - 5*a - 
        25)*q^213 + 1/44*(9*a^2 - 21*a + 9)*q^216 + O(q^218),
    q^3 + 1/22*(a^3 + 5*a^2 + a)*q^9 + 1/22*(7*a^2 - 9*a + 7)*q^12 + 1/11*(5*a^3
        - 10*a - 3)*q^13 + 1/11*(-5*a^3 + 10*a + 3)*q^16 + 1/22*(-14*a^3 - 9*a^2
        + 5*a - 5)*q^18 + 1/11*(2*a^3 + a^2 + a + 2)*q^24 + 1/11*(3*a^3 - 3*a^2 
        + a + 4)*q^26 + 1/11*(-4*a^3 + 8*a - 2)*q^29 + 1/11*(-8*a^3 - 13*a^2 - 
        5*a + 5)*q^31 + 1/11*(-3*a^3 + 3*a^2 - a - 4)*q^32 + 1/11*(6*a^3 - 2*a^2
        + 1)*q^36 + 1/22*(7*a^3 + 6*a^2 - 6*a - 7)*q^39 + 1/11*(5*a^3 - 2*a^2 + 
        2*a - 5)*q^41 + 1/11*(-5*a^3 - 5*a^2 + 7*a - 2)*q^46 + 1/11*(-8*a^3 + 
        6*a^2 + 2*a + 2)*q^47 + 1/11*(-7*a^3 - 2*a^2 - 7*a)*q^48 + 1/11*(5*a^3 +
        5*a^2 - 7*a + 2)*q^52 + 1/22*(5*a^3 - 2*a^2 + 2*a - 5)*q^54 + 
        1/11*(2*a^3 - 2*a^2 + 8*a + 10)*q^58 + 1/11*(5*a^3 + 2*a^2 - 1)*q^62 + 
        1/11*(-5*a^2 - 3*a - 5)*q^64 + 1/11*(a^3 - 2*a^2 - a + 4)*q^69 + 
        1/11*(-3*a^3 + 3*a^2 - a - 4)*q^71 + 1/11*(-9*a^3 - 9*a^2 + 6*a + 
        3)*q^72 + 1/11*(10*a^3 - 2*a^2 - 8*a - 8)*q^73 + a^3*q^75 + 1/22*(4*a^3 
        + 11*a^2 + 3*a - 9)*q^78 + 1/22*(13*a^3 - 26*a + 1)*q^81 + 1/11*(15*a^3 
        + 3*a^2 - 15*a - 6)*q^82 + 1/11*(3*a^3 + 4*a^2 + 3*a)*q^87 + 
        1/11*(-6*a^3 + 7*a^2 + 3*a - 7)*q^92 + 1/22*(7*a^3 + 6*a^2 - 6*a - 
        7)*q^93 + 1/11*(-10*a^3 + 20*a + 6)*q^94 + 1/22*(-8*a^3 - 13*a^2 - 5*a +
        5)*q^96 + 1/11*(3*a^3 - 3*a^2 + a + 4)*q^104 + 1/22*(-7*a^3 + 3*a^2 + 
        7*a - 6)*q^108 + 1/22*(-9*a^3 - 4*a + 1)*q^117 + 1/11*(-4*a^3 + 12*a^2 +
        2*a - 12)*q^118 + 1/22*(5*a^3 - 5*a^2 - 13*a - 8)*q^123 + 1/11*(5*a^3 + 
        5*a^2 - 7*a + 2)*q^124 + 1/11*(6*a^3 + 20*a^2 - 10)*q^127 + 1/11*(6*a^3 
        - 7*a^2 - 3*a + 7)*q^131 + 1/11*(6*a^3 + a^2 - 7*a - 7)*q^138 + 
        1/11*(3*a^3 + 15*a^2 + 3*a)*q^139 + 1/11*(a^3 + 6*a^2 + 6*a + 1)*q^141 +
        1/11*(-5*a^2 - 3*a - 5)*q^142 + 1/11*(-2*a^3 - 5*a^2 + a + 5)*q^144 + 
        1/11*(-4*a^3 + 8*a - 2)*q^146 + (-a^3 + a)*q^147 + 1/11*(-10*a^3 + 2*a^2
        + 8*a + 8)*q^151 + 1/11*(-6*a^3 - a^2 + 7*a - 4)*q^156 + 1/22*(-a^3 + 
        a^2 + 7*a + 6)*q^162 + 1/11*(-5*a^3 - 5*a^2 + 7*a - 2)*q^163 + 
        1/11*(-10*a^3 - 3*a^2 + 5*a + 3)*q^169 + 1/22*(-8*a^3 + 9*a^2 + 17*a - 
        17)*q^174 + 1/11*(4*a^3 - 3*a^2 - a - 1)*q^177 + 1/11*(-5*a^3 - 2*a^2 + 
        1)*q^179 + 1/11*(5*a^3 - 2*a^2 + 2*a - 5)*q^184 + 1/2*(a^3 + a^2 - a - 
        2)*q^186 + 1/11*(2*a^3 - 8*a^2 + 4)*q^192 + 1/11*(-7*a^3 + 2*a^2 + 2*a -
        7)*q^193 + 1/11*(5*a^3 - 2*a^2 + 2*a - 5)*q^197 + 1/11*(-3*a^3 - 3*a^2 -
        9*a + 12)*q^202 + 1/22*(-7*a^2 - 13*a - 7)*q^207 + 1/11*(5*a^2 + 3*a + 
        5)*q^208 + 1/22*(-6*a^3 - 7*a^2 - a + 1)*q^213 + 1/22*(2*a^3 - 7*a^2 + 
        5*a + 5)*q^216 + O(q^218),
    q^4 + 1/22*(-7*a^3 + 6*a^2 - 3)*q^9 + 1/22*(-a^3 - 5*a^2 - a)*q^12 + 
        1/11*(7*a^2 + 2*a - 4)*q^13 + 1/11*(-7*a^2 - 13*a - 7)*q^16 + 
        1/22*(-5*a^3 - 5*a^2 + 7*a - 2)*q^18 + 1/11*(-8*a^3 - 13*a^2 - 5*a + 
        5)*q^24 + 1/11*(2*a^3 + a^2 + a + 2)*q^26 + 1/11*(a^2 + 5*a + 1)*q^29 + 
        1/11*(5*a^3 + 5*a^2 + 4*a - 9)*q^31 + 1/11*(-2*a^3 - a^2 - a - 2)*q^32 +
        1/11*(-6*a^3 - 4*a^2 + 3*a + 4)*q^36 + 1/22*(-4*a^3 + 3*a^2 + a + 
        1)*q^39 + 1/11*(5*a^3 - a^2 - 4*a - 4)*q^41 + 1/11*(7*a^3 + 6*a^2 - 6*a 
        - 7)*q^46 + 1/11*(-4*a^3 + 4*a^2 + 6*a + 2)*q^47 + 1/11*(5*a^3 + 2*a^2 -
        1)*q^48 + 1/11*(-7*a^3 - 6*a^2 + 6*a + 7)*q^52 + 1/22*(-6*a^3 - a^2 + 
        7*a + 7)*q^54 + 1/11*(-6*a^3 - 3*a^2 - 3*a - 6)*q^58 + 1/11*(6*a^3 + 
        4*a^2 - 3*a - 4)*q^62 + 1/11*(7*a^3 + 13*a^2 + 7*a)*q^64 + 1/11*(5*a^3 -
        10*a - 3)*q^69 + 1/11*(-2*a^3 - a^2 - a - 2)*q^71 + 1/11*(6*a^3 + 2*a^2 
        - 2*a - 6)*q^72 + 1/11*(5*a^3 - 5*a^2 - 2*a + 3)*q^73 + 1/22*(-11*a^3 - 
        a^2 + 17*a + 10)*q^78 + 1/22*(5*a^2 + 3*a + 5)*q^81 + 1/11*(-2*a^3 + 4*a
        + 10)*q^82 + 1/11*(a^3 - 4*a^2 + 2)*q^87 + 1/11*(-a^3 + 2*a^2 + a - 
        4)*q^92 + 1/22*(-4*a^3 + 3*a^2 + a + 1)*q^93 + 1/11*(-3*a^2 - 4*a - 
        3)*q^94 + 1/22*(27*a^3 + 27*a^2 - 7*a - 20)*q^96 + a^3*q^100 + 
        1/11*(2*a^3 + a^2 + a + 2)*q^104 + 1/22*(9*a^3 - 18*a - 1)*q^108 + 
        1/22*(5*a^2 + 3*a + 5)*q^117 + 1/11*(-8*a^3 - 6*a^2 + 8*a + 12)*q^118 + 
        1/22*(7*a^3 - 2*a^2 - 2*a + 7)*q^123 + 1/11*(-7*a^3 - 6*a^2 + 6*a + 
        7)*q^124 + 1/11*(-6*a^3 - 4*a^2 + 3*a + 4)*q^127 + 1/11*(a^3 - 2*a^2 - a
        + 4)*q^131 + 1/11*(3*a^3 - 3*a^2 + a + 4)*q^138 + 1/11*(-10*a^3 - 4*a^2 
        + 2)*q^139 + 1/11*(-4*a^3 - a^2 + 3*a - 3)*q^141 + 1/11*(-4*a^3 + 2*a^2 
        - 4*a)*q^142 + 1/11*(7*a^3 + 8*a^2 - 7*a - 16)*q^144 + 1/11*(a^2 + 5*a +
        1)*q^146 + 1/11*(6*a^3 - 6*a^2 - 9*a - 3)*q^151 + 1/11*(-3*a^3 + 3*a^2 -
        a - 4)*q^156 + 1/22*(3*a^3 - 4*a^2 - 4*a + 3)*q^162 + 1/11*(-4*a^3 - 
        5*a^2 + 5*a + 4)*q^163 + 1/11*(2*a^3 + 7*a^2 - 2*a - 3)*q^169 + 
        1/22*(5*a^3 + 5*a^2 - 7*a + 2)*q^174 + 1/11*(2*a^3 - 2*a^2 + 8*a + 
        10)*q^177 + 1/11*(-6*a^3 - 4*a^2 + 3*a + 4)*q^179 + 1/11*(-6*a^3 - a^2 +
        7*a + 7)*q^184 + 1/2*(-a^3 + 2*a + 1)*q^186 + 1/11*(-2*a^3 - 5*a^2 + a +
        5)*q^192 + 1/11*(6*a^3 + 7*a^2 + a - 1)*q^193 + (-a^3 + a)*q^196 + 
        1/11*(5*a^3 - a^2 - 4*a - 4)*q^197 + 1/11*(13*a^3 + 8*a^2 - 8*a - 
        13)*q^202 + 1/22*(a^3 + 5*a^2 + a)*q^207 + 1/11*(4*a^3 - 2*a^2 - 7*a - 
        11)*q^208 + 1/22*(a^3 + a^2 + 3*a - 4)*q^213 + 1/22*(a^3 - a^2 - 7*a - 
        6)*q^216 + O(q^218),
    q^6 + 1/22*(-5*a^3 + 14*a^2 + 14*a - 5)*q^9 + 1/22*(13*a^3 - 13*a^2 - 3*a + 
        10)*q^12 + 1/11*(4*a^3 - 3*a^2 - a - 1)*q^13 + 1/11*(-4*a^3 + 3*a^2 + a 
        + 1)*q^16 + 1/22*(a^3 + 5*a^2 + a)*q^18 + 1/11*(7*a^2 + 2*a + 7)*q^24 + 
        1/11*(5*a^3 - 10*a - 3)*q^26 + 1/11*(10*a^3 - 2*a^2 - 8*a - 8)*q^29 + 
        1/11*(-a^3 - 5*a^2 - a)*q^31 + 1/11*(-5*a^3 + 10*a + 3)*q^32 + 
        1/11*(-3*a^3 + 2*a^2 + 5*a - 5)*q^36 + 1/22*(-4*a^3 + a^2 - 9*a - 
        1)*q^39 + 1/11*(-6*a^3 - 15*a^2 + 3*a + 15)*q^41 + 1/11*(-7*a^3 + 6*a^2 
        - 3)*q^46 + 1/11*(6*a^3 + 10*a^2 - 6*a - 20)*q^47 + 1/11*(2*a^3 + a^2 + 
        a + 2)*q^48 + 1/11*(7*a^3 - 6*a^2 + 3)*q^52 + 1/22*(-6*a^3 + 7*a^2 + 3*a
        - 7)*q^54 + 1/11*(-4*a^3 + 8*a - 2)*q^58 + 1/11*(-8*a^3 - 13*a^2 - 5*a +
        5)*q^62 + 1/11*(-3*a^3 + 3*a^2 - a - 4)*q^64 + 1/11*(-7*a^3 - 6*a^2 + 
        6*a + 7)*q^69 + 1/11*(-5*a^3 + 10*a + 3)*q^71 + 1/11*(5*a^3 + 2*a^2 - 
        1)*q^72 + 1/11*(-2*a^3 + 4*a^2 + 2*a - 8)*q^73 + 1/22*(a^3 + 13*a^2 - 
        3*a - 14)*q^78 + 1/22*(6*a^3 + a^2 - 7*a - 7)*q^81 + 1/11*(5*a^3 - 2*a^2
        + 2*a - 5)*q^82 + 1/11*(-4*a^3 - 2*a^2 - 2*a - 4)*q^87 + 1/11*(-5*a^3 - 
        5*a^2 + 7*a - 2)*q^92 + 1/22*(-26*a^3 + a^2 + 13*a - 1)*q^93 + 
        1/11*(-8*a^3 + 6*a^2 + 2*a + 2)*q^94 + 1/22*(-a^3 - 5*a^2 - a)*q^96 + 
        1/11*(5*a^3 - 10*a - 3)*q^104 + 1/22*(5*a^3 - 2*a^2 + 2*a - 5)*q^108 + 
        1/22*(6*a^3 + a^2 - 7*a - 7)*q^117 + 1/11*(4*a^3 + 4*a^2 - 10*a + 
        6)*q^118 + 1/22*(a^3 - 2*a + 17)*q^123 + 1/11*(7*a^3 - 6*a^2 + 3)*q^124 
        + 1/11*(8*a^3 + 2*a^2 - 6*a + 6)*q^127 + 1/11*(5*a^3 + 5*a^2 - 7*a + 
        2)*q^131 + 1/11*(a^3 - 2*a^2 - a + 4)*q^138 + 1/11*(7*a^3 - 2*a^2 - 2*a 
        + 7)*q^139 + 1/11*(-2*a^2 + a - 2)*q^141 + 1/11*(-3*a^3 + 3*a^2 - a - 
        4)*q^142 + 1/11*(-9*a^3 - 9*a^2 + 6*a + 3)*q^144 + 1/11*(10*a^3 - 2*a^2 
        - 8*a - 8)*q^146 + a^3*q^150 + 1/11*(2*a^3 - 4*a^2 - 2*a + 8)*q^151 + 
        1/11*(-a^3 + 2*a^2 + a - 4)*q^156 + 1/22*(13*a^3 - 26*a + 1)*q^162 + 
        1/11*(-7*a^3 + 6*a^2 - 3)*q^163 + 1/11*(-a^3 - a^2 - 3*a + 4)*q^169 + 
        1/22*(-a^3 + 17*a^2 - a)*q^174 + 1/11*(8*a^3 + 6*a^2 - 8*a - 12)*q^177 +
        1/11*(8*a^3 + 13*a^2 + 5*a - 5)*q^179 + 1/11*(-6*a^3 + 7*a^2 + 3*a - 
        7)*q^184 + 1/2*(a^3 - 1)*q^186 + 1/11*(-a^3 - 3*a^2 - 2*a + 2)*q^192 + 
        1/11*(3*a^2 - 7*a + 3)*q^193 + 1/11*(-6*a^3 - 15*a^2 + 3*a + 15)*q^197 +
        1/11*(9*a^3 - 14*a^2 + 7)*q^202 + 1/22*(9*a^3 - 9*a^2 + 3*a + 12)*q^207 
        + 1/11*(3*a^3 - 3*a^2 + a + 4)*q^208 + 1/22*(-9*a^3 - a^2 - 9*a)*q^213 +
        1/22*(-7*a^3 + 3*a^2 + 7*a - 6)*q^216 + O(q^218),
    q^8 + 1/44*(-24*a^3 + 5*a^2 + 29*a - 29)*q^9 + 1/44*(93*a^3 - 58*a^2 - 58*a 
        + 93)*q^12 + 1/22*(13*a^3 - 13*a^2 - 3*a + 10)*q^13 + 1/22*(-13*a^3 + 
        13*a^2 + 3*a - 10)*q^16 + 1/44*(-29*a^3 + 50*a^2 - 25)*q^18 + (-a + 
        1)*q^23 + 1/22*(-a^3 - 5*a^2 - a)*q^24 + 1/22*(7*a^2 + 13*a - 15)*q^26 +
        1/2*(a^2 - a)*q^27 + 1/11*(8*a^3 - 8*a^2 - a + 7)*q^29 + 1/22*(7*a^3 - 
        6*a^2 + 3)*q^31 + 1/22*(-7*a^2 - 13*a - 7)*q^32 + 1/22*(-5*a^3 - 5*a^2 +
        7*a - 2)*q^36 + 1/44*(-19*a^3 + 49*a^2 - 25*a - 10)*q^39 + 1/22*(21*a^3 
        - 9*a^2 - 21*a + 18)*q^41 + 1/22*(-26*a^3 + 23*a^2 + 13*a - 23)*q^46 + 
        1/11*(-7*a^3 + 14*a - 9)*q^47 + 1/22*(-8*a^3 - 13*a^2 - 5*a + 5)*q^48 + 
        1/22*(26*a^3 - 23*a^2 - 13*a + 23)*q^52 + 1/44*(-23*a^3 + 13*a^2 + 23*a 
        - 26)*q^54 + 1/11*(-5*a^2 + 8*a - 5)*q^58 + (2*a^3 - a^2 - a + 1)*q^59 +
        1/22*(5*a^3 + 5*a^2 + 15*a - 20)*q^62 + 1/22*(-13*a^3 + 10*a^2 + 10*a - 
        13)*q^64 + 1/22*(4*a^3 - 3*a^2 - a - 1)*q^69 + 1/22*(-7*a^2 + 9*a - 
        7)*q^71 + 1/11*(-8*a^3 + 2*a^2 + 4*a - 2)*q^72 + 1/11*(-5*a^3 + 10*a - 
        8)*q^73 + 1/44*(-27*a^3 + 16*a^2 + 2*a - 3)*q^78 + 1/44*(3*a^3 - 3*a^2 +
        a + 4)*q^81 + 1/22*(16*a^3 - 23*a^2 + 7*a + 7)*q^82 + 1/22*(5*a^3 - 
        7*a^2 - 12*a + 12)*q^87 + 1/22*(7*a^3 + 6*a^2 - 6*a - 7)*q^92 + 
        1/44*(-63*a^3 + 49*a^2 + 63*a - 98)*q^93 + 1/11*(-13*a^3 + 13*a^2 + 3*a 
        - 10)*q^94 + 1/44*(29*a^3 - 6*a^2 + 3)*q^96 + (-a^3 - a^2 + 2*a - 
        1)*q^101 + 1/22*(-15*a^2 + 13*a + 7)*q^104 + 1/44*(-6*a^3 - a^2 + 7*a + 
        7)*q^108 + (-2*a^3 + a^2 + a - 2)*q^116 + 1/44*(-19*a^3 + 19*a^2 + a + 
        4)*q^117 + 1/11*(-5*a^3 + 13*a^2 - 13*a + 5)*q^118 + 1/44*(19*a^2 - 15*a
        + 19)*q^123 + 1/22*(26*a^3 - 23*a^2 - 13*a + 23)*q^124 + 1/11*(3*a^3 + 
        3*a^2 - 13*a + 10)*q^127 + a^2*q^128 + 1/22*(-7*a^3 + 16*a^2 - 16*a + 
        7)*q^131 + 1/22*(5*a^3 - 10*a - 3)*q^138 + 1/22*(16*a^3 - 7*a^2 - 23*a +
        23)*q^139 + 1/22*(5*a^3 - 19*a^2 + 5*a)*q^141 + 1/22*(-13*a^3 + 10*a^2 +
        10*a - 13)*q^142 + 1/22*(17*a^3 - 9*a^2 + 9*a - 17)*q^144 + 1/11*(-3*a^3
        + 3*a^2 - a - 4)*q^146 + 1/11*(5*a^3 - 10*a + 8)*q^151 + 1/22*(-5*a^3 + 
        10*a + 3)*q^156 + 1/44*(5*a^2 + 3*a + 5)*q^162 + 1/22*(-26*a^3 + 23*a^2 
        + 13*a - 23)*q^163 + (-a^3 + 2*a - 1)*q^164 + (-a^3 + 2*a^2 - a)*q^167 +
        1/22*(-3*a^3 + 10*a^2 - 10*a + 3)*q^169 + (a^3 - a^2)*q^173 + 
        1/44*(-59*a^3 + 38*a^2 - 19)*q^174 + 1/11*(-2*a^3 + 4*a - 1)*q^177 + 
        1/22*(-5*a^3 - 5*a^2 + 7*a - 2)*q^179 + 1/22*(-23*a^3 + 13*a^2 + 23*a - 
        26)*q^184 + 1/4*(-2*a^3 + a^2 + a + 1)*q^186 + (a^2 - 2*a + 1)*q^188 + 
        1/22*(13*a^3 + 13*a^2 - 5*a - 8)*q^192 + 1/22*(-13*a^3 + 23*a^2 - 
        13*a)*q^193 + 1/22*(21*a^3 - 9*a^2 - 21*a + 18)*q^197 + a^3*q^200 + 
        1/22*(46*a^3 - 39*a^2 - 23*a + 39)*q^202 + 1/44*(39*a^3 - 30*a^2 - 30*a 
        + 39)*q^207 + 1/22*(13*a^3 - 10*a^2 - 10*a + 13)*q^208 + 1/44*(19*a^3 - 
        10*a^2 + 5)*q^213 + 1/44*(9*a^3 - 18*a - 23)*q^216 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-2*a + 1)*q^8 - q^12 - q^13 + (a - 1)*q^16 + (-2*a + 1)*q^18 + (a - 
        1)*q^23 - q^25 - q^26 + 3*q^27 + (2*a - 2)*q^29 + (-2*a + 1)*q^31 + (a -
        1)*q^39 + (a + 1)*q^41 + (-a + 1)*q^49 + q^52 + (a + 1)*q^54 + (a - 
        2)*q^58 + (-2*a + 2)*q^62 - 2*q^64 + (-a + 2)*q^71 + (-a + 2)*q^72 + 
        (-2*a + 1)*q^73 - q^78 + (2*a - 2)*q^81 + a*q^82 + 2*a*q^87 + (-a - 
        1)*q^93 + (-a + 1)*q^94 + (2*a - 1)*q^96 + (a - 1)*q^101 + (a - 1)*q^104
        + 2*a*q^108 + q^116 + (-2*a + 1)*q^117 + a*q^121 + (-a + 2)*q^123 + (a -
        2)*q^124 + (-a + 1)*q^127 + (a + 1)*q^128 + q^131 - 2*a*q^139 + q^142 - 
        3*q^144 + (-a + 1)*q^146 + (2*a - 1)*q^151 + (2*a - 4)*q^162 + (a - 
        2)*q^163 + (-a - 1)*q^167 + (-a + 1)*q^169 + a*q^173 + (2*a - 1)*q^174 +
        (-a + 1)*q^179 + (a + 1)*q^184 - a*q^186 + (a - 2)*q^188 + (-a - 
        1)*q^197 + (2*a - 1)*q^200 + a*q^208 + (-a + 1)*q^211 + (-2*a + 1)*q^213
        + (-4*a + 2)*q^216 + O(q^218),
    q^2 + a*q^8 + q^13 + (-2*a + 1)*q^16 + a*q^18 + q^26 + (a - 2)*q^27 + (-2*a 
        + 1)*q^29 + a*q^31 - 2*q^41 + (a - 1)*q^46 - a*q^47 - q^50 + (a - 
        1)*q^52 - q^54 + (-2*a + 2)*q^58 + (2*a - 1)*q^62 + (-a + 2)*q^64 + (2*a
        - 2)*q^71 + (a - 1)*q^72 + 2*a*q^73 + (-2*a + 1)*q^81 + (-a - 1)*q^82 + 
        (-a + 1)*q^98 + (-a + 1)*q^104 + (-a - 1)*q^108 + a*q^117 + (-a + 
        1)*q^124 - 2*q^128 + (a + 1)*q^139 + (a - 2)*q^142 + (-a + 2)*q^144 + 
        (2*a - 1)*q^146 - 2*a*q^151 + (-3*a + 3)*q^162 + (-a + 1)*q^163 - 
        a*q^164 + a*q^169 + (2*a - 1)*q^179 - q^184 + (-2*a + 2)*q^188 + q^193 +
        q^197 - a*q^200 + (a - 1)*q^202 - a*q^208 + 2*a*q^216 + O(q^218),
    q^3 + a*q^12 + (a - 2)*q^18 + (-2*a + 1)*q^24 - a*q^27 + q^36 + (a - 1)*q^48
        + (a - 1)*q^69 + (-a - 1)*q^72 - q^75 + (a - 1)*q^78 + q^81 + (-a + 
        2)*q^96 + (-2*a + 2)*q^108 - q^117 + 3*a*q^144 + (-a + 1)*q^147 + q^156 
        + (a + 1)*q^162 + (-a + 1)*q^186 - 2*q^192 + (a - 2)*q^216 + O(q^218),
    q^4 + (-a + 1)*q^13 + q^26 + (a - 1)*q^27 - 2*a*q^29 + (a + 1)*q^31 + (-2*a 
        + 1)*q^32 + a*q^36 + (a - 2)*q^41 + (a - 2)*q^54 + (-2*a + 1)*q^58 + 
        a*q^62 + (2*a - 1)*q^71 + (a + 1)*q^73 - 2*a*q^81 - 2*q^82 + (a - 
        1)*q^92 - a*q^94 - q^100 - q^104 + q^117 + a*q^127 + (a - 1)*q^131 + 
        2*q^139 + (2*a - 2)*q^142 + 2*a*q^146 + (-a - 1)*q^151 + (-2*a + 
        1)*q^162 + (-2*a + 1)*q^163 + a*q^169 + a*q^179 + (-a + 1)*q^196 + (-a +
        2)*q^197 + (-a + 1)*q^208 + O(q^218),
    q^6 + (-a - 1)*q^12 + (-2*a + 2)*q^18 + a*q^24 + (a + 1)*q^27 + (a - 2)*q^36
        + (a - 1)*q^39 + (-2*a + 1)*q^48 + 2*q^72 - a*q^78 + (2*a - 1)*q^87 - 
        2*a*q^93 + (3*a - 3)*q^96 + (2*a - 1)*q^108 + q^117 + q^123 + (a - 
        1)*q^138 - a*q^141 + (-2*a - 2)*q^144 - q^150 + (a - 1)*q^156 - q^162 + 
        (a - 1)*q^174 + (-a + 2)*q^192 + (-a + 1)*q^213 + (-3*a + 3)*q^216 + 
        O(q^218),
    q^9 + (-a + 1)*q^12 + (a + 1)*q^18 + (2*a - 2)*q^27 - a*q^39 + (a - 2)*q^54 
        + (-a + 1)*q^78 - a*q^81 - 2*q^87 + (-a + 2)*q^93 + (-a - 1)*q^96 - 
        q^108 + a*q^117 + (2*a - 1)*q^123 + (-2*a + 2)*q^144 + (-2*a + 1)*q^162 
        + (-a - 1)*q^174 + q^186 + (a - 1)*q^207 + (a + 1)*q^213 + (a + 1)*q^216
        + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^12 + 1/2*(a - 1)*q^13 - q^16 + (-a - 1)*q^18 + (-a + 1)*q^24 - 
        a*q^25 + 1/2*(a + 1)*q^26 - q^29 + (a + 1)*q^32 + 1/2*(a - 1)*q^39 + (-a
        + 1)*q^47 - a*q^49 - q^52 - a*q^62 + a*q^64 + a*q^69 + (a + 1)*q^71 + 
        1/2*(-a + 1)*q^78 - q^81 + a*q^82 - q^87 - q^92 + q^94 + 1/2*(a + 
        1)*q^104 - a*q^108 + a*q^121 + (-a + 1)*q^124 - a*q^127 + q^131 + q^139 
        + (-a + 1)*q^141 + a*q^142 - q^146 + (a - 1)*q^151 + (-a + 1)*q^163 + 
        1/2*(-a - 1)*q^169 + (-a - 1)*q^174 + (a - 1)*q^177 + a*q^179 + (-a - 
        1)*q^184 + a*q^186 + a*q^207 + 1/2*(a + 1)*q^208 - 2*q^211 + (a + 
        1)*q^213 + (-a + 1)*q^216 + O(q^218),
    q^2 + 1/3*(2*a + 2)*q^12 + 1/3*(a + 1)*q^13 + 1/3*(-a + 1)*q^16 - 2/3*q^18 +
        1/2*(-a - 1)*q^23 + 1/3*a*q^24 + 1/3*(-a - 1)*q^25 + 2/3*q^26 + 
        1/3*(-2*a + 2)*q^27 + 1/3*(2*a - 2)*q^29 + 1/3*q^32 + 1/2*(a - 1)*q^39 -
        q^41 + 1/3*a*q^46 - 1/3*a*q^47 + 1/3*(2*a - 2)*q^48 - a*q^50 - 1/3*q^52 
        - 1/3*q^54 + 1/3*(a - 1)*q^55 - a*q^59 + 1/3*(-2*a - 2)*q^62 + 1/6*(-a -
        1)*q^69 + 1/3*q^71 - 1/3*a*q^72 + 1/3*(a + 1)*q^75 + 1/6*(a + 1)*q^78 - 
        2/3*a*q^85 + 1/6*(a - 1)*q^92 + 1/3*q^93 + 1/3*q^96 - a*q^98 + 1/3*(-a +
        1)*q^100 - 1/3*q^104 - 1/3*a*q^115 + (a + 1)*q^116 + 1/6*(3*a + 1)*q^117
        + 1/3*(a - 1)*q^118 + 1/3*(a + 1)*q^121 + 2/3*a*q^124 + 1/3*(a - 
        1)*q^131 - 2/3*a*q^138 + 1/3*(-a + 1)*q^139 + 1/3*(2*a - 2)*q^146 + 
        2/3*a*q^151 + 1/3*(a + 1)*q^156 + 2/3*q^162 + a*q^164 + 1/3*(-a + 
        1)*q^165 + a*q^167 - 1/3*a*q^169 + (a + 1)*q^173 - 5/3*q^174 - 
        1/3*a*q^177 + 1/3*(-a - 1)*q^179 + 1/3*(-a - 1)*q^186 - 2/3*q^187 - 
        q^188 + 1/3*(a + 1)*q^192 + q^197 + 1/2*(a + 1)*q^207 + 1/3*(-a - 
        1)*q^208 + 1/3*(a - 1)*q^211 + O(q^218),
    q^3 + 1/3*a*q^12 + 2/3*a*q^13 + 2/3*q^16 + 1/3*(a + 1)*q^18 + 1/3*(a - 
        1)*q^24 - 2/3*a*q^25 + 1/3*(-a - 1)*q^26 + 1/3*q^27 + 2/3*q^29 + 
        1/3*(-2*a - 2)*q^32 + 1/3*(a - 1)*q^46 + 1/3*(2*a - 2)*q^47 - 1/3*q^48 +
        1/3*(-a - 1)*q^52 + 1/3*(-a - 1)*q^54 - 2/3*q^55 + 2/3*a*q^62 - 
        1/3*a*q^69 + 1/3*(-2*a - 2)*q^71 + 1/3*(-a + 1)*q^72 - 1/3*a*q^75 + 
        1/3*a*q^78 + 1/3*(-2*a + 2)*q^85 + 2/3*q^92 + 1/3*(-2*a - 2)*q^93 + 
        1/3*(a + 1)*q^96 + 2/3*q^100 + 1/3*(-a - 1)*q^104 + a*q^108 + 1/3*(-a + 
        1)*q^115 + 1/3*(2*a - 1)*q^117 - 2/3*q^118 + 2/3*a*q^121 + 1/3*(2*a - 
        2)*q^124 - 2/3*q^131 + 1/3*(a - 1)*q^138 + 2/3*q^139 + 2/3*q^146 - 
        a*q^147 + 1/3*(2*a - 2)*q^151 - 1/3*a*q^156 + 1/3*(-a - 1)*q^162 + 
        2/3*q^165 + 1/3*(-a + 1)*q^169 + 1/3*(a + 1)*q^174 + 1/3*(-a + 1)*q^177 
        - 2/3*a*q^179 - 2/3*a*q^186 + 1/3*(-2*a - 2)*q^187 - 1/3*a*q^192 - 
        2/3*a*q^208 - 2/3*q^211 + O(q^218),
    q^4 - 4/3*q^12 + 1/6*(-3*a - 1)*q^13 - 4/3*a*q^16 + 1/3*(-2*a + 2)*q^18 + 
        1/3*(2*a + 2)*q^24 + 2/3*q^25 + 1/6*(a - 1)*q^26 + 1/3*a*q^27 - 
        1/3*a*q^29 + (a - 1)*q^31 + 1/3*(a - 1)*q^32 + q^36 + 1/3*(2*a + 2)*q^46
        + 1/3*(a + 1)*q^47 + 2/3*a*q^48 + 1/3*(-4*a - 2)*q^52 + 1/3*(2*a - 
        2)*q^54 - 2/3*a*q^55 + 1/3*q^62 - 2*q^64 - 2/3*q^69 + 1/3*(a - 1)*q^71 +
        1/3*(-2*a - 2)*q^72 + (a + 1)*q^73 - 2/3*q^75 + 2/3*q^78 - a*q^81 - q^82
        + 1/3*(2*a + 2)*q^85 - 1/3*a*q^92 + 1/3*(-2*a + 2)*q^93 + a*q^94 + 
        1/3*(-2*a + 2)*q^96 - 1/3*a*q^100 + 1/6*(a - 1)*q^104 + 1/3*(a + 
        1)*q^115 + 1/6*(a - 1)*q^117 + 4/3*a*q^118 - 2/3*q^121 + 1/3*(4*a + 
        4)*q^124 + q^127 + 1/3*a*q^131 + 1/3*(-a - 1)*q^138 - 1/3*a*q^139 - 
        q^142 - 1/3*a*q^146 + 1/3*(-2*a - 2)*q^151 + 1/3*(3*a + 1)*q^156 + 
        1/3*(-a + 1)*q^162 + 2/3*a*q^165 + 1/6*(-a - 1)*q^169 + 1/3*(-2*a + 
        2)*q^174 + 1/3*(-2*a - 2)*q^177 - 1/3*q^179 + (-a + 1)*q^184 - 4/3*q^186
        + 1/3*(-2*a + 2)*q^187 + 4/3*q^192 + (-a - 1)*q^193 - a*q^196 + 1/6*(3*a
        - 5)*q^208 - 2/3*a*q^211 + (a + 1)*q^216 + O(q^218),
    q^5 - a*q^11 - q^15 + (a + 1)*q^17 + a*q^20 + 1/2*(a + 1)*q^23 + a*q^33 + 
        q^44 + q^45 + (-a - 1)*q^51 - a*q^60 - a*q^65 + (a - 1)*q^68 + 1/2*(-a -
        1)*q^69 - q^80 - q^83 - a*q^89 + 1/2*(a - 1)*q^92 - a*q^99 + (-a + 
        1)*q^107 + (a - 1)*q^113 - q^132 - q^135 - a*q^137 - q^143 + q^149 + (a 
        + 1)*q^153 + (-a - 1)*q^155 + a*q^176 + a*q^180 + (a - 1)*q^191 + 
        a*q^195 + (-a + 1)*q^204 + 1/2*(a + 1)*q^207 + O(q^218),
    q^6 + 1/3*(-4*a - 4)*q^12 + 1/3*(-5*a + 1)*q^13 + 1/3*(-4*a + 4)*q^16 + 
        7/3*q^18 + 7/3*a*q^24 + 1/3*(2*a + 2)*q^25 - 4/3*q^26 + 1/3*(a - 1)*q^27
        + 1/3*(-4*a + 4)*q^29 - 2*q^31 - 8/3*q^32 + (a + 1)*q^36 + 1/2*(-a + 
        1)*q^39 + 4/3*a*q^46 + 8/3*a*q^47 + 1/3*(-a + 1)*q^48 + 1/3*(-6*a + 
        2)*q^52 - 4/3*q^54 + 1/3*(-2*a + 2)*q^55 + 2*q^58 + 1/3*(4*a + 4)*q^62 +
        (-2*a - 2)*q^64 + 1/3*(-5*a - 5)*q^69 - 8/3*q^71 - 1/3*a*q^72 + 2*a*q^73
        + 1/3*(-2*a - 2)*q^75 + 1/6*(7*a + 7)*q^78 + (-2*a + 2)*q^81 + 
        4/3*a*q^85 + 1/3*(-4*a + 4)*q^92 + 1/3*q^93 + (2*a - 2)*q^94 + 4/3*q^96 
        + 1/3*(2*a - 2)*q^100 - 4/3*q^104 + (a + 1)*q^108 + 2/3*a*q^115 + 
        1/6*(3*a - 5)*q^117 + 1/3*(4*a - 4)*q^118 + 1/3*(-2*a - 2)*q^121 - q^123
        + 8/3*a*q^124 + (2*a + 2)*q^127 + 1/3*(4*a - 4)*q^131 + 1/3*a*q^138 + 
        1/3*(2*a - 2)*q^139 + a*q^141 + (-2*a - 2)*q^142 + (a - 1)*q^144 + 
        1/3*(-4*a + 4)*q^146 - a*q^150 - 10/3*a*q^151 + 1/3*(a - 2)*q^156 - 
        1/3*q^162 + 2*a*q^163 + 1/3*(2*a - 2)*q^165 + 1/3*(-a + 3)*q^169 + 
        7/3*q^174 - 10/3*a*q^177 + 1/3*(-4*a - 4)*q^179 + 2*q^184 + 1/3*(-7*a - 
        7)*q^186 + 4/3*q^187 + 1/3*(a + 1)*q^192 - 2*a*q^193 + (-a - 1)*q^207 + 
        1/3*(-a - 1)*q^208 + 1/3*(-2*a + 2)*q^211 - q^213 + 2*a*q^216 + 
        O(q^218),
    q^8 + 1/3*(-2*a + 2)*q^12 + 1/6*(a + 5)*q^13 + 1/3*(2*a + 2)*q^16 + 
        5/3*a*q^18 + 1/2*(a - 1)*q^23 - 5/3*q^24 + 1/3*(a - 1)*q^25 + 1/6*(-7*a 
        + 3)*q^26 + 1/3*(-2*a - 2)*q^27 + 1/3*(2*a + 2)*q^29 - a*q^31 - 
        7/3*a*q^32 + 1/2*(a + 1)*q^39 - 2/3*q^46 - 4/3*q^47 + 1/3*(2*a + 2)*q^48
        + 1/3*(a + 3)*q^52 - 2/3*a*q^54 + 1/3*(a + 1)*q^55 + a*q^58 - q^59 + 
        1/3*(5*a - 5)*q^62 + (-a + 1)*q^64 + 1/6*(-5*a + 5)*q^69 - 4/3*a*q^71 + 
        2/3*q^72 - q^73 + 1/3*(-a + 1)*q^75 + 1/6*(5*a - 5)*q^78 + (a + 1)*q^81 
        - 2/3*q^85 + 1/6*(7*a + 7)*q^92 - 1/3*a*q^93 + (-a - 1)*q^94 + 
        5/3*a*q^96 + 1/3*(-a - 1)*q^100 + 1/6*(-7*a - 3)*q^104 + (a - 1)*q^108 -
        1/3*q^115 - 2/3*a*q^117 + 1/3*(-2*a - 2)*q^118 + 1/3*(-a + 1)*q^121 - 
        4/3*q^124 + (a - 1)*q^127 - q^128 + 1/3*(-2*a - 2)*q^131 - 2/3*q^138 + 
        1/3*(-a - 1)*q^139 + (-a + 1)*q^142 + (-a - 1)*q^144 + 1/3*(5*a + 
        5)*q^146 + 5/3*q^151 + 1/3*(-a + 1)*q^156 - 2/3*a*q^162 - q^163 - q^164 
        + 1/3*(-a - 1)*q^165 + q^167 + 1/6*(3*a + 1)*q^169 + (-a + 1)*q^173 + 
        5/3*a*q^174 + 5/3*q^177 + 1/3*(-2*a + 2)*q^179 + a*q^184 + 1/3*(-5*a + 
        5)*q^186 + 2/3*a*q^187 + a*q^188 + 1/3*(-a + 1)*q^192 + q^193 - a*q^200 
        + 1/2*(-a + 1)*q^207 + 1/6*(-a + 1)*q^208 + 1/3*(a + 1)*q^211 - q^216 + 
        O(q^218),
    q^9 - 1/3*a*q^12 - 2/3*a*q^13 - 2/3*q^16 + 1/3*(2*a + 2)*q^18 + 1/3*(2*a - 
        2)*q^24 + 2/3*a*q^25 + 1/3*(-2*a - 2)*q^26 - 1/3*q^27 + 4/3*q^29 + 
        1/3*(-4*a - 4)*q^32 + 1/2*(a + 1)*q^39 + 1/3*(-a + 1)*q^46 + 1/3*(4*a - 
        4)*q^47 + 4/3*q^48 + 1/3*(a + 1)*q^52 + 1/3*(a + 1)*q^54 + 2/3*q^55 + 
        4/3*a*q^62 - 2/3*a*q^69 + 1/3*(-4*a - 4)*q^71 + 1/3*(a - 1)*q^72 - 
        2/3*a*q^75 + 1/6*(a - 3)*q^78 + q^81 + 1/3*(2*a - 2)*q^85 + q^87 + 
        4/3*q^92 + 1/3*(-a - 1)*q^93 + 1/3*(-a - 1)*q^96 - 2/3*q^100 + 1/3*(-2*a
        - 2)*q^104 + a*q^108 + 1/3*(a - 1)*q^115 + 1/6*(-a - 1)*q^117 + 
        2/3*q^118 - 2/3*a*q^121 + 1/3*(-2*a + 2)*q^124 - 4/3*q^131 + 1/3*(2*a - 
        2)*q^138 - 2/3*q^139 + (a - 1)*q^141 - q^144 + 4/3*q^146 + 1/3*(-2*a + 
        2)*q^151 - 2/3*a*q^156 + 1/3*(-2*a - 2)*q^162 - 2/3*q^165 + 1/3*(a - 
        1)*q^169 + 1/3*(2*a + 2)*q^174 + 1/3*(-2*a + 2)*q^177 - 4/3*a*q^179 - 
        1/3*a*q^186 + 1/3*(2*a + 2)*q^187 - 2/3*a*q^192 - a*q^207 + 2/3*a*q^208 
        + 2/3*q^211 + (-a - 1)*q^213 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^8 - q^12 + 1/3*(2*a - 1)*q^13 - a*q^16 + q^18 - a*q^23 + q^25 + 
        1/3*(-2*a + 1)*q^26 - q^27 + q^31 + 1/3*(-a + 2)*q^39 + a*q^41 - a*q^49 
        + q^52 + a*q^54 + (a - 1)*q^58 + (2*a - 2)*q^59 + (-a + 1)*q^71 + (a - 
        1)*q^72 - q^73 + 1/3*(-2*a + 1)*q^78 + (-a + 1)*q^82 - a*q^93 - a*q^94 +
        q^96 + a*q^101 + 1/3*(-a + 2)*q^104 - q^116 + 1/3*(2*a - 1)*q^117 + (a -
        1)*q^121 + (-a + 1)*q^123 + (-a + 1)*q^124 + a*q^127 + a*q^128 - q^131 -
        q^142 - q^144 + a*q^146 - q^151 + (a - 1)*q^163 + 2*q^164 + a*q^167 + 
        1/3*(a - 2)*q^169 + (-a + 1)*q^173 - q^174 - a*q^179 + a*q^184 + (a - 
        1)*q^186 + (-a + 1)*q^188 - a*q^197 - q^200 + 1/3*(a + 1)*q^208 + 
        a*q^211 - q^213 + O(q^218),
    q^2 + (a - 1)*q^8 + 1/3*(2*a - 1)*q^13 - q^16 + (-a + 1)*q^18 + 1/3*(-2*a + 
        1)*q^26 + (a - 1)*q^27 + q^29 + (-a + 1)*q^31 - a*q^46 + (a - 1)*q^47 + 
        q^50 - a*q^52 + q^54 - q^62 + (-a + 1)*q^64 + a*q^72 - q^81 - a*q^82 - 
        a*q^98 + 1/3*(-a + 2)*q^104 - a*q^108 + (2*a - 2)*q^116 + 1/3*(a + 
        1)*q^117 + (2*a - 2)*q^118 + a*q^124 - a*q^139 + (a - 1)*q^142 + (a - 
        1)*q^144 + q^146 + a*q^162 + a*q^163 + (-a + 1)*q^164 + 1/3*(a + 
        1)*q^169 - q^179 + q^184 - 2*a*q^188 + q^193 - q^197 + (a - 1)*q^200 + 
        a*q^202 + 1/3*(a + 1)*q^208 + O(q^218),
    q^3 + (a - 1)*q^12 + (-a + 1)*q^18 - q^24 + (a - 1)*q^27 - q^36 - a*q^48 + 
        2*q^54 - a*q^69 + a*q^72 + q^75 - a*q^78 - q^81 + (-a + 1)*q^96 + q^117 
        + (a - 1)*q^144 - a*q^147 + q^156 + a*q^162 + (2*a - 2)*q^174 + (2*a - 
        2)*q^177 + a*q^186 + (a - 1)*q^216 + O(q^218),
    q^4 + 1/3*(a - 2)*q^13 + 1/3*(2*a - 1)*q^26 - a*q^27 + a*q^31 - q^32 + (-a +
        1)*q^36 + (a - 1)*q^41 + (a - 1)*q^54 + q^58 + (-a + 1)*q^62 + q^71 - 
        a*q^73 - a*q^92 + (a - 1)*q^94 + q^100 + 1/3*(-2*a + 1)*q^104 + 1/3*(2*a
        - 1)*q^117 + (a - 1)*q^127 - a*q^131 - a*q^151 - q^162 - q^163 + 1/3*(-a
        - 1)*q^169 + (-a + 1)*q^179 - a*q^196 + (-a + 1)*q^197 + 1/3*(-a + 
        2)*q^208 + O(q^218),
    q^6 + a*q^12 + (a - 1)*q^24 - a*q^27 + (-a + 1)*q^36 + 1/3*(a - 2)*q^39 - 
        q^48 + 1/3*(-a - 1)*q^78 + q^87 - a*q^96 + q^108 + 1/3*(2*a - 1)*q^117 -
        q^123 - a*q^138 + (a - 1)*q^141 + q^150 - a*q^156 - q^162 + a*q^174 + 
        (-a + 1)*q^192 + a*q^213 + a*q^216 + O(q^218),
    q^9 + a*q^12 - a*q^18 + 1/3*(-a - 1)*q^39 + (-a + 1)*q^54 + 1/3*(a - 2)*q^78
        + (a - 1)*q^81 + (a - 1)*q^93 - a*q^96 - q^108 + 1/3*(a + 1)*q^117 - 
        q^123 + q^162 + a*q^174 + q^186 - a*q^207 + a*q^213 + a*q^216 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
897
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^16 + 1/2*q^23 - 1/2*q^25 + 1/2*q^26 - 3/2*q^27 - 1/2*q^29 - 1/2*q^35 +
        q^36 - q^39 - 1/2*q^49 + 1/2*q^52 - 1/2*q^55 + q^62 + q^64 - q^69 + q^75
        + 1/2*q^77 + q^81 - q^82 + q^87 - 1/2*q^92 - q^94 + 1/2*q^95 + 1/2*q^100
        - 3/2*q^101 - 1/2*q^104 - q^105 - 1/2*q^108 - 3/2*q^116 + q^117 - 
        1/2*q^121 - 1/2*q^127 + q^131 - 1/2*q^133 - 1/2*q^139 - 1/2*q^140 + 
        q^142 - q^146 + q^147 - q^156 - q^165 + 1/2*q^169 + q^173 - 1/2*q^179 + 
        1/2*q^185 + 1/2*q^196 + 1/2*q^207 - 1/2*q^209 + q^211 + O(q^218),
    q^2 - q^8 - q^18 + 1/2*q^23 - 1/2*q^25 - 1/2*q^26 + 1/2*q^27 - 1/2*q^29 - 
        q^31 + 1/2*q^35 + q^41 + q^46 + q^47 - 1/2*q^49 - q^50 + 3/2*q^52 - q^54
        + 1/2*q^55 + q^58 - q^71 + q^72 + q^73 - 1/2*q^77 - q^81 + 1/2*q^92 - 
        1/2*q^95 - q^98 - 1/2*q^100 - 1/2*q^101 + 1/2*q^104 + 1/2*q^108 - 
        1/2*q^116 - 1/2*q^121 + 2*q^124 - 1/2*q^127 + q^128 + 1/2*q^133 - 
        1/2*q^139 + 1/2*q^140 - q^151 - q^163 - 2*q^164 + 1/2*q^169 + q^173 - 
        1/2*q^179 - q^184 - 1/2*q^185 - 2*q^188 + q^193 - 1/2*q^196 + q^197 + 
        q^200 - 2*q^202 - 1/2*q^207 + 1/2*q^209 + q^211 + q^216 + O(q^218),
    q^3 - q^36 - 1/2*q^39 + q^48 + 1/2*q^78 - q^81 - q^105 - 1/2*q^117 - q^165 +
        q^186 + q^192 + O(q^218),
    q^4 - 1/2*q^23 + 1/2*q^25 - 1/2*q^26 + 1/2*q^27 - 1/2*q^29 - 1/2*q^35 - q^36
        + 1/2*q^49 - 1/2*q^52 - 1/2*q^55 - q^62 + 1/2*q^77 + q^82 + 1/2*q^92 + 
        q^94 + 1/2*q^95 - 1/2*q^100 + 1/2*q^101 + 1/2*q^104 - 1/2*q^108 + 
        1/2*q^116 + 1/2*q^121 - 1/2*q^127 + q^131 - 1/2*q^133 - 1/2*q^139 - 
        1/2*q^140 - q^142 + q^146 + 1/2*q^169 - q^173 - 1/2*q^179 + 1/2*q^185 - 
        1/2*q^196 + 1/2*q^207 - 1/2*q^209 - q^211 + O(q^218),
    q^5 - q^7 - q^11 + q^19 + q^20 - q^28 + q^37 - q^44 - q^45 + q^63 - q^65 + 
        q^67 + q^76 + q^80 - q^83 - q^89 + q^91 - q^97 + q^99 - q^109 - q^112 - 
        q^115 + q^137 + q^143 + q^148 + q^149 + q^161 - q^171 - q^175 - q^176 - 
        q^180 + O(q^218),
    q^6 + q^18 - q^24 - 1/2*q^39 - q^72 - 1/2*q^78 - q^93 - 1/2*q^117 + q^123 + 
        q^138 + q^141 - q^150 + q^156 - q^162 + q^174 - q^213 + O(q^218),
    q^9 - 2*q^27 + q^36 - q^39 - q^69 + q^75 + 2*q^81 + q^87 - q^105 - 2*q^108 +
        q^117 + q^144 + q^147 - q^156 - q^165 + q^207 + O(q^218),
    q^12 - q^27 + q^36 - 1/2*q^39 - q^69 + q^75 - 1/2*q^78 + q^81 - q^105 - 
        q^108 + 1/2*q^117 + q^147 - q^156 - q^165 - q^186 + O(q^218),
    q^13 + q^23 - q^25 + q^27 - q^29 + q^35 - q^49 + q^52 + q^55 - q^77 - 2*q^81
        + q^92 - q^95 - q^100 - q^101 + q^108 - q^116 - q^117 - q^121 - q^127 + 
        q^133 - q^139 + q^140 + 2*q^173 - q^179 - q^185 - q^196 - q^207 + q^208 
        + q^209 + 2*q^211 + O(q^218),
    q^15 - q^21 - q^33 + q^57 + q^60 - q^84 + q^111 - q^132 - q^135 + q^189 - 
        q^195 + q^201 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
898
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
448
);
qprec:=
223
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
898
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
64
);
qprec:=
223
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
210
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
210
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
14*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
420
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
14*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
14*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
140
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
84
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 - q^5 - q^7 + q^8 + q^9 + q^10 + q^14 - q^16 - q^18 - q^19 + q^31 + 
        q^35 + q^38 - q^40 - q^41 - q^45 + 2*q^47 - q^56 - q^59 - q^62 - q^63 + 
        q^64 + 2*q^67 - q^70 - q^71 + q^72 + q^80 + q^81 + q^82 + q^90 - 2*q^94 
        + q^95 - q^97 - q^101 - q^103 - q^107 - q^109 + q^112 - q^113 + q^118 + 
        q^121 + q^125 + q^126 - q^128 + 2*q^131 + q^133 - 2*q^134 + q^142 - 
        q^144 + 2*q^149 - q^152 - q^155 - q^157 + O(q^158),
    q^29 - q^58 - q^145 + O(q^158)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
899
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
14*H.1 + 15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^33 - q^35 + q^49 - q^59 - q^63 + q^64 - q^103 - q^107 - 
        q^109 - q^111 + q^121 - q^132 - q^140 + O(q^158),
    q^3 + q^12 - 2*q^17 - 2*q^21 + q^27 + q^29 + q^31 - 2*q^43 + q^48 - 2*q^55 -
        2*q^61 - 2*q^68 + 2*q^73 + 2*q^75 + 3*q^77 + q^79 - 2*q^84 + q^85 + q^89
        - q^99 - q^105 + q^108 + q^116 - q^119 + q^124 + q^127 - 2*q^135 - 
        2*q^137 + q^145 + q^147 + q^155 + O(q^158),
    q^5 - q^9 + q^20 - q^25 - q^33 - q^35 - q^36 + 2*q^45 + q^49 + q^51 - q^59 +
        q^67 + q^80 - q^81 + q^87 + q^93 - q^100 - q^103 - q^107 - q^109 - q^111
        + q^121 + q^125 + q^129 - q^132 - q^140 - q^144 + O(q^158),
    q^7 - q^9 - q^25 + q^28 - q^36 + q^45 + q^51 - q^59 + q^71 - q^100 - q^103 -
        q^107 - q^109 + q^112 + q^125 + q^129 - q^144 + q^149 + O(q^158),
    q^11 - 2*q^17 - q^21 + q^27 + q^29 + q^31 + q^37 - 2*q^43 + q^44 - q^55 - 
        2*q^61 - 2*q^68 + 2*q^73 + q^75 + 2*q^77 - q^84 + q^85 - q^99 + q^108 + 
        q^116 - 2*q^119 + q^124 - q^135 - 2*q^137 + q^148 + q^153 + O(q^158),
    q^15 - q^17 - q^21 + q^29 + q^31 - q^43 - q^55 + q^60 - q^61 - q^68 + 2*q^73
        + 2*q^77 - q^84 - q^99 - q^105 + q^116 - q^119 + q^124 - q^137 + q^147 +
        q^153 + O(q^158)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - 2*q^34 + q^49 - 2*q^61 + q^64 - 2*q^106 - 2*q^109 + q^121 -
        2*q^136 - q^169 - 2*q^181 + q^196 + 2*q^226 + 2*q^229 + 2*q^241 - 
        2*q^244 + q^256 + 2*q^274 + 3*q^289 + O(q^290),
    q^2 + q^8 - 2*q^17 + q^32 - 2*q^53 - 2*q^68 + q^98 + 2*q^113 - 2*q^122 + 
        q^128 + 2*q^137 + 2*q^173 + 2*q^197 - 2*q^212 - 2*q^218 - 2*q^233 + 
        q^242 + 2*q^257 - 2*q^272 + O(q^290)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^4 + q^6 + a*q^9 + (a - 1)*q^14 - a*q^16 - q^21 + (-a + 
        1)*q^24 - a*q^29 + q^36 + (-a + 1)*q^41 - q^46 + a*q^54 + a*q^56 + 
        a*q^61 - q^64 - a*q^69 + (a - 1)*q^81 + (a - 1)*q^84 + (2*a - 2)*q^86 + 
        q^89 + (a - 1)*q^94 - a*q^96 - 2*a*q^101 + q^109 - q^116 + (a - 1)*q^121
        - q^126 - 2*q^129 + q^134 - q^141 + (-a + 1)*q^144 + (a - 1)*q^149 + 
        q^161 - a*q^164 + (-a + 1)*q^166 + a*q^169 - a*q^174 - q^181 + (a - 
        1)*q^184 - a*q^189 + a*q^201 + 2*q^206 - a*q^214 + q^216 + q^224 + (a - 
        1)*q^229 + a*q^241 + q^244 + (-a + 1)*q^246 + q^249 - a*q^254 + (a - 
        1)*q^256 + (-a + 1)*q^261 + q^269 - q^276 + a*q^281 - q^289 + O(q^290),
    q^2 + a*q^3 - q^7 + (-a + 1)*q^8 + q^12 + a*q^18 - a*q^23 + (a - 1)*q^27 + 
        (a - 1)*q^28 - a*q^32 - q^42 - 2*q^43 - q^47 + (-a + 1)*q^48 - a*q^58 - 
        a*q^63 + a*q^67 + q^72 + (-a + 1)*q^82 + q^83 + (-a + 1)*q^87 - q^92 + 
        2*a*q^103 + (-a + 1)*q^107 + a*q^108 + a*q^112 + a*q^122 + q^123 + (-a +
        1)*q^127 - q^128 - a*q^138 + (a - 1)*q^162 + (-2*a + 2)*q^163 + a*q^167 
        + (a - 1)*q^168 + (2*a - 2)*q^172 + q^178 + (a - 1)*q^183 + (a - 
        1)*q^188 - a*q^192 - 2*a*q^202 + a*q^203 + (-a + 1)*q^207 + q^218 + 
        q^223 + 2*q^227 - q^232 + (a - 1)*q^242 - q^243 - q^252 - 2*q^258 - 
        2*q^263 + a*q^267 + q^268 - q^282 - a*q^283 + (a - 1)*q^287 + (-a + 
        1)*q^288 + O(q^290)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^19 - q^31 - q^61 + 2*q^79 + q^91 - q^109 + q^121 + 2*q^139 - q^151 - 
        q^181 - q^199 - q^211 - q^229 - q^241 - 2*q^259 + 2*q^271 + q^289 + 
        O(q^290),
    q^3 + q^27 - q^57 - q^63 - q^93 - q^117 - q^183 + 2*q^237 + q^243 + q^273 + 
        O(q^290),
    q^7 + q^13 - 2*q^37 + q^43 + q^67 - 2*q^73 + q^97 - 2*q^103 - 2*q^127 - 
        q^133 + q^157 + q^163 + q^193 - q^217 + q^223 - q^247 + q^277 + q^283 + 
        O(q^290),
    q^9 - q^21 - q^39 + q^81 + 2*q^111 - q^129 - q^171 - q^189 - q^201 + 2*q^219
        - q^279 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 - a^7*q^10 + (-a^6 + a^4 - a^2 + a + 1)*q^13 + a^2*q^16 + a^3*q^25
        + (a^4 - 1)*q^34 + (-a^5 - a^4)*q^37 + (a^6 - a^4 + a^2 - 1)*q^40 + 
        a^5*q^49 + (a^7 - a^5 + a^3 - a^2 - a)*q^52 + (a^7 - a^6)*q^58 + (2*a^7 
        - a^5 + a^3 - a)*q^61 - a^3*q^64 + (-a^7 + a^5 - a^3 - a^2 + a)*q^73 + 
        (-a^7 + a^6 + a^5 - a^3 + a)*q^82 + (-a^6 - 1)*q^85 + (a^4 - a^3)*q^97 -
        a^4*q^100 + (a^5 + a^3)*q^106 + (2*a^6 - a^4 + a^2 - 1)*q^109 + 
        a^6*q^121 + (-a^6 - a^5 + a^4 - a^2 + 1)*q^130 + (-a^5 + a)*q^136 + 
        (-a^3 + a^2)*q^145 + (a^6 + a^5)*q^148 + (-a^7 + a^6 - a^4 + a^2 - 
        1)*q^157 + (-a^7 + a^5 - a^3 + a)*q^160 + (-a^7 - a^6 + a^5 - a^3 + a^2 
        + a)*q^169 + (-a^4 - a^3)*q^178 + (-a^7 - a)*q^181 + (a^4 - a)*q^193 - 
        a^6*q^196 + (a + 1)*q^202 + (a^5 - a^2)*q^205 + (a^3 + 1)*q^208 + (a^6 -
        a^4 - 1)*q^226 + (a^7 - a^5)*q^229 + (a^7 - a^6 + a^4 - a^2 + 1)*q^232 +
        (-a^4 - 1)*q^241 + (-a^6 + a^4 - a^2 + 2)*q^244 + q^250 + a^4*q^256 + 
        (a^7 - a^5 + a^3 - 2*a)*q^265 + (a^7 - a^5 + a^3)*q^274 + (-a - 1)*q^277
        + (-a^5 + 2*a^3 - a)*q^289 + O(q^290),
    q^2 + a^6*q^5 - a*q^8 + (-a^7 + a^5 - 2*a^3 + a)*q^17 - a^7*q^20 + (-a^6 + 
        a^4 - a^2 + a + 1)*q^26 + (-a^6 + a^5)*q^29 + a^2*q^32 + (a^6 - a^5 - 
        a^4 + a^2 - 1)*q^41 + a^3*q^50 + (-a^4 - a^2)*q^53 + (a^7 + a^4)*q^65 + 
        (a^4 - 1)*q^68 + (-a^5 - a^4)*q^74 + (a^6 - a^4 + a^2 - 1)*q^80 + (a^3 +
        a^2)*q^89 + a^5*q^98 + (a^7 - a^5 + a^3 - a - 1)*q^101 + (a^7 - a^5 + 
        a^3 - a^2 - a)*q^104 + (-a^7 + a)*q^113 + (a^7 - a^6)*q^116 + (2*a^7 - 
        a^5 + a^3 - a)*q^122 + (a^7 - a^5 + a^3 - a)*q^125 - a^3*q^128 + (-a^6 +
        a^4 - a^2)*q^137 + (-a^7 + a^5 - a^3 - a^2 + a)*q^146 + (-a^6 + a^4 - 
        a^2 - a + 1)*q^149 + (-a^7 + a^6 + a^5 - a^3 + a)*q^164 + (-a^6 - 
        1)*q^170 + (a^7 + a^3)*q^173 + (a + 1)*q^185 + (a^4 - a^3)*q^194 + (a^4 
        - a^2)*q^197 - a^4*q^200 + (a^5 + a^3)*q^212 + (2*a^6 - a^4 + a^2 - 
        1)*q^218 + (-a^7 - a^4 - a + 1)*q^221 + (a^2 + 1)*q^233 + a^6*q^242 - 
        a*q^245 + (-a^4 + a^2 - 1)*q^257 + (-a^6 - a^5 + a^4 - a^2 + 1)*q^260 + 
        (-a^7 + 1)*q^269 + (-a^5 + a)*q^272 + (a^5 + a^2)*q^281 + O(q^290)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 - a^2*q^10 + (-a^3 + a)*q^13 + a^2*q^16 + a^3*q^25 + (a^3 - a^2 + 
        a)*q^34 + (a^3 - a^2 + a - 2)*q^37 - a^3*q^40 - q^49 + (-a^3 + 2*a^2 - a
        + 1)*q^52 + (-a^2 - a)*q^58 + (-a^3 - a + 1)*q^61 + a^3*q^64 + (-a^3 + 
        2*a^2 - a + 1)*q^73 + (-a^3 + a^2 - 2*a + 1)*q^82 + (-a + 1)*q^85 + 
        (2*a^3 - a^2 + a - 1)*q^97 + (a^3 - a^2 + a - 1)*q^100 + (a^3 - 1)*q^106
        + (-a^3 - a)*q^109 - a*q^121 + (-a^3 - 1)*q^130 + (a - 1)*q^136 + (a^3 +
        a^2)*q^145 + (-a - 1)*q^148 + (-a^3 - a^2)*q^157 + (-a^3 + a^2 - a + 
        1)*q^160 + (-a^3 + 2*a^2 - 2*a + 1)*q^169 + (2*a^3 - a^2 + a - 1)*q^178 
        + (-a^2 + a)*q^181 + (a^3 - a^2 + 2*a - 1)*q^193 - a*q^196 + (a + 
        1)*q^202 + (a^2 - 1)*q^205 + (a^3 + 1)*q^208 + (-a^3 + a^2)*q^226 + 
        (-a^2 - 1)*q^229 + (-a^3 - a^2)*q^232 + (a^3 - a^2 + a)*q^241 + (-a^3 + 
        1)*q^244 + q^250 + (a^3 - a^2 + a - 1)*q^256 + (-a^3 + a^2 + 1)*q^265 + 
        (-a^3 + a^2 + 1)*q^274 + (a + 1)*q^277 + (-a + 1)*q^289 + O(q^290),
    q^2 - a*q^5 + a*q^8 + (a^2 - a + 1)*q^17 - a^2*q^20 + (-a^3 + a)*q^26 + (-a 
        - 1)*q^29 + a^2*q^32 + (-a^3 - 1)*q^41 + a^3*q^50 + (a^3 + a - 1)*q^53 +
        (a^3 - 2*a^2 + a - 1)*q^65 + (a^3 - a^2 + a)*q^68 + (a^3 - a^2 + a - 
        2)*q^74 - a^3*q^80 + (a^3 + a^2)*q^89 - q^98 + (-a^3 + a^2 - a + 
        2)*q^101 + (-a^3 + 2*a^2 - a + 1)*q^104 + (-a^2 + a)*q^113 + (-a^2 - 
        a)*q^116 + (-a^3 - a + 1)*q^122 + (-a^3 + a^2 - a + 1)*q^125 + a^3*q^128
        + (-a^3 + 1)*q^137 + (-a^3 + 2*a^2 - a + 1)*q^146 + (-a^3 + a)*q^149 + 
        (-a^3 + a^2 - 2*a + 1)*q^164 + (-a + 1)*q^170 + (a^3 - a^2)*q^173 + (a +
        1)*q^185 + (2*a^3 - a^2 + a - 1)*q^194 + (a^3 + a - 1)*q^197 + (a^3 - 
        a^2 + a - 1)*q^200 + (a^3 - 1)*q^212 + (-a^3 - a)*q^218 + (a^3 - 2*a^2 +
        2*a)*q^221 + (a^2 + 1)*q^233 - a*q^242 + a*q^245 + (-a^3 - a)*q^257 + 
        (-a^3 - 1)*q^260 + (-a^2 + 1)*q^269 + (a - 1)*q^272 + (a^2 - 1)*q^281 + 
        O(q^290)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^2 + a^2*q^4 + a^3*q^5 + a^3*q^8 + (a^3 - a^2 + a - 1)*q^10 + (a^2 - 
        a)*q^13 + (a^3 - a^2 + a - 1)*q^16 + (-a^3 - a + 1)*q^17 - q^20 - a*q^25
        + (a^3 - a^2)*q^26 + (a^3 + a)*q^29 - q^32 + (-a^3 + 1)*q^34 + (-a^3 + 
        1)*q^37 - a*q^40 + (-a^2 + a)*q^41 + q^49 - a^2*q^50 + (-a^2 + a - 
        1)*q^52 + (-a^3 + a^2 - a)*q^53 + (a^3 + a - 1)*q^58 + (-a^2 + a - 
        1)*q^61 - a*q^64 + (-a^3 + a^2 - a)*q^65 + (-a^3 + a^2 + 1)*q^68 + (-a^2
        + a - 1)*q^73 + (-a^3 + a^2 + 1)*q^74 - a^2*q^80 + (-a^3 + a^2)*q^82 + 
        (a^2 + 1)*q^85 + (-a^2 - 1)*q^89 + (-a^3 - a)*q^97 + a*q^98 - a^3*q^100 
        + (-a^3 + a^2 + 1)*q^101 + (-a^3 + a^2 - a)*q^104 + (-a + 1)*q^106 + 
        (a^2 - a)*q^109 + (a^3 - 1)*q^113 + (a^3 - 1)*q^116 + a^2*q^121 + (-a^3 
        + a^2 - a)*q^122 + (-a^3 + a^2 - a + 1)*q^125 - a^2*q^128 + (-a + 
        1)*q^130 + (a^2 + 1)*q^136 + (-a^2 + a)*q^137 + (a^3 - a^2 - 1)*q^145 + 
        (-a^3 + a^2 - a)*q^146 + (a^2 + 1)*q^148 + (a^3 - a^2)*q^149 + (a^3 - 
        a^2 - 1)*q^157 - a^3*q^160 + (a^2 - a + 1)*q^164 + (a - 1)*q^169 + (a^3 
        + a)*q^170 + (-a^2 - 1)*q^173 + (-a^3 - a)*q^178 + (a^3 + a - 1)*q^181 +
        (a^3 + a)*q^185 + (-a^3 + a^2)*q^193 + (-a^3 - a + 1)*q^194 + a^2*q^196 
        + (-a^3 + a^2 - a)*q^197 + (-a^3 + a^2 - a + 1)*q^200 + (a^2 + 1)*q^202 
        + (a^3 - a^2 + a)*q^205 + (-a + 1)*q^208 + (-a^2 + a)*q^212 + (a^3 - 
        a^2)*q^218 + a^2*q^221 + (a^3 - a^2 - 1)*q^226 + (a^3 - a^2 + a)*q^229 +
        (a^3 - a^2 - 1)*q^232 + (a - 1)*q^233 + (-a^3 + 1)*q^241 + a^3*q^242 + 
        (-a + 1)*q^244 + a^3*q^245 + q^250 - a^3*q^256 + (a^3 - a^2)*q^257 + 
        (-a^2 + a)*q^260 + (-a^3 + a^2)*q^265 + (a - 1)*q^269 + (a^3 + a)*q^272 
        + (-a^3 + a^2)*q^274 + (a^2 + 1)*q^277 + (a - 1)*q^281 + (-a^2 - 
        1)*q^289 + O(q^290)
]
;
Bo:=
[
    q - a*q^2 + a^2*q^4 - a^3*q^5 - a^3*q^8 + (a^3 - a^2 + a - 1)*q^10 + (a^2 - 
        a)*q^13 + (a^3 - a^2 + a - 1)*q^16 + (a^3 + a - 1)*q^17 + q^20 - a*q^25 
        + (-a^3 + a^2)*q^26 + (-a^3 - a)*q^29 + q^32 + (-a^3 + 1)*q^34 + (-a^3 +
        1)*q^37 - a*q^40 + (a^2 - a)*q^41 + q^49 + a^2*q^50 + (-a^2 + a - 
        1)*q^52 + (a^3 - a^2 + a)*q^53 + (a^3 + a - 1)*q^58 + (-a^2 + a - 
        1)*q^61 - a*q^64 + (a^3 - a^2 + a)*q^65 + (a^3 - a^2 - 1)*q^68 + (-a^2 +
        a - 1)*q^73 + (a^3 - a^2 - 1)*q^74 + a^2*q^80 + (-a^3 + a^2)*q^82 + (a^2
        + 1)*q^85 + (a^2 + 1)*q^89 + (-a^3 - a)*q^97 - a*q^98 - a^3*q^100 + (a^3
        - a^2 - 1)*q^101 + (a^3 - a^2 + a)*q^104 + (-a + 1)*q^106 + (a^2 - 
        a)*q^109 + (-a^3 + 1)*q^113 + (-a^3 + 1)*q^116 + a^2*q^121 + (a^3 - a^2 
        + a)*q^122 + (a^3 - a^2 + a - 1)*q^125 + a^2*q^128 + (-a + 1)*q^130 + 
        (a^2 + 1)*q^136 + (a^2 - a)*q^137 + (a^3 - a^2 - 1)*q^145 + (a^3 - a^2 +
        a)*q^146 + (a^2 + 1)*q^148 + (-a^3 + a^2)*q^149 + (a^3 - a^2 - 1)*q^157 
        - a^3*q^160 + (-a^2 + a - 1)*q^164 + (a - 1)*q^169 + (-a^3 - a)*q^170 + 
        (a^2 + 1)*q^173 + (-a^3 - a)*q^178 + (a^3 + a - 1)*q^181 + (-a^3 - 
        a)*q^185 + (-a^3 + a^2)*q^193 + (a^3 + a - 1)*q^194 + a^2*q^196 + (a^3 -
        a^2 + a)*q^197 + (a^3 - a^2 + a - 1)*q^200 + (a^2 + 1)*q^202 + (a^3 - 
        a^2 + a)*q^205 + (-a + 1)*q^208 + (a^2 - a)*q^212 + (-a^3 + a^2)*q^218 -
        a^2*q^221 + (a^3 - a^2 - 1)*q^226 + (a^3 - a^2 + a)*q^229 + (a^3 - a^2 -
        1)*q^232 + (-a + 1)*q^233 + (-a^3 + 1)*q^241 - a^3*q^242 + (-a + 
        1)*q^244 - a^3*q^245 + q^250 - a^3*q^256 + (-a^3 + a^2)*q^257 + (a^2 - 
        a)*q^260 + (-a^3 + a^2)*q^265 + (-a + 1)*q^269 + (-a^3 - a)*q^272 + 
        (-a^3 + a^2)*q^274 + (a^2 + 1)*q^277 + (-a + 1)*q^281 + (-a^2 - 1)*q^289
        + O(q^290),
    q^3 - a*q^6 + a^2*q^12 - a^3*q^15 - a^3*q^24 + (a^3 - a^2 + a - 1)*q^27 + 
        (a^3 - a^2 + a - 1)*q^30 + (a^2 - a)*q^39 + (a^3 - a^2 + a - 1)*q^48 + 
        (a^3 + a - 1)*q^51 + q^54 + q^60 - a*q^75 + (-a^3 + a^2)*q^78 + (-a^3 - 
        a)*q^87 + q^96 + (-a^3 + 1)*q^102 - a*q^108 + (-a^3 + 1)*q^111 - a*q^120
        + (a^2 - a)*q^123 + a^2*q^135 + q^147 + a^2*q^150 + (-a^2 + a - 1)*q^156
        + (a^3 - a^2 + a)*q^159 + (a^3 + a - 1)*q^174 + (-a^2 + a - 1)*q^183 - 
        a*q^192 + (a^3 - a^2 + a)*q^195 + (a^3 - a^2 - 1)*q^204 + a^2*q^216 + 
        (-a^2 + a - 1)*q^219 + (a^3 - a^2 - 1)*q^222 + a^2*q^240 - a^3*q^243 + 
        (-a^3 + a^2)*q^246 + (a^2 + 1)*q^255 + (a^2 + 1)*q^267 - a^3*q^270 + 
        O(q^290),
    q^9 - a*q^18 + a^2*q^36 - a^3*q^45 - a^3*q^72 + (a^3 - a^2 + a - 1)*q^81 + 
        (a^3 - a^2 + a - 1)*q^90 + (a^2 - a)*q^117 + (a^3 - a^2 + a - 1)*q^144 +
        (a^3 + a - 1)*q^153 + q^162 + q^180 - a*q^225 + (-a^3 + a^2)*q^234 + 
        (-a^3 - a)*q^261 + q^288 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^19 + q^31 + 2*a*q^49 - q^61 - 2*a*q^79 - 3*q^91 + a*q^109 - q^121 + 
        2*a*q^139 + q^151 - 2*a*q^169 + q^181 + a*q^199 - q^211 - a*q^229 - 
        q^241 + 2*q^271 - a*q^289 + O(q^290),
    q^7 + a*q^13 - a*q^43 - q^67 - q^97 - a*q^133 - q^157 - a*q^163 + a*q^193 + 
        q^217 + a*q^223 + q^247 + q^277 + a*q^283 + O(q^290)
]
;
Bo:=
[
    q + 2*a*q^19 - 2*q^31 - a*q^49 + 2*q^61 - 2*a*q^79 - 2*a*q^109 - q^121 + 
        2*a*q^139 - 2*q^151 + a*q^169 - 2*q^181 - 2*a*q^199 + 2*q^211 + 
        2*a*q^229 + 2*q^241 + 2*q^271 - a*q^289 + O(q^290),
    q^2 - a*q^8 - q^32 + 2*a*q^38 - 2*q^62 - a*q^98 + 2*q^122 + a*q^128 + 
        2*q^152 - 2*a*q^158 - 2*a*q^218 - q^242 + 2*a*q^248 + 2*a*q^278 + 
        O(q^290),
    q^4 - a*q^16 - q^64 + 2*a*q^76 - 2*q^124 - a*q^196 + 2*q^244 + a*q^256 + 
        O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 + a)*q^4 - q^6 + a*q^9 + (a^3 + a)*q^14 + (-a^2 + 1)*q^16 + 
        (-2*a^2 + 1)*q^21 + (a^3 - a)*q^24 + (-2*a^3 + a)*q^29 + q^36 + (a^2 - 
        2)*q^41 - q^46 + (2*a^3 - 2*a)*q^49 - a*q^54 + (a^2 + 1)*q^56 + (a^2 - 
        1)*q^61 - a^3*q^64 + a*q^69 + a^2*q^81 + (-a^3 - a)*q^84 + (a^3 - 
        2*a)*q^89 + (-a^3 + a)*q^94 + (a^2 - 1)*q^96 + a^3*q^109 + (-2*a^2 + 
        1)*q^116 + a^2*q^121 + (2*a^2 - 1)*q^126 + (a^3 - 2*a)*q^134 - q^141 + 
        (-a^3 + a)*q^144 + (-a^3 - a)*q^149 + (-2*a^2 + 1)*q^161 + (2*a^3 - 
        a)*q^164 - a^2*q^166 - a*q^169 + (2*a^3 - a)*q^174 - q^181 + (a^3 - 
        a)*q^184 + (-2*a^3 + a)*q^189 + (2*a^2 - 2)*q^196 + (a^2 + 1)*q^201 + 
        a*q^214 - q^216 + (-a^3 + 2*a)*q^224 + (-a^3 + a)*q^229 + (-a^2 + 
        1)*q^241 + a^3*q^244 + (-a^2 + 2)*q^246 + a^3*q^249 + (-2*a^3 + a)*q^254
        - a^2*q^256 + (-a^2 + 2)*q^261 + (-a^3 + 2*a)*q^269 + q^276 + (a^2 + 
        1)*q^281 + a^3*q^289 + O(q^290),
    q^2 - a*q^3 + (2*a^2 - 1)*q^7 + (-a^3 + a)*q^8 - q^12 + a*q^18 - a*q^23 - 
        a^2*q^27 + (a^3 + a)*q^28 + (-a^2 + 1)*q^32 + (-2*a^2 + 1)*q^42 + q^47 +
        (a^3 - a)*q^48 + (-2*a^3 + a)*q^58 + (2*a^3 - a)*q^63 + (-a^2 - 1)*q^67 
        + q^72 + (a^2 - 2)*q^82 - a^3*q^83 + (a^2 - 2)*q^87 - q^92 + (2*a^3 - 
        2*a)*q^98 + a^2*q^107 - a*q^108 + (a^2 + 1)*q^112 + (a^2 - 1)*q^122 + 
        (-a^3 + 2*a)*q^123 + (-a^2 + 2)*q^127 - a^3*q^128 + a*q^138 + 2*q^147 + 
        a^2*q^162 + (-a^2 + 1)*q^167 + (-a^3 - a)*q^168 + (a^3 - 2*a)*q^178 + 
        (-a^3 + a)*q^183 + (-a^3 + a)*q^188 + (a^2 - 1)*q^192 + 3*a*q^203 - 
        a^2*q^207 + a^3*q^218 + (-a^3 + 2*a)*q^223 - 2*q^227 + (-2*a^2 + 
        1)*q^232 + a^2*q^242 - a^3*q^243 + (2*a^2 - 1)*q^252 + 2*a^3*q^263 + 
        (a^2 + 1)*q^267 + (a^3 - 2*a)*q^268 - q^282 + (2*a^3 - a)*q^283 - 
        3*a^2*q^287 + (-a^3 + a)*q^288 + O(q^290)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (-a + 1)*q^13 - q^16 + (a + 1)*q^37 + a*q^49 + (-a - 1)*q^52 + 
        (a - 1)*q^58 + a*q^64 + (a - 1)*q^73 + (a + 1)*q^82 + (-a - 1)*q^97 - 
        q^121 + (-a + 1)*q^148 + (-a - 1)*q^157 - a*q^169 + (-a + 1)*q^178 + (a 
        - 1)*q^193 + q^196 + (-a - 1)*q^202 + (a - 1)*q^208 + 2*q^226 - 
        2*a*q^229 + (a + 1)*q^232 - 2*q^241 + q^256 + 2*a*q^274 + (a + 1)*q^277 
        + a*q^289 + O(q^290),
    q^2 - a*q^8 + (-a + 1)*q^26 + (-a - 1)*q^29 - q^32 + (a - 1)*q^41 + (a + 
        1)*q^74 + (a + 1)*q^89 + a*q^98 + (-a + 1)*q^101 + (-a - 1)*q^104 + 
        2*a*q^113 + (a - 1)*q^116 + a*q^128 - 2*q^137 + (a - 1)*q^146 + (a + 
        1)*q^149 + (a + 1)*q^164 - 2*a*q^173 + (-a - 1)*q^194 + 2*q^197 - q^242 
        + 2*q^257 + (-a - 1)*q^269 + (-a + 1)*q^281 + O(q^290)
]
;
Bo:=
[
    q + 1/2*(a - 1)*q^13 - q^16 + 1/2*(-a - 1)*q^37 + q^46 + a*q^49 + 1/2*(a + 
        1)*q^52 + 1/2*(-a + 1)*q^58 - q^61 + 1/2*(-a + 1)*q^73 + 1/2*(-a - 
        1)*q^82 - a*q^94 + 1/2*(a + 1)*q^97 - a*q^109 - q^121 + 1/2*(a - 
        1)*q^148 + 1/2*(a + 1)*q^157 - q^166 + 1/2*(a - 1)*q^178 + q^181 + 
        a*q^184 + 1/2*(-a + 1)*q^193 + 1/2*(a + 1)*q^202 + 1/2*(-a + 1)*q^208 + 
        a*q^214 + q^226 - 2*a*q^229 + 1/2*(-a - 1)*q^232 - a*q^244 + q^256 + 
        a*q^274 + 1/2*(-a - 1)*q^277 + a*q^289 + O(q^290),
    q^2 - a*q^23 + 1/2*(a - 1)*q^26 + 1/2*(a + 1)*q^29 - q^32 + 1/2*(-a + 
        1)*q^41 - q^47 + 1/2*(-a - 1)*q^74 + a*q^83 + 1/2*(-a - 1)*q^89 + q^92 +
        a*q^98 + 1/2*(a - 1)*q^101 + 1/2*(a + 1)*q^104 + q^107 + a*q^113 + 
        1/2*(-a + 1)*q^116 - q^122 - q^137 + 1/2*(-a + 1)*q^146 + 1/2*(-a - 
        1)*q^149 + 1/2*(-a - 1)*q^164 + q^167 - a*q^173 - a*q^188 + 1/2*(a + 
        1)*q^194 + q^197 - a*q^218 - q^227 - q^242 + q^257 + a*q^263 + 1/2*(a + 
        1)*q^269 + 1/2*(a - 1)*q^281 + O(q^290),
    q^3 + a*q^12 - q^18 - a*q^27 - q^48 - a*q^72 + q^108 + 2*q^138 + a*q^147 + 
        a*q^162 - 2*q^183 - a*q^192 + 2*a*q^207 - q^243 - 2*a*q^282 + q^288 + 
        O(q^290),
    q^4 + 1/2*(-a - 1)*q^13 + 1/2*(-a + 1)*q^37 - a*q^46 + 1/2*(a - 1)*q^52 + 
        1/2*(a + 1)*q^58 + a*q^61 - q^64 + 1/2*(a + 1)*q^73 + 1/2*(-a + 1)*q^82 
        - q^94 + 1/2*(a - 1)*q^97 - q^109 + 1/2*(-a - 1)*q^148 + 1/2*(a - 
        1)*q^157 + a*q^166 + q^169 + 1/2*(-a - 1)*q^178 - a*q^181 + q^184 + 
        1/2*(a + 1)*q^193 + a*q^196 + 1/2*(a - 1)*q^202 + 1/2*(a + 1)*q^208 + 
        q^214 + a*q^226 + 1/2*(-a + 1)*q^232 - 2*a*q^241 - q^244 - q^274 + 
        1/2*(-a + 1)*q^277 + O(q^290),
    q^5 - a*q^20 + a*q^50 + (a - 1)*q^65 - q^80 - a*q^125 + (-a - 1)*q^185 + 
        q^200 + a*q^245 + (a + 1)*q^260 + O(q^290),
    q^6 + a*q^9 + a*q^24 - q^36 - a*q^54 - 2*a*q^69 + q^81 - q^96 - 2*q^141 - 
        a*q^144 + q^216 + 2*a*q^249 + 2*q^276 + O(q^290),
    q^8 - q^23 + 1/2*(-a - 1)*q^26 + 1/2*(a - 1)*q^29 + 1/2*(a + 1)*q^41 + 
        a*q^47 + 1/2*(-a + 1)*q^74 + q^83 + 1/2*(-a + 1)*q^89 - a*q^92 + 1/2*(-a
        - 1)*q^101 + 1/2*(a - 1)*q^104 - a*q^107 - q^113 + 1/2*(a + 1)*q^116 + 
        a*q^122 - q^128 - a*q^137 + 1/2*(a + 1)*q^146 + 1/2*(-a + 1)*q^149 + 
        1/2*(-a + 1)*q^164 - a*q^167 + q^173 - q^188 + 1/2*(a - 1)*q^194 + 
        a*q^197 - q^218 + a*q^227 + a*q^257 + q^263 + 1/2*(a - 1)*q^269 + 
        1/2*(-a - 1)*q^281 + O(q^290),
    q^10 - q^25 - a*q^40 + a*q^100 + (a - 1)*q^130 + (a + 1)*q^145 - q^160 + (-a
        + 1)*q^205 - a*q^250 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 + q^16 + 2*q^34 - q^49 - 2*q^61 - q^64 - 2*q^106 + 2*q^109 + q^121 -
        2*q^136 + q^169 - 2*q^181 + q^196 + 2*q^226 - 2*q^229 + 2*q^241 + 
        2*q^244 + q^256 - 2*q^274 - 3*q^289 + O(q^290),
    q^2 - q^8 - 2*q^17 + q^32 + 2*q^53 + 2*q^68 - q^98 - 2*q^113 - 2*q^122 - 
        q^128 + 2*q^137 - 2*q^173 + 2*q^197 - 2*q^212 + 2*q^218 + 2*q^233 + 
        q^242 + 2*q^257 - 2*q^272 + O(q^290),
    q^5 - q^20 - q^50 + q^80 - q^125 + 2*q^170 + q^200 - q^245 + O(q^290),
    q^10 + q^25 - q^40 - 2*q^85 - q^100 + q^160 - q^250 + 2*q^265 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^4 + q^6 - a*q^9 + (-a + 1)*q^14 - a*q^16 - q^21 + (a - 1)*q^24
        + a*q^29 + q^36 + (-a + 1)*q^41 - q^46 - a*q^54 + a*q^56 + a*q^61 + q^64
        + a*q^69 + (a - 1)*q^81 + (-a + 1)*q^84 + (2*a - 2)*q^86 - q^89 + (-a + 
        1)*q^94 - a*q^96 - 2*a*q^101 - q^109 - q^116 + (a - 1)*q^121 - q^126 + 
        2*q^129 - q^134 - q^141 + (a - 1)*q^144 + (-a + 1)*q^149 + q^161 + 
        a*q^164 + (-a + 1)*q^166 - a*q^169 + a*q^174 - q^181 + (-a + 1)*q^184 + 
        a*q^189 + a*q^201 + 2*q^206 + a*q^214 + q^216 - q^224 + (-a + 1)*q^229 +
        a*q^241 - q^244 + (-a + 1)*q^246 - q^249 + a*q^254 + (a - 1)*q^256 + (-a
        + 1)*q^261 - q^269 - q^276 + a*q^281 + q^289 + O(q^290),
    q^2 - a*q^3 - q^7 + (a - 1)*q^8 + q^12 - a*q^18 + a*q^23 + (a - 1)*q^27 + 
        (-a + 1)*q^28 - a*q^32 - q^42 + 2*q^43 - q^47 + (a - 1)*q^48 + a*q^58 + 
        a*q^63 + a*q^67 + q^72 + (-a + 1)*q^82 - q^83 + (-a + 1)*q^87 - q^92 - 
        2*a*q^103 + (-a + 1)*q^107 - a*q^108 + a*q^112 + a*q^122 - q^123 + (-a +
        1)*q^127 + q^128 + a*q^138 + (a - 1)*q^162 + (2*a - 2)*q^163 + a*q^167 +
        (-a + 1)*q^168 + (2*a - 2)*q^172 - q^178 + (-a + 1)*q^183 + (-a + 
        1)*q^188 - a*q^192 - 2*a*q^202 - a*q^203 + (-a + 1)*q^207 - q^218 - 
        q^223 + 2*q^227 - q^232 + (a - 1)*q^242 + q^243 - q^252 + 2*q^258 + 
        2*q^263 + a*q^267 - q^268 - q^282 + a*q^283 + (a - 1)*q^287 + (a - 
        1)*q^288 + O(q^290),
    q^5 + (a - 1)*q^20 + (a - 1)*q^25 + q^30 - a*q^45 + (-a + 1)*q^70 - a*q^80 -
        a*q^100 - q^105 + (a - 1)*q^120 - a*q^125 + a*q^145 + (a - 1)*q^150 + 
        q^180 + (-a + 1)*q^205 + q^225 - q^230 - a*q^270 + a*q^280 + O(q^290),
    q^10 - a*q^15 - q^35 + (a - 1)*q^40 + (a - 1)*q^50 + q^60 + q^75 - a*q^90 + 
        a*q^115 + (a - 1)*q^135 + (-a + 1)*q^140 - a*q^160 + (-a + 1)*q^175 - 
        a*q^200 - q^210 + 2*q^215 - q^235 + (a - 1)*q^240 - a*q^250 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
900
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^19 - q^31 - q^61 - 2*q^79 + q^91 + q^109 + q^121 - 2*q^139 - q^151 - 
        q^181 + q^199 - q^211 + q^229 - q^241 + 2*q^259 + 2*q^271 - q^289 + 
        O(q^290),
    q^3 - q^27 + q^57 - q^63 - q^93 + q^117 - q^183 - 2*q^237 + q^243 + q^273 + 
        O(q^290),
    q^7 - q^13 - 2*q^37 - q^43 + q^67 + 2*q^73 + q^97 + 2*q^103 - 2*q^127 + 
        q^133 + q^157 - q^163 - q^193 - q^217 - q^223 - q^247 + q^277 - q^283 + 
        O(q^290),
    q^9 + q^21 - q^39 - q^81 - 2*q^111 - q^129 + q^171 - q^189 + q^201 + 2*q^219
        - q^279 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
901
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
901
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
901
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
104
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
901
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
901
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
104
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
901
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
901
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
901
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
208
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
901
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
208
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
901
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
901
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 13*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
901
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 13*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
901
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 13*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
901
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + 13*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a + 1)*q^2 + a*q^4 + a*q^9 + q^16 + a*q^17 + (a - 1)*q^18 + (-a - 
        1)*q^19 - a*q^25 + (a + 1)*q^32 + (a - 1)*q^34 - q^36 - 2*a*q^38 - 
        2*q^47 - q^49 + (-a + 1)*q^50 - a*q^53 - 2*a*q^59 + a*q^64 + (-a + 
        1)*q^67 - q^68 + (-a + 1)*q^76 - q^81 + (a + 1)*q^83 + (-2*a - 2)*q^94 +
        (-a - 1)*q^98 + q^100 + (a + 1)*q^101 + (a - 1)*q^103 + (-a + 1)*q^106 +
        (-2*a + 2)*q^118 - q^121 + (-a + 1)*q^127 + 2*q^134 + (a + 1)*q^137 + 
        a*q^144 + 2*a*q^149 + (-a - 1)*q^151 - q^153 + (a - 1)*q^157 + O(q^160)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
901
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.1 + 13*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
901
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 26*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^5 + a*q^9 + 1/2*(-a - 1)*q^14 - q^16 + 1/2*(a + 1)*q^22 + q^23 - 
        q^31 + 1/2*(a - 1)*q^34 + q^37 + 1/2*(a - 1)*q^38 + q^45 + (-a - 1)*q^47
        + (-a + 1)*q^53 + 1/2*(a + 1)*q^56 + 1/2*(-a - 1)*q^58 - q^59 + 1/2*(a -
        1)*q^70 + (a - 1)*q^71 - a*q^77 + a*q^80 - q^81 + 1/2*(-a + 1)*q^82 + 
        1/2*(-a - 1)*q^88 + (a - 1)*q^89 + (a + 1)*q^97 + a*q^103 + 1/2*(-a + 
        1)*q^110 - a*q^115 + q^119 + a*q^121 - a*q^125 + 1/2*(-a + 1)*q^126 + 
        q^133 + 1/2*(-a + 1)*q^136 - a*q^144 + q^146 + 1/2*(-a + 1)*q^152 + 
        a*q^155 - q^163 - a*q^166 - a*q^169 + 1/2*(a + 1)*q^170 + (a + 1)*q^179 
        - a*q^185 - q^187 + 1/2*(a + 1)*q^190 + (-a - 1)*q^191 + 1/2*(a - 
        1)*q^198 + 1/2*(-a + 1)*q^202 + a*q^203 + a*q^207 - q^209 + 1/2*(a - 
        1)*q^218 + 1/2*(a + 1)*q^224 + 1/2*(a + 1)*q^232 + (a - 1)*q^235 + 
        O(q^246),
    q^2 + q^8 - a*q^10 + a*q^18 + (-a - 1)*q^28 - q^32 - a*q^40 + (a + 1)*q^44 +
        q^46 - q^62 + (a - 1)*q^68 + a*q^72 + q^74 + (a - 1)*q^76 + q^90 + (-a -
        1)*q^94 + (-a + 1)*q^106 + (-a - 1)*q^116 - q^118 - q^128 + (a - 
        1)*q^140 + (a - 1)*q^142 - a*q^154 + a*q^160 - q^162 + (-a + 1)*q^164 + 
        (a - 1)*q^178 + q^184 + (a + 1)*q^194 + a*q^206 + (-a + 1)*q^220 - 
        a*q^230 + q^238 + a*q^242 + O(q^246),
    q^4 + 1/2*(-a - 1)*q^14 - a*q^20 + 1/2*(a + 1)*q^22 + 1/2*(a - 1)*q^34 + 
        a*q^36 + 1/2*(a - 1)*q^38 + 1/2*(-a - 1)*q^56 + 1/2*(-a - 1)*q^58 - q^64
        + 1/2*(a - 1)*q^70 + 1/2*(-a + 1)*q^82 + 1/2*(a + 1)*q^88 + q^92 + 
        1/2*(-a + 1)*q^110 - q^124 + 1/2*(-a + 1)*q^126 + 1/2*(a - 1)*q^136 + 
        q^146 + q^148 + 1/2*(a - 1)*q^152 - a*q^166 + 1/2*(a + 1)*q^170 + q^180 
        + (-a - 1)*q^188 + 1/2*(a + 1)*q^190 + 1/2*(a - 1)*q^198 + 1/2*(-a + 
        1)*q^202 + (-a + 1)*q^212 + 1/2*(a - 1)*q^218 + 1/2*(a + 1)*q^224 + 
        1/2*(-a - 1)*q^232 - q^236 + O(q^246),
    q^7 + (-a + 1)*q^8 - q^11 - a*q^17 - a*q^19 - q^28 + q^29 - a*q^35 + (-a - 
        1)*q^40 + a*q^41 + q^44 + a*q^55 + a*q^63 + a*q^68 + (a + 1)*q^72 + (a -
        1)*q^73 + a*q^76 + (a + 1)*q^83 - q^85 - q^95 - a*q^99 + a*q^101 - 
        a*q^109 - q^112 - q^116 + (a - 1)*q^128 + (a - 1)*q^131 + a*q^140 - 
        a*q^145 - a*q^149 - q^151 + q^153 + q^161 - a*q^164 + q^167 + q^171 + (a
        - 1)*q^173 + q^176 + (-a + 1)*q^184 - q^193 + q^205 + a*q^211 - q^217 - 
        a*q^220 + 2*q^233 + q^239 + O(q^246)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 20*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
902
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 20*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
246
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^5 + q^9 + q^16 - q^20 - q^23 - q^31 + q^36 - q^37 - q^45 - q^59 
        + q^64 - q^77 - q^80 + q^81 - 2*q^91 - q^92 - q^103 + 2*q^113 + q^115 + 
        q^119 + q^121 - q^124 + q^125 + q^133 + 2*q^143 + q^144 - q^148 + q^155 
        - q^163 + 3*q^169 - q^180 + q^185 - q^187 + q^203 - q^207 - q^209 - 
        2*q^221 + 2*q^223 - q^236 + O(q^246),
    q^2 + q^8 - q^10 + q^18 + q^32 - q^40 - q^46 - q^62 + q^72 - q^74 - q^90 - 
        q^118 + q^128 - q^154 - q^160 + q^162 - 2*q^182 - q^184 - q^206 + 
        2*q^226 + q^230 + q^238 + q^242 + O(q^246),
    q^7 - q^11 - 2*q^13 + q^17 + q^19 + q^28 + q^29 - q^35 - q^41 - q^44 - 
        2*q^52 + q^55 + q^63 + 2*q^65 + q^68 + q^76 - 2*q^79 - q^85 - q^95 - 
        q^99 + q^101 + q^109 + q^112 + q^116 - 2*q^117 - q^140 - q^145 + q^149 +
        q^151 + q^153 - q^161 - q^164 + q^167 + q^171 - q^176 + q^193 + q^205 - 
        2*q^208 + q^211 - q^217 + q^220 - 2*q^227 - 2*q^233 + q^239 + O(q^246),
    q^14 - q^22 - 2*q^26 + q^34 + q^38 + q^56 + q^58 - q^70 - q^82 - q^88 - 
        2*q^104 + q^110 + q^126 + 2*q^130 + q^136 + q^152 - 2*q^158 - q^170 - 
        q^190 - q^198 + q^202 + q^218 + q^224 + q^232 - 2*q^234 + O(q^246)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^4*q^3 + (-a^11 - a^10 + a^8 + a^7 - a^5 + a^3 + a^2 - 1)*q^4 + (-a^9 +
        a^2)*q^7 + a^8*q^9 - a^3*q^12 + (-a^10 - a)*q^13 + (a^11 - a^9 - a^8 + 
        a^6 + a^5 - a^4 - a^3 + a + 1)*q^16 + (a^10 + a^2)*q^19 + (a^11 + a^10 -
        a^8 - a^7 + a^5 - a^3 - a^2 + 1)*q^21 + (a^11 - a^4)*q^25 + (a^11 - a^9 
        - a^8 + a^6 - a^4 - a^3 + a + 1)*q^27 + (-a^8 + a)*q^28 + (a^11 + a^10 -
        a^8 - 2*a^7 + a^6 + a^5 - a^3 - a^2 + 1)*q^31 + a^7*q^36 + (-a^11 - a^10
        + a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^37 + (a^7 + a^5 - 1)*q^39 + 
        a^4*q^43 - a^2*q^48 - a^11*q^49 + (-a^9 - 1)*q^52 + (-a^7 - a^6 + 
        1)*q^57 + (-a^10 - a^5 + a^3)*q^61 + a^3*q^63 + (-a^11 + a^4)*q^64 + 
        (a^11 + a^8 - a)*q^67 + (-a^11 + a^9 + a^8 + a^4 + a^3 - a - 1)*q^73 + 
        a*q^75 + (a^9 + a)*q^76 + (-a^11 + 2*a^9 + a^8 - a^6 - a^5 + a^4 + a^3 -
        a - 1)*q^79 + (a^9 - a^2)*q^81 + (-a^11 + a^9 + a^8 - a^6 - a^5 + a^4 + 
        a^3 - a - 1)*q^84 + (a^10 - a^5 - a^3)*q^91 + (a^11 - a^10 + a^3)*q^93 +
        (a^6 + a^3)*q^97 + (a^10 - a^3)*q^100 + (a^9 + a^8 - a^2 - a)*q^103 - 
        a^11*q^108 + (-a^2 - 1)*q^109 + (-a^11 + a^10 + a^9 + a^8 - a^6 + a^4 - 
        a - 1)*q^111 + (-a^7 + 1)*q^112 + (-a^11 - a^9 + a^4)*q^117 + (a^9 - 
        a^2)*q^121 + (-a^11 + a^9 + a^8 - 2*a^6 + a^4 + a^3 - a - 1)*q^124 + 
        (-a^11 - a^10 + a^8 + 2*a^7 - a^6 - a^5 + a^3 + a^2 - 2)*q^127 - 
        a^8*q^129 + (-a^11 + a^5 + a^4)*q^133 + (-a^6 + a^4)*q^139 + a^6*q^144 +
        (a^8 - a)*q^147 + (a^11 - a^9 - a^8 - a^7 + a^6 - a^4 - a^3 + a + 
        1)*q^148 + (-a^8 + a^7 + a)*q^151 + (a^11 + a^10 - a^8 - a^7 + a^6 + a^5
        + a^4 - a^3 - a^2 + 1)*q^156 + (-a^11 + a^9 + a^8 - a^7 - a^6 - a^5 + 
        a^4 + a^3 - a)*q^157 + (-a^9 + a^7)*q^163 + (2*a^11 + a^10 - a^8 - a^7 +
        a^5 - a^3 + 1)*q^169 + (a^11 + a^10 - a^4)*q^171 + a^3*q^172 + (a^11 + 
        a^10 - a^8 - a^7 + a^6 + a^5 - a^3 - a^2 + 1)*q^175 + (a^11 + a^5 - 
        a^4)*q^181 + (a^9 - 1)*q^183 - a^7*q^189 - a*q^192 + (a^11 - a^9 - a^8 +
        a^6 + a^5 - a^4 - 2*a^3 + a + 1)*q^193 - a^10*q^196 + (-a^10 + a^7 + a^3
        - 1)*q^199 + (a^11 - a^9 - 2*a^8 + a^6 + a^5 - a^4 - a^3 + 2*a + 
        1)*q^201 + (a^11 + a^10 - 2*a^8 - a^7 + a^5 - a^3 - a^2 + 1)*q^208 + 
        (-a^11 + a)*q^211 + (a^8 - a^2)*q^217 + (-a^10 - a^9 + a^2)*q^219 + 
        (a^10 + a^8)*q^223 - a^5*q^225 + O(q^228)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^11 - a^4)*q^3 + (a^11 + a^10 - a^8 - a^7 + a^6 + a^5 - a^3 - a^2 + 
        1)*q^4 + (a^11 - a^9 - a^8 + a^6 + a^5 - a^4 - a^3 + a + 1)*q^7 + (-a^8 
        + a)*q^9 - a^10*q^12 + (a^10 + a)*q^13 - a^5*q^16 + (a^10 + a^9 - 
        a^3)*q^19 + (a^9 - a^2)*q^21 - a^11*q^25 + (-a^11 + a^9 + a^8 - a^6 + 
        a^4 + a^3 - a - 1)*q^27 + a^11*q^28 + (a^6 - 1)*q^31 + a^7*q^36 + (a^11 
        + a^10 - a^7 + a^5 - a^3 - a^2 - a + 1)*q^37 + (-a^11 + a^9 + a^8 - a^7 
        - a^6 - a^5 + a^4 + a^3 - a - 1)*q^39 + a^4*q^43 + a^2*q^48 + (-a^10 + 
        a^3)*q^49 + (a^7 - a^2 - 1)*q^52 + (-a^7 - a^6 + 1)*q^57 + (a^11 - a^9 -
        a^8 + a^6 - a^4 + a + 1)*q^61 + (-a^11 - a^10 + a^8 + a^7 - a^6 - a^5 + 
        a^3 + a^2 - 1)*q^63 + (-a^11 + a^4)*q^64 + (-a^8 - a^4)*q^67 + (-a^11 - 
        a^10 + a^8 + a^7 + a^3 + a^2 - 1)*q^73 + a^8*q^75 + (-a^9 - a)*q^76 + 
        (-a^9 + a^5 + a^2)*q^79 - a^9*q^81 - a^8*q^84 + (-a^11 - a^10 + 2*a^8 + 
        a^7 - a^5 + a^3 + a^2 - 1)*q^91 + (-a^11 + a^4 - a^3)*q^93 + (-a^6 - 
        a^3)*q^97 + a^3*q^100 + (-a^2 - a)*q^103 - a^4*q^108 + (-a^9 - a^7 + a^2
        + 1)*q^109 + (a^11 - a^10 - a^9 - a^8 + a^6 - a^4 + a + 1)*q^111 - 
        a^3*q^112 + (-a^9 + a^4 + a^2)*q^117 + a^2*q^121 + (-2*a^11 - a^10 + a^9
        + 2*a^8 + a^7 - 2*a^6 - 2*a^5 + a^4 + 2*a^3 + a^2 - a - 2)*q^124 + 
        (-a^11 - a^10 + a^8 + 2*a^7 - a^6 - a^5 + a^3 + a^2 - 2)*q^127 - a*q^129
        + (a^8 + a^7 - a)*q^133 + (a^6 - a^4)*q^139 + (a^11 + a^10 - a^8 - a^7 +
        a^5 - a^3 - a^2 + 1)*q^144 + (a^7 - 1)*q^147 + (a^11 - a^9 - a^8 - a^7 +
        a^6 - a^4 - a^3 + a + 1)*q^148 + (a^8 - 1)*q^151 + (-2*a^11 - a^10 + a^8
        + a^7 - a^5 + a^3 + a^2 - 1)*q^156 + (-a^11 + a^9 + a^8 - a^7 - a^6 + 
        a^4 + a^3 - a - 1)*q^157 + (a^9 - a^7 - a^2 + 1)*q^163 + (2*a^11 + a^10 
        - a^8 - a^7 + a^5 - a^3 + 1)*q^169 + (a^11 + a^3)*q^171 + (a^10 - 
        a^3)*q^172 - a^9*q^175 + (-a^11 - a^5 + a^4)*q^181 + (a^9 - 1)*q^183 + 
        a^10*q^189 + (a^8 - a)*q^192 + (-a^11 - a^10 + a^9 + a^8 - a^6 + a^4 + 
        2*a^3 - a - 1)*q^193 + a^9*q^196 + (-a^10 + a^7)*q^199 + (a^5 + a)*q^201
        + (-a^8 - a^6 + a)*q^208 + (-a^11 + a)*q^211 + (-a^11 + a^9 + a^8 - a^6 
        - a^5 + 2*a^4 + a^3 - a - 1)*q^217 + (a^10 - a^3 - a^2)*q^219 + (-a^10 -
        a^8)*q^223 - a^5*q^225 + O(q^228)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^8*q^3 + (a^11 - a^9 - a^8 + a^6 + a^5 - a^4 - a^3 + a + 1)*q^4 - 
        a^11*q^7 + (a^9 - a^2)*q^9 + a^6*q^12 + (a^11 + a^10 - a^8 - a^7 + a^5 -
        a^3 + 1)*q^13 + (-a^10 + a^3)*q^16 + (a^11 + a^10 - a^8 - a^7 + a^5 + 
        a^4 - a^3 - a^2 + 1)*q^19 + (a^11 - a^9 - a^8 + a^6 + a^5 - a^4 - a^3 + 
        a + 1)*q^21 + (-a^8 + a)*q^25 - a^3*q^27 - a^9*q^28 + (a^7 - a^5 - 
        1)*q^31 + (a^7 - 1)*q^36 + (a^9 - a^5 - a^2)*q^37 + (a^10 - a^7)*q^39 + 
        a^8*q^43 + a^4*q^48 - a*q^49 + (a^11 - a^4 + 1)*q^52 + (-a^11 + a^9 + 
        a^8 - a^7 - a^6 + a^4 + a^3 - a - 1)*q^57 + (-a^11 + a^8 + a^7 - a^6 - 
        a^5 + a^3 + a^2 - 1)*q^61 + a^6*q^63 + (-a^8 + a)*q^64 + (-a^9 - a)*q^67
        + (-a^11 + a^9 + a^8 - a^6 + a^4 - a - 1)*q^73 + a^2*q^75 + (a^11 - a^4 
        + a^2)*q^76 + (a^11 - a^10 - a^4 + a^3)*q^79 - a^11*q^81 + (-a^10 + 
        a^3)*q^84 + (-a^11 + a^8 + a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^91 + 
        (-a^11 - a^10 + a^8 + a^7 - a^6 - a^5 + a^3 + a^2 - a - 1)*q^93 + (-a^11
        + a^9 + a^8 + a^4 + a^3 - a - 1)*q^97 + (-a^11 - a^10 + a^8 + a^7 - a^6 
        - a^5 + a^3 + a^2 - 1)*q^100 + (-a^11 - a^9)*q^103 - a*q^108 + (a^4 + 
        1)*q^109 + (-a^11 - a^10 + a^8 + a^7 - a^6 - a^5 + a^2 - 1)*q^111 - 
        a^7*q^112 + (a^11 - a^8 - a^4 + a)*q^117 - a^11*q^121 + (-a^11 + a^9 + 
        a^8 - a^6 + a^4 - a - 1)*q^124 + (-a^7 - a^5)*q^127 + (a^9 - a^2)*q^129 
        + (a^10 - a^8 + a)*q^133 + (-a^11 + a^9 + 2*a^8 - a^6 + a^4 + a^3 - a - 
        1)*q^139 + (-a^11 + a^9 + a^8 - a^6 + a^4 + a^3 - a - 1)*q^144 - 
        a^9*q^147 + (a^7 - a^3 - 1)*q^148 + (-a^9 + a^7 - 1)*q^151 + (a^8 - 
        a^5)*q^156 + (-a^10 - a^7 + a^3)*q^157 + (a^11 + a^7 - a^4 - 1)*q^163 + 
        (a^11 - a^9 - a^8 + a^6 + a^5 - a^3 + 1)*q^169 + (a^11 + a^10 - 2*a^8 - 
        a^7 + a^5 - a^3 - a^2 + a + 1)*q^171 + a^6*q^172 - a^5*q^175 + (a^10 - 
        a^8 + a)*q^181 + (a^11 - a^4 + 1)*q^183 + (a^7 - 1)*q^189 + a^2*q^192 + 
        (-a^10 + a^6 + a^3)*q^193 + (a^11 + a^10 - a^8 - a^7 + a^5 - a^3 - a^2 +
        1)*q^196 + (-a^11 - a^10 + a^8 - a^6 - a^5 + a^3 + a^2 - 1)*q^199 + 
        (-a^10 - a^9 + a^3)*q^201 + (a^11 - a^8 + a^6 + a^5 - a^4 - a^3 - a^2 + 
        a + 1)*q^208 + (a^2 - a)*q^211 + (a^9 + a^4 - a^2)*q^217 + (a^10 - a^8 -
        a^7 + a^5 - a^3 - a^2 + 1)*q^219 + (a^11 + a^10 + a^9 - a^8 - a^7 + a^5 
        - a^3 - 2*a^2 + 1)*q^223 + a^10*q^225 + O(q^228)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^10 + a^9 + a^3 - a^2)*q^2 + (-3*a^11 - a^10 + a^9 + 2*a^8 + a^7 - 
        2*a^6 - a^5 + a^4 + 2*a^3 + a^2 - a - 2)*q^4 + (a^7 - 1)*q^7 + (-a^9 + 
        a^8 - a^7 + a^6)*q^8 + a^2*q^9 + (-a^8 - a^3 + a)*q^11 + (a^10 - 
        a^9)*q^14 + (-a^5 + a^4 - a^3 + a^2 - a)*q^16 + (2*a^11 - a^9 - a^8 + 
        a^6 + a^5 - 2*a^4 - a^3 + a + 1)*q^18 + (a^11 + 2*a^10 - a^9 - 2*a^8 - 
        a^7 + a^6 + 2*a^5 - a^4 - 2*a^3 - a^2 + a + 2)*q^22 + (a^10 + a^9 - a^7 
        - a^6 + a^5 + a^4 - a^2 - a)*q^23 + a^8*q^25 + (a^6 - a^5 + a^4)*q^28 + 
        (a^11 - a^4 - a)*q^29 + (3*a^11 - a^9 - 2*a^8 - a^7 + a^6 + 2*a^5 - 
        2*a^4 - a^3 - a^2 + 3)*q^32 + (-a^11 - a^10 + 2*a^7 - a^6 - a^5 + a^3 + 
        a^2 + a - 2)*q^36 + (a^10 + a^4)*q^37 - a^5*q^43 + (a^9 - a^8 + a^6 - 
        a^5 - a^2 + a - 1)*q^44 + (a^9 - a^7 - a^2 + a)*q^46 - a^7*q^49 + (a^4 -
        a^3)*q^50 + (-a^11 - a^10 + a^8 - a^6 - a^5 + a^3 + a^2 - 1)*q^53 + 
        (a^11 + a^10 - a^8 - a^7 + a^5 - a^3 - a + 2)*q^56 + (-2*a^10 + a^8 + 
        2*a^7 - a^6 - a^5 - a^4 + 2*a^3 + a^2 - 2)*q^58 + (a^9 - a^2)*q^63 + 
        (-a^11 - 2*a^10 + 2*a^9 + a^8 + 2*a^7 - 2*a^6 - a^5 + 3*a^3 - 3)*q^64 + 
        (-a^11 + a^6)*q^67 + a^5*q^71 + (-a^11 + a^10 - a^9 + a^8)*q^72 + (a^11 
        + a^10 - a^8 - a^7 + a^6 - a^3 - a^2 + 2)*q^74 + (-a^10 + a^8 + 
        a^3)*q^77 + (a^11 - 2*a^9 - a^8 + a^6 + a^5 - a^4 - a^3 + a + 1)*q^79 + 
        a^4*q^81 + (-a + 1)*q^86 + (-2*a^11 + a^10 + a^8 - a^6 + a^4 + a^2 - 
        2*a)*q^88 + (-2*a^11 + a^10 + a^9 + a^8 - a^6 + 2*a^4 + a^2 - a - 
        1)*q^92 + (-a^3 + a^2)*q^98 + (-a^10 - a^5 + a^3)*q^99 + (2*a^11 + a^10 
        - a^9 - 2*a^8 - a^7 + a^6 + 2*a^5 - a^4 - 2*a^3 - a^2 + a + 3)*q^100 + 
        (-a^9 + a^8 - a^3 + a^2)*q^106 + (a^6 - a^3)*q^107 + (-a^9 + a^2)*q^109 
        + (2*a^11 - a^10 - 2*a^8 + a^6 + a^5 - 2*a^4 - a^2 + 2*a + 1)*q^112 + 
        (-a^11 + a^9 - a^2)*q^113 + (-2*a^11 + 3*a^8 + 2*a^7 - 2*a^6 - a^5 + a^4
        + 2*a^3 + a^2 - a - 3)*q^116 + (a^11 - a^9 + a^6 - a^4)*q^121 + (-2*a^11
        + a^9 + a^8 - a^6 + a^4 + a^3 - a - 1)*q^126 - a^6*q^127 + (-3*a^11 + 
        3*a^8 + a^7 - 2*a^6 - a^5 + a^4 + 2*a^3 + a^2 - a - 3)*q^128 + (-a^7 + 
        a^6 + a^2 - a)*q^134 + (a^11 - a^10 - a^9 - a^8 + a^6 + a^5 - a^4 + a + 
        1)*q^137 + (a - 1)*q^142 + (-a^7 + a^6 - a^5 + a^4 - a^3)*q^144 + (-a^10
        + a^9 - a^8 + a^3 + 1)*q^148 + (-a^11 + 1)*q^149 + (a^9 + a^7 - a^2 - 
        1)*q^151 + (-2*a^11 - a^10 + a^9 + 2*a^8 + a^7 - 2*a^6 - a^5 + 2*a^4 + 
        a^3 + a^2 - a - 2)*q^154 + (-a^8 + a^7 - a^5 + a^4 + a - 1)*q^158 + 
        (-a^11 - a^10 + a^8 + a^7 - a^6 - 2*a^5 + a^3 + a^2 - 1)*q^161 + (a^11 +
        a^10 - a^8 - a^7 + a^5 - a^3 - a^2 + 2)*q^162 + (a^10 - a^8 + a)*q^163 -
        a*q^169 + (a^11 - a^10 + a^9 - a^4 + a^3 - a^2)*q^172 - a*q^175 + 
        (3*a^11 - a^8 - 2*a^7 + 2*a^6 + a^5 - a^4 - a^3 - 2*a^2 + a + 2)*q^176 +
        (a^11 + a^10 - a^4)*q^179 + (3*a^11 + a^10 - a^9 - a^8 - 2*a^7 + 2*a^6 +
        a^5 - 2*a^4 - 2*a^3 - a^2 + a + 3)*q^184 + (-a^11 - a^10 + a^8 + a^7 - 
        a^6 - a^5 + a^4 + a^3 + a^2 - 1)*q^191 + (a^11 + 2*a^10 - a^8 - a^7 + 
        a^5 - a^3 - a^2 + 1)*q^193 + (3*a^11 + a^10 - a^9 - 2*a^8 - a^7 + a^6 + 
        2*a^5 - 2*a^4 - 2*a^3 - a^2 + a + 2)*q^196 + (a^9 - a^2 + 1)*q^197 + 
        (-2*a^11 - a^10 + a^9 + 2*a^8 + a^7 - 2*a^6 - a^5 + a^4 + 2*a^3 + a^2 - 
        2*a - 1)*q^198 + (-a^10 + a^9 - a^8 + a^7 + a^3 - a^2 + a - 1)*q^200 + 
        (-a^11 - a^8 + a)*q^203 + (a^7 - a - 1)*q^207 + (-a^10 - a^7 + 
        a^3)*q^211 + (3*a^11 + a^10 - a^9 - 2*a^8 - a^7 + a^6 + a^5 - a^4 - 
        3*a^3 - a^2 + a + 2)*q^212 + (2*a^11 + a^10 - a^9 - 2*a^8 - a^7 + a^6 + 
        2*a^5 - a^4 - 2*a^3 + 2)*q^214 + (2*a^11 - a^9 - a^8 + a^6 - a^4 - a^3 +
        a + 1)*q^218 + (-3*a^11 + a^9 + a^8 + 2*a^7 - 2*a^6 - a^5 + a^4 + 2*a^3 
        + a^2 - 3)*q^224 + a^10*q^225 + (-2*a^11 + a^9 + a^8 - a^7 + a^4 + a^3 -
        a - 1)*q^226 + O(q^228),
    q^3 + (-a^10 + a^9 + a^3 - a^2)*q^6 + (-3*a^11 - a^10 + a^9 + 2*a^8 + a^7 - 
        2*a^6 - a^5 + a^4 + 2*a^3 + a^2 - a - 2)*q^12 + (a^7 - 1)*q^21 + (-a^9 +
        a^8 - a^7 + a^6)*q^24 + a^2*q^27 + (-a^8 - a^3 + a)*q^33 + (a^10 - 
        a^9)*q^42 + (-a^5 + a^4 - a^3 + a^2 - a)*q^48 + (2*a^11 - a^9 - a^8 + 
        a^6 + a^5 - 2*a^4 - a^3 + a + 1)*q^54 + (a^11 + 2*a^10 - a^9 - 2*a^8 - 
        a^7 + a^6 + 2*a^5 - a^4 - 2*a^3 - a^2 + a + 2)*q^66 + (a^10 + a^9 - a^7 
        - a^6 + a^5 + a^4 - a^2 - a)*q^69 + a^8*q^75 + (a^6 - a^5 + a^4)*q^84 + 
        (a^11 - a^4 - a)*q^87 + (3*a^11 - a^9 - 2*a^8 - a^7 + a^6 + 2*a^5 - 
        2*a^4 - a^3 - a^2 + 3)*q^96 + (-a^11 - a^10 + 2*a^7 - a^6 - a^5 + a^3 + 
        a^2 + a - 2)*q^108 + (a^10 + a^4)*q^111 - a^5*q^129 + (a^9 - a^8 + a^6 -
        a^5 - a^2 + a - 1)*q^132 + (a^9 - a^7 - a^2 + a)*q^138 - a^7*q^147 + 
        (a^4 - a^3)*q^150 + (-a^11 - a^10 + a^8 - a^6 - a^5 + a^3 + a^2 - 
        1)*q^159 + (a^11 + a^10 - a^8 - a^7 + a^5 - a^3 - a + 2)*q^168 + 
        (-2*a^10 + a^8 + 2*a^7 - a^6 - a^5 - a^4 + 2*a^3 + a^2 - 2)*q^174 + (a^9
        - a^2)*q^189 + (-a^11 - 2*a^10 + 2*a^9 + a^8 + 2*a^7 - 2*a^6 - a^5 + 
        3*a^3 - 3)*q^192 + (-a^11 + a^6)*q^201 + a^5*q^213 + (-a^11 + a^10 - a^9
        + a^8)*q^216 + (a^11 + a^10 - a^8 - a^7 + a^6 - a^3 - a^2 + 2)*q^222 + 
        O(q^228)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^8 + a)*q^3 - a^5*q^4 + (-a^10 + a^3)*q^7 - a^9*q^9 + (a^11 + a^10 - 
        a^8 - a^7 + a^5 - a^3 - a^2 + 1)*q^12 + (a^11 + a^10 - a^8 - a^7 + a^5 -
        a^3 + 1)*q^13 + a^10*q^16 + (-a^10 + a^8 + a^7 - a^6 - a^5 - a^4 + a^3 +
        a^2 - 1)*q^19 - a^11*q^21 - a*q^25 - a^3*q^27 - a*q^28 + (-a^11 + a^9 + 
        a^8 - a^6 + a^4 + a^3 - a)*q^31 + (a^7 - 1)*q^36 + (a^11 - 2*a^9 - a^8 +
        a^6 + a^5 - a^4 - a^3 + a + 1)*q^37 + (-a^10 + a^7 + a^3 - 1)*q^39 + 
        a^8*q^43 + a^4*q^48 + (-a^11 - a^10 + a^8 + a^7 - a^6 - a^5 + a^3 + a^2 
        - 1)*q^49 + (-a^7 + a^4)*q^52 + (-a^11 + a^9 + a^8 - a^7 - a^6 + a^4 + 
        a^3 - a - 1)*q^57 + (a^6 - a^3)*q^61 - a^5*q^63 + (-a^8 + a)*q^64 + (a^9
        + a^8 - a^2)*q^67 + (a^11 + a^10 - a^9 - a^8 + a^6 + a^5 - a^4 - a^3 + a
        + 1)*q^73 + (a^9 - a^2)*q^75 + (a^11 - a^4 + a^2)*q^76 + (-a^11 + 
        a^10)*q^79 + (a^11 - a^4)*q^81 + (a^9 - a^2)*q^84 + (a^11 - a^8 + a^6 + 
        a^5 - a^4 - a^3 - a^2 + a + 1)*q^91 + (-a^8 + a^6 + a)*q^93 + (-a^11 + 
        a^9 + a^8 + a^4 + a^3 - a - 1)*q^97 + a^6*q^100 + (a^4 + a^2)*q^103 + 
        a^8*q^108 + (-a^11 - a^7)*q^109 + (-a^11 - a^10 + a^8 + a^7 - a^6 - a^5 
        + a^2 - 1)*q^111 + a^6*q^112 + (-a^11 + a^8)*q^117 + a^4*q^121 + (-a^10 
        - a^5 + a^3)*q^124 + (-a^7 - a^5)*q^127 + a^2*q^129 + (-a^9 + a^7 - 
        1)*q^133 + (-a^11 + a^9 + 2*a^8 - a^6 + a^4 + a^3 - a - 1)*q^139 + (a^11
        - a^9 - a^8 + a^6 + a^5 - a^4 - a^3 + a + 1)*q^144 - a^7*q^147 + (a^7 - 
        a^3 - 1)*q^148 + (a^9 - a^2 + 1)*q^151 + (a^11 - a^9 - a^8 + a^6 + a^5 -
        a^4 - a^3 + 1)*q^156 + (a^7 - a^3 - 1)*q^157 + (-a^11 - a^7)*q^163 + 
        (a^11 - a^9 - a^8 + a^6 + a^5 - a^3 + 1)*q^169 + (a^6 - a)*q^171 + 
        (-a^11 - a^10 + a^8 + a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^172 + (a^11 - 
        a^4)*q^175 + (a^10 - a^8 + a)*q^181 + (a^11 - a^4 + 1)*q^183 + (a^11 + 
        a^10 - a^8 - a^7 + a^5 - a^3 - a^2 + 1)*q^189 - a^9*q^192 + (-a^11 - 
        a^10 + a^8 + a^7 - a^6 - a^5 + a^2 - 1)*q^193 + (a^11 - a^4)*q^196 + 
        (a^11 + a^10 - a^8 + a^5 - a^3 - a^2)*q^199 + (a^10 + a^2)*q^201 + 
        (-a^11 + a^8 - a^6 + a^4 + a^3 - a - 1)*q^208 + (a^2 - a)*q^211 + (-a^10
        + a^8 + a^3)*q^217 + (-a^11 - a^10 + a^8 + a^7 - a^6 - a^5 + a^4 + a^3 +
        a^2 - 1)*q^219 + (a^11 + a^10 + a^9 - a^8 - a^7 + a^5 - a^3 - 2*a^2 + 
        1)*q^223 + a^10*q^225 + O(q^228)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^4 + 1/2*(-a^5 - a^2)*q^7 - a*q^9 - 
        a^5*q^16 + 1/2*(a^5 - a^4 + a^3 + a - 1)*q^21 + a^4*q^25 + 1/2*(-a^4 - 
        a)*q^28 - q^36 + (a^5 - a^4 + a^3 - a^2 + 2*a - 1)*q^37 + (a^5 + 1)*q^39
        + a^4*q^43 + 1/2*(a^4 - a^3)*q^49 + (-a^5 + a^4 - a^3 + a^2 - a)*q^57 + 
        1/2*(a^5 - a^4 + 2*a^3 - a^2 + a - 1)*q^63 - a^4*q^64 + (-a^4 + a)*q^67 
        + (a^5 - a^2)*q^79 + a^2*q^81 + 1/2*(a^5 + a)*q^84 + 1/2*(-2*a^5 + a^4 +
        a^2 - 2*a + 1)*q^91 + (-a^4 - a^3)*q^93 + a^3*q^100 + (-a^2 - 1)*q^109 +
        1/2*(-a^3 - 1)*q^112 + a^2*q^121 + (a^5 - a^4 + a^3 - a^2 + a)*q^127 + 
        1/2*(a^5 - a^4 + a - 1)*q^133 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^144 + 
        1/2*(a + 1)*q^147 + (a^5 + 1)*q^148 + (-a - 1)*q^151 + (-a^5 + 2*a^4 - 
        a^3 + a^2 - a + 1)*q^156 + (a^2 - 1)*q^163 + (a^5 - 2*a^4 + a^3 + a - 
        1)*q^169 + a^3*q^172 + 1/2*(-a^5 + a^4 - a^3 + 2*a^2 - a + 1)*q^175 + 
        (-a^2 - 1)*q^183 + 1/2*(-a^3 + 1)*q^189 + (-a^5 - a^3)*q^193 + 1/2*(a^3 
        - a^2)*q^196 + (a^4 + a)*q^211 + 1/2*(a^5 + a^4 - a^2 - a)*q^217 + (a^3 
        - a^2)*q^219 - a^5*q^225 + O(q^228),
    q^3 + 1/2*(-a^5 - a)*q^7 + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^12 + (a^5 - 
        2*a^4 + a^3 - a^2 + a - 1)*q^13 + (a^4 - a^3 + a^2 - a + 1)*q^19 + 
        1/2*(-a^5 - a^2)*q^21 - a*q^27 + 1/2*(-a^4 - 1)*q^28 + (a^3 + a^2)*q^31 
        - a^5*q^48 + 1/2*(a^5 - a^4 + a^3 - a^2 + a - 2)*q^49 + (a^5 - a^3)*q^52
        + (-a^5 + a^4 - a^3 + a^2 + 1)*q^61 + 1/2*(a^5 - a^4 + a^3 + a - 1)*q^63
        + (-a^2 + a)*q^73 + a^4*q^75 + (-a^5 + a^4)*q^76 + 1/2*(-a^4 - a)*q^84 +
        1/2*(a^5 + a^3 - 2*a^2 + 2*a - 1)*q^91 + (a^5 - a^4 + a^3 - 2*a^2 + a - 
        1)*q^97 + (a^5 + a^4)*q^103 - q^108 + (a^5 - a^4 + a^3 - a^2 + 2*a - 
        1)*q^111 + 1/2*(a^5 - a^4 - a^2 + a - 1)*q^112 + (a^5 + 1)*q^117 + (a^2 
        + a)*q^124 + a^4*q^129 + 1/2*(-a^4 + a^3 - a + 1)*q^133 + (a^2 - 
        1)*q^139 + 1/2*(a^4 - a^3)*q^147 + (-a^3 - a)*q^157 + (-a^5 + a^4 - a^3 
        + a^2 - a)*q^171 + 1/2*(-a^5 + a^2)*q^175 + (-a - 1)*q^181 + 1/2*(a^5 - 
        a^4 + 2*a^3 - a^2 + a - 1)*q^189 - a^4*q^192 + 1/2*(2*a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^196 + (-a^5 + a^4 + a^2 - a + 1)*q^199 + (-a^4 + a)*q^201
        + (a^4 - a^2)*q^208 + 1/2*(-a^5 - a^4 + a + 1)*q^217 + (-a^5 - a^3 + a^2
        - a + 1)*q^223 + O(q^228)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 - a^5*q^4 + a^2*q^9 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^12 + (a^5 
        - a^4 + a^3 + a - 1)*q^13 - a^3*q^16 + (a^5 + a^3 - a^2 + a - 1)*q^19 - 
        a*q^25 - a^3*q^27 + (-a^5 + 1)*q^31 + q^36 + (-a^5 + a^2)*q^37 + (-a^3 +
        1)*q^39 - a*q^43 + a^4*q^48 - q^49 + (a^4 + 1)*q^52 + (-a^5 + 1)*q^57 + 
        (a^5 - a^4 - a^2 + a - 1)*q^61 - a*q^64 + (a^2 - a)*q^67 + (-a^5 - 
        a^3)*q^73 + a^2*q^75 + (a^4 + a^2)*q^76 + (a^4 - a^3)*q^79 + a^4*q^81 + 
        (a^5 - a^4 + a^3 - a^2 - 1)*q^93 + (-a^4 + a^3 - a^2 + a - 1)*q^97 + 
        (a^5 - a^4 + a^3 - a^2 + a - 1)*q^100 + (a^4 + a^2)*q^103 - a*q^108 + 
        (a^4 + 1)*q^109 + (a^5 - a^4 - a^2 + a - 1)*q^111 + (a^4 - a)*q^117 + 
        a^4*q^121 + (-a^5 - a^3)*q^124 + (-a^5 + 1)*q^127 + a^2*q^129 + (-a^5 - 
        a)*q^139 - a^5*q^144 + a*q^147 + (-a^3 + 1)*q^148 + (a^2 + 1)*q^151 + 
        (-a^5 - a)*q^156 + (-a^3 + 1)*q^157 + (a^4 + 1)*q^163 + (-a^5 + a^4 - 
        a)*q^169 + (a^5 - a^4 + a^3 - a^2 - 1)*q^171 + (a^5 - a^4 + a^3 - a^2 + 
        a - 1)*q^172 + (-a^3 - a)*q^181 + (a^4 + 1)*q^183 + a^2*q^192 + (a^5 - 
        a^4 - a^2 + a - 1)*q^193 + a^5*q^196 + (a^5 - a^4 + a^3 - a^2 + a)*q^199
        + (-a^3 + a^2)*q^201 + (-a^5 + a^2)*q^208 + (a^2 - a)*q^211 + (a^5 + a^3
        - a^2 + a - 1)*q^219 + (a^5 - a^4 + a^3 + a - 1)*q^223 - a^3*q^225 + 
        O(q^228),
    q^7 - a*q^21 - a^5*q^28 + (a^4 - a^3)*q^49 + a^2*q^63 + (a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^84 + (a^5 - a^4 + a^3 + a - 1)*q^91 - a^3*q^112 + (a^5 + 
        a^3 - a^2 + a - 1)*q^133 + (-a^5 + a^4)*q^147 - a*q^175 - a^3*q^189 + 
        (a^2 - a)*q^196 + (-a^5 + 1)*q^217 + O(q^228)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^3 + a^2)*q^2 + (a^3 - a^2 + a - 1)*q^4 + q^7 + (a^5 - a^4 + a^3)*q^8
        + a^2*q^9 + (-a^3 - a)*q^11 + (-a^3 + a^2)*q^14 + (-a^5 + a^4 - a^3 + 
        a^2 - a)*q^16 + (-a^5 + a^4)*q^18 + (-a^2 + a - 1)*q^22 + (-a^4 + a^3 - 
        a^2 + a - 1)*q^23 - a*q^25 + (a^3 - a^2 + a - 1)*q^28 + (a^4 - a)*q^29 -
        a^2*q^32 + (a^5 - a^4 + a^3 - a^2)*q^36 + (a^4 - a^3)*q^37 - a^5*q^43 + 
        (-a^4 + a^3 + 1)*q^44 + (a^2 - 2*a + 1)*q^46 + q^49 + (a^4 - a^3)*q^50 +
        (a^5 - a^4 + a^3 - a^2 + a)*q^53 + (a^5 - a^4 + a^3)*q^56 + (a^5 - a^2 +
        a)*q^58 + a^2*q^63 + (a^5 + a^3 - a^2 + a - 1)*q^67 - 2*a^5*q^71 + (a^4 
        - a^3 + a^2 - a)*q^72 + (a^5 - 2*a^4 + 2*a^3 - 2*a^2 + 2*a - 1)*q^74 + 
        (-a^3 - a)*q^77 + (-a^5 + a^2)*q^79 + a^4*q^81 + (-a + 1)*q^86 + (-a^5 +
        a^4 - 2*a^3 + 2*a^2 - a + 1)*q^88 + (-a^5 + 2*a^4 - 2*a^3 + a^2)*q^92 + 
        (-a^3 + a^2)*q^98 + (-a^5 - a^3)*q^99 + (-a^4 + a^3 - a^2 + a)*q^100 + 
        (-a^3 + 2*a^2 - a)*q^106 + (a^5 - a^4 - a^2 + a - 1)*q^107 + 2*a^2*q^109
        + (-a^5 + a^4 - a^3 + a^2 - a)*q^112 + (a^4 + a^2)*q^113 - a^4*q^116 + 
        (a^5 + a^3 + a - 1)*q^121 + (-a^5 + a^4)*q^126 + (2*a^5 - 2*a^4 + 2*a^3 
        - 2*a^2 + 2*a - 2)*q^127 + q^128 + (a^5 - a^4 + a^3)*q^134 + (-a^5 - 
        a^3)*q^137 + (-2*a + 2)*q^142 + (-a^2 + a)*q^144 + (-a^3 + 2*a^2 - 2*a +
        1)*q^148 + (a^4 + 1)*q^149 + (a^2 + 1)*q^151 + (-a^2 + a - 1)*q^154 + 
        (-a^5 + a^4 - a + 1)*q^158 + (-a^4 + a^3 - a^2 + a - 1)*q^161 + (a^5 - 
        a^4 + a^3 - a^2 + a)*q^162 + (-a^3 - a)*q^163 - a*q^169 + (a^4 - a^3 + 
        a^2)*q^172 - a*q^175 + (a^3 - a^2 + a - 1)*q^176 + (a^4 - a^3)*q^179 + 
        (-a^4 + 2*a^3 - 2*a^2 + a)*q^184 + (a^5 + a^3 - a^2 + a - 1)*q^191 + 
        (a^5 - a^4 - a^2 + a - 1)*q^193 + (a^3 - a^2 + a - 1)*q^196 + (a^2 + 
        1)*q^197 + (-a^4 + a^3 - a^2)*q^198 + (-a^3 + a^2 - a + 1)*q^200 + (a^4 
        - a)*q^203 + (-a + 1)*q^207 + (-a^3 + 1)*q^211 + (-a^5 + a^4 - a^2 + a -
        1)*q^212 + (-a^4 + a^3 - 1)*q^214 + (-2*a^5 + 2*a^4)*q^218 - a^2*q^224 -
        a^3*q^225 + (a^3 - a^2 + a)*q^226 + O(q^228),
    q^3 + (-a^3 + a^2)*q^6 + (a^3 - a^2 + a - 1)*q^12 + q^21 + (a^5 - a^4 + 
        a^3)*q^24 + a^2*q^27 + (-a^3 - a)*q^33 + (-a^3 + a^2)*q^42 + (-a^5 + a^4
        - a^3 + a^2 - a)*q^48 + (-a^5 + a^4)*q^54 + (-a^2 + a - 1)*q^66 + (-a^4 
        + a^3 - a^2 + a - 1)*q^69 - a*q^75 + (a^3 - a^2 + a - 1)*q^84 + (a^4 - 
        a)*q^87 - a^2*q^96 + (a^5 - a^4 + a^3 - a^2)*q^108 + (a^4 - a^3)*q^111 -
        a^5*q^129 + (-a^4 + a^3 + 1)*q^132 + (a^2 - 2*a + 1)*q^138 + q^147 + 
        (a^4 - a^3)*q^150 + (a^5 - a^4 + a^3 - a^2 + a)*q^159 + (a^5 - a^4 + 
        a^3)*q^168 + (a^5 - a^2 + a)*q^174 + a^2*q^189 + (a^5 + a^3 - a^2 + a - 
        1)*q^201 - 2*a^5*q^213 + (a^4 - a^3 + a^2 - a)*q^216 + (a^5 - 2*a^4 + 
        2*a^3 - 2*a^2 + 2*a - 1)*q^222 + O(q^228)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^3 + (-a + 1)*q^4 + a*q^7 + (a - 1)*q^9 + q^12 - a*q^16 - q^19 + (a -
        1)*q^21 + q^25 - q^27 + q^28 + a*q^36 + (-2*a + 1)*q^37 - a*q^43 + (-a +
        1)*q^48 + (a - 1)*q^49 - a*q^57 + (2*a - 2)*q^61 - q^63 - q^64 - a*q^67 
        + 2*q^73 + a*q^75 + (a - 1)*q^76 + (a - 1)*q^79 - a*q^81 + a*q^84 + (-a 
        + 1)*q^100 + (-a - 1)*q^103 + (a - 1)*q^108 - a*q^109 + (-a + 2)*q^111 +
        (-a + 1)*q^112 - a*q^121 - q^127 + (-a + 1)*q^129 - a*q^133 + (-a - 
        1)*q^139 + q^144 - q^147 + (-a - 1)*q^148 + (a + 1)*q^151 + q^157 + (a +
        1)*q^163 + (a - 1)*q^169 + (-a + 1)*q^171 - q^172 + a*q^175 + (-a + 
        2)*q^181 - 2*q^183 - a*q^189 - a*q^192 + (-a + 1)*q^193 + a*q^196 + (2*a
        - 2)*q^199 + (-a + 1)*q^201 + (2*a - 1)*q^211 + 2*a*q^219 - q^223 + (a -
        1)*q^225 + O(q^228)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^3 + a*q^4 - a*q^7 + q^9 + a*q^12 + (a - 1)*q^16 - a*q^19 - a*q^21 + (a
        - 1)*q^25 + q^27 + (-a + 1)*q^28 + a*q^36 + (a - 2)*q^37 - a*q^43 + (a -
        1)*q^48 + (a - 1)*q^49 - a*q^57 - 2*q^61 - a*q^63 - q^64 + q^67 + (-2*a 
        + 2)*q^73 + (a - 1)*q^75 + (-a + 1)*q^76 + q^79 + q^81 + (-a + 1)*q^84 -
        q^100 + (-2*a + 1)*q^103 + a*q^108 + q^109 + (a - 2)*q^111 + q^112 + (a 
        - 1)*q^121 - q^127 - a*q^129 + (a - 1)*q^133 + (a + 1)*q^139 + (a - 
        1)*q^144 + (a - 1)*q^147 + (-a - 1)*q^148 + (a - 2)*q^151 + (-a + 
        1)*q^157 + (-2*a + 1)*q^163 + (a - 1)*q^169 - a*q^171 + (-a + 1)*q^172 +
        q^175 + (a - 2)*q^181 - 2*q^183 - a*q^189 - q^192 + a*q^193 - q^196 + 
        2*a*q^199 + q^201 + (2*a - 1)*q^211 + (-2*a + 2)*q^219 + q^223 + (a - 
        1)*q^225 + O(q^228)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - 1/2*a*q^4 + 1/2*(2*a - 1)*q^7 - a*q^9 + 1/2*(-a + 1)*q^10 + 1/2*q^12 + 
        1/2*(3*a - 3)*q^13 + 1/2*(-a + 1)*q^21 - 1/2*q^22 + 1/2*q^25 + 1/2*q^28 
        - 1/2*a*q^30 + (a - 1)*q^31 + 1/2*(a - 1)*q^34 + 1/2*(a - 1)*q^36 - 
        1/2*a*q^39 - 1/2*q^40 + 1/2*(a - 2)*q^43 + 1/2*(-a + 1)*q^46 - a*q^48 - 
        1/2*q^49 + q^52 + 1/2*a*q^55 + (-a + 1)*q^57 - 1/2*a*q^58 - a*q^61 + 
        1/2*(-a + 2)*q^63 + 1/2*(a - 1)*q^66 + 1/2*(-a + 1)*q^67 + 1/2*q^70 + 
        1/2*q^73 + 1/2*(a - 1)*q^75 + 1/2*a*q^76 + 1/2*a*q^79 + (a - 1)*q^81 + 
        (a - 1)*q^82 + 1/2*(a - 1)*q^84 + 1/2*q^85 + 1/2*a*q^88 - 1/2*q^90 + 
        1/2*(-2*a - 1)*q^91 - a*q^93 + 1/2*a*q^94 + q^97 - 1/2*a*q^100 + 
        1/2*a*q^102 + 1/2*a*q^103 - 1/2*a*q^108 + 1/2*(-a + 1)*q^109 + (-a + 
        1)*q^111 + 1/2*(-a + 1)*q^112 - 1/2*q^115 + 3/2*q^117 + 1/2*q^118 + 
        1/2*(a - 1)*q^120 + 1/2*(a - 1)*q^121 + q^124 - 1/2*q^127 - 1/2*q^129 + 
        1/2*a*q^130 + 1/2*q^133 + 1/2*q^136 - 1/2*a*q^138 + 1/2*a*q^142 + 1/2*(a
        - 1)*q^145 + 1/2*(a + 1)*q^147 + 1/2*a*q^148 - 1/2*a*q^154 + (a - 
        1)*q^156 - q^157 - 1/2*a*q^163 + 1/2*q^165 - 1/2*q^166 - 3/2*a*q^169 + 
        1/2*q^172 - 1/2*q^174 + 1/2*(a - 1)*q^175 + 1/2*(-a + 1)*q^178 + q^183 -
        1/2*q^184 - 1/2*a*q^187 - 1/2*q^189 + 1/2*(-a + 1)*q^190 + (a - 1)*q^192
        + a*q^193 + 1/2*(a - 1)*q^196 + 1/2*a*q^198 - 3/2*a*q^199 + 1/2*a*q^201 
        + 1/2*(a - 1)*q^202 + q^205 - 1/2*a*q^208 + 1/2*(-a + 1)*q^210 - 
        1/2*q^211 - 1/2*a*q^214 - a*q^217 + 1/2*(3*a - 3)*q^219 - 1/2*q^223 - 
        1/2*a*q^225 + (-a + 1)*q^226 + O(q^228),
    q^2 - a*q^5 + (-a + 1)*q^6 - a*q^8 + (a - 1)*q^11 + a*q^14 - q^15 + a*q^17 -
        a*q^18 - a*q^23 - q^24 + (a - 1)*q^26 - q^29 + a*q^33 + (-a + 1)*q^35 + 
        q^38 + 2*a*q^41 + q^42 + (a - 1)*q^45 + q^47 + q^51 - q^54 + (-a + 
        1)*q^56 + (-a + 1)*q^59 + q^65 - q^69 + q^71 + (a - 1)*q^72 + q^74 - 
        q^77 + a*q^78 - q^80 + (a - 1)*q^83 - q^86 + (a - 1)*q^87 - a*q^89 - 
        a*q^95 + (a - 1)*q^98 + q^99 + a*q^101 + q^104 - a*q^105 - q^107 + 
        a*q^110 - 2*a*q^113 + (-a + 1)*q^114 + (a - 1)*q^119 + 2*q^123 - a*q^125
        + (-a + 1)*q^126 - q^128 - q^131 + a*q^135 + (a - 1)*q^137 + (-a + 
        1)*q^141 - a*q^143 - q^146 + a*q^149 - a*q^152 + (-a + 1)*q^153 + (-a + 
        1)*q^161 + (a - 1)*q^162 + (-a + 1)*q^167 - a*q^168 + q^170 + q^173 + 
        a*q^176 - a*q^177 + a*q^179 - q^182 - a*q^185 - a*q^191 + (-a + 1)*q^195
        + q^197 - a*q^203 + (a - 1)*q^207 + (a - 1)*q^209 + (-a + 1)*q^213 + 
        a*q^215 + a*q^216 - q^221 + (-a + 1)*q^222 + O(q^228),
    q^3 + 1/2*(a - 1)*q^4 + 1/2*a*q^7 + 1/2*q^10 - 1/2*a*q^12 + 1/2*q^13 + q^16 
        + a*q^19 + 1/2*(2*a - 1)*q^21 - 1/2*a*q^22 - 1/2*a*q^25 - a*q^27 - 
        1/2*a*q^28 + 1/2*(-a + 1)*q^30 + q^31 - 1/2*q^34 + 1/2*q^36 + a*q^37 + 
        1/2*(3*a - 3)*q^39 - 1/2*a*q^40 + 1/2*(-a + 1)*q^43 + 1/2*q^46 + 1/2*(a 
        - 2)*q^49 - a*q^52 + 1/2*(a - 1)*q^55 + 1/2*(-a + 1)*q^58 + (a - 1)*q^61
        + 1/2*(-a + 1)*q^63 - a*q^64 - 1/2*q^66 - 1/2*q^67 + 1/2*a*q^70 - 
        3/2*a*q^73 + 1/2*q^75 + 1/2*(-a + 1)*q^76 + 1/2*(-a + 1)*q^79 - q^82 + 
        1/2*q^84 + 1/2*a*q^85 + 1/2*(a - 1)*q^88 - 1/2*a*q^90 + 1/2*(a - 2)*q^91
        + (a - 1)*q^93 + 1/2*(a - 1)*q^94 - a*q^97 + 1/2*(a - 1)*q^100 + 1/2*(a 
        - 1)*q^102 + 1/2*(-a + 1)*q^103 + 1/2*(a - 1)*q^108 - 1/2*q^109 + 
        1/2*(2*a - 1)*q^112 - 1/2*a*q^115 - 1/2*a*q^117 + 1/2*a*q^118 - 
        1/2*q^120 + 1/2*q^121 - a*q^124 + 1/2*a*q^127 + 1/2*(a - 2)*q^129 + 
        1/2*(a - 1)*q^130 + 1/2*(a - 2)*q^133 + 1/2*a*q^136 + 1/2*(-a + 1)*q^138
        + (-a + 1)*q^139 + 1/2*(a - 1)*q^142 - a*q^144 - 1/2*q^145 - 1/2*q^147 +
        1/2*(-a + 1)*q^148 + (-a + 1)*q^151 + 1/2*(-a + 1)*q^154 + q^156 + 
        1/2*(-3*a + 3)*q^163 + 1/2*a*q^165 - 1/2*a*q^166 + 1/2*(3*a - 3)*q^169 +
        (-a + 1)*q^171 - 1/2*a*q^172 - 1/2*a*q^174 + 1/2*q^175 + 1/2*q^178 - 
        q^181 - a*q^183 - 1/2*a*q^184 + 1/2*(-a + 1)*q^187 + 1/2*(-a + 2)*q^189 
        + 1/2*q^190 + 1/2*q^196 + 1/2*(a - 1)*q^198 + 1/2*(a - 1)*q^199 + 
        1/2*(-a + 1)*q^201 - 1/2*q^202 + a*q^205 + 1/2*(3*a - 3)*q^208 + 
        1/2*q^210 + 1/2*a*q^211 + 1/2*(-a + 1)*q^214 + (a - 1)*q^217 + 1/2*q^219
        + 1/2*a*q^223 + 1/2*(a - 1)*q^225 + q^226 + O(q^228)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 + (a - 1)*q^7 + q^8 + (a - 1)*q^9 + 2*q^11 + (-a + 1)*q^14 - q^16 + 
        (-a + 1)*q^18 - 2*q^22 + a*q^23 + (a - 1)*q^25 + (-a + 1)*q^29 - 
        2*a*q^37 + (a - 1)*q^43 - a*q^46 - a*q^49 + (-a + 1)*q^50 - 2*a*q^53 + 
        (a - 1)*q^56 + (a - 1)*q^58 - a*q^63 + q^64 + a*q^67 + (-a + 1)*q^71 + 
        (a - 1)*q^72 + 2*a*q^74 + (2*a - 2)*q^77 + (-a + 1)*q^79 - a*q^81 + (-a 
        + 1)*q^86 + 2*q^88 + a*q^98 + (2*a - 2)*q^99 + 2*a*q^106 + 2*q^107 + 
        a*q^109 + (-a + 1)*q^112 - q^113 + 3*q^121 + a*q^126 - q^127 - q^128 - 
        a*q^134 - q^137 + (a - 1)*q^142 + (-a + 1)*q^144 + a*q^149 - q^151 + 
        (-2*a + 2)*q^154 + (a - 1)*q^158 - q^161 + a*q^162 + (-a + 1)*q^163 - 
        a*q^169 - a*q^175 - 2*q^176 + (-a + 1)*q^179 + a*q^184 - 2*a*q^191 - 
        q^193 + (-a + 1)*q^197 + (-2*a + 2)*q^198 + (a - 1)*q^200 + a*q^203 - 
        q^207 - q^211 - 2*q^214 - a*q^218 - a*q^225 + q^226 + O(q^228),
    q^3 - q^6 + (a - 1)*q^21 + q^24 + (a - 1)*q^27 + 2*q^33 + (-a + 1)*q^42 - 
        q^48 + (-a + 1)*q^54 - 2*q^66 + a*q^69 + (a - 1)*q^75 + (-a + 1)*q^87 - 
        2*a*q^111 + (a - 1)*q^129 - a*q^138 - a*q^147 + (-a + 1)*q^150 - 
        2*a*q^159 + (a - 1)*q^168 + (a - 1)*q^174 - a*q^189 + q^192 + a*q^201 + 
        (-a + 1)*q^213 + (a - 1)*q^216 + 2*a*q^222 + O(q^228)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*(a - 1)*q^4 + 1/2*(a - 2)*q^7 + q^9 - 1/2*q^10 + 1/2*(a - 1)*q^12 + 
        1/2*(3*a - 3)*q^13 + 1/2*a*q^21 - 1/2*q^22 - 1/2*a*q^25 - 1/2*a*q^28 + 
        1/2*q^30 + q^31 + 1/2*(a - 1)*q^34 + 1/2*(a - 1)*q^36 + 1/2*(a - 1)*q^39
        + 1/2*(-a + 1)*q^40 + 1/2*(a - 2)*q^43 - 1/2*q^46 - a*q^48 + 1/2*(-a + 
        1)*q^49 - a*q^52 + 1/2*a*q^55 + (-a + 1)*q^57 + 1/2*q^58 + q^61 + 1/2*(a
        - 2)*q^63 + 1/2*q^66 - 1/2*q^67 + 1/2*q^70 - 1/2*a*q^73 - 1/2*a*q^75 + 
        1/2*a*q^76 - 1/2*q^79 + q^81 - a*q^82 - 1/2*a*q^84 + 1/2*q^85 + 1/2*(-a 
        + 1)*q^88 - 1/2*q^90 + 1/2*(-3*a + 1)*q^91 + q^93 + 1/2*(-a + 1)*q^94 + 
        q^97 + 1/2*q^100 + 1/2*(-a + 1)*q^102 - 1/2*q^103 + 1/2*(a - 1)*q^108 - 
        1/2*q^109 + (-a + 1)*q^111 + 1/2*(-a + 1)*q^112 + 1/2*a*q^115 + 1/2*(3*a
        - 3)*q^117 + 1/2*q^118 + 1/2*(a - 1)*q^120 - 1/2*a*q^121 + (a - 1)*q^124
        - 1/2*q^127 + 1/2*a*q^129 + 1/2*(-a + 1)*q^130 + 1/2*q^133 - 1/2*a*q^136
        + 1/2*q^138 - 1/2*q^142 - 1/2*a*q^145 + 1/2*(-a - 1)*q^147 + 1/2*a*q^148
        + 1/2*q^154 - a*q^156 + a*q^157 + 1/2*q^163 - 1/2*a*q^165 + 1/2*(-a + 
        1)*q^166 - 3/2*a*q^169 - 1/2*a*q^172 - 1/2*q^174 + 1/2*q^175 - 1/2*q^178
        + q^183 + 1/2*(-a + 1)*q^184 + 1/2*q^187 + 1/2*a*q^189 + 1/2*(-a + 
        1)*q^190 + q^192 + (-a + 1)*q^193 + 1/2*q^196 - 1/2*q^198 + 1/2*(3*a - 
        3)*q^199 - 1/2*q^201 + 1/2*(a - 1)*q^202 + (a - 1)*q^205 + 1/2*q^208 - 
        1/2*q^210 - 1/2*q^211 + 1/2*(a - 1)*q^214 + (a - 1)*q^217 - 3/2*a*q^219 
        - 1/2*q^223 - 1/2*a*q^225 + a*q^226 + O(q^228),
    q^2 - a*q^5 - q^6 + (a - 1)*q^8 - a*q^11 - q^14 + a*q^15 - q^17 + q^18 - 
        a*q^23 + (-a + 1)*q^24 + (a - 1)*q^26 + a*q^29 + a*q^33 + a*q^35 + (a - 
        1)*q^38 + (-2*a + 2)*q^41 + q^42 - a*q^45 + q^47 + q^51 - q^54 + (-a + 
        1)*q^56 + a*q^59 + q^65 + a*q^69 - a*q^71 + (a - 1)*q^72 + (a - 1)*q^74 
        + a*q^77 + (-a + 1)*q^78 + (-a + 1)*q^80 + q^83 - q^86 - a*q^87 - a*q^89
        + q^95 + q^98 - a*q^99 - q^101 - a*q^104 - a*q^105 - q^107 + a*q^110 + 
        (2*a - 2)*q^113 + (-a + 1)*q^114 + q^119 + (2*a - 2)*q^123 + (a - 
        1)*q^125 - q^126 - q^128 - q^131 + a*q^135 - a*q^137 - q^141 + q^143 + 
        a*q^146 + a*q^149 - a*q^152 - q^153 + a*q^161 + q^162 - q^167 + (a - 
        1)*q^168 + q^170 + q^173 + (-a + 1)*q^176 - a*q^177 - q^179 + (-a + 
        1)*q^182 + q^185 - a*q^191 - q^195 - a*q^197 - a*q^203 - a*q^207 + q^209
        + a*q^213 + a*q^215 + (-a + 1)*q^216 + (-a + 1)*q^221 + (-a + 1)*q^222 +
        O(q^228),
    q^3 + 1/2*(a - 1)*q^4 + 1/2*a*q^7 + 1/2*q^10 + 1/2*(a - 1)*q^12 + 1/2*(a - 
        1)*q^13 - a*q^16 + (-a + 1)*q^19 + 1/2*(a - 2)*q^21 + 1/2*q^22 - 
        1/2*a*q^25 + q^27 - 1/2*a*q^28 - 1/2*q^30 + q^31 + 1/2*(-a + 1)*q^34 + 
        1/2*(a - 1)*q^36 + (-a + 1)*q^37 + 1/2*(3*a - 3)*q^39 + 1/2*(a - 1)*q^40
        + 1/2*a*q^43 + 1/2*q^46 + 1/2*(-a - 1)*q^49 - a*q^52 - 1/2*a*q^55 - 
        1/2*q^58 + q^61 + 1/2*a*q^63 + q^64 - 1/2*q^66 - 1/2*q^67 - 1/2*q^70 - 
        3/2*a*q^73 - 1/2*a*q^75 + 1/2*a*q^76 - 1/2*q^79 + a*q^82 - 1/2*a*q^84 - 
        1/2*q^85 + 1/2*(a - 1)*q^88 + 1/2*q^90 + 1/2*(-a - 1)*q^91 + q^93 + 
        1/2*(a - 1)*q^94 + q^97 + 1/2*q^100 + 1/2*(a - 1)*q^102 - 1/2*q^103 + 
        1/2*(a - 1)*q^108 - 1/2*q^109 + 1/2*(a + 1)*q^112 - 1/2*a*q^115 + 1/2*(a
        - 1)*q^117 - 1/2*q^118 + 1/2*(-a + 1)*q^120 - 1/2*a*q^121 + (a - 
        1)*q^124 - 1/2*q^127 + 1/2*(a - 2)*q^129 + 1/2*(a - 1)*q^130 + 1/2*(2*a 
        - 1)*q^133 + 1/2*a*q^136 - 1/2*q^138 + a*q^139 + 1/2*q^142 - a*q^144 + 
        1/2*a*q^145 + 1/2*(-a + 1)*q^147 + 1/2*a*q^148 + (-a + 1)*q^151 - 
        1/2*q^154 - a*q^156 - 3/2*q^163 + 1/2*a*q^165 + 1/2*(a - 1)*q^166 - 
        3/2*a*q^169 + (-a + 1)*q^171 - 1/2*a*q^172 + 1/2*q^174 + 1/2*q^175 + 
        1/2*q^178 + (-a + 1)*q^181 + q^183 + 1/2*(a - 1)*q^184 - 1/2*q^187 + 
        1/2*(a - 2)*q^189 + 1/2*(a - 1)*q^190 + 1/2*q^196 + 1/2*q^198 + 1/2*(a -
        1)*q^199 - 1/2*q^201 + 1/2*(-a + 1)*q^202 + (-a + 1)*q^205 + 3/2*q^208 +
        1/2*q^210 - 1/2*q^211 + 1/2*(-a + 1)*q^214 + (a - 1)*q^217 - 1/2*a*q^219
        - 1/2*q^223 - 1/2*a*q^225 - a*q^226 + O(q^228)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 21*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 21*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^9 + a*q^10 - a*q^11 + (a - 1)*q^14 + (-a + 1)*q^16 + a*q^17 + 
        (-a + 1)*q^23 - a*q^31 + (a - 1)*q^35 - a*q^38 + (-a + 1)*q^40 + q^43 + 
        (a - 1)*q^47 - q^49 + a*q^53 + (-a + 1)*q^54 + q^56 + a*q^59 - q^64 + 
        a*q^67 - a*q^74 + (a - 1)*q^79 - q^90 - a*q^95 - 2*q^97 + q^99 - a*q^101
        + (a - 1)*q^103 + (-a + 1)*q^107 - a*q^109 + (-a + 1)*q^110 - a*q^122 - 
        a*q^126 + (-a + 1)*q^133 + (-a + 1)*q^135 + (2*a - 2)*q^142 + a*q^144 + 
        q^146 + (a - 1)*q^152 - q^153 + q^154 + 2*q^167 - q^169 + (a - 1)*q^170 
        + (a - 1)*q^173 - q^176 + a*q^178 - a*q^185 + (-a + 1)*q^187 + q^189 + 
        a*q^193 + a*q^207 - q^216 + O(q^228),
    q^2 + q^5 + a*q^7 - a*q^8 + (a - 1)*q^18 - q^19 - a*q^22 - a*q^27 + a*q^34 -
        q^37 + (a - 1)*q^45 + (-a + 1)*q^46 - a*q^55 - q^61 - a*q^62 - q^63 + (a
        - 1)*q^70 + 2*a*q^71 + q^72 + (-a + 1)*q^73 + (-a + 1)*q^77 + (-a + 
        1)*q^80 + a*q^85 + q^86 + (a - 1)*q^88 + q^89 + (a - 1)*q^94 - q^98 + 
        a*q^106 + q^112 + (-a + 1)*q^115 + a*q^118 + (a - 1)*q^119 - a*q^125 - 
        q^128 - q^131 + a*q^134 + (-a + 1)*q^136 + (-a + 1)*q^137 + q^149 + (a -
        1)*q^151 - a*q^155 + (-a + 1)*q^157 + (a - 1)*q^158 + q^161 + q^163 + 
        (-a + 1)*q^171 + (a - 1)*q^179 - q^184 - a*q^190 + q^191 - 2*q^194 + 
        q^198 + (-a + 1)*q^199 - a*q^202 + (a - 1)*q^206 + a*q^209 - 2*a*q^211 +
        (-a + 1)*q^214 + q^215 + (-a + 1)*q^217 - a*q^218 + (a - 1)*q^227 + 
        O(q^228),
    q^3 - q^18 + a*q^30 - a*q^33 + (a - 1)*q^42 - q^45 + (-a + 1)*q^48 + a*q^51 
        - a*q^63 + (-a + 1)*q^69 + a*q^72 - a*q^93 + (a - 1)*q^105 - a*q^114 + 
        (-a + 1)*q^120 + q^129 + (a - 1)*q^141 - q^147 + a*q^159 + (-a + 
        1)*q^162 + q^168 + q^171 + a*q^177 - q^192 + a*q^198 + a*q^201 - a*q^222
        + O(q^228),
    q^6 + (a - 1)*q^9 + q^15 + a*q^21 - a*q^24 - q^57 - a*q^66 - a*q^81 - q^90 +
        q^99 + a*q^102 - q^111 - a*q^126 + (-a + 1)*q^138 + a*q^144 - q^153 - 
        a*q^165 - q^183 - a*q^186 + a*q^207 + (a - 1)*q^210 + 2*a*q^213 + (-a + 
        1)*q^219 + O(q^228)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
903
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 21*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
228
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - q^57 - q^58 - q^64 - q^67 - q^79 + q^81 - q^84 - 
        q^102 - q^109 + q^121 - q^133 - q^142 + q^169 - q^172 - q^183 - q^219 + 
        q^225 + q^226 + O(q^228),
    q^2 + q^18 - q^29 - q^32 - q^42 + q^50 - q^51 - q^71 - q^86 + q^98 + q^113 -
        q^116 + q^119 + q^123 - q^137 + q^141 + q^149 + q^162 - q^177 + q^179 + 
        q^191 - q^204 + O(q^228),
    q^3 - q^19 + q^27 - q^28 - q^34 - q^61 - q^73 + q^75 + q^76 + q^82 + q^94 + 
        q^112 - q^118 + q^147 + q^166 - q^171 - q^174 - q^192 - q^199 - q^201 + 
        q^202 - q^223 + O(q^228),
    q^4 - q^16 - q^21 + q^36 - q^43 + q^57 - q^58 + q^67 + q^79 + q^100 - q^102 
        + q^109 - 2*q^127 + q^133 - q^142 - q^144 + q^183 - q^189 - 2*q^193 + 
        q^196 + q^219 + q^226 + O(q^228),
    q^6 - q^14 - q^17 + q^41 + q^47 + q^54 - q^59 - q^68 + q^83 - q^87 - q^96 + 
        q^101 - q^126 + q^150 - q^153 + q^164 - q^167 + q^173 + q^188 + q^203 - 
        q^213 + q^224 + O(q^228),
    q^7 - q^12 - q^19 + q^34 + q^48 - q^61 + q^63 - q^73 + q^76 - q^82 - q^94 - 
        q^108 + q^118 + q^129 + 2*q^157 - q^166 - q^171 + q^174 + q^175 - q^199 
        - q^201 - q^202 - q^223 + O(q^228)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
112
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
112
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
56
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
56
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^6*q^2 + (-a^22 + a^18 - a^14 + a^10 - a^6 + a^3 + a^2)*q^3 + a^12*q^4 
        + (-a^9 - a^4)*q^6 - a^18*q^8 + (-a^20 + a^16 - a^12 + a^8 + a^6 - a^4 +
        a + 1)*q^9 + (-a^13 - a^5)*q^11 + (a^15 + a^10)*q^12 + (a^20 - a^16 + 
        a^12 - a^8 + a^4 - 1)*q^16 + (-a^17 + a^16)*q^17 + (-a^12 - a^7 - 
        a^2)*q^18 + (a^22 - a^18 + a^17 + a^14 - a^10 + a^6 - a^2)*q^19 + (a^19 
        + a^11)*q^22 + (-a^21 - a^16)*q^24 + (a^23 - a^19 + a^15 - a^11 + a^7 - 
        a^3)*q^25 + (-a^23 - a^22 + a^19 - a^15 + a^11 + a^9 - a^7 + a^4 + 
        a^3)*q^27 + a^2*q^32 + (-a^16 - a^11 - a^8 - a^3)*q^33 + (a^23 - 
        a^22)*q^34 + (a^18 + a^13 + a^8)*q^36 + (-a^23 + a^4)*q^38 + (a^21 - 
        a^17 + 2*a^13 - a^9 + a^5 - a)*q^41 + (-a^12 + a^7)*q^43 + (-a^21 - a^13
        + a^9 - a^5 + a)*q^44 + (a^23 + a^22 - a^19 + a^15 - a^11 + a^7 - 
        a^3)*q^48 + a^8*q^49 + a^5*q^50 + (-a^20 + a^19 - a^15 + a^14)*q^51 + 
        (-a^15 - a^10 - a^5 - 1)*q^54 + (2*a^20 - a^16 + a^15 + a^12 - a^8 + a^4
        - a - 1)*q^57 + (-a^23 + a^20)*q^59 - a^8*q^64 + (a^22 + a^17 + a^14 + 
        a^9)*q^66 + (a^21 - a^4)*q^67 + (a - 1)*q^68 + (-a^20 - a^19 + a^16 - 
        a^14 - a^12 + a^8 - a^4 + 1)*q^72 + (a^21 - a^14)*q^73 + (a^21 - a^17 + 
        a^13 - a^9 + a^5 - a^2 - a)*q^75 + (-a^10 - a)*q^76 + (-a^21 - a^20 + 
        a^17 - a^13 + a^12 + a^9 + a^7 - a^5 + a^2 + a)*q^81 + (-a^19 + 
        a^3)*q^82 + (-a^7 + a^5)*q^83 + (a^18 - a^13)*q^86 + (a^23 - a^3)*q^88 +
        (-a^19 - a^18)*q^89 + (a^5 + 1)*q^96 + (-a^23 - a^21 + a^19 - a^15 + 
        a^11 - a^7 + a^3)*q^97 - a^14*q^98 + (-a^19 - a^14 - a^11 - a^9 - a^6 - 
        a)*q^99 - a^11*q^100 + (a^22 - a^20 - a^18 + a^17 + a^14 - a^13 - a^10 +
        a^9 + a^6 - a^5 - a^2 + a)*q^102 + (-a^10 - a^3)*q^107 + (a^21 + a^16 + 
        a^11 + a^6)*q^108 + a^14*q^113 + (-a^22 - a^21 + a^18 - a^14 + a^10 + 
        a^7 - a^6 + 2*a^2)*q^114 + (-a^22 + a^18 - a^14 + a^10 - a^6 + a^2 - 
        a)*q^118 + (a^22 + a^14 + a^6 - a^2)*q^121 + (a^23 + a^16 + a^11 - 
        1)*q^123 + a^14*q^128 + (-a^15 + a^5)*q^129 + (-a^8 - a^6)*q^131 + 
        (-a^23 - a^20 - a^15 + 1)*q^132 + (-a^23 + a^19 - a^15 + a^11 + a^10 - 
        a^7 + a^3)*q^134 + (-a^7 + a^6)*q^136 + (a^9 - 1)*q^137 + (-a^21 + a^17 
        - a^13 - a^5 + a)*q^139 + (a^21 + a^20 - a^17 + a^13 - a^9 + a^5 - a^2 -
        a)*q^144 + (-a^23 + a^20 + a^19 - a^15 + a^11 - a^7 + a^3)*q^146 + (a^11
        + a^6)*q^147 + (a^8 + a^3)*q^150 + (a^16 + a^7)*q^152 + (-a^23 + a^22 - 
        a^18 + a^17 - a^13 + a^12)*q^153 + (a^22 - 2*a^18 + a^14 - a^13 - a^10 -
        a^8 + a^6 - a^3 - a^2)*q^162 + (a^8 + a^2)*q^163 + (a^21 - a^17 + a^13 -
        2*a^9 + a^5 - a)*q^164 + (a^13 - a^11)*q^166 + a^22*q^169 + (2*a^23 + 
        a^22 - a^19 + a^18 + a^15 + a^13 - a^11 + a^7 - a^4 - a^3)*q^171 + 
        (-a^20 + a^19 + a^16 - a^12 + a^8 - a^4 + 1)*q^172 + (a^9 + a)*q^176 + 
        (a^23 - a^22 - a^21 + 2*a^18 - a^14 + a^10 - a^6 + a^2)*q^177 + (a^21 + 
        a^20 - a^17 - a^16 + a^13 + a^12 - a^9 - a^8 + a^5 + a^4 - a - 1)*q^178 
        + (-a^20 + a^16 - a^12 + a^8 - a^7 - a^4 + 1)*q^179 + (a^22 - a^21 - a^2
        + a)*q^187 + (-a^11 - a^6)*q^192 + (a^15 + a^4)*q^193 + (a^23 - a^19 + 
        a^15 - a^11 + a^7 - a^5 - a^3)*q^194 + a^20*q^196 + (a^21 + a^20 + a^15 
        + a^13 + a^12 - a^9 + a^7 + a^5 - a)*q^198 + a^17*q^200 + (a^20 + a^19 -
        a^16 + a^12 - a^8 - a^7 + a^4 - a^2 - 1)*q^201 + (-a^23 + a^22 + a^19 - 
        a^18 - a^15 + a^14 + a^11 - a^10 - a^7 + a^6 + a^4 - a^2)*q^204 + (-a^22
        + a^11 + a^3 + a^2)*q^209 + (a^16 + a^9)*q^214 + (-a^23 - a^22 + a^19 - 
        a^17 - a^15 - a^12 + a^11 - a^7 + a^3)*q^216 + (a^20 + a^19 - a^17 - 
        a^16 - a^8 + a^4 - 1)*q^219 + O(q^222)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^8 + a^5)*q^5 + a*q^9 + (-a^5 + a^3)*q^13 + (-a^4 - a)*q^17 + (-a^11 
        + a^10 + a^9 - a^7 + a^5 - a^3 - a^2 + a)*q^25 + (-a^10 + a^8 + a^7 - 
        a^6 + a^4 - a^2 + 1)*q^29 + (a^9 + a^2)*q^37 + (-a^7 - a^3)*q^41 + (-a^9
        + a^6)*q^45 + a^8*q^49 + (2*a^11 - a^9 + a^7 - a^5 + a^3 - a)*q^53 + 
        (a^4 - 1)*q^61 + (-a^10 - a^9 + a^8 + a^7 - a^5 + a^3 - a)*q^65 + (a^11 
        - a^10)*q^73 + a^2*q^81 + (a^10 - a^8 - a^4 + a^2 - 1)*q^85 + (-a^11 + 
        a^10 - a^8 + a^6 - a^4 + a^2 - 1)*q^89 + (a^6 - 1)*q^97 + (-a^11 - a^10 
        + a^9 + a^8 - a^7 - a^6 + a^5 + a^4 - a^3 - a^2 + a + 1)*q^101 + (a^7 - 
        a^3)*q^109 - a^6*q^113 + (-a^6 + a^4)*q^117 - a^4*q^121 + (a^10 - a^7 + 
        a^4 - a)*q^125 + (-a^7 - a^2)*q^137 + (a^10 - a^8 - a^4 + a^3 + a^2 + a 
        - 1)*q^145 + (a^10 - a^8 + a^6 - a^4 + a^2 - 2)*q^149 + (-a^5 - 
        a^2)*q^153 + (-a^11 - a^3)*q^157 + (a^10 - a^8 + a^6)*q^169 + (-a^11 + 
        a^4)*q^181 + (-a^10 + a^7 + a^3 - 1)*q^185 + (-a^10 - a^9)*q^193 + (a^5 
        + 1)*q^197 + (a^11 - a^10 - a^6 + a^4 - a^2 - a + 1)*q^205 + (a^9 - a^7 
        + a^6 - a^4)*q^221 + O(q^222),
    q^2 - a^6*q^4 + (a^10 - a^8 + a^6 - a^4 + a^2 - 1)*q^8 + (-a^8 + a^5)*q^10 +
        a^4*q^16 + a*q^18 + (-a^11 - 1)*q^20 + (-a^5 + a^3)*q^26 - a^10*q^32 + 
        (-a^4 - a)*q^34 - a^7*q^36 + (a^6 - a^3)*q^40 + (-a^11 + a^10 + a^9 - 
        a^7 + a^5 - a^3 - a^2 + a)*q^50 + (a^11 - a^9)*q^52 + (-a^10 + a^8 + a^7
        - a^6 + a^4 - a^2 + 1)*q^58 - a^2*q^64 + (a^10 + a^7)*q^68 + (a^11 - a^9
        + a^7 - a^5 + a^3 - a)*q^72 + (a^9 + a^2)*q^74 + (-a^10 + a^9 + a^8 - 
        a^6 + a^4 - a^2 + 1)*q^80 + (-a^7 - a^3)*q^82 + (-a^9 + a^6)*q^90 + 
        a^8*q^98 + (a^8 - a^5 + a^2)*q^100 + (a^3 - a)*q^104 + (2*a^11 - a^9 + 
        a^7 - a^5 + a^3 - a)*q^106 + (-a^11 + a^9 - a^7 + a^5 - a^4 - a^3 + 
        a)*q^116 + (a^4 - 1)*q^122 + a^8*q^128 + (-a^10 - a^9 + a^8 + a^7 - a^5 
        + a^3 - a)*q^130 + (-a^11 + a^9 - a^7 + a^5 - a^3 + a^2 + a)*q^136 + 
        a^5*q^144 + (a^11 - a^10)*q^146 + (-a^8 + a)*q^148 + (-a^4 + a)*q^160 + 
        a^2*q^162 + (a^11 + a^7 - a^5 + a^3 - a)*q^164 + (a^10 - a^8 - a^4 + a^2
        - 1)*q^170 + (-a^11 + a^10 - a^8 + a^6 - a^4 + a^2 - 1)*q^178 + (-a^10 +
        a^8 - a^6 + a^4 - a^2 - a + 1)*q^180 + (a^6 - 1)*q^194 + q^196 + (a^11 -
        a^8 + 1)*q^200 + (-a^11 - a^10 + a^9 + a^8 - a^7 - a^6 + a^5 + a^4 - a^3
        - a^2 + a + 1)*q^202 + (-a^9 + a^7)*q^208 + (a^5 + a^3)*q^212 + (a^7 - 
        a^3)*q^218 + O(q^222)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^6*q^2 + (-a^10 + a^8 - a^6 + a^4 + a^3 - a^2 + 1)*q^3 + (a^10 - a^8 + 
        a^6 - a^4 + a^2 - 1)*q^4 + (a^9 + a^4)*q^6 - a^4*q^8 + (-a^10 + a^6 + 
        a)*q^9 + (a^11 - a^9 + a^7 + a^3 - a)*q^11 + (a^10 - a)*q^12 - a^10*q^16
        + (-a^3 - a^2)*q^17 + (a^10 - a^8 + a^7 + a^6 - a^4 + 2*a^2 - 1)*q^18 + 
        (-a^10 + a^8 - a^6 + a^4 - a^3 - a^2 + 1)*q^19 + (a^11 - a^5)*q^22 + 
        (-a^7 - a^2)*q^24 + (-a^11 + a^9 - a^7 + a^5 - a^3 + a)*q^25 + (-a^11 + 
        2*a^9 - a^8 - a^7 + a^5 + a^4 - a^3 + a)*q^27 + a^2*q^32 + (a^11 + a^8 +
        a^3 - a^2)*q^33 + (-a^9 - a^8)*q^34 + (a^11 - a^9 + a^8 + a^7 - a^5 - 
        a^4 + a^3 - a)*q^36 + (-a^9 + a^4)*q^38 + (-a^9 + a^7 - a^5 + a^3 - 
        a)*q^41 + (a^10 - a^8 + a^7 + a^6 - a^4 + a^2 - 1)*q^43 + (-a^11 - 
        a^3)*q^44 + (-a^11 + a^9 - a^8 - a^7 + a^5 - a^3 + a)*q^48 + a^8*q^49 + 
        a^5*q^50 + (-a^6 - a^5 - a - 1)*q^51 + (a^10 + a^5 - a + 1)*q^54 + 
        (-a^10 - a^6)*q^57 + (-a^9 - a^6)*q^59 + a^8*q^64 + (a^9 - a^8 - a^3 - 
        1)*q^66 + (-a^7 + a^4)*q^67 + (a + 1)*q^68 + (-a^10 - a^5 - 1)*q^72 + 
        (-a^7 - 1)*q^73 + (-a^11 + a^2)*q^75 + (a^10 + a)*q^76 + (-a^11 + a^10 -
        a^8 + a^7 - a^4 + 2*a^2 - 1)*q^81 + (-a^5 + a^3)*q^82 + (a^7 + a^5)*q^83
        + (a^11 - a^9 + a^7 - a^5 - a^4 + a^3 - a)*q^86 + (-a^9 + a^3)*q^88 + 
        (-a^5 - a^4)*q^89 + (a^5 + 1)*q^96 + (-a^11 + a^9 - 2*a^7 + a^5 - a^3 + 
        a)*q^97 - q^98 + (a^11 + a^9 + a^6 - a^5 + a - 1)*q^99 + a^11*q^100 + 
        (-a^11 - a^10 + a^8 - a^7 - 2*a^6 + a^4 - a^2 + 1)*q^102 + (a^10 + 
        a^3)*q^107 + (a^11 - a^7 + a^6 - a^2)*q^108 - q^113 + (-a^10 + a^8 - a^6
        + a^4 + 1)*q^114 + (-a^10 + a^8 - a^6 + a^4 - a^2 + a + 1)*q^118 + (a^8 
        - a^6 - a^2 + 1)*q^121 + (a^11 - a^9 - a^2 + 1)*q^123 - q^128 + (2*a^10 
        + a^5 - a)*q^129 + (a^8 + a^6)*q^131 + (-a^9 - a^6 - a + 1)*q^132 + 
        (-a^11 + a^10 + a^9 - a^7 + a^5 - a^3 + a)*q^134 + (a^7 + a^6)*q^136 + 
        (a^9 + 1)*q^137 + (-a^11 + a^9)*q^139 + (-a^11 - a^6 + a^2)*q^144 + 
        (-a^11 + a^9 - a^7 - a^6 + a^5 - a^3 + a)*q^146 + (a^11 + a^6)*q^147 + 
        (a^8 + a^3)*q^150 + (a^7 - a^2)*q^152 + (a^11 + a^10 - 2*a^9 - 2*a^8 + 
        a^7 + a^6 - a^5 - 2*a^4 + a^2 - a - 1)*q^153 + (a^11 - a^10 - a^9 + 
        2*a^8 + a^7 - a^6 - a^5 + 2*a^3 - a^2 - a + 1)*q^162 + (a^8 + a^2)*q^163
        + (-a^11 + a^9)*q^164 + (2*a^11 - a^9 + a^7 - a^5 + a^3 - a)*q^166 - 
        a^8*q^169 + (-a^9 - a^8)*q^171 + (-a^10 - a^5)*q^172 + (a^9 + a)*q^176 +
        (-a^10 - a^9 + a^8 - a^7 - a^6 - a^2 + 1)*q^177 + (-a^11 - a^10)*q^178 +
        (-a^10 + a^7)*q^179 + (-a^8 - a^7 + a^2 + a)*q^187 + (a^11 + a^6)*q^192 
        + (a^4 - a)*q^193 + (-a^11 + a^9 - a^7 + 2*a^5 - a^3 + a)*q^194 - 
        a^6*q^196 + (-a^11 + a^10 - a^8 + a^7 - a^4 - a^3 + a^2 - a - 1)*q^198 -
        a^3*q^200 + (-a^10 + a^7 - a^5 + a^2)*q^201 + (-a^11 - a^10 + a^9 + a^8 
        - a^7 - a^6 + a^5 + 2*a^4 - a^2 + a + 1)*q^204 + (a^11 - a^8 + a^3 + 
        a^2)*q^209 + 2*q^211 + (a^9 - a^2)*q^214 + (-a^11 + a^10 + a^9 - 2*a^8 -
        a^7 + a^6 + a^5 - a^4 - 2*a^3 + a^2 + a - 1)*q^216 + (-a^8 + a^6 - a^5 -
        a^4 - a^3 + a^2 - 1)*q^219 + O(q^222)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^5 - a)*q^5 + a*q^9 + (a^5 + a^3)*q^13 + (a^4 + a)*q^17 + (-a^5 + a^4 
        - 2*a^3 + 2*a^2 - a + 1)*q^25 + (-a^5 - 1)*q^29 + (a^3 - 1)*q^41 + (a^5 
        - a^4 + a^3 - 2*a^2 + a - 1)*q^45 - a*q^49 + (-a^5 - a^3 + a^2 - a + 
        1)*q^53 + (a^4 + 1)*q^61 + (-a^5 - 2*a^3 + a^2 - 2*a + 1)*q^65 + (-a^4 -
        a^3)*q^73 + a^2*q^81 + (-a^4 + a^3 - 3*a^2 + a - 1)*q^85 + (-a^5 - 
        a^4)*q^89 + (a^5 - a^4 + a^3 - a^2 + a)*q^97 + (-2*a^5 + a^4 - a^3 + a^2
        - a + 1)*q^101 + (a^3 - 1)*q^109 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^113
        + (a^5 + a^3 - a^2 + a - 1)*q^117 + a^4*q^121 + (a^4 - a^3 + a - 
        1)*q^125 + (a^2 - 1)*q^137 + (-a^4 + 2*a^3 - a^2 + 2*a - 1)*q^145 + 
        (-a^5 + 1)*q^149 + (a^5 + a^2)*q^153 + (-a^4 + a^3)*q^157 + (a^5 - a^4 -
        a^2 - 1)*q^169 + 2*a^5*q^173 + (-a^3 - a^2)*q^193 + (a^5 + 1)*q^197 + 
        (-a^5 - a^4)*q^205 + (a^5 + a^3 - 2*a^2 + a - 2)*q^221 + O(q^222),
    q^2 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^4 - a^5*q^8 + (a^5 - a)*q^10 + 
        a^4*q^16 + a*q^18 + (-a^4 + 1)*q^20 + (a^5 + a^3)*q^26 - a^3*q^32 + (a^4
        + a)*q^34 - q^36 + (a^5 - a^4 + 2*a^3 - a^2 + a - 1)*q^40 + (-a^5 + a^4 
        - 2*a^3 + 2*a^2 - a + 1)*q^50 + (-a^4 - a^2)*q^52 + (-a^5 - 1)*q^58 + 
        a^2*q^64 + (-a^3 - 1)*q^68 + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^72 + 
        (-a^5 - a^2)*q^80 + (a^3 - 1)*q^82 + (a^5 - a^4 + a^3 - 2*a^2 + a - 
        1)*q^90 - a*q^98 + (a^5 + a^2 - a)*q^100 + (a^3 + a)*q^104 + (-a^5 - a^3
        + a^2 - a + 1)*q^106 + (-a^5 + 2*a^4 - a^3 + a^2 - a + 1)*q^116 + (a^4 +
        1)*q^122 - a*q^128 + (-a^5 - 2*a^3 + a^2 - 2*a + 1)*q^130 + (-a^5 + a^4 
        - a^3 + 2*a^2 - a + 1)*q^136 + a^5*q^144 + (-a^4 - a^3)*q^146 + (a^4 + 
        a)*q^160 + a^2*q^162 + (-a^5 + a^4 - a^3 - a + 1)*q^164 + (-a^4 + a^3 - 
        3*a^2 + a - 1)*q^170 + (-a^5 - a^4)*q^178 + (-a^5 + a)*q^180 + (a^5 - 
        a^4 + a^3 - a^2 + a)*q^194 + q^196 + (-a^4 - a + 1)*q^200 + (-2*a^5 + 
        a^4 - a^3 + a^2 - a + 1)*q^202 + (-a^2 - 1)*q^208 + (a^5 + a^3)*q^212 + 
        (a^3 - 1)*q^218 + O(q^222)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^2 + (-a^5 + a^3)*q^3 - a^5*q^4 + (a^4 
        - a^2)*q^6 + a^4*q^8 + (a^5 - a^4 - a^2 + 2*a - 1)*q^9 + (a^4 - a^3 + 
        a^2 - a + 1)*q^11 + (-a^3 + a)*q^12 - a^3*q^16 + (a^3 + a^2)*q^17 + 
        (-a^5 + a^2 - 1)*q^18 + (-a^5 + a^3)*q^19 + (a^5 - a^4)*q^22 + (a^2 - 
        1)*q^24 + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^25 + (-a^5 + 2*a^4 - a^3 - 
        2*a + 1)*q^27 + a^2*q^32 + (-a^4 + a^3 + a^2 - a)*q^33 + (-a^2 - a)*q^34
        + (-a^5 + 2*a^4 - a^3 + a^2 - 2*a + 1)*q^36 + (a^4 - a^2)*q^38 + (-a^5 -
        a^3 + a^2 - a + 1)*q^41 + (-a^5 - 1)*q^43 + (-a^4 + a^3)*q^44 + (-a^5 + 
        a^4 - a^3 + a^2 - 2*a + 1)*q^48 - a*q^49 + a^5*q^50 + (2*a^5 - a^4 + a^3
        - a^2 + 2*a)*q^51 + (a^5 - a^3 + a + 1)*q^54 + (a^5 - a^4 - a^2 + 3*a - 
        1)*q^57 + (a^5 - a^4 + a^3 - 2*a^2 + a - 1)*q^59 - a*q^64 + (a^3 - a^2 -
        a + 1)*q^66 + (a^4 - 1)*q^67 + (a + 1)*q^68 + (a^5 - a^3 + 1)*q^72 + 
        (-a^4 + a^2)*q^75 + (-a^3 + a)*q^76 + (-2*a^4 + a^3 + a - 2)*q^81 + (a^5
        + a^3)*q^82 + (a^5 - 1)*q^83 + (-a^5 + 2*a^4 - a^3 + a^2 - a + 1)*q^86 +
        (a^3 - a^2)*q^88 + (a^5 + a^4)*q^89 + (a^5 + 1)*q^96 + (-a^5 + a^4 - a^3
        + a^2 - a)*q^97 + q^98 + (2*a^5 - 2*a^4 + a^3 - 2*a^2 + 2*a)*q^99 - 
        a^4*q^100 + (-2*a^4 + a^3 - a^2 + a - 2)*q^102 + (a^5 - 2*a^4 + a^3 + a 
        - 2)*q^108 + q^113 + (-a^5 + a^2 - 2)*q^114 + (-a^5 + a)*q^118 + (-a^5 +
        a^4 - a^3)*q^121 + (-a^4 + 1)*q^123 + q^128 + (a^5 - 2*a^3 + a)*q^129 + 
        (a^5 - a^4 + a^3 - a^2 - 1)*q^131 + (a^5 - a^4 + a^3 - 2*a^2 + 
        2*a)*q^132 + (-a^5 + a^4 - 2*a^3 + a^2 - a + 1)*q^134 + (a^5 - a^4 + a^3
        - a^2 + a - 2)*q^136 + (-a^2 + 1)*q^137 + (-a^4 - a^2)*q^139 + (a^5 - 
        2*a^4 + a^3 + a - 1)*q^144 + (a^5 - 2*a^4 + a^3 - a^2 + a - 1)*q^147 + 
        (a^3 - a)*q^150 + (a^2 - 1)*q^152 + (-2*a^5 + 2*a^4 - 2*a + 1)*q^153 + 
        (-2*a^5 + 2*a^4 + a^2 - 2*a + 1)*q^162 + (a^2 - a)*q^163 + (-a^4 - 
        a^2)*q^164 + (-a^5 - a^3 + a^2 - a + 1)*q^166 - a*q^169 + (-2*a^5 + 
        4*a^4 - 2*a^3 + a^2 - 3*a + 2)*q^171 + (a^5 - a^3)*q^172 + (-a^2 + 
        a)*q^176 + (-a^5 + a^4 - a^2 - 1)*q^177 + (-a^4 - a^3)*q^178 + (-a^3 - 
        1)*q^179 + (a^2 - 1)*q^187 + (a^5 - 2*a^4 + a^3 - a^2 + a - 1)*q^192 + 
        (a^4 + a)*q^193 + (a^4 - a^3 + a^2 - a + 1)*q^194 + (a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^196 + (-2*a^4 + 2*a^3 - a^2 + 2*a - 2)*q^198 + a^3*q^200 
        + (a^5 - a^3 + a^2 - 1)*q^201 + (-2*a^5 + 2*a^4 + a^2 - a + 1)*q^204 + 
        (-a^4 + a^3 + a^2 - a)*q^209 + 2*q^211 + (-2*a^5 + a^4 + a^2 - 2*a + 
        1)*q^216 + O(q^222)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^2 + (a^3 - a^2)*q^3 - q^4 + (-a + 1)*q^6 - a^2*q^8 + (-a^2 + a - 
        1)*q^9 + 2*a*q^11 + (-a^3 + a^2)*q^12 + q^16 + (-a + 1)*q^17 + (a^3 - 
        a^2 + 1)*q^18 + (a^2 + a)*q^19 + 2*a^3*q^22 + (a - 1)*q^24 + a^3*q^25 + 
        (-a^3 + a^2 + a - 1)*q^27 + a^2*q^32 + (-2*a^3 - 2)*q^33 + (-a^3 + 
        a^2)*q^34 + (a^2 - a + 1)*q^36 + (a^3 - 1)*q^38 + (-a^3 + 1)*q^43 - 
        2*a*q^44 + (a^3 - a^2)*q^48 + q^49 - a*q^50 + (2*a^3 - a^2 + 1)*q^51 + 
        (a^3 - a^2 + a - 1)*q^54 + (-a^3 - a)*q^57 + (a^3 - 1)*q^59 - q^64 + 
        (-2*a^2 + 2*a)*q^66 + (-a + 1)*q^67 + (a - 1)*q^68 + (-a^3 + a^2 - 
        1)*q^72 + (a^2 - a)*q^73 + (-a^2 + a)*q^75 + (-a^2 - a)*q^76 + (-a^3 + 
        a^2 - a)*q^81 + (a^3 - a)*q^83 + (a^2 + a)*q^86 - 2*a^3*q^88 + (-a^3 - 
        a^2)*q^89 + (-a + 1)*q^96 + (-a^3 + a)*q^97 + a^2*q^98 + (-2*a^3 + 2*a^2
        - 2*a)*q^99 - a^3*q^100 + (a^2 - 2*a + 1)*q^102 + (-a^3 - a^2)*q^107 + 
        (a^3 - a^2 - a + 1)*q^108 - a^2*q^113 + (-a^3 + a)*q^114 + (-a^2 - 
        a)*q^118 + 3*a^2*q^121 - a^2*q^128 + (a^3 - a)*q^129 + (a^2 - 1)*q^131 +
        (2*a^3 + 2)*q^132 + (-a^3 + a^2)*q^134 + (a^3 - a^2)*q^136 + (a - 
        1)*q^137 - 2*a*q^139 + (-a^2 + a - 1)*q^144 + (-a^3 - 1)*q^146 + (a^3 - 
        a^2)*q^147 + (a^3 + 1)*q^150 + (-a^3 + 1)*q^152 + (a^3 - 2*a^2 + 2*a - 
        1)*q^153 + (-a^3 + a - 1)*q^162 + (a^2 + 1)*q^163 + (-a^3 - a)*q^166 - 
        a^2*q^169 + (-a + 1)*q^171 + (a^3 - 1)*q^172 + 2*a*q^176 + (-a^3 + 
        a)*q^177 + (a + 1)*q^178 + (a^3 - 1)*q^179 + (-2*a^2 + 2*a)*q^187 + 
        (-a^3 + a^2)*q^192 + (-a^3 - 1)*q^193 + (a^3 + a)*q^194 - q^196 + 
        (-2*a^3 + 2*a - 2)*q^198 + a*q^200 + (2*a^3 - a^2 + 1)*q^201 + (-2*a^3 +
        a^2 - 1)*q^204 + (2*a^3 + 2*a^2)*q^209 + (a + 1)*q^214 + (-a^3 + a^2 - a
        + 1)*q^216 + (a^3 - a + 2)*q^219 + O(q^222)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 16*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^3 + a^2)*q^5 + a^2*q^9 + (a^5 - a^4 - a^2 + a - 1)*q^13 + (a^2 - 
        a)*q^17 + (a^3 - a^2 + a - 1)*q^25 + (-a^3 + 1)*q^29 + 2*a^4*q^37 + (a^5
        - a^4 + a^3 - a^2 + a)*q^41 + (-a^5 + a^4)*q^45 + a^2*q^49 + (-a^5 - 
        a)*q^53 + (-a + 1)*q^61 + (-a^4 + a^3 - 1)*q^65 + (a^5 - a^4 + a^3 - a^2
        - 1)*q^73 + a^4*q^81 + (-a^5 + 2*a^4 - a^3)*q^85 + (-a^3 - a)*q^89 + 
        (-a^5 + 1)*q^97 + (-a^5 - a^3)*q^101 + (a^5 - a^4 + a^3 - a^2 + a)*q^109
        - a^5*q^113 + (-a^5 - a)*q^117 - a*q^121 + (a^5 - a^4 + a^3)*q^125 + 
        (a^4 + 1)*q^137 + (-a^4 + a - 1)*q^145 + (-a^3 + 1)*q^149 + (a^4 - 
        a^3)*q^153 + (a^5 - a^4 + a^3 - a^2 - 1)*q^157 + (-a^4 + a^3 + a - 
        1)*q^169 - 2*a^3*q^173 - 2*a*q^181 + (2*a^5 - 2*a^4 + 2*a^3 - 2*a^2 + 
        2*a)*q^185 + (a^5 + a^3 - a^2 + a - 1)*q^193 + (-a^3 + 1)*q^197 + (-a^3 
        + 2*a^2 - a)*q^205 + (-a^5 + a^4 - a + 1)*q^221 + O(q^222),
    q^2 - a^5*q^4 - a^3*q^8 + (-a^3 + a^2)*q^10 - a*q^16 + a^2*q^18 + (-a + 
        1)*q^20 + (a^5 - a^4 - a^2 + a - 1)*q^26 + (a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^32 + (a^2 - a)*q^34 + q^36 + (-a^4 + a^3 - a^2 + a - 1)*q^40 + (a^3
        - a^2 + a - 1)*q^50 + (a^4 - a)*q^52 + (-a^3 + 1)*q^58 + a^4*q^64 + (a^5
        - a^4 + a^3 - a^2 + a)*q^68 - a^5*q^72 + 2*a^4*q^74 + (a^4 - a^3)*q^80 +
        (a^5 - a^4 + a^3 - a^2 + a)*q^82 + (-a^5 + a^4)*q^90 + a^2*q^98 + (a^4 -
        a^3 + a^2)*q^100 + (a^5 - a^4 + a^3 + a - 1)*q^104 + (-a^5 - a)*q^106 + 
        (-a^5 - a)*q^116 + (-a + 1)*q^122 + a^2*q^128 + (-a^4 + a^3 - 1)*q^130 +
        (-a^5 + a^4)*q^136 - a^3*q^144 + (a^5 - a^4 + a^3 - a^2 - 1)*q^146 + 
        2*a^2*q^148 + (a^2 - a)*q^160 + a^4*q^162 + (-a^5 + a^4)*q^164 + (-a^5 +
        2*a^4 - a^3)*q^170 + (-a^3 - a)*q^178 + (-a^3 + a^2)*q^180 + (-a^5 + 
        1)*q^194 + q^196 + (a^2 - a + 1)*q^200 + (-a^5 - a^3)*q^202 + (a^4 + 
        1)*q^208 + (a^5 - a^4 - a^2 + a - 1)*q^212 + (a^5 - a^4 + a^3 - a^2 + 
        a)*q^218 + O(q^222)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 16*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^5*q^2 + (a^5 - a^4 - a^2 + a - 1)*q^3 - a^3*q^4 + (a^4 - a)*q^6 - 
        a*q^8 + (-a^4 + a^3 + a - 1)*q^9 + (-a^5 - a^3)*q^11 + (a^5 - a^4 + a^3 
        + a - 1)*q^12 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^16 + (a^5 + a^3 - a^2 
        + a - 1)*q^17 + (a^4 - a^3 + 1)*q^18 + (a^5 - a^4 - a^2 + a - 1)*q^19 + 
        (-a^3 - a)*q^22 + (a^4 + 1)*q^24 - a^5*q^25 + (-a^5 + a^4 + a^2 - 
        a)*q^27 + a^4*q^32 + (a^5 + a^3 - 1)*q^33 + (a^4 + a^2)*q^34 + (-a^5 + 
        a^2 - a)*q^36 + (a^4 - a)*q^38 + (-a^5 - a)*q^41 + (-a^3 + 1)*q^43 + 
        (a^5 - a^4 + a^3 - a^2 - 1)*q^44 + (-a^5 + a^2)*q^48 + a^2*q^49 - 
        a^3*q^50 + (-a^5 - a^3 + a^2 + 1)*q^51 + (a^5 - a^4 + a)*q^54 + (-a^4 + 
        a^3 + a^2 + a - 1)*q^57 + (-a^5 + a^4)*q^59 + a^2*q^64 + (a^5 + a^3 + 
        a)*q^66 + (-a + 1)*q^67 + (a^2 + 1)*q^68 + (a^5 - a^4 - a^2 + a)*q^72 + 
        2*q^73 + (a^4 - a)*q^75 + (a^5 - a^4 + a^3 + a - 1)*q^76 + (-a^5 + a^4 -
        a^3 - a + 1)*q^81 + (a^5 - a^4 - a^2 + a - 1)*q^82 + (-a^3 + 1)*q^83 + 
        (-a^5 - a)*q^86 + (a^5 + a^3 - a^2 + a - 1)*q^88 + (-a^3 - a)*q^89 + 
        (-a^3 + 1)*q^96 + (-a^5 + 1)*q^97 + q^98 + (-a^5 + a^4 - a^3 + a^2 - a +
        1)*q^99 - a*q^100 + (-a^5 - a^3 - a + 1)*q^102 + (2*a^5 - 2*a^4 + 2*a^3 
        - 2*a^2 + 2*a - 2)*q^107 + (-a^5 + a^4 - a + 1)*q^108 + q^113 + (a^4 - 
        a^3 + 2)*q^114 + (-a^3 + a^2)*q^118 + (a^5 - a^4 - a^2 - 1)*q^121 + 
        (2*a^4 - a + 1)*q^123 + q^128 + (2*a^5 - 2*a^4 + a^3 - a^2 + 2*a - 
        2)*q^129 + (-a^5 + a^2)*q^131 + (-a^5 + a^4 + a^2 + 1)*q^132 + (-a^4 + 
        a^3 - a^2 + a - 1)*q^134 + (-a^5 + 1)*q^136 + (a^4 + 1)*q^137 + (a^4 - 
        a)*q^139 + (-a^5 + a^4 - a)*q^144 - 2*a^5*q^146 + (-a^5 - a)*q^147 + 
        (a^5 - a^4 + a^3 + a - 1)*q^150 + (a^4 + 1)*q^152 - q^153 + (-a^4 - 
        1)*q^162 + (a^4 + a^2)*q^163 + (a^4 - a)*q^164 + (-a^5 - a)*q^166 + 
        a^2*q^169 + (-2*a^5 + a^4 + a^2 - 2*a)*q^171 + (a^5 - a^4 - a^2 + a - 
        1)*q^172 + (a^4 + a^2)*q^176 + (a^4 - a^3 - a + 1)*q^177 + (a^5 - a^4 + 
        a^3 - a^2 - 1)*q^178 + (a^5 - a^4 + a^3 - a^2 + a)*q^179 + (a^4 + 2*a^2 
        + 1)*q^187 + (-a^5 - a)*q^192 + (a^2 - a)*q^193 + (-a^5 - a^3)*q^194 - 
        a^5*q^196 - a^4*q^198 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^200 + (a^5 - 
        a^2 + a)*q^201 + (-a^4 - a^2 - 1)*q^204 + (a^5 + a^3 - 1)*q^209 + 
        2*q^211 + 2*a^4*q^214 + (-a^4 + a - 1)*q^216 + (2*a^5 - 2*a^4 - 2*a^2 + 
        2*a - 2)*q^219 + O(q^222)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 28*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^5 + a*q^9 - 2*a*q^13 + (-a - 1)*q^17 - a*q^25 + (-a - 1)*q^29 
        + (a - 1)*q^37 + 2*a*q^41 + (-a - 1)*q^45 + q^49 + (2*a + 2)*q^65 + (-a 
        + 1)*q^73 - q^81 + 2*q^85 + (a + 1)*q^89 - 2*q^97 + (-a - 1)*q^101 + 
        q^113 + 2*q^117 - q^121 + (a + 1)*q^137 + 2*q^145 + (-a + 1)*q^153 + 
        2*a*q^157 - 3*q^169 + (a + 1)*q^181 - 2*a*q^185 + (-a + 1)*q^193 + (a + 
        1)*q^197 + (-2*a - 2)*q^205 + (2*a - 2)*q^221 + O(q^222),
    q^2 + q^4 + q^8 + (a - 1)*q^10 + q^16 + a*q^18 + (a - 1)*q^20 - 2*a*q^26 + 
        q^32 + (-a - 1)*q^34 + a*q^36 + (a - 1)*q^40 - a*q^50 - 2*a*q^52 + (-a -
        1)*q^58 + q^64 + (-a - 1)*q^68 + a*q^72 + (a - 1)*q^74 + (a - 1)*q^80 + 
        2*a*q^82 + (-a - 1)*q^90 + q^98 - a*q^100 - 2*a*q^104 + (-a - 1)*q^116 +
        q^128 + (2*a + 2)*q^130 + (-a - 1)*q^136 + a*q^144 + (-a + 1)*q^146 + (a
        - 1)*q^148 + (a - 1)*q^160 - q^162 + 2*a*q^164 + 2*q^170 + (a + 1)*q^178
        + (-a - 1)*q^180 - 2*q^194 + q^196 - a*q^200 + (-a - 1)*q^202 - 
        2*a*q^208 + O(q^222)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 28*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^2 + (-a - 1)*q^3 + q^4 + (a + 1)*q^6 - q^8 + a*q^9 + 2*a*q^11 + (-a - 
        1)*q^12 + q^16 + (a + 1)*q^17 - a*q^18 + (a - 1)*q^19 - 2*a*q^22 + (a + 
        1)*q^24 - a*q^25 - q^32 + (-2*a + 2)*q^33 + (-a - 1)*q^34 + a*q^36 + (-a
        + 1)*q^38 + 2*a*q^41 + (-a + 1)*q^43 + 2*a*q^44 + (-a - 1)*q^48 + q^49 +
        a*q^50 - 2*a*q^51 + 2*q^57 + (-a + 1)*q^59 + q^64 + (2*a - 2)*q^66 + (a 
        + 1)*q^67 + (a + 1)*q^68 - a*q^72 + (a - 1)*q^73 + (a - 1)*q^75 + (a - 
        1)*q^76 + q^81 - 2*a*q^82 + (a - 1)*q^86 - 2*a*q^88 + (-a - 1)*q^89 + (a
        + 1)*q^96 - q^98 - 2*q^99 - a*q^100 + 2*a*q^102 + (-a - 1)*q^107 - q^113
        - 2*q^114 + (a - 1)*q^118 - 3*q^121 + (-2*a + 2)*q^123 - q^128 - 2*q^129
        + (-2*a + 2)*q^132 + (-a - 1)*q^134 + (-a - 1)*q^136 + (a + 1)*q^137 + 
        2*a*q^139 + a*q^144 + (-a + 1)*q^146 + (-a - 1)*q^147 + (-a + 1)*q^150 +
        (-a + 1)*q^152 + (a - 1)*q^153 - q^162 + 2*a*q^164 - q^169 + (-a - 
        1)*q^171 + (-a + 1)*q^172 + 2*a*q^176 - 2*q^177 + (a + 1)*q^178 + (-a + 
        1)*q^179 + (2*a - 2)*q^187 + (-a - 1)*q^192 + (-a + 1)*q^193 + q^196 + 
        2*q^198 + a*q^200 - 2*a*q^201 - 2*a*q^204 + (-2*a - 2)*q^209 + 2*q^211 +
        (a + 1)*q^214 + 2*q^219 + O(q^222)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 56*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^13 + q^25 - q^41 + q^49 - q^53 - q^57 - q^69 - q^109 + q^113 + q^117 +
        q^121 + q^129 - q^141 + 2*q^149 - q^157 + q^169 - q^173 + q^177 - q^201 
        + q^213 + O(q^222),
    q^2 + q^8 - q^26 + q^32 - q^36 + q^50 - q^52 - q^82 + q^98 - q^104 - q^106 -
        q^114 + q^128 - q^138 - q^144 - q^164 + q^200 - q^208 - q^212 - q^218 + 
        O(q^222),
    q^3 - q^19 - q^23 + q^43 - q^47 + q^59 - q^67 + q^71 + q^75 - q^79 + q^103 -
        q^107 + q^147 + q^151 + q^167 - q^171 - q^179 - 2*q^183 + q^191 + q^199 
        - q^207 + O(q^222),
    q^4 + q^16 - q^18 - q^26 - q^52 + q^64 - q^72 - q^82 + q^100 - q^104 - q^106
        + q^114 + 2*q^122 + q^138 + q^162 - q^164 + 2*q^194 + q^196 - q^208 - 
        q^212 - q^218 + O(q^222),
    q^6 - q^12 + q^24 - q^38 - q^46 - q^48 + q^76 + q^86 + q^92 - q^94 + q^96 + 
        q^118 - q^134 + q^142 + q^150 - q^152 - q^158 - q^172 - q^184 + q^188 - 
        q^192 + q^206 - q^214 + O(q^222),
    q^9 + q^13 + q^41 + q^53 - q^57 - 2*q^61 - q^69 - q^81 - 2*q^97 + q^109 - 
        q^117 + q^129 - q^141 + q^157 - 2*q^169 + q^173 + q^177 - q^201 + q^213 
        + O(q^222)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
904
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 56*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^11 + q^16 - q^22 + q^36 - q^41 - q^44 + q^49 - q^50 + q^64
        + q^81 - q^82 - q^83 - q^88 - q^97 - q^99 - q^115 + q^121 - q^139 + 
        q^144 - q^145 - q^164 - q^166 + q^169 - q^176 - q^185 - q^194 + q^196 - 
        q^198 - q^200 + O(q^222),
    q^2 + q^8 - q^11 + q^18 - q^22 - q^25 + q^32 - q^41 - q^44 + q^72 - q^82 - 
        q^83 - q^88 - q^97 + q^98 - q^99 - q^100 + q^113 + q^115 + 2*q^121 + 
        q^128 + 2*q^131 - q^139 + q^145 + q^162 + 2*q^163 - q^164 - q^166 - 
        q^176 + q^185 - q^194 - q^198 + 2*q^211 + O(q^222),
    q^5 - q^10 + q^20 - q^23 - q^29 - q^37 - q^40 + q^45 + q^46 + q^47 + q^58 - 
        q^71 + q^74 + q^79 + q^80 - q^90 - q^92 - q^94 - q^101 + q^103 - q^116 +
        q^142 - q^148 + q^151 - q^158 - q^160 - q^167 + q^180 + q^181 + q^184 + 
        q^188 + q^191 + q^197 - q^199 + q^202 - q^206 - q^207 + O(q^222)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
180
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
180
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
180
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
180
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 20*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 30*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 36*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
45*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 45*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + q^5 + q^9 - 2*a*q^11 - q^16 + (a - 1)*q^19 + a*q^20 + q^25 + (a 
        - 1)*q^31 + a*q^36 + (a - 1)*q^41 + 2*q^44 + q^45 - a*q^49 - 2*a*q^55 + 
        (-a - 1)*q^61 - a*q^64 + (-a - 1)*q^71 + (-a - 1)*q^76 + 2*a*q^79 - q^80
        + q^81 + (a + 1)*q^89 + (a - 1)*q^95 - 2*a*q^99 + a*q^100 + (-a - 
        1)*q^109 - 3*q^121 + (-a - 1)*q^124 + q^125 + (-a + 1)*q^131 - q^144 + 
        (a - 1)*q^149 + (-a + 1)*q^151 + (a - 1)*q^155 + (-a - 1)*q^164 + q^169 
        + (a - 1)*q^171 + 2*a*q^176 + (-a + 1)*q^179 + O(q^180)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 60*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
905
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 90*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^3 + a*q^4 - q^5 - a*q^9 + (-a - 1)*q^12 + (a - 1)*q^13 + (-a +
        1)*q^15 - q^16 - a*q^20 + q^25 - 2*a*q^29 + q^36 + (-a - 1)*q^37 - 
        2*a*q^39 + (a - 1)*q^43 + a*q^45 + (-a + 1)*q^48 + a*q^49 + (-a - 
        1)*q^52 + 2*a*q^59 + (a + 1)*q^60 - a*q^64 + (-a + 1)*q^65 + (a + 
        1)*q^67 + (a - 1)*q^73 + (a - 1)*q^75 + 2*a*q^79 + q^80 + q^81 + (2*a + 
        2)*q^87 + a*q^100 - 2*q^101 + 2*q^111 + 2*q^116 + (a + 1)*q^117 - q^121 
        - q^125 - 2*a*q^129 + (-a - 1)*q^137 + a*q^144 + 2*a*q^145 + (-a - 
        1)*q^147 + (-a + 1)*q^148 + 2*q^156 + (a + 1)*q^167 - a*q^169 + (-a - 
        1)*q^172 + (-2*a - 2)*q^177 + O(q^180)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
906
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
906
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
150
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
906
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
150
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
906
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
50
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
906
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
906
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
50
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^6*q^3 - a^15*q^4 + (a^8 - a)*q^7 + a^12*q^9 + (-a^16 + a^11 - a^6 + 
        a)*q^12 + (a^4 - a^3)*q^13 - a^5*q^16 + (-a^17 - a^13)*q^19 + (a^14 - 
        a^7)*q^21 + (a^19 - a^14 + a^9 - a^4)*q^25 + a^18*q^27 + (-a^18 + a^16 +
        a^13 - a^8 + a^3)*q^28 + (a^15 - a^11 - a^10 + a^5 - 1)*q^31 + a^2*q^36 
        + (a^17 - a^12 + a^10 + a^7 - a^2)*q^37 + (a^10 - a^9)*q^39 + (-a^19 + 
        a^17 - a^12 + a^7 - a^2)*q^43 - a^11*q^48 + (a^16 - a^9 + a^2)*q^49 + 
        (-a^19 + a^18)*q^52 + (-a^19 - a^18 + a^13 - a^8 + a^3)*q^57 + (a^19 + 
        a^9 - a^4)*q^61 + (a^15 - a^13 - a^10 + a^5 - 1)*q^63 + (a^15 - a^10 + 
        a^5 - 1)*q^64 + (-a^17 - a^9)*q^67 + (-a^7 + a^2)*q^73 - a^5*q^75 + 
        (-a^7 - a^3)*q^76 + (-a^18 - a^16 + a^13 + a^11 - a^8 - a^6 + a^3 + 
        a)*q^79 + (a^19 - a^14 + a^9 - a^4)*q^81 + (a^17 - a^12 + a^7 + a^4 - 
        a^2)*q^84 + (a^12 - a^11 - a^5 + a^4)*q^91 + (-a^17 - a)*q^93 + (a^18 + 
        a^8)*q^97 + a^14*q^100 + (a^12 + a^10)*q^103 + a^8*q^108 + (-a^16 - a^15
        + a^11 - a^6 + a)*q^109 + (a^16 - a^3)*q^111 + (-a^13 + a^6)*q^112 + 
        (a^16 - a^15)*q^117 - a^13*q^121 + (a^10 - a)*q^124 + (a^6 - a)*q^127 + 
        (-a^3 + 1)*q^129 + (a^18 - a^16 + a^14 + a^11 - a^6 + a + 1)*q^133 + 
        (-a^11 + a^6)*q^139 - a^17*q^144 + (a^17 - a^15 - a^12 + a^8 + a^7 - 
        a^2)*q^147 + (a^12 + 1)*q^148 - a^5*q^151 + (a^19 - a^14 + a^9 - a^4 + 
        1)*q^156 + (-a^18 + a^13 - a^8 + a^4 + a^3)*q^157 + (-a^15 + a^2)*q^163 
        + (a^8 - a^7 + a^6)*q^169 + (a^4 + 1)*q^171 + (a^12 - a^9)*q^172 + (-a^7
        + 1)*q^175 + (a^15 - a^10 + a^6 + a^5 - 1)*q^181 + (a^15 - a^10 - 
        1)*q^183 + (-a^19 - a)*q^189 - a*q^192 + (-a^16 - a^15 + a^11 - a^6 + 
        a)*q^193 + (a^19 - a^17 - a^14 + a^9 + a^6 - a^4)*q^196 + (-a^19 - 
        a^3)*q^199 + (-a^18 - a^15 + a^13 - a^8 + a^3)*q^201 + (-a^9 + 
        a^8)*q^208 + (a^14 + a^2)*q^211 + (-a^19 - a^16 + a^12 + a^11 - a^6 - 
        a^3 + a)*q^217 + (-a^13 + a^8)*q^219 + (a^18 - a)*q^223 - a^11*q^225 + 
        (-a^13 - a^9)*q^228 + (a^17 + a^7 - a^2)*q^229 + (a^4 + a^2)*q^237 + 
        (a^17 + a^16 - a^12 + a^7 - a^2)*q^241 - a^5*q^243 + (a^14 + a^4)*q^244 
        + (-a^17 + a^15 + a^11 - a^10 - a^6 + a^5 + a - 1)*q^247 + (a^10 - 
        a^3)*q^252 + a^10*q^256 + (a^13 - a^11 - a^8 - a^5 + a^3)*q^259 + (a^19 
        - a^14 + a^9 - a^7 - a^4)*q^268 + (a^19 - a^14 + a^9 - a^7 - a^4)*q^271 
        + (a^18 - a^17 - a^11 + a^10)*q^273 + (-a^13 + a^10)*q^277 + (-a^18 + 
        a^13 - a^8 - a^7 + a^3)*q^279 + (a^16 + a^14)*q^283 + a^16*q^289 + (a^19
        + a^9 - a^4)*q^291 + (-a^12 + a^7 - a^2)*q^292 + O(q^298),
    q^2 + a^6*q^6 - a^15*q^8 + (a^8 - a)*q^14 + a^12*q^18 + (-a^16 + a^11 - a^6 
        + a)*q^24 + (a^4 - a^3)*q^26 - a^5*q^32 + (-a^17 - a^13)*q^38 + (a^14 - 
        a^7)*q^42 + (a^19 - a^14 + a^9 - a^4)*q^50 + a^18*q^54 + (-a^18 + a^16 +
        a^13 - a^8 + a^3)*q^56 + (a^15 - a^11 - a^10 + a^5 - 1)*q^62 + a^2*q^72 
        + (a^17 - a^12 + a^10 + a^7 - a^2)*q^74 + (a^10 - a^9)*q^78 + (-a^19 + 
        a^17 - a^12 + a^7 - a^2)*q^86 - a^11*q^96 + (a^16 - a^9 + a^2)*q^98 + 
        (-a^19 + a^18)*q^104 + (-a^19 - a^18 + a^13 - a^8 + a^3)*q^114 + (a^19 +
        a^9 - a^4)*q^122 + (a^15 - a^13 - a^10 + a^5 - 1)*q^126 + (a^15 - a^10 +
        a^5 - 1)*q^128 + (-a^17 - a^9)*q^134 + (-a^7 + a^2)*q^146 - a^5*q^150 + 
        (-a^7 - a^3)*q^152 + (-a^18 - a^16 + a^13 + a^11 - a^8 - a^6 + a^3 + 
        a)*q^158 + (a^19 - a^14 + a^9 - a^4)*q^162 + (a^17 - a^12 + a^7 + a^4 - 
        a^2)*q^168 + (a^12 - a^11 - a^5 + a^4)*q^182 + (-a^17 - a)*q^186 + (a^18
        + a^8)*q^194 + a^14*q^200 + (a^12 + a^10)*q^206 + a^8*q^216 + (-a^16 - 
        a^15 + a^11 - a^6 + a)*q^218 + (a^16 - a^3)*q^222 + (-a^13 + a^6)*q^224 
        + (a^16 - a^15)*q^234 - a^13*q^242 + (a^10 - a)*q^248 + (a^6 - a)*q^254 
        + (-a^3 + 1)*q^258 + (a^18 - a^16 + a^14 + a^11 - a^6 + a + 1)*q^266 + 
        (-a^11 + a^6)*q^278 - a^17*q^288 + (a^17 - a^15 - a^12 + a^8 + a^7 - 
        a^2)*q^294 + (a^12 + 1)*q^296 + O(q^298)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
906
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
906
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
906
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
25*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
906
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 30*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + q^4 + (-a^3 - a)*q^7 + a^2*q^9 - a*q^12 + (-a^2 + a - 1)*q^13 + 
        q^16 + (-a^3 + a^2)*q^19 + (a^3 + a - 1)*q^21 + (a^3 - a^2 + a - 1)*q^25
        - a^3*q^27 + (-a^3 - a)*q^28 + (-a + 1)*q^31 + a^2*q^36 + (a^2 + 1)*q^37
        + (a^3 - a^2 + a)*q^39 + (a^3 + a - 1)*q^43 - a*q^48 + (a^3 - 1)*q^49 + 
        (-a^2 + a - 1)*q^52 + (-a^2 + a - 1)*q^57 + (2*a^3 - 2*a^2 + 2*a - 
        2)*q^61 + (-a^3 + 1)*q^63 + q^64 + (a^3 + a - 1)*q^67 + 2*a^2*q^73 + 
        q^75 + (-a^3 + a^2)*q^76 + (-a^3 - a)*q^79 + (a^3 - a^2 + a - 1)*q^81 + 
        (a^3 + a - 1)*q^84 + a^3*q^91 + (a^2 - a)*q^93 - 2*a^3*q^97 + (a^3 - a^2
        + a - 1)*q^100 + (a^2 + 1)*q^103 - a^3*q^108 + (-a + 1)*q^109 + (-a^3 - 
        a)*q^111 + (-a^3 - a)*q^112 + (-a + 1)*q^117 - a^3*q^121 + (-a + 
        1)*q^124 - 2*a*q^127 + (-a^3 + 1)*q^129 - a^2*q^133 - 2*a*q^139 + 
        a^2*q^144 + (-a^3 + a^2 + 1)*q^147 + (a^2 + 1)*q^148 + q^151 + (a^3 - 
        a^2 + a)*q^156 + (-a^2 + a - 1)*q^157 + (a^2 + 1)*q^163 + (-a^3 + a^2 - 
        a)*q^169 + (a^3 - a^2 + a)*q^171 + (a^3 + a - 1)*q^172 + (a^2 + 1)*q^175
        + (-a + 1)*q^181 + 2*q^183 + (a^3 - a^2 - 1)*q^189 - a*q^192 + (-a + 
        1)*q^193 + (a^3 - 1)*q^196 + (-a^2 + a - 1)*q^199 + (-a^3 + 1)*q^201 + 
        (-a^2 + a - 1)*q^208 + (a^3 + a - 1)*q^211 - q^217 - 2*a^3*q^219 + (-a^3
        - a)*q^223 - a*q^225 + (-a^2 + a - 1)*q^228 + 2*a^2*q^229 + (a^3 + a - 
        1)*q^237 + (a^2 - a)*q^241 + q^243 + (2*a^3 - 2*a^2 + 2*a - 2)*q^244 + 
        (a^2 - 2*a + 1)*q^247 + (-a^3 + 1)*q^252 + q^256 + (-2*a^3 - a + 
        1)*q^259 + (a^3 + a - 1)*q^268 + (a^3 + a - 1)*q^271 + (-a^3 + a^2 - a +
        1)*q^273 + (-a^3 + 1)*q^277 + (-a^3 + a^2)*q^279 + (a^3 - a^2 - 1)*q^283
        - a*q^289 + (2*a^3 - 2*a^2 + 2*a - 2)*q^291 + 2*a^2*q^292 + O(q^298),
    q^2 - a*q^6 + q^8 + (-a^3 - a)*q^14 + a^2*q^18 - a*q^24 + (-a^2 + a - 
        1)*q^26 + q^32 + (-a^3 + a^2)*q^38 + (a^3 + a - 1)*q^42 + (a^3 - a^2 + a
        - 1)*q^50 - a^3*q^54 + (-a^3 - a)*q^56 + (-a + 1)*q^62 + a^2*q^72 + (a^2
        + 1)*q^74 + (a^3 - a^2 + a)*q^78 + (a^3 + a - 1)*q^86 - a*q^96 + (a^3 - 
        1)*q^98 + (-a^2 + a - 1)*q^104 + (-a^2 + a - 1)*q^114 + (2*a^3 - 2*a^2 +
        2*a - 2)*q^122 + (-a^3 + 1)*q^126 + q^128 + (a^3 + a - 1)*q^134 + 
        2*a^2*q^146 + q^150 + (-a^3 + a^2)*q^152 + (-a^3 - a)*q^158 + (a^3 - a^2
        + a - 1)*q^162 + (a^3 + a - 1)*q^168 + a^3*q^182 + (a^2 - a)*q^186 - 
        2*a^3*q^194 + (a^3 - a^2 + a - 1)*q^200 + (a^2 + 1)*q^206 - a^3*q^216 + 
        (-a + 1)*q^218 + (-a^3 - a)*q^222 + (-a^3 - a)*q^224 + (-a + 1)*q^234 - 
        a^3*q^242 + (-a + 1)*q^248 - 2*a*q^254 + (-a^3 + 1)*q^258 - a^2*q^266 - 
        2*a*q^278 + a^2*q^288 + (-a^3 + a^2 + 1)*q^294 + (a^2 + 1)*q^296 + 
        O(q^298)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
906
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 50*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 - a*q^7 + q^9 + (-a + 1)*q^10 + (-a + 1)*q^13 + a*q^16 + a*q^21 + 
        (-a + 1)*q^22 - q^27 + (a - 1)*q^30 - a*q^31 + (a - 1)*q^34 - a*q^37 + 
        (a - 1)*q^39 + a*q^40 + (a - 1)*q^43 + (a - 1)*q^46 - a*q^48 + (-a + 
        1)*q^55 + 2*a*q^58 + (a - 1)*q^61 - a*q^63 - q^64 + (a - 1)*q^66 - q^70 
        + q^81 + (a - 1)*q^85 + a*q^88 + (-a + 1)*q^90 - q^91 + a*q^93 + q^94 - 
        a*q^97 + (-a + 1)*q^102 - a*q^103 + (-a + 1)*q^109 + a*q^111 + (-a + 
        1)*q^112 + (a - 1)*q^115 + (-a + 1)*q^117 - a*q^120 + 2*q^127 + (-a + 
        1)*q^129 - a*q^130 - a*q^136 + (-a + 1)*q^138 + (-a + 1)*q^139 - q^142 +
        a*q^144 + 2*a*q^145 + q^151 - q^154 - a*q^157 + (a - 1)*q^163 + (a - 
        1)*q^165 + 2*a*q^166 - 2*a*q^174 + q^178 + (a - 1)*q^181 + (-a + 
        1)*q^183 - a*q^184 + (a - 1)*q^187 + a*q^189 + q^192 + (a - 1)*q^193 + 
        (-a + 1)*q^198 - a*q^199 - 2*a*q^202 + q^208 + q^210 + (a - 1)*q^217 + 
        (-a + 1)*q^226 - 2*q^232 + q^235 + q^238 + (-a + 1)*q^241 - q^243 + 
        a*q^250 + (a - 1)*q^253 + (-a + 1)*q^255 + (a - 1)*q^259 - a*q^264 + (a 
        - 1)*q^270 + a*q^271 + q^273 - q^274 + (a - 1)*q^277 - a*q^279 + (-a + 
        1)*q^280 - q^282 - a*q^286 + a*q^291 + O(q^298),
    q^2 - q^6 - a*q^14 + q^18 + (-a + 1)*q^20 + (-a + 1)*q^26 + a*q^32 + a*q^42 
        + (-a + 1)*q^44 - q^54 + (a - 1)*q^60 - a*q^62 + (a - 1)*q^68 - a*q^74 +
        (a - 1)*q^78 + a*q^80 + (a - 1)*q^86 + (a - 1)*q^92 - a*q^96 + (-a + 
        1)*q^110 + 2*a*q^116 + (a - 1)*q^122 - a*q^126 - q^128 + (a - 1)*q^132 -
        q^140 + q^162 + (a - 1)*q^170 + a*q^176 + (-a + 1)*q^180 - q^182 + 
        a*q^186 + q^188 - a*q^194 + (-a + 1)*q^204 - a*q^206 + (-a + 1)*q^218 + 
        a*q^222 + (-a + 1)*q^224 + (a - 1)*q^230 + (-a + 1)*q^234 - a*q^240 + 
        2*q^254 + (-a + 1)*q^258 - a*q^260 - a*q^272 + (-a + 1)*q^276 + (-a + 
        1)*q^278 - q^284 + a*q^288 + 2*a*q^290 + O(q^298),
    q^4 + q^10 - q^12 + (a - 1)*q^16 + q^22 - a*q^28 - q^30 - q^34 + q^36 - q^46
        + (-a + 1)*q^48 + (-a + 1)*q^52 + (2*a - 2)*q^58 - q^66 - a*q^70 + 
        a*q^84 + q^90 + a*q^94 + q^102 - q^108 + q^112 - a*q^124 + (-a + 
        1)*q^130 + q^138 - a*q^142 + (a - 1)*q^144 - a*q^148 - a*q^154 + (a - 
        1)*q^156 + a*q^160 + (2*a - 2)*q^166 + (a - 1)*q^172 + (-2*a + 2)*q^174 
        + a*q^178 + q^198 + (-2*a + 2)*q^202 + a*q^208 + a*q^210 + (-a + 
        1)*q^220 + q^226 + a*q^238 + (a - 1)*q^244 + (a - 1)*q^250 - a*q^252 - 
        q^256 - q^270 - a*q^274 - a*q^282 + (-a + 1)*q^286 + O(q^298),
    q^5 + (a - 1)*q^8 + q^11 - q^15 - q^17 + (a - 1)*q^20 - q^23 + (-a + 1)*q^24
        + (2*a - 2)*q^29 - a*q^32 - q^33 - a*q^35 + (a - 1)*q^44 + q^45 + a*q^47
        + q^51 + q^56 + (-a + 1)*q^60 + (-a + 1)*q^65 + (-a + 1)*q^68 + q^69 - 
        a*q^71 + (a - 1)*q^72 - a*q^77 + (2*a - 2)*q^83 + (-2*a + 2)*q^87 + 
        a*q^89 + (-a + 1)*q^92 + a*q^96 + q^99 + (-2*a + 2)*q^101 + a*q^104 + 
        a*q^105 + q^113 - 2*a*q^116 + a*q^119 + (a - 1)*q^125 + (-a + 1)*q^132 -
        q^135 - a*q^137 + q^140 - a*q^141 + (-a + 1)*q^143 - q^149 - q^153 - 
        a*q^155 + a*q^161 + q^167 - q^168 - a*q^173 + (a - 1)*q^180 - a*q^185 - 
        q^188 - q^191 + (a - 1)*q^195 - a*q^197 + 2*q^203 + (a - 1)*q^204 - 
        q^207 + a*q^213 + (a - 1)*q^215 + (-a + 1)*q^216 + (a - 1)*q^221 + (a - 
        1)*q^224 + a*q^227 + a*q^231 + q^233 + q^239 + q^248 + (-2*a + 2)*q^249 
        - q^251 + q^257 + a*q^260 + (2*a - 2)*q^261 + a*q^263 - a*q^267 - q^269 
        + (a - 1)*q^276 + q^281 + q^284 - a*q^288 + q^296 - q^297 + O(q^298)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
906
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
75*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^19 - q^20 - q^22 - q^29 - q^34 + q^38 + q^44 - q^47 + q^49 + 
        q^50 - q^55 + q^58 - q^64 + q^68 - q^74 + q^80 + q^81 - q^85 + q^94 - 
        q^97 + q^121 - q^124 + q^128 - q^139 + q^148 + q^151 + q^155 + 2*q^167 +
        q^169 - q^171 - q^172 - q^173 - q^176 - q^180 - q^185 + 2*q^187 - q^190 
        - q^191 + q^194 - q^198 - q^206 - q^209 + q^215 + q^220 - q^229 - q^236 
        - q^250 + 2*q^251 - q^261 - q^272 - q^275 + q^278 + q^289 - q^290 + 
        q^295 + O(q^298),
    q^2 + q^18 - q^20 - q^22 - q^34 - q^40 + q^50 - q^64 - q^74 + q^76 + q^80 + 
        q^88 + q^98 + q^100 - q^110 + q^116 - q^124 + q^136 + q^160 + q^162 - 
        q^170 - q^172 - q^176 - q^180 + q^188 - q^190 - q^198 - q^206 + q^220 - 
        q^236 + q^242 - q^248 - q^250 + q^256 - q^272 - q^290 + q^296 + 
        O(q^298),
    q^3 + q^27 - q^57 - q^60 - q^66 - q^87 - q^102 + q^114 + q^132 - q^141 + 
        q^147 + q^150 - q^165 + q^174 - q^192 + q^204 - q^222 + q^240 + q^243 - 
        q^255 + q^282 - q^291 + O(q^298),
    q^4 + q^11 + q^17 - q^19 - q^20 - q^22 - q^25 - q^29 - q^34 + q^36 + q^37 + 
        q^38 - q^40 - q^47 + q^50 + q^58 - q^64 - q^74 + q^94 + q^95 - q^97 + 
        q^99 + q^100 + q^103 - q^124 + q^125 - q^139 + q^145 + q^152 + q^153 - 
        q^155 + q^160 - q^171 - q^172 - q^173 - q^180 - q^190 - q^191 + q^194 + 
        q^196 - q^198 + q^200 - q^206 - q^209 - q^215 + q^223 - q^225 + q^227 - 
        q^229 + q^232 + q^235 - q^236 + q^239 + q^241 - q^248 - q^250 - q^261 + 
        q^269 + q^278 - q^290 - q^295 + O(q^298),
    q^5 - q^11 + q^16 - q^17 - q^20 + q^31 - q^32 - q^37 + q^43 + q^44 + q^45 - 
        q^55 + q^59 + q^68 - q^85 - q^88 - q^99 - q^103 + q^121 - q^124 + q^127 
        - q^136 + q^137 + q^144 + q^148 + q^152 - q^153 - q^172 - q^180 - q^185 
        + q^187 + q^193 + q^200 + q^209 + q^220 - q^223 - q^227 + q^232 - q^236 
        - q^239 - q^241 + q^245 - q^269 + q^279 - q^288 + q^289 - q^296 + 
        O(q^298),
    q^6 + q^54 - q^60 - q^66 - q^102 - q^120 + q^150 - q^192 - q^222 + q^228 + 
        q^240 + q^264 + q^294 + O(q^298),
    q^8 + q^11 - q^16 + q^17 - q^19 - q^25 - q^29 + q^32 + q^37 - q^40 - q^44 - 
        q^47 - q^64 - q^68 + q^72 + q^76 + q^88 + q^95 - q^97 + q^99 + q^100 + 
        q^103 + q^116 + q^125 + q^136 - q^139 - q^144 + q^145 - q^148 - q^152 + 
        q^153 - q^155 - q^171 - q^173 - q^176 + q^188 - q^191 - q^209 - q^215 + 
        q^223 - q^225 + q^227 - q^229 - q^232 + q^235 + q^239 + q^241 - q^248 - 
        q^261 + q^269 - q^272 + q^288 - q^295 + q^296 + O(q^298),
    q^10 + q^11 + q^17 - q^19 - q^22 - q^25 - q^29 + q^32 - q^34 + q^37 - q^40 -
        q^47 + q^62 - q^64 - q^74 + q^86 + q^88 + q^90 + q^95 - q^97 + q^99 + 
        q^103 - q^110 + q^118 + q^125 + q^136 - q^139 + q^145 + q^153 - q^155 - 
        q^170 - q^171 - q^173 - q^176 - q^191 - q^198 - q^206 - q^209 - q^215 + 
        q^223 - q^225 + q^227 - q^229 + q^235 + q^239 + q^241 + q^242 - q^248 + 
        q^254 - q^261 + q^269 - q^272 + q^274 + q^288 - q^295 + q^296 + 
        O(q^298),
    q^12 + q^33 + q^51 - q^57 - q^60 - q^66 - q^75 - q^87 - q^102 + q^108 + 
        q^111 + q^114 - q^120 - q^141 + q^150 + q^174 - q^192 - q^222 + q^282 + 
        q^285 - q^291 + q^297 + O(q^298),
    q^15 - q^33 + q^48 - q^51 - q^60 + q^93 - q^96 - q^111 + q^129 + q^132 + 
        q^135 - q^165 + q^177 + q^204 - q^255 - q^264 - q^297 + O(q^298),
    q^24 + q^33 - q^48 + q^51 - q^57 - q^75 - q^87 + q^96 + q^111 - q^120 - 
        q^132 - q^141 - q^192 - q^204 + q^216 + q^228 + q^264 + q^285 - q^291 + 
        q^297 + O(q^298),
    q^30 + q^33 + q^51 - q^57 - q^66 - q^75 - q^87 + q^96 - q^102 + q^111 - 
        q^120 - q^141 + q^186 - q^192 - q^222 + q^258 + q^264 + q^270 + q^285 - 
        q^291 + q^297 + O(q^298)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
907
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
906
);
qprec:=
151
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
907
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
302
);
qprec:=
151
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
907
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
151*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
151
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
907
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
453*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
151
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^13 + q^16 - q^19 - q^23 + q^25 + q^36 - q^41 + q^49 - q^52
        - q^53 + q^64 - q^71 - q^76 + q^81 - q^89 - q^92 + q^100 - q^107 - q^109
        - q^117 + q^121 - q^139 + q^144 + O(q^151)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
908
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
224
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
908
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
226
);
qprec:=
224
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
908
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
226
);
qprec:=
224
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
908
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
113*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
224
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^11 + q^21 + q^25 - q^27 - q^47 + q^49 - q^59 - q^63 - q^69 + q^73 - 
        q^77 - q^79 - q^101 + q^103 - q^113 + q^121 - q^129 - q^133 - q^139 - 
        q^141 - q^147 + q^159 - q^167 + q^169 + q^181 - q^203 + q^207 + q^209 + 
        O(q^224),
    q^3 - q^21 - q^23 + q^27 - q^43 - q^49 + q^75 + q^77 + q^81 - q^89 + q^97 - 
        q^99 + q^109 + q^141 + q^147 - q^159 + q^161 - q^171 - q^173 - q^177 - 
        q^189 - q^207 + q^209 + O(q^224),
    q^7 - q^11 - q^21 + q^33 + q^53 - q^57 + q^63 + q^69 - q^73 - q^87 - q^99 - 
        q^103 + q^129 + q^131 + q^147 - q^159 + q^161 + q^171 + q^175 - q^181 - 
        q^189 - q^207 - q^209 - q^213 + q^219 + O(q^224),
    q^9 - q^11 - q^21 + q^27 + q^47 - q^57 - q^73 + q^79 + q^81 - q^87 - q^99 + 
        q^101 - q^103 + q^133 + q^139 + q^141 - q^159 - q^181 - q^189 + q^203 - 
        q^207 - q^209 - q^213 + O(q^224),
    q^19 - q^21 - q^23 + q^29 + q^33 - q^43 - q^49 + q^63 + q^71 - q^89 - q^99 +
        q^121 + q^133 - q^159 - q^173 + q^203 + q^219 + O(q^224)
]
;
Bo:=
[
    q - q^7 - q^11 - q^21 + q^25 - q^27 - q^33 - q^47 + q^49 - q^53 + q^57 + 
        2*q^59 + q^63 + q^69 - q^73 + 2*q^77 - q^79 + q^87 + q^99 - q^101 - 
        q^103 + 2*q^113 + q^121 + q^129 - q^131 - q^133 - q^139 - q^141 + q^147 
        - q^159 - q^161 + 2*q^167 + q^169 - q^171 - q^175 - q^181 + q^189 - 
        q^203 - q^207 - q^209 + q^213 - q^219 + O(q^224),
    q^2 + q^8 - q^14 - q^22 + q^32 - q^42 + q^50 - q^54 - q^56 - q^66 - q^88 - 
        q^94 + q^98 - q^106 + q^114 + 2*q^118 + q^126 + q^128 + q^138 - q^146 + 
        2*q^154 - q^158 - q^168 + q^174 + q^198 + q^200 - q^202 - q^206 - q^216 
        + O(q^224),
    q^3 - q^7 - q^9 - q^11 + q^19 + q^23 + q^29 + q^43 - q^47 + q^49 - q^53 - 
        q^57 - q^69 + q^71 - q^73 + q^75 + q^77 - q^79 - q^87 + q^89 + q^97 - 
        q^101 - q^103 + q^109 + q^121 - q^129 - q^131 - q^139 + q^171 + q^173 - 
        q^175 + 2*q^177 - q^181 + q^189 + q^207 - q^213 + O(q^224),
    q^4 + q^16 - q^28 - q^44 + q^64 - q^84 + q^100 - q^108 - q^112 - q^132 - 
        q^176 - q^188 + q^196 - q^212 + O(q^224),
    q^6 - q^14 - q^18 - q^22 + q^24 + q^38 + q^46 - q^56 + q^58 - q^72 + q^86 - 
        q^88 - q^94 + q^96 + q^98 - q^106 - q^114 - q^138 + q^142 - q^146 + 
        q^150 + q^152 + q^154 - q^158 - q^174 + q^178 + q^184 + q^194 - q^202 - 
        q^206 + q^218 + O(q^224),
    q^12 - q^28 - q^36 - q^44 + q^48 + q^76 + q^92 - q^112 + q^116 - q^144 + 
        q^172 - q^176 - q^188 + q^192 + q^196 - q^212 + O(q^224)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
100
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
300
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
150
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
50
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
150
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
50
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 20*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 20*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
25*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 25*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 50*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
909
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 50*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^19 - q^22 + q^25 - q^37 + q^49 - q^52 - q^58 + q^76 - q^79 + q^82 + 
        q^88 + q^106 + q^118 + q^121 - q^124 + q^148 - q^157 + q^166 - q^172 - 
        q^178 - q^181 - q^193 + O(q^198),
    q^2 - q^11 - q^26 - q^29 + q^41 + q^50 + q^53 + q^59 - q^62 + q^83 - q^86 - 
        q^89 + q^98 - q^104 - q^128 + q^152 + q^164 - q^167 - q^173 + q^191 - 
        q^194 + O(q^198),
    q^3 + q^27 - q^57 - q^66 - q^72 + q^75 - q^99 - q^111 + q^147 - q^156 - 
        q^174 + O(q^198),
    q^4 - q^13 + q^19 - q^31 + q^37 - q^43 - q^52 - q^64 + q^79 + q^82 - q^88 - 
        q^97 + q^100 + q^106 + q^118 - q^121 - q^124 + q^157 + q^166 + q^169 - 
        q^172 + q^181 + q^193 + q^196 + O(q^198),
    q^6 - q^33 - q^36 + q^54 - q^78 - q^87 + q^117 + q^123 + q^150 + q^159 - 
        q^171 + q^177 - q^186 + O(q^198),
    q^8 + q^11 - q^26 + q^29 - q^32 + q^38 - q^44 - q^62 + q^74 - q^86 + q^89 - 
        q^101 - 2*q^113 - q^116 + q^143 - 2*q^149 - q^152 + q^158 + q^164 + 
        q^167 + q^173 - q^194 + O(q^198),
    q^9 - q^24 - q^33 + q^78 + q^81 - q^87 + q^96 - q^114 + q^132 - q^171 + 
        q^186 + O(q^198),
    q^12 - q^18 - q^39 + q^57 - q^93 + q^99 + q^108 + q^111 - q^129 - q^156 - 
        q^162 - q^192 + O(q^198)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 5*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^4 - 2*a*q^9 + (-a - 1)*q^15 + (a - 1)*q^16 + (2*a - 1)*q^21 - q^25 +
        (-a + 1)*q^29 + a*q^35 + (-2*a + 2)*q^36 + (2*a - 1)*q^39 + (-a + 
        1)*q^49 + 3*q^51 + (-2*a + 1)*q^60 - q^64 + a*q^65 + (a - 2)*q^71 - q^79
        + (a - 1)*q^81 + (a - 2)*q^84 + (-a + 2)*q^85 + (-a + 1)*q^91 - a*q^100 
        + (2*a - 1)*q^109 + q^116 + (-a - 1)*q^119 - a*q^121 + (2*a - 1)*q^135 +
        (a - 1)*q^140 + (-a - 1)*q^141 + 2*q^144 + (-a + 2)*q^149 + (a - 
        2)*q^156 + (-a + 1)*q^169 + (-a + 1)*q^179 + (-a + 2)*q^189 - a*q^191 + 
        q^196 + 3*a*q^204 + (a - 1)*q^211 + (a + 1)*q^219 + (-a - 1)*q^221 + 
        2*a*q^225 - q^235 + (-2*a + 1)*q^239 + (-a + 2)*q^240 + (-a - 1)*q^249 -
        a*q^256 + (a - 1)*q^260 - 2*q^261 + (2*a - 1)*q^281 + (-a - 1)*q^284 + 
        (2*a - 2)*q^289 + (-2*a + 1)*q^291 + (3*a - 3)*q^309 + (-2*a + 2)*q^315 
        - a*q^316 + O(q^322),
    q^2 + a*q^8 - 2*a*q^18 + (-a - 1)*q^30 + (a - 1)*q^32 + (2*a - 1)*q^42 - 
        q^50 + (-a + 1)*q^58 + a*q^70 + (-2*a + 2)*q^72 + (2*a - 1)*q^78 + (-a +
        1)*q^98 + 3*q^102 + (-2*a + 1)*q^120 - q^128 + a*q^130 + (a - 2)*q^142 -
        q^158 + (a - 1)*q^162 + (a - 2)*q^168 + (-a + 2)*q^170 + (-a + 1)*q^182 
        - a*q^200 + (2*a - 1)*q^218 + q^232 + (-a - 1)*q^238 - a*q^242 + (2*a - 
        1)*q^270 + (a - 1)*q^280 + (-a - 1)*q^282 + 2*q^288 + (-a + 2)*q^298 + 
        (a - 2)*q^312 + O(q^322),
    q^3 + 1/3*(-a + 2)*q^5 + 1/3*(-a - 1)*q^7 + a*q^12 + 1/3*(-a - 1)*q^13 + (a 
        - 1)*q^17 + 1/3*(a + 1)*q^20 - a*q^27 + 1/3*(-2*a + 1)*q^28 + 1/3*(-2*a 
        - 2)*q^45 + 1/3*(-a + 2)*q^47 + (a - 1)*q^48 + 1/3*(-2*a + 1)*q^52 + 
        1/3*(4*a - 2)*q^63 - q^68 + 1/3*(a - 2)*q^73 - q^75 + 1/3*(2*a - 1)*q^80
        + 1/3*(-a + 2)*q^83 + (-a + 1)*q^87 + 1/3*(a + 1)*q^97 - a*q^103 + 
        a*q^105 + (-a + 1)*q^108 + 1/3*(-a + 2)*q^112 + 1/3*(4*a - 2)*q^117 + 
        1/3*(a - 2)*q^125 + 1/3*(-2*a + 1)*q^145 + (-a + 1)*q^147 + 2*q^153 + 
        a*q^157 + 1/3*(-2*a + 1)*q^167 + 1/3*(a + 1)*q^175 + 1/3*(-4*a + 
        2)*q^180 + 1/3*(a + 1)*q^188 - q^192 + a*q^195 + 1/3*(a - 2)*q^203 + 
        1/3*(-a + 2)*q^208 + (a - 2)*q^213 + 1/3*(2*a - 1)*q^223 + 1/3*(2*a + 
        2)*q^227 - q^237 + 1/3*(-2*a + 1)*q^245 + 1/3*(2*a - 4)*q^252 + (-a + 
        2)*q^255 - a*q^272 + (-a + 1)*q^273 + 1/3*(-a - 1)*q^292 + 1/3*(-a - 
        1)*q^293 - a*q^300 + 1/3*(2*a - 4)*q^307 + 1/3*(a - 2)*q^320 + O(q^322),
    q^6 + 1/3*(-a + 2)*q^10 + 1/3*(-a - 1)*q^14 + a*q^24 + 1/3*(-a - 1)*q^26 + 
        (a - 1)*q^34 + 1/3*(a + 1)*q^40 - a*q^54 + 1/3*(-2*a + 1)*q^56 + 
        1/3*(-2*a - 2)*q^90 + 1/3*(-a + 2)*q^94 + (a - 1)*q^96 + 1/3*(-2*a + 
        1)*q^104 + 1/3*(4*a - 2)*q^126 - q^136 + 1/3*(a - 2)*q^146 - q^150 + 
        1/3*(2*a - 1)*q^160 + 1/3*(-a + 2)*q^166 + (-a + 1)*q^174 + 1/3*(a + 
        1)*q^194 - a*q^206 + a*q^210 + (-a + 1)*q^216 + 1/3*(-a + 2)*q^224 + 
        1/3*(4*a - 2)*q^234 + 1/3*(a - 2)*q^250 + 1/3*(-2*a + 1)*q^290 + (-a + 
        1)*q^294 + 2*q^306 + a*q^314 + O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 3*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^4 - 2*a*q^11 + a*q^15 - a*q^16 - q^21 + q^25 + a*q^29 + (a - 
        1)*q^35 - q^39 + 2*q^44 - a*q^49 + q^51 - q^60 + q^64 + (a - 1)*q^65 + 
        (-a + 1)*q^71 - q^79 + a*q^81 + (-a + 1)*q^84 + (-a + 1)*q^85 - a*q^91 +
        (a - 1)*q^100 - q^109 - q^116 + a*q^119 + (3*a - 3)*q^121 + q^135 - 
        a*q^140 - a*q^141 + (-a + 1)*q^149 + 2*q^151 + (-a + 1)*q^156 + (-2*a + 
        2)*q^165 - a*q^169 + (2*a - 2)*q^176 + a*q^179 + (a - 1)*q^189 + (-a + 
        1)*q^191 + q^196 + (a - 1)*q^204 + a*q^211 - a*q^219 + a*q^221 + 
        2*a*q^231 - q^235 - q^239 + (-a + 1)*q^240 - a*q^249 + (a - 1)*q^256 - 
        a*q^260 - 2*a*q^275 - q^281 + a*q^284 + q^291 - a*q^309 + (-a + 1)*q^316
        + (-2*a + 2)*q^319 + O(q^322),
    q^2 + (a - 1)*q^8 - 2*a*q^22 + a*q^30 - a*q^32 - q^42 + q^50 + a*q^58 + (a -
        1)*q^70 - q^78 + 2*q^88 - a*q^98 + q^102 - q^120 + q^128 + (a - 1)*q^130
        + (-a + 1)*q^142 - q^158 + a*q^162 + (-a + 1)*q^168 + (-a + 1)*q^170 - 
        a*q^182 + (a - 1)*q^200 - q^218 - q^232 + a*q^238 + (3*a - 3)*q^242 + 
        q^270 - a*q^280 - a*q^282 + (-a + 1)*q^298 + 2*q^302 + (-a + 1)*q^312 + 
        O(q^322),
    q^3 + (-a + 1)*q^5 + a*q^7 + (a - 1)*q^12 + a*q^13 - a*q^17 + a*q^20 + (-a +
        1)*q^27 - q^28 - 2*a*q^33 + (a - 1)*q^47 - a*q^48 - q^52 - 2*q^55 + q^68
        + (a - 1)*q^73 + q^75 + (-2*a + 2)*q^77 - q^80 + (a - 1)*q^83 + a*q^87 -
        a*q^97 + (a - 1)*q^103 + (a - 1)*q^105 + a*q^108 + (-a + 1)*q^112 + (-a 
        + 1)*q^125 + 2*q^132 + (-2*a + 2)*q^143 + q^145 - a*q^147 + (a - 
        1)*q^157 + q^167 + 2*a*q^173 + a*q^175 + (2*a - 2)*q^187 - a*q^188 + 
        q^192 + (a - 1)*q^195 + (a - 1)*q^203 + (-a + 1)*q^208 + (-a + 1)*q^213 
        + (-2*a + 2)*q^220 + q^223 + 2*a*q^227 - q^237 - q^245 + (-a + 1)*q^255 
        - 2*q^257 + (a - 1)*q^272 - a*q^273 - 2*q^283 - a*q^292 - a*q^293 - 
        2*q^297 + (a - 1)*q^300 + (-2*a + 2)*q^307 + 2*a*q^308 + (-2*a + 
        2)*q^313 + (-a + 1)*q^320 + O(q^322),
    q^6 + (-a + 1)*q^10 + a*q^14 + (a - 1)*q^24 + a*q^26 - a*q^34 + a*q^40 + (-a
        + 1)*q^54 - q^56 - 2*a*q^66 + (a - 1)*q^94 - a*q^96 - q^104 - 2*q^110 + 
        q^136 + (a - 1)*q^146 + q^150 + (-2*a + 2)*q^154 - q^160 + (a - 1)*q^166
        + a*q^174 - a*q^194 + (a - 1)*q^206 + (a - 1)*q^210 + a*q^216 + (-a + 
        1)*q^224 + (-a + 1)*q^250 + 2*q^264 + (-2*a + 2)*q^286 + q^290 - a*q^294
        + (a - 1)*q^314 + O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
910
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + 1/3*q^25 + 1/3*q^29 - q^30 - 1/3*q^35 - 1/3*q^39 + 1/3*q^49 - 2/3*q^51 -
        2/3*q^56 - 1/3*q^64 - 1/3*q^65 - q^74 + 1/3*q^79 + 1/3*q^81 - 1/3*q^91 -
        1/3*q^95 + 2/3*q^100 - 1/3*q^105 - 1/3*q^116 + 2/3*q^120 + q^121 + q^126
        + q^134 + 1/3*q^140 - 2/3*q^144 - 1/3*q^155 + 1/3*q^156 + 1/3*q^169 + 
        q^170 + 1/3*q^179 + q^186 - q^191 + 2/3*q^196 - 1/3*q^204 - 1/3*q^205 - 
        q^211 - 1/3*q^221 + 2/3*q^224 + 2/3*q^225 + 2/3*q^235 - 1/3*q^256 - 
        1/3*q^259 + 1/3*q^260 - 5/3*q^261 - q^274 - 1/3*q^295 + 2/3*q^296 - 
        2/3*q^309 + 1/3*q^315 - 4/3*q^316 + O(q^322),
    q^2 - 1/3*q^28 + 1/3*q^32 + 1/3*q^50 + 1/3*q^58 - 2/3*q^60 - 1/3*q^70 - 
        1/3*q^72 - 1/3*q^78 + 1/3*q^98 - 2/3*q^102 - 2/3*q^112 - 2/3*q^128 - 
        1/3*q^130 - 2/3*q^148 + 1/3*q^158 + 1/3*q^162 - 1/3*q^182 - 1/3*q^190 + 
        2/3*q^200 - 1/3*q^210 + 1/3*q^228 + 1/3*q^240 + q^242 + 2/3*q^252 - 
        1/3*q^260 + q^268 + 1/3*q^280 - 1/3*q^288 - 1/3*q^310 + 2/3*q^312 + 
        O(q^322),
    q^3 + q^21 - q^24 + 2/3*q^25 + q^26 + q^27 - 2/3*q^28 - 1/3*q^29 + q^30 + 
        q^31 - 4/3*q^32 - 2/3*q^35 - q^36 + 1/3*q^39 - q^40 + q^42 - 2*q^45 - 
        2*q^47 + 2/3*q^49 + 2/3*q^50 - 1/3*q^51 - 1/3*q^56 + q^57 - 1/3*q^58 + 
        q^59 - 1/3*q^60 + q^62 - q^63 - 2/3*q^64 - 2/3*q^65 + q^67 - q^68 + 
        1/3*q^70 + 1/3*q^72 + 2*q^73 + q^74 + q^75 + 1/3*q^78 - 4/3*q^79 + q^80 
        - 1/3*q^81 - 2*q^83 - q^84 + q^85 - 2*q^87 + q^89 - 2*q^90 - 2/3*q^91 - 
        q^93 - 2*q^94 - 2/3*q^95 + q^96 + 2*q^97 + 2/3*q^98 - 2/3*q^100 - 
        1/3*q^102 - q^104 + 1/3*q^105 - q^108 - 2*q^111 + 5/3*q^112 + q^114 + 
        4/3*q^116 - 2*q^117 + q^118 - 2/3*q^120 + q^123 - q^124 - 2*q^125 - 
        2*q^126 + 2/3*q^128 - 2/3*q^130 + q^135 + q^136 + 2/3*q^140 + 5/3*q^144 
        + 3*q^145 + 2*q^146 + q^147 - 1/3*q^148 + 2*q^152 - q^153 + 1/3*q^155 + 
        2/3*q^156 + q^157 - 4/3*q^158 - 1/3*q^162 - 2*q^166 + 2*q^167 - 2*q^168 
        + 2/3*q^169 - q^171 + q^173 - 2*q^175 - q^177 + q^178 - 4/3*q^179 + 
        2*q^180 - 2/3*q^182 + q^185 - 2*q^186 + 2*q^188 + q^189 - 2/3*q^190 + 
        q^191 + q^192 + q^193 + 2*q^194 + q^195 - 2/3*q^196 - 2/3*q^200 + q^201 
        + 2*q^203 + 1/3*q^204 - 2/3*q^205 + 2*q^208 + 1/3*q^210 + q^217 - 
        2/3*q^221 - 2*q^222 - 2*q^223 + 4/3*q^224 - 2/3*q^225 - 2*q^227 - 
        1/3*q^228 - q^234 - 2/3*q^235 - q^236 + q^237 + 2/3*q^240 - q^243 - 
        2*q^245 + q^246 + q^247 - 2*q^248 - 2*q^250 + 4/3*q^252 + q^255 + 
        1/3*q^256 - 2*q^257 + 1/3*q^259 + 2/3*q^261 - q^267 + q^270 - 2*q^271 - 
        q^272 + q^274 + 2*q^279 - 1/3*q^280 + q^285 + 1/3*q^288 + q^289 + 
        3*q^290 - 2*q^292 - 2*q^293 + 1/3*q^295 - 2/3*q^296 - q^304 - 2*q^307 - 
        1/3*q^309 + 1/3*q^310 - 2/3*q^312 + q^313 - 4/3*q^315 + 1/3*q^316 - 
        2*q^317 - q^320 + O(q^322),
    q^4 - q^30 - q^56 - q^74 + q^100 + q^126 + q^134 - q^144 + q^170 + q^186 + 
        q^196 - q^204 - q^256 - q^274 - q^316 + O(q^322),
    q^5 - q^21 - q^26 - q^31 + q^34 + q^45 + q^54 - q^59 - q^70 - 2*q^76 + q^80 
        + 2*q^84 - q^89 + q^91 - q^96 - q^104 + 2*q^111 + 2*q^124 + q^125 + 
        q^136 - q^145 - 2*q^164 + q^171 - q^174 - 2*q^180 - q^189 - q^195 - 
        q^201 + q^206 + q^216 + 2*q^236 + q^245 - q^255 + q^266 + 2*q^271 - 
        2*q^279 - q^280 - q^306 - q^320 + O(q^322),
    q^6 - q^24 - q^26 + q^54 - q^70 - q^76 + q^80 + q^84 + q^124 + q^136 + q^150
        - q^164 - 2*q^174 - q^180 - q^234 + q^236 + q^294 - q^306 + q^314 - 
        q^320 + O(q^322),
    q^7 - 1/3*q^28 + 4/3*q^32 - 2/3*q^50 - q^57 + 1/3*q^58 + 1/3*q^60 + q^65 - 
        q^67 - 1/3*q^70 - 1/3*q^72 - 1/3*q^78 - q^85 + q^93 - 2/3*q^98 + 
        1/3*q^102 - 2/3*q^112 - q^123 - 2/3*q^128 - 1/3*q^130 - q^135 + 
        1/3*q^148 + 4/3*q^158 + 1/3*q^162 + q^175 + q^177 - 1/3*q^182 + 
        2/3*q^190 - q^193 + 2/3*q^200 - 1/3*q^210 + 1/3*q^228 - 2/3*q^240 - 
        q^247 - 1/3*q^252 - 1/3*q^260 + q^267 + 1/3*q^280 - 1/3*q^288 - 
        1/3*q^310 + 2/3*q^312 + 2*q^317 + O(q^322),
    q^8 - 2/3*q^28 - 1/3*q^32 + 2/3*q^50 - 1/3*q^58 - 1/3*q^60 + 1/3*q^70 - 
        2/3*q^72 + 1/3*q^78 + 2/3*q^98 - 1/3*q^102 - 1/3*q^112 - 1/3*q^128 + 
        1/3*q^130 - 1/3*q^148 - 4/3*q^158 - 1/3*q^162 + 1/3*q^182 - 2/3*q^190 + 
        1/3*q^200 + 1/3*q^210 + 2/3*q^228 + q^232 - 1/3*q^240 + 1/3*q^252 - 
        2/3*q^260 + q^268 - 1/3*q^280 + 1/3*q^288 + 1/3*q^310 + 1/3*q^312 + 
        O(q^322),
    q^9 + 2/3*q^25 - 4/3*q^29 + 1/3*q^35 - q^36 - 2/3*q^39 + 2/3*q^49 - 1/3*q^51
        - 1/3*q^56 + 1/3*q^64 + 1/3*q^65 - 1/3*q^79 - 1/3*q^81 + 1/3*q^91 + 
        1/3*q^95 - 2/3*q^100 - 2/3*q^105 + 4/3*q^116 + 1/3*q^120 - 1/3*q^140 + 
        2/3*q^144 - 2/3*q^155 + 2/3*q^156 + 2/3*q^169 - 1/3*q^179 - 2/3*q^196 + 
        1/3*q^204 + 1/3*q^205 + q^211 + 1/3*q^221 + 1/3*q^224 + 1/3*q^225 - 
        2/3*q^235 - 2/3*q^256 - 2/3*q^259 - 1/3*q^260 - 1/3*q^261 - 2/3*q^295 + 
        1/3*q^296 - 1/3*q^309 - 1/3*q^315 + 1/3*q^316 + O(q^322),
    q^10 + 2/3*q^25 + q^26 - 1/3*q^29 + q^30 + 1/3*q^35 - q^36 + 1/3*q^39 - q^40
        + 2/3*q^49 - 1/3*q^51 - 1/3*q^56 - 2/3*q^64 + 1/3*q^65 + q^74 - 4/3*q^79
        - 1/3*q^81 - q^90 + 1/3*q^91 - 2*q^94 - 2/3*q^95 - 2/3*q^100 - q^104 + 
        1/3*q^105 + q^114 + 4/3*q^116 - 2/3*q^120 - 2*q^126 - q^130 - 1/3*q^140 
        + 5/3*q^144 + 2*q^146 + 1/3*q^155 + 2/3*q^156 + q^160 - 2*q^166 + 
        2/3*q^169 - 4/3*q^179 - 2*q^186 + q^191 + 2*q^194 - 2/3*q^196 + 
        1/3*q^204 - 2/3*q^205 - 2/3*q^221 + 4/3*q^224 - 2/3*q^225 - q^234 - 
        2/3*q^235 + q^246 - q^250 + 1/3*q^256 + 1/3*q^259 - 1/3*q^260 + 
        2/3*q^261 + q^270 + q^274 + q^289 + 2*q^290 + 1/3*q^295 - 2/3*q^296 - 
        1/3*q^309 - 1/3*q^315 + 1/3*q^316 + O(q^322),
    q^12 + 2/3*q^25 + q^26 - 1/3*q^29 + q^30 + 1/3*q^35 - q^36 + 1/3*q^39 - q^40
        + q^42 - q^48 + 2/3*q^49 - 1/3*q^51 - 1/3*q^56 + q^62 - 2/3*q^64 + 
        1/3*q^65 - q^68 + q^74 - 4/3*q^79 - 1/3*q^81 - 2*q^90 + 1/3*q^91 - 
        2*q^94 - 2/3*q^95 - 2/3*q^100 - q^104 + 1/3*q^105 + q^114 + 4/3*q^116 + 
        q^118 - 2/3*q^120 - 2*q^126 - q^130 - 1/3*q^140 + 5/3*q^144 + 2*q^146 + 
        q^152 + 1/3*q^155 + 2/3*q^156 + q^160 - 2*q^166 - q^168 + 2/3*q^169 + 
        q^178 - 4/3*q^179 - q^182 - 2*q^186 + q^191 + q^192 + 2*q^194 - 
        2/3*q^196 + 1/3*q^204 - 2/3*q^205 + q^208 - 2/3*q^221 - 2*q^222 + 
        4/3*q^224 - 2/3*q^225 - q^234 - 2/3*q^235 + q^246 - q^248 - 2*q^250 + 
        1/3*q^256 + 1/3*q^259 - 1/3*q^260 + 2/3*q^261 + q^270 + q^274 + q^289 + 
        3*q^290 + 1/3*q^295 - 2/3*q^296 + q^300 - 1/3*q^309 - 1/3*q^315 + 
        1/3*q^316 + O(q^322),
    q^13 + q^21 - q^24 - 2/3*q^28 + q^31 - 4/3*q^32 - 2*q^45 - 2*q^47 + 2/3*q^50
        - q^52 + q^57 - 1/3*q^58 + q^59 - 1/3*q^60 - q^63 - q^65 + q^67 + 
        1/3*q^70 + 1/3*q^72 + 2*q^73 + 1/3*q^78 + q^80 - 2*q^83 - q^84 + q^85 + 
        q^89 - q^91 - q^93 + q^96 + 2*q^97 + 2/3*q^98 - 1/3*q^102 - 2*q^111 + 
        5/3*q^112 - q^117 + q^123 - q^124 - 2*q^125 + 2/3*q^128 + 1/3*q^130 + 
        q^135 + q^136 + 3*q^145 - 1/3*q^148 - 4/3*q^158 - 1/3*q^162 + 2*q^167 - 
        q^171 - 2*q^175 - q^177 + 2*q^180 + 1/3*q^182 + 2*q^188 + q^189 - 
        2/3*q^190 + q^193 + q^195 - 2/3*q^200 + q^201 + 2*q^203 + q^208 + 
        1/3*q^210 - 2*q^223 - 2*q^227 - 1/3*q^228 - q^236 + 2/3*q^240 - 2*q^245 
        + q^247 + 4/3*q^252 + q^255 + 1/3*q^260 - q^267 - 2*q^271 + 2*q^279 - 
        1/3*q^280 + 1/3*q^288 - 2*q^292 - 2*q^293 - q^304 - 2*q^307 + 1/3*q^310 
        - 2/3*q^312 - 2*q^317 - q^320 + O(q^322),
    q^14 - 2/3*q^25 + 1/3*q^29 - q^30 - 1/3*q^35 + q^36 - 1/3*q^39 - 2/3*q^49 + 
        1/3*q^51 - 2/3*q^56 + 2/3*q^64 - 1/3*q^65 - q^74 + 4/3*q^79 + 1/3*q^81 -
        1/3*q^91 + 2/3*q^95 + 2/3*q^100 - 1/3*q^105 - q^114 - 4/3*q^116 + 
        2/3*q^120 + q^126 + q^130 + 1/3*q^140 - 5/3*q^144 - 1/3*q^155 - 
        2/3*q^156 - 2/3*q^169 + 4/3*q^179 + 2*q^186 - q^191 + 2/3*q^196 - 
        1/3*q^204 + 2/3*q^205 + 2/3*q^221 - 1/3*q^224 + 2/3*q^225 + 2/3*q^235 - 
        q^246 - 1/3*q^256 - 1/3*q^259 + 1/3*q^260 - 2/3*q^261 - q^270 - q^274 - 
        q^289 - 1/3*q^295 + 2/3*q^296 + 1/3*q^309 + 1/3*q^315 - 1/3*q^316 + 
        O(q^322),
    q^15 + 2/3*q^28 + 1/3*q^32 + q^37 - 2/3*q^50 + 1/3*q^58 - 2/3*q^60 - q^63 - 
        q^67 - 1/3*q^70 + 2/3*q^72 - 1/3*q^78 - q^85 - q^93 - 2/3*q^98 + 
        1/3*q^102 - 2/3*q^112 + 1/3*q^128 - 1/3*q^130 + q^137 - 2/3*q^148 + 
        4/3*q^158 + 1/3*q^162 + q^163 - q^177 - 1/3*q^182 + 2/3*q^190 - q^193 + 
        q^197 + 2/3*q^200 + q^203 - 1/3*q^210 - 2/3*q^228 - q^232 + 1/3*q^240 - 
        q^247 + 2/3*q^252 + 2/3*q^260 - q^267 + q^273 + 1/3*q^280 - 4/3*q^288 - 
        1/3*q^310 - 1/3*q^312 + O(q^322),
    q^16 - 2/3*q^25 + 1/3*q^29 - 1/3*q^35 - 1/3*q^39 - 2/3*q^49 + 1/3*q^51 - 
        2/3*q^56 - 1/3*q^64 - 1/3*q^65 + 4/3*q^79 + 1/3*q^81 - 1/3*q^91 + 
        2/3*q^95 + 2/3*q^100 - 1/3*q^105 - 1/3*q^116 - 1/3*q^120 + 1/3*q^140 - 
        2/3*q^144 - 1/3*q^155 + 1/3*q^156 - 2/3*q^169 + 4/3*q^179 - q^191 + 
        2/3*q^196 - 1/3*q^204 + 2/3*q^205 + 2/3*q^221 - 1/3*q^224 + 2/3*q^225 + 
        2/3*q^235 - 1/3*q^256 - 1/3*q^259 + 1/3*q^260 - 2/3*q^261 - q^289 - 
        1/3*q^295 - 1/3*q^296 + 1/3*q^309 + 1/3*q^315 - 4/3*q^316 + O(q^322),
    q^17 + q^21 - q^24 + q^27 - 2/3*q^28 + q^31 - 4/3*q^32 - q^35 - q^40 - 
        2*q^45 - 2*q^47 + q^48 + 2/3*q^50 + q^57 - 1/3*q^58 + q^59 - 1/3*q^60 - 
        q^63 - q^65 + q^67 - q^68 + 1/3*q^70 + 1/3*q^72 + 2*q^73 + 1/3*q^78 + 
        q^80 - 2*q^83 - q^84 + q^85 - q^87 + q^89 - q^91 - q^93 + q^96 + 2*q^97 
        + 2/3*q^98 - 1/3*q^102 + q^103 - q^108 - 2*q^111 + 5/3*q^112 - q^117 + 
        q^123 - q^124 - 2*q^125 + 2/3*q^128 + 1/3*q^130 + q^133 + q^135 + q^136 
        + q^140 + 3*q^145 - 1/3*q^148 + 2*q^152 - q^153 - 4/3*q^158 - q^160 - 
        1/3*q^162 + 2*q^167 - q^168 - q^171 - 2*q^175 - q^177 + 2*q^180 + 
        1/3*q^182 + 2*q^188 + q^189 - 2/3*q^190 + q^193 + q^195 - 2/3*q^200 + 
        q^201 + 2*q^203 + 2*q^208 + 1/3*q^210 - 2*q^223 - 2*q^227 - 1/3*q^228 - 
        q^236 + q^237 + 2/3*q^240 - q^243 - 2*q^245 + q^247 - q^248 + 4/3*q^252 
        + q^255 - 2*q^257 + 1/3*q^260 - q^267 - 2*q^271 - 2*q^272 + 2*q^279 - 
        1/3*q^280 + q^283 + q^285 + q^287 + 1/3*q^288 - 2*q^292 - 2*q^293 - 
        q^304 - 2*q^307 + 1/3*q^310 - 2/3*q^312 - 2*q^317 - q^320 + O(q^322),
    q^18 + 1/3*q^28 - 1/3*q^32 + 2/3*q^50 - 4/3*q^58 - 1/3*q^60 + 1/3*q^70 - 
        2/3*q^72 - 2/3*q^78 + 2/3*q^98 - 1/3*q^102 - 1/3*q^112 + 2/3*q^128 + 
        1/3*q^130 - 1/3*q^148 - 1/3*q^158 - 1/3*q^162 + 1/3*q^182 + 1/3*q^190 - 
        2/3*q^200 - 2/3*q^210 - 1/3*q^228 + q^232 + 2/3*q^240 + 1/3*q^252 + 
        1/3*q^260 - 1/3*q^280 + 1/3*q^288 - 2/3*q^310 + 1/3*q^312 + O(q^322),
    q^19 - q^21 - q^31 + q^41 + q^45 - q^59 - q^76 + q^80 + q^84 - q^89 - q^96 -
        q^104 + q^111 + q^119 + q^124 + q^136 - q^145 - q^164 - q^180 - q^195 + 
        q^216 + q^229 + q^236 + q^241 - q^279 - q^280 - q^304 + O(q^322),
    q^20 - q^24 - q^26 + q^34 + q^54 - q^70 - 2*q^76 + q^80 + q^84 - q^104 + 
        q^124 + 2*q^136 - 2*q^164 - q^174 - q^180 + q^206 + q^216 + q^236 + 
        q^266 - q^280 - q^304 - q^306 - q^320 + O(q^322),
    q^38 - q^40 - q^42 + q^48 + q^52 - q^62 - q^68 + q^82 + q^90 - q^108 - q^118
        + q^140 + q^152 - q^178 - q^192 + q^222 + q^238 - q^272 - q^290 + 
        O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
911
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
910
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
911
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
182
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
911
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
130
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
911
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
911
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
35*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
911
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
65*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
911
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
91*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
911
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
455*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^15 + q^18 + q^20 + q^25 - q^26 - q^30 - q^36 - q^40 + q^46 + q^49 - 
        q^57 + q^61 - q^62 - q^71 - q^75 + q^80 - q^90 - q^92 - q^96 - q^103 + 
        q^113 + q^114 - q^117 - q^120 + q^121 - q^122 - q^123 - q^125 + q^129 + 
        q^135 + q^138 - q^150 + O(q^152),
    q^2 + q^18 - q^30 - q^31 - q^45 - q^48 + q^50 - q^76 - q^81 + q^98 + q^115 +
        q^117 - q^123 + q^129 - q^130 + q^135 + O(q^152),
    q^3 - q^20 - q^25 + q^27 - q^39 - q^54 + q^75 + q^76 - q^82 + q^86 + q^90 - 
        q^107 + q^120 + q^128 + q^147 - q^149 + O(q^152),
    q^4 - q^15 - q^24 + q^36 - q^39 - q^40 + q^43 + q^45 - q^50 - q^53 + q^57 + 
        q^60 + q^64 - q^65 + q^71 - q^73 + q^75 - q^78 + q^89 - q^93 + q^95 + 
        q^100 - q^108 - q^115 + q^117 + q^125 - q^135 + O(q^152),
    q^5 - q^15 - q^18 + q^45 + q^48 - q^52 + q^54 - q^61 + q^82 + q^100 - q^104 
        - q^113 + q^125 - q^129 - q^135 - q^144 + O(q^152),
    q^6 - q^15 - q^18 - q^20 + q^24 + q^39 + q^40 - q^46 + q^50 - q^52 + q^53 + 
        q^54 - q^60 - q^61 - q^72 + q^73 + q^78 - q^80 + q^96 - q^104 + q^108 - 
        q^113 - q^114 + q^115 - q^129 - q^135 - q^138 - q^144 + q^150 + 
        O(q^152),
    q^8 - q^15 - q^18 - q^20 + q^30 + q^31 + q^32 + q^45 - q^46 + q^48 - q^52 - 
        q^60 - q^61 + q^76 - q^80 + q^81 - q^104 - q^113 + q^120 + q^123 + q^124
        + q^128 - q^129 + q^130 - q^135 - q^138 + q^142 - q^144 + q^150 + 
        O(q^152),
    q^9 - q^15 - q^18 - q^20 + q^26 + q^30 + q^36 + q^40 - q^46 - q^60 - q^61 - 
        q^80 + q^81 + q^92 + q^103 - q^113 - q^114 + q^120 + q^122 + q^123 - 
        q^129 - q^135 - q^138 + q^150 + O(q^152),
    q^10 - q^15 - q^18 - q^20 + q^24 + q^27 + q^40 + q^41 - q^46 + q^50 - q^52 -
        q^60 - q^61 - q^72 + q^78 - q^80 + q^90 + q^92 + q^93 + q^96 - q^104 + 
        q^108 - q^113 - q^114 + q^120 - q^129 - q^138 + O(q^152),
    q^12 - q^15 - q^18 + q^25 + q^39 - q^46 + q^48 - q^52 + q^54 - q^60 - q^61 -
        q^72 + q^78 + q^82 + q^100 - q^104 + q^106 + q^107 + q^108 - q^113 - 
        q^114 - q^129 - q^135 - q^138 - q^144 + q^146 + q^149 + O(q^152),
    q^13 - q^15 - q^20 + q^26 + q^36 - q^46 - q^61 + q^75 + q^95 - q^113 - q^114
        + q^117 + q^120 - q^129 - q^135 - q^138 + q^150 + O(q^152),
    q^16 - q^18 - q^20 + q^24 + q^39 + q^40 - q^43 - q^45 - q^46 + q^50 - q^52 +
        q^53 - q^60 - q^61 + q^62 + q^65 - q^72 + q^73 + q^78 - q^80 - q^89 + 
        q^90 + q^93 - q^95 + q^96 - q^104 + q^108 - q^113 - q^114 + q^115 - 
        q^129 - q^138 + O(q^152),
    q^19 - q^20 - q^25 + q^30 + q^32 - q^39 - q^54 + q^65 + q^69 + q^76 - q^78 -
        q^80 - q^82 + q^86 + q^90 - q^100 - q^106 - q^107 + q^120 + q^124 + 
        q^128 + q^130 - q^146 - q^149 + O(q^152),
    q^23 - q^24 - q^27 + q^30 + q^36 - q^41 - q^50 + q^57 + q^69 - q^78 - q^93 +
        q^104 + q^122 - q^135 + O(q^152),
    q^38 - q^39 - q^40 + q^43 + q^45 - q^50 - q^53 + q^60 + q^64 - q^73 - q^78 +
        q^89 + q^95 - q^108 - q^115 + q^130 + q^138 + O(q^152)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^4*q^9 + (-a^5 + a^3 + a^2 - 1)*q^13 + (a^4 - a^3 - a)*q^21 + (-a^4 + 
        a)*q^25 + (-a^5 - a^4)*q^37 + (-a^3 + a^2 - a + 1)*q^49 + a^5*q^57 + 
        (-a^2 - 1)*q^61 + (a^3 + a)*q^73 + (a^5 - a^2)*q^81 + (a - 1)*q^93 + 
        (a^5 - 2*a^2)*q^97 + (a^5 + a^2)*q^109 + (a^3 - a)*q^117 + a^3*q^121 + 
        (-a^5 - a^3 + 1)*q^129 + (a^5 - a^4 - a^2)*q^133 + (-a^3 + a + 1)*q^157 
        + (a^5 - a^4 - a^3 + a)*q^169 + (a^4 - 2*a)*q^181 + (-a^4 - a^2 + 
        a)*q^189 + (a^4 + a^3 - a - 1)*q^193 + (-a^5 - a^4 + a^2)*q^201 + (-a^5 
        + a^4 - a^3 + a^2 - 1)*q^217 + a^2*q^225 + (-a^5 + a^4)*q^229 + (a^3 + 
        a^2 - 1)*q^237 + (-a^5 - 1)*q^241 + (-a^4 + a^3 - a^2)*q^273 + (-a^3 + 
        1)*q^277 - a*q^289 + O(q^298),
    q^3 + (a^5 + a^3 - a^2)*q^7 + a*q^19 + a^4*q^27 + (a^5 - a^3 + 1)*q^31 + 
        (-a^5 + a^3 + a^2 - 1)*q^39 + (-a^2 - a)*q^43 + (a^4 - a^3 - a)*q^63 + 
        (-a^4 - 1)*q^67 + (-a^4 + a)*q^75 + (-a^4 + a^2 + a)*q^79 + (-a^5 + a^4 
        + a^2 - a - 1)*q^91 + (-a^5 - a^3)*q^103 + (-a^5 - a^4)*q^111 - 
        a^5*q^127 + (-a^4 + a^3 - 1)*q^139 + (-a^3 + a^2 - a + 1)*q^147 + (a^4 -
        a)*q^151 + (a^5 - a^3)*q^163 + a^5*q^171 + (a^3 + a - 1)*q^175 + (-a^2 -
        1)*q^183 + (-a^4 - a^3 + a + 1)*q^199 + (-a^5 + a^4 + a^2 - a)*q^211 + 
        (a^3 + a)*q^219 + (a^5 + a^4 - a^2)*q^223 + (a^5 - a^2)*q^243 + (a^4 - a
        + 1)*q^247 + (-a^5 + a^3 + a^2 + a)*q^259 + (a^3 + 1)*q^271 + (a - 
        1)*q^279 + (-a^3 + 2)*q^283 + (a^5 - 2*a^2)*q^291 + O(q^298)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^4*q^9 + (3*a^5 + 3*a^4 + 2*a^3 - a^2 - 2*a - 2)*q^11 + (-3*a^5 - 4*a^4
        - 4*a^3 + 2*a + 2)*q^17 + a*q^19 + (a^4 - a)*q^25 + (a^2 + a)*q^27 + 
        (2*a^5 + 2*a^4 + 2*a^3 + 2*a^2)*q^33 + (-4*a^5 - 4*a^4 - 3*a^3 + 2*a^2 +
        3*a + 4)*q^41 + (a^5 - a^2)*q^43 + (a^3 - 1)*q^49 + (-2*a^5 - 2*a^4 - 
        2*a^3 - 2*a^2 - 2*a - 2)*q^51 + (2*a^5 + a^4 - a^3 - 4*a^2 - 3*a - 
        2)*q^59 + (-a^5 + a^3)*q^67 + (-a^4 - 1)*q^73 + (-a^5 - a^4 + a^2 + a + 
        1)*q^81 + (a^4 + 2*a^3 + a^2)*q^83 + (a^4 + 2*a^3 + 2*a^2 + a)*q^89 + 
        (a^4 - a^3 + 1)*q^97 + (-a^5 + a^3 + 3*a^2 + 2*a + 2)*q^99 + (-2*a^5 - 
        2*a^4 - a^3 + 2*a^2 + 2*a + 2)*q^107 + (2*a^5 + 3*a^4 + 4*a^3 + a^2 - a 
        - 2)*q^113 + (a^5 - a^4 + a^3 - a^2 + a)*q^121 + (-2*a^5 - 4*a^4 - 4*a^3
        - 2*a^2 + 2)*q^123 + (4*a^5 + 4*a^4 + 4*a^3 - a - 3)*q^131 + (a^5 - a^3 
        - 4*a^2 - 4*a - 3)*q^137 + (a^5 + a^3 - a^2 - 1)*q^139 + (2*a^5 + 2*a^4 
        - 4*a^2 - 4*a - 3)*q^153 + (a^2 - a)*q^163 + a^5*q^169 + a^5*q^171 + 
        (4*a^5 + 2*a^4 + 2*a^3 - 2*a^2 - 2*a - 4)*q^177 + (-a^5 + a^4 + 2*a^3 + 
        4*a^2 + 3*a + 2)*q^179 + (a^4 - 2*a^3 - 2*a + 1)*q^187 + (-2*a^5 + 
        a^2)*q^193 + (3*a^5 + 2*a^4 + 2*a^3 - 2*a^2 - 2*a - 3)*q^209 + (-a^5 + 
        2*a^2)*q^211 - a^2*q^225 + (-3*a^5 - 4*a^4 - 4*a^3 - a^2 + a + 2)*q^227 
        + (4*a^5 + 3*a^4 + a^3 - 4*a^2 - 4*a - 4)*q^233 + (-a^3 - a^2)*q^241 + 
        (-a^5 - 2*a^4 - a^3 + a + 1)*q^243 + (2*a + 2)*q^249 + (-a^5 + a^3 + 
        4*a^2 + 4*a + 3)*q^251 + (-a^5 + a^2 + 1)*q^257 + (-2*a^5 + 2*a^2 + 2*a 
        + 2)*q^267 + (-2*a^5 - 2*a^4 - 3*a^3 - a^2 + 1)*q^275 + (-a^5 - a^3 + 
        1)*q^281 + (-a^4 - a^3 + a)*q^283 + 2*a*q^289 + (-3*a^5 - 2*a^4 - a^3 + 
        2*a^2 + 3*a + 2)*q^297 + O(q^298),
    q^2 + 1/2*(-a^4 - a^3 + a + 1)*q^6 - a*q^8 + 1/2*(a^3 - a^2)*q^12 + 
        1/2*(-a^5 - a^3)*q^18 + 1/2*(a^5 + a^4 - a^2 - a)*q^24 + a^2*q^32 + 
        1/2*(a^5 - a^2 + a)*q^36 + a*q^38 + (a^4 - 1)*q^44 + 1/2*(-a^4 + 
        a^3)*q^48 + (a^4 - a)*q^50 + 1/2*(-a^3 - 1)*q^54 + 1/2*(a^5 - a^3 + a^2 
        - a + 1)*q^66 + (-2*a^4 + a)*q^68 + 1/2*(a^4 + a^3 - 1)*q^72 + (a^5 - 
        a^2)*q^86 + 1/2*(-a^5 + a^2 + 1)*q^96 + (a^3 - 1)*q^98 + 1/2*(-2*a^5 + 
        a^3 + a^2 - 2)*q^102 + 1/2*a^2*q^108 + 1/2*(-a^5 - a^4 + a^2 + a)*q^114 
        - a^3*q^128 + 1/2*(a^4 + a^3 + a^2 - 1)*q^132 + (-a^5 + a^3)*q^134 + 
        1/2*(-a^2 + 1)*q^144 + (-a^4 - 1)*q^146 + 1/2*(a^5 + a^4)*q^150 - 
        a^2*q^152 + 1/2*(a^3 - a - 1)*q^162 + (-a^5 - a^3 + a^2 + 1)*q^164 + 
        (-a^5 + a)*q^176 + 1/2*(a^5 - a^4)*q^192 + (a^4 - a^3 + 1)*q^194 + 
        1/2*(a^2 - a + 1)*q^198 + (-a^5 + a^2)*q^200 + 1/2*(-a^5 - a^4 - a^2 - 
        a)*q^204 + 1/2*(a^4 + a)*q^216 + 1/2*(a^4 - a^3)*q^228 + (a^5 - a^3 - 
        a^2)*q^236 + (a^5 - a^4 + a^3 - a^2 + a)*q^242 + 1/2*(a^5 - a^4 - a^2 + 
        1)*q^246 + 1/2*(a^5 + a^3 - 1)*q^258 + 1/2*(a^4 - 2*a^3 + a^2 - a + 
        1)*q^264 + (2*a^5 - a^2)*q^272 + (a^5 + a^3 - a^2 - 1)*q^278 + 1/2*(-a^5
        - a^4 + a)*q^288 + 1/2*(a^4 + a^3)*q^294 + O(q^298),
    q^3 + (-a^4 - a^3 + a + 1)*q^9 + (-2*a^5 - 2*a^4 + 2*a^2 + 4*a + 2)*q^11 + 
        (4*a^5 + 2*a^4 + 2*a^3 - 2*a^2 - 4*a - 4)*q^17 + (-a^5 - a^4 - a^3)*q^27
        + (-3*a^5 - 3*a^4 - 2*a^3 + a^2 + 2*a + 2)*q^33 + (2*a^5 + 2*a^4 - 4*a^2
        - 4*a - 4)*q^41 + (3*a^5 + 4*a^4 + 4*a^3 - 2*a - 2)*q^51 + a*q^57 + 
        (2*a^5 + 2*a^4 + 2*a^3 + 2*a^2 + 2*a)*q^59 + (a^4 - a)*q^75 + (-a^3 - 
        a^2 - a - 1)*q^81 + (-2*a^5 - 2*a^3 + 2)*q^83 + (-2*a^5 - 2*a^4 - 2*a^3 
        + 2)*q^89 + (-a^5 - 2*a^4 - 3*a^3 - a^2 - a + 1)*q^99 + (-2*a^2 - 2*a - 
        2)*q^107 + (-4*a^5 - 2*a^4 - 2*a^3 + 2*a^2 + 2*a + 4)*q^113 + (4*a^5 + 
        4*a^4 + 3*a^3 - 2*a^2 - 3*a - 4)*q^123 + (a^5 - a^2)*q^129 + (-4*a^5 - 
        4*a^4 - 2*a^3 + 4*a^2 + 4*a + 4)*q^131 + (2*a^5 + 4*a^4 + 4*a^3 + 
        2*a^2)*q^137 + (a^3 - 1)*q^147 + (2*a^4 + 3*a^3 + 3*a^2 + 2*a)*q^153 + 
        (-a^5 - a^4 + a^2 + a)*q^171 + (-2*a^5 - a^4 + a^3 + 4*a^2 + 3*a + 
        2)*q^177 + (-2*a^5 - 4*a^4 - 4*a^3 - 2*a^2 + 2)*q^179 + (-a^5 + 
        a^3)*q^201 + (-2*a^5 + 4*a^2 + 2*a + 2)*q^209 + (-a^4 - 1)*q^219 + (a^5 
        + a^4)*q^225 + (4*a^5 + 4*a^4 + 2*a^3 - 2*a^2 - 4*a - 4)*q^227 + (2*a^3 
        + 4*a^2 + 4*a + 2)*q^233 + (a^5 + a^4 + a^3 - a^2 - 2*a - 2)*q^243 + 
        (-a^4 - 2*a^3 - a^2)*q^249 + (-2*a^5 - 4*a^4 - 4*a^3 - 2*a^2)*q^251 - 
        2*a^2*q^257 + (-a^4 - 2*a^3 - 2*a^2 - a)*q^267 + (4*a^5 + 2*a^4 + 2*a^3 
        - 2*a^2 - 2*a - 2)*q^275 + (2*a^5 - 2*a^2)*q^281 + (a^4 - a^3 + 1)*q^291
        + (a^5 - a^3 - 2*a^2 - 3*a - 1)*q^297 + O(q^298),
    q^4 + 1/2*(-a^2 + a)*q^6 + 1/2*(-a^4 - a^3 + a + 1)*q^12 - a*q^16 + 
        1/2*(-a^4 + a - 1)*q^18 + (-a^5 - a^3 + a^2)*q^22 + 1/2*(a^3 - a^2)*q^24
        + (2*a^3 - 1)*q^34 + 1/2*(-a^5 - a^3)*q^36 + 1/2*(a^5 + a^4 - a^2 - 
        a)*q^48 - 1/2*a*q^54 + a^2*q^64 + 1/2*(-a^5 - a^3 - a)*q^66 + 1/2*(a^5 -
        a^2 + a)*q^72 + a*q^76 + (a^5 + a^4 - a)*q^82 + (a^4 - 1)*q^88 + 
        1/2*(-a^4 + a^3)*q^96 + (a^4 - a)*q^100 + 1/2*(a^4 + a^3 + a + 1)*q^102 
        + 1/2*(-a^3 - 1)*q^108 + 1/2*(-a^3 + a^2)*q^114 + (-a^4 + a^2 + a)*q^118
        + 1/2*(a^5 - a^3 + a^2 - a + 1)*q^132 + (-2*a^4 + a)*q^136 + 1/2*(a^4 + 
        a^3 - 1)*q^144 + 1/2*(a^5 - a^2 + 1)*q^150 + 1/2*(a^5 - a)*q^162 + (a^5 
        - a^3 - a^2 + 1)*q^166 + (a^5 - a^2)*q^172 - a^2*q^178 + 1/2*(-a^5 + a^2
        + 1)*q^192 + (a^3 - 1)*q^196 + 1/2*(a^5 - a^4 + a^3 - 2*a^2 - 1)*q^198 +
        1/2*(-2*a^5 + a^3 + a^2 - 2)*q^204 + (a^4 - a)*q^214 + 1/2*a^2*q^216 + 
        (-a^3 - a^2 + 1)*q^226 + 1/2*(-a^5 - a^4 + a^2 + a)*q^228 + 1/2*(a^5 + 
        a^4 + a^3 + a^2)*q^246 - a^3*q^256 + 1/2*(a - 1)*q^258 + (-a^5 - 
        a^4)*q^262 + 1/2*(a^4 + a^3 + a^2 - 1)*q^264 + (-a^5 + a^3)*q^268 + (a +
        1)*q^274 + 1/2*(-a^2 + 1)*q^288 + (-a^4 - 1)*q^292 + 1/2*(-a^5 + a^4 + 
        a^2 - a)*q^294 + O(q^298)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^5 + a^2)*q^9 + (a^5 - a^4 - a^2 + a)*q^11 + a*q^17 + a^2*q^19 - 
        a^5*q^25 + (-a^4 - a^2)*q^27 + (a^3 + a^2 - 1)*q^41 + (a^4 - a)*q^43 - 
        a^3*q^49 + (-a^5 + a^3 - 1)*q^59 + (a^3 - a - 1)*q^67 + (a^5 - a^2 + 
        1)*q^73 + (a^5 + a^4 - a - 1)*q^81 + (a^5 + a^4 - a^2)*q^83 + a^5*q^89 +
        (a^5 - a^3 - a^2)*q^97 + (a^4 - a^3 - a + 1)*q^99 + (-a^3 + 1)*q^107 + 
        (-a^5 + a^4)*q^113 + (-a^5 - a^4 + a^3 + a - 1)*q^121 + (a^2 + 1)*q^131 
        + (-a^3 - a)*q^137 + (-a^4 - a^3 + a)*q^139 + q^153 + (a^4 + a^2)*q^163 
        - a*q^169 + a*q^171 + (-a^5 - a)*q^179 + (-a^5 + a^2 - 1)*q^187 - 
        a^4*q^193 + (-a + 1)*q^209 + a*q^211 - a^4*q^225 + (-a^4 + a^2 + 
        a)*q^227 + (a^5 + a^3 - a^2 - 1)*q^233 + (a^4 + a^3 - 1)*q^241 + (a^3 + 
        a^2 + a)*q^243 + (-a^3 - a)*q^251 + (-a^4 + a + 1)*q^257 + (a^4 - 
        a^3)*q^275 + (-a^3 - a)*q^281 + (-a^5 + a^3 - 1)*q^283 + (a^3 - a^2 + a 
        - 1)*q^297 + O(q^298),
    q^2 - a*q^4 + a^2*q^8 - a^3*q^16 + (-a^5 + a^2)*q^18 + (a^5 - a^4 - a^2 + 
        a)*q^22 + a^4*q^32 + a*q^34 - q^36 + a^2*q^38 + (a^5 - a^2 + 1)*q^44 - 
        a^5*q^50 + (-a^4 - a^2)*q^54 - a^5*q^64 - a^2*q^68 + a*q^72 - a^3*q^76 +
        (a^3 + a^2 - 1)*q^82 + (a^4 - a)*q^86 + (-a + 1)*q^88 - a^3*q^98 + (a^3 
        - 1)*q^100 + (a^5 + a^3)*q^108 + (-a^5 + a^3 - 1)*q^118 + (a^3 - 
        1)*q^128 + (a^3 - a - 1)*q^134 + a^3*q^136 - a^2*q^144 + (a^5 - a^2 + 
        1)*q^146 + a^4*q^152 + (a^5 + a^4 - a - 1)*q^162 + (-a^4 - a^3 + 
        a)*q^164 + (a^5 + a^4 - a^2)*q^166 + (-a^5 + a^2)*q^172 + (a^2 - 
        a)*q^176 + a^5*q^178 + (a^5 - a^3 - a^2)*q^194 + a^4*q^196 + (a^4 - a^3 
        - a + 1)*q^198 + (-a^4 + a)*q^200 + (-a^3 + 1)*q^214 + (-a^4 - a^3 + 
        1)*q^216 + (-a^5 + a^4)*q^226 + (-a^4 + a^3 + a - 1)*q^236 + (-a^5 - a^4
        + a^3 + a - 1)*q^242 + (-a^4 + a)*q^256 + (a^2 + 1)*q^262 + (-a^4 + a^2 
        + a)*q^268 - a^4*q^272 + (-a^3 - a)*q^274 + (-a^4 - a^3 + a)*q^278 + 
        a^3*q^288 + (-a + 1)*q^292 + O(q^298),
    q^3 + (-a^5 - a^3)*q^9 + (a^5 + a^3 - a^2 - a - 1)*q^27 + (a^5 - a^4 - a^2 +
        a)*q^33 + a*q^51 + a^2*q^57 - a^5*q^75 + (a^4 + a^3 + a^2)*q^81 + (a^4 -
        a^3 + a^2 - a)*q^99 + (a^3 + a^2 - 1)*q^123 + (a^4 - a)*q^129 - 
        a^3*q^147 + (-a^4 - a^3 + 1)*q^153 + (-a^5 - a^4 + a)*q^171 + (-a^5 + 
        a^3 - 1)*q^177 + (a^3 - a - 1)*q^201 + (a^5 - a^2 + 1)*q^219 + (a^5 - 
        a^2 - a)*q^225 + (-a^5 - a^4 - a^3 + a^2 + a + 1)*q^243 + (a^5 + a^4 - 
        a^2)*q^249 + a^5*q^267 + (a^5 - a^3 - a^2)*q^291 + (a^3 - a^2 + a)*q^297
        + O(q^298),
    q^6 - a*q^12 + (-a^5 - a^3)*q^18 + a^2*q^24 + (a^4 + a^3 - 1)*q^36 - 
        a^3*q^48 + (a^5 + a^3 - a^2 - a - 1)*q^54 + (a^5 - a^4 - a^2 + a)*q^66 +
        (-a^5 - a^4 + a)*q^72 + a^4*q^96 + a*q^102 + (-a^4 + a^2 + a + 1)*q^108 
        + a^2*q^114 + (a^5 - a^2 + 1)*q^132 + (a^5 + a^3 - a^2 - 1)*q^144 - 
        a^5*q^150 + (a^4 + a^3 + a^2)*q^162 - a^5*q^192 + (a^4 - a^3 + a^2 - 
        a)*q^198 - a^2*q^204 + (a^5 - a^3 - a^2 - a)*q^216 - a^3*q^228 + (a^3 + 
        a^2 - 1)*q^246 + (a^4 - a)*q^258 + (-a + 1)*q^264 + (-a^4 + a + 1)*q^288
        - a^3*q^294 + O(q^298)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^4*q^3 + (-a^2 + a)*q^7 + (a^5 - a^2)*q^9 + (-a^4 - a^3 + a)*q^13 + 
        (-a^3 + 1)*q^19 + (-a^5 + a^3 - 1)*q^21 - a^5*q^25 + a^3*q^27 + (a^5 + 
        a^4 - a)*q^31 + (a^5 - a^2 - a)*q^37 + (a^4 - a^2 - a)*q^39 + (-a^5 - 
        a^3 + a^2 + 1)*q^43 + (a^4 - a^3 + a^2)*q^49 - a*q^57 + (a^4 + 1)*q^61 +
        (a - 1)*q^63 + (-a^4 + a^3)*q^67 + (a^3 + a^2 - 1)*q^73 - q^75 + (-a^5 +
        a^2 - 1)*q^79 + (-a^4 + a)*q^81 + (-a^4 + a^2 - 1)*q^91 + (a^2 + 1)*q^93
        + a*q^97 + (a^5 + a)*q^103 + (a^4 - a)*q^109 + (a^5 + a^3)*q^111 + (a^3 
        + a^2 - 1)*q^117 + (a^3 - 1)*q^121 - a^5*q^127 + (-a^3 - a)*q^129 + (a^5
        - a^4 - a^2 + a)*q^133 + (a^4 + a^3 - a)*q^139 + (-a^5 + a^4 - a^3 + a^2
        - a + 1)*q^147 + q^151 + (-a^3 + a^2)*q^157 + (a^5 + a)*q^163 + (-a^5 + 
        a^3 - a - 1)*q^169 + a^5*q^171 + (a^4 - a^3 - a + 1)*q^175 + (-a^5 + 
        a^2)*q^181 + (-a^5 - a^4 + a^2)*q^183 + (-a^5 + a^4)*q^189 + (-a^5 - 
        a^3)*q^193 + (a^4 - a - 1)*q^199 + (a^5 - a^4 - a^2 + a)*q^201 + (-a^2 -
        1)*q^211 + (a^5 - a^4 + a^3 - a^2 + a)*q^217 + (-a^3 + a + 1)*q^219 + 
        (a^3 - a^2)*q^223 + a^4*q^225 + (a^5 - a^2 - a)*q^229 + (a^4 - 
        a^3)*q^237 + (-a + 1)*q^241 - a^2*q^243 + (-a^4 - 1)*q^247 + (a^3 - a^2 
        + a - 1)*q^259 + (-a^4 + a)*q^271 + (a^5 + a^4 - a^3 - a^2 + 1)*q^273 + 
        a^3*q^277 + (-a^4 - a^3 + 1)*q^279 - a*q^283 + a^2*q^289 - a^5*q^291 + 
        O(q^298)
]
;
Bo:=
[
    q + a^4*q^3 + (a^2 - a)*q^7 + (a^5 - a^2)*q^9 + (-a^4 - a^3 + a)*q^13 + (a^3
        - 1)*q^19 + (-a^5 + a^3 - 1)*q^21 - a^5*q^25 - a^3*q^27 + (-a^5 - a^4 + 
        a)*q^31 + (a^5 - a^2 - a)*q^37 + (-a^4 + a^2 + a)*q^39 + (a^5 + a^3 - 
        a^2 - 1)*q^43 + (a^4 - a^3 + a^2)*q^49 - a*q^57 + (a^4 + 1)*q^61 + (-a +
        1)*q^63 + (a^4 - a^3)*q^67 + (a^3 + a^2 - 1)*q^73 + q^75 + (a^5 - a^2 + 
        1)*q^79 + (-a^4 + a)*q^81 + (a^4 - a^2 + 1)*q^91 + (a^2 + 1)*q^93 + 
        a*q^97 + (-a^5 - a)*q^103 + (a^4 - a)*q^109 + (-a^5 - a^3)*q^111 + (a^3 
        + a^2 - 1)*q^117 + (a^3 - 1)*q^121 + a^5*q^127 + (-a^3 - a)*q^129 + (a^5
        - a^4 - a^2 + a)*q^133 + (-a^4 - a^3 + a)*q^139 + (a^5 - a^4 + a^3 - a^2
        + a - 1)*q^147 - q^151 + (-a^3 + a^2)*q^157 + (-a^5 - a)*q^163 + (-a^5 +
        a^3 - a - 1)*q^169 - a^5*q^171 + (-a^4 + a^3 + a - 1)*q^175 + (-a^5 + 
        a^2)*q^181 + (a^5 + a^4 - a^2)*q^183 + (-a^5 + a^4)*q^189 + (-a^5 - 
        a^3)*q^193 + (-a^4 + a + 1)*q^199 + (a^5 - a^4 - a^2 + a)*q^201 + (a^2 +
        1)*q^211 + (a^5 - a^4 + a^3 - a^2 + a)*q^217 + (a^3 - a - 1)*q^219 + 
        (-a^3 + a^2)*q^223 + a^4*q^225 + (a^5 - a^2 - a)*q^229 + (a^4 - 
        a^3)*q^237 + (-a + 1)*q^241 + a^2*q^243 + (a^4 + 1)*q^247 + (-a^3 + a^2 
        - a + 1)*q^259 + (a^4 - a)*q^271 + (a^5 + a^4 - a^3 - a^2 + 1)*q^273 + 
        a^3*q^277 + (a^4 + a^3 - 1)*q^279 + a*q^283 + a^2*q^289 + a^5*q^291 + 
        O(q^298),
    q^2 + a^4*q^6 + (a^2 - a)*q^14 + (a^5 - a^2)*q^18 + (-a^4 - a^3 + a)*q^26 + 
        (a^3 - 1)*q^38 + (-a^5 + a^3 - 1)*q^42 - a^5*q^50 - a^3*q^54 + (-a^5 - 
        a^4 + a)*q^62 + (a^5 - a^2 - a)*q^74 + (-a^4 + a^2 + a)*q^78 + (a^5 + 
        a^3 - a^2 - 1)*q^86 + (a^4 - a^3 + a^2)*q^98 - a*q^114 + (a^4 + 1)*q^122
        + (-a + 1)*q^126 + (a^4 - a^3)*q^134 + (a^3 + a^2 - 1)*q^146 + q^150 + 
        (a^5 - a^2 + 1)*q^158 + (-a^4 + a)*q^162 + (a^4 - a^2 + 1)*q^182 + (a^2 
        + 1)*q^186 + a*q^194 + (-a^5 - a)*q^206 + (a^4 - a)*q^218 + (-a^5 - 
        a^3)*q^222 + (a^3 + a^2 - 1)*q^234 + (a^3 - 1)*q^242 + a^5*q^254 + (-a^3
        - a)*q^258 + (a^5 - a^4 - a^2 + a)*q^266 + (-a^4 - a^3 + a)*q^278 + (a^5
        - a^4 + a^3 - a^2 + a - 1)*q^294 + O(q^298),
    q^4 + a^4*q^12 + (a^2 - a)*q^28 + (a^5 - a^2)*q^36 + (-a^4 - a^3 + a)*q^52 +
        (a^3 - 1)*q^76 + (-a^5 + a^3 - 1)*q^84 - a^5*q^100 - a^3*q^108 + (-a^5 -
        a^4 + a)*q^124 + (a^5 - a^2 - a)*q^148 + (-a^4 + a^2 + a)*q^156 + (a^5 +
        a^3 - a^2 - 1)*q^172 + (a^4 - a^3 + a^2)*q^196 - a*q^228 + (a^4 + 
        1)*q^244 + (-a + 1)*q^252 + (a^4 - a^3)*q^268 + (a^3 + a^2 - 1)*q^292 + 
        O(q^298)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^9 + (-a + 2)*q^13 + (a + 1)*q^21 - a*q^25 + (2*a - 1)*q^37 - 2*q^49 
        + (-a + 1)*q^57 - a*q^61 + (a - 1)*q^73 + (a - 1)*q^81 + (a - 1)*q^93 + 
        (-a - 1)*q^117 - q^121 + (a - 2)*q^129 + (2*a - 1)*q^133 + (a - 1)*q^157
        + (-2*a + 2)*q^169 + (-2*a + 1)*q^189 + (a + 1)*q^193 + q^201 + (-2*a + 
        1)*q^217 + (a - 1)*q^225 - q^229 + a*q^237 + (a - 2)*q^241 + 3*q^273 + 
        2*q^277 - a*q^289 + O(q^298),
    q^3 + (a - 2)*q^7 + a*q^19 - a*q^27 - a*q^31 + (-a + 2)*q^39 + (-2*a + 
        1)*q^43 + (a + 1)*q^63 + (a - 1)*q^67 - a*q^75 - q^79 + (3*a - 3)*q^91 +
        a*q^103 + (2*a - 1)*q^111 + (-2*a + 2)*q^127 + (a + 1)*q^139 - 2*q^147 -
        2*a*q^151 + (-a + 2)*q^163 + (-a + 1)*q^171 + (a + 1)*q^175 - a*q^183 + 
        (-a - 1)*q^199 + q^211 + (a - 1)*q^219 - q^223 + (a - 1)*q^243 + (a + 
        1)*q^247 - 3*a*q^259 + (a - 1)*q^279 + O(q^298)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + H.3 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^9 + 3*q^11 + a*q^19 + a*q^25 + (2*a - 1)*q^27 + (-2*a - 2)*q^33 + (a
        + 1)*q^41 + (-2*a + 2)*q^43 + q^49 + (-a - 1)*q^59 + (a - 2)*q^67 + (a -
        1)*q^73 + (-2*a + 2)*q^81 - 3*q^83 + (2*a - 4)*q^89 + (-a - 1)*q^97 + 
        3*a*q^99 + (-4*a + 2)*q^107 + (-2*a + 1)*q^113 - 2*q^121 - 2*a*q^123 + 
        (3*a - 3)*q^131 + 3*a*q^137 + a*q^139 - q^163 + (-a + 1)*q^169 + (-a + 
        1)*q^171 + 2*a*q^177 + (-2*a + 1)*q^179 + 3*a*q^209 + (-a + 1)*q^225 + 
        (-2*a + 1)*q^227 + (-3*a + 3)*q^233 + (-a + 2)*q^241 + (a - 2)*q^243 + 
        (2*a + 2)*q^249 - 3*a*q^251 + (-a + 2)*q^257 + 4*q^267 + 3*a*q^275 + (a 
        - 2)*q^281 + (-a + 1)*q^283 - a*q^289 + (-2*a + 1)*q^297 + O(q^298),
    q^2 + 1/2*(-a - 1)*q^6 - a*q^8 - 1/2*a*q^12 + 1/2*a*q^18 + 1/2*(2*a - 
        1)*q^24 + (a - 1)*q^32 + 1/2*(2*a - 1)*q^36 + a*q^38 + (-a - 1)*q^44 + 
        1/2*(a - 1)*q^48 + a*q^50 + 1/2*(-a - 1)*q^66 + 1/2*(-a + 1)*q^72 + 
        (-2*a + 2)*q^86 + 1/2*(-a + 2)*q^96 + q^98 + (-a + 1)*q^108 + 1/2*(-2*a 
        + 1)*q^114 + q^128 + 3/2*a*q^132 + (a - 2)*q^134 + 1/2*(-a + 2)*q^144 + 
        (a - 1)*q^146 + 1/2*(-2*a + 1)*q^150 + (-a + 1)*q^152 + 1/2*(-a + 
        1)*q^162 - a*q^164 + (2*a - 1)*q^176 + 1/2*q^192 + (-a - 1)*q^194 + 
        3/2*a*q^198 + (-a + 1)*q^200 + 1/2*(-a + 1)*q^228 + a*q^236 - 2*q^242 - 
        1/2*a*q^246 + (a - 2)*q^258 + 1/2*(2*a - 1)*q^264 + a*q^278 - 1/2*q^288 
        + 1/2*(-a - 1)*q^294 + O(q^298),
    q^3 + (-a - 1)*q^9 + (-2*a + 4)*q^11 + 2*a*q^27 - 3*q^33 + 2*q^41 + a*q^57 -
        2*q^59 + a*q^75 + (-2*a + 1)*q^81 + (2*a - 4)*q^83 + (4*a - 4)*q^89 + (a
        + 1)*q^99 - 4*a*q^107 - 2*a*q^113 + (-a - 1)*q^123 + (-2*a + 2)*q^129 + 
        (4*a - 2)*q^131 + (2*a + 2)*q^137 + q^147 + (-2*a + 1)*q^171 + (a + 
        1)*q^177 - 2*a*q^179 + (a - 2)*q^201 + (2*a + 2)*q^209 + (a - 1)*q^219 +
        (-2*a + 1)*q^225 - 2*a*q^227 + (-4*a + 2)*q^233 + (a - 1)*q^243 + 
        3*q^249 + (-2*a - 2)*q^251 + (-2*a + 2)*q^257 + (-2*a + 4)*q^267 + (2*a 
        + 2)*q^275 + (2*a - 2)*q^281 + (-a - 1)*q^291 + O(q^298),
    q^4 + 1/2*q^6 + 1/2*(-a - 1)*q^12 - a*q^16 + 1/2*(-a - 1)*q^18 + (-a + 
        2)*q^22 - 1/2*a*q^24 + 1/2*a*q^36 + 1/2*(2*a - 1)*q^48 + a*q^54 + (a - 
        1)*q^64 - 3/2*q^66 + 1/2*(2*a - 1)*q^72 + a*q^76 + q^82 + (-a - 1)*q^88 
        + 1/2*(a - 1)*q^96 + a*q^100 + 1/2*a*q^114 - q^118 + 1/2*(-a - 1)*q^132 
        + 1/2*(-a + 1)*q^144 + 1/2*a*q^150 + 1/2*(-2*a + 1)*q^162 + (a - 
        2)*q^166 + (-2*a + 2)*q^172 + (2*a - 2)*q^178 + 1/2*(-a + 2)*q^192 + 
        q^196 + 1/2*(a + 1)*q^198 - 2*a*q^214 + (-a + 1)*q^216 - a*q^226 + 
        1/2*(-2*a + 1)*q^228 + 1/2*(-a - 1)*q^246 + q^256 + (-a + 1)*q^258 + 
        (2*a - 1)*q^262 + 3/2*a*q^264 + (a - 2)*q^268 + (a + 1)*q^274 + 1/2*(-a 
        + 2)*q^288 + (a - 1)*q^292 + 1/2*q^294 + O(q^298)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^9 - q^11 - 2*a*q^17 + (a - 1)*q^19 + (a - 1)*q^25 + q^27 + 
        a*q^41 - 2*a*q^43 + q^49 + a*q^59 + (-a + 1)*q^67 + a*q^73 - q^83 + (2*a
        - 2)*q^89 + a*q^97 + (a - 1)*q^99 + 2*q^107 - q^113 + a*q^131 + (-a + 
        1)*q^137 + (-a + 1)*q^139 - 2*q^153 - q^163 - a*q^169 + a*q^171 - q^179 
        + 2*a*q^187 - 2*a*q^193 + (-a + 1)*q^209 - 2*a*q^211 + a*q^225 - q^227 +
        a*q^233 + (-a + 1)*q^241 + (-a + 1)*q^243 + (-a + 1)*q^251 + (-a + 
        1)*q^257 + (-a + 1)*q^275 + (-a + 1)*q^281 + a*q^283 + (3*a - 3)*q^289 -
        q^297 + O(q^298),
    q^2 - a*q^4 + (a - 1)*q^8 + q^16 + (-a + 1)*q^18 - q^22 - a*q^32 - 2*a*q^34 
        - q^36 + (a - 1)*q^38 + a*q^44 + (a - 1)*q^50 + q^54 + (a - 1)*q^64 + 
        (2*a - 2)*q^68 + a*q^72 + q^76 + a*q^82 - 2*a*q^86 + (-a + 1)*q^88 + 
        q^98 + q^100 - a*q^108 + a*q^118 + q^128 + (-a + 1)*q^134 + 2*q^136 + 
        (-a + 1)*q^144 + a*q^146 - a*q^152 + (-a + 1)*q^164 - q^166 + (2*a - 
        2)*q^172 - q^176 + (2*a - 2)*q^178 + a*q^194 - a*q^196 + (a - 1)*q^198 -
        a*q^200 + 2*q^214 + (a - 1)*q^216 - q^226 + (-a + 1)*q^236 - a*q^256 + 
        a*q^262 - q^268 - 2*a*q^272 + (-a + 1)*q^274 + (-a + 1)*q^278 - q^288 + 
        (-a + 1)*q^292 + O(q^298),
    q^3 + a*q^9 - q^33 - 2*a*q^51 + (a - 1)*q^57 + (a - 1)*q^75 + q^81 - a*q^99 
        + a*q^123 - 2*a*q^129 + q^147 + (-2*a + 2)*q^153 - q^171 + a*q^177 + (-a
        + 1)*q^201 + a*q^219 - q^225 + a*q^243 - q^249 + (2*a - 2)*q^267 + 
        a*q^291 + O(q^298),
    q^6 - a*q^12 + a*q^18 + (a - 1)*q^24 + (-a + 1)*q^36 + q^48 - q^66 - q^72 - 
        a*q^96 - 2*a*q^102 + (a - 1)*q^114 + a*q^132 + a*q^144 + (a - 1)*q^150 +
        q^162 + (a - 1)*q^192 - a*q^198 + (2*a - 2)*q^204 + q^228 + a*q^246 - 
        2*a*q^258 + (-a + 1)*q^264 + (-a + 1)*q^288 + q^294 + O(q^298)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^3 + q^7 + (a - 1)*q^9 + (-a + 1)*q^13 - q^19 + a*q^21 + (a - 1)*q^25
        - q^27 + q^31 - q^37 + q^39 - a*q^43 - a*q^57 + (-a + 1)*q^61 + (a - 
        1)*q^63 + (a - 1)*q^67 + a*q^73 - q^75 - a*q^79 - a*q^81 + (-a + 1)*q^91
        + a*q^93 - 2*a*q^97 + q^103 - 2*a*q^109 - a*q^111 + a*q^117 + q^121 + 
        (-2*a + 2)*q^127 + (-a + 1)*q^129 - q^133 + (a - 1)*q^139 - 2*q^151 + 
        a*q^157 + q^163 + (-a + 1)*q^171 + (a - 1)*q^175 + (2*a - 2)*q^181 + 
        q^183 - q^189 + a*q^193 + (a - 1)*q^199 - q^201 - a*q^211 + q^217 + (a -
        1)*q^219 - a*q^223 - a*q^225 - q^229 + (-a + 1)*q^237 + (-a + 1)*q^241 +
        (-a + 1)*q^243 + (a - 1)*q^247 - q^259 + 2*a*q^271 + q^273 + 2*q^277 + 
        (a - 1)*q^279 + 2*a*q^283 + (a - 1)*q^289 + (-2*a + 2)*q^291 + O(q^298)
]
;
Bo:=
[
    q - a*q^3 - q^7 + (a - 1)*q^9 + (-a + 1)*q^13 + q^19 + a*q^21 + (a - 1)*q^25
        + q^27 - q^31 - q^37 - q^39 + a*q^43 - a*q^57 + (-a + 1)*q^61 + (-a + 
        1)*q^63 + (-a + 1)*q^67 + a*q^73 + q^75 + a*q^79 - a*q^81 + (a - 1)*q^91
        + a*q^93 - 2*a*q^97 - q^103 - 2*a*q^109 + a*q^111 + a*q^117 + q^121 + 
        (2*a - 2)*q^127 + (-a + 1)*q^129 - q^133 + (-a + 1)*q^139 + 2*q^151 + 
        a*q^157 - q^163 + (a - 1)*q^171 + (-a + 1)*q^175 + (2*a - 2)*q^181 - 
        q^183 - q^189 + a*q^193 + (-a + 1)*q^199 - q^201 + a*q^211 + q^217 + (-a
        + 1)*q^219 + a*q^223 - a*q^225 - q^229 + (-a + 1)*q^237 + (-a + 1)*q^241
        + (a - 1)*q^243 + (-a + 1)*q^247 + q^259 - 2*a*q^271 + q^273 + 2*q^277 +
        (-a + 1)*q^279 - 2*a*q^283 + (a - 1)*q^289 + (2*a - 2)*q^291 + O(q^298),
    q^2 - a*q^6 - q^14 + (a - 1)*q^18 + (-a + 1)*q^26 + q^38 + a*q^42 + (a - 
        1)*q^50 + q^54 - q^62 - q^74 - q^78 + a*q^86 - a*q^114 + (-a + 1)*q^122 
        + (-a + 1)*q^126 + (-a + 1)*q^134 + a*q^146 + q^150 + a*q^158 - a*q^162 
        + (a - 1)*q^182 + a*q^186 - 2*a*q^194 - q^206 - 2*a*q^218 + a*q^222 + 
        a*q^234 + q^242 + (2*a - 2)*q^254 + (-a + 1)*q^258 - q^266 + (-a + 
        1)*q^278 + O(q^298),
    q^4 - a*q^12 - q^28 + (a - 1)*q^36 + (-a + 1)*q^52 + q^76 + a*q^84 + (a - 
        1)*q^100 + q^108 - q^124 - q^148 - q^156 + a*q^172 - a*q^228 + (-a + 
        1)*q^244 + (-a + 1)*q^252 + (-a + 1)*q^268 + a*q^292 + O(q^298),
    q^8 - a*q^24 + (a - 1)*q^32 - q^56 + (a - 1)*q^72 + q^96 + (-a + 1)*q^104 - 
        a*q^128 + q^152 + a*q^168 + (a - 1)*q^200 + q^216 + (-a + 1)*q^224 - 
        q^248 - a*q^288 - q^296 + O(q^298),
    q^16 - a*q^48 + (a - 1)*q^64 - q^112 + (a - 1)*q^144 + q^192 + (-a + 
        1)*q^208 - a*q^256 + O(q^298)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 + q^9 - q^17 - q^45 - q^61 - q^73 + q^77 + q^81 + q^85 + 2*q^101 + 
        q^125 - q^133 - q^137 - q^149 - q^153 + 2*q^157 - 2*q^161 + q^169 + 
        2*q^197 - q^209 - q^229 - q^233 - 2*q^253 - q^277 + O(q^298),
    q^2 - q^10 - q^14 + q^18 - q^22 - q^34 + q^38 + 2*q^46 + q^70 - q^86 - q^90 
        - q^94 + q^110 - q^122 - q^126 - q^146 + q^154 + q^162 + 2*q^166 + q^170
        - q^190 - q^198 + 2*q^202 - 2*q^230 + q^238 + q^250 - q^262 - q^266 - 
        q^274 - q^278 + O(q^298),
    q^3 - q^15 + q^27 - q^51 - q^135 - q^183 - q^219 + q^231 + q^243 + q^255 + 
        O(q^298),
    q^4 - q^20 - q^28 + q^36 - q^44 - q^68 + q^76 + 2*q^92 + q^140 - q^172 - 
        q^180 - q^188 + q^220 - q^244 - q^252 - q^292 + O(q^298),
    q^6 - q^30 - q^42 + q^54 - q^66 - q^102 + q^114 + 2*q^138 + q^210 - q^258 - 
        q^270 - q^282 + O(q^298),
    q^7 + q^11 - q^19 - 2*q^23 - q^35 + q^43 + q^47 - q^55 + q^63 - 2*q^83 + 
        q^95 + q^99 + 2*q^115 - q^119 + q^131 + q^139 - 2*q^163 - q^171 - q^187 
        + q^191 + q^199 - 2*q^207 - q^215 - q^235 + q^239 + q^251 + q^263 - 
        2*q^271 + q^283 + O(q^298),
    q^12 - q^60 - q^84 + q^108 - q^132 - q^204 + q^228 + 2*q^276 + O(q^298),
    q^21 + q^33 - q^57 - 2*q^69 - q^105 + q^129 + q^141 - q^165 + q^189 - 
        2*q^249 + q^285 + q^297 + O(q^298)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 9*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 9*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^7 - q^17 - q^23 + q^25 + q^39 + 2*q^47 - q^57 - q^73 - q^81 + q^87 - 
        2*q^111 + q^119 + q^121 - q^137 + q^159 + q^161 - q^175 + q^177 - q^191 
        - q^199 + q^201 + 2*q^233 - q^239 - q^247 + 2*q^263 - q^271 - q^273 + 
        O(q^298),
    q^2 + q^8 - q^14 - q^18 + q^32 - q^34 - q^46 + q^50 - q^52 - q^56 - q^72 + 
        q^76 + 2*q^94 + q^108 - q^116 + q^126 + q^128 - q^136 - q^146 + 2*q^148 
        - q^184 + q^200 - q^208 - q^212 - q^224 - q^236 + q^238 + q^242 - q^268 
        - q^274 - q^288 + O(q^298),
    q^3 - q^21 - q^51 - q^69 + q^75 + q^117 + 2*q^141 - q^171 - q^219 - q^243 + 
        q^261 + O(q^298),
    q^4 + q^16 - q^26 - q^28 - q^36 + q^38 + q^54 - q^58 + q^64 - q^68 + 2*q^74 
        - q^92 + q^100 - q^104 - q^106 - q^112 - q^118 - q^134 - q^144 + q^152 +
        q^182 + 2*q^188 - q^214 + q^216 - q^218 - q^232 + q^234 + q^252 + q^256 
        - q^266 - q^272 - q^292 + 2*q^296 + O(q^298),
    q^6 + q^24 - q^36 - q^42 + q^96 - q^102 - q^138 - q^144 + q^150 - q^156 - 
        q^168 + q^228 + q^234 + q^252 + 2*q^282 + O(q^298),
    q^9 + q^39 - q^57 - q^63 - q^81 + q^87 - 2*q^111 - q^153 + q^159 + q^177 + 
        q^201 - q^207 + q^225 - q^273 + O(q^298),
    q^12 - q^18 + q^48 - q^72 - q^78 - q^84 + q^114 + q^126 + q^162 - q^174 + 
        q^192 - q^204 + 2*q^222 - q^276 - q^288 + O(q^298),
    q^13 - q^19 - q^27 + q^29 - 2*q^37 + q^53 + q^59 + q^67 - q^91 + q^107 + 
        q^109 - q^117 + q^133 + q^171 - 2*q^173 - 2*q^179 - 2*q^181 + q^189 - 
        q^203 + q^211 - q^221 + q^227 + q^243 + 2*q^259 - q^261 - 2*q^269 + 
        q^293 + O(q^298)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + 9*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - q^57 - 2*q^61 - 2*q^73 + q^81 - 2*q^93 - q^121 - 
        2*q^157 + q^169 - 2*q^201 + q^225 + 2*q^229 + 2*q^237 + 2*q^277 + q^289 
        + O(q^298),
    q^3 - q^19 + q^27 - 2*q^31 - 2*q^67 + q^75 + 2*q^79 + 2*q^103 - 2*q^127 + 
        q^147 + 2*q^151 - q^171 - 2*q^183 - 2*q^211 - 2*q^219 + 2*q^223 + q^243 
        - 2*q^279 + O(q^298)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + 9*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
912
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + H.3 + 9*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
298
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^19 - q^25 - 2*q^43 + q^49 - 2*q^73 + q^81 + q^121 + 2*q^123 + 
        2*q^139 + 2*q^163 - q^169 - q^171 - 2*q^177 - q^225 - 2*q^267 + 2*q^283 
        + q^289 + O(q^298),
    q^2 + q^8 - q^12 + q^18 + q^32 - q^38 - q^48 - q^50 + q^72 - 2*q^86 + q^98 -
        q^108 + q^128 - 2*q^146 - q^152 + q^162 - 2*q^164 - q^192 - q^200 + 
        q^228 + 2*q^236 + q^242 + 2*q^246 + 2*q^278 + q^288 + O(q^298),
    q^3 + q^27 + 2*q^41 - q^57 - 2*q^59 - q^75 - 2*q^89 - 2*q^107 + 2*q^113 - 
        2*q^129 + q^147 + 2*q^179 - 2*q^219 + 2*q^227 + q^243 - 2*q^257 + 
        2*q^281 + O(q^298),
    q^4 - q^6 + q^16 - q^24 + q^36 - q^54 + q^64 - q^76 - 2*q^82 - q^96 - q^100 
        + q^114 + 2*q^118 + q^144 + q^150 - 2*q^172 + 2*q^178 + q^196 + 2*q^214 
        - q^216 - 2*q^226 + q^256 + 2*q^258 - 2*q^292 - q^294 + O(q^298)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
913
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
913
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
913
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
82
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
913
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
410
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
913
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
410
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
913
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
82
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
913
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
41*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 + q^4 - q^7 - q^12 + q^16 - q^17 + q^21 + 2*q^23 + q^25 + q^27 - 
        q^28 - q^29 - q^31 - q^37 + 2*q^41 - q^48 + q^51 - q^59 - q^61 + q^64 - 
        q^68 - 2*q^69 - q^75 - q^81 + q^83 + q^84 + q^87 + 2*q^92 + q^93 + q^100
        + q^108 - q^109 + q^111 - q^112 - q^113 - q^116 + q^119 - q^121 - 
        2*q^123 - q^124 - q^127 + 2*q^131 - q^148 - q^151 - 2*q^161 + 2*q^164 + 
        O(q^166),
    q^11 - q^33 + q^44 - q^77 - q^121 - q^132 + O(q^166)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
913
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 41*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^4 - a*q^9 + (a^3 - a^2 + a - 1)*q^16 + (a^3 - a^2 - 1)*q^21 + 
        (-a^3 + a^2)*q^23 - a^3*q^25 + (-a^3 + 1)*q^27 + (a^3 - a^2 + a - 
        1)*q^33 - a^3*q^36 + (-a + 1)*q^41 + (a^3 - a^2 + a - 1)*q^49 + 
        2*a^2*q^51 + (-a + 1)*q^63 - a*q^64 + (a^3 - a^2 + a - 1)*q^77 + 
        a^2*q^81 + (a^3 - a^2 + a - 1)*q^83 + (-a^3 - a)*q^84 + (-a^3 + 
        a^2)*q^87 + (a^3 - a^2 + a)*q^92 + (-a^3 + 1)*q^93 - a*q^99 + q^100 + 
        (a^2 + 1)*q^108 + (-a^3 + a^2)*q^111 + (a^2 + 1)*q^119 + (a^3 - a^2 - 
        1)*q^131 - a*q^132 + q^144 + (a^3 - a^2 + a)*q^147 + (a^3 - a^2 - 
        1)*q^153 + (-a^3 + a^2)*q^164 + O(q^166),
    q^3 + (a^3 + a - 1)*q^9 + 1/5*(-2*a^3 - a^2 - a - 2)*q^11 + a^2*q^12 - 
        a*q^17 + (a^3 + a)*q^21 - a*q^27 + (-a^3 + a^2 - a + 1)*q^29 + 
        1/5*(2*a^3 + a^2 + a + 2)*q^33 + (a^3 - a^2 - 1)*q^36 + (a^3 - 1)*q^37 +
        1/5*(-2*a^3 - a^2 - a + 3)*q^44 + (a^3 - a^2 + a - 1)*q^48 + a*q^49 + 
        (-a^3 + 1)*q^51 + (-a^3 + a^2 - a + 1)*q^59 + (a^2 + 1)*q^61 + (a^3 - 
        a^2 - 1)*q^63 - a^3*q^68 + (-a^3 + a^2)*q^69 - a^3*q^75 + 1/5*(-3*a^3 + 
        a^2 + a + 2)*q^77 + (-a^3 + 1)*q^81 + (a^3 - 1)*q^84 - a^2*q^87 + (-a^2 
        - 1)*q^93 + (a^3 - a^2 + a - 1)*q^99 - a^3*q^108 - a^2*q^109 + a*q^116 +
        (-a^3 - a + 1)*q^119 + 1/5*(-3*a^3 + a^2 + a + 2)*q^121 + (-a + 1)*q^123
        + (-a^2 - 1)*q^127 + 1/5*(2*a^3 + a^2 + a - 3)*q^132 + (-a^3 - a)*q^144 
        + (-a^2 - 1)*q^148 + q^151 + 2*a^2*q^153 + O(q^166),
    q^7 + (-a^3 + a^2 - a + 1)*q^9 + 1/5*(2*a^3 + a^2 + a + 2)*q^11 + (-a^3 - a 
        + 1)*q^21 + a^2*q^28 + (a^3 - a^2 - 1)*q^29 + (a^3 - a^2 + a - 1)*q^31 +
        1/5*(-2*a^3 - a^2 - a + 3)*q^33 + a*q^36 + (-a^3 + a^2 + 1)*q^37 + 
        1/5*(2*a^3 + a^2 + a - 3)*q^44 + (-a^3 - a)*q^49 - q^51 + (a^3 - a^2 - 
        1)*q^59 - a^2*q^61 + 1/5*(-2*a^3 - a^2 - a - 2)*q^77 + (-a^3 + a^2 + 
        1)*q^84 + (a^3 + a - 1)*q^87 + (a^3 + a)*q^93 + (a^3 + a - 1)*q^109 - 
        a^3*q^111 + (a^3 - a^2 + a - 1)*q^112 - a*q^113 + (-a^3 - a)*q^116 + 
        (a^3 - 1)*q^119 + 1/5*(-2*a^3 - a^2 - a - 2)*q^121 - a*q^124 + (a^3 + 
        a)*q^127 + 1/5*(-2*a^3 + 4*a^2 - a + 3)*q^132 + a^3*q^144 + (a^3 - a^2 -
        1)*q^147 + (a^3 + a)*q^148 + (-a^3 + a^2)*q^161 + O(q^166)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
914
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
456
);
qprec:=
227
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
914
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
152
);
qprec:=
227
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
914
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
19*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
227
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
914
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
57*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
227
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^7 - a^5 + 2*a + 1)*q^4 + (-a^5 - a^2)*q^6 + a^6*q^9 + (-a^7 + 2*a^5 +
        a^4 - a - 2)*q^10 + (-a^7 - a^6 + a^4 + a^3 + a^2 - 1)*q^15 + (-2*a^7 - 
        2*a^6 + 2*a^5 + 2*a^4 + 2*a^3 + 2*a^2 - 2)*q^16 + (-a^6 + a^5)*q^19 + 
        (-a^7 - 2*a^6 + a^2 - 2)*q^24 - a^7*q^25 + (a^6 - a^3 - a)*q^31 + (2*a^7
        - 4*a^5 - 2*a^4 - a^3 + 2*a + 3)*q^34 + (a^7 + a^5 + a^4 - 1)*q^36 + 
        (2*a^6 + a^5 - 2*a^2 - 2*a)*q^40 + (a^5 + a^4 - a^2 - 2*a - 2)*q^46 - 
        a^4*q^49 + (2*a^7 + 2*a^6 - a^4 - 2*a^3 - 2*a^2 + 2)*q^51 + (a^7 - a^6 -
        a^5 - a^4 - a^3 + 2*a + 1)*q^54 + (-a^7 + a^3 + a^2 + 1)*q^60 + a*q^61 +
        (a^6 + a^3 + 1)*q^64 + (a^2 + a)*q^69 + (2*a^6 - a^5 - a^4 - a^2 + 
        2)*q^76 + (-a^7 + a^2 - a)*q^79 + (a^7 - a^2)*q^81 + (a^7 + a^2)*q^85 + 
        (-a^4 - a)*q^90 + (2*a^7 + a^6 - a^3 - 2*a^2 + 1)*q^94 + (-a^7 - a^5 - 
        a^4 - a + 1)*q^96 + (a^7 - a^6 - 2*a^5 - a^4 - a^3 + 2*a + 1)*q^100 + 
        (-a^7 - a^6 + a^5 + a^3 + 2*a^2 - 2)*q^106 + (a^7 + a^3)*q^109 + (-2*a^7
        + a^6 + a^4 + a^3 - 2*a)*q^114 + (-a^7 - a^6 - a^5 + a^3 + a^2)*q^115 - 
        q^121 + (a^7 + a^6 - a^4 - a^3 - 2*a^2 - a)*q^124 + a^5*q^135 + (-2*a^7 
        - 4*a^6 - a^5 + 4*a^2 + 2*a - 1)*q^136 + (-a^7 - a^6 + a^4 + a^2 - 
        1)*q^139 + (a^7 - a^5 - a^4 + a + 1)*q^141 + (2*a^6 + 2*a^5 - 2*a)*q^144
        + (2*a^7 + a^6 - a^3 - 2*a^2 + 1)*q^150 + (a^7 - a^4 - a^3 - a^2 + 
        1)*q^151 + (-a^7 - a^6 + a^5 + a^4 - 1)*q^159 + (2*a^7 + a^6 - 2*a^3 - 
        2*a^2)*q^160 + (a^7 + 3*a^6 - a^4 - a^2 - a + 1)*q^166 + (a^5 - 1)*q^169
        + (-a^7 + a^6 + a^2 - a)*q^171 + (2*a^6 + a^5 - a^4 - a^3 - 2*a^2 - 3*a 
        - 1)*q^184 + (a^5 + a^3 + a)*q^186 + (a^4 - a^3 + a - 1)*q^190 + (a^7 - 
        2*a^5 - a^4 - a^3 - a^2 + a + 1)*q^196 + (a^7 + a^6 - a^5 - a^3 - a^2 + 
        2)*q^199 + (a^7 + 2*a^5 + a^4 - a^3 - a^2 - a - 3)*q^204 + (a^4 - 
        a^2)*q^211 + (-a^7 - 2*a^6 + a^4 + 2*a^3 + a^2 + a)*q^214 + (-2*a^7 - 
        2*a^6 + a^3 + 2*a^2)*q^216 + (a^7 - a^5 - a^4 + a + 1)*q^225 + (-2*a^7 -
        2*a^6 - a^4 + a^3 + a^2 - 1)*q^226 + (-a^7 + a^4 + a^3 - a - 1)*q^229 - 
        a^6*q^235 + (2*a^7 - 2*a^5 + 2*a + 2)*q^240 + (a^6 + 1)*q^241 + 
        O(q^242),
    q^2 + 1/5*(2*a^7 - a^5 - 3*a^4 - a + 1)*q^3 + 1/5*(4*a^7 + a^6 - 2*a^3 - 
        4*a^2 + 3)*q^5 + (a^7 - a^5 + a + 1)*q^8 + 1/5*(2*a^7 + a^6 - 4*a^5 - 
        2*a^4 - 2*a^3 - 4*a^2 + a + 2)*q^12 + 1/5*(-6*a^7 - a^6 + a^5 - 2*a^4 + 
        2*a^3 + 4*a^2 + a - 4)*q^17 + a^6*q^18 + 1/5*(-2*a^7 + 6*a^5 + 3*a^4 - 
        4*a - 6)*q^20 + 1/5*(4*a^7 + 3*a^6 - a^5 - 3*a^4 - a^3 - 2*a^2 - a)*q^23
        + 1/5*(-3*a^7 - a^5 + 2*a^4 - a + 1)*q^27 + (-a^7 - a^6 + a^4 + a^3 + 
        a^2 - 1)*q^30 + (-a^7 - a^6 + a^5 + a^4 + a^3 + a^2 - 1)*q^32 + (-a^6 + 
        a^5)*q^38 + 1/5*(-a^7 + a^6 - 2*a^3 + a^2 - 2)*q^45 + 1/5*(-3*a^7 + a^6 
        + a^5 + 3*a^4 + 3*a^3 + a^2 - 4*a - 3)*q^47 + 1/5*(-4*a^7 - 6*a^6 + 
        2*a^3 + 4*a^2 - 8)*q^48 - a^7*q^50 + 1/5*(4*a^7 + 3*a^6 - a^5 - 3*a^4 - 
        6*a^3 - 2*a^2 + 4*a + 5)*q^53 + 1/5*(2*a^7 - 4*a^6 + a^5 - 2*a^4 + 3*a^3
        + a^2 + a - 3)*q^57 + (a^6 - a^3 - a)*q^62 + 1/5*(5*a^7 - a^6 - 12*a^5 -
        6*a^4 - 3*a^3 - a^2 + 8*a + 9)*q^68 + (a^5 + a^4 - 1)*q^72 + 1/5*(-3*a^7
        + a^6 + a^5 + 3*a^4 + 3*a^3 + a^2 - 4*a - 3)*q^75 + 1/5*(-2*a^7 + 4*a^6 
        + 4*a^5 + 2*a^4 + 2*a^3 - 6*a^2 - 6*a - 2)*q^80 + 1/5*(-a^7 + a^6 + 
        5*a^5 - 2*a^3 + a^2 - 2)*q^83 + 1/5*(a^7 + a^6 + 4*a^5 + 2*a^4 - 2*a^3 -
        4*a^2 - 6*a - 6)*q^92 + 1/5*(a^7 + a^6 - a^5 + 2*a^4 - 2*a^3 + a^2 - a +
        4)*q^93 + 1/5*(3*a^7 + a^5 - 2*a^4 - 5*a^2 + a + 4)*q^95 - a^4*q^98 + 
        (2*a^7 + 2*a^6 - a^4 - 2*a^3 - 2*a^2 + 2)*q^102 + 1/5*(a^7 - a^6 - 5*a^5
        + 2*a^3 + 4*a^2 + 2)*q^107 + 1/5*(2*a^7 - 4*a^6 - 4*a^5 - 2*a^4 - 2*a^3 
        + a^2 + 6*a + 2)*q^108 + 1/5*(3*a^7 - 4*a^5 - 2*a^4 - 5*a^3 + a + 
        4)*q^113 + (-a^7 + a^3 + a^2)*q^120 + a*q^122 + 1/5*(-2*a^7 + a^5 + 
        3*a^4 + a - 1)*q^125 + a^3*q^128 + 1/5*(-a^7 - 4*a^6 + 3*a^3 + a^2 + 5*a
        - 2)*q^137 + (a^2 + a)*q^138 + 1/5*(-2*a^7 - a^6 + 4*a^5 + 2*a^4 + 2*a^3
        - a^2 - a - 2)*q^147 + (a^7 + a^6 - a^5 - a^4 - a^2 + 2)*q^152 + 
        1/5*(4*a^7 - a^6 - 4*a^5 - 2*a^4 + 2*a^3 - a^2 + a + 6)*q^153 + 1/5*(a^7
        + 2*a^6 - 4*a^5 - 2*a^4 - 4*a^3 + 2*a^2 + a + 5)*q^155 + (-a^7 + a^2 - 
        a)*q^158 + (a^7 - a^2)*q^162 + 1/5*(-a^7 - 4*a^6 + 5*a^4 + 3*a^3 + a^2 -
        2)*q^167 + (a^7 + a^2)*q^170 + (a^5 - a^2)*q^173 + 1/5*(-2*a^7 + a^5 - 
        2*a^4 - 4*a - 1)*q^180 + 1/5*(-2*a^7 - a^6 - a^5 + 2*a^4 + 2*a^3 - a^2 -
        a - 2)*q^183 + 1/5*(6*a^7 + 4*a^6 - 3*a^3 - 6*a^2 + 2)*q^188 + 
        1/5*(-3*a^7 - a^5 - 3*a^4 - a + 1)*q^192 + 1/5*(-4*a^7 - 2*a^6 - 2*a^5 +
        4*a^4 + 4*a^3 + 3*a^2 - 2*a - 4)*q^197 + (-a^6 - a^5 + a)*q^200 + 
        1/5*(-a^7 - 2*a^6 - a^5 + 2*a^4 - a^3 - 2*a^2 - a)*q^207 + 1/5*(-4*a^7 -
        4*a^6 + 4*a^5 + 2*a^4 + 3*a^3 + 6*a^2 - a - 6)*q^212 + (a^7 + a^3)*q^218
        + 1/5*(4*a^7 + 4*a^6 + a^5 - 2*a^4 - 3*a^3 - a^2 + a + 1)*q^227 + 
        1/5*(-4*a^7 + 4*a^6 + 2*a^3 - a^2 - 5*a + 2)*q^228 + (-a^7 - a^6 - a^5 +
        a^3 + a^2)*q^230 + 1/5*(-4*a^7 + 2*a^6 + a^5 + 3*a^4 + 6*a^3 + 2*a^2 - 
        4*a - 5)*q^233 + 1/5*(a^6 + 2*a^5 + a^4 - 2*a^3 + a^2 - 3*a + 1)*q^237 +
        O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^7 - a^6 + a^5 + a^4 + a^3 + a^2 - 1)*q^4 + (a^5 + a^4 - 1)*q^6 + 
        (a^7 - a^2)*q^9 + (-a^6 - a^5 + a)*q^10 + (a^7 - a^5 - a^4 + a + 1)*q^15
        + (a^7 + a^5 - a^2 - 1)*q^19 + (a^7 + a^6 - a^3 - a^2 + 1)*q^24 + (a^7 +
        a^6 - a^4 - a^3 - a^2 + 1)*q^25 + (-a^7 + a^6)*q^31 + (-a^6 - 1)*q^34 + 
        (a^6 - a^2 - a)*q^36 + (-a^5 + 1)*q^40 + (-a^7 - 2*a^6 + a^3 + 2*a^2 + 
        a)*q^46 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^49 + (a^7 - a^5 - a^4 - a^3
        + a + 1)*q^51 + (-a^7 - a)*q^54 + (-a^7 + a^3 + a^2)*q^60 + a^2*q^61 + 
        (-a^7 - a^6 + a^2 - 1)*q^64 + (a^4 + a^2)*q^69 + (a^7 + 2*a^6 - a^3 - 
        2*a^2 - a)*q^76 + (-a^7 - a^6 + a^3 + 2*a^2 - 1)*q^79 + (-a^7 - a^6 + 
        a^3 + a^2 - 1)*q^81 + (a^7 + a^6 - a^3 - a^2 + 1)*q^85 + (-a^7 + a^5 + 
        a^4 + a^3 + a^2 - a - 1)*q^90 + (a^7 + a^6 - a^2 + 1)*q^94 + (-a^6 + 
        a)*q^96 + (-a^7 + a^5 - a - 1)*q^100 + (-a^5 - a^4 - a^3)*q^106 + (a^7 +
        2*a^6 - a^4 - a^3 - a^2 + 1)*q^109 + (a^6 - a^5 - a^4 - a^3 - a^2 - a + 
        1)*q^114 + (-a^5 - a^3)*q^115 + q^121 + (-a^7 + a^5 + a^2 - a)*q^124 + 
        (a^5 - 1)*q^135 - a^5*q^136 + (a^7 + a^6 - a^5 - a^4 + a + 1)*q^139 + 
        (a^6 - a)*q^141 + (-a^7 - a^6 + a^2 - 1)*q^150 + (2*a^7 - a^5 - a^4 - 
        a^2 + a + 1)*q^151 + (-a^7 - a^6 + a)*q^159 + (a^7 - a^2)*q^160 + (a^7 +
        a^6 - a^5 - a^4 - a^2 + a + 1)*q^166 - a^5*q^169 + (-2*a^7 - a^6 + a^3 +
        a^2 - 1)*q^171 - 2*a*q^181 + (-a^7 - a^6 + a^4 + a^3 + a^2 + a - 
        1)*q^184 + (-a^6 + a^5 + a^2 - 1)*q^186 + (-a^7 + a^6 + a^5 + a^4 + a^3 
        + a^2 - a)*q^190 + (a^5 + a^4 - a - 1)*q^196 + (-a^5 - a^3)*q^199 + 
        (-a^5 - a^4 + a + 1)*q^204 + (-a^7 + a^5 + 2*a^4 + a^3 - a - 1)*q^211 + 
        (a^6 - a^5 - a^4 + a + 2)*q^214 - a^6*q^216 + (-a^6 + a)*q^225 + (a^7 + 
        a^6 + a^5 - a^3 - 2*a^2 - a)*q^226 + (a^5 - a - 1)*q^229 + (-a^7 + 
        a^2)*q^235 + (a^7 - a^2 + 1)*q^241 + O(q^242),
    q^2 + (-a^7 + a^4 + a^3 + a^2 - a - 1)*q^3 + (-a^7 + a^2 - 1)*q^5 + (-a^7 - 
        a^6 + a^5 + a^4 + a^3 - 1)*q^8 + a^7*q^12 + (-a^7 + a^5 - 1)*q^17 + (a^7
        - a^2)*q^18 + (a^7 - a^5 - a^4 - a^3 + a + 1)*q^20 + (-a^6 - a^4 + a^3 +
        a)*q^23 + (a^7 + a^6 - a^5 - a^4 - a^3 + 1)*q^27 + (a^7 - a^5 - a^4 + a 
        + 1)*q^30 + (-a^7 + a^4 - a)*q^32 + (a^7 + a^5 - a^2 - 1)*q^38 + (a^6 - 
        a^3 + 1)*q^45 + (a^7 - a^4 + a)*q^47 + (a^7 + a^6 - a^4 - a^3 - a^2 + 
        1)*q^50 + (a^4 - a^3 - a^2 - a + 1)*q^53 + (2*a^7 + a^6 - a^5 - a^4 - 
        2*a^3 - a^2 + 2)*q^57 + (-a^7 + a^6)*q^62 - a^3*q^68 + (-a^7 + a^4 + a^3
        - a - 1)*q^72 + (-a^7 + a^4 - a)*q^75 + (-2*a^7 - a^6 + a^5 + 2*a^4 + 
        a^3 - 2)*q^83 + (-2*a^7 - a^6 + a^4 + a^3 + 2*a^2 - 1)*q^92 + (-a^6 + 
        a^5 + a^3 - a^2)*q^93 + (a^7 + a^6 - a^5 - a^3 + 2)*q^95 + (-a^7 + a^5 +
        a^4 + a^3 - a - 1)*q^98 + (a^7 - a^5 - a^4 - a^3 + a + 1)*q^102 + (-a^6 
        - a^5 + a^4 + a^3)*q^107 - a^4*q^108 + (a^7 - a^4 + a^3 - 1)*q^113 + 
        (-a^7 + a^3 + a^2 - 1)*q^120 + a^2*q^122 + (-a^7 + a^4 + a^3 + a^2 - a -
        1)*q^125 - a^6*q^128 + (a^7 - 2*a^4 - a^3 + 2*a + 1)*q^137 + (a^4 + 
        a^2)*q^138 + (a^7 - a^4)*q^147 + (-a^7 + a^6 + a^4 - a - 1)*q^152 + 
        (-a^7 + a^4)*q^153 + (a^7 - a^6 - a^4 + a^3)*q^155 + (-a^7 - a^6 + a^3 +
        2*a^2 - 1)*q^158 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^162 + (a^5 - a^4 - a^2
        + a)*q^167 + (a^7 + a^6 - a^3 - a^2 + 1)*q^170 + (2*a^7 - a^5 - a^4 + 
        1)*q^173 + a^5*q^180 + (-a^7 + a^5 + a^4 - 1)*q^183 + a^6*q^188 + (-a^6 
        + a)*q^192 + a^4*q^197 + (-a^7 + a^5 - 1)*q^200 + (-a^7 + a^5 + a^4 + 
        a^3 - 2)*q^207 + (-a^6 - a^2)*q^212 + (a^7 + 2*a^6 - a^4 - a^3 - a^2 + 
        1)*q^218 + (2*a^7 + a^6 - a^5 - a^4 - 2*a^3 - a^2 + 2)*q^227 + (-a^4 - 
        a^2)*q^228 + (-a^5 - a^3)*q^230 + (-a^7 + a^4 + a^3 - a - 1)*q^233 + 
        (a^5 - a^3 + a)*q^237 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^3*q^3 + a*q^4 + (a^3 - a^2 + a - 2)*q^7 - a*q^9 + (-a^3 + a^2 - a + 
        1)*q^12 + (a^3 - a^2)*q^13 + a^2*q^16 + (-a^3 - a + 1)*q^19 + (a^3 + 
        a^2)*q^21 + a^2*q^25 + (a^3 - a^2 + a - 1)*q^27 + (-a - 1)*q^28 + (a^3 -
        a)*q^31 - a^2*q^36 + (-a^3 + a)*q^37 + (a - 1)*q^39 + q^48 + (-2*a^3 + 
        a^2 - a + 2)*q^49 + (-a^2 + a - 1)*q^52 + (-a^2 - 1)*q^57 + q^61 + (a + 
        1)*q^63 + a^3*q^64 + (a^2 - a)*q^73 + q^75 + (-a^3 + 1)*q^76 + (-a^3 - 
        1)*q^79 + a^2*q^81 + (2*a^3 - a^2 + a - 1)*q^84 + (-a^3 + a)*q^91 + (a^3
        - a^2 + 2*a - 1)*q^93 + (-a^3 + a^2 - a)*q^97 + a^3*q^100 + (-a^3 - a + 
        1)*q^103 - q^108 + (a^3 - a^2 - 1)*q^109 + (-a^3 + a^2 - 2*a + 1)*q^111 
        + (-a^2 - a)*q^112 + (a^2 - a + 1)*q^117 - q^121 + (a^3 - 2*a^2 + a - 
        1)*q^124 + (a^2 - a + 1)*q^127 + (2*a^3 + 2*a - 1)*q^133 + (a^2 - 
        1)*q^139 - a^3*q^144 + (-a^3 - a^2 - a)*q^147 + (-a^3 + 2*a^2 - a + 
        1)*q^148 + (a^3 + a^2)*q^151 + (a^2 - a)*q^156 + (a + 1)*q^157 + (a^3 + 
        a)*q^163 + (a^3 - a^2)*q^169 + (a^3 - 1)*q^171 + (-a^2 - a)*q^175 + (a^3
        - 2*a^2 + a - 1)*q^181 - a^3*q^183 + (-2*a^3 + a^2 - a + 1)*q^189 + 
        a*q^192 + (-a^3 - 1)*q^193 + (-a^3 + a^2 + 2)*q^196 + (a^3 - a^2 + 
        a)*q^199 + (-a^3 + a^2 - a)*q^208 + (a + 1)*q^211 + (-a^3 - a^2 + a + 
        1)*q^217 + (a^3 - a^2 + a)*q^219 + (-a^3 - a^2)*q^223 - a^3*q^225 + 
        (-a^3 - a)*q^228 + (a^3 - 1)*q^229 + (a^3 - a)*q^237 + (a - 1)*q^241 + 
        O(q^242),
    q^5 - a^3*q^15 + a*q^20 + (a^3 - a^2 + a - 2)*q^35 - a*q^45 + (-a^3 + a^2 - 
        a + 1)*q^60 + (a^3 - a^2)*q^65 + a^2*q^80 + (-a^3 - a + 1)*q^95 + (a^3 +
        a^2)*q^105 + a^2*q^125 + (a^3 - a^2 + a - 1)*q^135 + (-a - 1)*q^140 + 
        (a^3 - a)*q^155 - a^2*q^180 + (-a^3 + a)*q^185 + (a - 1)*q^195 + q^240 +
        O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^2 + 2*a - 1)*q^4 + (-a^2 + 1)*q^6 - a*q^9 + (a^3 + 1)*q^10 + (-a^3 +
        a^2 - a + 1)*q^15 + (-2*a^3 + 2*a^2 - 2*a)*q^16 + (a - 1)*q^19 + (-a^2 +
        2*a - 2)*q^24 + a^2*q^25 + (-a^3 + a)*q^31 + (a^3 - 2*a^2 + a)*q^36 + 
        (-2*a^2 + 2*a - 1)*q^40 + (a^3 + a^2 - a - 1)*q^46 + (-a^3 + a^2 - a + 
        1)*q^49 + (a^3 - a)*q^54 + (a^3 - a^2 + 1)*q^60 + a*q^61 + (a^3 - a + 
        1)*q^64 + (a^2 + a)*q^69 + (-a^3 + 3*a^2 - 3*a + 1)*q^76 + (-a^2 - 
        a)*q^79 + a^2*q^81 + (-a^3 + a^2 - 2*a + 1)*q^90 + (2*a^3 - 4*a^2 + 2*a 
        - 2)*q^94 + (-a^3 + 2*a^2 - 2*a)*q^96 + (a^3 - a + 1)*q^100 + (a^3 - 
        3*a^2 + a)*q^106 + (a^3 - a^2)*q^109 + (-a^3 + a^2 + a - 1)*q^114 + (a^3
        - a^2 + a - 2)*q^115 - q^121 + (-2*a^3 + 4*a^2 - 3*a + 1)*q^124 - q^135 
        + (-2*a^3 + a^2 - a + 1)*q^139 + 2*a^3*q^141 + (2*a - 2)*q^144 + (-a^3 +
        2*a^2 - a + 1)*q^150 + (a^3 - a^2 + 2*a - 1)*q^151 + (a^3 - a)*q^159 + 
        (-2*a^3 + 2*a^2 - a)*q^160 + (2*a^3 - a^2 + a - 1)*q^166 + q^169 + (-a^2
        + a)*q^171 + (a^3 - a^2 + 2)*q^184 + (-2*a^3 + a - 1)*q^186 + (-a^2 + 
        2*a - 2)*q^190 + (a^3 - a^2 + 1)*q^196 + (-a^3 + a^2 - a)*q^199 + (a^3 -
        2*a^2 + a - 1)*q^211 + (a^2 - 2*a + 2)*q^214 + (a^3 - 2*a^2 + 2*a)*q^216
        - a^3*q^225 + (a^2 + a)*q^226 + (-a^3 + 1)*q^229 - 2*a*q^235 + (-2*a^2 +
        2*a - 2)*q^240 + (-a + 1)*q^241 + O(q^242),
    q^2 + 1/5*(-3*a^3 + a^2 - 4*a + 2)*q^3 + 1/5*(-2*a^3 + 4*a^2 - a + 3)*q^5 + 
        (-a^2 + a - 1)*q^8 + 1/5*(2*a^3 - 4*a^2 + a + 2)*q^12 - a*q^18 + 
        1/5*(3*a^3 - a^2 - a + 3)*q^20 + (a^3 + a - 1)*q^23 + 1/5*(2*a^3 + a^2 +
        a - 3)*q^27 + (-a^3 + a^2 - a + 1)*q^30 + (-a^3 + a^2 - a)*q^32 + (a - 
        1)*q^38 + 1/5*(-2*a^3 - a^2 - a - 2)*q^45 + 1/5*(6*a^3 - 2*a^2 - 2*a - 
        4)*q^47 + 1/5*(2*a^3 - 4*a^2 + 6*a - 8)*q^48 + a^2*q^50 - a*q^53 + 
        1/5*(a^3 - 2*a^2 + 3*a + 1)*q^57 + (-a^3 + a)*q^62 + (a^3 - a^2 + 
        a)*q^72 + 1/5*(-3*a^3 + a^2 + a + 2)*q^75 + 1/5*(-2*a^3 - 6*a^2 + 4*a - 
        2)*q^80 + 1/5*(4*a^3 + 2*a^2 + 2*a - 1)*q^83 + (a^2 - a)*q^92 - a^2*q^93
        + 1/5*(4*a^3 - 3*a^2 + 2*a - 1)*q^95 + (-a^3 + a^2 - a + 1)*q^98 + 
        1/5*(-4*a^3 + 3*a^2 - 2*a + 1)*q^107 + 1/5*(2*a^3 + a^2 - 4*a + 2)*q^108
        + 1/5*(-a^3 + 2*a^2 + 2*a + 4)*q^113 + (a^3 - a^2)*q^120 + a*q^122 + 
        1/5*(3*a^3 - a^2 + 4*a - 2)*q^125 + a^3*q^128 + 1/5*(-6*a^3 + 2*a^2 - 
        3*a + 4)*q^137 + (a^2 + a)*q^138 + 1/5*(-2*a^3 - a^2 - a - 2)*q^147 + 
        (-a^3 + 2*a^2 - 2*a + 1)*q^152 + q^155 + (-a^2 - a)*q^158 + a^2*q^162 + 
        1/5*(-a^3 - 3*a^2 - 3*a - 1)*q^167 + (-a^2 - 1)*q^173 + 1/5*(-2*a^3 + 
        4*a^2 - 6*a + 3)*q^180 + 1/5*(-2*a^3 - a^2 - a + 3)*q^183 + 1/5*(6*a^3 -
        12*a^2 + 8*a - 4)*q^188 + 1/5*(-3*a^3 + 6*a^2 - 4*a + 2)*q^192 + 
        1/5*(-4*a^3 + 3*a^2 - 2*a + 6)*q^197 + (-a + 1)*q^200 + (-a^3 + 1)*q^207
        + (a^3 - 2*a^2 + a)*q^212 + (a^3 - a^2)*q^218 + (-a^3 - a + 1)*q^227 + 
        1/5*(-4*a^3 + 3*a^2 + 3*a - 4)*q^228 + (a^3 - a^2 + a - 2)*q^230 + (a^3 
        - 1)*q^237 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + q^9 + (-a + 1)*q^15 + (a - 1)*q^16 - a*q^19 - a*q^25 + (-a + 
        2)*q^31 - a*q^36 + a*q^49 + (a - 2)*q^51 - q^60 + a*q^61 + q^64 + (2*a -
        1)*q^69 + (a - 1)*q^76 + (-a - 1)*q^79 + q^81 + (2*a - 1)*q^85 + (a - 
        1)*q^100 + (a - 1)*q^109 + (a + 1)*q^115 - q^121 + (-a - 1)*q^124 + (-a 
        + 1)*q^135 + (-a + 2)*q^139 - a*q^141 + (a - 1)*q^144 + (a - 2)*q^151 + 
        (2*a - 1)*q^159 - a*q^169 - a*q^171 + (-a + 1)*q^196 + (a - 1)*q^199 + 
        (a + 1)*q^204 + (-2*a + 1)*q^211 - a*q^225 + (2*a - 2)*q^229 - q^235 + 
        a*q^240 + 2*q^241 + O(q^242),
    q^3 + (-a + 1)*q^5 - a*q^12 + (a - 2)*q^17 - q^20 + (2*a - 1)*q^23 + q^27 + 
        (-a + 1)*q^45 - a*q^47 + (a - 1)*q^48 + (2*a - 1)*q^53 - a*q^57 + (a + 
        1)*q^68 - a*q^75 + a*q^80 + (-a + 1)*q^83 + (-a + 2)*q^92 + (-a + 
        2)*q^93 - q^95 + (a - 1)*q^107 - a*q^108 - q^113 - q^125 + (-a + 
        1)*q^137 + a*q^147 + (a - 2)*q^153 + (-2*a + 1)*q^155 + (-a + 1)*q^167 -
        q^180 + a*q^183 + (a - 1)*q^188 + q^192 + 2*a*q^197 + (2*a - 1)*q^207 + 
        (-a + 2)*q^212 + (a - 2)*q^227 + (a - 1)*q^228 + (-2*a + 1)*q^233 + (-a 
        - 1)*q^237 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + a^2*q^4 + (-a^3 + 1)*q^7 + a^2*q^9 - a^3*q^12 + (a^3 - a^2 - 
        1)*q^13 + (a^3 - a^2 + a - 1)*q^16 + (-a^2 + a - 1)*q^19 + (a^3 - a^2 - 
        1)*q^21 + (a^3 - a^2 + a - 1)*q^25 - a^3*q^27 + (a^2 + 1)*q^28 + (a^2 - 
        a)*q^31 + (a^3 - a^2 + a - 1)*q^36 + (a^2 - a)*q^37 + (a^2 + 1)*q^39 - 
        2*a^3*q^43 + q^48 + (-a^3 - a + 1)*q^49 + (-a^3 - a)*q^52 + (a^3 - a^2 +
        a)*q^57 + q^61 + (a^2 + 1)*q^63 - a*q^64 + 2*a^2*q^67 + (a^3 + a - 
        1)*q^73 + q^75 + (-a + 1)*q^76 + (-a + 1)*q^79 + (a^3 - a^2 + a - 
        1)*q^81 + (-a^3 - a)*q^84 + (2*a^3 - a^2 + a - 2)*q^91 + (-a^3 + 
        a^2)*q^93 + (-a^3 + 1)*q^97 - a*q^100 + (-a^2 + a - 1)*q^103 + q^108 + 
        (-a^3 + a^2)*q^109 + (-a^3 + a^2)*q^111 + (a^3 + a - 1)*q^112 + (-a^3 - 
        a)*q^117 + q^121 + (-a^2 + a - 1)*q^124 + (-a^3 - a)*q^127 + (2*a^3 - 
        2*a^2 + 2*a - 2)*q^129 - q^133 + (a^3 - a^2 + a)*q^139 - a*q^144 + (a^3 
        - 1)*q^147 + (-a^2 + a - 1)*q^148 + (a^3 - a^2 - 1)*q^151 + (a^3 + a - 
        1)*q^156 + (a^2 + 1)*q^157 + (a^2 - a)*q^163 + (-a^3 + a^2 + 1)*q^169 + 
        (-a + 1)*q^171 + 2*q^172 + (a^3 + a - 1)*q^175 + (-a^2 + a - 1)*q^181 - 
        a*q^183 + (-a^3 - a)*q^189 + a^2*q^192 + (-a + 1)*q^193 + (-a^3 + a^2 + 
        1)*q^196 + (-a^3 + 1)*q^199 - 2*a^3*q^201 + (-a^3 + 1)*q^208 + (a^2 + 
        1)*q^211 + a^3*q^217 + (-a^3 + 1)*q^219 + (a^3 - a^2 - 1)*q^223 - 
        a*q^225 + (a^2 - a)*q^228 + (-a + 1)*q^229 + (a^2 - a)*q^237 + (a^2 + 
        1)*q^241 + O(q^242),
    q^5 - a*q^15 + a^2*q^20 + (-a^3 + 1)*q^35 + a^2*q^45 - a^3*q^60 + (a^3 - a^2
        - 1)*q^65 + (a^3 - a^2 + a - 1)*q^80 + (-a^2 + a - 1)*q^95 + (a^3 - a^2 
        - 1)*q^105 + (a^3 - a^2 + a - 1)*q^125 - a^3*q^135 + (a^2 + 1)*q^140 + 
        (a^2 - a)*q^155 + (a^3 - a^2 + a - 1)*q^180 + (a^2 - a)*q^185 + (a^2 + 
        1)*q^195 - 2*a^3*q^215 + q^240 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 12*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 12*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 + a^2 - a)*q^4 + (a^3 - a^2 + a)*q^6 + a^2*q^9 + (-a + 1)*q^10 - 
        a^3*q^15 + (a^2 + 1)*q^19 + (-a^3 + a^2 - a + 1)*q^24 + (a^3 - a^2 + a -
        1)*q^25 + (a^2 - a)*q^31 + (-2*a + 2)*q^34 + (-a^2 + a)*q^36 - q^40 + 
        a^3*q^46 - a^3*q^49 - 2*a^3*q^51 + (a^2 - a)*q^54 + (a^3 - a^2)*q^60 + 
        a^2*q^61 + (-a^2 + a - 1)*q^64 + (a^3 + a - 1)*q^69 - a^3*q^76 + (a^3 + 
        a - 1)*q^79 + (a^3 - a^2 + a - 1)*q^81 + (2*a^3 - 2*a^2 + 2*a - 2)*q^85 
        + (-a^3 + a^2)*q^90 + (-2*a^2 + 2*a - 2)*q^94 - a*q^96 + (a^2 - a + 
        1)*q^100 + (a^3 - 2*a^2 + 2*a - 1)*q^106 + (a^3 - a^2 - 1)*q^109 + 
        a^3*q^114 + (-a^3 + 1)*q^115 + q^121 + (-a^2 + 2*a - 1)*q^124 + q^135 - 
        2*q^136 + (-a^3 - a)*q^139 - 2*a*q^141 + (-a^2 + a - 1)*q^150 + (-a^3 + 
        a^2)*q^151 + (a^2 - a)*q^159 + a^2*q^160 + (-a^3 + 2*a^2 - a)*q^166 + 
        q^169 + (a^3 + a - 1)*q^171 - 2*a*q^181 + (-a^3 + a^2 + 1)*q^184 + (a^2 
        - 2*a + 1)*q^186 + (-a^3 + a^2 - a + 1)*q^190 + (a^3 - a^2)*q^196 + 
        (-a^3 + 1)*q^199 + (2*a^3 - 2*a^2)*q^204 + (-a^2 + a - 1)*q^211 + (-a^3 
        + a^2 - a + 1)*q^214 + a*q^216 - a*q^225 + (-a^3 + a - 1)*q^226 + (-a + 
        1)*q^229 + 2*a^2*q^235 + (a^2 + 1)*q^241 + O(q^242),
    q^2 + (-a^3 + a^2 + 1)*q^3 + (-a^2 - 1)*q^5 + (-a^3 - a)*q^8 - a^2*q^12 + 
        (-2*a^2 - 2)*q^17 + a^2*q^18 + a^3*q^20 + (a^2 + a + 1)*q^23 + (a^3 + 
        a)*q^27 - a^3*q^30 + (a^3 - 1)*q^32 + (a^2 + 1)*q^38 + (-a^3 - a + 
        1)*q^45 + (2*a^3 - 2)*q^47 + (a^3 - a^2 + a - 1)*q^50 + a^2*q^53 + (a^2 
        + a + 1)*q^57 + (a^2 - a)*q^62 + 2*a^3*q^68 + (-a^3 + 1)*q^72 + (a^3 - 
        1)*q^75 + q^83 + (-a^3 - a + 1)*q^92 + (a^3 - a^2 + a - 1)*q^93 + (-a^3 
        - a^2 - a)*q^95 - a^3*q^98 - 2*a^3*q^102 + (-a^3 - a^2 - a)*q^107 + 
        (-a^3 + a^2 - a + 1)*q^108 - a*q^113 + (a^3 - a^2 - 1)*q^120 + a^2*q^122
        + (-a^3 + a^2 + 1)*q^125 + a*q^128 + a^2*q^137 + (a^3 + a - 1)*q^138 + 
        (-a^3 - a + 1)*q^147 + (-2*a^3 - a + 1)*q^152 + (-2*a^3 - 2*a + 2)*q^153
        + q^155 + (a^3 + a - 1)*q^158 + (a^3 - a^2 + a - 1)*q^162 - a^3*q^167 + 
        (2*a^3 - 2*a^2 + 2*a - 2)*q^170 + (-a^3 - a^2 - a)*q^173 - q^180 + (a^3 
        + a)*q^183 + 2*a*q^188 - a*q^192 + (a^3 - a^2 + a - 1)*q^197 + (a^2 + 
        1)*q^200 + (2*a^3 + a - 1)*q^207 + (-a^2 + a)*q^212 + (a^3 - a^2 - 
        1)*q^218 + (a^2 + a + 1)*q^227 + (-a^3 - a + 1)*q^228 + (-a^3 + 1)*q^230
        + (2*a^3 - 2)*q^233 + (2*a^3 + a - 1)*q^237 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (3*a - 3)*q^4 - 2*a*q^6 + q^9 + (2*a - 2)*q^10 - a*q^15 - 5*a*q^16 + (-a
        + 1)*q^19 + 4*q^24 + (a - 1)*q^25 + (-a + 1)*q^31 - 2*q^34 + (3*a - 
        3)*q^36 - 4*a*q^40 + 2*a*q^46 + (a - 1)*q^49 + (-a + 1)*q^51 - 2*a*q^54 
        + 3*q^60 + (a - 1)*q^61 + 7*q^64 - q^69 + 3*a*q^76 + a*q^79 + q^81 - 
        q^85 + (2*a - 2)*q^90 - 2*q^94 + (6*a - 6)*q^96 - 3*a*q^100 + 2*a*q^106 
        + a*q^109 - 2*q^114 + a*q^115 + q^121 + 3*a*q^124 - a*q^135 + (-4*a + 
        4)*q^136 + (-a + 1)*q^139 + (-a + 1)*q^141 - 5*a*q^144 + 2*q^150 + (-a +
        1)*q^151 - q^159 + 6*q^160 + (-2*a + 2)*q^166 + (a - 1)*q^169 + (-a + 
        1)*q^171 - 2*a*q^181 - 4*q^184 - 2*q^186 + 2*a*q^190 - 3*a*q^196 + 
        a*q^199 + 3*a*q^204 - q^211 + (-2*a + 2)*q^214 + 4*q^216 + (a - 1)*q^225
        + 2*a*q^226 - 2*a*q^229 - q^235 + (5*a - 5)*q^240 + 2*q^241 + O(q^242),
    q^2 + 1/2*(a - 1)*q^3 + 1/2*q^5 + (2*a - 2)*q^8 - 3/2*a*q^12 + 1/2*a*q^17 + 
        q^18 + 1/2*(3*a - 3)*q^20 + 1/2*(-a + 1)*q^23 + 1/2*(a - 1)*q^27 - 
        a*q^30 - 3*a*q^32 + (-a + 1)*q^38 + 1/2*q^45 + 1/2*a*q^47 + 5/2*q^48 + 
        (a - 1)*q^50 + 1/2*(-a + 1)*q^53 + 1/2*a*q^57 + (-a + 1)*q^62 - 3/2*q^68
        + (2*a - 2)*q^72 - 1/2*a*q^75 - 5/2*a*q^80 - 1/2*q^83 + 3/2*a*q^92 + 
        1/2*a*q^93 + 1/2*(-a + 1)*q^95 + (a - 1)*q^98 + (-a + 1)*q^102 - 
        1/2*q^107 - 3/2*a*q^108 + 1/2*(-a + 1)*q^113 + 2*q^120 + (a - 1)*q^122 +
        1/2*(a - 1)*q^125 + 4*q^128 - 1/2*q^137 - q^138 - 1/2*a*q^147 + 
        2*a*q^152 + 1/2*a*q^153 + 1/2*(-a + 1)*q^155 + a*q^158 + q^162 - 
        1/2*q^167 - q^170 - a*q^173 + 1/2*(3*a - 3)*q^180 - 1/2*a*q^183 - 
        3/2*q^188 + 1/2*(7*a - 7)*q^192 - a*q^197 - 2*a*q^200 + 1/2*(-a + 
        1)*q^207 + 3/2*a*q^212 + a*q^218 + 1/2*a*q^227 - 3/2*q^228 + a*q^230 + 
        1/2*(-a + 1)*q^233 - 1/2*q^237 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 30*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^12 - q^13 - q^19 - q^22 + q^25 - q^34 - q^39 + q^46 + q^48 + 
        q^49 + q^52 - q^57 + q^58 - q^64 + q^66 + q^76 + q^81 - q^97 + q^102 - 
        q^103 - q^106 - q^108 - q^117 + q^118 - q^127 - q^138 - q^142 + q^156 - 
        q^163 + q^169 - q^171 - q^174 + q^178 + q^183 + q^187 - q^198 + 2*q^199 
        + q^202 - q^208 + 2*q^219 + q^225 + q^228 - q^229 - q^241 + O(q^242),
    q^2 - q^6 - q^11 - q^17 + q^18 + q^23 + q^29 - q^32 + q^33 - q^44 + q^50 + 
        q^51 - q^53 - q^54 + q^59 - q^68 - q^69 - q^71 - q^87 + q^89 + q^92 + 
        q^96 + q^98 - q^99 + q^101 + q^116 - q^122 + q^132 - 2*q^146 - q^150 - 
        q^153 + q^159 + q^162 - q^173 + q^176 - q^177 - q^191 + q^204 + q^207 - 
        q^212 + q^213 - 2*q^218 + q^227 + q^233 + q^236 + O(q^242),
    q^3 - q^4 - q^13 + q^16 - q^19 + q^22 + q^27 + q^34 - q^36 - q^39 - q^46 + 
        q^52 - q^57 - q^58 + q^61 - q^66 + 2*q^73 + q^75 + q^76 - q^97 - q^100 -
        q^102 - q^103 + q^106 + 2*q^109 - q^117 - q^118 - q^121 - q^127 + q^138 
        + q^142 + q^144 + q^147 + q^156 - q^163 + 2*q^169 - q^171 + q^174 - 
        q^178 - q^187 - q^192 - q^196 + q^198 - q^202 - q^208 + q^228 - q^229 - 
        q^241 + O(q^242),
    q^5 + q^45 - q^60 - q^65 - q^95 - q^110 + q^125 - q^170 - q^195 + q^230 + 
        q^240 + O(q^242),
    q^10 - q^30 - q^55 - q^85 + q^90 + q^115 + q^145 - q^160 + q^165 - q^220 + 
        O(q^242),
    q^15 - q^20 - q^65 + q^80 - q^95 + q^110 + q^135 + q^170 - q^180 - q^195 - 
        q^230 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 30*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
915
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 30*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^15 + q^16 - 2*q^19 + q^25 + q^36 - q^49 - q^60 - q^61 + 
        q^64 - 2*q^76 + q^81 + q^100 - 2*q^109 - q^121 - q^135 - 2*q^141 + q^144
        + q^169 - 2*q^171 - q^196 - 2*q^199 + q^225 + 2*q^229 + 2*q^235 - q^240 
        + 2*q^241 + O(q^242),
    q^3 - q^5 + q^12 - q^20 + q^27 - q^45 - 2*q^47 + q^48 - 2*q^57 + q^75 - q^80
        + 2*q^83 + 2*q^95 - 2*q^107 + q^108 + 2*q^113 - q^125 + 2*q^137 - q^147 
        + 2*q^167 - q^180 - q^183 - 2*q^188 + q^192 - 2*q^197 - 2*q^228 + 
        O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
916
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
916
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
228
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
916
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
114
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
916
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
76
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
916
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
114
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^21*q^2 + (a^23 - a^4)*q^4 + (a^35 + a^28 - a^16)*q^5 + a^6*q^8 - 
        a^17*q^9 + (-a^30 + a^18 + a^11)*q^10 + (a^25 - a^19 - a^6)*q^13 - 
        a^27*q^16 + (-a^5 - a)*q^17 + (a^19 - 1)*q^18 + (-a^20 - a^13 + a)*q^20 
        + (a^35 + a^34 - 2*a^32 - a^31 + a^29 + a^28 - a^26 - 2*a^25 + a^23 + 
        a^22 - a^20 - a^19 + a^17 - a^15 - a^14 + a^13 + a^12 + a^11 - a^9 - a^8
        + a^6 + a^5 - a^3 - a^2 + 1)*q^25 + (a^21 + a^8 - a^2)*q^26 + (a^33 - 
        a^14 + a^10)*q^29 + (a^29 - a^10)*q^32 + (a^26 + a^22)*q^34 + a^2*q^36 +
        (a^32 - a^9)*q^37 + (a^34 - a^3)*q^40 + (a^31 - a^12 - a^11)*q^41 + 
        (-a^26 + a^14 + a^7)*q^45 + (-a^24 + a^5)*q^49 + (a^27 + a^20 - a^15 - 
        a^8)*q^50 + (-a^29 + a^4)*q^52 + (a^24 + a^12)*q^53 + (-a^31 + 
        a^16)*q^58 + (-2*a^35 - a^34 + a^32 + a^31 - a^29 - a^28 + a^26 + a^25 -
        a^23 - a^22 + a^20 + a^19 - a^18 - a^17 + a^15 + a^14 - a^12 - a^11 + 
        a^9 + a^8 - a^6 - a^5 + a^3 + a^2 - 1)*q^61 + a^12*q^64 + (-a^28 - a^22 
        + a^16 - a^15 + a^9 + a^3)*q^65 + (-a^28 - a^24 + a^9 + a^5)*q^68 - 
        a^23*q^72 + (a^30 + a^20)*q^73 + (-a^34 + a^30 + a^15)*q^74 + (a^35 - 
        a^33 - a^32 + a^30 + a^29 - a^27 - a^26 + 2*a^24 + a^23 - a^21 - a^20 + 
        a^18 + a^17 - a^16 - a^15 + a^13 + a^12 - a^10 - a^9 + a^7 + a^6 - a^4 -
        a^3 + a + 1)*q^80 + a^34*q^81 + (a^32 + a^14)*q^82 + (a^35 - 2*a^33 - 
        a^32 + a^30 - a^27 - a^26 + a^24 + a^23 - a^21 - a^20 + a^18 + a^17 - 
        a^16 - a^15 + a^13 + a^12 - a^10 - a^9 + a^7 + a^6 - a^4 - a^3 + a^2 + a
        + 1)*q^85 + (-a^31 - a^7)*q^89 + (-a^35 - a^9)*q^90 + (-a^23 - a^3)*q^97
        - a^7*q^98 + (-a^35 + a^33 + a^32 - a^30 - a^29 + a^27 + a^26 - a^24 - 
        a^23 - a^22 + a^21 + a^20 - a^18 + a^16 + a^15 - a^13 - a^12 + 2*a^10 + 
        a^9 - a^7 - a^6 + a^4 + 2*a^3 - a - 1)*q^100 + (a^26 + a^21 - a^2)*q^101
        + (a^31 - a^25 - a^12)*q^104 + (-a^33 - a^26 + a^7)*q^106 + a^27*q^109 +
        (-a^35 - a^34 + a^33 + a^32 - a^30 - a^29 + a^27 + a^26 - a^24 - a^23 + 
        a^21 + a^20 - a^18 + a^16 + 2*a^15 - a^13 - a^12 + a^10 + a^9 - a^7 - 
        a^6 + a^4 + a^3 - a - 1)*q^113 + (-a^35 - a^34 + a^33 + a^32 + a^31 - 
        a^29 - a^28 + a^26 + a^25 - a^23 - a^22 + a^20 + a^19 - a^18 - a^17 + 
        a^15 - a^12 - a^11 + a^9 + a^8 - a^6 - a^5 + a^3 + a^2 - 1)*q^116 + 
        (-a^35 + a^33 + a^32 - a^30 - a^29 + a^27 + a^26 - a^24 - a^23 + a^21 + 
        a^20 - a^18 + a^16 + a^15 - a^13 - a^12 + a^10 + a^9 - a^7 - a^6 + 2*a^4
        + a^3 - a - 1)*q^117 + (-a^20 + a)*q^121 + (a^35 + a^34 - a^32 - a^31 + 
        a^29 + a^28 - a^26 - a^25 + a^23 + a^22 - a^20 - a^19 + a^17 - a^15 - 
        a^14 + a^12 + a^11 - a^9 - a^8 + a^6 + a^5 - a^3 - a^2 - a + 1)*q^122 + 
        (-a^34 + a^29 - a^27 + a^22 + a^15 - a^10)*q^125 - a^33*q^128 + (-2*a^35
        - a^34 + a^33 + 2*a^32 + a^31 - a^30 - 2*a^29 - a^28 + a^27 + 2*a^26 + 
        a^25 - a^24 - 2*a^23 - a^22 + a^21 + 2*a^20 + a^19 - 2*a^18 - a^17 + 
        a^16 + 2*a^15 + a^14 - a^13 - 2*a^12 - 2*a^11 + a^10 + 2*a^9 + a^8 - a^7
        - 2*a^6 - 2*a^5 + a^4 + 2*a^3 + a^2 - a - 2)*q^130 + (-a^11 - a^7)*q^136
        + (-a^13 + a^4)*q^137 + (a^25 - a^6)*q^144 + (-a^30 - a^23 + a^19 + a^11
        - a^7 - 1)*q^145 + (-a^32 - a^22 + a^13 + a^3)*q^146 + (-a^32 - a^17 + 
        a^13)*q^148 + (-a^33 + a^27 - a^8)*q^149 + (a^22 + a^18)*q^153 + (a^35 -
        a^33 - a^32 + a^30 + 2*a^29 - a^27 - a^26 + a^24 + a^23 - a^21 - a^20 + 
        a^18 + a^17 - a^16 - a^15 + a^13 + a^12 - 2*a^10 - a^9 + a^7 + a^6 - a^4
        - a^3 + a + 1)*q^157 + (-a^26 - a^19 + a^7)*q^160 + (a^35 - a^33 - a^32 
        + a^30 + a^29 - a^27 - a^26 + a^24 + a^23 - a^21 - a^20 + a^18 + a^17 - 
        a^16 - a^15 + a^13 + a^12 - a^10 - a^9 + a^7 + a^6 - a^4 - a^3 + a + 
        1)*q^162 + (-a^35 - a^34 + a^15)*q^164 + (-a^31 + a^19 + a^6 - 1)*q^169 
        + (a^35 + a^31 - a^23 - a^19 - a^16 - a^12)*q^170 + (a^23 - a^13 - 
        a^4)*q^173 + (a^33 + a^28 - a^14)*q^178 + (a^35 + a^34 - a^32 - a^31 + 
        a^30 + a^29 + a^28 - a^26 - a^25 + a^23 + a^22 - a^20 - a^19 + a^17 - 
        a^15 - a^14 + a^12 + a^11 - a^9 - a^8 + a^6 + a^5 - a^3 - a^2 + 1)*q^180
        + (a^30 - a^22 + a^3)*q^181 + (-a^35 - a^34 + a^32 + a^31 - 2*a^29 - 
        a^28 + a^26 + a^25 - a^23 - a^22 + a^20 + a^19 - a^18 - a^17 + a^15 + 
        a^14 - a^12 - a^11 + a^9 + a^8 - a^5 + a^2 - 1)*q^185 + (-a^35 + 
        a^26)*q^193 + (a^25 + a^24 - a^6)*q^194 + a^28*q^196 + (-a^21 + 
        a^18)*q^197 + (-a^31 - a^5 + 1)*q^200 + (-a^28 + a^9 + a^4)*q^202 + 
        (-a^28 - a^21 - a^20 + a^9 + a^8 + a)*q^205 + (a^27 + a^14 - a^8)*q^208 
        + (a^35 - a^16 - a^9)*q^212 + (-a^29 + a^10)*q^218 + (-a^30 - a^26 + 
        a^24 + a^20 + a^11 + a^7)*q^221 + (a^23 + a^16 - a^11 - a^4)*q^225 + 
        O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
916
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
38
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
916
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
38
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^2 + a^4*q^4 + (a^16 - a^9)*q^5 + a^6*q^8 - a^17*q^9 + (a^17 - a^16
        + a^15 - a^14 + a^13 - a^12 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 +
        a^3 - a^2 + a - 1)*q^10 + (a^6 + 1)*q^13 + a^8*q^16 + (-a^5 - a)*q^17 + 
        q^18 + (-a^13 - a)*q^20 + (a^17 - a^16 + a^15 - a^14 - a^12 + a^11 - 
        a^10 + a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^25 + (a^8 + 
        a^2)*q^26 + (a^14 + a^10)*q^29 + a^10*q^32 + (-a^7 - a^3)*q^34 + 
        a^2*q^36 + (-a^13 - a^9)*q^37 + (-a^15 - a^3)*q^40 + (a^12 - a^11)*q^41 
        + (a^14 - a^7)*q^45 - a^5*q^49 + (-a^15 + a^8 - a)*q^50 + (a^10 + 
        a^4)*q^52 + (a^12 - a^5)*q^53 + (a^16 + a^12)*q^58 + (a^17 + a^15 - a^14
        + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^61 + a^12*q^64 + (a^16 - a^15 - a^9 - a^3)*q^65 + (-a^9 -
        a^5)*q^68 + a^4*q^72 + (-a^11 - a)*q^73 + (-a^15 - a^11)*q^74 + (-a^17 -
        a^5)*q^80 - a^15*q^81 + (a^14 - a^13)*q^82 + (-a^17 + a^14 + a^10 + 
        a^2)*q^85 + (a^12 - a^7)*q^89 + (a^16 - a^9)*q^90 + (a^4 - a^3)*q^97 - 
        a^7*q^98 + (-a^17 + a^10 - a^3)*q^100 + (-a^7 + a^2)*q^101 + (a^12 + 
        a^6)*q^104 + (a^14 - a^7)*q^106 + 2*a^8*q^109 + (-a^17 - a^15)*q^113 + 
        (a^17 - a^16 + a^15 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 
        + a^5 - a^4 + a^3 - a^2 + a - 1)*q^116 + (-a^17 + a^4)*q^117 - a*q^121 +
        (a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7
        - a^6 + a^5 - a^4 + a^3 - a^2 - 1)*q^122 + (-a^15 + a^10 + a^8 - 
        a^3)*q^125 + a^14*q^128 + (-a^16 + a^15 - a^14 + a^13 - a^12 - a^10 + 
        a^9 - a^8 + a^7 - a^6 - a^4 + a^3 - a^2 + a - 1)*q^130 + (-a^11 - 
        a^7)*q^136 + (-a^13 + a^4)*q^137 + a^6*q^144 + (-a^11 - a^7 + a^4 + 
        1)*q^145 + (-a^13 - a^3)*q^146 + (-a^17 - a^13)*q^148 + (a^14 + 
        a^8)*q^149 + (a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + 
        a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^153 + (-a^17 + 
        a^10)*q^157 + (-a^7 + 1)*q^160 - a^17*q^162 + (a^16 - a^15)*q^164 + 
        (a^12 + a^6 + 1)*q^169 + (a^16 + a^12 + a^4 + 1)*q^170 + (-a^13 + 
        a^4)*q^173 + (a^14 - a^9)*q^178 + (a^17 - a^16 + a^15 - a^14 + a^13 - 
        a^12 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^180 + (-a^11 - a^3)*q^181 + (a^17 - a^16 + a^15 - a^14 + a^13 - 
        a^12 + a^11 + a^9 - a^8 + a^7 + a^5 - a^4 - a^2 + a - 1)*q^185 + (a^16 -
        a^7)*q^193 + (a^6 - a^5)*q^194 - a^9*q^196 + (a^17 - a^16 + a^15 - a^14 
        + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + 
        a - 1)*q^197 + (a^12 - a^5 + 1)*q^200 + (-a^9 + a^4)*q^202 + (-a^9 + a^8
        + a^2 - a)*q^205 + (a^14 + a^8)*q^208 + (a^16 - a^9)*q^212 + 
        2*a^10*q^218 + (-a^11 - a^7 - a^5 - a)*q^221 + (a^16 - a^11 + a^4)*q^225
        + O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
916
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
19*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
916
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 38*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
916
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
57*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^5 + 1/2*(a - 1)*q^7 - a*q^11 + 1/2*(-a - 1)*q^13 + 1/2*(a - 1)*q^21 
        + 1/2*(-a - 1)*q^31 + 1/2*(-a - 1)*q^35 + 1/2*(-a - 1)*q^39 + 1/2*(a - 
        1)*q^41 + (a - 1)*q^47 + q^51 + q^53 + q^55 - q^57 + 1/2*(a + 1)*q^59 + 
        1/2*(-a + 1)*q^65 + 1/2*(a - 1)*q^67 + (a + 1)*q^69 - a*q^71 + 1/2*(a + 
        1)*q^77 - q^81 + q^91 + 1/2*(a + 1)*q^93 - a*q^97 + 1/2*(-a - 1)*q^101 -
        a*q^103 + 1/2*(-a - 1)*q^105 + (-a + 1)*q^109 + 1/2*(a + 1)*q^113 + 
        1/2*(a - 1)*q^119 + 1/2*(-a + 1)*q^123 + a*q^125 + (a - 1)*q^127 + q^129
        + 1/2*(-a - 1)*q^131 + 1/2*(-a + 1)*q^133 + 1/2*(a + 1)*q^137 + 1/2*(a -
        1)*q^143 - a*q^147 + 1/2*(-a + 1)*q^155 + 1/2*(-a - 1)*q^157 + q^159 - 
        q^161 + 1/2*(a + 1)*q^163 + 1/2*(-a - 1)*q^177 + 1/2*(a - 1)*q^179 - 
        q^183 + 1/2*(-a + 1)*q^189 + 1/2*(-a + 1)*q^195 + 1/2*(-a - 1)*q^199 + 
        1/2*(-a + 1)*q^201 + 1/2*(-a - 1)*q^205 + 1/2*(a - 1)*q^211 + 1/2*(-a - 
        1)*q^221 + O(q^226),
    q^2 + a*q^10 + (-a - 1)*q^12 + 1/2*(a - 1)*q^14 + 1/2*(a - 1)*q^16 - a*q^22 
        - a*q^24 + 1/2*(-a - 1)*q^26 + q^28 + 1/2*(a - 1)*q^42 + 1/2*(a - 
        1)*q^48 + a*q^52 + 1/2*(a + 1)*q^56 + (-a + 1)*q^60 + 1/2*(-a - 1)*q^62 
        + (a + 1)*q^64 + (-a - 1)*q^68 + 1/2*(-a - 1)*q^70 + (a + 1)*q^76 + 
        1/2*(-a - 1)*q^78 + 1/2*(-a - 1)*q^80 + 1/2*(a - 1)*q^82 + q^84 - 
        2*a*q^92 + (a - 1)*q^94 - q^96 + q^102 + 1/2*(a - 1)*q^104 + q^106 + (a 
        + 1)*q^108 + q^110 - a*q^112 - q^114 + 1/2*(a + 1)*q^118 + q^120 - 
        a*q^124 + a*q^128 + 1/2*(-a + 1)*q^130 + (a - 1)*q^132 + 1/2*(a - 
        1)*q^134 - a*q^136 + (a + 1)*q^138 + a*q^140 - a*q^142 + a*q^152 + 
        1/2*(a + 1)*q^154 + a*q^156 - q^162 - q^164 + 1/2*(a + 1)*q^168 + (-a - 
        1)*q^172 + 1/2*(a + 1)*q^176 + q^182 + (-a + 1)*q^184 + 1/2*(a + 
        1)*q^186 - a*q^194 + (a - 1)*q^196 + 1/2*(-a - 1)*q^202 - a*q^206 + 
        q^208 + 1/2*(-a - 1)*q^210 + (-a - 1)*q^212 + a*q^216 + (-a + 1)*q^218 +
        1/2*(-a + 1)*q^224 + O(q^226),
    q^3 + 1/2*(a - 1)*q^7 + 1/2*(-a - 1)*q^13 + a*q^15 + q^17 - q^19 + 1/2*(a - 
        1)*q^21 + (a + 1)*q^23 - q^27 + 1/2*(a + 1)*q^31 - a*q^33 + 1/2*(-a - 
        1)*q^35 + 1/2*(-a - 1)*q^39 + 1/2*(-a + 1)*q^41 + q^43 - a*q^49 + q^53 +
        1/2*(-a - 1)*q^59 - q^61 + 1/2*(-a + 1)*q^65 + 1/2*(-a + 1)*q^67 + 
        1/2*(a + 1)*q^77 - q^83 + a*q^85 + (a + 1)*q^89 + q^91 + 1/2*(-a - 
        1)*q^93 - a*q^95 + 1/2*(a + 1)*q^101 + 1/2*(-a - 1)*q^105 + 1/2*(-a - 
        1)*q^113 + (a - 1)*q^115 + 1/2*(a - 1)*q^119 + 1/2*(a - 1)*q^123 + 
        1/2*(-a - 1)*q^131 + 1/2*(-a + 1)*q^133 - a*q^135 + 1/2*(-a - 1)*q^137 +
        (a - 1)*q^141 + 1/2*(a - 1)*q^143 - q^149 - q^151 + 1/2*(a - 1)*q^155 + 
        1/2*(a + 1)*q^157 + q^159 - q^161 + 1/2*(-a - 1)*q^163 + q^165 + q^167 +
        a*q^169 + 1/2*(a + 1)*q^177 + 1/2*(a - 1)*q^179 - a*q^181 - a*q^187 + 
        1/2*(-a + 1)*q^189 + 1/2*(-a + 1)*q^195 + (-a + 1)*q^197 + 1/2*(-a - 
        1)*q^199 + 1/2*(a - 1)*q^201 + 1/2*(a + 1)*q^205 + a*q^209 + 1/2*(-a + 
        1)*q^211 - a*q^213 + a*q^215 + 1/2*(-a - 1)*q^221 + O(q^226),
    q^4 + q^12 - a*q^16 + a*q^20 + (a - 1)*q^28 - a*q^44 - a*q^48 + (-a - 
        1)*q^52 + a*q^60 - q^64 + q^68 - q^76 + q^80 + (a - 1)*q^84 + (a + 
        1)*q^92 - q^108 + (a + 1)*q^112 - a*q^132 + (-a - 1)*q^140 + (-a - 
        1)*q^156 + q^172 - q^176 + (a - 1)*q^188 - q^192 - a*q^196 + q^204 + (a 
        - 1)*q^208 + 2*q^212 + q^220 + O(q^226),
    q^6 + 1/2*(a - 1)*q^14 + 1/2*(a - 1)*q^16 - a*q^24 + 1/2*(-a - 1)*q^26 + 
        a*q^30 - q^32 + q^34 - q^38 + 1/2*(a - 1)*q^42 + (a + 1)*q^46 + 1/2*(-a 
        + 1)*q^48 - q^54 + 1/2*(a + 1)*q^56 + 1/2*(a + 1)*q^62 - a*q^66 + 
        1/2*(-a - 1)*q^70 + 1/2*(-a - 1)*q^78 + 1/2*(-a - 1)*q^80 + 1/2*(-a + 
        1)*q^82 + q^86 - a*q^98 + 1/2*(a - 1)*q^104 + q^106 + 1/2*(-a - 1)*q^118
        + q^120 - q^122 + a*q^128 + 1/2*(-a + 1)*q^130 + 1/2*(-a + 1)*q^134 - 
        a*q^136 + a*q^152 + 1/2*(a + 1)*q^154 - a*q^160 - q^166 + 1/2*(a + 
        1)*q^168 + a*q^170 + 1/2*(a + 1)*q^176 + (a + 1)*q^178 + q^182 + (-a + 
        1)*q^184 + 1/2*(-a - 1)*q^186 - a*q^190 + 1/2*(a + 1)*q^202 + 1/2*(-a - 
        1)*q^210 + a*q^216 + 1/2*(-a + 1)*q^224 + O(q^226),
    q^8 + (a - 1)*q^12 + (a + 1)*q^16 - q^24 - a*q^28 + a*q^40 + q^52 + (-a - 
        1)*q^60 + (-a + 1)*q^64 + (a - 1)*q^68 + (-a + 1)*q^76 + (a - 1)*q^80 - 
        a*q^84 - a*q^88 - 2*q^92 + (-a + 1)*q^108 - q^112 - a*q^120 - q^124 + 
        q^128 + (a + 1)*q^132 - q^136 + q^140 + q^152 + q^156 + a*q^164 + (a - 
        1)*q^172 + (-a + 1)*q^176 + (-a - 1)*q^184 + (a + 1)*q^196 - a*q^208 + 
        (a - 1)*q^212 + q^216 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
916
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 76*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 + (-a + 1)*q^5 + a*q^6 + (-a + 1)*q^14 + q^16 + (a - 1)*q^20 - q^21 
        + 2*q^22 - a*q^24 + a*q^29 + q^30 - 2*a*q^33 + a*q^37 + (a - 1)*q^38 + 
        (-a + 1)*q^41 - a*q^46 - q^54 + (a - 1)*q^56 + q^57 + (-a + 1)*q^62 - 
        q^64 + (a - 1)*q^69 - a*q^70 + a*q^73 + (2*a - 2)*q^77 + (-a + 1)*q^80 +
        a*q^81 + q^84 - 2*q^88 - a*q^89 - q^93 + (a - 1)*q^94 + a*q^96 + a*q^97 
        - 2*q^101 + (a - 1)*q^105 + (-2*a + 2)*q^110 - a*q^113 - a*q^116 + (a - 
        1)*q^118 - q^120 - 3*q^121 + q^125 + 2*a*q^132 - a*q^133 - a*q^134 + 
        a*q^137 + q^141 + (a - 1)*q^142 + q^145 - a*q^148 + (-a + 1)*q^149 + (-a
        + 1)*q^152 + (-a + 1)*q^157 + (-a + 1)*q^158 + q^161 + (a - 1)*q^164 - 
        2*q^165 + a*q^166 - q^169 + (-a + 1)*q^173 + (a - 1)*q^174 + q^177 + 
        a*q^181 + a*q^184 + q^185 + (-a + 1)*q^189 + a*q^190 + (-a + 1)*q^193 - 
        2*q^197 + (a - 1)*q^201 - a*q^205 - a*q^206 + (-2*a + 2)*q^209 + q^213 +
        q^216 + a*q^217 + (a - 1)*q^222 + (-a + 1)*q^224 + O(q^226),
    q^2 + 2*q^4 - a*q^6 + q^8 + (a - 1)*q^9 + (-a + 1)*q^10 - q^13 + (a - 
        1)*q^14 - q^17 + (a - 1)*q^18 + (-2*a + 2)*q^20 + q^21 - 2*q^22 + a*q^24
        - q^26 - 3*a*q^29 - q^30 + q^32 + 2*a*q^33 - q^34 + (a - 1)*q^36 + (-a +
        1)*q^38 + (-a + 1)*q^40 + (3*a - 3)*q^41 + a*q^45 + a*q^46 - a*q^49 - 
        q^52 + 2*q^53 + q^54 + (-a + 1)*q^56 - q^57 - 2*a*q^58 - q^61 + (a - 
        1)*q^62 + 2*q^64 + (a - 1)*q^65 - q^68 + (-a + 1)*q^69 + a*q^70 + (a - 
        1)*q^72 + a*q^74 + (-2*a + 2)*q^77 - 2*a*q^81 + (2*a - 2)*q^82 - q^84 + 
        (a - 1)*q^85 + 2*q^88 - a*q^89 + a*q^90 + q^93 + (-a + 1)*q^94 - a*q^96 
        - a*q^98 + q^101 - q^104 + (-a + 1)*q^105 + 2*q^106 - q^109 + (2*a - 
        2)*q^110 + 2*a*q^113 - a*q^116 + (-a + 1)*q^117 + (-a + 1)*q^118 + q^120
        + 4*q^121 - q^122 + q^128 + (a - 1)*q^130 - 2*a*q^132 + a*q^133 + 
        a*q^134 - q^136 - 3*a*q^137 - q^141 + (-a + 1)*q^142 + (a - 1)*q^144 - 
        3*q^145 + a*q^146 + 2*a*q^148 + (a - 1)*q^152 + (-a + 1)*q^153 + (a - 
        1)*q^158 + (-a + 1)*q^160 - q^161 - a*q^162 + (a - 1)*q^164 + 2*q^165 - 
        a*q^166 + q^169 + (a - 1)*q^170 + (-a + 1)*q^174 - q^177 - 2*a*q^178 + 
        a*q^180 - a*q^184 + (a - 1)*q^189 - a*q^190 + (3*a - 3)*q^193 + a*q^194 
        - a*q^196 + 4*q^197 + (-a + 1)*q^201 - q^202 + 3*a*q^205 + a*q^206 - 
        q^208 + (2*a - 2)*q^209 + 2*q^212 - q^213 - q^216 - a*q^217 - q^218 + 
        q^221 + (-a + 1)*q^222 + (a - 1)*q^224 + O(q^226),
    q^3 + (-2*a + 2)*q^4 - q^6 - a*q^7 + (-2*a + 2)*q^8 + a*q^9 + (-2*a + 
        2)*q^11 - q^12 + (a - 1)*q^13 + a*q^14 + (-a + 1)*q^15 + (a - 1)*q^17 + 
        a*q^18 + a*q^19 - 2*a*q^20 + (-a + 1)*q^21 + (2*a - 2)*q^22 - q^23 + 
        q^24 + (a - 1)*q^26 + (a - 1)*q^27 + a*q^28 - 3*q^29 + (a - 1)*q^30 - 
        a*q^31 + 2*q^33 + (a - 1)*q^34 - q^35 + a*q^36 - a*q^38 - 2*a*q^40 + 
        3*a*q^41 + (-a + 1)*q^42 + (2*a - 2)*q^44 + q^45 + q^46 + a*q^47 + q^48 
        - q^49 + (a - 1)*q^52 + (-2*a + 2)*q^53 + (-a + 1)*q^54 - 2*a*q^55 - 
        a*q^56 + (a - 1)*q^57 - 3*q^58 + a*q^59 + (a - 1)*q^60 + (a - 1)*q^61 + 
        a*q^62 + (-2*a + 2)*q^64 + a*q^65 + 2*q^66 - q^67 + (a - 1)*q^68 - 
        a*q^69 + q^70 + a*q^71 + a*q^72 - a*q^76 - 2*a*q^77 - a*q^79 - 2*q^81 + 
        3*a*q^82 + q^83 + (a - 1)*q^84 + a*q^85 + a*q^87 + (-2*a + 2)*q^88 - 
        q^89 + q^90 + q^92 + (-a + 1)*q^93 - a*q^94 + q^95 - q^96 - q^98 + (-a +
        1)*q^101 - q^103 + (a - 1)*q^104 - a*q^105 + (-2*a + 2)*q^106 + (-a + 
        1)*q^108 + (a - 1)*q^109 + 2*a*q^110 + a*q^111 - a*q^112 + 2*q^113 + (a 
        - 1)*q^114 + (a - 1)*q^115 - q^116 - a*q^117 - a*q^118 + (-a + 1)*q^120 
        + (-4*a + 4)*q^121 + (a - 1)*q^122 + (-a + 1)*q^123 + a*q^124 + q^127 + 
        (-2*a + 2)*q^128 + a*q^130 + q^131 - 2*q^132 + q^133 + q^134 + a*q^135 +
        (a - 1)*q^136 - 3*q^137 - a*q^138 + q^139 + q^140 + (a - 1)*q^141 - 
        a*q^142 + a*q^144 + (3*a - 3)*q^145 + 2*q^148 - q^151 + a*q^152 - 
        a*q^153 - 2*a*q^154 - q^155 + a*q^158 + (a - 1)*q^161 - 2*q^162 - q^163 
        + a*q^164 + (-2*a + 2)*q^165 - q^166 - a*q^167 + (a - 1)*q^168 + (-a + 
        1)*q^169 + a*q^170 - a*q^174 + (-2*a + 2)*q^176 + (a - 1)*q^177 - q^178 
        - q^179 + q^180 - q^184 + (-a + 1)*q^186 - a*q^188 + a*q^189 - q^190 + 
        a*q^191 - q^192 + 3*a*q^193 - q^196 + (-4*a + 4)*q^197 - a*q^201 + (-a +
        1)*q^202 + (-a + 1)*q^203 + 3*q^205 + q^206 + (a - 1)*q^208 + 2*a*q^209 
        - a*q^210 - a*q^211 + (-2*a + 2)*q^212 + (a - 1)*q^213 + (a - 1)*q^216 -
        q^217 + (a - 1)*q^218 + a*q^219 + 2*a*q^220 + (-a + 1)*q^221 - a*q^222 -
        q^223 + a*q^224 + O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
916
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 114*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^14 + q^16 - q^17 + q^36 - q^37 + q^49 - q^56 - q^61 + q^64
        - q^68 - q^70 + q^81 - q^85 - q^94 + q^121 - q^125 - q^126 + q^144 - 
        q^148 - q^149 - q^153 - q^158 - q^161 + q^169 - q^173 - q^185 + q^196 - 
        q^217 - q^224 + O(q^226),
    q^2 + q^8 - q^10 + q^18 - q^23 - q^31 + q^32 - q^35 - q^40 + q^50 - q^59 - 
        q^67 + q^72 - q^90 - q^92 - q^106 - q^107 + 2*q^115 + q^119 - q^124 + 
        2*q^127 + q^128 + 2*q^139 - q^140 + 2*q^155 - q^160 + q^162 - q^170 + 
        q^175 - q^191 - q^194 + 2*q^199 + q^200 - q^207 - q^211 - q^223 + 
        O(q^226),
    q^5 - q^14 - q^17 + q^20 - q^25 - q^37 + q^45 + q^46 + q^49 + q^53 - q^56 - 
        q^61 + q^62 - q^68 + q^80 - q^94 + q^97 - q^100 + q^118 - q^126 + q^134 
        - q^148 - q^149 - q^153 - q^158 - q^173 + q^180 + q^181 + q^184 + q^193 
        + q^196 + q^212 + q^214 - q^224 - q^225 + O(q^226),
    q^7 - q^10 - q^23 + q^28 - q^31 + q^34 - q^40 + q^47 + q^50 - q^59 + q^63 - 
        q^67 + q^74 + q^79 - q^90 - q^92 - q^98 - q^106 - q^107 + q^112 + q^115 
        - q^119 + q^122 - q^124 + q^131 + q^136 + q^155 - q^160 + q^163 + q^179 
        + q^188 - q^191 - q^194 + q^200 - q^207 - q^211 - q^223 + O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
917
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
917
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
917
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
130
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
917
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
390
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
917
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
390
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
917
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
130
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
917
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
917
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
917
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
917
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
917
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
917
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 13*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
917
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 26*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
917
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 26*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
917
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
65*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^5 - q^15 + q^16 - q^20 + q^25 - q^27 + q^33 + q^39 - q^43 + q^45
        - q^49 + 2*q^53 - q^55 - q^59 - q^60 - q^61 + q^64 - q^65 + q^75 - q^80 
        + 2*q^89 - q^99 + q^100 - q^101 - q^107 - q^108 - q^117 + q^123 - q^125 
        - q^129 + q^131 + q^132 + q^135 + q^143 + q^156 + 2*q^167 - q^172 + 
        O(q^174),
    q^3 - q^5 - q^9 + q^11 + q^12 + q^13 - q^20 + q^25 - q^33 - q^36 - q^39 + 
        q^41 - q^43 + q^44 + q^48 + q^52 - q^59 - q^61 - q^80 + q^99 + q^100 - 
        q^101 - q^107 + q^109 + q^113 + q^117 - q^121 - q^123 - q^132 + q^135 - 
        q^143 - q^144 - q^147 + q^151 - q^156 + 2*q^159 + q^164 - q^165 - q^169 
        - q^172 + O(q^174),
    q^7 + q^28 - q^35 - q^49 - q^105 + q^112 - q^140 - q^147 + O(q^174),
    q^21 - q^35 - q^49 - q^63 + q^77 + q^84 + q^91 - q^140 + O(q^174)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
917
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 65*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (a - 1)*q^9 + (a - 1)*q^16 - a*q^25 + (-a + 1)*q^33 + (a - 
        1)*q^35 + q^36 + a*q^39 - 2*a*q^45 + a*q^53 + (a - 1)*q^63 + q^64 + (-a 
        + 1)*q^75 - a*q^81 + (-a + 1)*q^89 + (a - 1)*q^100 + (a - 1)*q^105 + (a 
        - 1)*q^121 + a*q^123 + (a - 1)*q^131 - q^132 + (-a + 1)*q^135 + q^140 - 
        2*a*q^143 - a*q^144 + q^147 + (-a + 1)*q^156 + a*q^165 - q^167 + q^169 +
        O(q^174),
    q^3 - a*q^12 + (a - 1)*q^15 + 1/3*(-a + 2)*q^21 - q^25 + (a - 1)*q^27 + 
        1/3*(a + 1)*q^35 + (-a + 1)*q^41 - q^45 + (a - 1)*q^48 + 1/3*(-2*a + 
        1)*q^49 + (-a + 1)*q^55 + q^60 + 1/3*(a + 1)*q^63 + a*q^65 - a*q^75 + 
        1/3*(-a - 1)*q^77 - q^81 + 1/3*(-a - 1)*q^84 + 1/3*(-a + 2)*q^91 + (-a +
        1)*q^99 + a*q^100 + (a - 1)*q^105 + q^108 + q^109 + (a - 1)*q^113 + 
        a*q^117 - 2*a*q^135 + 1/3*(-2*a + 1)*q^140 + a*q^159 - q^164 + O(q^174),
    q^5 + q^9 + q^15 - a*q^20 - a*q^21 + q^27 - a*q^33 - a*q^36 + q^39 + (a - 
        1)*q^43 + (a - 1)*q^45 + (a - 1)*q^55 + q^59 - a*q^60 + (a - 1)*q^61 - 
        a*q^65 + (a - 1)*q^75 + q^77 + (a - 1)*q^80 + (a - 1)*q^81 + (a - 
        1)*q^84 + (a - 1)*q^91 + (a - 1)*q^99 - a*q^101 + q^105 + (a - 1)*q^107 
        - a*q^108 - a*q^117 + (a - 1)*q^121 - a*q^123 - a*q^125 + q^129 + (a - 
        1)*q^132 + (a - 1)*q^135 - a*q^143 + (a - 1)*q^144 - a*q^147 - a*q^156 +
        (-a + 1)*q^165 + q^169 + q^172 + O(q^174),
    q^7 + (-2*a + 1)*q^15 - q^21 + (-2*a + 1)*q^27 - a*q^28 + (-a - 1)*q^33 + 
        (-a + 2)*q^39 + (2*a - 1)*q^43 + (2*a - 1)*q^55 + (-a + 2)*q^59 + (a - 
        2)*q^60 + (a + 1)*q^61 + (a - 1)*q^63 + (-a - 1)*q^65 + (a + 1)*q^75 + 
        (-a + 1)*q^77 + a*q^84 + a*q^91 + (2*a - 1)*q^99 + (a - 2)*q^101 + (-a +
        1)*q^105 + (a + 1)*q^107 + (a - 2)*q^108 + (a - 1)*q^112 + (-a - 
        1)*q^117 + (a + 1)*q^121 + (a - 2)*q^123 + (-a + 2)*q^129 + (2*a - 
        1)*q^132 + (a + 1)*q^135 + (a - 2)*q^143 - q^147 + (-a - 1)*q^156 + 
        (-2*a + 1)*q^169 + (-a + 2)*q^172 + O(q^174),
    q^11 + (a - 1)*q^13 + 1/3*(-2*a + 1)*q^21 - q^25 + 1/3*(2*a - 1)*q^35 + (-a 
        + 1)*q^41 - a*q^44 - q^45 + 1/3*(-a + 2)*q^49 + q^52 + (-a + 1)*q^55 + 
        1/3*(2*a - 1)*q^63 + a*q^65 + 1/3*(a - 2)*q^77 - q^81 + 1/3*(a - 2)*q^84
        + 1/3*(-2*a + 1)*q^91 + a*q^100 + (a - 1)*q^125 + q^129 + 1/3*(-a + 
        2)*q^140 + q^151 - q^164 + q^165 + O(q^174)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
918
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
302
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
918
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
302
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
918
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
302
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
918
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
302
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
918
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
144
);
qprec:=
302
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
918
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
302
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
918
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
302
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
918
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
302
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
918
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
302
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
918
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
302
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
918
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
302
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
918
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
302
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
918
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
302
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
918
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
302
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
918
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
302
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^13 + q^16 - q^19 - q^43 + q^49 - q^52 - 2*q^55 + q^64 - q^67 - 
        q^76 - q^85 - q^103 + q^115 + 3*q^121 + 2*q^127 + q^145 - q^151 + 
        2*q^157 - q^172 + 2*q^187 + q^196 + q^205 - q^208 - 2*q^220 - q^223 - 
        q^229 + q^247 - 2*q^253 + q^256 - q^268 + 2*q^271 + q^289 + O(q^302),
    q^2 + q^8 - q^26 + q^32 - q^38 - q^86 + q^98 - q^104 - 2*q^110 + q^128 - 
        q^134 - q^152 - q^170 - q^206 + q^230 + 3*q^242 + 2*q^254 + q^290 + 
        O(q^302),
    q^5 - 2*q^11 - q^17 + q^20 + q^23 + q^29 + q^41 - 2*q^44 - q^65 - q^68 + 
        q^71 + q^80 + q^92 - q^95 + q^107 - 2*q^113 + q^116 - q^125 + q^131 + 
        2*q^143 + q^164 - 2*q^167 - 2*q^173 - 2*q^176 + q^197 + 2*q^209 - q^215 
        + q^221 + q^227 + q^233 + q^245 - q^260 - 2*q^269 - q^272 + q^284 - 
        q^299 + O(q^302),
    q^10 - 2*q^22 - q^34 + q^40 + q^46 + q^58 + q^82 - 2*q^88 - q^130 - q^136 + 
        q^142 + q^160 + q^184 - q^190 + q^214 - 2*q^226 + q^232 - q^250 + q^262 
        + 2*q^286 + O(q^302)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
919
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
918
);
qprec:=
153
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
919
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
306
);
qprec:=
153
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
919
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
153
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
919
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
17*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
153
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
919
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
153
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
919
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
51*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
153
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
919
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
153*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
153
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
919
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
459*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
153
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - q^58 - q^59 - q^65 - q^68 - q^80 + q^81 - q^85 - 
        q^103 - q^110 + q^121 - q^134 - q^143 + O(q^153),
    q^2 + q^18 - q^29 - q^34 - q^40 + q^50 - q^55 - q^67 - q^92 + q^98 - q^110 +
        q^115 + q^121 + q^125 + q^143 - q^145 + q^151 + O(q^153),
    q^4 - q^17 - q^20 + q^36 - q^46 - q^55 + q^59 + q^65 + q^85 + q^100 + q^103 
        - q^107 - q^122 - q^130 - q^139 + q^143 + O(q^153),
    q^5 - q^16 - q^17 + q^45 + q^50 + q^52 - q^55 - q^58 + q^88 + q^94 - q^107 -
        q^110 + q^125 - q^134 - q^139 - q^144 + O(q^153),
    q^8 - q^16 - q^17 - q^20 + q^29 + q^32 + q^34 + q^40 - q^46 - q^58 - q^64 + 
        q^67 - q^68 + q^72 - q^80 + q^92 - q^107 + q^116 + q^118 - q^122 + q^128
        - q^134 + q^136 - q^139 - q^144 + q^145 + O(q^153),
    q^10 - q^16 - q^17 - q^20 + q^25 + q^26 + q^40 + q^44 - q^46 + q^47 - q^55 -
        q^58 - q^64 - q^68 - q^80 + q^83 + q^88 + q^90 + q^92 + q^100 + q^104 - 
        q^107 - q^110 - q^122 + q^128 - q^130 - q^134 + q^136 - q^139 + q^142 - 
        q^144 + q^149 + O(q^153),
    q^11 - q^16 - q^17 - q^20 + q^22 + q^26 + q^40 + q^44 - q^46 + q^52 - q^55 -
        q^58 - q^64 - q^68 + q^85 + q^88 + q^99 + q^100 + q^104 - q^107 - q^110 
        + q^113 - q^122 - q^130 - q^134 - q^139 + q^142 - q^144 + q^145 + 
        O(q^153),
    q^13 - q^16 - q^17 + q^22 + q^44 - q^46 + q^50 + q^52 - q^55 - q^58 - q^64 -
        q^68 + q^71 + q^88 + q^94 + q^104 - q^107 - q^110 + q^115 + q^117 - 
        q^122 - q^130 + q^131 - q^134 - q^139 - q^144 + O(q^153),
    q^23 - q^25 - q^26 + q^32 + q^34 - q^44 - q^47 + q^61 + q^65 - q^83 - q^88 +
        q^110 + q^116 - q^142 - q^149 + O(q^153)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^5 + (a^9 - a^8 + a^7 + a^5 - a^4 - a^2 + a - 1)*q^9 + (a^8 - a^7 - 
        a^3 - a)*q^21 + a^2*q^25 + (a^8 + a^6)*q^29 + (-a^9 + a^4)*q^41 + (-a^7 
        + a^4 + 1)*q^45 + (a^9 - a^8 + a^7 - a^6 - a^4 + a^3 - a^2 + a)*q^49 + 
        (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^61 + (-a^9 - 
        a^5)*q^69 + (-a^9 + a^6 - a^5 + a^2 - a)*q^81 + (-a^7 - a^3)*q^89 + 
        (-a^5 + a^4)*q^101 + (-a^9 + a^8 + a^4 + a^2)*q^105 + (-a^9 - a^5)*q^109
        - a^7*q^121 - a^3*q^125 + (a^8 - a^5 + a^4 - a)*q^129 + (a^8 + a^6 + a^4
        + a^2)*q^141 + (-a^9 - a^7)*q^145 + (a^9 + a^7 - a^6 + a^5 - a^4 + a^3 -
        a^2 + a - 1)*q^149 + (-a^7 + a^2)*q^161 + a^6*q^169 + (a^9 - a^8 + a^7 -
        a^6 + a^5 - a^4 + a^3 - a^2 + a)*q^181 + (-a^8 + a^5 + a)*q^189 + (a^9 -
        a^8 + a^7 - a^6 + a^5 - a^2 + a)*q^201 + (a^9 - a^8 + a^7 - a^6 - a^4 + 
        a^3 - a^2 + a - 1)*q^205 + (a^8 - a^5 - a)*q^225 + (-a^9 + a^2)*q^229 + 
        (a^6 - a)*q^241 + (a^6 - a + 1)*q^245 + (a^8 - a^7 - a + 1)*q^249 + 
        (-a^9 - a^7 - a^5 - a^3 - a + 1)*q^261 + (-a^3 + a^2)*q^269 + O(q^274),
    q^2 + a^4*q^8 - a*q^10 + (-a^9 - a^5)*q^12 + (a^9 - a^8 + a^7 + a^5 - a^4 - 
        a^2 + a - 1)*q^18 + (-a^7 + a^2)*q^28 + a^8*q^32 - a^5*q^40 + (a^8 - a^7
        - a^3 - a)*q^42 + (-a^9 + a^2)*q^48 + a^2*q^50 + (a^8 + a^6)*q^58 + (a^9
        - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^60 + (a^9 - a^8 - a^6 + 
        a^5 - a^4 - a^2 + a - 1)*q^72 + (-a^9 + a^4)*q^82 + (-a^7 + a^4 + 
        1)*q^90 + a^4*q^92 + (a^9 - a^8 + a^7 - a^6 - a^4 + a^3 - a^2 + a)*q^98 
        + (a^8 + a^4 - a + 1)*q^108 + (a^6 + 1)*q^112 + (a^9 - a^8 + a^7 - a^6 +
        a^5 - a^4 + a^3 + a - 1)*q^122 - a*q^128 + (-a^9 - a^5)*q^138 + (a^8 - 
        a^3)*q^140 - a^9*q^160 + (-a^9 + a^6 - a^5 + a^2 - a)*q^162 + (-a^7 - 
        a^5 - a + 1)*q^168 + (-a^3 + 1)*q^172 + (-a^7 - a^3)*q^178 + (-a^3 - 
        a)*q^188 + (a^6 + a^2)*q^192 + a^6*q^200 + (-a^5 + a^4)*q^202 + (-a^9 + 
        a^8 + a^4 + a^2)*q^210 + (-a^9 - a^5)*q^218 + (a^9 - a^8 + a^7 - a^6 + 
        a^5 - a^4 + a^3 - a^2 - 1)*q^232 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - 
        a^2 + a - 1)*q^240 - a^7*q^242 - a^3*q^250 + (a^9 + a^7 - a^4 + a^3 - 
        1)*q^252 + (a^8 - a^5 + a^4 - a)*q^258 + (-a^8 + a^7 - a^6 + a^5 - a^4 +
        a^3 - a^2 + a - 1)*q^268 + O(q^274),
    q^3 + (a^9 - a^8 - 2*a^6 + a^5 + 2*a^3 + a - 2)*q^7 - a*q^15 + (-a^8 + a^5 +
        a^3 - a^2 - 1)*q^23 + (a^6 - a^3)*q^27 + (a^8 + a^7 - a^5 - a^4 - a^3 + 
        a + 1)*q^35 + (-a^9 + 2*a^8 + 2*a^6 - 2*a^5 - 2*a^3 + a^2 + 2)*q^43 + 
        (-2*a^9 + a^8 - a^7 + 2*a^6 - a^5 + a^4 - 2*a^3 - a + 1)*q^47 + (2*a^9 -
        2*a^6 - a^4 + a^3 + a - 1)*q^63 + (-a^8 + a^4 - a)*q^67 + a^2*q^75 + 
        (-a^9 + a^5 - a)*q^83 + (a^8 + a^6)*q^87 + (-a^8 - a^7 + a^4 - a - 
        1)*q^103 + (-a^9 - a^8 + a^5 + a^4 - a)*q^107 + (a^9 - a^6 - a^4 + a^3 +
        a)*q^115 + (-a^9 + a^4)*q^123 + (a^8 - a^4 + 1)*q^127 + (-a^7 + 
        a^4)*q^135 + (a^9 - a^8 + a^7 - a^6 - a^4 + a^3 - a^2 + a)*q^147 + (a^9 
        + a^8 + a^7 - a^5 - a^4 - a^3 + a^2 + a + 1)*q^163 + (2*a^9 - 2*a^6 - 
        a^4 + 2*a^3 + 2*a - 1)*q^167 + (-a^9 - a^8 + a^6 + a^5 + a^4 - a^2 - 
        a)*q^175 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^183 + 
        (3*a^9 - 2*a^8 + a^7 - 3*a^6 + a^5 - a^4 + 3*a^3 - a^2 + 2*a - 3)*q^203 
        + (-a^8 - a^6 + a^3 - 1)*q^207 + (-a^9 - a^8 - a^7 + a^6 + a^5 + a^4 - 
        a^2 - a - 1)*q^215 + (-2*a^9 + 2*a^8 + 2*a^6 - a^5 - 2*a^3 - a + 
        2)*q^223 + (a^8 + a^7 - a^4 - a^3 + 1)*q^227 + (a^9 - a^8 - a^6 + a^5 + 
        2*a^3 - a^2 + a - 2)*q^235 + (-a^9 + a^6 - a)*q^243 + (-2*a^9 - a^7 + 
        2*a^6 + 2*a^4 - 2*a^3 - 2*a + 1)*q^263 + (-a^7 - a^3)*q^267 + O(q^274),
    q^4 + (-a^5 - a)*q^6 + (-a^9 - a^3)*q^14 + a^4*q^16 - a*q^20 + (-a^9 - 
        a^5)*q^24 + (a^6 + a^2)*q^30 + (a^9 - a^8 + a^7 + a^5 - a^4 - a^2 + a - 
        1)*q^36 + q^46 + (a^8 - a^7 + a^4 + 1)*q^54 + (-a^7 + a^2)*q^56 + 
        a^8*q^64 + (a^9 - a^8 + a^7 - a^6 + a^5 + a^3 - a^2 + a - 1)*q^70 - 
        a^5*q^80 + (a^8 - a^7 - a^3 - a)*q^84 + (a^9 - a^8 - a^6 + a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^86 + (a^9 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a -
        1)*q^94 + (-a^9 + a^2)*q^96 + a^2*q^100 + (a^8 + a^6)*q^116 + (a^9 - a^8
        + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^120 + (-a^9 + a^8 + a^6 + a^4 +
        a^2 - a)*q^126 + (a^6 - a^5)*q^134 + (a^9 - a^8 - a^6 + a^5 - a^4 - a^2 
        + a - 1)*q^144 + (-a^7 - a^3)*q^150 + (-a^9 + a^4)*q^164 + (-a^3 + 
        a^2)*q^166 + (-a^9 - a^7 + a^2 + 1)*q^174 + (-a^7 + a^4 + 1)*q^180 + 
        a^4*q^184 + (a^9 - a^8 + a^7 - a^6 - a^4 + a^3 - a^2 + a)*q^196 + (a^8 +
        a^6)*q^206 + (-a^5 - a^3)*q^214 + (a^8 + a^4 - a + 1)*q^216 + (a^6 + 
        1)*q^224 - a*q^230 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 
        1)*q^244 + (-a^8 + a^7 - a^6 - a^4 - a^2 + a - 1)*q^246 + (a^2 - 
        a)*q^254 - a*q^256 + (-a^9 + a^8 - a^5 - a)*q^270 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^4*q^4 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^9 - 
        a^3*q^10 + (-a^5 + a^2)*q^11 + (a^8 - a)*q^14 + a^8*q^16 + (-a^8 + a^7 -
        a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^19 + a^2*q^25 + (a^6 + a^4)*q^26 
        + (-a^7 + 1)*q^35 - a^3*q^36 - a^7*q^40 + (-a^7 + a^6)*q^41 + (-a^9 + 
        a^6)*q^44 - a^7*q^46 + (-a^9 - a^5 - a)*q^49 + (-a^5 - a)*q^56 + (a^6 + 
        1)*q^59 - a*q^64 + (-a^5 - a^3)*q^65 + (-a^9 + a^4)*q^74 + (-a^3 + 
        a^2)*q^76 - a^9*q^81 + (a^8 + a^2)*q^89 + a^2*q^90 + (a^9 + a^7 - a^6 + 
        a^5 - a^4 - a^2 - 1)*q^91 + (a^9 - a^8 + a^7 - a^6 - a^4 + a^3 - a^2 + a
        - 1)*q^94 + (a^4 - a)*q^99 + a^6*q^100 + (a^9 + a^7 - a^6 + a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^104 + (-a^9 + 1)*q^106 + (a^8 - a^5)*q^110 + 
        a^6*q^115 + (a^9 - a^8 - a^6 + a^5 + a^3 - a^2 + a - 1)*q^121 + (-a^7 + 
        1)*q^126 + (-a^3 + a^2)*q^131 + (-a^7 + a^4)*q^139 + (a^4 + 1)*q^140 - 
        a^7*q^144 + (a^9 - a^8 + a^7 + a^5 - a^4 + a - 1)*q^154 + q^160 + (a^4 +
        1)*q^161 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a)*q^164 + 
        (a^8 + a^6 + a^4)*q^169 + (-a^9 + a^8)*q^171 + (a^9 - a^8 + a^7 - a^6 + 
        a^5 - a^4 + a^3 + a - 1)*q^176 + (a^8 - a^5)*q^179 + q^184 + (a^8 - 
        a^3)*q^185 + (a^2 - a)*q^190 + (-a^9 - a^5 + a^2)*q^196 + (a^9 - a^8 + 
        a^7 - a^6 + a^5 - a^4 + a^3 - a^2 - 1)*q^206 + (a^4 - a^3 - a + 1)*q^209
        + (-a^5 - a^3)*q^211 + (-a^9 - a^5)*q^224 - a*q^225 + (-a^5 - a^3)*q^234
        + (-a^9 + a^4)*q^235 + (a^9 - a^8 + a^7 - a^6 + a^5 + a^3 - a^2 + a - 
        1)*q^236 + (a^6 - a)*q^241 - a^5*q^250 + (-a^3 - a)*q^251 + (-a^9 + 
        a^2)*q^254 - a^5*q^256 + (a^8 + a^6 + a^2 - a)*q^259 + (-a^9 - 
        a^7)*q^260 + (a^9 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^265 + 
        (a^9 - a^8 + a^5 - a^4 + a^3 - a^2 + a)*q^266 + O(q^274),
    q^2 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^5 + (a^8 + 
        a^4)*q^7 + a^4*q^8 + (a^2 + 1)*q^13 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4
        + a^3 - a^2 + a - 1)*q^18 - a^3*q^20 + (-a^5 + a^2)*q^22 - a^3*q^23 + 
        (a^8 - a)*q^28 + a^8*q^32 + (-a^5 + 1)*q^37 + (-a^8 + a^7 - a^6 + a^5 - 
        a^4 + a^3 - a^2 + a - 1)*q^38 - a^9*q^45 + (a^6 - a)*q^47 + a^2*q^50 + 
        (a^6 + a^4)*q^52 + (-a^7 - a^5)*q^53 + (a^4 - a)*q^55 + (-a^7 - 
        a^3)*q^63 + (-a^7 + 1)*q^70 - a^3*q^72 + (-a^8 + a^7 + a^5 - a^4 + a^3 +
        a - 1)*q^77 - a^7*q^80 + (-a^7 + a^6)*q^82 + (-a^9 + a^6)*q^88 - 
        a^7*q^92 + (-a^9 + a^8)*q^95 + (-a^9 - a^5 - a)*q^98 + (a^8 + a^6)*q^103
        + (-a^5 - a)*q^112 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 - 
        1)*q^117 + (a^6 + 1)*q^118 - a*q^125 + (-a^9 - a^5)*q^127 - a*q^128 + 
        (-a^5 - a^3)*q^130 + (-a^7 + a^6 - a^3 + a^2)*q^133 + (-a^7 - a^5 + a^4 
        + a^2)*q^143 + (-a^9 + a^4)*q^148 + (-a^3 + a^2)*q^152 + (a^8 - 
        a^7)*q^157 - a^9*q^162 + (-a^7 - a^3)*q^167 + (-a^3 + 1)*q^173 + (a^9 - 
        a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^175 + (a^8 + a^2)*q^178 + 
        a^2*q^180 + (a^9 + a^7 - a^6 + a^5 - a^4 - a^2 - 1)*q^182 + (a^9 - a^8 +
        a^7 - a^6 - a^4 + a^3 - a^2 + a - 1)*q^188 + (-a^9 + a^4)*q^197 + (a^4 -
        a)*q^198 + a^6*q^200 + (a^6 - a^5)*q^205 + a^2*q^207 + (a^9 + a^7 - a^6 
        + a^5 - a^4 + a^3 - a^2 + a - 1)*q^208 + (-a^9 + 1)*q^212 + (a^8 - 
        a^5)*q^220 + (-a + 1)*q^223 + a^6*q^230 + (a^9 - a^8 - a^6 + a^5 + a^3 -
        a^2 + a - 1)*q^242 + (a^8 + a^4 + 1)*q^245 + (-a^8 + a^7 - a^6 + a^5 - 
        a^4 + a^3 - a^2)*q^247 + (-a^7 + 1)*q^252 + (a^8 - a^5)*q^253 + (-a^3 + 
        a^2)*q^262 + (a^2 + 1)*q^263 + O(q^274)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 - q^13 + q^23 + q^25 + q^27 - q^29 - q^31 + q^39 - q^41 - q^47 + 
        q^49 + 2*q^59 - q^69 - q^71 - q^73 - q^75 - q^81 + q^87 + q^93 + 2*q^101
        + q^121 + q^123 - q^127 - q^131 - q^139 + q^141 - q^147 - q^151 - q^163 
        + 2*q^167 + 2*q^173 - 2*q^177 - q^179 - q^193 - q^197 + 2*q^211 + q^213 
        + q^219 + 2*q^223 - q^233 - q^239 - q^257 - q^269 + 2*q^271 + O(q^274),
    q^2 - q^6 - q^26 + q^46 + q^50 + q^54 - q^58 - q^62 + q^78 - q^82 - q^94 + 
        q^98 + 2*q^118 - q^138 - q^142 - q^146 - q^150 - q^162 + q^174 + q^186 +
        2*q^202 + q^242 + q^246 - q^254 - q^262 + O(q^274),
    q^4 - q^12 - q^16 + q^32 + q^48 - q^52 + q^92 - q^96 + q^100 + q^108 - q^116
        - q^124 - q^128 + q^156 - q^164 - q^188 + q^196 + q^208 + 2*q^236 + 
        q^256 + O(q^274),
    q^5 - q^15 - q^65 + q^115 + q^125 + q^135 - q^145 - q^155 + q^195 - q^205 - 
        q^235 + q^245 + O(q^274),
    q^8 - q^16 - q^24 + q^48 + q^64 - q^104 - q^128 + q^184 - q^192 + q^200 + 
        q^208 + q^216 - q^232 - q^248 + O(q^274),
    q^10 - q^30 - q^130 + q^230 + q^250 + q^270 + O(q^274),
    q^20 - q^60 - q^80 + q^160 + q^240 - q^260 + O(q^274),
    q^40 - q^80 - q^120 + q^240 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 11*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^6 - q^8 - q^9 + q^12 - q^18 - q^23 - q^25 - q^26 + q^36 + 2*q^39 - 
        q^48 + q^49 - q^52 - q^54 + q^58 + q^62 + q^64 + q^72 + q^78 + q^81 + 
        q^82 - 2*q^87 - q^94 - q^96 - q^108 + q^116 - q^121 - q^124 - q^138 - 
        q^142 + q^144 + q^146 - q^150 - q^156 - q^164 + 2*q^167 - q^169 - q^174 
        + q^184 + q^186 + q^188 + q^200 + q^207 + q^208 - 2*q^223 + q^225 + 
        2*q^234 + q^246 - q^254 - q^262 + 2*q^271 + O(q^274),
    q^2 - q^4 + q^6 - 2*q^9 + q^12 - q^16 - q^26 + 2*q^31 + q^32 + 2*q^39 + 
        2*q^41 - q^46 - 2*q^47 - q^48 - q^50 - q^52 - q^54 + q^58 - q^62 - 
        2*q^71 + 2*q^72 + 2*q^73 + q^78 - q^82 - 2*q^87 + q^92 + q^94 - q^96 + 
        q^98 + q^100 - q^108 + q^116 + q^124 - 2*q^127 + q^128 - q^138 + q^142 -
        q^146 - q^150 + 2*q^151 - q^156 + q^162 + q^164 - 2*q^169 - q^174 + 
        q^186 - q^188 - 2*q^193 - q^196 + 2*q^207 + q^208 + 2*q^225 - 2*q^233 + 
        2*q^234 + 2*q^239 - q^242 + q^246 - 2*q^248 + q^254 - q^256 + 2*q^257 - 
        q^262 + O(q^274),
    q^3 - q^4 + q^6 - q^9 - q^13 + q^18 - q^24 - q^26 - q^27 + q^29 + q^31 + 
        q^32 + q^36 + q^39 + q^41 - q^47 - q^48 - q^54 + q^58 - q^62 - q^69 - 
        q^71 + q^72 + q^73 - q^75 - q^78 - q^82 - q^87 + q^92 + q^93 + q^94 + 
        q^100 + q^104 + 2*q^117 + q^123 - q^127 - q^131 - q^138 + q^139 - q^141 
        + q^142 - q^144 - q^146 + q^147 - q^150 + q^151 - 2*q^156 - q^163 - 
        q^169 + q^174 - q^179 + q^186 + q^192 - q^193 - q^196 + q^197 + q^207 + 
        q^208 - q^213 + q^216 + q^219 + q^225 - q^232 - q^233 + 2*q^234 + q^239 
        + q^246 - q^248 + q^254 - q^256 + q^257 - 2*q^261 - q^262 - q^269 + 
        O(q^274),
    q^5 + q^30 - q^40 - q^45 + q^60 - q^90 - q^115 - q^125 - q^130 + q^180 + 
        2*q^195 - q^240 + q^245 - q^260 - q^270 + O(q^274),
    q^10 - q^20 + q^30 - 2*q^45 + q^60 - q^80 - q^130 + 2*q^155 + q^160 + 
        2*q^195 + 2*q^205 - q^230 - 2*q^235 - q^240 - q^250 - q^260 - q^270 + 
        O(q^274),
    q^15 - q^20 + q^30 - q^45 - q^65 + q^90 - q^120 - q^130 - q^135 + q^145 + 
        q^155 + q^160 + q^180 + q^195 + q^205 - q^235 - q^240 - q^270 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + 11*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + 11*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.3 + 11*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 + q^25 - q^29 - q^31 - q^35 - q^41 - q^59 - q^71 + q^81 - q^85 - 
        q^101 + q^115 + q^119 + q^121 + 2*q^131 - q^139 + 2*q^151 - q^161 + 
        q^169 + 2*q^179 - q^185 - q^211 + 2*q^215 + q^225 - q^239 + q^259 - 
        q^261 - q^265 - q^269 - q^271 + O(q^274),
    q^2 + q^18 + q^50 - q^58 - q^62 - q^70 - q^82 - q^118 - q^142 + q^162 - 
        q^170 - q^202 + q^230 + q^238 + q^242 + 2*q^262 + O(q^274),
    q^5 - q^7 - q^17 + q^23 - q^37 + 2*q^43 + q^45 - q^53 - q^63 - q^67 - q^83 +
        2*q^97 + 2*q^103 - q^107 - q^113 + q^125 + 2*q^137 - q^145 - q^153 - 
        q^155 - q^157 - q^175 + q^203 - q^205 + q^207 + q^217 + 2*q^227 - q^263 
        + O(q^274),
    q^10 - q^14 - q^34 + q^46 - q^74 + 2*q^86 + q^90 - q^106 - q^126 - q^134 - 
        q^166 + 2*q^194 + 2*q^206 - q^214 - q^226 + q^250 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
920
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3 + 11*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - 1/2*q^9 + q^16 + 1/2*q^25 - 1/2*q^26 - 1/2*q^31 + 1/2*q^36 - 1/2*q^39 - 
        1/2*q^46 + 1/2*q^50 - 1/2*q^54 + 1/2*q^55 - 1/2*q^70 - q^71 + 1/2*q^81 +
        1/2*q^100 - 1/2*q^104 - 1/2*q^105 + 1/2*q^110 - 1/2*q^119 + 1/2*q^121 - 
        1/2*q^124 - 1/2*q^144 - q^146 - 1/2*q^154 - 1/2*q^156 - 1/2*q^161 + 
        1/2*q^184 - 1/2*q^185 - 1/2*q^186 + 1/2*q^190 + q^196 - 1/2*q^200 + 
        1/2*q^209 + 1/2*q^215 - 1/2*q^216 - 1/2*q^220 + 1/2*q^230 + 1/2*q^234 + 
        q^239 + 1/2*q^246 + 1/2*q^255 + q^256 - 1/2*q^265 + q^266 - 3/2*q^271 + 
        O(q^274),
    q^2 - 1/2*q^13 - 1/2*q^18 + 1/2*q^23 - 1/2*q^25 - 1/2*q^27 + q^32 - 1/2*q^35
        + 1/2*q^50 - 1/2*q^52 - 1/2*q^55 - 1/2*q^62 + 1/2*q^72 + q^73 - 1/2*q^77
        - 1/2*q^78 - 1/2*q^92 - 1/2*q^93 - 1/2*q^95 + 1/2*q^100 - 1/2*q^108 + 
        1/2*q^110 + 1/2*q^115 + 1/2*q^117 + 1/2*q^123 + q^133 - 1/2*q^140 - 
        q^142 + 1/2*q^147 + 1/2*q^162 - 1/2*q^163 + 1/2*q^165 - 1/2*q^185 + 
        1/2*q^187 + 1/2*q^200 - 1/2*q^207 - 1/2*q^208 - 1/2*q^210 + 1/2*q^213 + 
        1/2*q^215 + 1/2*q^220 + q^223 + 1/2*q^225 - 1/2*q^238 + 1/2*q^242 + 
        1/2*q^243 - 1/2*q^248 - q^257 - 1/2*q^265 + O(q^274),
    q^3 + q^12 - q^13 - q^18 - q^35 + q^48 - q^52 - q^62 - q^72 + q^75 + q^82 + 
        q^85 + q^98 + q^110 - q^123 + q^133 - q^140 + q^142 - q^163 - q^165 + 
        q^173 - q^187 - q^190 + q^192 + q^197 - q^208 - q^213 - q^242 - q^248 + 
        q^253 + O(q^274),
    q^4 + 1/2*q^9 + 1/2*q^25 - 1/2*q^26 - 1/2*q^31 - 1/2*q^36 - 1/2*q^39 + 
        1/2*q^46 + q^49 - 1/2*q^50 - 1/2*q^54 - 1/2*q^55 + q^64 - 1/2*q^70 + 
        q^71 - 1/2*q^81 - q^95 + 1/2*q^100 - 1/2*q^104 - 1/2*q^105 - 1/2*q^110 -
        1/2*q^119 - 1/2*q^121 - 1/2*q^124 + 1/2*q^144 + q^146 - 1/2*q^154 - 
        1/2*q^156 - 1/2*q^161 + q^169 - 1/2*q^184 + 1/2*q^185 - 1/2*q^186 - 
        1/2*q^190 + 1/2*q^200 - 3/2*q^209 - 1/2*q^215 - 1/2*q^216 + 1/2*q^220 + 
        1/2*q^230 + 1/2*q^234 + q^239 + 1/2*q^246 + 1/2*q^255 + 1/2*q^265 + 
        q^266 + 1/2*q^271 + O(q^274),
    q^5 + 1/2*q^19 - 1/2*q^21 - 1/2*q^22 - 1/2*q^30 - 1/2*q^34 + 1/2*q^37 - 
        1/2*q^38 - 1/2*q^43 - q^44 + 1/2*q^46 + q^51 + 1/2*q^53 - q^61 + q^66 - 
        1/2*q^67 - 1/2*q^69 + 1/2*q^74 - 1/2*q^76 + q^80 + 1/2*q^83 - 1/2*q^84 -
        1/2*q^86 + 1/2*q^88 + 1/2*q^91 - 3/2*q^99 + 1/2*q^106 + 1/2*q^107 - 
        1/2*q^109 - 1/2*q^114 - 1/2*q^120 + 1/2*q^122 + 1/2*q^125 + 1/2*q^126 - 
        1/2*q^134 - 1/2*q^136 - 1/2*q^148 + 1/2*q^149 + 1/2*q^152 - 1/2*q^157 + 
        1/2*q^166 + 1/2*q^172 + q^180 + 1/2*q^181 + 1/2*q^184 - 1/2*q^194 - 
        1/2*q^195 + 1/2*q^198 + q^204 - 1/2*q^205 - 1/2*q^206 - 1/2*q^212 + 
        1/2*q^214 + 1/2*q^218 - 1/2*q^221 + q^226 - 1/2*q^227 + 1/2*q^229 - 
        1/2*q^230 - 1/2*q^245 + 1/2*q^250 - 1/2*q^251 - 1/2*q^253 + q^264 + 
        1/2*q^268 - 1/2*q^270 + O(q^274),
    q^6 - q^9 + q^24 - q^26 - q^31 - q^36 + q^41 + q^49 + q^55 - q^70 + q^71 - 
        q^95 + q^96 - q^104 - q^121 - q^124 - q^144 + q^150 + q^151 - q^161 + 
        q^164 + q^169 + q^170 + q^196 + q^220 - q^225 - q^231 - q^246 - q^255 + 
        q^266 - q^271 + O(q^274),
    q^7 + 1/2*q^19 + q^20 - 1/2*q^21 + 3/2*q^22 - q^23 + q^28 - 1/2*q^30 - q^33 
        - 1/2*q^34 - 3/2*q^37 + 5/2*q^38 - 2*q^40 + q^42 + 3/2*q^43 - q^44 + 
        q^45 + 1/2*q^46 + q^51 - 3/2*q^53 + q^57 - q^61 - q^63 + q^65 + q^66 + 
        3/2*q^67 - 1/2*q^69 + 1/2*q^74 - 1/2*q^76 - 3/2*q^83 - 1/2*q^84 - 
        1/2*q^86 - 3/2*q^88 - q^90 + 1/2*q^91 - q^92 - 3/2*q^99 - q^102 + 
        1/2*q^106 - 3/2*q^107 - 1/2*q^109 + q^112 - 2*q^113 - 1/2*q^114 + q^115 
        - 1/2*q^120 - 3/2*q^122 - 1/2*q^125 + 1/2*q^126 - q^132 - 1/2*q^134 + 
        q^135 - 1/2*q^136 + q^137 + q^143 + 3/2*q^148 + 1/2*q^149 - 1/2*q^152 + 
        q^153 + 3/2*q^157 + 1/2*q^166 + q^168 - 3/2*q^172 + q^175 + 1/2*q^181 - 
        2*q^182 - q^183 + 1/2*q^184 - 1/2*q^194 - 1/2*q^195 - 1/2*q^198 + q^204 
        - 1/2*q^205 - 1/2*q^206 + 3/2*q^212 + 1/2*q^214 - 2*q^217 - 1/2*q^218 - 
        1/2*q^221 + q^226 + 3/2*q^227 + q^228 + 1/2*q^229 + 1/2*q^230 + 
        1/2*q^245 - 2*q^247 - 3/2*q^250 - 1/2*q^251 - q^252 + 3/2*q^253 + q^260 
        + q^264 - 3/2*q^268 - 1/2*q^270 - q^273 + O(q^274),
    q^8 - 1/2*q^13 + 1/2*q^18 - 1/2*q^23 + 1/2*q^25 - 1/2*q^27 - 1/2*q^35 + 
        1/2*q^50 - 1/2*q^52 + 1/2*q^55 - 1/2*q^62 - 1/2*q^72 - q^73 - 1/2*q^77 -
        1/2*q^78 + 1/2*q^92 - 1/2*q^93 + 1/2*q^95 + q^98 - 1/2*q^100 - 1/2*q^108
        - 1/2*q^110 + 1/2*q^115 + 1/2*q^117 + 1/2*q^123 + q^128 + q^133 - 
        1/2*q^140 + q^142 + 1/2*q^147 - 1/2*q^162 - 1/2*q^163 + 1/2*q^165 + 
        1/2*q^185 + 1/2*q^187 - q^190 + 1/2*q^200 + 1/2*q^207 - 1/2*q^208 - 
        1/2*q^210 + 1/2*q^213 - 1/2*q^215 - 1/2*q^220 - q^223 - 1/2*q^225 - 
        1/2*q^238 - 1/2*q^242 + 1/2*q^243 - 1/2*q^248 + q^257 + 1/2*q^265 + 
        O(q^274),
    q^10 + 1/2*q^19 + q^20 - 1/2*q^21 + 3/2*q^22 - 1/2*q^30 - 1/2*q^34 - 
        3/2*q^37 + 3/2*q^38 - q^40 + 3/2*q^43 - q^44 + q^45 + 1/2*q^46 + q^51 - 
        3/2*q^53 - q^61 + q^66 + 3/2*q^67 - 1/2*q^69 + 1/2*q^74 - 1/2*q^76 - 
        3/2*q^83 - 1/2*q^84 - 1/2*q^86 - 3/2*q^88 - q^90 + 1/2*q^91 - 3/2*q^99 +
        1/2*q^106 - 3/2*q^107 - 1/2*q^109 - 1/2*q^114 + q^115 - 1/2*q^120 - 
        3/2*q^122 - 1/2*q^125 + 1/2*q^126 - 1/2*q^134 - 1/2*q^136 + 3/2*q^148 + 
        1/2*q^149 - 3/2*q^152 + 3/2*q^157 + q^160 + 1/2*q^166 - 3/2*q^172 + 
        1/2*q^181 + 1/2*q^184 - 1/2*q^194 - 1/2*q^195 - 3/2*q^198 + q^204 - 
        1/2*q^205 - 1/2*q^206 + 3/2*q^212 + 1/2*q^214 - 3/2*q^218 - 1/2*q^221 + 
        q^226 + 3/2*q^227 + 1/2*q^229 + 1/2*q^230 + 1/2*q^245 - 1/2*q^250 - 
        1/2*q^251 + 3/2*q^253 + q^264 - 3/2*q^268 - 1/2*q^270 + O(q^274),
    q^11 + 1/2*q^19 - q^20 + 1/2*q^21 - 1/2*q^22 + 1/2*q^30 + 1/2*q^34 + 
        1/2*q^37 - 1/2*q^38 - 1/2*q^43 - q^45 - 1/2*q^46 - q^51 + 1/2*q^53 - 
        q^66 - 1/2*q^67 + 1/2*q^69 + 1/2*q^74 - 1/2*q^76 + 1/2*q^83 + 1/2*q^84 -
        1/2*q^86 + 1/2*q^88 - 1/2*q^91 + 1/2*q^99 + 1/2*q^106 + 1/2*q^107 - 
        1/2*q^109 + 1/2*q^114 + 1/2*q^120 + 1/2*q^122 - 1/2*q^125 - 1/2*q^126 - 
        1/2*q^134 + 1/2*q^136 - 1/2*q^148 + 1/2*q^149 + 1/2*q^152 - 1/2*q^157 + 
        1/2*q^166 - q^171 + 1/2*q^172 + q^176 + 1/2*q^181 - 1/2*q^184 + 
        1/2*q^194 + 1/2*q^195 + 1/2*q^198 - q^204 + 1/2*q^205 + 1/2*q^206 - 
        1/2*q^212 + 1/2*q^214 + 1/2*q^218 + 1/2*q^221 - q^226 - 1/2*q^227 - 
        3/2*q^229 - 1/2*q^230 + q^244 - 1/2*q^245 + 1/2*q^250 - 1/2*q^251 - 
        1/2*q^253 - q^264 + 1/2*q^268 + 1/2*q^270 + O(q^274),
    q^14 + 3/2*q^19 - q^20 + 1/2*q^21 - 1/2*q^22 - 1/2*q^30 - 1/2*q^34 + 
        1/2*q^37 - 1/2*q^38 - 1/2*q^43 - q^44 - 1/2*q^46 + 1/2*q^53 + q^56 - 
        q^61 - 1/2*q^67 - 1/2*q^69 + 1/2*q^74 + 1/2*q^76 + 1/2*q^83 + 1/2*q^84 -
        1/2*q^86 + 1/2*q^88 - 3/2*q^91 - 1/2*q^99 + 1/2*q^106 + 1/2*q^107 + 
        1/2*q^109 + 1/2*q^114 - 1/2*q^120 + 1/2*q^122 - 1/2*q^125 - 1/2*q^126 + 
        q^130 - 1/2*q^134 - 1/2*q^136 - 1/2*q^148 + 3/2*q^149 + 1/2*q^152 + 
        q^155 - 1/2*q^157 + 1/2*q^166 - q^171 + 1/2*q^172 + q^180 + 3/2*q^181 - 
        1/2*q^184 - q^189 - 1/2*q^194 + 1/2*q^195 + 1/2*q^198 - 1/2*q^205 - 
        1/2*q^206 - 1/2*q^212 + 1/2*q^214 + 1/2*q^218 + 1/2*q^221 + q^224 - 
        q^226 - 1/2*q^227 - 3/2*q^229 - 1/2*q^230 - 3/2*q^245 + 1/2*q^250 + 
        1/2*q^251 - 1/2*q^253 + 1/2*q^268 + 1/2*q^270 + O(q^274),
    q^15 + q^17 + 1/2*q^19 + q^20 - 1/2*q^21 + 5/2*q^22 - q^23 - 1/2*q^30 - 
        2*q^33 - 1/2*q^34 - 3/2*q^37 + 3/2*q^38 - 2*q^40 + q^42 + 3/2*q^43 - 
        q^44 + q^45 + 1/2*q^46 + q^51 - 3/2*q^53 + q^57 + q^60 - q^61 - q^63 + 
        q^66 + 3/2*q^67 + q^68 - 1/2*q^69 + 1/2*q^74 - 1/2*q^76 - 3/2*q^83 - 
        1/2*q^84 - 1/2*q^86 - 1/2*q^88 - 2*q^90 + 1/2*q^91 - q^92 + q^97 - 
        3/2*q^99 - 2*q^102 + q^103 + 1/2*q^106 - 3/2*q^107 - 1/2*q^109 - 2*q^113
        - 1/2*q^114 + q^115 - 1/2*q^120 - 1/2*q^122 - 1/2*q^125 + 1/2*q^126 - 
        2*q^132 - 1/2*q^134 + q^135 - 1/2*q^136 + q^138 + q^143 + 3/2*q^148 + 
        1/2*q^149 - 3/2*q^152 + 2*q^153 + 3/2*q^157 + 1/2*q^166 + q^168 - 
        3/2*q^172 + 1/2*q^181 - q^182 - 2*q^183 + 1/2*q^184 - 1/2*q^194 - 
        1/2*q^195 + 1/2*q^198 + q^204 - 1/2*q^205 - 1/2*q^206 - q^207 + 
        3/2*q^212 + 1/2*q^214 - q^217 - 3/2*q^218 - 1/2*q^221 + q^226 + 
        3/2*q^227 + q^228 + 1/2*q^229 + 1/2*q^230 + q^240 + 1/2*q^245 - q^247 - 
        3/2*q^250 - 1/2*q^251 - q^252 + 3/2*q^253 + q^263 + q^264 - 3/2*q^268 - 
        1/2*q^270 + q^272 + O(q^274)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
921
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
203
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
921
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
306
);
qprec:=
203
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
921
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
306
);
qprec:=
203
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
921
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
203
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
921
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
203
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^30*q^3 + (-a^31 - a^30 + a^28 + a^27 - a^25 - a^24 + a^22 + a^21 - 
        a^19 - a^18 + a^15 + a^14 - a^12 - a^11 + a^9 + a^8 - a^6 - a^5 + a^3 + 
        a^2 - 1)*q^4 + (-a^17 - a^11)*q^7 - a^9*q^9 + a^12*q^12 + (-a^20 + a^10 
        + a^3)*q^13 - a^15*q^16 + (-a^25 - a^5)*q^19 + (-a^30 - a^24 + a^13 + 
        a^7)*q^21 + a^2*q^25 + (-a^22 + a^5)*q^27 + (a^31 + a^30 - a^28 + a^25 +
        a^24 - a^22 - a^21 + a^19 + a^18 - a^16 - a^15 - a^14 + a^12 + a^11 - 
        a^10 - a^9 - a^8 + a^6 + a^5 - a^3 - a^2 + 1)*q^28 + (a^24 - a)*q^31 + 
        (a^25 - a^8)*q^36 + (a^31 - a^29 - a^28 + a^26 + a^25 - a^23 - a^22 + 
        a^20 + a^19 - a^17 - a^16 + a^12 - a^10 - a^9 + a^7 + a^6 - a^4 - a^3 + 
        a + 1)*q^37 + (a^23 + a^16 - a^6)*q^39 + (a^8 + a^6)*q^43 + (-a^28 + 
        a^11)*q^48 + (a^28 + a^22 + a^17 - 1)*q^49 + (-a^26 - a^19 + a^9)*q^52 +
        (-a^18 + a^4 + a)*q^57 + (a^29 + a^19 - a^12 - a^2)*q^61 + (a^26 + 
        a^20)*q^63 + (a^31 - a^14)*q^64 + (-a^27 + a^14)*q^67 + (-a^29 + 
        a^18)*q^73 + (-a^31 + a^29 + a^28 - a^26 - a^25 + a^23 + a^22 - a^20 - 
        a^19 + a^17 + a^16 + a^15 - a^13 - a^12 + a^10 + a^9 - a^7 - a^6 + a^4 +
        a^3 - a - 1)*q^75 + (a^21 - a^7 - a^4)*q^76 + (-a^31 - a^23)*q^79 + 
        a^18*q^81 + (-a^29 - a^23)*q^84 + (a^31 - a^27 - a^21 - a^14 - a^3)*q^91
        + (-a^31 - a^3)*q^93 + (a^14 - a^7)*q^97 + (-a^18 + a)*q^100 + (a^20 + 
        a^4)*q^103 - a^21*q^108 - a^4*q^109 + (a^28 - a^26 + a^9)*q^111 + (-a^31
        + a^29 + a^28 - a^25 + a^23 + a^22 - a^20 - a^19 + a^17 + a^16 + a^15 - 
        a^13 - a^12 + a^10 + a^9 - a^7 - a^6 + a^4 + a^3 - a - 1)*q^112 + (a^29 
        - a^19 - a^12)*q^117 + a^8*q^121 + (a^17 + a^6 - 1)*q^124 + (-a^31 + 
        a^29 + a^28 - a^26 - a^25 + a^23 + a^22 - a^20 - a^19 + a^17 + a^16 + 
        a^15 - a^13 - a^12 + a^10 + a^9 - a^7 - a^6 + a^4 - a - 1)*q^127 + (a^21
        + a^19 - a^4 - a^2)*q^129 + (a^25 + a^22 + a^19 + a^16 - a^8 - 
        a^2)*q^133 + (-a^28 + a^23 + a^11 - a^6)*q^139 + a^24*q^144 + (-a^13 - 
        a^7 - a)*q^147 + (-a^31 + a^29 - a^12)*q^148 + (-a^28 + a^26 + 
        a^11)*q^151 + (a^31 - a^29 - a^28 + a^26 + a^25 - a^23 + a^20 + a^19 - 
        a^17 - a^16 + a^13 + a^12 - a^10 - a^9 + a^7 + a^6 - a^4 - a^3 + a + 
        1)*q^156 + (a^27 - a^10 + a^2)*q^157 + (2*a^31 + a^30 - a^29 - 2*a^28 - 
        a^27 + a^26 + 2*a^25 + a^24 - a^23 - 2*a^22 - a^21 + a^20 + 2*a^19 + 
        a^18 - a^17 - 2*a^16 - a^15 - a^14 + a^13 + 2*a^12 + a^11 - a^10 - 2*a^9
        - a^8 + a^7 + 2*a^6 + a^5 - a^4 - 2*a^3 - a^2 + a + 2)*q^163 + (-a^30 - 
        a^23 + a^20 + a^13)*q^169 + (a^17 + a^14 - 1)*q^171 + (-a^24 - a^22 + 
        a^7 + a^5)*q^172 + (-a^19 - a^13)*q^175 + (a^23 - a^22 - a^6 + 
        a^5)*q^181 + (-a^25 - a^15)*q^183 + (a^31 + a^30 - a^28 - a^27 + a^25 + 
        a^24 - a^22 - a^21 + a^19 + a^18 - a^16 - a^15 - a^14 + a^12 + a^11 - 
        a^9 - a^8 + a^6 - a^3 - a^2 + 1)*q^189 - a^27*q^192 + (-a^29 - a^26 + 
        a^9)*q^193 + (a^16 + a^10 + a^4)*q^196 + (-a^20 - a^5 + a^3)*q^199 + 
        (a^27 - a^10 + a^6)*q^201 + O(q^203)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
921
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
203
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
921
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
17*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
203
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
921
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
203
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^13*q^3 + (a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - 
        a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^4 + (-a^11 + 1)*q^7 - a^9*q^9 + 
        a^12*q^12 + (a^10 - a^3)*q^13 - a^15*q^16 + (a^8 - a^5)*q^19 + (-a^13 - 
        a^7)*q^21 + a^2*q^25 - a^5*q^27 + (a^15 - a^14 + a^13 - a^12 + a^11 + 
        a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^28 + (-a^7 - 
        a)*q^31 + a^8*q^36 + (-a^15 - a^13)*q^37 + (a^15 - a^14 + a^13 - a^12 + 
        a^11 - a^10 + a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^39 + 
        (a^8 + a^6)*q^43 - a^11*q^48 + (-a^11 - a^5 + 1)*q^49 + (-a^9 + 
        a^2)*q^52 + (a^4 - a)*q^57 + (a^12 + a^2)*q^61 + (-a^9 - a^3)*q^63 + 
        a^14*q^64 + (a^14 + a^10)*q^67 + (a^12 - a)*q^73 - a^15*q^75 + (-a^7 + 
        a^4)*q^76 + (a^14 + a^6)*q^79 - a*q^81 + (a^12 + a^6)*q^84 + (a^14 + 
        a^10 + a^4 - a^3)*q^91 + (a^14 - a^3)*q^93 + (a^14 - a^7)*q^97 - a*q^100
        + (a^4 - a^3)*q^103 + a^4*q^108 + 2*a^4*q^109 + (-a^11 - a^9)*q^111 + 
        (-a^15 - a^9)*q^112 + (a^12 + a^2)*q^117 + a^8*q^121 + (a^6 + 1)*q^124 +
        (-a^15 - a^3)*q^127 + (a^4 + a^2)*q^129 + (a^15 - a^14 + a^13 - a^12 + 
        a^11 - a^10 + a^9 + a^7 - a^6 - a^4 + a^3 + a - 1)*q^133 + (-a^11 + 
        a^6)*q^139 - a^7*q^144 + (-a^13 - a^7 - a)*q^147 + (a^14 + a^12)*q^148 +
        (-a^11 - a^9)*q^151 + (-a^15 - a^5)*q^156 + (a^10 + a^2)*q^157 + (-a^14 
        + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^163 + (-a^13 + a^6 - a^3)*q^169 + (a^14 + 1)*q^171 + 
        (-a^7 - a^5)*q^172 + (-a^13 + a^2)*q^175 + (a^6 - a^5)*q^181 + (-a^15 + 
        a^8)*q^183 + (a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 
        - a^6 - a^4 + a^3 - a^2 + a - 1)*q^189 + a^10*q^192 + (a^12 - a^9)*q^193
        + (a^15 - a^14 + a^13 - a^12 + a^11 + a^9 - a^8 + a^7 - a^6 + a^5 + a^3 
        - a^2 + a - 1)*q^196 + (-a^5 - a^3)*q^199 + (a^10 + a^6)*q^201 + 
        O(q^203)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
921
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 34*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
203
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
921
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
51*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
203
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
921
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 102*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
203
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^7 + q^9 + q^12 - a*q^13 - q^19 + (a - 1)*q^21 - a*q^22 + (a - 
        1)*q^25 + (a - 1)*q^28 + (-a + 1)*q^31 - q^34 - a*q^37 - a*q^39 + q^48 -
        a*q^49 - a*q^52 + (-a + 1)*q^61 + (a - 1)*q^63 + q^64 + a*q^66 + a*q^67 
        + a*q^73 - q^79 + q^81 + (a - 1)*q^84 + 2*q^91 + (a - 1)*q^94 + q^102 - 
        a*q^106 + q^108 + a*q^109 - a*q^111 + (a - 1)*q^112 - a*q^117 + a*q^127 
        + a*q^129 + (-a + 1)*q^133 + (-a + 1)*q^142 - 2*a*q^147 - a*q^148 + 
        a*q^151 - a*q^156 + (a - 1)*q^157 + (a - 1)*q^166 + (a - 1)*q^169 - 
        q^171 + a*q^172 - a*q^175 + (-a + 1)*q^181 - a*q^187 + (a - 1)*q^189 - 
        q^193 - 2*a*q^196 - a*q^198 + q^202 + O(q^203),
    q^2 - q^6 + a*q^11 + q^17 + q^18 - q^32 - a*q^33 - q^38 - a*q^44 + (-a + 
        1)*q^47 + (a - 1)*q^50 - q^51 + a*q^53 - q^54 + (-a + 1)*q^62 - q^68 + 
        (a - 1)*q^71 + (-a + 1)*q^83 - a*q^86 + q^96 + a*q^98 + a*q^99 - q^101 +
        (-a + 1)*q^107 + q^114 + (-a + 1)*q^122 + a*q^132 + a*q^134 + a*q^137 + 
        (a - 1)*q^141 + a*q^146 + (-a + 1)*q^150 + q^153 - q^158 - a*q^159 + 
        q^162 - q^167 - a*q^173 - a*q^176 + (a - 1)*q^186 + (a - 1)*q^188 + (a -
        1)*q^191 + q^194 + O(q^203),
    q^3 + q^4 + (a - 1)*q^7 - a*q^13 + q^16 + (a - 1)*q^21 + a*q^22 + q^27 + (a 
        - 1)*q^28 + q^34 + q^36 - a*q^37 - a*q^39 + a*q^43 - 2*a*q^49 - a*q^52 -
        q^57 + (a - 1)*q^63 - a*q^66 + (a - 1)*q^75 - q^76 + (a - 1)*q^84 + 
        2*q^91 + (-a + 1)*q^93 + (-a + 1)*q^94 - q^97 + (a - 1)*q^100 - q^102 - 
        q^103 + a*q^106 - a*q^111 + (a - 1)*q^112 - a*q^117 + (a - 1)*q^121 + 
        (-a + 1)*q^124 + (-a + 1)*q^133 + (-a + 1)*q^139 + (a - 1)*q^142 + q^144
        - a*q^147 - a*q^148 - a*q^156 + (a - 1)*q^157 - q^163 + (-a + 1)*q^166 +
        (2*a - 2)*q^169 - a*q^175 + (-a + 1)*q^183 + a*q^187 + (a - 1)*q^189 + 
        q^192 - a*q^196 + a*q^198 - q^199 + a*q^201 - q^202 + O(q^203)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
921
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
153*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
203
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^7 + q^9 - q^11 + q^16 - q^17 - q^19 + q^25 - q^28 + q^36 - q^37 
        - q^41 - q^44 - q^53 - q^63 + q^64 - q^68 - q^71 - q^76 + q^77 + 2*q^79 
        + q^81 + 2*q^83 + 2*q^89 + 2*q^97 - q^99 + q^100 - q^101 - q^103 + 
        2*q^107 - q^109 - q^112 - q^113 + q^119 - q^127 + q^133 + q^144 - q^148 
        + 2*q^149 - q^153 - q^164 + 2*q^167 + q^169 - q^171 - q^175 - q^176 - 
        q^179 - q^181 + q^187 - q^191 - q^199 + O(q^203),
    q^3 + q^12 - q^21 + q^27 - q^33 + q^48 - q^51 - q^57 + q^75 - q^84 + q^108 -
        q^111 - q^123 - q^132 - q^159 - q^189 + q^192 + O(q^203)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
922
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
460
);
qprec:=
229
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
922
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
92
);
qprec:=
229
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
922
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
23*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
229
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
922
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
115*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
229
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
210
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
210
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
420
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
140
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
84
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
35*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 - q^6 + q^9 - q^12 - q^15 + q^18 + q^20 + q^24 + q^25 - q^27 + q^30 
        - q^32 + q^38 - q^40 - q^43 - q^45 + q^48 + q^49 - q^50 - q^54 - q^57 - 
        q^58 + q^60 + q^71 - q^73 + q^74 + 2*q^75 - q^79 + 2*q^87 - q^100 + 
        2*q^107 - q^111 - q^114 - q^116 - q^120 + q^121 - q^125 + q^128 - q^129 
        - q^131 + q^135 - q^144 - q^145 + q^160 + q^162 + O(q^166),
    q^2 - q^4 - q^5 - q^6 + q^8 + q^9 + q^10 - q^16 + q^19 - q^20 - q^27 + q^36 
        + q^37 - q^38 + q^40 - q^43 + q^48 - q^57 - q^58 + q^60 - q^72 - q^73 - 
        q^74 + q^75 + 2*q^76 - q^79 - q^80 + q^83 + q^86 + q^87 - q^90 + q^95 + 
        q^98 - q^100 + q^101 - q^108 - q^111 - q^120 - q^131 + q^142 + q^146 + 
        2*q^148 - 2*q^152 + q^158 + q^160 + q^162 + O(q^166),
    q^3 - q^4 - q^5 + q^8 + q^10 - q^15 - q^18 + q^25 + q^29 - q^38 - q^43 + 
        q^54 + q^60 - q^73 - q^74 + q^75 + q^76 - q^79 - q^80 - q^81 + q^86 + 
        q^89 + q^95 - q^96 - q^100 + q^103 + q^109 + q^114 - q^120 - q^125 - 
        q^129 - q^131 + q^144 - q^145 + q^146 + q^147 + q^148 - q^150 + q^151 - 
        q^152 + q^157 + q^158 + q^160 + O(q^166),
    q^13 - q^65 - q^78 + q^117 - q^156 + O(q^166),
    q^26 - q^52 - q^65 - q^78 + q^104 + q^117 + q^130 + O(q^166),
    q^39 - q^52 - q^65 + q^104 + q^130 + O(q^166)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 35*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 35*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
923
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 35*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 + q^25 - q^27 - q^29 - q^43 + q^64 - q^77 - q^87 + q^100 - 
        q^103 - q^108 - q^116 + q^121 - q^129 - q^131 - q^143 - q^147 + 
        O(q^166),
    q^3 - q^9 + q^12 - q^29 - q^36 - q^43 + q^48 - q^49 + q^75 + q^79 + q^91 + 
        q^101 - q^103 + q^107 - q^116 + q^121 - q^131 - q^143 - q^144 + q^147 + 
        q^157 + O(q^166),
    q^7 - q^13 - 2*q^21 + q^28 + q^33 + q^39 + q^41 - 2*q^47 - q^52 + q^59 + 
        2*q^63 - q^71 - 2*q^84 + q^93 - q^99 + q^112 - q^117 - 2*q^123 + q^132 +
        q^137 + 2*q^141 + q^149 + q^156 - 2*q^163 + q^164 + O(q^166),
    q^11 - q^13 - q^21 + q^31 + q^33 + q^44 - 2*q^47 - q^52 + q^63 + q^67 - q^71
        - q^84 + q^93 + q^97 - q^99 - q^123 + q^124 + q^132 - 2*q^163 + O(q^166)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + (a - 1)*q^7 + (a - 1)*q^9 - q^13 + (-a + 1)*q^19 + q^21 - a*q^25
        + q^27 + a*q^31 + (-a + 1)*q^37 + a*q^39 - q^43 - a*q^49 - q^57 + (2*a -
        2)*q^61 - a*q^63 + a*q^67 + a*q^73 + (a - 1)*q^75 + (-a + 1)*q^79 - 
        a*q^81 + (-a + 1)*q^91 + (-a + 1)*q^93 + 2*q^97 + (-a + 1)*q^103 + 
        a*q^109 - q^111 + (-a + 1)*q^117 + (a - 1)*q^121 - q^127 + a*q^129 + 
        a*q^133 - q^139 + (a - 1)*q^147 - 2*a*q^151 - 2*a*q^157 + (2*a - 
        2)*q^163 + a*q^171 + q^175 - q^181 + 2*q^183 + (a - 1)*q^189 + a*q^193 -
        2*a*q^199 + (-a + 1)*q^201 + 2*q^211 - q^217 + (-a + 1)*q^219 + 2*q^223 
        + q^225 + (-a + 1)*q^229 - q^237 - 2*a*q^241 + (a - 1)*q^243 + (a - 
        1)*q^247 + a*q^259 + (2*a - 2)*q^271 - q^273 + a*q^277 - q^279 + a*q^283
        + (a - 1)*q^289 - 2*a*q^291 + (-a + 1)*q^301 - q^307 - q^309 + (-a + 
        1)*q^313 + a*q^325 + (-a + 1)*q^327 + (-a + 1)*q^331 + a*q^333 - q^337 +
        q^343 + 2*q^349 - q^351 + O(q^362),
    q^11 - a*q^33 + (a - 1)*q^77 + (a - 1)*q^99 - q^143 + (-a + 1)*q^209 + q^231
        - a*q^275 + q^297 + a*q^341 + O(q^362)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + (2*a^3 - 2*a^2 + a)*q^7 + (-a^3 - 1)*q^8 + a^3*q^9 + (a^2 - 2*a 
        + 2)*q^11 + (2*a^2 - 2*a)*q^14 + (a^3 - 2*a^2 + a)*q^16 + (-2*a^3 + 
        2*a^2)*q^22 + (-3*a^3 + 3*a^2 - 1)*q^23 + (a^3 - a^2 + a - 1)*q^25 + 
        (-a^2 + 2*a - 2)*q^28 + (-2*a^3 + a^2 - a + 1)*q^29 + (2*a^2 - 2*a + 
        1)*q^32 + (-a^3 + a^2 - a + 1)*q^36 + (-a^2 - 1)*q^37 + (a^3 - 3*a^2 + 
        4*a - 2)*q^43 + (a^3 - 2*a^2 + 2*a)*q^44 + (2*a^3 - 4*a^2 + 4*a)*q^46 + 
        a^2*q^49 + (a - 1)*q^53 + (a^3 - a^2 + 1)*q^56 + (a^3 - a^2 - a + 
        1)*q^63 + (2*a - 2)*q^64 + (-a^3 + a^2 - 2)*q^67 + (a^3 - 3*a^2 + 
        a)*q^71 + (-a^3 + a)*q^72 - a^3*q^77 + (-2*a^3 + 4*a^2 - 3*a + 1)*q^79 -
        a*q^81 + (2*a^3 - 2*a + 2)*q^86 + (a^2 - 2*a + 1)*q^88 + (3*a^2 - 4*a + 
        3)*q^92 + (2*a^2 - 2*a + 1)*q^99 + q^100 + (-a^3 - 1)*q^107 + (-a^3 + 
        a^2 - 2*a + 1)*q^109 + (-a^3 + 2*a^2 - a + 1)*q^112 + (a^2 - a)*q^113 + 
        (a^3 - a^2 + a - 2)*q^116 + (a^3 - a^2 + a - 1)*q^121 + (-2*a^3 + 2*a^2 
        - 2*a)*q^126 + (a^3 - a)*q^127 + (2*a^3 - 2*a^2 + a)*q^128 + (2*a^3 - 
        4*a^2 + 2*a - 2)*q^134 + (a^3 + a)*q^137 + (-2*a^3 + 2*a^2 - 4*a + 
        2)*q^142 + (a^3 - a^2 + 1)*q^144 + (a^3 + a)*q^148 + (a^3 + 1)*q^151 + 
        (-2*a^2 + 4*a - 2)*q^158 + (-a^2 + 1)*q^161 + (a^3 - 3*a + 3)*q^163 + 
        a*q^169 + (-2*a^3 + 3*a^2 - a - 1)*q^172 + (-2*a^2 + 2*a - 1)*q^175 + 
        (-a^3 - 1)*q^176 + (a^3 - 4*a^2 + 4*a - 1)*q^179 + (-2*a^3 + a^2 + a - 
        2)*q^184 + (-a^2 + 3*a - 1)*q^191 + (-a^3 + a^2 - a + 2)*q^193 - 
        a^3*q^196 + (a^3 - a^2 + 2*a - 1)*q^197 + (2*a - 2)*q^198 + (-a^3 + 
        2*a^2 - a + 1)*q^200 + (-a^3 + 3*a^2 - a)*q^203 + (-a^3 + 3*a - 3)*q^207
        + (-a^3 + 2*a^2 - a + 1)*q^211 + (-a^2 + a)*q^212 - 2*a^2*q^214 + 
        a*q^224 - a^2*q^225 + (2*a^3 - 2*a^2 - 1)*q^232 + (2*a^3 - a^2 - a + 
        2)*q^239 + (-2*a^2 + 2*a - 1)*q^252 + (a^3 - a)*q^253 - 2*q^254 + (-a^3 
        + 2*a^2 - 2*a + 1)*q^256 + (-a^3 + a)*q^259 + (a^2 + a)*q^261 + (-a^3 + 
        3*a^2 - 4*a + 2)*q^263 + (a^2 - 3*a + 1)*q^268 + (2*a^3 - 2*a^2 + 
        a)*q^275 + (a^3 - 2*a^2 + a - 1)*q^277 + (a^3 - a^2 + a - 2)*q^281 + 
        (-2*a^3 + a - 1)*q^284 + (-a^3 + 2*a^2 - 2*a)*q^288 + (-a^3 + a^2 - a + 
        1)*q^289 + (a^3 + a^2)*q^296 + (a^2 - a + 1)*q^301 + 2*a^2*q^302 + (a^3 
        - a^2 + a - 1)*q^308 + (2*a^3 - a^2 - a + 2)*q^316 + (-a + 1)*q^317 + 
        (-2*a^3 + a - 1)*q^319 + a^2*q^324 + (-4*a^3 + 4*a^2 - 2*a)*q^326 + 
        (3*a^3 - 3*a^2 + 1)*q^331 + (-a^3 + 1)*q^333 + (a^2 - 1)*q^337 + (-a^3 +
        2*a^2 - 2*a)*q^343 + (a^3 - 3*a^2 + 3*a - 1)*q^344 + (a^3 + a^2 - 3*a + 
        2)*q^347 + (-2*a + 2)*q^350 - a^2*q^352 + (2*a^2 - 4*a + 4)*q^358 + (a^2
        - 1)*q^359 - a^3*q^361 + O(q^362),
    q^2 + (-a^3 + 2*a^2 - a + 1)*q^4 + (-2*a + 2)*q^7 + (-a^2 + 2*a - 1)*q^8 + 
        (2*a^2 - 2*a)*q^11 + (-2*a^3 + 2*a^2 - a)*q^14 + (a^3 - a^2 - a + 
        1)*q^16 + a^3*q^18 + (-a^2 + 2*a - 2)*q^22 + (-2*a^2 + 4*a - 4)*q^23 + 
        (a^3 - 2*a^2 + 2*a - 1)*q^28 + (-2*a^3 + 2*a^2 - 2*a)*q^32 + (a^2 - 
        1)*q^36 + (2*a^3 - 4*a^2 + 2*a)*q^43 + (a^3 - a^2 + 1)*q^44 + (3*a^3 - 
        3*a^2 + 1)*q^46 + (a^3 - a^2 + a - 1)*q^50 + (a^3 - a)*q^56 + (-2*a^3 + 
        a^2 - a + 1)*q^58 + (2*a^2 - 2*a + 2)*q^63 + (-2*a^2 + 2*a - 1)*q^64 + 
        (-2*a^3 + 2*a)*q^67 + (2*a^3 + 2)*q^71 + (a^3 - 2*a^2 + 2*a - 1)*q^72 + 
        (-a^2 - 1)*q^74 + (-2*a^3 + 2*a^2 - 2)*q^79 + (-a^3 + 3*a^2 - 4*a + 
        2)*q^86 + (-a^3 + 2*a^2 - a + 1)*q^88 + (-2*a^3 + 4*a^2 - 3*a + 1)*q^92 
        + a^2*q^98 + (-2*a^3 + 2*a^2 - 2*a)*q^99 + (a^3 - a)*q^100 + (a - 
        1)*q^106 + 2*a*q^107 - q^112 + (-a^3 - a^2 + a + 1)*q^116 + (-a^3 + a^2 
        + a - 1)*q^126 + (-2*a^3 + 2*a^2 - 2*a + 2)*q^127 + (a^3 - a + 1)*q^128 
        + (a^3 - a^2 + 2)*q^134 + (-a^3 + 3*a^2 - a)*q^142 + (a^2 - 2*a + 
        2)*q^144 + (-a^2 - a)*q^148 - 2*a*q^151 - a^3*q^154 + (2*a^3 - 4*a^2 + 
        3*a - 1)*q^158 - a*q^162 + (4*a^2 - 4*a + 2)*q^163 + (-a^3 + 2*a - 
        2)*q^172 + (2*a^3 - 2*a^2 + 2*a)*q^175 + a*q^176 + (4*a^3 - 4*a^2 + 
        2*a)*q^179 + (-a^2 + 3*a - 1)*q^184 + (2*a^3 - 4*a^2 + 2*a - 2)*q^191 + 
        (a^3 - a^2 + 2*a - 1)*q^196 + (-2*a^2 + 2*a - 1)*q^198 + (-a^3 + a^2 - 
        1)*q^200 + (-2*a^3 - 2)*q^203 + (-4*a^2 + 4*a - 2)*q^207 - 2*q^211 + 
        (2*a^3 - 2*a^2 + a)*q^212 + (a^3 + 1)*q^214 + (-a^3 + a^2 - 2*a + 
        1)*q^218 + (a^2 - a)*q^226 + (a^2 - 2*a + 2)*q^232 + (2*a^2 - 4*a + 
        2)*q^239 + (a^3 - a^2 + a - 1)*q^242 + (a^3 - 2*a^2 + a)*q^252 + (-a^3 +
        a)*q^254 + (a^2 - 1)*q^256 + (2*a^3 - 2*a^2 + 2*a - 2)*q^259 + (-2*a^3 +
        4*a^2 - 2*a)*q^263 + (-a^3 + 2*a^2 - 2*a)*q^268 + (a^3 + a)*q^274 + 
        (-2*a + 2)*q^275 + (-2*a^2 + 2*a - 1)*q^284 + (-2*a^3 + 2*a^2)*q^288 + 
        (-a^3 + a^2 - a)*q^296 + (-a^3 - 1)*q^302 + (-a^2 + 1)*q^308 + (2*a^2 - 
        3*a + 2)*q^316 + (2*a^3 - 2*a^2 + 4*a - 2)*q^319 + (-a^2 + 1)*q^322 + 
        (-a^3 - 1)*q^324 + (-a^3 + 3*a - 3)*q^326 + (2*a^2 - 4*a + 4)*q^331 + 
        a*q^338 + (-2*a^3 + 2*a^2)*q^343 + (2*a^3 - 2*a^2 + a)*q^344 + (-2*a^3 +
        4*a^2 - 4*a + 2)*q^347 + (2*a^2 - 2*a + 1)*q^350 + (-a^3 + 4*a^2 - 4*a +
        1)*q^358 - 2*a^3*q^359 + O(q^362),
    q^3 - a*q^12 + (2*a^3 - 2*a^2 + a)*q^21 + (-a^3 - 1)*q^24 + a^3*q^27 + (a^2 
        - 2*a + 2)*q^33 + (2*a^2 - 2*a)*q^42 + (a^3 - 2*a^2 + a)*q^48 + (-2*a^3 
        + 2*a^2)*q^66 + (-3*a^3 + 3*a^2 - 1)*q^69 + (a^3 - a^2 + a - 1)*q^75 + 
        (-a^2 + 2*a - 2)*q^84 + (-2*a^3 + a^2 - a + 1)*q^87 + (2*a^2 - 2*a + 
        1)*q^96 + (-a^3 + a^2 - a + 1)*q^108 + (-a^2 - 1)*q^111 + (a^3 - 3*a^2 +
        4*a - 2)*q^129 + (a^3 - 2*a^2 + 2*a)*q^132 + (2*a^3 - 4*a^2 + 4*a)*q^138
        + a^2*q^147 + (a - 1)*q^159 + (a^3 - a^2 + 1)*q^168 + (a^3 - a^2 - a + 
        1)*q^189 + (2*a - 2)*q^192 + (-a^3 + a^2 - 2)*q^201 + (a^3 - 3*a^2 + 
        a)*q^213 + (-a^3 + a)*q^216 - a^3*q^231 + (-2*a^3 + 4*a^2 - 3*a + 
        1)*q^237 - a*q^243 + (2*a^3 - 2*a + 2)*q^258 + (a^2 - 2*a + 1)*q^264 + 
        (3*a^2 - 4*a + 3)*q^276 + (2*a^2 - 2*a + 1)*q^297 + q^300 + (-a^3 - 
        1)*q^321 + (-a^3 + a^2 - 2*a + 1)*q^327 + (-a^3 + 2*a^2 - a + 1)*q^336 +
        (a^2 - a)*q^339 + (a^3 - a^2 + a - 2)*q^348 + O(q^362),
    q^6 + (-a^3 + 2*a^2 - a + 1)*q^12 + (-2*a + 2)*q^21 + (-a^2 + 2*a - 1)*q^24 
        + (2*a^2 - 2*a)*q^33 + (-2*a^3 + 2*a^2 - a)*q^42 + (a^3 - a^2 - a + 
        1)*q^48 + a^3*q^54 + (-a^2 + 2*a - 2)*q^66 + (-2*a^2 + 4*a - 4)*q^69 + 
        (a^3 - 2*a^2 + 2*a - 1)*q^84 + (-2*a^3 + 2*a^2 - 2*a)*q^96 + (a^2 - 
        1)*q^108 + (2*a^3 - 4*a^2 + 2*a)*q^129 + (a^3 - a^2 + 1)*q^132 + (3*a^3 
        - 3*a^2 + 1)*q^138 + (a^3 - a^2 + a - 1)*q^150 + (a^3 - a)*q^168 + 
        (-2*a^3 + a^2 - a + 1)*q^174 + (2*a^2 - 2*a + 2)*q^189 + (-2*a^2 + 2*a -
        1)*q^192 + (-2*a^3 + 2*a)*q^201 + (2*a^3 + 2)*q^213 + (a^3 - 2*a^2 + 2*a
        - 1)*q^216 + (-a^2 - 1)*q^222 + (-2*a^3 + 2*a^2 - 2)*q^237 + (-a^3 + 
        3*a^2 - 4*a + 2)*q^258 + (-a^3 + 2*a^2 - a + 1)*q^264 + (-2*a^3 + 4*a^2 
        - 3*a + 1)*q^276 + a^2*q^294 + (-2*a^3 + 2*a^2 - 2*a)*q^297 + (a^3 - 
        a)*q^300 + (a - 1)*q^318 + 2*a*q^321 - q^336 + (-a^3 - a^2 + a + 
        1)*q^348 + O(q^362)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^2*q^7 - a*q^9 + (a^3 - a^2 + a - 1)*q^11 + (-a^3 + a^2)*q^23 - 
        a^3*q^25 + (-a^3 - a)*q^29 + (a^3 - a^2 + a)*q^37 + (a^3 - a^2 - 1)*q^43
        + (a^3 - a^2 + a - 1)*q^49 + (a^2 + 1)*q^53 - a^3*q^63 + (a^3 - a^2 - 
        1)*q^67 + (-a^3 + 1)*q^71 - a*q^77 + (a^2 + 1)*q^79 + a^2*q^81 + q^99 + 
        (-a + 1)*q^107 + (-a^3 + a^2)*q^109 + (a^3 + a - 1)*q^113 - a^3*q^121 + 
        (a^2 - a)*q^127 + (a^2 - a)*q^137 + (2*a^3 - 2*a^2 + 2*a - 2)*q^149 + 
        (-a + 1)*q^151 + (a^3 - a^2 + a)*q^161 + (-a^2 + a - 1)*q^163 + 
        a^2*q^169 + q^175 + (-a + 1)*q^179 + (-a^3 - a)*q^191 + (-a^3 + 1)*q^193
        + (-a^3 + a^2)*q^197 + (-a^3 + 1)*q^203 + (-a^2 + a - 1)*q^207 + (-a^2 +
        a - 1)*q^211 + (a^3 - a^2 + a - 1)*q^225 - 2*a*q^233 + (a^3 + a - 
        1)*q^239 + (a^2 - a)*q^253 + (a^2 - a)*q^259 + (a^3 + a - 1)*q^261 + 
        (a^3 - a^2 - 1)*q^263 + a^2*q^275 + (-a^2 + a - 1)*q^277 + (-a^3 + 
        1)*q^281 - a^3*q^289 + (-a^3 - a)*q^301 + (a^2 + 1)*q^317 + (a^2 + 
        1)*q^319 + (-a^3 + a^2)*q^331 + (-a + 1)*q^333 + (a^3 - a^2 + a)*q^337 -
        a*q^343 + (-a^3 + 1)*q^347 + (a^3 - a^2 + a)*q^359 - a*q^361 + O(q^362),
    q^2 - a^2*q^8 + a^2*q^14 + (a - 1)*q^16 - a*q^18 + (a^3 - a^2 + a - 1)*q^22 
        + (a^2 - a)*q^32 + (-a^3 + a^2)*q^46 - a^3*q^50 + (-a^3 + a^2 - a + 
        1)*q^56 + (-a^3 - a)*q^58 + q^64 + a^3*q^72 + (a^3 - a^2 + a)*q^74 + 
        (a^3 - a^2 - 1)*q^86 + a*q^88 + (a^3 - a^2 + a - 1)*q^98 + (a^2 + 
        1)*q^106 + (a^3 - a^2)*q^112 - a^3*q^126 + (a^3 - a^2 - 1)*q^134 + (-a^3
        + 1)*q^142 + (-a^2 + a)*q^144 - a*q^154 + (a^2 + 1)*q^158 + a^2*q^162 + 
        (-a^3 + a^2 - a)*q^176 + (-a^3 + a^2 - a)*q^184 + q^198 - q^200 + (-a + 
        1)*q^214 + (-a^3 + a^2)*q^218 + (-a^2 + a - 1)*q^224 + (a^3 + a - 
        1)*q^226 + (a^3 - 1)*q^232 - a^3*q^242 + (a^2 - a)*q^254 - a^2*q^256 + 
        (a^2 - a)*q^274 + (-a^3 + a^2)*q^288 + (-a^2 + a)*q^296 + (2*a^3 - 2*a^2
        + 2*a - 2)*q^298 + (-a + 1)*q^302 + (a^3 - a^2 + a)*q^322 + (-a^2 + a - 
        1)*q^326 + a^2*q^338 + (a^3 + a)*q^344 + q^350 + (-a + 1)*q^352 + (-a + 
        1)*q^358 + O(q^362),
    q^3 + a^2*q^21 - a*q^27 + (a^3 - a^2 + a - 1)*q^33 + (-a^3 + a^2)*q^69 - 
        a^3*q^75 + (-a^3 - a)*q^87 + (a^3 - a^2 + a)*q^111 + (a^3 - a^2 - 
        1)*q^129 + (a^3 - a^2 + a - 1)*q^147 + (a^2 + 1)*q^159 - a^3*q^189 + 
        (a^3 - a^2 - 1)*q^201 + (-a^3 + 1)*q^213 - a*q^231 + (a^2 + 1)*q^237 + 
        a^2*q^243 + q^297 + (-a + 1)*q^321 + (-a^3 + a^2)*q^327 + (a^3 + a - 
        1)*q^339 + O(q^362),
    q^4 + (-a^2 + a - 1)*q^8 + (-a^3 + a^2 - a)*q^16 + a^2*q^28 + a^3*q^32 - 
        a*q^36 + (a^3 - a^2 + a - 1)*q^44 + (-a + 1)*q^56 + (a^3 - a^2 + a)*q^72
        + (-a^3 + a^2)*q^88 + (-a^3 + a^2)*q^92 - a^3*q^100 + (-a^2 + a)*q^112 +
        (-a^3 - a)*q^116 + q^128 + (a - 1)*q^144 + (a^3 - a^2 + a)*q^148 + (a^3 
        - a^2 - 1)*q^172 + (a^2 - a + 1)*q^176 + (a^2 - 2*a + 1)*q^184 + (a^3 - 
        a^2 + a - 1)*q^196 + (a^2 - a)*q^200 + (a^2 + 1)*q^212 - q^224 + 
        a^3*q^232 - a^3*q^252 + (-a^2 + a - 1)*q^256 + (a^3 - a^2 - 1)*q^268 + 
        (-a^3 + 1)*q^284 + (-a^3 + a^2 - a + 1)*q^288 + (-a^3 + a - 1)*q^296 - 
        a*q^308 + (a^2 + 1)*q^316 + a^2*q^324 + a*q^344 - a^2*q^352 + O(q^362),
    q^6 - a^2*q^24 + a^2*q^42 + (a - 1)*q^48 - a*q^54 + (a^3 - a^2 + a - 1)*q^66
        + (a^2 - a)*q^96 + (-a^3 + a^2)*q^138 - a^3*q^150 + (-a^3 + a^2 - a + 
        1)*q^168 + (-a^3 - a)*q^174 + q^192 + a^3*q^216 + (a^3 - a^2 + a)*q^222 
        + (a^3 - a^2 - 1)*q^258 + a*q^264 + (a^3 - a^2 + a - 1)*q^294 + (a^2 + 
        1)*q^318 + (a^3 - a^2)*q^336 + O(q^362),
    q^12 + (-a^2 + a - 1)*q^24 + (-a^3 + a^2 - a)*q^48 + a^2*q^84 + a^3*q^96 - 
        a*q^108 + (a^3 - a^2 + a - 1)*q^132 + (-a + 1)*q^168 + (a^3 - a^2 + 
        a)*q^216 + (-a^3 + a^2)*q^264 + (-a^3 + a^2)*q^276 - a^3*q^300 + (-a^2 +
        a)*q^336 + (-a^3 - a)*q^348 + O(q^362)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^4 - a*q^9 + (a^3 - a^2 + a - 1)*q^16 + q^21 + a^2*q^22 + (-a^3 - a
        + 1)*q^25 + (a^3 + a - 1)*q^30 - a^3*q^36 + (-a^3 - a)*q^37 + (-a^2 + a 
        - 1)*q^46 + (a^3 - a^2 + a - 1)*q^49 + (-a^2 + a - 1)*q^57 - a*q^64 + 
        (-a^3 - a)*q^70 + a^2*q^81 + a^2*q^84 + a^3*q^85 + (a^3 - a^2 + a - 
        1)*q^88 + (-a^3 + 1)*q^93 + (-a^3 + a^2 + 1)*q^100 + (-a + 1)*q^102 + 
        (a^3 - a^2 - 1)*q^109 + (a^3 - a^2 - 1)*q^120 + a^2*q^121 + (-a^3 + 
        a^2)*q^133 + 2*q^142 + q^144 + (-a^3 + 1)*q^148 + (a^3 + a - 1)*q^165 + 
        a^2*q^169 + (-a + 1)*q^184 - a*q^189 + a^3*q^190 + (-a^3 + 1)*q^193 - 
        a*q^196 - a^3*q^198 + (a^3 + a^2 + a)*q^205 + (a^2 - a)*q^214 + (a^3 + a
        - 1)*q^217 + (a^3 - 1)*q^225 + (-a + 1)*q^228 + (a^3 - a^2 + a)*q^238 + 
        (-a^3 - a)*q^246 + (-a^2 + a - 1)*q^253 - a^3*q^256 + (-a^3 + 1)*q^270 +
        (-a^2 + a - 1)*q^277 + (-a^3 + 1)*q^280 + (a - 1)*q^289 + (-a^3 + 
        a^2)*q^309 + (-a^2 - a - 1)*q^310 + (a^3 - a^2 + a - 1)*q^324 + (a^3 + a
        - 1)*q^333 + (a^3 - a^2 + a - 1)*q^336 + (-a^3 - a)*q^337 - q^340 - 
        a^2*q^345 - a*q^352 + (-a^3 + 1)*q^358 + (a^2 - a + 1)*q^361 + O(q^362),
    q^2 + a^2*q^8 + q^11 + (a^2 + 1)*q^15 - a*q^18 + (a^2 - a)*q^23 + (a^3 - a^2
        + a - 1)*q^32 + (a^3 - a^2 - 1)*q^35 + q^42 + a^2*q^44 + (-a^3 - a + 
        1)*q^50 + (-a^2 + a - 1)*q^51 + (a^3 + a - 1)*q^60 - 2*a^3*q^71 - 
        a^3*q^72 + (-a^3 - a)*q^74 + (-a^2 + a - 1)*q^92 + a*q^95 + (a^3 - a^2 +
        a - 1)*q^98 - a*q^99 + (a^3 - a^2 + a)*q^107 + (-a^2 + a - 1)*q^114 + 
        (-a^3 + a^2)*q^119 + (a^3 - a^2 - 1)*q^123 - a*q^128 + (-a^3 - a)*q^135 
        + (-a^3 - a)*q^140 + (2*a^3 - a^2 + a - 2)*q^155 + a^2*q^162 + a^2*q^168
        + a^3*q^170 + (a^3 - a^2 + a - 1)*q^176 + (-a^3 - a)*q^179 + (-a^3 + 
        1)*q^186 + (a^2 + 1)*q^191 + (-a^3 + a^2 + 1)*q^200 + (-a + 1)*q^204 + 
        (-a^3 + a^2)*q^207 + (a^3 - a^2 - 1)*q^218 + q^231 + (a^3 - a^2 + 
        a)*q^239 + (a^3 - a^2 - 1)*q^240 + a^2*q^242 + (a^2 - a)*q^263 + (-a^3 +
        a^2)*q^266 + (a^3 - a^2 + a)*q^267 + (-a^3 - a + 1)*q^275 + 2*q^284 + 
        (-a^3 + 1)*q^287 + q^288 + (-a^3 + 1)*q^296 + (a^3 + a - 1)*q^303 + (a^2
        + 1)*q^315 + (a^2 - 2*a + 1)*q^323 + (a^3 + a - 1)*q^330 + a^2*q^338 + 
        (a^3 + a - 1)*q^347 + (a^2 + 1)*q^359 + O(q^362),
    q^3 + (a^3 - a^2 + a - 1)*q^7 + (-a^3 - a)*q^10 + a^2*q^12 + (-a^3 + 
        a^2)*q^19 - a*q^27 - a*q^28 + (a^3 + a - 1)*q^31 + (a^3 - a^2 + a)*q^34 
        + (-a^3 + 1)*q^40 + (a^3 - a^2 + a - 1)*q^48 + (-a^3 - a)*q^55 + q^63 + 
        a^2*q^66 + (-a^3 - a + 1)*q^75 + (a^3 - a^2 + a)*q^76 + (a^2 + 1)*q^82 +
        (a^3 + a - 1)*q^90 + (a^2 - a)*q^103 - a^3*q^108 + (-a^3 - a)*q^111 - 
        a^3*q^112 + a*q^115 + (a^3 - a^2 - 1)*q^124 + (a^2 - a)*q^136 + (-a^2 + 
        a - 1)*q^138 + (a^2 - a)*q^139 + (a^3 - a^2 + a - 1)*q^147 - a*q^154 + 
        (a^2 + 1)*q^160 + (-a^2 + a - 1)*q^171 + (a^3 + a)*q^175 + (-a + 
        1)*q^178 + (a^3 - a^2 + a)*q^187 - a*q^192 + (a^3 - a^2 + a)*q^199 + 
        (-a^3 + 1)*q^202 + (-a^3 - a)*q^210 + (-a^3 + 1)*q^220 + (-a^3 + 
        a^2)*q^223 + a^2*q^243 - q^250 + a^2*q^252 + a^3*q^255 + (a^2 + 1)*q^259
        + (a^3 - a^2 + a - 1)*q^264 + (-a^3 + 1)*q^271 + (-a^3 + 1)*q^279 + (a^3
        - a^2 - 1)*q^283 + (-a^3 + a^2 + 1)*q^300 + (a^2 - a)*q^304 + (-a + 
        1)*q^306 + (-a^3 - a)*q^307 + (-a^3 + a^2)*q^322 + (a^3 - a^2 - 1)*q^327
        + (a^3 + a - 1)*q^328 - a^3*q^343 + (-a^2 + a - 1)*q^346 + (2*a^3 - 
        2*a^2 - 2)*q^355 + (a^3 - a^2 - 1)*q^360 + O(q^362),
    q^5 + (a^3 - a^2)*q^6 + (-a^2 + a)*q^14 + (-a^3 + a^2 - 1)*q^17 + a^2*q^20 +
        (-a^3 + a^2 - a)*q^24 + (a^3 - a^2)*q^33 + (-a^3 + a^2 - 1)*q^38 + (a^3 
        - a^2 + a - 1)*q^41 - a*q^45 + (a^2 - a + 1)*q^54 + (a^2 - a + 1)*q^56 -
        a^3*q^62 + (a^3 - 2*a^2 + a)*q^68 + (-a^3 + 2*a^2 - 2*a + 1)*q^69 + 
        (-a^2 + a)*q^77 + (a^3 - a^2 + a - 1)*q^80 + (-a^2 + 2*a - 1)*q^89 + 
        (-a^2 + a)*q^96 + a^2*q^101 + q^105 + a^2*q^110 + (-a + 1)*q^125 + (a^3 
        - a^2)*q^126 + (-a^3 + a^2 - a)*q^132 + a^3*q^150 + (a^3 - 2*a^2 + 
        a)*q^152 + (-a^2 + 2*a - 1)*q^153 + (a^3 - a + 1)*q^161 - a*q^164 + 
        (-a^3 + 2*a^2 - 2*a + 1)*q^173 - a^3*q^180 + (-a^3 - a)*q^185 + (-a^3 + 
        2*a^2 - 2*a + 1)*q^206 + (-a^3 + a^2 - 1)*q^209 + (2*a - 2)*q^213 + (a -
        1)*q^216 + a^2*q^222 + (a - 1)*q^224 + (-a^2 + a - 1)*q^230 + (a^3 - a^2
        + a - 1)*q^245 + q^248 + (a^3 - a + 1)*q^257 + (2*a^3 - 2*a^2)*q^269 + 
        (-a^3 + 2*a^2 - 2*a + 1)*q^272 + (-a^2 + 2*a - 1)*q^276 + (-a^3 + 2*a^2 
        - 2*a + 1)*q^278 + (-a^2 + a - 1)*q^285 - a^3*q^293 + (-a^2 + a)*q^294 +
        (a^2 - a + 1)*q^297 + (a^2 - a + 1)*q^308 - a*q^320 + (a^3 - 2*a^2 + 
        a)*q^321 - a^3*q^341 + (-a^2 + 2*a - 1)*q^342 - a^2*q^350 + (2*a^2 - 2*a
        + 2)*q^353 + (a^3 - a + 1)*q^356 + (-a^3 + a^2 - 1)*q^357 + O(q^362)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 - q^9 + q^11 - q^23 + q^27 - q^31 - q^37 + q^45 + 2*q^47 + q^49 + 
        2*q^53 - q^55 - q^59 - q^67 - q^71 - q^89 - q^97 - q^99 + 2*q^103 - 
        q^113 + q^115 + q^121 + q^125 - q^135 - q^137 + q^155 - q^157 + 2*q^163 
        + q^169 - q^179 - q^181 + q^185 - q^191 + 2*q^199 + q^207 - q^223 - 
        q^229 - 2*q^235 - q^243 - q^245 - q^251 - q^253 + 2*q^257 - 2*q^265 + 
        2*q^269 + q^279 + q^289 + q^295 + q^297 + 2*q^311 - q^313 - q^317 - 
        q^331 + q^333 + q^335 - q^341 - q^353 + q^355 + q^361 + O(q^362),
    q^3 - q^9 - q^15 + q^33 + q^45 - q^69 + q^81 - q^93 - q^99 - q^111 + 2*q^141
        + q^147 + 2*q^159 - q^165 - q^177 - q^201 + q^207 - q^213 - q^243 - 
        q^267 + q^279 - q^291 + 2*q^309 + q^333 - q^339 + q^345 + O(q^362),
    q^7 - q^35 - q^63 + q^77 - q^161 + q^189 - q^217 - q^259 + q^315 + 2*q^329 +
        q^343 + O(q^362),
    q^21 - q^63 - q^105 + q^231 + q^315 + O(q^362)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.3 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (a - 1)*q^9 + (a - 1)*q^16 - a*q^25 + (a - 1)*q^33 - q^34 + q^36
        + (-a + 1)*q^37 + q^42 + q^49 + (-a + 1)*q^58 + q^64 - q^69 - a*q^81 + 
        (2*a - 2)*q^82 - q^97 + (a - 1)*q^100 + (-a + 1)*q^114 + (a - 1)*q^121 +
        q^132 + (-a + 1)*q^133 + a*q^136 - q^141 - a*q^144 - q^148 + q^154 + 
        a*q^157 - a*q^168 + q^169 + (-a + 1)*q^177 + 2*q^181 - a*q^196 - q^202 +
        a*q^213 + q^225 + (2*a - 2)*q^229 - q^232 - q^253 - a*q^256 - q^258 + 
        a*q^276 - a*q^297 + a*q^298 - q^301 + (-a + 1)*q^306 + (-a + 1)*q^313 + 
        a*q^322 + (a - 1)*q^324 + 2*q^328 + a*q^333 - 2*a*q^346 + (-a + 1)*q^357
        + O(q^362),
    q^2 - a*q^8 + (-a + 1)*q^17 + (a - 1)*q^18 + (a - 1)*q^21 + a*q^29 + (a - 
        1)*q^32 - 2*a*q^41 - a*q^50 + a*q^57 + (a - 1)*q^66 - q^68 + q^72 + (-a 
        + 1)*q^74 + (a - 1)*q^77 + q^84 + q^98 + (-a + 1)*q^101 + (-a + 1)*q^116
        + q^128 + (-a + 1)*q^129 - q^138 - q^149 + a*q^153 - q^161 - a*q^162 + 
        (2*a - 2)*q^164 + 2*q^173 - a*q^189 - q^194 + a*q^197 + (a - 1)*q^200 + 
        a*q^209 + (-a + 1)*q^228 - q^233 - 2*a*q^237 + (a - 1)*q^242 - q^261 + 
        q^264 + (-a + 1)*q^266 + a*q^272 + a*q^281 - q^282 - a*q^288 + a*q^293 -
        q^296 + q^308 + a*q^314 - q^329 - a*q^336 + q^338 + (-a + 1)*q^354 + 
        O(q^362),
    q^3 + q^11 - a*q^12 - a*q^14 + a*q^23 + (a - 1)*q^27 - q^38 - a*q^44 + 
        a*q^47 + (a - 1)*q^48 + (a - 1)*q^56 - q^59 + (-a + 1)*q^71 - a*q^75 + 
        a*q^86 + (-a + 1)*q^92 + (a - 1)*q^99 - q^102 + q^108 + (-a + 1)*q^111 -
        q^119 + q^126 + q^147 + a*q^152 + 2*q^158 + (-a + 1)*q^174 + (a - 
        1)*q^176 - q^179 + (-a + 1)*q^188 - 2*a*q^191 + q^192 + (-a + 1)*q^203 -
        q^207 + q^224 + a*q^236 - a*q^243 + (2*a - 2)*q^246 + (-a + 1)*q^251 + 
        a*q^254 - a*q^275 + a*q^278 - q^284 + (2*a - 2)*q^287 - q^291 + (a - 
        1)*q^300 + (-a + 1)*q^302 - q^311 + (a - 1)*q^323 + (-a + 1)*q^342 + (-a
        + 1)*q^344 + (a - 1)*q^350 + O(q^362),
    q^6 + q^7 + (-a + 1)*q^19 + q^22 - a*q^24 - a*q^28 - q^43 + a*q^46 + (-a + 
        1)*q^51 + (a - 1)*q^54 + (a - 1)*q^63 - q^76 + (2*a - 2)*q^79 + a*q^87 -
        a*q^88 + a*q^94 + (a - 1)*q^96 + (a - 1)*q^112 - q^118 - 2*a*q^123 - 
        q^127 - q^139 + (-a + 1)*q^142 - a*q^150 + a*q^151 + a*q^171 + a*q^172 -
        a*q^175 + (-a + 1)*q^184 + (-a + 1)*q^187 + (a - 1)*q^198 - q^204 + 
        2*q^211 + q^216 + (-a + 1)*q^222 + (a - 1)*q^231 - q^238 + q^252 + (-a +
        1)*q^259 + (2*a - 2)*q^271 - 2*a*q^283 + q^294 + (-a + 1)*q^303 + 
        a*q^304 + 2*q^307 + 2*q^316 + a*q^319 + q^343 + (-a + 1)*q^348 + (a - 
        1)*q^352 - q^358 + O(q^362)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.3 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^9 - q^14 + q^16 - q^22 + q^25 - q^36 - 2*q^37 + q^49 - 2*q^53 - 
        q^56 + q^64 + q^77 + q^81 + 2*q^86 - q^88 + q^100 + 2*q^113 + q^121 + 
        q^126 - 2*q^137 - q^144 - 2*q^148 + 2*q^158 - q^169 + q^196 + q^198 - 
        2*q^212 - 2*q^214 - q^224 - q^225 - 2*q^254 + q^256 - q^289 - 2*q^301 + 
        2*q^302 + q^308 + 2*q^317 + q^324 + 2*q^333 + 2*q^344 - q^350 - q^352 + 
        q^361 + O(q^362),
    q^2 - q^7 + q^8 - q^11 - q^18 - q^28 + q^32 + 2*q^43 - q^44 + q^50 + q^63 - 
        q^72 - 2*q^74 + 2*q^79 + q^98 + q^99 - 2*q^106 - 2*q^107 - q^112 - 
        2*q^127 + q^128 + 2*q^151 + q^154 + q^162 + 2*q^172 - q^175 - q^176 + 
        q^200 - 2*q^211 + 2*q^226 - 2*q^239 + q^242 + q^252 + 2*q^259 - 2*q^263 
        - 2*q^274 - q^275 - q^288 - 2*q^296 + 2*q^316 - q^338 - q^343 + 2*q^347 
        + 2*q^359 + O(q^362),
    q^3 + q^12 - q^27 - q^42 + q^48 - q^66 + q^75 - q^108 - 2*q^111 + q^147 - 
        2*q^159 - q^168 + q^192 + q^231 + q^243 + 2*q^258 - q^264 + q^300 + 
        2*q^339 + O(q^362),
    q^6 - q^21 + q^24 - q^33 - q^54 - q^84 + q^96 + 2*q^129 - q^132 + q^150 + 
        q^189 - q^216 - 2*q^222 + 2*q^237 + q^294 + q^297 - 2*q^318 - 2*q^321 - 
        q^336 + O(q^362)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
924
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
362
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^15 - q^37 + q^49 - q^67 + q^81 - q^91 + q^121 - q^133 - q^135 - 
        q^141 - q^163 - q^177 + q^231 + q^235 + q^247 + 2*q^267 + q^289 + q^295 
        - q^319 + 2*q^331 - q^333 + O(q^362),
    q^2 + q^18 - q^30 - q^32 - q^44 - q^74 - q^84 + q^98 + q^116 + q^128 - q^134
        + q^140 + q^156 + q^162 + q^176 - q^182 + q^228 + q^242 - q^260 - q^266 
        - q^270 - q^282 - q^288 - q^326 + q^336 - q^354 + O(q^362),
    q^3 - q^5 + q^27 - q^45 - q^47 - q^59 + q^77 + 2*q^89 - q^111 + q^125 - 
        q^143 + q^147 + q^185 - q^201 - q^203 - q^209 + q^243 - q^245 - q^251 - 
        q^257 + 2*q^269 - q^273 + 2*q^311 + q^335 - q^353 + O(q^362),
    q^4 + q^36 - q^60 - q^64 - q^88 - q^148 - q^168 + q^196 + q^232 + q^256 - 
        q^268 + q^280 + q^312 + q^324 + q^352 + O(q^362),
    q^6 - q^10 - q^28 + q^52 + q^54 + q^76 - q^90 - q^94 - q^96 + q^112 - q^118 
        - q^132 + q^154 + q^160 + 2*q^178 - q^208 + q^220 - q^222 - 2*q^244 + 
        q^250 - q^252 - q^286 + q^292 + q^294 - q^304 + q^348 + O(q^362),
    q^7 - q^13 - q^19 + q^33 - q^55 + 2*q^61 + q^63 - q^73 - q^87 - q^105 - 
        q^117 + 2*q^139 + q^145 - q^171 + q^195 - q^241 - q^259 - q^271 - q^283 
        + q^285 + q^297 + 2*q^307 - q^321 + q^343 - q^349 + O(q^362),
    q^8 - q^32 - q^44 + q^72 - q^84 + q^116 - q^120 + q^140 + q^156 + q^228 - 
        q^260 - q^288 - q^296 + O(q^362),
    q^11 + q^21 - q^29 - q^35 - q^39 - q^57 + q^65 + q^95 + q^99 - q^107 - q^149
        - q^165 + 2*q^183 + q^189 + 2*q^197 - q^219 + 2*q^233 - q^239 - q^261 - 
        q^263 - q^281 - 2*q^305 - q^315 - q^329 + 2*q^347 - q^351 + 2*q^359 + 
        O(q^362),
    q^12 - q^20 - q^56 + q^104 + q^108 + q^152 - q^180 - q^188 - q^192 + q^224 -
        q^236 - q^264 + q^308 + q^320 + 2*q^356 + O(q^362),
    q^14 - q^26 - q^38 + q^48 - q^56 + q^66 - q^80 + q^104 - q^110 + 2*q^122 + 
        q^126 - q^146 + q^152 - q^174 - q^192 - q^210 - q^234 - q^264 + 2*q^278 
        + q^290 + q^320 - q^342 + O(q^362),
    q^16 + q^22 + q^42 - q^58 - q^64 - q^70 - q^78 - q^88 - q^114 + q^130 + 
        q^144 - q^168 + q^190 + q^198 - q^214 + q^232 - q^240 + q^280 - q^298 + 
        q^312 - q^330 + O(q^362),
    q^24 - q^28 - q^40 + q^52 + q^76 - q^96 - q^132 + q^160 + q^216 + q^220 - 
        2*q^244 - q^252 + q^292 + q^348 - q^360 + O(q^362)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
180
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
180
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
180
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
180
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
925
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
926
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
462
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
926
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
154
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
926
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
926
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
926
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
926
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
33*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
926
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
77*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
926
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
231*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 + q^25 + q^49 - q^58 - q^59 - q^61 - q^64 - q^68 - q^73 - q^79 + 
        q^81 - q^86 - q^94 - q^103 - q^113 + q^116 + q^118 + q^121 + q^122 - 
        q^124 + q^128 + q^146 - q^149 + q^158 - q^163 + q^169 + q^172 - q^178 + 
        q^188 - q^194 + q^206 - q^211 + q^225 + q^226 - q^229 + O(q^230),
    q^2 + q^18 + q^50 - q^58 - q^64 - q^68 - q^86 - q^94 + q^98 - q^124 - q^136 
        + q^162 - q^178 - q^194 + O(q^230),
    q^4 - q^32 - q^34 + q^36 - q^62 - q^68 + q^100 + q^118 + q^122 - q^124 - 
        q^134 + q^146 + q^158 + q^196 + q^206 - q^218 + q^226 + O(q^230),
    q^8 + q^17 + q^31 - q^59 - q^61 - q^64 + q^67 - q^68 + q^72 - q^73 - q^79 - 
        q^103 + q^109 - q^113 - q^124 + q^131 - q^136 - q^149 + q^153 - q^163 + 
        q^173 + q^181 + q^200 - q^211 - q^229 + O(q^230),
    q^16 + q^17 + q^31 + q^34 - q^58 - q^59 - q^61 + q^62 - q^64 + q^67 - q^68 -
        q^73 - q^79 - q^86 - q^94 - q^103 + q^109 - q^113 + q^116 - q^124 + 
        q^131 + q^134 - q^136 + q^144 - q^149 + q^153 - q^163 + q^172 + q^173 - 
        q^178 + q^181 + q^188 - q^194 - q^211 + q^218 - q^229 + O(q^230),
    q^29 + q^32 + q^34 + q^43 + q^47 - q^58 - q^59 - q^61 + q^62 - q^64 - q^73 -
        q^79 - q^86 + q^89 - q^94 + q^97 - q^103 - q^113 + q^134 - q^136 - q^149
        - q^163 + q^167 - q^178 + q^179 - q^194 - q^211 + q^218 - q^229 + 
        O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^10*q^4 + (-a^13 + a^8)*q^7 + (-a^12 + a^9)*q^13 - a^3*q^16 + (-a^15 + 
        a^14)*q^19 - a*q^25 + (-a^6 + a)*q^28 + (-a^15 + a^14 - a^13 + a^12 - 
        a^11 + a^10 - a^9 + a^8 - 2*a^7 + a^6 - a^5 + a^4 - a^3 + a^2 - a + 
        1)*q^31 + (a^6 - a^2)*q^37 + (-a^14 + a^12)*q^43 + (a^15 - a^14 + a^13 -
        a^12 + a^11 - a^10 - a^8 + a^7 - a^6 + a^5 + a^3 - a^2 + a - 1)*q^49 + 
        (-a^5 + a^2)*q^52 + (a^15 - a^4)*q^61 + a^13*q^64 + (a^10 + a^3)*q^67 + 
        (-a^11 + a^5)*q^73 + (-a^8 + a^7)*q^76 + (a^11 + a^7)*q^79 + (-a^8 + a^5
        + a^3 - 1)*q^91 + (a^15 - 1)*q^97 + a^11*q^100 - a^4*q^103 + (a^13 + 
        a^2)*q^109 + (a^15 - a^14 + a^13 - a^12 - a^10 + a^9 - a^8 + a^7 - a^6 +
        a^5 - a^4 + a^3 - a^2 + a - 1)*q^112 + a^10*q^121 + (-a^9 - 1)*q^124 + 
        (-a^14 + a^4)*q^127 + (-a^11 + a^10 + a^6 - a^5)*q^133 + (a^11 - 
        a^2)*q^139 + (-a^15 + a^14 - a^13 + 2*a^12 - a^11 + a^10 - a^9 + a^8 - 
        a^7 + a^6 - a^5 + a^4 - a^3 + a^2 - a + 1)*q^148 + (-a^6 - a^5)*q^151 + 
        (a^13 + a^12)*q^157 + (-a^8 + a)*q^163 + (-a^7 + a^4 - a)*q^169 + (-a^7 
        + a^5)*q^172 + (a^14 - a^9)*q^175 + (-a^15 - a^4)*q^181 + (-a^3 + 
        a)*q^193 + (-a^14 + a^9 - a^2)*q^196 + (a^3 - a)*q^199 + O(q^202)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^3*q^4 + (a^15 - a^14 + a^13 - a^12 + a^11 - a^10 - a^8 + a^7 - a^6 + 
        a^5 - a^4 + a^3 - a^2 + a - 1)*q^7 + (-a^7 - a)*q^13 + a^6*q^16 + (-a^13
        - a^11)*q^19 + a^2*q^25 + (a^12 + a^2)*q^28 + (-a^15 + a^14)*q^31 + 
        (a^12 + a^4)*q^37 + (-a^11 - a^7)*q^43 + (-a^15 + a^8 - a)*q^49 + (a^10 
        + a^4)*q^52 + (-a^13 + a^8)*q^61 - a^9*q^64 + (a^6 - a^3)*q^67 + (a^10 -
        a^5)*q^73 + (a^15 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + 
        a^5 - a^4 + a^3 - a^2 + a - 1)*q^76 + (a^14 - a^5)*q^79 + (a^15 - a^14 +
        a^13 - a^12 + a^11 + a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a)*q^91 +
        (-a^13 + 1)*q^97 - a^5*q^100 + a^8*q^103 + (-a^9 + a^4)*q^109 + (-a^15 -
        a^5)*q^112 - a^3*q^121 + (-a + 1)*q^124 + (-a^11 + a^8)*q^127 + (a^12 + 
        a^10 - a^5 - a^3)*q^133 + (-a^5 + a^4)*q^139 + (-a^15 - a^7)*q^148 + 
        (a^12 + a^10)*q^151 + (-a^9 - a^7)*q^157 + (a^15 - a^14 + a^13 - a^12 + 
        a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^163 + 
        (a^14 + a^8 + a^2)*q^169 + (a^14 + a^10)*q^172 + (-a^11 - a)*q^175 + 
        (-a^13 + a^8)*q^181 + (a^6 + a^2)*q^193 + (-a^11 + a^4 - a)*q^196 + (a^6
        + a^2)*q^199 + O(q^202),
    q^3 - a^5*q^9 - a^3*q^12 + (a^15 - a^14 + a^13 - a^12 + a^11 - a^10 - a^8 + 
        a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^21 + a^10*q^27 + a^8*q^36 +
        (-a^7 - a)*q^39 + a^6*q^48 + (-a^13 - a^11)*q^57 + (a^14 + a^4)*q^63 + 
        a^2*q^75 - a^15*q^81 + (a^12 + a^2)*q^84 + (-a^15 + a^14)*q^93 - 
        a^13*q^108 + (a^12 + a^4)*q^111 + (a^12 + a^6)*q^117 + (-a^11 - 
        a^7)*q^129 - a^11*q^144 + (-a^15 + a^8 - a)*q^147 + (a^10 + a^4)*q^156 +
        (a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 -
        a^4 + a^3 - a^2 - 1)*q^171 + (-a^13 + a^8)*q^183 + (-a^9 + a^2)*q^189 - 
        a^9*q^192 + (a^6 - a^3)*q^201 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
17*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 17*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 17*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 34*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 34*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^7 + q^10 + (-a + 1)*q^16 + (a - 1)*q^19 - q^22 - q^34 - a*q^40 + (a 
        - 1)*q^43 + (-2*a + 2)*q^46 + (a - 1)*q^55 - a*q^58 - q^64 - a*q^67 + 
        a*q^70 + 2*q^79 + a*q^82 + (a - 1)*q^85 + a*q^88 - q^94 + (-a + 1)*q^97 
        - q^103 - q^106 + (-a + 1)*q^109 + q^112 - 2*a*q^115 + a*q^118 - q^133 +
        a*q^136 + a*q^139 + q^142 - q^145 + (-a + 1)*q^151 - a*q^154 + (a - 
        1)*q^157 + (-a + 1)*q^163 + a*q^166 - q^169 + (-a + 1)*q^181 - 2*q^184 +
        (-a + 1)*q^187 + (a - 1)*q^190 + a*q^199 + O(q^202),
    q^2 + (-a + 1)*q^5 - a*q^8 + (a - 1)*q^11 + a*q^14 + (a - 1)*q^17 - 2*a*q^23
        - q^29 + q^35 + (a - 1)*q^38 + q^41 + (a - 1)*q^47 + (a - 1)*q^53 + (-a 
        + 1)*q^56 + q^59 + (-a + 1)*q^71 - q^77 - a*q^80 + q^83 + (a - 1)*q^86 +
        a*q^95 - q^101 + (-a + 1)*q^107 + (a - 1)*q^110 - q^119 + a*q^125 - 
        q^128 - q^131 - a*q^134 + q^149 + q^152 + 2*q^158 + (-2*a + 2)*q^161 + 
        (a - 1)*q^170 + (-a + 1)*q^173 + a*q^176 + (-a + 1)*q^191 + (-a + 
        1)*q^194 + O(q^202),
    q^3 - q^9 + a*q^21 + q^27 + q^30 + (-a + 1)*q^48 + (a - 1)*q^57 - a*q^63 - 
        q^66 - q^81 - q^90 - q^102 - a*q^120 + (a - 1)*q^129 + (-2*a + 2)*q^138 
        + (a - 1)*q^144 + (a - 1)*q^165 + (-a + 1)*q^171 - a*q^174 + a*q^189 - 
        q^192 + q^198 - a*q^201 + O(q^202),
    q^6 + (-a + 1)*q^15 - q^18 - a*q^24 + (a - 1)*q^33 + a*q^42 + (a - 1)*q^45 +
        (a - 1)*q^51 + q^54 - 2*a*q^69 + a*q^72 - q^87 + (-a + 1)*q^99 + q^105 +
        (a - 1)*q^114 + q^123 - a*q^126 + (-a + 1)*q^135 + (a - 1)*q^141 + (-a +
        1)*q^153 + (a - 1)*q^159 - q^162 + (-a + 1)*q^168 + q^177 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 34*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
51*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^16 + q^17 + q^19 - q^23 + q^25 + q^26 - 2*q^28 - q^41 - 2*q^46 + 
        2*q^49 + q^52 - q^56 - q^61 + q^64 - 2*q^82 + q^83 - q^91 - q^92 - q^97 
        - q^103 - q^112 + q^121 + q^128 + q^133 - q^136 - 2*q^139 - q^149 + 
        q^152 + q^158 - q^163 - q^164 + q^169 + q^179 + q^182 - 2*q^184 + 
        O(q^202),
    q^2 + q^17 - q^23 + q^26 - q^29 - q^38 - q^41 + q^50 - q^56 - q^59 + q^83 - 
        q^92 - q^104 + q^119 + q^128 + q^131 + q^137 - q^149 + q^152 + q^158 - 
        q^164 + q^179 + q^182 + O(q^202),
    q^4 - q^17 - q^19 + q^23 - q^26 + q^41 - q^49 - q^52 + q^56 + q^61 - q^83 + 
        q^91 + q^92 + q^97 + q^100 - q^112 - q^128 - q^133 - q^136 + q^149 - 
        q^152 - q^158 + q^163 + q^164 - q^179 - q^182 + q^196 + O(q^202),
    q^7 - q^16 - q^17 - q^19 + q^23 - q^26 + q^28 + q^34 + q^41 + q^46 - q^49 + 
        q^56 - q^58 - q^64 - q^76 + q^82 - q^83 + q^92 + q^112 - q^118 - q^128 +
        q^149 - q^152 - q^158 + q^164 + q^166 + q^169 + q^175 - q^179 - q^182 + 
        2*q^184 - q^196 + O(q^202),
    q^8 - q^16 - q^17 - q^19 + q^23 - 2*q^26 + 2*q^28 + q^29 + q^41 + 2*q^46 - 
        q^49 - q^52 - q^58 + q^59 - q^64 - q^68 - q^76 + 2*q^82 - q^83 + q^92 + 
        q^103 - q^107 + q^112 - q^118 - q^119 + q^122 - q^128 - q^133 + q^136 + 
        2*q^139 + q^149 - q^152 - 2*q^158 + q^161 + q^164 - q^167 - q^179 - 
        q^182 + 2*q^184 + q^194 - q^196 + q^200 + O(q^202),
    q^13 - q^16 - q^19 + q^28 + q^34 - q^49 - q^58 + q^79 + q^91 - q^118 - q^133
        + q^166 + q^184 + O(q^202),
    q^14 - q^16 - q^19 + q^23 - q^26 + 2*q^28 - q^32 - q^38 + q^41 + 2*q^46 - 
        q^49 - q^52 + q^56 - q^58 - q^64 - q^76 + 2*q^82 + 2*q^92 - q^98 + q^103
        - q^107 + q^112 - q^116 - q^118 - q^119 - q^128 - q^133 + q^136 + 
        2*q^139 + q^149 - q^152 - q^158 + 2*q^164 - q^167 - q^182 + 2*q^184 - 
        q^196 + O(q^202)
]
;
Bo:=
[
    q - q^7 - q^8 - q^14 - q^17 + q^25 + q^26 + q^28 - q^29 + q^32 - q^34 + q^38
        + q^46 + q^49 - q^52 + q^56 - q^58 - q^59 - q^61 + q^68 - q^76 + q^82 - 
        q^83 - q^91 - q^92 - q^97 + q^98 + q^103 + 2*q^107 + q^116 - q^118 + 
        2*q^119 + q^121 - q^122 - q^133 + q^136 + 2*q^139 + q^158 - q^161 - 
        q^163 - q^164 - q^166 + 2*q^167 - q^175 - q^179 - q^194 - q^196 - q^200 
        + O(q^202),
    q^2 - q^4 - q^7 + q^13 - q^17 + q^19 + q^23 - q^26 - q^29 - q^38 + q^41 - 
        q^46 + q^49 + q^50 + q^52 + q^56 - q^59 - q^61 + q^64 + q^76 + q^79 - 
        q^82 - q^83 + q^92 - q^97 - q^100 - q^104 + q^119 - q^128 + q^131 + 
        q^136 + q^137 + q^149 - q^152 - q^158 - q^163 + q^164 - q^169 - q^175 - 
        q^179 - q^182 - q^184 + O(q^202),
    q^3 - q^21 - q^24 + q^27 - q^42 - q^51 + q^75 + q^78 + q^84 - q^87 + q^96 - 
        q^102 + q^114 + q^138 + q^147 - q^156 + q^168 - q^174 - q^177 - q^183 - 
        q^189 + O(q^202),
    q^6 - q^12 - q^21 + q^39 - q^51 + q^54 + q^57 + q^69 - q^78 - q^87 - q^108 -
        q^114 + q^123 - q^138 + q^147 + q^150 + q^156 + q^168 - q^177 - q^183 - 
        q^189 + q^192 + O(q^202),
    q^9 - q^63 - q^72 + q^81 - q^126 - q^153 + O(q^202),
    q^18 - q^36 - q^63 + q^117 - q^153 + q^162 + q^171 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
927
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 51*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^6 + a^2)*q^5 - a^5*q^9 + (a^3 - a)*q^13 + (-a^11 - a^10)*q^17 + 
        (a^10 - 2*a^8 + a^6 + a^2 - 1)*q^25 + a^9*q^29 + (a^11 - a^9 + a^7 - a^5
        - a^4 + a^3 - a)*q^37 + (-a^11 + a^9 + a^8 - a^7 + a^5 - a^3 + a)*q^41 +
        (a^11 - a^7)*q^45 + (-a^10 + a^8 - a^6 + a^4 - a^2 + 1)*q^49 + (a^7 + 
        a)*q^53 + (a^10 - a^9)*q^61 + (-a^9 + a^7 + a^5 - a^3)*q^65 + (-a^7 + 
        a^6)*q^73 + a^10*q^81 + (-a^11 - a^10 + a^9 + a^8 - a^7 - a^6 + a^5 + 
        a^4 - 2*a^3 - 2*a^2 + a + 1)*q^85 + (a^11 - a^9 + a^7 - a^5 + a^3 - a^2 
        - a)*q^89 + (a^9 - 1)*q^97 + (a^8 + a^5)*q^101 + (a^10 - a^8 + a^6 - a^4
        + a^2 - 2)*q^109 + (-a^4 + a)*q^113 + (-a^8 + a^6)*q^117 + a^11*q^121 + 
        (-a^10 + a^6 + a^4 - 1)*q^125 + (a^3 - 1)*q^137 + (a^11 + a)*q^145 + 
        (-a^11 + a^5)*q^149 + (-a^2 - a)*q^153 + (-a^5 - a^2)*q^157 + (a^6 - a^4
        + a^2)*q^169 + (-a^11 - a^3)*q^173 + (a^8 + a^4)*q^181 + (a^10 - a^6 + 
        a^5 - a)*q^185 + (-a^6 - a^3)*q^193 + (-a^10 - a^6 + a^4 - a^2 + 
        1)*q^197 + (a^10 - a^5 + a + 1)*q^205 + (a^10 + a^9 - a^8 - a^7 + a^6 + 
        a^5 - a^4 - a^3 + a^2 + a)*q^221 + (a^11 - 2*a^9 + a^7 - a^5 + 2*a^3 - 
        a)*q^225 + O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
56
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
56
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^5 - a^4 + a^3 + a - 1)*q^5 + a^5*q^9 + (a^3 + a)*q^13 + (-a^4 - 
        a^3)*q^17 + (-a^5 + a^4 - a)*q^25 - a^2*q^29 + (-a^5 + 2*a^4 - a^3 + a^2
        - a + 1)*q^37 + (-a^5 + a^4 - a^3 + a^2 - 2*a + 1)*q^41 + (-a^4 - 
        1)*q^45 - a^5*q^49 + (a - 1)*q^53 + (-a^3 - a^2)*q^61 + (a^5 + a^3 - a^2
        - 1)*q^65 + (a^5 - a^4 + a^3 - a^2 + a - 2)*q^73 - a^3*q^81 + (-2*a^5 + 
        a^4 + 2*a^2 - a + 1)*q^85 + (-a^5 + a^4 - a^3 + 2*a^2 - a + 1)*q^89 + 
        (-a^2 + 1)*q^97 + (a^5 - a)*q^101 + (-a^5 + 1)*q^109 + (a^4 + a)*q^113 +
        (a^5 - a^4 + a^3 - a^2 - 1)*q^117 - a^4*q^121 + (a^5 - a^2 + a)*q^125 + 
        (a^3 + 1)*q^137 + (-a^4 + a)*q^145 + (a^5 - a^4)*q^149 + (a^2 + a)*q^153
        + (a^5 + a^2)*q^157 + (a^5 + a^3 + a - 1)*q^169 + (-a^4 + a^3)*q^173 + 
        (a^4 - a)*q^181 + (2*a^5 - a^4 - a^2 + 2*a - 1)*q^185 + (a^5 - a^4 + 
        2*a^3 - a^2 + a - 1)*q^193 + (-a^5 - a)*q^197 + (a^5 - a^3 + a + 
        1)*q^205 + (-2*a^5 - a^3 + a^2 - a + 2)*q^221 + (-a^5 + a^4 - a + 
        1)*q^225 + O(q^226),
    q^2 + (a^5 - a^4 + a^3 + a - 1)*q^10 + a^5*q^18 + (a^3 + a)*q^26 + (-a^4 - 
        a^3)*q^34 + (-a^5 + a^4 - a)*q^50 - a^2*q^58 + (-a^5 + 2*a^4 - a^3 + a^2
        - a + 1)*q^74 + (-a^5 + a^4 - a^3 + a^2 - 2*a + 1)*q^82 + (-a^4 - 
        1)*q^90 - a^5*q^98 + (a - 1)*q^106 + (-a^3 - a^2)*q^122 + (a^5 + a^3 - 
        a^2 - 1)*q^130 + (a^5 - a^4 + a^3 - a^2 + a - 2)*q^146 - a^3*q^162 + 
        (-2*a^5 + a^4 + 2*a^2 - a + 1)*q^170 + (-a^5 + a^4 - a^3 + 2*a^2 - a + 
        1)*q^178 + (-a^2 + 1)*q^194 + (a^5 - a)*q^202 + (-a^5 + 1)*q^218 + 
        O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
56
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^5 + a^4)*q^5 - a^3*q^9 + (a^5 - a^4 + a^3 + a - 1)*q^13 + (a^5 - a^4
        + a^3 - a^2 - 1)*q^17 + (-a^3 + a^2 - a)*q^25 + a^4*q^29 + (-a^5 - 
        a)*q^37 + (-a^5 + a^2)*q^41 + (-a + 1)*q^45 - a^3*q^49 + (a^2 + 1)*q^53 
        + (a^5 + a^3 - a^2 + a - 1)*q^61 + (a^5 - a^2 + a)*q^65 + (-a^5 + 
        1)*q^73 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^81 + (-a^2 + a - 1)*q^85 + 
        (-a^5 + a^4)*q^89 + (a^4 + 1)*q^97 + (-a^3 + a^2)*q^101 + (-a^3 + 
        1)*q^109 + (a^2 - a)*q^113 + (-a^5 + a^2)*q^117 - a*q^121 + (-a^4 + a^3 
        - a^2)*q^125 + (a^5 - a^4 + a^3 - a^2 + a)*q^137 + (a^2 - a)*q^145 + 
        (-a^3 - a)*q^149 + (a^4 + a^2)*q^153 + (a^4 - a^3)*q^157 + (-a^5 + a^4 -
        a)*q^169 + (a^5 - a^4 + a^3 - a^2 - 1)*q^173 + (a^2 - a)*q^181 + (-a^4 +
        a - 1)*q^185 + (-a^4 + a^3 - a^2 + a - 1)*q^193 + (-a^3 + a^2)*q^197 + 
        (a^5 - a^4 + a)*q^205 + (-a^5 - a^3 - a + 1)*q^221 + (a^3 - a^2 + a - 
        1)*q^225 + O(q^226),
    q^2 + (-a^5 + a^4)*q^10 - a^3*q^18 + (a^5 - a^4 + a^3 + a - 1)*q^26 + (a^5 -
        a^4 + a^3 - a^2 - 1)*q^34 + (-a^3 + a^2 - a)*q^50 + a^4*q^58 + (-a^5 - 
        a)*q^74 + (-a^5 + a^2)*q^82 + (-a + 1)*q^90 - a^3*q^98 + (a^2 + 1)*q^106
        + (a^5 + a^3 - a^2 + a - 1)*q^122 + (a^5 - a^2 + a)*q^130 + (-a^5 + 
        1)*q^146 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^162 + (-a^2 + a - 1)*q^170 
        + (-a^5 + a^4)*q^178 + (a^4 + 1)*q^194 + (-a^3 + a^2)*q^202 + (-a^3 + 
        1)*q^218 + O(q^226),
    q^4 + (-a^5 + a^4)*q^20 - a^3*q^36 + (a^5 - a^4 + a^3 + a - 1)*q^52 + (a^5 -
        a^4 + a^3 - a^2 - 1)*q^68 + (-a^3 + a^2 - a)*q^100 + a^4*q^116 + (-a^5 -
        a)*q^148 + (-a^5 + a^2)*q^164 + (-a + 1)*q^180 - a^3*q^196 + (a^2 + 
        1)*q^212 + O(q^226),
    q^8 - a*q^16 + a^2*q^32 + (-a^5 + a^4)*q^40 - a^3*q^64 - a^3*q^72 + (-a^4 + 
        a^3 - a^2 + a - 1)*q^80 + (a^5 - a^4 + a^3 + a - 1)*q^104 + a^4*q^128 + 
        (a^5 - a^4 + a^3 - a^2 - 1)*q^136 + a^4*q^144 + (a^5 - a^4 + a^3 - a^2 +
        a)*q^160 + (-a^3 + a^2 - a)*q^200 + (-a^3 + 1)*q^208 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
56
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^9 - 2*a*q^13 + (a + 1)*q^17 + q^25 + a*q^29 + (a - 1)*q^37 + (-a + 
        1)*q^41 - q^49 + (-a - 1)*q^61 + (a - 1)*q^73 - q^81 + (a + 1)*q^89 + (a
        - 1)*q^97 + (a + 1)*q^101 + (a - 1)*q^113 - 2*q^117 - a*q^121 + (-a - 
        1)*q^137 + 2*a*q^149 + (-a + 1)*q^153 + (-a + 1)*q^157 - 3*q^169 + 
        2*a*q^173 + 2*q^181 + (a + 1)*q^193 - 2*q^197 + (-2*a + 2)*q^221 - 
        a*q^225 + O(q^226),
    q^3 + (-a + 1)*q^7 - q^11 + a*q^15 - 2*q^19 - a*q^27 - q^31 + (a + 1)*q^35 +
        a*q^39 + q^43 + a*q^47 - a*q^55 + (-a - 1)*q^71 + q^79 - q^87 + (a + 
        1)*q^91 - 2*a*q^95 + (a - 1)*q^103 + (-a + 1)*q^107 + (a - 1)*q^123 + 
        q^135 - a*q^143 + q^147 + (a + 1)*q^151 - a*q^155 + q^159 - a*q^163 + (a
        + 1)*q^167 + (-a - 1)*q^179 - q^195 + (a - 1)*q^199 + (a - 1)*q^203 + 
        a*q^211 + a*q^215 + (a - 1)*q^223 + O(q^226),
    q^5 + q^9 + 3*q^13 + (a - 1)*q^17 + (-a + 1)*q^21 + a*q^25 + (a - 1)*q^29 - 
        q^33 + (-a - 1)*q^37 + (2*a + 2)*q^41 - 2*a*q^49 - a*q^53 - 2*q^57 + (-a
        + 1)*q^61 + a*q^65 + (-a - 1)*q^73 + (a - 1)*q^77 - 2*a*q^81 + (2*a - 
        2)*q^89 - q^93 + (-2*a - 2)*q^97 + (a - 1)*q^101 + (a + 1)*q^105 - q^109
        - 2*a*q^117 + q^121 + q^125 + q^129 + (2*a - 2)*q^133 + (-a + 1)*q^137 +
        a*q^141 - q^145 - 3*q^149 + (a + 1)*q^153 + (2*a + 2)*q^157 - a*q^165 - 
        3*a*q^169 - 2*q^173 + a*q^181 + (-a - 1)*q^189 - 2*a*q^197 + (a - 
        1)*q^205 + 2*q^209 + (-a - 1)*q^213 + (a - 1)*q^217 + (2*a + 2)*q^221 + 
        q^225 + O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^13 + q^25 - q^45 + q^49 - q^53 - q^57 - q^65 + q^117 + 2*q^125 + q^141
        - q^145 - q^149 + q^169 + 2*q^197 - q^209 - q^225 + O(q^226),
    q^2 - q^26 + q^50 - q^90 + q^98 - q^106 - q^114 - q^130 + O(q^226),
    q^3 - q^15 - q^19 + q^47 + q^79 + q^95 - q^99 - q^127 - q^131 - q^143 + 
        q^147 + q^163 - q^191 + q^211 + O(q^226),
    q^4 - q^20 - q^52 + q^116 + q^132 + q^196 - q^212 + O(q^226),
    q^5 + q^25 - q^29 - q^33 - q^45 + q^57 - 2*q^65 + q^81 - q^93 + q^109 + 
        q^117 + q^125 - q^129 + q^165 + q^169 - 2*q^173 + q^181 + q^209 - q^225 
        + O(q^226),
    q^6 - q^30 - q^38 + q^94 + q^158 + q^190 - q^198 + O(q^226),
    q^8 + q^32 - q^40 - q^48 - q^104 + q^128 - q^160 - q^176 - q^192 + O(q^226),
    q^9 + q^13 - q^29 - 2*q^33 - q^45 + q^53 + q^57 - q^65 + q^81 - 2*q^93 + 
        q^117 + q^121 - 2*q^129 + q^141 + q^145 + q^149 + 2*q^165 - 2*q^173 + 
        q^209 + O(q^226),
    q^10 + q^50 - q^58 - q^66 - q^90 + q^114 - 2*q^130 + q^162 - q^186 + q^218 +
        O(q^226),
    q^11 - q^19 - q^27 + q^31 - q^39 + q^43 - q^55 + q^87 + q^95 + q^99 - q^127 
        - q^131 + q^135 - q^155 - q^159 - q^191 + q^195 - q^215 + O(q^226),
    q^12 + q^44 - q^60 - 2*q^76 - q^108 + q^124 - q^156 + q^172 + q^188 - q^220 
        + O(q^226),
    q^16 - q^24 + q^64 - q^80 - q^88 - q^96 + q^120 + 2*q^152 - q^208 + q^216 + 
        O(q^226),
    q^18 + q^26 - q^58 - 2*q^66 - q^90 + q^106 + q^114 - q^130 + q^162 - 2*q^186
        + O(q^226),
    q^22 - q^38 - q^54 + q^62 - q^78 + q^86 - q^110 + q^174 + q^190 + q^198 + 
        O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
928
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
929
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
928
);
qprec:=
155
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
929
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
29*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
32
);
qprec:=
155
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^7 + 2*a^6 - a^5 - a^4 - 2*a^2 + 2)*q^6 + a^2*q^9 + (-2*a^6 + a^5 + 
        a^4 + a^2 - 2)*q^10 + a^6*q^15 - a^6*q^16 + (-a^5 - a^3)*q^19 + (2*a^7 +
        2*a^6 - 2*a^5 - a^4 - a^3 - 2*a^2 + a + 2)*q^24 + (a^5 - 1)*q^25 + (-a^7
        - a^6 + a^3 + a^2 - 1)*q^31 + (-3*a^7 - a^6 + 2*a^5 + a^4 + 2*a^3 + 
        2*a^2 - 2*a - 2)*q^34 + (-2*a^7 - 2*a^6 + 2*a^5 + a^4 + a^3 + 2*a^2 - a 
        - 3)*q^40 + (2*a^7 + 3*a^6 - 3*a^5 - 2*a^4 - a^3 - 3*a^2 + a + 4)*q^46 +
        (-a^6 + a)*q^49 + (a^7 - a^5 - a^4 - a^3 + a + 1)*q^51 + (-2*a^7 + 2*a^5
        + a^3 + a^2 - 2*a - 1)*q^54 + (-a^6 + a^4 + a)*q^61 + (-a^7 + 2*a^5 + 
        a^4 - a - 1)*q^64 + (a^5 - a - 1)*q^69 + (-a^7 + a^6 + a^5 + a^4 + a^3 -
        a - 1)*q^79 + a^4*q^81 + (-a^7 + a^2)*q^85 + (3*a^7 + a^6 - 2*a^5 - a^4 
        - 2*a^3 - 2*a^2 + 2*a + 2)*q^90 + (2*a^7 - 2*a^6 - a^5 + a^4 - a^3 + 3*a
        - 2)*q^94 + (2*a^7 - 2*a^5 - a^2 + 2*a + 1)*q^96 + (-a^7 + a^6 - a + 
        1)*q^106 + (a^7 - a^2 + 1)*q^109 + (-3*a^6 + a^5 + a^4 + 2*a^2 + a - 
        2)*q^114 + (a^7 + a^6 - a^5 - a^4 - a^3 - a^2 + 1)*q^115 - a*q^121 + 
        (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^135 + (-2*a^7 + a^6 + a^5 + a^3 + a^2
        - 2*a)*q^136 + (2*a^7 + a^6 - a^5 - 2*a^4 - a^3 - a^2 + a + 2)*q^139 + 
        (a^7 + a^6 - a^4 - a^3 - a^2 + 2)*q^141 + (a^7 - a^5 - a^4 - a^3 + a + 
        1)*q^144 + (-3*a^7 - a^6 + 2*a^5 + a^4 + a^3 + 2*a^2 - 2*a - 2)*q^150 + 
        (-a^6 + a^3 - 1)*q^151 + (-a^6 + a^3 - 1)*q^159 + (-2*a^7 - a^6 + 2*a^5 
        + a^4 + 2*a^3 + 2*a^2 - 2*a - 2)*q^160 + (5*a^7 - 3*a^5 - a^4 - 3*a^3 - 
        2*a^2 + 4*a + 2)*q^166 - a^7*q^169 + (-a^7 - a^5)*q^171 + (-a^7 + a^5 + 
        a^4 + a^3 + a^2 - a - 1)*q^181 + (4*a^7 + 2*a^6 - 4*a^5 - 2*a^4 - 2*a^3 
        - 3*a^2 + 3*a + 4)*q^184 + (-2*a^7 + a^6 + a^5 + a^3 + a^2 - 2*a)*q^186 
        + (3*a^6 - a^5 - a^4 - a^2 - a + 3)*q^190 + (a^6 - a)*q^199 + (-a^5 - 
        a^4 + a + 1)*q^211 + (-4*a^7 - a^6 + 3*a^5 + a^4 + 2*a^3 + 3*a^2 - 3*a -
        2)*q^214 + (-2*a^7 + a^6 + a^5 + a^3 - 2*a)*q^216 + (a^7 - a^2)*q^225 + 
        (-2*a^7 - 2*a^6 + 2*a^5 + a^4 + a^3 + 2*a^2 - a - 3)*q^226 + (a^7 - a^4 
        + a)*q^229 + (a^4 - a^3)*q^235 + (-a^7 + a^2)*q^240 + (2*a^7 + a^6 - a^4
        - a^3 - 2*a^2 + 1)*q^241 + (-2*a^7 + a^5 + a^4 + a^3 - a - 1)*q^249 + 
        (2*a^7 + a^6 - 2*a^5 - a^4 - a^3 - 2*a^2 + 2*a + 2)*q^250 + (-a^7 + a^5 
        - a^4 + a^2)*q^256 + (a^7 - a^5 - a^4 + 1)*q^265 + (-a^7 + a^5 + a^4 + 
        a^3 - 2*a - 1)*q^271 - a^5*q^274 + (-a^6 + a)*q^279 + (-a^7 - 2*a^6 + 
        a^3 + a^2 + a - 1)*q^285 + (-2*a^7 - 2*a^6 + 2*a^5 + 2*a^4 + a^3 + 2*a^2
        - a - 3)*q^294 + (a^7 + 2*a^6 - a^3 - a^2 - a + 1)*q^304 + (-2*a^6 + a^5
        + a^4 + a^2 + a - 2)*q^306 + (2*a^7 - a^5 - a^3 - a^2 + 2*a)*q^310 + 
        (-a^6 - a^5 + a)*q^321 + (a^5 - a^3 - 1)*q^331 + (a^7 - a^5 - a^4 + a + 
        1)*q^334 + (a^7 + a^6 - a^3 - a^2 + 1)*q^339 + (4*a^7 + 2*a^6 - 3*a^5 - 
        a^4 - 2*a^3 - 3*a^2 + 3*a + 3)*q^346 + (-a^5 + a^4)*q^349 + (2*a^7 - a^6
        - a^5 - a^3 - a^2 + 2*a)*q^360 + (-a^7 + a^6 + 2*a^5 + a^4 + a^3 - a - 
        2)*q^361 + (-2*a^7 - 4*a^6 + 3*a^5 + 3*a^4 + a^3 + 3*a^2 - a - 5)*q^366 
        + O(q^370),
    q^2 + (a^6 - a^4 - 2*a^3 - a^2 + 1)*q^8 + (a^5 + a^4 + a^3 - a^2 - a - 
        1)*q^12 + a^2*q^18 + (a^7 - a^2 - a)*q^20 + a^6*q^30 + (2*a^7 + 2*a^6 - 
        2*a^4 - a^3 + a + 1)*q^32 + (-a^5 - a^3)*q^38 + (-a^7 - a^6 + a^4 + a + 
        1)*q^48 + (a^5 - 1)*q^50 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^62 + (-a^7 - 
        a^6 + a^4 + 2*a^3 + a^2 - 1)*q^68 + (-a^7 - a^6 - a^5 + a^3 + a^2 - a - 
        1)*q^72 + (-a^7 - a^6 + a^5 + 2*a^4 + a^3)*q^80 + (-a^7 - a^6 - 
        a^5)*q^92 + (-a^6 + a)*q^98 + (a^7 - a^5 - a^4 - a^3 + a + 1)*q^102 + 
        (a^7 + a^6 + a^5 - a^4 - a^3 - a^2)*q^108 + (-a^6 - 2*a^5 - a^4 + a^3 + 
        a^2 + a)*q^120 + (-a^6 + a^4 + a)*q^122 + (a^7 - 2*a^5 - a^4 + a^3 + 
        a^2)*q^128 + (a^5 - a - 1)*q^138 + (a^6 + 2*a^5 + 2*a^4 + a^3 - a - 
        2)*q^152 + (-a^7 + a^6 + a^5 + a^4 + a^3 - a - 1)*q^158 + a^4*q^162 + 
        (-a^7 + a^2)*q^170 + (a^7 + a^6 - a^4 - 2*a^3 - a^2 + 1)*q^180 + (-a^7 +
        a^3 + a^2 - 2)*q^188 + (a^6 + a^5 - a^4 - 2*a^3 - a^2 + a)*q^192 + (-a^6
        - a^5 - a^4 + a^3 + 2*a^2 + a)*q^200 + (-a^7 + a^4 - a^3 + 1)*q^212 + 
        (a^7 - a^2 + 1)*q^218 + (a^7 - a^6 - a^5 - a^4 + a^2 + 2*a + 2)*q^228 + 
        (a^7 + a^6 - a^5 - a^4 - a^3 - a^2 + 1)*q^230 - a*q^242 + (a^5 + a^4 + 
        a^3 - a^2 - 2*a - 1)*q^248 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^270 + 
        (-a^7 - a^6 + a^4 - a^2 - a)*q^272 + (2*a^7 + a^6 - a^5 - 2*a^4 - a^3 - 
        a^2 + a + 2)*q^278 + (a^7 + a^6 - a^4 - a^3 - a^2 + 2)*q^282 + (a^5 + 
        2*a^4 + a^3 - a^2 - 2*a)*q^288 + (-a^7 - a^3)*q^300 + (-a^6 + a^3 - 
        1)*q^302 + (-a^6 + a^3 - 1)*q^318 + (a^5 - a^4 - 2*a^3 - a^2 + a + 
        1)*q^320 + (2*a^7 + a^6 - a^5 - 2*a^4 - 2*a^3 + a + 2)*q^332 - a^7*q^338
        + (-a^7 - a^5)*q^342 + (-a^7 + a^5 + a^4 + a^3 + a^2 - a - 1)*q^362 + 
        (a^7 + 2*a^6 + 2*a^5 + a^4 - a^3 - 2*a^2 - a)*q^368 + O(q^370),
    q^3 + a^4*q^5 + (a^6 + a^5 + a^4 - a^3 - a^2 - a)*q^8 + a^3*q^12 - a^6*q^17 
        + a^7*q^20 + (a^6 + a^5 - a^2 - a)*q^23 + a^2*q^27 + (-a^4 - a^3 + a^2 +
        2*a + 1)*q^32 + a^6*q^45 + (2*a^7 - a^5 - a^4 - a^2 + a + 1)*q^47 + 
        (-a^6 - a^5 - a^2 + 1)*q^48 + (-a^7 + a^5 - 1)*q^53 + (-a^5 - a^3)*q^57 
        + (-a^7 - a^6 + a^3 + a^2 - 1)*q^68 + (a^6 - a - 1)*q^72 + (a^5 - 
        1)*q^75 + (-a^7 - 2*a^6 - a^5 + a^4 + a^3 + a^2)*q^80 + (a^6 - a^5)*q^83
        + (a^6 - a^2 - a)*q^92 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^93 + (-2*a^7 - 
        a^6 + a^3 + a^2 - 1)*q^95 + (-a^7 - a^6 + a^2 - 1)*q^107 + a^5*q^108 + 
        a^7*q^113 + (-a^4 - 1)*q^120 + (a^7 + a^6 - a^4 - a^3 - a^2 + 1)*q^125 +
        (a^7 + a^6 - a^5 - 2*a^4 - a^3 + a^2)*q^128 + (a^5 + a^4 + a^3 - a^2 - a
        - 1)*q^137 + (-a^6 + a)*q^147 + (-2*a^7 - a^6 + a^4 + 2*a^3 + 2*a^2 + a 
        - 1)*q^152 + (a^7 - a^5 - a^4 - a^3 + a + 1)*q^153 + (a^7 - a^5 - a^4 + 
        a + 1)*q^155 + (-a^5 - a)*q^167 + (-a^5 - a^4 + a + 1)*q^173 + (a^7 + 
        a^6 - a^3 - a^2 + 1)*q^180 + (-a^6 + a^4 + a)*q^183 + (a - 1)*q^188 + 
        (a^6 + 2*a^5 + a^4 - a^3 - 2*a^2)*q^192 + (a^7 + a^6 - a^4 - a^3 - a^2 +
        2)*q^197 + (a^7 - a^5 - 2*a^4 - a^3 + a + 1)*q^200 + (a^5 - a - 1)*q^207
        + (-a^7 + a^4 - a)*q^212 + (-a^7 + a^5 + a^4 - a - 1)*q^227 + (a^7 - a^6
        - a^5 - a^4 - a^3 + a + 1)*q^228 + (-a^7 - a^6 + a^3 + a^2 - a - 
        1)*q^233 + (-a^7 + a^6 + a^5 + a^4 + a^3 - a - 1)*q^237 + a^4*q^243 + 
        q^245 + (a^7 + a^3)*q^248 + (-a^7 + a^2)*q^255 + (a^2 + 1)*q^257 + (a^6 
        + a^4)*q^263 + (a^5 + a^4 + a^3 - a^2 - 2*a - 1)*q^272 + (-a^6 - a^5 + 
        a^4 + 2*a^3 + a^2)*q^288 + (a^5 + a^2 - 1)*q^293 + (-a^7 + a^5 + a^4 - a
        - 1)*q^300 + (-a^7 + a^5 + a^4 + a^3 - a)*q^305 + (-a^5 + a^4)*q^317 + 
        (2*a^5 + a^4 - a^3 - 2*a^2 - a)*q^320 + (a^7 + 2*a^6 - a^3 - a^2 - a + 
        1)*q^323 + (a^7 - a^2 + 1)*q^327 + (2*a^7 + a^6 - a^5 - a^4 - 2*a^3 - 
        a^2 + a + 2)*q^332 + (a^7 + a^6 - a^5 - a^4 - a^3 - a^2 + 1)*q^345 + 
        (-a^7 - a^6 + a)*q^347 + (-a^6 + a^5 + a - 1)*q^353 - a*q^363 + (a^4 + 
        a^3 + a + 1)*q^368 + O(q^370),
    q^4 + (-2*a^6 + a^4 + a^2 + a - 2)*q^6 + (-a^7 + a^6 - a^4 + a^3 - a + 
        1)*q^10 + (a^6 - a^4 - a^3 - a^2 + 1)*q^16 + (-a^7 - 2*a^6 + 2*a^5 + 
        2*a^4 + a^3 + a^2 - a - 3)*q^24 + (2*a^7 + 2*a^6 - 2*a^5 - a^4 - a^3 - 
        2*a^2 + a + 2)*q^34 + a^2*q^36 + (a^7 + 2*a^6 - a^5 - a^4 - 2*a^2 - a + 
        2)*q^40 + (-3*a^6 + a^5 + 2*a^4 + 2*a^2 + a - 3)*q^46 + (2*a^7 + a^6 - 
        2*a^5 - a^4 - a^3 - 2*a^2 + 2*a + 2)*q^54 + a^6*q^60 + (2*a^7 + 2*a^6 - 
        a^5 - 2*a^4 - a^3 - a^2 + a + 2)*q^64 + (-a^5 - a^3)*q^76 + (-2*a^7 - 
        2*a^6 + 2*a^5 + a^4 + a^3 + 2*a^2 - a - 2)*q^90 + (-5*a^7 + 3*a^5 + a^4 
        + 2*a^3 + 3*a^2 - 4*a - 2)*q^94 + (-3*a^7 - 2*a^6 + 2*a^5 + 2*a^4 + a^3 
        + 2*a^2 - a - 2)*q^96 + (a^5 - 1)*q^100 + (2*a^7 - a^5 - a^3 - a^2 + a +
        1)*q^106 + (-a^7 + 2*a^6 + a^5 - a^4 + a^3 - a^2 - 2*a + 1)*q^114 + 
        (-a^7 - a^6 + a^3 + a^2 - 1)*q^124 + (2*a^7 - 2*a^5 - a^2 + 2*a + 
        1)*q^136 + (-a^7 - a^6 + a^3 + a^2 - a - 1)*q^144 + (2*a^7 + 2*a^6 - 
        2*a^5 - a^4 - a^3 - 2*a^2 + a + 3)*q^150 + (a^7 + a^6 - a^5 - 2*a^2 + a 
        + 2)*q^160 + (-4*a^7 - 2*a^6 + 4*a^5 + a^4 + 2*a^3 + 3*a^2 - 3*a - 
        3)*q^166 + (-3*a^7 - 4*a^6 + 2*a^5 + 2*a^4 + a^3 + 3*a^2 - a - 4)*q^184 
        + (3*a^7 + a^6 - 2*a^5 - a^4 - 2*a^3 - 2*a^2 + 2*a + 2)*q^186 + (3*a^7 -
        a^6 - a^5 - 2*a^3 - a^2 + 2*a)*q^190 + (-a^6 + a)*q^196 + (a^7 - a^5 - 
        a^4 - a^3 + a + 1)*q^204 + (4*a^7 + 3*a^6 - 3*a^5 - 2*a^4 - 2*a^3 - 
        4*a^2 + 2*a + 4)*q^214 + (3*a^7 + a^6 - a^5 - a^4 - 2*a^3 - 2*a^2 + 2*a 
        + 1)*q^216 + (2*a^6 - a^5 - a^4 - a^2 + 2)*q^226 + (a^7 - 2*a^5 - a^4 + 
        a + 1)*q^240 + (-a^6 + a^4 + a)*q^244 + (-2*a^7 - 2*a^6 + 2*a^5 + 2*a^4 
        + a^3 + 2*a^2 - a - 3)*q^250 + (2*a^7 + a^6 - 2*a^5 - a^4 - a^2 + a + 
        1)*q^256 + a^2*q^274 + (a^5 - a - 1)*q^276 + (2*a^6 - a^5 - a^4 - a^2 - 
        a + 2)*q^294 + (a^7 + a^5 + a^4 - 1)*q^304 + (-2*a^7 + a^6 + a^5 + a^3 -
        2*a)*q^306 + (-3*a^7 - a^6 + 2*a^5 + a^4 + a^3 + 2*a^2 - 2*a - 2)*q^310 
        + (-a^7 + a^6 + a^5 + a^4 + a^3 - a - 1)*q^316 + a^4*q^324 + (a^5 - 
        1)*q^334 + (-a^7 + a^2)*q^340 + (-3*a^7 - 3*a^6 + 3*a^5 + 2*a^4 + a^3 + 
        3*a^2 - 2*a - 4)*q^346 + (-2*a^7 + 2*a^5 + a^2 - 2*a - 1)*q^360 + (-a^7 
        + 3*a^6 - a^5 - 2*a^4 + a^3 - a^2 - 2*a + 3)*q^366 + O(q^370)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 - a^3*q^4 + (a^3 + a - 1)*q^7 + a^2*q^9 + (a^3 - a^2 + a - 1)*q^12
        + (-a^2 + a - 1)*q^13 - a*q^16 + (a^2 - a)*q^19 + (-a^3 + 1)*q^21 + q^25
        - a^3*q^27 + (a^2 + 1)*q^28 - a*q^31 + q^36 + (a^3 - a^2 - 1)*q^37 + 
        (a^3 - a^2 + a)*q^39 + (-a^3 + 1)*q^43 + a^2*q^48 + (-a^2 - 1)*q^49 + 
        (a^2 - a)*q^52 + (-a^3 + a^2)*q^57 + (-a^3 + a^2)*q^61 + (a^3 - a^2 - 
        1)*q^63 + (a^3 - a^2 + a - 1)*q^64 + (-a^3 + a^2)*q^67 + (a^3 + a - 
        1)*q^73 - a*q^75 + (a^3 - a^2 + a)*q^76 + (a^3 - a^2 + a)*q^79 + (a^3 - 
        a^2 + a - 1)*q^81 + (-a^3 - a)*q^84 + (-a^3 + a^2 - a + 1)*q^91 + 
        a^2*q^93 + (-a + 1)*q^97 - a^3*q^100 + (-a^3 + 1)*q^103 - a*q^108 + (a^2
        + 1)*q^109 + (a^2 + 1)*q^111 + (-a^3 + 1)*q^112 + (-a + 1)*q^117 - 
        a*q^121 + (a^3 - a^2 + a - 1)*q^124 + (-a^2 + a - 1)*q^127 + (a^3 - a^2 
        - 1)*q^129 - a^2*q^133 + (a^2 + 1)*q^139 - a^3*q^144 + (a^3 + a)*q^147 +
        (a^3 + a - 1)*q^148 + (a^3 + a - 1)*q^151 + (-a^3 + a^2)*q^156 + (a^2 - 
        a)*q^157 + (-a^3 - a)*q^163 + (-a^3 + a^2 - a)*q^169 + (-a^2 + a - 
        1)*q^171 + (-a^3 - a)*q^172 + (a^3 + a - 1)*q^175 + (a^3 - a^2 - 
        1)*q^181 + (-a^2 + a - 1)*q^183 + (a^2 + 1)*q^189 + q^192 + (-a + 
        1)*q^193 + (a^3 - 1)*q^196 + (a^2 + 1)*q^199 + (-a^2 + a - 1)*q^201 + 
        (a^3 - a^2 + a)*q^208 + (a^3 - a^2 - 1)*q^211 + (-a^3 + 1)*q^217 + (-a^3
        + 1)*q^219 + (-a^3 + a^2)*q^223 + a^2*q^225 + (-a + 1)*q^228 + (a^2 - 
        a)*q^229 + (-a + 1)*q^237 - 2*a^3*q^241 + q^243 + (-a + 1)*q^244 + (a^3 
        - a^2 + 1)*q^247 + (a^3 + a - 1)*q^252 + a^2*q^256 + (-2*a^3 - a + 
        1)*q^259 + (-a + 1)*q^268 + (-a^3 - a)*q^271 - q^273 + (2*a^3 - 2*a^2 + 
        2*a - 2)*q^277 - a^3*q^279 + (a^3 + a - 1)*q^283 + (a^3 - a^2 + a - 
        1)*q^289 + (a^2 - a)*q^291 + (a^2 + 1)*q^292 + (a^3 - a^2 + a - 1)*q^300
        + (a^3 + a^2 + a)*q^301 + (-a^3 + a^2)*q^304 + (-a^2 + a - 1)*q^307 + 
        (a^3 - a^2 - 1)*q^309 + (a^2 + 1)*q^313 + (-a^3 + a^2)*q^316 + a^2*q^324
        + (-a^2 + a - 1)*q^325 + (-a^3 - a)*q^327 + (2*a^3 - 2*a^2 + 2*a - 
        2)*q^331 + (-a^3 - a)*q^333 + (a^3 - a^2 - 1)*q^336 + (-a + 1)*q^337 + 
        (-a^3 + a^2 - a + 1)*q^343 + (-a^3 - a)*q^349 + (a^2 - a)*q^351 + (a - 
        1)*q^361 + a^2*q^363 - a^2*q^364 + 2*q^367 + O(q^370),
    q^2 - a*q^6 - a^3*q^8 + (a^3 + a - 1)*q^14 + a^2*q^18 + (a^3 - a^2 + a - 
        1)*q^24 + (-a^2 + a - 1)*q^26 - a*q^32 + (a^2 - a)*q^38 + (-a^3 + 
        1)*q^42 + q^50 - a^3*q^54 + (a^2 + 1)*q^56 - a*q^62 + q^72 + (a^3 - a^2 
        - 1)*q^74 + (a^3 - a^2 + a)*q^78 + (-a^3 + 1)*q^86 + a^2*q^96 + (-a^2 - 
        1)*q^98 + (a^2 - a)*q^104 + (-a^3 + a^2)*q^114 + (-a^3 + a^2)*q^122 + 
        (a^3 - a^2 - 1)*q^126 + (a^3 - a^2 + a - 1)*q^128 + (-a^3 + a^2)*q^134 +
        (a^3 + a - 1)*q^146 - a*q^150 + (a^3 - a^2 + a)*q^152 + (a^3 - a^2 + 
        a)*q^158 + (a^3 - a^2 + a - 1)*q^162 + (-a^3 - a)*q^168 + (-a^3 + a^2 - 
        a + 1)*q^182 + a^2*q^186 + (-a + 1)*q^194 - a^3*q^200 + (-a^3 + 1)*q^206
        - a*q^216 + (a^2 + 1)*q^218 + (a^2 + 1)*q^222 + (-a^3 + 1)*q^224 + (-a +
        1)*q^234 - a*q^242 + (a^3 - a^2 + a - 1)*q^248 + (-a^2 + a - 1)*q^254 + 
        (a^3 - a^2 - 1)*q^258 - a^2*q^266 + (a^2 + 1)*q^278 - a^3*q^288 + (a^3 +
        a)*q^294 + (a^3 + a - 1)*q^296 + (a^3 + a - 1)*q^302 + (-a^3 + 
        a^2)*q^312 + (a^2 - a)*q^314 + (-a^3 - a)*q^326 + (-a^3 + a^2 - a)*q^338
        + (-a^2 + a - 1)*q^342 + (-a^3 - a)*q^344 + (a^3 + a - 1)*q^350 + (a^3 -
        a^2 - 1)*q^362 + (-a^2 + a - 1)*q^366 + O(q^370),
    q^5 - a*q^15 - a^3*q^20 + (a^3 + a - 1)*q^35 + a^2*q^45 + (a^3 - a^2 + a - 
        1)*q^60 + (-a^2 + a - 1)*q^65 - a*q^80 + (a^2 - a)*q^95 + (-a^3 + 
        1)*q^105 + q^125 - a^3*q^135 + (a^2 + 1)*q^140 - a*q^155 + q^180 + (a^3 
        - a^2 - 1)*q^185 + (a^3 - a^2 + a)*q^195 + (-a^3 + 1)*q^215 + a^2*q^240 
        + (-a^2 - 1)*q^245 + (a^2 - a)*q^260 + (-a^3 + a^2)*q^285 + (-a^3 + 
        a^2)*q^305 + (a^3 - a^2 - 1)*q^315 + (a^3 - a^2 + a - 1)*q^320 + (-a^3 +
        a^2)*q^335 + (a^3 + a - 1)*q^365 + O(q^370),
    q^10 - a*q^30 - a^3*q^40 + (a^3 + a - 1)*q^70 + a^2*q^90 + (a^3 - a^2 + a - 
        1)*q^120 + (-a^2 + a - 1)*q^130 - a*q^160 + (a^2 - a)*q^190 + (-a^3 + 
        1)*q^210 + q^250 - a^3*q^270 + (a^2 + 1)*q^280 - a*q^310 + q^360 + 
        O(q^370)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^3 + a^2 + 1)*q^6 + a^2*q^9 + (a^3 - 1)*q^10 - a*q^15 + a*q^16 + 
        (-a^3 + 1)*q^19 + (a^3 + a - 1)*q^24 + q^25 + (a^3 - a^2 + a - 1)*q^31 +
        (-2*a^2 - 2)*q^34 + (-a^3 - a)*q^40 - a*q^46 - a*q^49 - 2*a^3*q^51 + 
        (a^3 + a)*q^54 + (a^3 - a^2 - 1)*q^61 + (a^3 - 1)*q^64 + (-a + 1)*q^69 +
        (-a^3 - a)*q^79 + (a^3 - a^2 + a - 1)*q^81 + 2*a^2*q^85 + (-a^2 - 
        1)*q^90 + q^94 - a*q^96 + (a^2 + a + 1)*q^106 + (a^2 + 1)*q^109 + 
        (-2*a^3 + a^2 - a + 2)*q^114 + (a^3 - a^2 + a)*q^115 - a*q^121 - 
        a^3*q^135 + (-2*a^3 + 2)*q^136 + (-a^2 + a - 1)*q^139 + (a^3 - a^2 + 
        a)*q^141 + a^3*q^144 + (-a^3 + a^2 + 1)*q^150 + (a^3 + a - 1)*q^151 + 
        (a^3 + a - 1)*q^159 + q^160 - a^3*q^166 + a^2*q^169 + (a^2 + 1)*q^171 + 
        (-a^3 + a^2)*q^181 + (-a^3 + a^2 - a + 1)*q^184 + (a^3 - 1)*q^186 + 
        (2*a^3 + a - 1)*q^190 - 2*a*q^199 + (-a^3 + a^2)*q^211 - a*q^214 + (a^3 
        - a^2 - 1)*q^216 + a^2*q^225 + (2*a^3 + 2*a)*q^226 + (-a^3 + 1)*q^229 + 
        (-a^2 + a - 1)*q^235 - a^2*q^240 + (a^3 + a - 1)*q^241 + (-a^3 + 
        a^2)*q^249 + (a^3 - 1)*q^250 + (-a^3 - a)*q^256 + (-a^3 - a)*q^265 + 
        (-a^3 - a)*q^271 + q^274 - a*q^279 + (a^3 - a^2 - 1)*q^285 + (3*a^3 - 
        3*a^2 + 3*a - 3)*q^289 + (-a^2 - 1)*q^294 + (-a^3 + a^2 + 1)*q^304 + 
        (-2*a^3 - 2*a + 2)*q^306 + (-a^3 - a + 1)*q^310 + (-a + 1)*q^321 + (-a^3
        + 1)*q^331 - a^3*q^334 + (2*a^3 - 2*a^2 + 2*a - 2)*q^339 + q^346 + (a^3 
        - a^2 + a)*q^349 + (-a^3 + 1)*q^360 + (-a^3 - a + 1)*q^361 + (a^3 - a^2 
        - 2)*q^366 + O(q^370),
    q^2 + (a - 1)*q^8 + (-a^3 + a^2)*q^12 + a^2*q^18 + (a^2 - a)*q^20 - a*q^30 +
        (-a^3 + 1)*q^38 + a^3*q^48 + q^50 + (a^3 - a^2 + a - 1)*q^62 + (-2*a^2 +
        2*a - 2)*q^68 + (a^3 - a^2)*q^72 - a^2*q^80 + (a^2 - 2*a + 1)*q^92 - 
        a*q^98 - 2*a^3*q^102 + (a^3 - a^2 + a)*q^108 + (-a^2 + a)*q^120 + (a^3 -
        a^2 - 1)*q^122 + (a^2 - a)*q^128 + (-a + 1)*q^138 + a^2*q^152 + (-a^3 - 
        a)*q^158 + (a^3 - a^2 + a - 1)*q^162 + 2*a^2*q^170 + (-a^2 + a - 
        1)*q^180 + (a^3 - a^2 + 1)*q^188 - a*q^192 + (a - 1)*q^200 + a*q^212 + 
        (a^2 + 1)*q^218 + (-a^3 + a^2 - a + 1)*q^228 + (a^3 - a^2 + a)*q^230 - 
        a*q^242 + (-a^3 + a^2 - a)*q^248 - a^3*q^270 + (-2*a^3 + 2*a^2 - 2*a + 
        2)*q^272 + (-a^2 + a - 1)*q^278 + (a^3 - a^2 + a)*q^282 + (-a^3 + 
        a^2)*q^300 + (a^3 + a - 1)*q^302 + (a^3 + a - 1)*q^318 + q^320 + (-a^3 +
        a - 1)*q^332 + a^2*q^338 + (a^2 + 1)*q^342 + (-a^3 + a^2)*q^362 + (-a^2 
        + a)*q^368 + O(q^370),
    q^3 + (a^3 - a^2 + a - 1)*q^5 + (a^2 - a + 1)*q^8 + a^3*q^12 - 2*a*q^17 - 
        a^2*q^20 + (-a^2 + a - 1)*q^23 + a^2*q^27 + (a^3 - a^2 + a - 1)*q^32 - 
        a*q^45 + (-a^3 + a^2)*q^47 + (-a^2 + a - 1)*q^48 + (a^2 + 1)*q^53 + 
        (-a^3 + 1)*q^57 + (-2*a^3 + 2*a^2 - 2*a + 2)*q^68 + (a - 1)*q^72 + q^75 
        + (-a^3 + a^2)*q^80 + (-a + 1)*q^83 + (-a^2 + a)*q^92 + (a^3 - a^2 + a -
        1)*q^93 + (a^3 + a - 1)*q^95 + (-a^2 + a - 1)*q^107 - q^108 + 
        2*a^2*q^113 + (-a^3 + a^2 - a)*q^120 + (a^3 - a^2 + a - 1)*q^125 - 
        a^2*q^128 + (-a^3 + a^2)*q^137 - a*q^147 + q^152 - 2*a^3*q^153 - 
        a^3*q^155 + (-a + 1)*q^167 + (-a^3 + a^2)*q^173 + (-a^3 + a^2 - a + 
        1)*q^180 + (a^3 - a^2 - 1)*q^183 + (a - 1)*q^188 + (a^3 - a^2 + a)*q^197
        + (a^2 - a + 1)*q^200 + (-a + 1)*q^207 + (a^3 - 1)*q^212 - 2*a^3*q^227 +
        (a^3 + a)*q^228 + (a^3 - a^2 - 1)*q^233 + (-a^3 - a)*q^237 + (a^3 - a^2 
        + a - 1)*q^243 + q^245 + (a^3 - a^2)*q^248 + 2*a^2*q^255 + (a^2 + 
        1)*q^257 + (a^3 - a^2 - 1)*q^263 + (2*a^3 - 2*a^2 + 2*a)*q^272 - a*q^288
        + (a^2 + 1)*q^293 + a^3*q^300 + (-a^3 + 1)*q^305 + (a^3 - a^2 + a)*q^317
        + (2*a^3 - 2*a^2 - 2)*q^323 + (a^2 + 1)*q^327 + (a^2 - a + 1)*q^332 + 
        (a^3 - a^2 + a)*q^345 + (a^2 - a)*q^347 + (-a + 1)*q^353 - a*q^363 + 
        (-a^3 + 2*a^2 - a)*q^368 + O(q^370),
    q^4 + (a^3 + a)*q^6 + (-a^2 - 1)*q^10 + (a^3 + a - 1)*q^16 - q^24 + (-2*a^3 
        - 2*a + 2)*q^34 + a^2*q^36 + (-a^3 + a^2 - a + 1)*q^40 - a^3*q^46 + (a^3
        - 1)*q^54 - a*q^60 + (-a^2 - 1)*q^64 + (-a^3 + 1)*q^76 + (-a^3 - a + 
        1)*q^90 + a^2*q^94 + q^100 + (2*a^3 + a - 1)*q^106 + (a^2 + a + 1)*q^114
        + (a^3 - a^2 + a - 1)*q^124 + 2*a*q^136 + (a^3 - a^2 - 1)*q^144 + (a^3 +
        a)*q^150 + q^166 + (a^2 - a + 1)*q^184 + (-a^2 - 1)*q^186 + (a^3 - a^2 -
        2)*q^190 - a*q^196 - 2*a^3*q^204 - a^3*q^214 - a^2*q^216 + (2*a^3 - 
        2)*q^226 + (-a^3 + 1)*q^240 + (a^3 - a^2 - 1)*q^244 + (-a^2 - 1)*q^250 +
        (-a^3 + a^2 - a + 1)*q^256 + a^2*q^274 + (-a + 1)*q^276 + (-a^3 - a + 
        1)*q^294 + (a^3 + a^2 + a)*q^304 + (-2*a^3 + 2*a^2 + 2)*q^306 + (-a^3 + 
        a^2 + 1)*q^310 + (-a^3 - a)*q^316 + (a^3 - a^2 + a - 1)*q^324 + q^334 + 
        2*a^2*q^340 + a^2*q^346 + a*q^360 + (-a^3 - a^2 - a)*q^366 + O(q^370)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^6 + (a - 1)*q^9 + (-a + 1)*q^10 + q^15 - q^16 + a*q^19 - a*q^24 - 
        a*q^25 + q^31 - a*q^34 + (a - 1)*q^40 - 2*q^46 + (a - 1)*q^49 + (-a + 
        1)*q^51 - q^54 - q^61 + q^64 - 2*a*q^69 + a*q^79 - a*q^81 - q^85 + 
        a*q^90 + q^94 + (-2*a + 2)*q^106 + 2*q^109 + (a - 1)*q^114 + (2*a - 
        2)*q^115 - a*q^121 + (a - 1)*q^135 + a*q^136 - q^139 + a*q^141 + (-a + 
        1)*q^144 + (-a + 1)*q^150 + 2*q^151 + 2*q^159 + (a - 1)*q^166 - a*q^169 
        - q^171 + (2*a - 2)*q^181 + 2*q^184 + a*q^186 + q^190 + (-a + 1)*q^199 -
        2*a*q^211 + 2*a*q^214 + q^216 + q^225 + (a - 1)*q^226 - 2*a*q^229 + (-a 
        + 1)*q^235 - q^240 + a*q^241 - q^249 - q^250 - 2*a*q^265 - q^271 + (a - 
        1)*q^274 + (a - 1)*q^279 + a*q^285 - q^294 - a*q^304 + q^306 + (-a + 
        1)*q^310 + (2*a - 2)*q^321 + (-a + 1)*q^331 - a*q^334 - q^339 + (-2*a + 
        2)*q^346 - q^349 - a*q^360 - a*q^366 + O(q^370),
    q^2 + a*q^12 + (a - 1)*q^18 + (-a + 1)*q^20 + q^30 - q^32 + a*q^38 - a*q^48 
        - a*q^50 + q^62 - a*q^68 + (a - 1)*q^80 - 2*q^92 + (a - 1)*q^98 + (-a + 
        1)*q^102 - q^108 - q^122 + q^128 - 2*a*q^138 + a*q^158 - a*q^162 - q^170
        + a*q^180 + q^188 + (-2*a + 2)*q^212 + 2*q^218 + (a - 1)*q^228 + (2*a - 
        2)*q^230 - a*q^242 + (a - 1)*q^270 + a*q^272 - q^278 + a*q^282 + (-a + 
        1)*q^288 + (-a + 1)*q^300 + 2*q^302 + 2*q^318 + (a - 1)*q^332 - a*q^338 
        - q^342 + (2*a - 2)*q^362 + 2*q^368 + O(q^370),
    q^3 - a*q^5 + (a - 1)*q^8 - q^12 - q^17 + a*q^20 + (2*a - 2)*q^23 + (a - 
        1)*q^27 + (-a + 1)*q^32 + q^45 + (-a + 1)*q^47 - 2*a*q^53 + a*q^57 + 
        q^68 - a*q^72 - a*q^75 + a*q^83 + (-2*a + 2)*q^92 + q^93 + (-a + 1)*q^95
        + 2*q^107 + (-a + 1)*q^108 + a*q^113 + (a - 1)*q^120 + (a - 1)*q^125 + 
        a*q^137 + (a - 1)*q^147 - q^152 + (-a + 1)*q^153 - a*q^155 - q^167 - 
        2*a*q^173 - q^180 - q^183 + (a - 1)*q^188 + q^192 + a*q^197 + q^200 - 
        2*a*q^207 + 2*a*q^212 + a*q^227 - a*q^228 + (-a + 1)*q^233 + a*q^237 - 
        a*q^243 + q^245 + (a - 1)*q^248 - q^255 + a*q^257 + (-a + 1)*q^263 + 
        a*q^288 - q^293 + a*q^300 + a*q^305 - q^317 - a*q^320 - a*q^323 + 
        2*q^327 - a*q^332 + (2*a - 2)*q^345 - q^347 - q^353 - a*q^363 + 
        O(q^370),
    q^4 + a*q^6 + (-a + 1)*q^10 - q^16 - a*q^34 + (a - 1)*q^36 - 2*q^46 - q^54 +
        q^60 + a*q^76 + a*q^90 + q^94 - a*q^96 - a*q^100 + (-2*a + 2)*q^106 + (a
        - 1)*q^114 + q^124 + (-a + 1)*q^144 + (-a + 1)*q^150 + (a - 1)*q^160 + 
        (a - 1)*q^166 + a*q^186 + q^190 + (a - 1)*q^196 + (-a + 1)*q^204 + 
        2*a*q^214 + (a - 1)*q^226 - q^240 - q^244 - q^250 + q^256 + (a - 
        1)*q^274 - 2*a*q^276 - q^294 - a*q^304 + q^306 + (-a + 1)*q^310 + 
        a*q^316 - a*q^324 - a*q^334 - q^340 + (-2*a + 2)*q^346 - a*q^366 + 
        O(q^370)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 - q^7 + q^8 + q^9 - q^19 - q^25 + q^28 + q^31 - q^32 - q^36 - q^41 +
        2*q^47 - q^56 - q^59 - q^63 + q^64 + 2*q^67 - q^71 + q^72 + q^76 + q^81 
        - q^97 + q^100 - q^101 - q^103 - q^107 - q^109 - q^113 + q^121 - q^124 +
        q^125 + 2*q^131 + q^133 + 2*q^149 - q^152 - q^157 - q^163 + q^164 + 
        q^169 - q^171 + 2*q^173 + q^175 - 2*q^188 - q^191 - q^193 - q^200 - 
        q^211 - q^217 + q^224 - q^225 + 2*q^227 - q^233 + q^236 + q^248 + q^252 
        - q^256 - q^257 - 2*q^268 + q^279 - q^281 + 2*q^283 + q^284 + q^287 - 
        q^288 + q^289 + 2*q^293 - q^307 - q^311 - q^317 - q^324 - q^328 - 
        2*q^329 + q^343 + 2*q^349 - q^359 - q^369 + O(q^370),
    q^2 - q^4 - q^14 + q^16 + q^18 + q^28 - q^32 - q^36 - q^38 - q^50 + q^62 + 
        q^76 - q^82 + 2*q^94 + q^100 - q^112 - q^118 - q^124 - q^126 + q^128 + 
        2*q^134 - q^142 + q^144 + q^162 + q^164 - 2*q^188 - q^194 - q^202 - 
        q^206 - q^214 - q^218 + q^224 - q^226 + q^236 + q^242 + q^250 + q^252 - 
        q^256 + 2*q^262 + q^266 - 2*q^268 + q^284 - q^288 + 2*q^298 - q^304 - 
        q^314 - q^324 - q^326 + q^338 - q^342 + 2*q^346 + q^350 + O(q^370),
    q^3 - q^12 - q^21 + q^24 + q^27 - q^57 - q^75 + q^84 + q^93 - q^96 - q^108 -
        q^123 + 2*q^141 - q^168 - q^177 - q^189 + q^192 + 2*q^201 - q^213 + 
        q^216 + q^228 + q^243 - q^291 + q^300 - q^303 - q^309 - q^321 - q^327 - 
        q^339 + q^363 + O(q^370),
    q^5 - q^20 - q^25 - q^35 + q^40 + q^45 - q^95 + q^100 + q^140 + q^155 - 
        q^160 + q^175 - q^180 - q^200 - q^205 - q^225 + 2*q^235 - q^280 - q^295 
        - q^315 + q^320 + 2*q^335 - q^355 + q^360 + O(q^370),
    q^6 - q^12 - q^42 + q^48 + q^54 + q^84 - q^96 - q^108 - q^114 - q^150 + 
        q^186 + q^228 - q^246 + 2*q^282 + q^300 - q^336 - q^354 + O(q^370),
    q^10 - q^20 - q^50 - q^70 + q^80 + q^90 + q^100 + q^140 - q^160 - q^180 - 
        q^190 + q^310 + q^350 + O(q^370),
    q^15 - q^60 - q^75 - q^105 + q^120 + q^135 - q^285 + q^300 + O(q^370),
    q^30 - q^60 - q^150 - q^210 + q^240 + q^270 + q^300 + O(q^370)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
930
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^9 - 1/2*q^10 + q^14 - 1/2*q^20 - q^31 + q^35 - q^49 - 1/2*q^50 + q^64 
        + 1/2*q^70 - q^76 - 1/2*q^80 + q^81 + 1/2*q^90 + q^95 + 1/2*q^100 + 
        q^121 - q^125 - q^126 - 2*q^131 - 1/2*q^140 + 2*q^149 + 1/2*q^160 + 
        q^164 - q^169 + q^175 + 1/2*q^180 - 1/2*q^190 - q^194 + q^196 - q^205 + 
        q^206 - q^214 - q^224 - q^226 + q^236 - q^245 + q^266 + q^279 - q^284 - 
        q^289 - q^295 - q^304 + 1/2*q^310 + q^314 - q^315 + q^326 + 2*q^349 - 
        1/2*q^350 + q^355 + q^361 + O(q^370),
    q^2 - 1/2*q^10 - q^18 - 1/2*q^20 + q^28 + q^32 - q^38 - q^40 + 1/2*q^50 - 
        q^62 + 1/2*q^70 + 1/2*q^80 + q^82 + 1/2*q^90 - 1/2*q^100 - q^112 + q^118
        + q^128 + 1/2*q^140 - q^142 - 2*q^152 - 1/2*q^160 + q^162 + 1/2*q^180 + 
        3/2*q^190 + q^200 - q^202 - q^218 + q^242 - q^250 - q^252 - 2*q^262 - 
        q^280 - q^288 + 2*q^298 + 1/2*q^310 + 2*q^328 - q^338 + q^342 + 
        1/2*q^350 + q^360 + O(q^370),
    q^3 - q^27 - 1/2*q^30 + q^42 - 1/2*q^60 - q^93 + q^105 - q^147 - 1/2*q^150 +
        q^192 + 1/2*q^210 - q^228 - 1/2*q^240 + q^243 + 1/2*q^270 + q^285 + 
        1/2*q^300 + q^363 + O(q^370),
    q^4 + 1/2*q^10 - q^14 - q^16 + 1/2*q^20 - q^36 - q^40 + 1/2*q^50 + 2*q^56 - 
        1/2*q^70 + q^76 - 1/2*q^80 - 1/2*q^90 - 1/2*q^100 - q^124 + q^126 + 
        3/2*q^140 + q^144 + 1/2*q^160 - q^164 - 1/2*q^180 + 1/2*q^190 + q^194 - 
        2*q^196 - q^200 - q^206 + q^214 - q^224 + q^226 - q^236 + q^256 - q^266 
        + q^280 + q^284 - q^304 - 1/2*q^310 - q^314 + q^324 - q^326 + 1/2*q^350 
        + q^360 + O(q^370),
    q^5 - 2*q^16 + 2*q^19 + q^20 - q^25 + q^35 - q^40 - 2*q^41 - q^45 - 2*q^49 +
        2*q^56 - 2*q^59 + 2*q^71 + 2*q^76 - q^95 - q^100 + 2*q^101 + 2*q^109 + 
        q^140 + 2*q^144 - q^155 + q^160 - 2*q^164 - 2*q^171 + q^175 - q^180 - 
        2*q^191 - 2*q^196 - q^200 + q^205 + 2*q^211 - 2*q^224 + q^225 - 2*q^236 
        + q^280 + 2*q^281 + 2*q^284 + q^295 - 2*q^311 - q^315 + q^320 - q^355 + 
        2*q^359 + q^360 - 2*q^361 + 2*q^369 + O(q^370),
    q^6 - 1/2*q^30 - q^54 - 1/2*q^60 + q^84 + q^96 - q^114 - q^120 + 1/2*q^150 -
        q^186 + 1/2*q^210 + 1/2*q^240 + q^246 + 1/2*q^270 - 1/2*q^300 - q^336 + 
        q^354 + O(q^370),
    q^7 - 1/2*q^10 - q^16 + q^19 + 1/2*q^20 - q^25 + q^32 + q^35 - q^38 - q^40 -
        q^41 - q^49 + 1/2*q^50 + q^56 - q^59 - q^63 - 1/2*q^70 + q^71 + q^76 + 
        1/2*q^80 + q^82 + 1/2*q^90 - q^95 - q^97 + q^98 - 1/2*q^100 + q^101 + 
        q^103 - q^107 + q^109 - q^112 - q^113 + q^118 + q^133 + 1/2*q^140 - 
        q^142 + q^144 - q^152 + q^157 + 1/2*q^160 + q^163 - q^164 - q^171 - 
        1/2*q^180 + 1/2*q^190 - q^191 - q^193 - q^196 - q^202 + q^205 + q^211 - 
        q^217 - q^218 - q^224 + q^225 + q^233 - q^236 + q^245 + q^257 + q^281 + 
        q^284 - q^287 - q^288 + q^295 - q^307 + 1/2*q^310 - q^311 - q^315 + 
        q^317 + q^328 + q^342 - q^343 - 1/2*q^350 - q^355 + q^359 + q^360 - 
        q^361 + q^369 + O(q^370),
    q^8 - 1/2*q^10 + 1/2*q^20 - q^28 - q^38 + 1/2*q^50 - 1/2*q^70 - q^72 - 
        1/2*q^80 + q^82 + 1/2*q^90 + q^98 + 1/2*q^100 + q^112 + q^118 - 
        1/2*q^140 - q^142 - 1/2*q^160 - 1/2*q^180 + 1/2*q^190 - q^202 - q^218 - 
        q^248 + q^252 + q^280 + 1/2*q^310 + q^342 - 1/2*q^350 + O(q^370),
    q^12 + 1/2*q^30 - q^42 - q^48 + 1/2*q^60 - q^108 - q^120 + 1/2*q^150 + 
        2*q^168 - 1/2*q^210 + q^228 - 1/2*q^240 - 1/2*q^270 - 1/2*q^300 + 
        O(q^370),
    q^15 - 2*q^48 + 2*q^57 + q^60 - q^75 + q^105 - q^120 - 2*q^123 - q^135 - 
        2*q^147 + 2*q^168 - 2*q^177 + 2*q^213 + 2*q^228 - q^285 - q^300 + 
        2*q^303 + 2*q^327 + O(q^370),
    q^21 - 1/2*q^30 - q^48 + q^57 + 1/2*q^60 - q^75 + q^96 + q^105 - q^114 - 
        q^120 - q^123 - q^147 + 1/2*q^150 + q^168 - q^177 - q^189 - 1/2*q^210 + 
        q^213 + q^228 + 1/2*q^240 + q^246 + 1/2*q^270 - q^285 - q^291 + q^294 - 
        1/2*q^300 + q^303 + q^309 - q^321 + q^327 - q^336 - q^339 + q^354 + 
        O(q^370),
    q^24 - 1/2*q^30 + 1/2*q^60 - q^84 - q^114 + 1/2*q^150 - 1/2*q^210 - q^216 - 
        1/2*q^240 + q^246 + 1/2*q^270 + q^294 + 1/2*q^300 + q^336 + q^354 + 
        O(q^370)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
14*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
28*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
35*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
14*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
28*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^2 - q^8 + (a - 1)*q^15 + (-a + 1)*q^16 + q^23 + (-a + 1)*q^29 
        - a*q^30 + (-a + 1)*q^39 - a*q^43 + (a - 1)*q^46 - q^51 + a*q^53 - 
        a*q^57 + a*q^58 + q^64 - a*q^65 - a*q^67 + a*q^71 + a*q^78 + (a - 
        1)*q^79 - q^81 + (a - 1)*q^85 + q^86 - q^95 + (-a + 1)*q^102 - q^106 + 
        q^109 + q^114 + (-a + 1)*q^120 + a*q^121 + a*q^123 + (a - 1)*q^127 + (a 
        - 1)*q^128 + q^130 + q^134 + (a - 1)*q^135 + a*q^137 - q^141 - q^142 + 
        (-a + 1)*q^149 - a*q^158 + (-a + 1)*q^162 - 2*a*q^163 - a*q^170 + 
        O(q^172),
    q^3 + (-a + 1)*q^5 + (a - 1)*q^6 + a*q^10 + (a - 1)*q^13 + q^17 + a*q^19 - 
        q^24 - a*q^26 + q^27 + (a - 1)*q^34 - q^38 + (a - 1)*q^40 - a*q^41 + 
        q^47 + (-a + 1)*q^48 + (a - 1)*q^54 - q^59 - q^61 + q^69 - q^73 - a*q^80
        + q^82 + (-a + 1)*q^87 - q^89 + (a - 1)*q^94 - a*q^97 + a*q^101 + (-a + 
        1)*q^104 + (-a + 1)*q^115 + (-a + 1)*q^118 + (-a + 1)*q^122 - q^125 - 
        a*q^129 + (-a + 1)*q^131 - q^136 + (a - 1)*q^138 + (-a + 1)*q^139 - 
        a*q^145 + (-a + 1)*q^146 - a*q^152 + q^157 + a*q^159 + (-a + 1)*q^167 + 
        O(q^172)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 - q^8 + (a - 1)*q^15 + a*q^16 + (a - 1)*q^23 + (-a + 1)*q^29 + 
        q^30 - q^39 - a*q^43 + q^46 + (-a + 1)*q^51 + (-a + 1)*q^53 - a*q^57 - 
        q^58 + q^64 + q^65 + (a - 1)*q^67 + a*q^71 + a*q^78 - a*q^79 + a*q^81 + 
        (a - 1)*q^85 + (a - 1)*q^86 + a*q^95 - q^102 - q^106 - a*q^109 + (a - 
        1)*q^114 + (-a + 1)*q^120 - q^121 + (-a + 1)*q^123 + (a - 1)*q^127 - 
        a*q^128 - a*q^130 + q^134 - a*q^135 + (-a + 1)*q^137 - q^141 + (-a + 
        1)*q^142 + a*q^149 + (a - 1)*q^158 + (-a + 1)*q^162 + 2*q^163 + q^170 + 
        O(q^172),
    q^3 - q^5 - a*q^6 + a*q^10 - a*q^13 + q^17 + (-a + 1)*q^19 - q^24 + (a - 
        1)*q^26 + (a - 1)*q^27 - a*q^34 - q^38 + q^40 + q^41 - a*q^47 + a*q^48 +
        q^54 - q^59 + a*q^61 + (a - 1)*q^69 - q^73 - a*q^80 - a*q^82 + (-a + 
        1)*q^87 + a*q^89 + (a - 1)*q^94 + q^97 + a*q^101 + a*q^104 + (-a + 
        1)*q^115 + a*q^118 + (-a + 1)*q^122 + (-a + 1)*q^125 - a*q^129 - q^131 -
        q^136 + q^138 + a*q^139 + (a - 1)*q^145 + a*q^146 + (a - 1)*q^152 + 
        q^157 + (-a + 1)*q^159 + a*q^167 + O(q^172),
    q^7 - a*q^14 - q^56 + (a - 1)*q^105 + a*q^112 + a*q^147 + (a - 1)*q^161 + 
        O(q^172),
    q^21 - q^35 - a*q^42 + (a - 1)*q^49 + a*q^70 - a*q^91 + q^98 + q^119 + (-a +
        1)*q^133 - q^168 + O(q^172)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
35*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^2 - q^8 + (a - 1)*q^15 - q^16 - a*q^23 + (-a + 1)*q^29 + (a - 1)*q^30 
        + a*q^39 - a*q^43 - a*q^46 + a*q^51 - q^53 - a*q^57 + (-a + 1)*q^58 + 
        q^64 + (a - 1)*q^65 + q^67 + a*q^71 + a*q^78 + q^79 + (-a + 1)*q^81 + (a
        - 1)*q^85 - a*q^86 + (-a + 1)*q^95 + a*q^102 - q^106 + (a - 1)*q^109 - 
        a*q^114 + (-a + 1)*q^120 + (-a + 1)*q^121 - q^123 + (a - 1)*q^127 + 
        q^128 + (a - 1)*q^130 + q^134 + q^135 - q^137 - q^141 + a*q^142 - q^149 
        + q^158 + (-a + 1)*q^162 + (2*a - 2)*q^163 + (a - 1)*q^170 + O(q^172),
    q^3 + a*q^5 + q^6 + a*q^10 + q^13 + q^17 - q^19 - q^24 + q^26 - a*q^27 + 
        q^34 - q^38 - a*q^40 + (a - 1)*q^41 + (a - 1)*q^47 - q^48 - a*q^54 - 
        q^59 + (-a + 1)*q^61 - a*q^69 - q^73 - a*q^80 + (a - 1)*q^82 + (-a + 
        1)*q^87 + (-a + 1)*q^89 + (a - 1)*q^94 + (a - 1)*q^97 + a*q^101 - q^104 
        + (-a + 1)*q^115 - q^118 + (-a + 1)*q^122 + a*q^125 - a*q^129 + a*q^131 
        - q^136 - a*q^138 - q^139 + q^145 - q^146 + q^152 + q^157 - q^159 - 
        q^167 + O(q^172)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^11 + q^16 - q^23 + q^36 - q^43 - q^44 + q^64 + q^81 - 
        2*q^85 - q^92 - q^95 - q^99 - q^137 + q^144 - q^149 - q^163 + q^169 + 
        O(q^172),
    q^5 - 2*q^17 - q^19 + q^20 + q^45 + q^47 - q^55 + q^61 - 2*q^68 + q^73 - 
        q^76 + q^80 + q^83 + q^101 - q^115 - q^125 - 2*q^131 + q^139 - 2*q^153 +
        q^157 - q^171 + O(q^172)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^10*q^4 + (2*a^11 - a^9 - a^8 + a^6 + a^5 - 2*a^4 - a^3 + a + 1)*q^5 + 
        a^8*q^7 + a^2*q^9 + (a^7 - a^3 - 1)*q^11 + (a^11 + a^10 - a^8 - a^7 + 
        a^5 - a^3 - a^2 + 1)*q^16 + (-a^7 - a)*q^17 + (a^7 - 1)*q^19 + (a^8 - 
        a^7)*q^20 + (a^11 - a^9 - 2*a^8 + a^6 + a^5 - a^4 - a^3 + 2*a + 1)*q^23 
        + (-a^10 + a^9 - a^8 + a^3 - a^2 + a)*q^25 + (a^11 - a^4)*q^28 + (a^6 - 
        a^5)*q^35 + (-a^11 + a^9 + a^8 - a^6 + a^4 + a^3 - a - 1)*q^36 + (a^10 +
        a^2)*q^43 + (-a^11 - a^10 + a^8 + a^7 - a^6 - a^5 + a^2 - 1)*q^44 + 
        (a^11 + a^10 - a^8 - a^7 + a^5 - a^3 - a^2 + 2)*q^45 + (a^6 + a^4)*q^47 
        + (a^9 - a^2)*q^49 + (-2*a^11 + a^9 + a^8 - a^6 + a^4 + a^3 - 2*a)*q^55 
        + (-a^11 - a^10 - a^9 + a^8 + a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^61 + 
        a^10*q^63 - a^9*q^64 + (-a^11 - a^10 + a^3)*q^68 + (-a^9 + a^2)*q^73 - 
        a^3*q^76 + (-a^11 - a)*q^77 + (a^11 - a^10 - a^4 + a^3)*q^80 + a^4*q^81 
        + (-a^11 - a^10 + a^8 + a^7 - a^6 - 2*a^5 + a^3 + a^2 - 1)*q^83 + 
        (2*a^11 + a^10 - a^9 - 2*a^8 - a^7 + a^6 + a^5 - 2*a^3 - a^2 + a + 
        2)*q^85 + (a^8 + a^4)*q^92 + (-2*a^11 + a^9 + a^8 - a^6 + a^4 + a^3 - a 
        - 1)*q^95 + (a^9 - a^5 - a^2)*q^99 + (a^6 - a^5 + a^4)*q^100 + (-a^9 + 
        a^7 - 1)*q^101 - a^7*q^112 + (-2*a^11 - 2*a^10 + 2*a^9 + 2*a^8 + a^7 - 
        2*a^6 - a^5 + a^4 + 3*a^3 - a - 2)*q^115 + (-a^9 - a^8 + a)*q^119 + 
        (-a^10 - a^7 + a^6 + a^3)*q^121 + (-2*a^11 - a^10 + a^9 + a^8 + 2*a^7 - 
        2*a^6 - a^5 + a^4 + 2*a^3 + a^2 - 3)*q^125 + (-a^11 + a^8)*q^131 - 
        a*q^133 + (a^11 + a^10 - a^8 - a^7 + a^6 + a^5 - a^3 - a^2 + 1)*q^137 + 
        (-a^9 - a^8 + a^6 + a^5 - a^4 - a^3 + a + 1)*q^139 + (a^9 - a^8 - a^2 + 
        a)*q^140 - a*q^144 + (-a^10 + a^8 + a^7 - a^6 - a^5 - a^4 + a^3 + a^2 - 
        1)*q^149 + (-a^9 - a^3)*q^153 + (a^11 + a^10 - a^8 - a^7 + a^6 + a^5 - 
        a^3 - a^2 + 1)*q^157 + (a^6 + a^2)*q^161 + (-a^11 + a^9 + a^8 - a^7 - 
        a^6 + a^4 + a^3 - a - 1)*q^163 - a^3*q^169 + (a^9 - a^2)*q^171 + 
        O(q^172)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^3*q^4 + (-a^5 + a^4)*q^5 - a*q^7 + a^2*q^9 + (-a^3 + 1)*q^11 + (a^5 - 
        a^4 + a^3 - a^2 + a - 1)*q^16 + (-a + 1)*q^17 + q^19 + (-a + 1)*q^20 + 
        (-a^5 - a)*q^23 + (-a^3 + a^2 - a)*q^25 + a^4*q^28 + (-a^4 + a^3 - a^2 +
        a - 1)*q^35 - a^5*q^36 + (-a^3 + a^2)*q^43 + (a^5 - a^4 - a^2 + a - 
        1)*q^44 + (a^5 - a^4 + a^3 - a^2 + a)*q^45 + (a^5 + a^3 - a^2 + a - 
        1)*q^47 + a^2*q^49 + (-a^5 + a^4 - a + 1)*q^55 + (a^5 - a^4 + a^3 + a - 
        1)*q^61 - a^3*q^63 + a^2*q^64 + (a^4 - a^3)*q^68 + 2*a^2*q^73 - a^3*q^76
        + (a^4 - a)*q^77 + (a^4 - a^3)*q^80 + a^4*q^81 + (-a^4 + a^3 - a^2 + a -
        1)*q^83 + (-a^5 + a^3 - a^2 + a - 1)*q^85 + (a^4 - a)*q^92 + (-a^5 + 
        a^4)*q^95 + (-a^5 + a^2)*q^99 + (a^3 - a^2 + a - 1)*q^100 + (a^2 + 
        1)*q^101 + q^112 + (-a^4 + a - 1)*q^115 + (a^2 - a)*q^119 + (a^5 - a^4 -
        a^2 + a)*q^121 + (-a^4 + a^3 - a^2)*q^125 + (a^4 - a)*q^131 - a*q^133 + 
        (2*a^5 - 2*a^4 + 2*a^3 - 2*a^2 + 2*a - 2)*q^137 + (-a^5 + a^4)*q^139 + 
        (a^2 - a)*q^140 - a*q^144 + (a^5 + a^3 - a^2 + a - 1)*q^149 + (-a^3 + 
        a^2)*q^153 + (2*a^5 - 2*a^4 + 2*a^3 - 2*a^2 + 2*a - 2)*q^157 + (a^5 - 
        a^4 + a^3 + a - 1)*q^161 + (-a^5 + 1)*q^163 - a^3*q^169 + a^2*q^171 + 
        O(q^172)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
931
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
14*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (a - 1)*q^5 + (a - 1)*q^9 + a*q^11 + (a - 1)*q^16 + 2*a*q^17 + 
        (-a + 1)*q^19 + q^20 + (-a + 1)*q^23 + q^36 - q^43 + (-a + 1)*q^44 - 
        a*q^45 + (a - 1)*q^47 - q^55 + (a - 1)*q^61 + q^64 + (-2*a + 2)*q^68 - 
        a*q^73 - q^76 - a*q^80 - a*q^81 + q^83 - 2*q^85 - q^92 + a*q^95 - q^99 -
        a*q^101 + a*q^115 - q^125 + (-2*a + 2)*q^131 + a*q^137 + q^139 - a*q^144
        + (-a + 1)*q^149 - 2*q^153 - a*q^157 + (-a + 1)*q^163 + q^169 + a*q^171 
        + O(q^172)
]
;
Bo:=
[
    q - a*q^4 + (-a + 1)*q^5 + (a - 1)*q^9 + a*q^11 + (a - 1)*q^16 - 2*a*q^17 + 
        (a - 1)*q^19 - q^20 + (-a + 1)*q^23 + q^36 - q^43 + (-a + 1)*q^44 + 
        a*q^45 + (-a + 1)*q^47 + q^55 + (-a + 1)*q^61 + q^64 + (2*a - 2)*q^68 + 
        a*q^73 + q^76 + a*q^80 - a*q^81 - q^83 - 2*q^85 - q^92 + a*q^95 - q^99 +
        a*q^101 - a*q^115 + q^125 + (2*a - 2)*q^131 + a*q^137 - q^139 - a*q^144 
        + (-a + 1)*q^149 + 2*q^153 + a*q^157 + (-a + 1)*q^163 + q^169 - a*q^171 
        + O(q^172),
    q^7 - a*q^28 + (-a + 1)*q^35 + (a - 1)*q^49 + (a - 1)*q^63 + a*q^77 + (a - 
        1)*q^112 - 2*a*q^119 + (a - 1)*q^133 - q^140 + (-a + 1)*q^161 + O(q^172)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
932
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
932
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
232
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
932
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
116
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
932
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
58
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^7*q^2 + a^14*q^4 + (a^17 - a^3)*q^5 + a^21*q^8 + a*q^9 + (a^24 - 
        a^10)*q^10 + (a^12 - a)*q^13 + (a^27 - a^26 + a^25 - a^24 + a^23 - a^22 
        + a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + 
        a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^16 + (a^9 - a^7)*q^17 + a^8*q^18 + (-a^17 - a^2)*q^20 + (-a^20 + 
        a^6 - a^5)*q^25 + (a^19 - a^8)*q^26 + (-a^25 + a^20)*q^29 - a^6*q^32 + 
        (a^16 - a^14)*q^34 + a^15*q^36 + (-a^26 + a^11)*q^37 + (-a^24 - 
        a^9)*q^40 + (-a^16 - a^11)*q^41 + (a^18 - a^4)*q^45 - a^19*q^49 + (-a^27
        + a^13 - a^12)*q^50 + (a^26 - a^15)*q^52 + (-a^27 + a^26 - a^25 + a^24 -
        a^23 + 2*a^22 - a^21 + a^20 - a^19 + a^18 - a^17 + a^16 - a^15 + a^14 - 
        a^13 + a^12 - a^11 + a^10 - a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - a^3 + 
        a^2 - a + 1)*q^53 + (a^27 + a^3)*q^58 + (-a^21 + a^3)*q^61 - a^13*q^64 +
        (-a^18 - a^15 + a^4 - 1)*q^65 + (a^23 - a^21)*q^68 + a^22*q^72 + (-a^27 
        + a^5)*q^73 + (a^18 + a^4)*q^74 + (-a^16 + a^2)*q^80 + a^2*q^81 + (-a^23
        - a^18)*q^82 + (a^26 - a^24 - a^12 + a^10)*q^85 + (a^16 - a^13)*q^89 + 
        (a^25 - a^11)*q^90 + (-a^23 - a^6)*q^97 - a^26*q^98 + (a^20 - a^19 + 
        a^5)*q^100 + (a^27 + a^25)*q^101 + (-a^22 - a^4)*q^104 + (a^6 - 1)*q^106
        + (-a^22 - a^14)*q^109 + (a^19 + a^15)*q^113 + (a^10 - a^5)*q^116 + 
        (a^13 - a^2)*q^117 + a^23*q^121 + (-a^27 + a^26 - a^25 + a^24 - a^23 + 
        a^22 - a^21 + a^20 - a^19 + a^18 - a^17 + a^16 - a^15 + a^14 - a^13 + 
        a^12 - a^11 + 2*a^10 - a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - a^3 + a^2 - a
        + 1)*q^122 + (a^23 - a^22 - a^9 + a^8)*q^125 - a^20*q^128 + (-a^25 - 
        a^22 + a^11 - a^7)*q^130 + (-a^27 + a^26 - a^25 + a^24 - a^23 + a^22 - 
        a^21 + a^20 - a^19 + a^18 - a^17 + a^16 - a^15 + a^14 - a^13 + a^12 - 
        a^11 + a^10 - a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - a^3 + a^2 - 2*a + 
        1)*q^136 + (a^25 - a^17)*q^137 - q^144 + (a^27 - a^26 + a^25 - a^24 - 
        a^22 + a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - a^14 + 2*a^13 - 
        a^12 + a^11 - a^10 + a^9 - 2*a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a
        - 1)*q^145 + (a^12 + a^5)*q^146 + (a^25 + a^11)*q^148 + (-a^10 - 
        a^9)*q^149 + (a^10 - a^8)*q^153 + (a^27 + a^21)*q^157 + (-a^23 + 
        a^9)*q^160 + a^9*q^162 + (-a^25 + a)*q^164 + (a^24 - a^13 + a^2)*q^169 +
        (-a^19 + a^17 - a^4 + a^2)*q^170 + (a^15 + a^5)*q^173 + (a^23 - 
        a^20)*q^178 + (-a^18 - a^3)*q^180 + (a^24 - a^17)*q^181 + (a^27 - a^26 +
        a^25 - a^24 + a^23 - a^22 + a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + 
        a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - 
        a^4 + a^3 - a^2 + a - 2)*q^185 + (a^26 + a^7)*q^193 + (-a^13 + a)*q^194 
        + a^4*q^196 + (-a^18 - a^12)*q^197 + (a^27 - a^26 + a^12)*q^200 + (-a^5 
        - a^3)*q^202 + (-a^27 + a^26 - a^25 + a^24 - a^23 + a^22 - a^21 + a^20 +
        a^18 - a^17 + a^16 - a^15 + 2*a^14 - a^13 + a^12 - a^11 + a^10 - a^9 + 
        a^8 - a^7 + a^6 - a^5 + 2*a^4 - a^3 + a^2 - a + 1)*q^205 + (-a^11 + 
        1)*q^208 + (a^13 - a^7)*q^212 + (-a^21 + 1)*q^218 + (a^21 - a^19 - a^10 
        + a^8)*q^221 + (-a^21 + a^7 - a^6)*q^225 + (a^26 + a^22)*q^226 + (-a^24 
        - a^4)*q^229 + O(q^230)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
932
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
58
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^14*q^2 + (a^27 - a^26 + a^25 - a^24 + a^23 - a^22 + a^21 - a^20 + a^19
        - a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - 
        a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^4 + (a^6 - a^5)*q^5 -
        a^13*q^8 + a^2*q^9 + (a^20 - a^19)*q^10 + (a^24 + a^2)*q^13 - a^27*q^16 
        + (a^18 + a^14)*q^17 + a^16*q^18 + (-a^5 + a^4)*q^20 + (a^12 - a^11 + 
        a^10)*q^25 + (a^16 - a^9)*q^26 + (-a^21 - a^11)*q^29 + a^12*q^32 + (a^27
        - a^26 + a^25 - a^24 + a^23 - a^22 + a^21 - a^20 + a^19 - a^18 + a^17 - 
        a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 +
        a^5 - a^4 - a^2 + a - 1)*q^34 - a*q^36 + (-a^23 + a^22)*q^37 + (-a^19 + 
        a^18)*q^40 + (a^22 - a^3)*q^41 + (a^8 - a^7)*q^45 - a^9*q^49 + (a^26 - 
        a^25 + a^24)*q^50 + (-a^23 - a)*q^52 + (-a^27 - a^15)*q^53 + (-a^25 + 
        a^6)*q^58 + (-a^13 + a^6)*q^61 + a^26*q^64 + (a^8 - a^7 - a + 1)*q^65 + 
        (-a^17 - a^13)*q^68 - a^15*q^72 + (-a^25 + a^10)*q^73 + (a^8 - a^7)*q^74
        + (a^4 - a^3)*q^80 + a^4*q^81 + (-a^17 - a^7)*q^82 + (a^24 - a^23 + a^20
        - a^19)*q^85 + (a^26 - a^3)*q^89 + (a^22 - a^21)*q^90 + (-a^17 + 
        a^12)*q^97 - a^23*q^98 + (-a^11 + a^10 - a^9)*q^100 + (-a^25 - 
        a^21)*q^101 + (-a^15 + a^8)*q^104 + (a^12 + 1)*q^106 + (a^27 - a^26 + 
        a^25 - a^24 + a^23 - a^22 + a^21 - a^20 + a^19 - a^18 + a^17 - a^16 - 
        a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^109 + (-a^9 - a)*q^113 + (a^20 + a^10)*q^116 + 
        (a^26 + a^4)*q^117 - a^17*q^121 + (-a^27 + a^20)*q^122 + (a^18 - a^17 + 
        a^16 - a^15)*q^125 - a^11*q^128 + (a^22 - a^21 - a^15 + a^14)*q^130 + 
        (-a^27 + a^2)*q^136 + (-a^21 - a^5)*q^137 + q^144 + (-a^27 + a^26 - a^17
        + a^16)*q^145 + (a^24 + a^10)*q^146 + (a^22 - a^21)*q^148 + (a^20 + 
        a^18)*q^149 + (a^20 + a^16)*q^153 + (-a^25 - a^13)*q^157 + (a^18 - 
        a^17)*q^160 + a^18*q^162 + (-a^21 + a^2)*q^164 + (a^26 - a^19 + 
        a^4)*q^169 + (-a^9 + a^8 - a^5 + a^4)*q^170 + (a^10 - a)*q^173 + (-a^17 
        - a^11)*q^178 + (-a^7 + a^6)*q^180 + (-a^19 - a^5)*q^181 + (a^27 - 
        2*a^26 + 2*a^25 - 2*a^24 + 2*a^23 - 2*a^22 + 2*a^21 - 2*a^20 + 2*a^19 - 
        2*a^18 + 2*a^17 - 2*a^16 + 2*a^15 - 2*a^14 + 2*a^13 - 2*a^12 + 2*a^11 - 
        2*a^10 + 2*a^9 - 2*a^8 + 2*a^7 - 2*a^6 + 2*a^5 - 2*a^4 + 2*a^3 - 2*a^2 +
        2*a - 1)*q^185 + (-a^23 + a^14)*q^193 + (a^26 + a^2)*q^194 + a^8*q^196 +
        (a^24 - a^7)*q^197 + (-a^25 + a^24 - a^23)*q^200 + (a^10 + a^6)*q^202 + 
        (-a^26 + a^25 - a^24 + a^23 - a^22 + a^21 - a^20 + a^19 - a^18 + a^17 - 
        a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^7 - a^6 + a^5 - a^4 +
        a^3 - a^2 + a - 1)*q^205 + (a^22 + 1)*q^208 + (a^26 + a^14)*q^212 + 
        (-a^13 + 1)*q^218 + (a^20 + a^16 - a^13 - a^9)*q^221 + (a^14 - a^13 + 
        a^12)*q^225 + (-a^23 - a^15)*q^226 + (-a^19 + a^8)*q^229 + O(q^230)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
932
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
29*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
932
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 58*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
932
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 116*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 + q^25 - q^26 - q^33 - q^37 + q^49 - q^58 + q^64 - q^66 + 
        q^100 - q^101 - q^104 - q^109 - q^113 - q^117 + q^121 - q^132 - q^148 - 
        q^162 + q^169 - q^173 - q^178 + q^196 - q^197 + O(q^230),
    q^2 + q^8 - q^13 - q^29 + q^32 - q^33 + q^50 - q^52 - q^66 - q^74 - q^81 - 
        q^89 + q^98 - q^116 + q^117 + 2*q^121 + q^128 + q^129 - q^132 + q^141 + 
        2*q^157 - q^169 + q^177 - q^181 + q^200 + q^201 - q^202 - q^208 - q^218 
        - q^226 + 2*q^229 + O(q^230),
    q^3 - q^11 + q^12 - q^22 - q^39 - q^44 + q^48 - q^54 + q^75 + q^79 + q^83 + 
        q^86 - q^87 - q^88 + q^94 - q^103 + q^118 + q^134 - q^139 + q^143 + 
        q^147 - q^151 - q^156 + q^163 - q^176 - q^191 + q^192 - q^206 + q^211 - 
        q^216 - q^222 - q^223 - q^227 + O(q^230),
    q^6 - q^11 - q^22 + q^24 - q^27 + q^43 - q^44 + q^47 + q^59 + q^67 - q^78 - 
        q^88 + q^96 - q^103 - q^108 - q^111 + q^127 - q^139 + q^143 + q^150 - 
        q^151 + q^158 + q^166 + q^172 - q^174 - q^176 + q^179 + q^188 - q^191 + 
        q^199 - q^206 - q^223 - q^227 + O(q^230),
    q^9 - q^13 - q^18 + q^26 - q^29 + q^36 + q^37 - q^52 + q^58 - q^72 - q^74 - 
        q^89 + q^101 + q^104 + q^109 + q^113 - q^116 - q^129 - q^141 + q^144 + 
        q^148 - q^169 + q^173 - q^177 + q^178 - q^181 + q^197 - q^201 - q^202 - 
        q^208 - q^218 + q^225 - q^226 + O(q^230)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
933
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
933
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
310
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
933
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
310
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
933
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
62
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
933
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
62
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
933
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
31*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
933
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 62*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
933
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
155*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^20 + q^25 - q^27 - q^30 - q^47 + q^49 - q^65 + q^80 + q^84 + q^90 - 
        q^96 + q^98 - q^105 + q^121 + q^134 - q^146 + q^150 + q^168 + q^169 - 
        q^175 - q^178 - q^182 + q^188 - q^193 + O(q^206),
    q^2 - q^28 - q^30 + q^32 + q^35 - q^36 + q^42 + q^45 + q^49 - q^56 + q^67 + 
        q^72 - q^73 + q^75 - q^78 + q^79 - q^81 + q^84 - q^89 - q^91 - q^96 + 
        q^98 - q^104 - q^105 - q^106 - q^107 - q^108 - q^109 - q^120 - q^125 + 
        q^135 - q^137 - q^140 + q^156 + q^157 + q^159 + q^160 + q^163 - q^166 + 
        q^168 - q^169 + q^175 + q^196 + q^197 + O(q^206),
    q^3 + q^27 - q^60 - q^63 + q^75 - q^81 - q^90 - q^126 - q^141 + q^147 - 
        q^195 + O(q^206),
    q^4 + q^16 + q^20 - q^26 + q^27 - q^28 - q^36 - q^40 + q^47 - q^50 - q^56 + 
        q^64 + q^65 - q^70 + q^80 + q^98 + q^100 - q^104 - q^106 + q^108 - q^109
        - q^112 - q^125 - q^128 + q^134 - q^137 - q^140 - q^144 + q^146 - q^160 
        - q^166 - q^169 + q^175 + q^178 - q^180 + q^182 + q^188 - q^189 + q^193 
        + q^196 - q^200 + O(q^206),
    q^5 + q^16 + q^20 - q^26 + q^27 - q^28 - q^40 - q^45 - q^50 + q^52 - q^56 + 
        q^64 + q^80 + q^91 - q^104 - q^106 + q^108 - q^109 - q^112 + q^127 - 
        q^128 - q^137 - q^144 + q^146 + q^158 - q^160 - q^162 - q^166 - q^169 + 
        q^178 - q^180 + q^182 + q^188 - q^200 + O(q^206),
    q^6 - q^30 - q^45 + q^54 - q^63 - q^108 + q^117 + q^135 - q^144 + q^147 + 
        q^150 + q^201 + O(q^206),
    q^7 - q^25 + q^50 - q^52 - q^53 + q^54 - q^63 + q^65 - q^80 - q^83 + q^104 +
        q^106 - q^108 + q^135 - q^139 - q^140 + q^160 + q^166 + q^173 + q^175 + 
        q^179 + O(q^206),
    q^8 - q^26 - q^35 - q^70 - q^72 + q^73 - q^79 + q^81 + q^89 + q^91 + q^94 + 
        q^107 + q^108 - q^112 + q^130 - q^135 - q^157 - q^163 - q^189 + q^196 - 
        q^197 + O(q^206),
    q^9 - q^27 - q^30 + q^81 + q^84 + q^90 - q^96 - q^105 + q^150 + q^168 - 
        q^180 - q^189 + O(q^206),
    q^10 + q^27 - q^28 + q^32 + q^35 - q^50 - q^56 + q^79 - q^81 - q^90 - q^106 
        - q^109 - q^125 - q^137 + q^157 + q^163 - q^166 - q^169 + q^182 + q^197 
        + O(q^206),
    q^12 - q^27 - q^30 - q^36 + q^48 + q^60 + q^63 - q^78 + q^81 + q^90 - q^96 -
        q^105 - q^120 + q^126 + q^141 - q^144 - q^180 - q^189 + q^192 + q^195 + 
        O(q^206),
    q^13 + q^20 - q^26 + q^27 - q^28 + q^35 - q^40 - q^50 + q^52 - q^54 + q^64 +
        q^80 + q^100 - q^104 - q^106 + q^108 - q^109 + q^113 - q^117 - q^125 - 
        q^128 - q^137 + q^158 - q^160 - q^162 - q^166 - q^169 - q^180 - q^200 + 
        O(q^206),
    q^14 + q^25 - q^26 + q^27 - q^40 - q^50 + q^52 + q^53 - q^54 - q^70 + q^80 +
        q^83 + q^100 - q^104 - q^106 + q^108 - q^109 - q^125 - q^126 - q^128 + 
        q^130 - q^135 - q^137 + q^139 - q^160 - q^166 - q^169 + O(q^206),
    q^15 - q^27 - q^30 - q^36 + q^48 + q^54 + q^60 + q^72 - q^78 + q^90 - q^96 -
        q^105 - q^108 - q^120 + q^126 + q^135 - q^144 + q^156 - q^180 + q^192 + 
        O(q^206),
    q^18 - q^27 - q^30 - q^36 + q^42 + q^45 + q^72 + q^75 - q^78 + q^84 - q^96 -
        q^105 - q^108 - q^120 + q^156 + q^159 + q^162 + q^168 - q^189 + 
        O(q^206),
    q^21 - q^27 - q^30 + q^42 + q^72 - q^78 + q^84 + q^90 - q^96 - q^105 - q^108
        - q^120 + q^135 + q^150 + q^168 + q^195 + O(q^206),
    q^24 - q^27 - q^36 + q^45 + q^63 - q^78 - q^105 + q^126 + q^162 - q^189 + 
        O(q^206),
    q^39 - q^42 - q^45 + q^54 + q^60 - q^75 - q^84 + q^105 + q^117 - q^144 - 
        q^159 + q^192 + O(q^206)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
934
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
466
);
qprec:=
232
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
934
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
233*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
232
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^13 + q^16 - q^21 - q^23 + q^25 - q^47 + q^49 - q^51 - q^52 - 
        q^59 - q^63 + q^64 - q^84 - q^91 - q^92 - q^97 + q^100 + q^117 + 2*q^119
        + q^121 + q^123 - q^127 + q^129 + 2*q^137 - q^139 + q^147 - q^153 + 
        q^159 - q^161 + q^169 + 2*q^173 - q^188 + q^189 + q^196 - q^204 + q^207 
        - q^208 - q^213 - q^221 + 2*q^227 + O(q^232),
    q^2 + q^8 - q^26 + q^32 - q^42 - q^46 + q^50 - q^94 + q^98 - q^102 - q^104 -
        q^118 - q^126 + q^128 - q^168 - q^182 - q^184 - q^194 + q^200 + 
        O(q^232),
    q^3 - q^9 + q^12 - q^13 - q^21 - q^23 + q^27 - q^36 + q^39 + q^41 + q^43 - 
        q^47 + q^48 + q^49 - q^51 - q^52 + q^53 - q^59 + q^69 + q^75 - q^81 + 
        q^83 - q^84 - q^92 - q^97 + q^108 + q^109 - q^117 + q^119 - q^123 - 
        q^127 - q^129 - q^139 + q^141 - q^144 + q^156 + q^157 - q^159 + q^164 + 
        q^172 + q^177 + q^179 - q^188 + q^192 + q^193 + q^196 - q^204 - q^207 - 
        q^208 + q^212 - q^213 + q^223 - q^225 + O(q^232),
    q^6 - q^18 + q^24 - q^26 - q^42 - q^46 + q^54 - q^72 + q^78 + q^82 + q^86 - 
        q^94 + q^96 + q^98 - q^102 - q^104 + q^106 - q^118 + q^138 + q^150 - 
        q^162 + q^166 - q^168 - q^184 - q^194 + q^216 + q^218 + O(q^232),
    q^7 - q^9 - q^13 + q^17 - q^23 + q^27 + q^28 - q^36 + q^39 - q^47 - q^52 - 
        q^59 + q^68 + q^69 + q^71 + q^89 - q^91 - q^92 - q^97 + q^108 + q^112 + 
        q^113 - q^123 - q^127 - q^129 - q^139 + q^141 - q^144 - q^147 + q^149 + 
        q^151 + q^156 - q^159 - q^161 + q^163 + q^169 + q^175 + q^177 - q^188 + 
        q^199 - q^208 - q^221 - q^225 + q^229 + O(q^232),
    q^14 - q^18 - q^26 + q^34 - q^46 + q^54 + q^56 - q^72 + q^78 - q^94 - q^104 
        - q^118 + q^136 + q^138 + q^142 + q^178 - q^182 - q^184 - q^194 + q^216 
        + q^224 + q^226 + O(q^232)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 - q^5 + q^9 - q^11 + q^16 + q^20 + q^25 - 2*q^31 - q^36 + q^44 - 
        q^45 - q^49 + q^55 + 2*q^59 - q^64 + 2*q^71 - q^80 + q^81 - 2*q^89 - 
        q^99 - q^100 + q^121 + 2*q^124 - q^125 + q^144 + 2*q^155 - q^169 - q^176
        - 2*q^179 + q^180 - 2*q^181 - 2*q^191 + q^196 + 2*q^199 + O(q^210),
    q^17 - q^68 - q^85 + q^153 - q^187 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
80
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
80
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
80
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
80
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 5*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*(a^3 + a^2 + a - 1)*q^5 + a*q^9 + 1/2*(-a^3 - a^2 + a + 1)*q^11 + 
        (-a - 1)*q^14 + (-a^3 + a)*q^16 + 1/2*(a^3 - a^2 + a + 1)*q^20 - a*q^25 
        - a*q^26 + (-a - 1)*q^31 + 1/2*(-a^3 + a^2 + a + 1)*q^34 + 1/2*(a^3 - 
        a^2 - a + 1)*q^44 + 1/2*(a^3 + a^2 - a - 1)*q^45 + 2*a^3*q^49 + a^2*q^55
        + (-a^3 - a^2)*q^56 + a^2*q^64 + (-a^3 - a^2 + 1)*q^70 + (-a - 1)*q^71 +
        1/2*(a^3 + a^2 + a - 1)*q^80 + a^2*q^81 - q^86 + (-a^3 - a^2 - a)*q^89 +
        (a^3 - a^2 + a - 1)*q^91 + 1/2*(-a^3 + a^2 + a + 1)*q^99 + 1/2*(-a^3 - 
        a^2 - a + 3)*q^119 - a^3*q^121 + (a - 1)*q^124 + 1/2*(-a^3 - a^2 + a + 
        1)*q^125 + (-a^2 - a)*q^126 + a^3*q^136 + (a^2 + 1)*q^144 + (a^3 + a^2 +
        a + 1)*q^146 + (a^3 - a - 1)*q^154 + (-a^2 + 1)*q^155 + (a^3 + a^2 + 
        a)*q^166 + (-a^3 + a)*q^169 + 1/2*(a^3 + a^2 - a - 1)*q^170 + 1/2*(-a^3 
        - a^2 + a + 1)*q^176 + (a^2 + a + 1)*q^179 + 1/2*(-a^3 + a^2 + a - 
        1)*q^180 + (-a^3 + 1)*q^181 + (a^3 + a^2 + a)*q^191 + (a^2 - a + 
        1)*q^196 + (a - 1)*q^199 + O(q^210),
    q^2 - 2*a^2*q^8 + (-a^3 - a^2 - a + 1)*q^10 + (a^3 + a^2 - 1)*q^13 + 
        1/2*(-a^3 - a^2 - a - 1)*q^17 + a*q^18 + (a^3 + a^2 - a - 1)*q^22 + (-a 
        - 1)*q^28 + (-a^3 + a - 1)*q^32 + (-a^2 - a - 1)*q^35 + (a^3 - a^2)*q^40
        - a^2*q^43 - a*q^50 + (2*a^2 + a + 2)*q^52 + (2*a + 2)*q^62 + (a^2 + 
        a)*q^65 + 1/2*(a^3 + 3*a^2 - a - 1)*q^68 - 2*a^3*q^72 + (-a^3 + 1)*q^73 
        + (a^3 + a^2 + a)*q^77 + q^83 + 1/2*(a^3 + a^2 + a - 1)*q^85 + (a^3 + 
        1)*q^88 + (-a^3 - a^2 + a + 1)*q^90 - a^3*q^98 + (a^3 - 1)*q^107 + 
        a^2*q^110 + (a^3 + a^2)*q^112 + (a^3 - a - 1)*q^117 + (a^3 + a^2 + 
        a)*q^127 + (-2*a^3 - 2*a)*q^128 + (a^3 + a^2 - 1)*q^140 + (-a - 1)*q^142
        + (-a^3 - a^2)*q^143 + 1/2*(-a^3 - a^2 - a + 1)*q^153 + (-a^3 - a^2 + a 
        - 1)*q^160 + a^2*q^162 - 3*q^172 + (2*a^3 + 2*a^2 + 2*a)*q^178 + (-2*a^3
        - a^2 + a + 2)*q^182 + 1/2*(-a^3 - a^2 + a + 1)*q^187 + (-a^3 + a^2 + a 
        + 1)*q^193 + (a^3 + a^2)*q^197 + (a^3 - a^2 - a - 1)*q^198 + 2*a^3*q^200
        + (a^3 - a^2 + 1)*q^208 + O(q^210),
    q^4 + 1/2*(-a^3 + a^2 + a + 1)*q^5 + 1/2*(-a^3 - a^2 - a - 1)*q^11 - 
        a^2*q^16 + 1/2*(-a^3 - a^2 - a + 1)*q^20 + (a^3 + a^2 - 1)*q^26 + (a^3 +
        a^2)*q^31 + 1/2*(-a^3 - a^2 - a - 1)*q^34 + a*q^36 + 1/2*(a^3 + a^2 - a 
        - 1)*q^44 + 1/2*(a^3 + a^2 + a + 1)*q^45 + a*q^49 + (-a - 1)*q^56 + 
        (-a^3 + a)*q^64 + (-a^2 - a - 1)*q^70 + 1/2*(a^3 - a^2 + a + 1)*q^80 - 
        a^2*q^86 + (a^3 - a - 1)*q^89 + (a^2 + a)*q^91 + 1/2*(-a^3 - a^2 - a + 
        1)*q^99 - a*q^100 + (a^2 + 1)*q^104 + 1/2*(a^3 - a^2 - a - 1)*q^119 + (a
        + 1)*q^124 + 1/2*(-a^3 - a^2 - a - 1)*q^125 + (a^2 + a)*q^130 + 
        a^2*q^136 - a^3*q^144 + (-a^3 + 1)*q^146 + (a^3 + a^2 + a)*q^154 + q^166
        + (-a^3 - a^2 - a)*q^169 + 1/2*(a^3 + a^2 + a - 1)*q^170 + 1/2*(a^3 - 
        a^2 - a + 1)*q^176 + (-a^3 - a^2 + 1)*q^179 + 1/2*(-a^3 - a^2 + a + 
        1)*q^180 + (-a^2 - a)*q^181 + (-a^3 + a + 1)*q^191 + O(q^210),
    q^7 + (a^3 - 1)*q^8 + (a^3 - a - 1)*q^10 + (a + 1)*q^13 + 1/2*(a^3 + a^2 - a
        - 1)*q^17 + (a^2 + a + 1)*q^22 + a^2*q^28 + (a^3 + a^2 + a - 1)*q^35 + 
        (-a^3 - a^2 - a + 1)*q^52 + (-a^3 - 2*a^2 - a)*q^62 + a*q^63 - a^3*q^65 
        + 1/2*(-a^3 + a^2 + a + 1)*q^68 + (-a - 1)*q^72 + (-a^2 - a - 1)*q^73 + 
        (-a^3 - a^2 + a + 1)*q^77 + (-a^2 - a)*q^83 + 1/2*(-a^3 - a^2 + a + 
        1)*q^85 + (-a^2 - a - 1)*q^90 + (-a - 1)*q^98 + (a^2 + a + 1)*q^107 + 
        (-a^3 + a + 1)*q^112 + (a^2 + a)*q^117 + (-a^3 + 1)*q^127 + (a^3 + a^2 -
        a - 1)*q^128 + (a + 1)*q^140 - q^143 + 1/2*(a^3 - a^2 - a - 1)*q^153 - 
        q^160 + a^3*q^167 + (a^2 + a)*q^172 - a^3*q^173 - a*q^175 + (-2*a^3 - 
        a^2 + a + 2)*q^178 + (-a^2 - 2*a - 1)*q^182 + 1/2*(a^3 - a^2 - a - 
        1)*q^187 + (-a^3 - a^2 - a)*q^193 + (-a^3 + a + 1)*q^197 + (a^3 + a^2 + 
        a)*q^198 + (a + 1)*q^200 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*(-a - 1)*q^5 + a*q^9 + 1/2*(-a + 1)*q^11 + 1/2*(-a - 1)*q^20 + 
        a*q^25 + a*q^26 + 1/2*(-a - 1)*q^34 + 1/2*(-a + 1)*q^44 + 1/2*(-a + 
        1)*q^45 - q^55 + (-a - 1)*q^56 - 2*a*q^59 - q^64 + a*q^70 + (a + 1)*q^71
        + 1/2*(a + 1)*q^80 - q^81 + q^86 - q^89 + (a - 1)*q^91 + 1/2*(a + 
        1)*q^99 + 2*a*q^104 + 1/2*(-a + 1)*q^119 - a*q^121 + 1/2*(-a + 1)*q^125 
        + (-a + 1)*q^130 - a*q^136 + (-a + 1)*q^146 - q^154 + q^166 + 2*q^169 + 
        1/2*(a - 1)*q^170 + 1/2*(a - 1)*q^176 + a*q^179 + 1/2*(-a + 1)*q^180 - 
        q^191 + a*q^196 + (a + 1)*q^199 + O(q^210),
    q^2 - a*q^13 + 1/2*(a + 1)*q^17 + a*q^18 + (a + 1)*q^28 + q^32 - a*q^35 + 
        (-a - 1)*q^40 - q^43 + a*q^50 - a*q^52 + (a - 1)*q^65 + 1/2*(a - 1)*q^68
        + (a - 1)*q^73 + q^77 - q^83 + 1/2*(-a + 1)*q^85 + (-a + 1)*q^88 - 
        a*q^98 + (a - 1)*q^107 - q^110 + (-a - 1)*q^112 + q^117 - 2*a*q^118 - 
        q^127 + a*q^140 + (a + 1)*q^142 + (-a - 1)*q^143 + 1/2*(a - 1)*q^153 - 
        q^162 + q^172 + (a - 1)*q^182 + 1/2*(a + 1)*q^187 + (a + 1)*q^197 + 
        a*q^208 + O(q^210),
    q^4 + 1/2*(-a - 1)*q^5 + 1/2*(-a + 1)*q^11 + (-a - 1)*q^14 - q^16 + 1/2*(a +
        1)*q^20 + a*q^26 + 1/2*(-a + 1)*q^34 + a*q^36 + 1/2*(a - 1)*q^44 + 
        1/2*(-a + 1)*q^45 + a*q^49 + (a + 1)*q^56 - a*q^70 + 1/2*(-a - 1)*q^80 -
        q^86 - q^89 + 1/2*(a + 1)*q^99 + a*q^100 + 1/2*(-a - 1)*q^119 + 1/2*(-a 
        + 1)*q^125 + (-a + 1)*q^126 - q^136 - a*q^144 + q^154 + q^166 + q^169 + 
        1/2*(a + 1)*q^170 + 1/2*(-a + 1)*q^176 + a*q^179 + 1/2*(a - 1)*q^180 - 
        q^191 - 2*a*q^196 + O(q^210),
    q^7 + (-a + 1)*q^8 - q^10 + (-a - 1)*q^13 + 1/2*(a + 1)*q^17 - a*q^22 - q^28
        + a*q^63 + a*q^65 + 1/2*(-a + 1)*q^68 + (a + 1)*q^72 + a*q^73 + (a - 
        1)*q^83 + 1/2*(-a - 1)*q^85 - a*q^90 + (a + 1)*q^98 + a*q^107 + q^112 + 
        (-a + 1)*q^117 + (a - 1)*q^127 + (-a - 1)*q^140 - q^143 + 1/2*(a - 
        1)*q^153 - q^160 - a*q^167 + (a - 1)*q^172 - a*q^173 + a*q^175 + (a - 
        1)*q^178 + 1/2*(-a + 1)*q^187 + q^193 + q^197 + q^198 + (a + 1)*q^200 + 
        O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
935
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - 2*q^16 - q^25 + 3*q^26 + 2*q^34 - q^49 + q^55 - 3*q^59 - q^64 - q^66 - 
        q^69 - 2*q^70 + q^81 + q^86 - 2*q^100 + q^104 + q^110 + q^115 + q^119 - 
        q^121 - q^135 + q^136 + q^144 + 2*q^154 + 2*q^155 - q^166 + q^169 + 
        q^170 + q^179 - q^185 + q^191 - 2*q^196 + O(q^210),
    q^2 + q^18 - q^30 - q^33 - q^43 + q^50 - q^52 - q^72 - q^87 + q^98 + q^123 +
        q^127 - q^138 + q^145 + q^153 + q^162 - q^178 + q^183 + q^195 - q^205 + 
        O(q^210),
    q^3 - q^22 - q^23 + q^27 - q^45 - q^48 + q^75 + q^80 + q^82 - q^92 - q^97 + 
        q^102 + q^108 + q^147 + q^148 + q^158 - q^163 - q^170 - q^177 - q^180 - 
        q^198 - q^207 + O(q^210),
    q^4 + 3*q^16 + 2*q^25 - 4*q^26 - 3*q^34 - q^36 + 2*q^49 - q^55 + 3*q^59 - 
        q^60 + q^64 + q^66 + q^69 + 2*q^70 - q^81 - q^86 + 3*q^100 - 3*q^104 - 
        2*q^110 - q^111 - 2*q^115 - q^119 + 2*q^121 + q^135 - 2*q^136 - 2*q^144 
        - 2*q^154 - 2*q^155 - q^170 - q^174 - 2*q^179 + q^185 - 2*q^191 + 
        3*q^196 + O(q^210),
    q^5 - q^12 - q^27 - q^37 + q^45 + q^48 + q^58 + q^78 - q^82 - q^102 - q^113 
        + q^125 - q^143 + q^148 - q^158 - q^177 + q^187 + q^198 + q^207 + 
        O(q^210),
    q^6 - q^12 - 2*q^14 - q^22 - q^23 - q^24 + 2*q^31 + q^34 + q^40 + q^41 + 
        q^45 - 2*q^46 + q^51 + 2*q^54 + 2*q^58 + q^74 + q^78 + q^79 + 2*q^80 - 
        q^85 - q^88 - 2*q^90 - 2*q^91 - 2*q^92 - q^96 - q^97 - 2*q^99 + q^108 + 
        q^109 + q^116 - q^119 - q^122 + 2*q^124 + 2*q^125 + 2*q^126 - 2*q^129 - 
        3*q^130 - 2*q^146 + 2*q^148 + q^150 + q^160 - q^163 + q^164 + q^165 - 
        2*q^170 - q^176 - q^177 - 2*q^181 - q^184 + q^187 - 2*q^194 + q^198 + 
        q^204 + q^207 + O(q^210),
    q^7 + q^12 + 2*q^14 - 1/3*q^18 + q^23 + q^24 + q^28 - q^29 - 2*q^31 - 
        2/3*q^32 + 1/3*q^33 - q^34 - 1/3*q^35 - 2*q^40 - q^41 + 2/3*q^43 + q^44 
        - q^45 + 3*q^46 - 2/3*q^50 - q^51 + q^52 - 2*q^54 + 1/3*q^55 - 2*q^58 + 
        q^61 - 2*q^62 - q^63 + 2*q^65 - 1/3*q^68 + 1/3*q^72 + q^73 - 2*q^74 + 
        1/3*q^77 - q^78 - q^79 - 2*q^80 - 2/3*q^83 + 5/3*q^85 + q^88 + q^90 + 
        2*q^91 + 2*q^92 + q^96 + q^97 - 2/3*q^98 + q^99 + q^107 - q^108 - q^109 
        + 1/3*q^110 - q^112 - 3*q^116 - 2/3*q^117 - 2/3*q^118 + q^119 + 
        1/3*q^120 + q^122 + 1/3*q^123 - 2*q^124 - 2*q^125 - 2*q^126 - 2/3*q^127 
        + 1/3*q^128 + q^129 + 3*q^130 + q^131 - 1/3*q^132 + q^139 - 1/3*q^140 - 
        q^143 - 1/3*q^145 + 2*q^146 - 2*q^148 + 1/3*q^153 - q^156 - 2*q^160 + 
        1/3*q^162 + q^163 - q^164 - q^165 - q^167 + 2*q^170 - q^173 - q^175 + 
        2*q^176 + q^177 + 2*q^181 + 2*q^182 - 2/3*q^183 + 3*q^184 - 5/3*q^187 + 
        q^193 + 3*q^194 - 2/3*q^195 - q^197 - q^204 + 1/3*q^205 - q^207 - 
        1/3*q^208 + O(q^210),
    q^8 - 8/3*q^18 + q^30 - 1/3*q^32 + 5/3*q^33 - 2/3*q^35 + 7/3*q^43 - 4/3*q^50
        + q^52 - 1/3*q^55 - 2/3*q^68 + 2/3*q^72 + 2/3*q^77 - 4/3*q^83 + 1/3*q^85
        + q^87 - 4/3*q^98 + 2/3*q^110 - 1/3*q^117 - 1/3*q^118 - 1/3*q^120 - 
        4/3*q^123 - 4/3*q^127 - 1/3*q^128 + 1/3*q^132 + 2*q^138 - 2/3*q^140 - 
        2/3*q^145 - 4/3*q^153 - 1/3*q^162 + q^172 + q^178 - 4/3*q^183 - 
        1/3*q^187 - 4/3*q^195 + q^200 + 5/3*q^205 - 5/3*q^208 + O(q^210),
    q^9 + 2*q^16 + 2*q^25 - 3*q^26 - 2*q^34 + 2*q^49 - q^55 + 2*q^59 - q^60 + 
        q^64 + 2*q^70 - q^81 - 2*q^86 + 2*q^100 - 2*q^104 - q^110 - q^111 - 
        q^115 - q^119 + 2*q^121 - q^136 - 2*q^144 - 2*q^154 - 2*q^155 + q^166 - 
        q^170 - q^174 - q^179 - q^191 + 2*q^196 + O(q^210),
    q^10 - q^12 - 2*q^14 - q^22 - q^23 - q^24 + q^29 + 2*q^31 + q^34 + 2*q^40 + 
        q^41 - q^44 + q^45 - 3*q^46 + q^51 + 2*q^54 + 2*q^58 - q^61 - q^65 + 
        2*q^74 + q^78 + q^79 + 2*q^80 - q^85 - q^88 - 2*q^90 - 2*q^91 - 2*q^92 -
        q^96 - q^97 - q^99 + q^108 + q^109 + 3*q^116 - q^119 - q^122 + 2*q^124 +
        2*q^125 + 2*q^126 - q^129 - 3*q^130 - q^131 - q^139 - 2*q^146 + 2*q^148 
        + q^156 + q^160 - q^163 + q^164 + q^165 - 2*q^170 - 2*q^176 - q^177 - 
        2*q^181 - 3*q^184 + q^187 - 3*q^194 + q^198 + q^204 + q^207 + O(q^210),
    q^11 - q^12 - 2*q^14 - q^22 - q^23 + 2*q^31 + q^34 + q^44 + q^45 + 2*q^58 + 
        q^78 + 2*q^80 - q^88 - 2*q^91 - 2*q^92 - q^97 - q^99 + q^108 - q^119 - 
        q^122 + 2*q^124 + 2*q^125 + 2*q^126 - 3*q^130 - 2*q^146 + 2*q^148 - 
        q^163 - 2*q^170 - q^176 - q^177 - 2*q^181 + q^187 + q^198 + q^207 + 
        O(q^210),
    q^13 - 5/3*q^18 + q^30 - 1/3*q^32 + 2/3*q^33 - 2/3*q^35 + 4/3*q^43 - 
        4/3*q^50 + q^52 - 1/3*q^55 + 1/3*q^68 + 2/3*q^72 + 2/3*q^77 - 1/3*q^83 +
        1/3*q^85 + q^87 - 4/3*q^98 + 2/3*q^110 - 1/3*q^117 - 4/3*q^118 - 
        1/3*q^120 - 4/3*q^123 - 4/3*q^127 - 1/3*q^128 + 1/3*q^132 + q^138 - 
        2/3*q^140 - 2/3*q^145 - 4/3*q^153 - 1/3*q^162 + q^172 + q^178 - 
        1/3*q^183 - 1/3*q^187 - 1/3*q^195 + 2/3*q^205 - 2/3*q^208 + O(q^210),
    q^15 + 3*q^16 + 2*q^25 - 3*q^26 - 3*q^34 - q^36 + 2*q^49 - q^55 + 2*q^59 - 
        q^60 + q^64 + q^66 + q^69 + 2*q^70 - 2*q^81 - q^86 + q^89 + 2*q^100 - 
        3*q^104 - 2*q^110 - 2*q^111 - 2*q^115 - q^119 + 2*q^121 + q^135 - q^136 
        - q^144 - 2*q^154 - 2*q^155 + q^166 + q^169 - q^170 - 2*q^179 - 2*q^191 
        + 2*q^196 + O(q^210),
    q^17 - 2/3*q^18 - 4/3*q^32 + 2/3*q^33 - 2/3*q^35 + 4/3*q^43 - 4/3*q^50 + 
        2*q^52 + 2/3*q^55 + 1/3*q^68 + 2/3*q^72 + 2/3*q^77 - 4/3*q^83 + 1/3*q^85
        - 4/3*q^98 + 2/3*q^110 - 4/3*q^117 - 4/3*q^118 + 2/3*q^120 + 2/3*q^123 -
        4/3*q^127 + 2/3*q^128 - 2/3*q^132 - 2/3*q^140 - 2/3*q^145 - 1/3*q^153 + 
        2/3*q^162 - 4/3*q^183 - 1/3*q^187 - 4/3*q^195 + 2/3*q^205 - 2/3*q^208 + 
        O(q^210),
    q^20 - q^22 - q^23 + q^27 + q^37 - q^45 - q^48 + q^58 + q^80 + q^82 - q^88 -
        2*q^92 - q^97 + q^102 + q^108 + q^113 - q^122 - q^130 + q^143 + q^148 + 
        q^158 - q^163 - q^170 - q^180 + O(q^210),
    q^39 - q^40 - q^41 + q^44 + q^46 - q^51 - q^54 + q^61 + q^65 - q^74 - q^79 +
        q^90 + q^96 - q^109 - q^116 + q^131 + q^139 - q^156 - q^165 + q^184 + 
        q^194 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 - a*q^3 + (a - 1)*q^4 + (a - 1)*q^6 + q^8 + (a - 1)*q^9 + a*q^11 +
        q^12 - a*q^16 - q^17 + q^18 - q^19 + (-a + 1)*q^22 - a*q^24 - a*q^25 + 
        q^27 + (a - 1)*q^32 + (-a + 1)*q^33 + a*q^34 - a*q^36 + a*q^38 + (-a + 
        1)*q^41 + a*q^43 - q^44 + (a - 1)*q^48 + (a - 1)*q^49 + (a - 1)*q^50 + 
        a*q^51 - a*q^54 + a*q^57 + (-a + 1)*q^59 + q^64 - q^66 + (-a + 1)*q^67 +
        (-a + 1)*q^68 + (a - 1)*q^72 - q^73 + (a - 1)*q^75 + (-a + 1)*q^76 - 
        a*q^81 - q^82 - 2*a*q^83 + (-a + 1)*q^86 + a*q^88 + 2*q^89 + q^96 + 
        a*q^97 + q^98 - q^99 + q^100 + (-a + 1)*q^102 - q^107 + (a - 1)*q^108 + 
        (2*a - 2)*q^113 + (-a + 1)*q^114 - q^118 - q^123 - a*q^128 + (-a + 
        1)*q^129 + (2*a - 2)*q^131 + a*q^132 - q^134 - q^136 + a*q^137 + (-a + 
        1)*q^139 + q^144 + a*q^146 + q^147 + q^150 - q^152 + (-a + 1)*q^153 + (a
        - 1)*q^162 + 2*q^163 + a*q^164 + (2*a - 2)*q^166 - a*q^169 + (-a + 
        1)*q^171 - q^172 + (-a + 1)*q^176 - q^177 - 2*a*q^178 + 2*q^179 - 
        a*q^187 - a*q^192 + (-a + 1)*q^193 + (-a + 1)*q^194 - a*q^196 + a*q^198 
        - a*q^200 - q^201 - q^204 - a*q^209 + (2*a - 2)*q^211 + a*q^214 + q^216 
        + a*q^219 + q^225 + 2*q^226 + a*q^227 - q^228 - q^233 + a*q^236 + 
        a*q^241 + (a - 1)*q^243 + a*q^246 + (2*a - 2)*q^249 - q^251 + (a - 
        1)*q^256 + (-a + 1)*q^257 - q^258 + 2*q^262 + (-a + 1)*q^264 - 2*a*q^267
        + a*q^268 + a*q^272 + (-a + 1)*q^274 + (-a + 1)*q^275 - q^278 - 
        2*a*q^281 + (2*a - 2)*q^283 - a*q^288 + (-a + 1)*q^291 + (-a + 1)*q^292 
        - a*q^294 + a*q^297 - a*q^300 + a*q^304 + O(q^306),
    q^13 - a*q^26 - a*q^39 + (a - 1)*q^52 + (a - 1)*q^78 + q^104 + (a - 1)*q^117
        + a*q^143 + q^156 - a*q^208 - q^221 + q^234 - q^247 + (-a + 1)*q^286 + 
        O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^3 + a^2)*q^7 + a*q^13 + (-a^2 - a + 1)*q^19 + a^3*q^25 + (a^3 + a^2 
        - a - 1)*q^31 + (-a^3 - a^2 + a)*q^37 + (-a^2 - 1)*q^43 + (-a^3 + a^2 + 
        a - 2)*q^49 + (2*a^3 - a)*q^61 + (-a - 1)*q^67 + (a^3 - a^2 - a + 
        1)*q^73 + (-a^3 + 2*a)*q^79 + (a^3 - a^2 + 1)*q^91 + (-a^3 - a^2)*q^97 +
        (2*a^2 - 1)*q^103 + (a^2 - a)*q^109 + a*q^121 + (-a^3 + a)*q^127 + (-a^3
        + a^2 - a)*q^133 + (-a^2 + 1)*q^139 + (a^3 + 1)*q^151 + q^157 + (-a^3 + 
        a + 1)*q^163 + a^2*q^169 + (a^3 - a + 1)*q^175 + (-a^3 - a^2 + 1)*q^193 
        - a*q^199 + (a^3 + a)*q^211 + (a^2 - 1)*q^217 + (-a^3 + a^2 + a)*q^223 +
        (-a^3 - 1)*q^229 + (a^2 - a - 1)*q^241 + (-a^3 - a^2 + a)*q^247 + (a^3 -
        2*a^2 + 1)*q^259 + (a^3 + a^2 - 1)*q^271 + (a^3 - a)*q^283 - a^2*q^289 +
        (2*a^3 - 2*a^2 - a + 1)*q^301 + O(q^306),
    q^2 + (-a^3 + a^2)*q^14 + a*q^26 + (-a^2 - a + 1)*q^38 + a^3*q^50 + (a^3 + 
        a^2 - a - 1)*q^62 + (-a^3 - a^2 + a)*q^74 + (-a^2 - 1)*q^86 + (-a^3 + 
        a^2 + a - 2)*q^98 + (2*a^3 - a)*q^122 + (-a - 1)*q^134 + (a^3 - a^2 - a 
        + 1)*q^146 + (-a^3 + 2*a)*q^158 + (a^3 - a^2 + 1)*q^182 + (-a^3 - 
        a^2)*q^194 + (2*a^2 - 1)*q^206 + (a^2 - a)*q^218 + a*q^242 + (-a^3 + 
        a)*q^254 + (-a^3 + a^2 - a)*q^266 + (-a^2 + 1)*q^278 + (a^3 + 1)*q^302 +
        O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^2*q^13 + 2*a^3*q^25 + (-a^3 - a^2 + 1)*q^37 + (-a^3 + a)*q^49 + (a^2 -
        1)*q^61 + (-a^3 + a^2 + a - 1)*q^73 + (-a^3 + 2*a^2 - a - 1)*q^85 + 
        (-a^2 - a + 1)*q^97 + (a^3 - 1)*q^109 + a*q^121 + (a^3 - a^2 - 2*a - 
        1)*q^145 + (a^3 - 2*a)*q^157 + (a^2 - 1)*q^169 + (2*a^2 - 1)*q^181 + (a 
        - 1)*q^193 + (-a^2 + 2)*q^205 + (a^3 + 1)*q^229 + (-a^3 + a + 1)*q^241 +
        (-2*a^3 - a^2 + a + 2)*q^265 - a*q^277 + (a^3 - a^2 + a)*q^289 + 
        O(q^306),
    q^2 - a*q^8 + (a^2 - 2)*q^20 - a^2*q^26 + a^2*q^32 + 2*a^3*q^50 + (a^3 - a^2
        - a + 1)*q^68 + (-a^3 - a^2 + 1)*q^74 + (-a^3 + 2*a)*q^80 + (-a^3 + 
        a)*q^98 + a^3*q^104 + (-a^3 - a^2)*q^116 + (a^2 - 1)*q^122 - a^3*q^128 +
        (-a^3 + a^2 + a - 1)*q^146 + a*q^164 + (-a^3 + 2*a^2 - a - 1)*q^170 + 
        (-a^2 - a + 1)*q^194 + (-2*a^2 + 2)*q^200 + (a + 1)*q^212 + (a^3 - 
        1)*q^218 + a*q^242 + (a^2 + 1)*q^260 + (a^3 - a + 1)*q^272 + (a^3 - a^2 
        - 2*a - 1)*q^290 + (a^3 + a^2 - a - 1)*q^296 + O(q^306),
    q^4 + (-2*a^3 + a)*q^10 - a*q^16 + (a^3 - a^2 + 1)*q^34 + (a^2 - 2)*q^40 - 
        a^2*q^52 + (a^2 + a)*q^58 + a^2*q^64 - q^82 + 2*a^3*q^100 + (a^3 - a - 
        1)*q^106 + (a^3 - 2*a)*q^130 + (a^3 - a^2 - a + 1)*q^136 + (-a^3 - a^2 +
        1)*q^148 + (-a^3 + 2*a)*q^160 + (-a^3 + a)*q^196 + (-a^2 + a)*q^202 + 
        a^3*q^208 + (-a + 1)*q^226 + (-a^3 - a^2)*q^232 + (a^2 - 1)*q^244 + (a^2
        + 1)*q^250 - a^3*q^256 + (a^3 - a)*q^274 + (-a^3 + a^2 + a - 1)*q^292 + 
        a^2*q^298 + O(q^306),
    q^5 + 1/3*(-a^3 + a^2 + 2*a - 2)*q^17 + 1/3*(2*a^3 + 2*a^2 - a - 1)*q^29 + 
        1/3*(-a^3 - a)*q^41 + 1/3*(-a^3 - a^2 - a - 1)*q^53 - a^2*q^65 + 
        1/3*(-2*a^3 + 2*a^2 + a - 1)*q^101 + 1/3*(a^3 - 2*a^2 + a + 1)*q^113 + 
        a^3*q^125 + 1/3*(-a^2 - 1)*q^137 + 1/3*(2*a^3 - a)*q^149 + 1/3*(2*a^3 + 
        a^2 - a + 1)*q^173 + (-a^3 - a^2 + 1)*q^185 + 1/3*(-a^3 + a^2 - a + 
        1)*q^221 + 1/3*(a^3 + 2*a^2 - 2*a - 1)*q^233 + (-a^3 + a)*q^245 + 
        1/3*(-a^3 + a^2 + 2*a + 1)*q^257 + 1/3*(2*a^3 - a^2 - a - 1)*q^269 + 
        1/3*(-2*a^2 + 1)*q^281 + 1/3*(a^2 + 1)*q^293 + (a^2 - 1)*q^305 + 
        O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 4*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 5*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^13 + (-a - 1)*q^37 + (-a + 1)*q^49 + a*q^61 + (-2*a + 1)*q^73 
        + (a - 2)*q^85 + a*q^121 + (a + 1)*q^145 + q^157 - a*q^169 - q^181 + (a 
        + 1)*q^193 + (a - 1)*q^205 + (-a + 2)*q^241 + (-2*a + 1)*q^265 - a*q^277
        + (2*a - 2)*q^289 + O(q^306),
    q^2 + a*q^8 + (-a + 1)*q^20 + (a - 1)*q^26 + (a - 1)*q^32 + (-2*a + 1)*q^68 
        + (-a - 1)*q^74 + q^80 + (-a + 1)*q^98 - q^104 + (a - 2)*q^116 + a*q^122
        - q^128 + (-2*a + 1)*q^146 - a*q^164 + (a - 2)*q^170 + (a + 1)*q^212 + 
        a*q^242 + a*q^260 + (-a + 2)*q^272 + (a + 1)*q^290 + (-2*a + 1)*q^296 + 
        O(q^306),
    q^4 - a*q^10 + a*q^16 + (-a - 1)*q^34 + (-a + 1)*q^40 + (a - 1)*q^52 + (2*a 
        - 1)*q^58 + (a - 1)*q^64 - q^82 + (-a + 2)*q^106 + q^130 + (-2*a + 
        1)*q^136 + (-a - 1)*q^148 + q^160 + 2*q^178 + (-a + 1)*q^196 + (2*a - 
        1)*q^202 - q^208 + (a + 1)*q^226 + (a - 2)*q^232 + a*q^244 - a*q^250 - 
        q^256 + (a - 1)*q^274 + (-2*a + 1)*q^292 + (-a + 1)*q^298 + O(q^306),
    q^5 + (-a + 2)*q^17 + (-a - 1)*q^29 + (-a + 1)*q^41 + (2*a - 1)*q^53 + (a - 
        1)*q^65 + (2*a - 2)*q^89 + (-a - 1)*q^101 + (a - 2)*q^113 + q^125 - 
        a*q^137 + a*q^149 + (-a - 1)*q^185 + (-2*a + 2)*q^197 + (2*a - 1)*q^221 
        + (-a + 1)*q^245 + (a + 1)*q^257 + q^281 - a*q^293 + a*q^305 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 2)*q^7 + a*q^13 - q^25 + (-2*a + 1)*q^31 + a*q^43 + (-2*a + 2)*q^49
        - a*q^61 + (a + 1)*q^67 + (-2*a + 1)*q^73 + q^79 + (-a - 1)*q^91 + (a - 
        2)*q^97 - q^103 + (2*a - 1)*q^109 + a*q^121 + (a - 1)*q^127 + a*q^139 - 
        q^157 + (-a + 2)*q^163 + (a - 1)*q^169 + (-a + 2)*q^175 + 2*q^181 + (-a 
        - 1)*q^193 - a*q^199 + (a - 1)*q^211 + 3*a*q^217 + (-a - 1)*q^271 - 
        2*a*q^277 + (a - 1)*q^283 + (a - 1)*q^289 + (-a - 1)*q^301 + O(q^306),
    q^2 + (a - 2)*q^14 + a*q^26 - q^50 + (-2*a + 1)*q^62 + a*q^86 + (-2*a + 
        2)*q^98 - a*q^122 + (a + 1)*q^134 + (-2*a + 1)*q^146 + q^158 + (-a - 
        1)*q^182 + (a - 2)*q^194 - q^206 + (2*a - 1)*q^218 + a*q^242 + (a - 
        1)*q^254 + a*q^278 + O(q^306),
    q^3 + (-a + 1)*q^9 + (a - 2)*q^21 - a*q^27 + a*q^39 + (2*a - 1)*q^63 - q^75 
        - q^81 + (-2*a + 1)*q^93 + q^117 + a*q^129 + (-2*a + 2)*q^147 - a*q^183 
        + (a + 1)*q^189 + (a + 1)*q^201 + (-2*a + 1)*q^219 + (a - 1)*q^225 + 
        q^237 + (a - 1)*q^243 + (-a - 1)*q^273 + (-a - 1)*q^279 + (a - 2)*q^291 
        + O(q^306),
    q^6 + (-a + 1)*q^18 + (a - 2)*q^42 - a*q^54 + a*q^78 + (2*a - 1)*q^126 - 
        q^150 - q^162 + (-2*a + 1)*q^186 + q^234 + a*q^258 + (-2*a + 2)*q^294 + 
        O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 4*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 5*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^7 + a*q^13 + (-a - 1)*q^19 - a*q^25 + (a + 1)*q^31 + (-a + 
        1)*q^37 - a*q^49 + (-a - 1)*q^67 + (a - 1)*q^73 + (-a - 1)*q^91 + (a + 
        1)*q^97 + (-a - 1)*q^109 + a*q^121 + 2*a*q^127 + 2*q^133 + 2*q^139 + (-a
        + 1)*q^151 - 2*q^157 + (-a + 1)*q^163 - q^169 + (a + 1)*q^175 + (a - 
        1)*q^193 + 2*a*q^199 - 2*q^217 + (-a - 1)*q^223 + (a - 1)*q^229 + (-a + 
        1)*q^241 + (-a + 1)*q^247 + 2*a*q^259 + (-a + 1)*q^271 - 2*a*q^283 + 
        q^289 + O(q^306),
    q^2 + (a - 1)*q^14 + a*q^26 + (-a - 1)*q^38 - a*q^50 + (a + 1)*q^62 + (-a + 
        1)*q^74 - a*q^98 + (-a - 1)*q^134 + (a - 1)*q^146 + (-a - 1)*q^182 + (a 
        + 1)*q^194 + (-a - 1)*q^218 + a*q^242 + 2*a*q^254 + 2*q^266 + 2*q^278 + 
        (-a + 1)*q^302 + O(q^306),
    q^4 - a*q^16 + (a - 1)*q^28 + a*q^52 - q^64 + (-a - 1)*q^76 - a*q^100 + (a +
        1)*q^112 + (a + 1)*q^124 + (-a + 1)*q^148 - a*q^196 + q^208 + a*q^256 + 
        (-a - 1)*q^268 + (a - 1)*q^292 + (a - 1)*q^304 + O(q^306),
    q^8 - a*q^32 + (a - 1)*q^56 + a*q^104 - q^128 + (-a - 1)*q^152 - a*q^200 + 
        (a + 1)*q^224 + (a + 1)*q^248 + (-a + 1)*q^296 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.3 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*(-a^2 + a + 1)*q^5 + 1/2*(a^3 - a^2 - a)*q^7 - a^2*q^9 + 1/2*(a^3 - a^2 - a)*q^11 +
        1/2*(a^2 - a - 1)*q^13 + 1/2*(-a^3 - a^2 + a)*q^15 + a^3*q^17 + 1/2*(-a^3 - 1)*q^19 + 
        1/2*(-a^3 + 1)*q^21 + 1/2*(a^2 - a - 1)*q^31 + 1/2*(-a^3 + 1)*q^33 + 1/2*(-a^3 + a^2 + 
        a)*q^39 + (a^3 - a)*q^43 + 1/2*(-a^3 - 1)*q^45 + (-a^3 + a^2 + a)*q^47 + 1/2*(-a^2 + a 
        + 1)*q^57 + 1/2*(-a^2 - a + 1)*q^59 - a^2*q^61 + 1/2*(a^2 + a - 1)*q^63 + 1/2*(a^3 + 
        a^2 - a)*q^65 + (a^3 - a)*q^69 + 1/2*(-a^3 + 1)*q^73 - a^3*q^75 + a*q^77 + (a^2 - 
        1)*q^81 + 1/2*(a^2 + a - 1)*q^85 + 1/2*(a^3 - 1)*q^89 + 1/2*(a^3 + 1)*q^91 + 1/2*(a^3 +
        a^2 - a)*q^93 + 1/2*(a^2 + a - 1)*q^99 + q^107 + 1/2*(-a^3 - 1)*q^109 + (a^2 + a - 
        1)*q^111 + 1/2*(a^3 - a^2 - a)*q^115 + 1/2*(a^3 + 1)*q^117 + 1/2*(-a^3 - a^2 + a)*q^119
        + (-a^3 - a^2 + a)*q^123 + a^3*q^127 + (a^2 - 1)*q^131 + a^2*q^133 + 1/2*(a^2 - a - 
        1)*q^135 + (a^2 - 1)*q^139 + 1/2*(a^3 + 1)*q^143 + (a^3 - a)*q^147 + (-a^3 + a^2 + 
        a)*q^151 + (-a^3 + a)*q^153 + (a^3 - a)*q^155 + (a^2 - 1)*q^157 + (-a^2 + 1)*q^159 + 
        1/2*(-a^3 - 1)*q^161 + 1/2*(-a^3 + 1)*q^163 + 1/2*(a^3 + a^2 - a)*q^171 + 1/2*(-a^2 + a
        + 1)*q^175 + 1/2*(a^3 - a^2 - a)*q^177 - a^3*q^179 + (a^2 - 1)*q^185 + 1/2*(-a^3 - a^2 
        + a)*q^187 + 1/2*(a^3 - a^2 - a)*q^189 - a^2*q^191 + 1/2*(a^3 + 1)*q^195 + 1/2*(-a^3 - 
        1)*q^197 + (-a^3 + a)*q^205 + a^2*q^209 + (-a^2 + 1)*q^211 + 1/2*(a^3 - 1)*q^215 + 
        1/2*(-a^2 - a + 1)*q^219 + 1/2*(-a^2 - a + 1)*q^221 + 1/2*(-a^3 - a^2 + a)*q^227 + 
        1/2*(-a^2 - a + 1)*q^229 + (a^3 - a)*q^231 - a^3*q^233 + q^235 + q^237 + 1/2*(a^2 - a -
        1)*q^239 + 1/2*(a^3 - a^2 - a)*q^245 + 1/2*(a^2 + a - 1)*q^247 + (-a^3 - 1)*q^249 + 
        1/2*(-a^3 - 1)*q^253 + 1/2*(-a^3 + a^2 + a)*q^255 + (a^3 - a)*q^259 + 1/2*(-a^2 + a + 
        1)*q^265 + 1/2*(-a^2 - a + 1)*q^267 + 1/2*(a^2 - a - 1)*q^273 + 1/2*(-a^2 + a + 
        1)*q^275 + 1/2*(a^3 + 1)*q^279 + q^287 + 1/2*(a^2 + a - 1)*q^293 - a^2*q^295 + 1/2*(a^3
        - a^2 - a)*q^297 + 1/2*(-a^3 - a^2 + a)*q^299 + 1/2*(-a^2 + a + 1)*q^301 + a^3*q^303 + 
        1/2*(-a^3 - 1)*q^305 + O(q^306),
    q^3 + 1/2*(a^3 + 1)*q^5 + 1/2*(a^2 + a - 1)*q^7 + 1/2*(a^2 + a - 1)*q^11 + 1/2*(a^3 - 
        1)*q^13 + 1/2*(-a^2 + a + 1)*q^15 + 1/2*(a^3 + a^2 - a)*q^19 + 1/2*(a^3 - a^2 - a)*q^21
        - a^3*q^23 + a*q^25 - a^2*q^27 + 1/2*(-a^3 - 1)*q^31 + 1/2*(a^3 - a^2 - a)*q^33 + (a^3 
        - a^2 - a)*q^37 + 1/2*(a^2 - a - 1)*q^39 + (a^3 + 1)*q^41 + 1/2*(-a^3 - a^2 + a)*q^45 -
        a^3*q^49 + a^3*q^51 + a^2*q^53 + 1/2*(-a^3 - 1)*q^57 + 1/2*(-a^3 + 1)*q^59 + 1/2*(-a^3 
        + 1)*q^63 + 1/2*(a^2 - a - 1)*q^65 + 1/2*(-a^3 + a^2 + a)*q^73 - a^3*q^77 + (a^2 - 
        1)*q^79 + (-a^2 + a + 1)*q^83 + 1/2*(a^3 - 1)*q^85 + 1/2*(-a^3 + a^2 + a)*q^89 + 
        1/2*(-a^3 - a^2 + a)*q^91 + 1/2*(a^2 - a - 1)*q^93 + 1/2*(-a^3 + 1)*q^99 - a*q^101 + 
        1/2*(a^3 + a^2 - a)*q^109 - q^113 + 1/2*(-a^2 - a + 1)*q^115 + 1/2*(-a^3 + a^2 + 
        a)*q^117 + 1/2*(a^2 - a - 1)*q^119 - a^3*q^121 + (a^3 - a)*q^127 + (a^3 - a)*q^129 + 
        (-a^2 + 1)*q^133 + 1/2*(-a^3 - 1)*q^135 + (-a^3 + a^2 + a)*q^141 + 1/2*(-a^3 - a^2 + 
        a)*q^143 - a*q^155 + 1/2*(a^3 + a^2 - a)*q^161 + 1/2*(-a^3 + a^2 + a)*q^163 + (a^3 - 
        1)*q^167 + (-a^2 + 1)*q^169 + 1/2*(-a^2 + a + 1)*q^171 + a*q^173 + 1/2*(-a^3 - 1)*q^175
        + 1/2*(-a^2 - a + 1)*q^177 + (-a^3 + a)*q^181 - a^2*q^183 - q^185 + 1/2*(a^2 - a - 
        1)*q^187 + 1/2*(a^2 + a - 1)*q^189 + 1/2*(a^3 + a^2 - a)*q^195 + 1/2*(-a^3 - a^2 + 
        a)*q^197 + (a^3 - a)*q^199 + a*q^205 + (a^3 - a)*q^207 + (-a^2 + 1)*q^209 + 1/2*(a^3 - 
        a^2 - a)*q^215 + 1/2*(-a^3 + 1)*q^219 + 1/2*(-a^3 - 1)*q^221 - a^3*q^225 + 1/2*(-a^2 + 
        a + 1)*q^227 + 1/2*(-a^3 + 1)*q^229 + a*q^231 + a^2*q^235 + 1/2*(a^3 + 1)*q^239 + (a^2 
        - 1)*q^243 + 1/2*(-a^2 - a + 1)*q^245 + 1/2*(-a^3 + 1)*q^247 + (a^3 - a)*q^251 + 
        1/2*(a^3 + a^2 - a)*q^253 + 1/2*(a^2 + a - 1)*q^255 + a^3*q^257 + a*q^259 + (a^2 - 
        1)*q^263 + 1/2*(a^3 + 1)*q^265 + 1/2*(a^3 - 1)*q^267 + 1/2*(a^3 + 1)*q^273 + 1/2*(-a^3 
        - 1)*q^275 + 1/2*(a^3 + a^2 - a)*q^279 + a^3*q^283 - a^2*q^287 + 1/2*(-a^3 + 1)*q^293 +
        (-a^2 + 1)*q^295 + 1/2*(a^2 + a - 1)*q^297 + 1/2*(a^2 + a - 1)*q^299 + 1/2*(-a^3 - 
        1)*q^301 + 1/2*(-a^3 - a^2 + a)*q^305 + O(q^306)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.3 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^13 + a*q^25 + (a - 1)*q^37 - a*q^49 - 2*q^61 + (-a + 1)*q^73 + (-a - 1)*q^97 + (-a - 
        1)*q^109 + a*q^121 + q^169 + (a - 1)*q^193 + (-a + 1)*q^229 + (-a + 1)*q^241 + 
        2*a*q^277 + q^289 + O(q^306),
    q^2 - a*q^8 + q^26 - q^32 + a*q^50 + (a - 1)*q^68 + (a - 1)*q^74 - a*q^98 - a*q^104 + (a + 
        1)*q^116 - 2*q^122 + a*q^128 + (-a + 1)*q^146 - 2*a*q^164 + (-a - 1)*q^194 + q^200 + (a
        + 1)*q^212 + (-a - 1)*q^218 + a*q^242 + (a + 1)*q^272 + (a + 1)*q^296 + O(q^306),
    q^4 - a*q^16 + (-a - 1)*q^34 + q^52 + (a - 1)*q^58 - q^64 + 2*q^82 + a*q^100 + (a - 
        1)*q^106 + (a - 1)*q^136 + (a - 1)*q^148 - a*q^196 + (a + 1)*q^202 - a*q^208 + (-a + 
        1)*q^226 + (a + 1)*q^232 - 2*q^244 + a*q^256 - 2*a*q^274 + (-a + 1)*q^292 + 2*q^298 + 
        O(q^306),
    q^17 - a*q^29 + (a - 1)*q^41 - a*q^53 - q^101 + a*q^113 + (a + 1)*q^137 + (a - 1)*q^149 + 
        q^173 + q^221 - q^233 + q^257 - a*q^269 + (-a - 1)*q^281 + (-a - 1)*q^293 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^13 + a*q^37 - a*q^49 + (-a + 1)*q^61 - q^73 + (a - 1)*q^85 + (2*a - 2)*q^97 + 
        2*q^109 + (a - 1)*q^121 - a*q^145 - q^157 + (a - 1)*q^169 - q^181 + a*q^193 - a*q^205 +
        2*q^229 + (-a + 1)*q^241 + q^265 + (-a + 1)*q^277 + O(q^306),
    q^2 + (a - 1)*q^8 + a*q^20 - a*q^26 - a*q^32 - q^68 + a*q^74 - q^80 - a*q^98 + q^104 + (-a 
        + 1)*q^116 + (-a + 1)*q^122 + q^128 - q^146 + (-a + 1)*q^164 + (a - 1)*q^170 + (2*a - 
        2)*q^194 + a*q^212 + 2*q^218 + (a - 1)*q^242 + (-a + 1)*q^260 + (-a + 1)*q^272 - 
        a*q^290 - q^296 + O(q^306),
    q^3 - q^15 + (a - 1)*q^27 - a*q^39 + (-a + 1)*q^51 + a*q^87 + a*q^111 + a*q^123 + (-a + 
        1)*q^135 - a*q^147 - q^159 + (-a + 1)*q^183 + a*q^195 - q^219 - a*q^243 + (a - 1)*q^255
        - 2*a*q^267 + (2*a - 2)*q^291 + a*q^303 + O(q^306),
    q^4 + (-a + 1)*q^10 + (a - 1)*q^16 + a*q^34 + a*q^40 - a*q^52 - q^58 - a*q^64 - q^82 + (-a 
        + 1)*q^106 - q^130 - q^136 + a*q^148 - q^160 + 2*q^178 - a*q^196 - q^202 + q^208 + 
        a*q^226 + (-a + 1)*q^232 + (-a + 1)*q^244 + (a - 1)*q^250 + q^256 + a*q^274 - q^292 + 
        a*q^298 + O(q^306),
    q^5 + (a - 1)*q^17 - a*q^29 - a*q^41 + q^53 - a*q^65 + 2*a*q^89 - a*q^101 + (a - 1)*q^113 -
        q^125 + (a - 1)*q^137 + (a - 1)*q^149 + (-2*a + 2)*q^173 + a*q^185 + 2*a*q^197 + q^221 
        - 2*q^233 - a*q^245 - a*q^257 + (-2*a + 2)*q^269 + q^281 + (a - 1)*q^293 + (-a + 
        1)*q^305 + O(q^306),
    q^6 - a*q^12 + (a - 1)*q^24 - q^30 + q^48 + (a - 1)*q^54 + a*q^60 - a*q^78 - a*q^96 + (-a +
        1)*q^102 + q^108 + (-a + 1)*q^120 + (a - 1)*q^156 + a*q^174 + (a - 1)*q^192 - q^204 - 
        a*q^216 + a*q^222 - q^240 + a*q^246 + (-a + 1)*q^270 - a*q^294 + O(q^306),
    q^9 - q^45 + (a - 1)*q^81 - a*q^117 + (-a + 1)*q^153 + a*q^261 + O(q^306),
    q^18 - a*q^36 + (a - 1)*q^72 - q^90 + q^144 + (a - 1)*q^162 + a*q^180 - a*q^234 - a*q^288 +
        O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^5 + a*q^9 - a*q^13 + (a - 1)*q^17 + (a - 1)*q^21 - a*q^37 - q^41 + q^45 - 
        2*q^53 - a*q^57 + q^61 - q^65 + (-a + 1)*q^69 + (a - 1)*q^81 + a*q^85 + a*q^89 + a*q^93
        - q^97 + a*q^105 + (-a + 1)*q^117 - a*q^121 + q^125 + (-a + 1)*q^129 + (-a + 1)*q^133 +
        q^137 + q^141 - q^153 + (-a + 1)*q^157 + q^161 + (a - 1)*q^169 + q^173 - q^185 - q^189 
        + q^193 - a*q^197 + (a - 1)*q^201 + (a - 1)*q^205 - a*q^213 + (a - 1)*q^217 + q^221 + 
        (a - 1)*q^229 - q^237 + q^241 - q^249 + q^257 + (2*a - 2)*q^265 + (-a + 1)*q^269 + 
        q^273 - q^277 - a*q^281 - q^285 + q^301 + (-a + 1)*q^305 + O(q^306),
    q^2 + a*q^8 + (-a + 1)*q^10 - a*q^12 + a*q^18 - a*q^26 + (-a + 1)*q^28 + (a - 1)*q^32 + (a 
        - 1)*q^34 + q^40 + (a - 1)*q^42 + (-a + 1)*q^48 - q^60 + (a - 1)*q^72 - a*q^74 + a*q^76
        - q^82 + q^90 + (a - 1)*q^92 + (-a + 1)*q^104 - 2*q^106 + (-a + 1)*q^108 + q^112 - 
        a*q^114 + q^122 - a*q^124 - q^128 - q^130 - q^136 + (-a + 1)*q^138 - a*q^140 + (a - 
        1)*q^156 + a*q^160 + (a - 1)*q^162 - q^168 + a*q^170 + (a - 1)*q^172 + a*q^178 + 
        a*q^186 - q^188 + q^192 - q^194 + q^204 + a*q^210 + (-a + 1)*q^234 - a*q^240 - a*q^242 
        + q^250 + q^252 + (-a + 1)*q^258 + (-a + 1)*q^266 + (-a + 1)*q^268 + q^274 + q^282 + 
        a*q^284 - q^288 + (-a + 1)*q^296 + (a - 1)*q^304 + O(q^306),
    q^3 + a*q^7 + (-a + 1)*q^15 - q^19 - a*q^23 + a*q^27 + q^31 + q^35 - a*q^39 - a*q^43 + (-a 
        + 1)*q^47 + (a - 1)*q^51 + (a - 1)*q^63 + a*q^67 - q^71 + (a - 1)*q^79 + (a - 1)*q^83 +
        (-a + 1)*q^91 + (a - 1)*q^95 - q^103 + (a - 1)*q^107 - a*q^111 - q^115 - q^119 - q^123 
        + (-a + 1)*q^127 + q^131 + q^135 + (-2*a + 2)*q^139 + (a - 1)*q^151 + (-a + 1)*q^155 - 
        2*q^159 - q^163 + a*q^167 - a*q^171 + (-a + 1)*q^179 + q^183 + a*q^191 - q^195 + q^199 
        + (-a + 1)*q^207 + a*q^211 - q^215 + a*q^227 - a*q^235 + q^239 + (a - 1)*q^243 + 
        a*q^247 + q^251 + a*q^255 + (-a + 1)*q^259 + a*q^267 + (-a + 1)*q^271 + a*q^279 - 
        a*q^283 - a*q^287 - q^291 + (a - 1)*q^299 + O(q^306),
    q^4 - q^6 - a*q^14 + a*q^16 + (-a + 1)*q^20 - a*q^24 + (a - 1)*q^30 + a*q^36 + q^38 + 
        a*q^46 - a*q^52 - a*q^54 + (-a + 1)*q^56 - q^62 + (a - 1)*q^64 + (a - 1)*q^68 - q^70 + 
        a*q^78 + q^80 + (a - 1)*q^84 + a*q^86 + (a - 1)*q^94 + (-a + 1)*q^96 + (-a + 1)*q^102 -
        q^120 + (-a + 1)*q^126 - a*q^134 + q^142 + (a - 1)*q^144 - a*q^148 + a*q^152 + (-a + 
        1)*q^158 - q^164 + (-a + 1)*q^166 + q^180 + (a - 1)*q^182 + (a - 1)*q^184 + (-a + 
        1)*q^190 + q^206 + (-a + 1)*q^208 - 2*q^212 + (-a + 1)*q^214 + (-a + 1)*q^216 + a*q^222
        + q^224 - a*q^228 + q^230 + q^238 + q^244 + q^246 - a*q^248 + (a - 1)*q^254 - q^256 - 
        q^260 - q^262 - q^270 - q^272 + (-a + 1)*q^276 + (2*a - 2)*q^278 - a*q^280 + (-a + 
        1)*q^302 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^19 - a*q^37 - a*q^55 - q^73 - q^79 + a*q^91 + (-a + 1)*q^97 + a*q^115 + 
        a*q^133 + a*q^145 + q^151 - q^157 + (-a + 1)*q^163 - a*q^169 + (-a + 1)*q^175 + q^181 +
        a*q^193 + (-a + 1)*q^199 + a*q^211 + (a - 1)*q^217 - a*q^223 + q^229 + q^235 + (a - 
        1)*q^241 - a*q^247 + (a - 1)*q^253 - q^259 + (a - 1)*q^277 - a*q^289 + (-a + 1)*q^295 -
        a*q^301 + O(q^306),
    q^2 + (a - 1)*q^38 - a*q^74 - a*q^110 - q^146 - q^158 + a*q^182 + (-a + 1)*q^194 + a*q^230 
        + a*q^266 + a*q^290 + q^302 + O(q^306),
    q^3 - a*q^9 + (-a + 1)*q^21 + (a - 1)*q^27 + (a - 1)*q^39 + (2*a - 2)*q^57 - q^63 + q^75 + 
        q^81 - q^93 - 2*a*q^111 + q^117 + (-a + 1)*q^129 + 2*q^171 + (-a + 1)*q^183 + a*q^189 +
        a*q^201 - q^219 - a*q^225 - q^237 - a*q^243 + a*q^273 + a*q^279 + (-a + 1)*q^291 + 
        O(q^306),
    q^5 + a*q^11 - a*q^23 - a*q^29 + (a - 1)*q^35 - q^47 + (a - 1)*q^59 + (-a + 1)*q^65 + (-a +
        1)*q^71 - q^77 + a*q^101 - a*q^107 + (a - 1)*q^113 + q^131 + q^143 + q^155 + q^161 + (a
        - 1)*q^173 + (-a + 1)*q^191 + q^203 + (a - 1)*q^215 - q^233 - a*q^275 - q^281 + (-a + 
        1)*q^293 - q^299 + (a - 1)*q^305 + O(q^306),
    q^6 - a*q^18 + (-a + 1)*q^42 + (a - 1)*q^54 + (a - 1)*q^78 + (2*a - 2)*q^114 - q^126 + 
        q^150 + q^162 - q^186 - 2*a*q^222 + q^234 + (-a + 1)*q^258 + O(q^306),
    q^7 - q^13 - q^19 + a*q^25 - a*q^31 + (-a + 1)*q^37 + q^43 + (a - 1)*q^55 + q^61 + (a - 
        1)*q^67 - a*q^103 - a*q^109 + (-a + 1)*q^115 - q^121 + (a - 1)*q^127 + (a - 1)*q^133 + 
        q^139 + (-a + 1)*q^145 + a*q^151 + a*q^181 + (-a + 1)*q^223 + a*q^229 - a*q^235 - q^241
        + (-a + 1)*q^247 + q^253 - a*q^259 + (a - 1)*q^271 - q^277 + (a - 1)*q^283 - q^295 + 
        O(q^306),
    q^10 + a*q^22 - a*q^46 - a*q^58 + (a - 1)*q^70 - q^94 + (a - 1)*q^118 + (-a + 1)*q^130 + 
        (-a + 1)*q^142 - q^154 + a*q^202 - a*q^214 + (a - 1)*q^226 + q^262 + q^286 + O(q^306),
    q^14 - q^26 - q^38 + a*q^50 - a*q^62 + (-a + 1)*q^74 + q^86 + (a - 1)*q^110 + q^122 + (a - 
        1)*q^134 - a*q^206 - a*q^218 + (-a + 1)*q^230 - q^242 + (a - 1)*q^254 + (a - 1)*q^266 +
        q^278 + (-a + 1)*q^290 + a*q^302 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^5 - q^9 + q^13 + (a - 1)*q^17 - a*q^21 - a*q^37 + (-a + 1)*q^41 - a*q^45 - 2*q^53 +
        (a - 1)*q^57 - a*q^61 + a*q^65 + (-a + 1)*q^69 + q^81 - q^85 + a*q^89 + a*q^93 + a*q^97
        + (-a + 1)*q^105 - q^117 + q^121 + q^125 + a*q^129 - q^133 - a*q^137 + (a - 1)*q^141 + 
        (-a + 1)*q^153 + a*q^157 + q^161 + q^169 - a*q^173 + (-a + 1)*q^185 + a*q^189 + (a - 
        1)*q^193 - a*q^197 + (a - 1)*q^201 + q^205 + (a - 1)*q^213 + (a - 1)*q^217 + (a - 
        1)*q^221 - a*q^229 + (-a + 1)*q^237 - a*q^241 + (-a + 1)*q^249 + (a - 1)*q^257 - 
        2*a*q^265 + (-a + 1)*q^269 - a*q^273 + a*q^277 + (a - 1)*q^281 - q^285 + (a - 1)*q^301 
        + (-a + 1)*q^305 + O(q^306),
    q^2 - q^8 + a*q^10 + q^12 - q^18 + q^26 + a*q^28 + q^32 + (a - 1)*q^34 - a*q^40 - a*q^42 - 
        q^48 + a*q^60 + q^72 - a*q^74 + (-a + 1)*q^76 + (-a + 1)*q^82 - a*q^90 + (a - 1)*q^92 -
        q^104 - 2*q^106 - q^108 - a*q^112 + (a - 1)*q^114 - a*q^122 - a*q^124 - q^128 + a*q^130
        + (-a + 1)*q^136 + (-a + 1)*q^138 + (a - 1)*q^140 + q^156 + a*q^160 + q^162 + a*q^168 -
        q^170 - a*q^172 + a*q^178 + a*q^186 + (-a + 1)*q^188 + q^192 + a*q^194 + (a - 1)*q^204 
        + (-a + 1)*q^210 - q^234 - a*q^240 + q^242 + q^250 - a*q^252 + a*q^258 - q^266 + (-a + 
        1)*q^268 - a*q^274 + (a - 1)*q^282 + (-a + 1)*q^284 - q^288 + a*q^296 + (a - 1)*q^304 +
        O(q^306),
    q^3 + a*q^7 + a*q^15 + (-a + 1)*q^19 + (a - 1)*q^23 - q^27 - a*q^31 + (a - 1)*q^35 + q^39 -
        a*q^43 + (-a + 1)*q^47 + (a - 1)*q^51 - a*q^63 + (-a + 1)*q^67 + (-a + 1)*q^71 + (a - 
        1)*q^79 + (a - 1)*q^83 + a*q^91 + q^95 + a*q^103 - a*q^107 - a*q^111 - q^115 - q^119 + 
        (-a + 1)*q^123 + a*q^127 - a*q^131 - a*q^135 - 2*q^139 + (a - 1)*q^151 + (-a + 1)*q^155
        - 2*q^159 + (-a + 1)*q^163 + (-a + 1)*q^167 + (a - 1)*q^171 + a*q^179 - a*q^183 + 
        a*q^191 + a*q^195 + (a - 1)*q^199 + (-a + 1)*q^207 + (-a + 1)*q^211 + (-a + 1)*q^215 + 
        a*q^227 + q^235 - a*q^239 + q^243 + (-a + 1)*q^247 + (a - 1)*q^251 - q^255 + (-a + 
        1)*q^259 + a*q^267 + a*q^271 + a*q^279 + (a - 1)*q^283 + q^287 + a*q^291 + (a - 
        1)*q^299 + O(q^306),
    q^4 - q^6 - a*q^14 - q^16 + a*q^20 + q^24 - a*q^30 - q^36 + (a - 1)*q^38 + (-a + 1)*q^46 + 
        q^52 + q^54 + a*q^56 + a*q^62 + q^64 + (a - 1)*q^68 + (-a + 1)*q^70 - q^78 - a*q^80 - 
        a*q^84 + a*q^86 + (a - 1)*q^94 - q^96 + (-a + 1)*q^102 + a*q^120 + a*q^126 + (a - 
        1)*q^134 + (a - 1)*q^142 + q^144 - a*q^148 + (-a + 1)*q^152 + (-a + 1)*q^158 + (-a + 
        1)*q^164 + (-a + 1)*q^166 - a*q^180 - a*q^182 + (a - 1)*q^184 - q^190 - a*q^206 - q^208
        - 2*q^212 + a*q^214 - q^216 + a*q^222 - a*q^224 + (a - 1)*q^228 + q^230 + q^238 - 
        a*q^244 + (a - 1)*q^246 - a*q^248 - a*q^254 - q^256 + a*q^260 + a*q^262 + a*q^270 + (-a
        + 1)*q^272 + (-a + 1)*q^276 + 2*q^278 + (a - 1)*q^280 + (-a + 1)*q^302 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 4*H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 5*H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^25 - q^49 + q^121 - 2*q^157 + q^169 + 2*q^181 + 2*q^205 - 2*q^277 - 
        q^289 + O(q^306),
    q^2 + q^20 + q^32 - q^44 - q^50 - q^80 - q^98 - q^104 - q^164 - q^176 - 
        q^188 + 2*q^200 + q^236 + q^242 + q^260 + q^284 + O(q^306),
    q^4 + q^16 - 2*q^22 - q^52 + q^64 - 2*q^88 - 2*q^94 + q^100 + 2*q^118 + 
        2*q^142 + 2*q^166 - q^196 - q^208 - 2*q^244 + q^256 + 2*q^286 + 
        O(q^306),
    q^5 - q^41 + q^65 - q^89 - 2*q^125 + q^137 - q^149 + q^197 - q^245 + q^281 +
        q^293 + 2*q^305 + O(q^306),
    q^8 - q^20 - q^26 - q^44 + 2*q^50 + q^80 - 2*q^122 + q^128 + q^164 - q^176 -
        q^188 - q^200 + q^236 + 2*q^242 - q^260 + q^284 + O(q^306),
    q^10 + q^16 - q^22 - q^40 - q^52 - q^82 - q^88 - q^94 + 2*q^100 + q^118 + 
        q^130 + q^142 + q^160 + q^166 - q^178 - 2*q^244 - 2*q^250 + q^256 + 
        q^274 + q^286 - q^298 + O(q^306),
    q^11 + q^47 - q^59 - q^71 - q^83 - q^143 + q^167 + q^227 - q^239 + q^275 + 
        O(q^306),
    q^13 - 2*q^25 + 2*q^61 - 2*q^121 + 2*q^205 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^13 + q^14 + q^16 + q^17 - q^22 - q^26 - q^35 - q^43 + 2*q^55 + q^56 + 
        2*q^61 - 2*q^62 + 2*q^64 + q^65 + q^68 + q^74 - 2*q^79 + q^82 + q^88 - 
        q^91 - 2*q^94 - q^100 - q^104 - 2*q^107 - 2*q^113 - q^118 + q^121 - 
        2*q^127 + q^130 + q^131 - q^139 - q^140 - 2*q^142 + 2*q^155 - 2*q^160 + 
        q^166 + q^169 - q^170 - 3*q^172 - q^178 + q^179 - q^185 + q^196 + 
        2*q^199 - 2*q^205 + q^208 - q^211 - 2*q^217 + q^218 + q^224 + q^233 + 
        q^235 + q^238 - 2*q^248 + q^250 - 2*q^251 + q^256 + q^257 + q^259 + 
        q^260 + q^272 + q^274 + 2*q^283 + q^286 + 2*q^295 + q^296 + 3*q^298 + 
        q^302 + O(q^306),
    q^2 + q^8 + 2*q^11 - 2*q^20 + q^26 - q^32 - 2*q^41 + q^50 + 2*q^59 - 2*q^65 
        - 2*q^83 + 2*q^86 + 2*q^89 - q^98 - q^104 - 2*q^110 - 2*q^122 - q^128 - 
        2*q^137 + 2*q^158 - 2*q^176 + 2*q^188 + q^200 - 2*q^227 - q^242 + 
        2*q^254 + 2*q^275 - 2*q^278 + 2*q^281 + 2*q^284 + 4*q^305 + O(q^306),
    q^4 + q^14 + 2*q^16 + q^17 + q^22 - q^25 - q^26 - q^35 - 2*q^40 - 3*q^43 + 
        q^49 + q^52 + q^56 - 2*q^62 + q^64 + q^65 + q^68 + q^74 - q^82 + q^88 - 
        q^91 - 2*q^94 - q^104 - 2*q^107 - 2*q^113 + q^118 + 2*q^121 - q^130 + 
        q^131 + q^139 - q^140 - 2*q^142 + 2*q^155 - 2*q^160 - q^166 + 2*q^169 - 
        q^170 - q^172 + q^178 + q^179 - q^185 - q^211 - 2*q^217 + q^218 - 
        2*q^220 + q^224 + q^233 + 3*q^235 + q^238 - 2*q^244 - 2*q^248 + q^250 - 
        2*q^251 + q^257 + q^259 + q^260 + q^272 - q^274 + 2*q^283 + q^286 + 
        q^289 + q^296 + 3*q^298 + q^302 + O(q^306),
    q^5 + q^8 + q^11 - q^20 + q^26 - q^41 + q^44 - q^47 + q^59 - q^65 - q^71 - 
        q^80 - q^83 + q^89 - 2*q^110 - 2*q^122 - q^128 - q^137 + q^143 + q^149 +
        2*q^158 - q^164 - q^167 - q^176 + q^188 - q^197 + q^200 + 2*q^215 - 
        q^227 + q^236 - q^239 - q^245 + 2*q^254 - q^260 + q^275 + q^281 + q^284 
        - q^293 + 2*q^305 + O(q^306),
    q^7 + q^8 - q^11 - q^13 + q^28 - 2*q^31 + 2*q^32 + q^34 + q^37 + q^41 + q^44
        - 2*q^47 - q^50 - q^52 - q^59 + q^65 - q^70 - 2*q^71 - 2*q^80 + q^83 - 
        q^85 - 3*q^86 - q^89 + q^98 + q^104 + q^109 + q^112 + q^119 - 2*q^124 + 
        q^125 + q^128 + q^130 + q^136 + q^137 + q^143 + q^148 + 3*q^149 + q^151 
        - q^164 + q^167 + q^176 - q^182 - 2*q^188 - 2*q^197 - q^208 - 2*q^214 + 
        3*q^215 - q^221 + q^223 - 2*q^226 + q^227 + q^229 + q^236 - 2*q^239 + 
        2*q^242 - q^245 - q^260 + q^262 + q^271 - q^275 + q^278 - q^280 - q^281 
        - 2*q^284 - 2*q^293 - q^301 - 2*q^305 + O(q^306),
    q^10 - q^13 + q^14 + 2*q^16 + q^17 - q^25 - q^26 - q^35 - q^40 - 3*q^43 + 
        q^49 + q^52 + 2*q^55 + q^56 + 2*q^61 - 2*q^62 + 2*q^64 + q^65 + q^68 + 
        q^74 - 2*q^79 + 2*q^88 - q^91 - 3*q^94 - q^100 - q^104 - 2*q^107 - 
        2*q^113 + 2*q^121 - 2*q^127 + q^131 + q^139 - q^140 - 3*q^142 + 2*q^155 
        - 3*q^160 + 2*q^169 - q^170 - 3*q^172 + q^179 - q^185 + q^196 + 2*q^199 
        - 2*q^205 + q^208 - q^211 - 2*q^217 + q^218 - 2*q^220 + q^224 + q^233 + 
        3*q^235 + q^238 - 2*q^244 - 2*q^248 + q^250 - 2*q^251 + q^257 + q^259 + 
        q^260 + q^272 + 2*q^283 + 2*q^286 + q^289 + 2*q^295 + q^296 + 4*q^298 + 
        q^302 + O(q^306)
]
;
Bo:=
[
    q + q^4 - q^10 - q^14 + q^16 - q^17 + q^26 + q^35 - q^40 - q^43 - q^56 + 
        2*q^62 + q^64 - q^65 - q^68 - q^74 - q^91 - q^94 + q^104 + 2*q^107 + 
        2*q^113 + q^121 - q^131 - q^139 + q^140 - q^142 - 2*q^155 - q^160 + 
        q^169 + q^170 - q^172 - q^179 + q^185 - q^211 - 2*q^217 - q^218 - q^224 
        - q^233 + q^235 + q^238 + 2*q^248 + q^250 + 2*q^251 + q^256 - q^257 + 
        q^259 - q^260 - q^272 + 2*q^283 - q^296 + 2*q^298 - q^302 + O(q^306),
    q^2 - q^5 - q^7 + q^8 + q^13 - q^20 - q^28 + 2*q^31 + q^32 - q^34 - q^37 - 
        q^47 + q^52 + q^70 - q^71 - q^80 + q^85 - q^86 - q^109 - q^112 + q^119 +
        2*q^124 + q^125 + q^128 - q^130 - q^136 - q^148 + 2*q^149 - q^151 + 
        2*q^167 - q^182 - q^188 - q^197 + q^208 + 2*q^214 + q^215 - q^221 - 
        q^223 + 2*q^226 - q^229 - q^239 + q^242 - q^262 - q^271 - q^278 + q^280 
        - q^284 - q^293 + q^301 + O(q^306),
    q^3 + q^12 - q^27 - q^30 - q^42 + q^48 - q^51 + q^78 + q^81 + q^105 - q^108 
        - q^120 - q^129 - q^168 + 2*q^186 + q^192 - q^195 - q^204 - q^222 + 
        q^270 - q^273 - q^282 + O(q^306),
    q^6 - q^15 - q^21 + q^24 + q^39 - q^54 - q^60 - q^84 + 2*q^93 + q^96 - q^102
        - q^111 + q^135 - q^141 + q^156 + q^162 + q^189 + q^210 - q^213 - q^216 
        - q^240 + q^255 - q^258 + O(q^306),
    q^9 - q^27 + q^36 - q^90 - q^108 - q^126 + q^144 - q^153 + q^234 + q^243 + 
        q^270 + O(q^306),
    q^18 - q^45 - q^54 - q^63 + q^72 + q^117 + q^135 - q^180 + q^189 - q^216 - 
        q^252 + 2*q^279 + q^288 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^3 + (a - 1)*q^9 + a*q^13 + (-2*a + 1)*q^17 + (a - 2)*q^23 + (-a + 
        1)*q^25 - q^27 + (a - 1)*q^39 + (-a + 1)*q^43 - a*q^49 + (-a + 2)*q^51 +
        (-2*a + 1)*q^53 + (a - 1)*q^61 + (-a - 1)*q^69 + q^75 + (a - 1)*q^79 - 
        a*q^81 + (a + 1)*q^101 - 2*a*q^103 + (2*a - 1)*q^107 + (a - 2)*q^113 - 
        q^117 + a*q^121 - 2*q^127 + q^129 + (-a + 2)*q^131 + a*q^139 + (-a + 
        1)*q^147 + (a + 1)*q^153 + a*q^157 + (-a + 2)*q^159 + (a - 1)*q^169 + (a
        + 1)*q^173 + (2*a - 1)*q^179 - q^181 - q^183 + (a + 1)*q^191 + q^199 + 
        (-2*a + 1)*q^207 - a*q^211 + (-a + 2)*q^221 + a*q^225 + (2*a - 1)*q^233 
        - q^237 + (-a + 1)*q^243 + (-2*a + 1)*q^251 + (a - 2)*q^257 + (-a - 
        1)*q^263 + (2*a - 2)*q^277 - a*q^283 - 2*q^289 + (-a - 1)*q^299 + (2*a -
        1)*q^303 + O(q^306),
    q^2 + a*q^6 + (a - 1)*q^18 + a*q^26 + (-2*a + 1)*q^34 + (a - 2)*q^46 + (-a +
        1)*q^50 - q^54 + (a - 1)*q^78 + (-a + 1)*q^86 - a*q^98 + (-a + 2)*q^102 
        + (-2*a + 1)*q^106 + (a - 1)*q^122 + (-a - 1)*q^138 + q^150 + (a - 
        1)*q^158 - a*q^162 + (a + 1)*q^202 - 2*a*q^206 + (2*a - 1)*q^214 + (a - 
        2)*q^226 - q^234 + a*q^242 - 2*q^254 + q^258 + (-a + 2)*q^262 + a*q^278 
        + (-a + 1)*q^294 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^4 - a*q^16 - a*q^25 + q^26 + (a - 1)*q^27 + q^30 - q^35 - 
        a*q^42 + (a - 1)*q^49 - a*q^51 - q^62 + q^64 + q^75 + (a - 1)*q^90 + 
        q^100 + (a - 1)*q^104 + q^105 + 2*q^107 - a*q^108 + (-a + 1)*q^113 + (a 
        - 1)*q^120 + (a - 1)*q^121 + (a - 1)*q^126 + (a - 1)*q^129 + (-a + 
        1)*q^140 + q^147 - a*q^153 + q^168 - a*q^169 - q^170 + (2*a - 2)*q^185 -
        a*q^195 - a*q^196 + q^204 - a*q^222 - a*q^225 - q^235 + (-a + 1)*q^238 +
        (-a + 1)*q^248 + a*q^250 - q^251 + (a - 1)*q^256 + a*q^259 + (a - 
        1)*q^273 + q^282 + (-a + 1)*q^283 + q^289 - q^298 + (a - 1)*q^300 + 
        O(q^306),
    q^2 + (a - 1)*q^8 - a*q^13 - a*q^15 + (a - 1)*q^21 + a*q^31 - a*q^32 + q^45 
        - a*q^50 + q^52 + (a - 1)*q^54 + q^60 + q^63 - q^70 - a*q^84 + a*q^85 + 
        (a - 1)*q^98 - a*q^102 + (a - 1)*q^111 - q^119 - q^124 + (-a + 1)*q^125 
        + q^128 - a*q^141 + a*q^149 + q^150 + a*q^167 - 2*a*q^175 + (a - 
        1)*q^180 + q^200 + (a - 1)*q^208 + q^210 - a*q^213 + 2*q^214 + (-a + 
        1)*q^215 - a*q^216 + (-a + 1)*q^226 + (a - 1)*q^240 + (a - 1)*q^242 - 
        q^245 + (a - 1)*q^252 + (a - 1)*q^255 + (a - 1)*q^258 + (-a + 1)*q^280 +
        q^294 + a*q^301 + O(q^306),
    q^3 + q^10 + (a - 1)*q^12 + q^14 + (a - 1)*q^17 + (a - 1)*q^25 + q^35 + (a -
        1)*q^40 + q^43 - a*q^48 - a*q^49 + (a - 1)*q^56 - a*q^65 - a*q^68 - 
        a*q^74 - a*q^75 + q^78 + (a - 1)*q^81 + q^90 - a*q^91 - a*q^94 - a*q^100
        - q^105 - a*q^126 - a*q^131 + q^139 + (a - 1)*q^140 + (a - 1)*q^142 + (a
        - 1)*q^147 - a*q^153 + a*q^155 - a*q^160 + (a - 1)*q^170 + (a - 1)*q^172
        - a*q^179 + q^185 - q^186 + q^192 + q^196 + (a - 1)*q^211 + a*q^217 + 
        q^218 - a*q^224 + q^225 - a*q^233 + (a - 1)*q^235 + q^238 - a*q^250 + (a
        - 1)*q^257 - a*q^259 + q^260 + (a - 1)*q^270 + q^272 + q^289 + q^296 + 
        q^300 + (a - 1)*q^302 + O(q^306),
    q^5 - a*q^7 + (a - 1)*q^15 - a*q^18 + (a - 1)*q^20 + (a - 1)*q^21 + q^28 + 
        q^34 - a*q^37 + q^47 + (a - 1)*q^50 - a*q^60 + (a - 1)*q^70 + q^71 + 
        q^72 - a*q^80 - a*q^84 - a*q^85 - a*q^86 + (a - 1)*q^98 + q^102 + (a - 
        1)*q^109 + q^111 + (a - 1)*q^112 + (a - 1)*q^117 - a*q^119 - a*q^125 + 
        q^130 + (a - 1)*q^135 + (a - 1)*q^136 + q^141 + q^148 + q^150 + (a - 
        1)*q^151 - q^175 - a*q^182 + (a - 1)*q^188 + q^189 + q^197 - a*q^200 - 
        a*q^210 - a*q^213 + (a - 1)*q^215 - a*q^221 + q^223 + q^229 - a*q^239 + 
        q^240 + a*q^245 - a*q^255 - a*q^258 + (a - 1)*q^262 - a*q^271 + q^278 + 
        (-a + 1)*q^279 - a*q^280 + (a - 1)*q^284 + (a - 1)*q^288 + (a - 1)*q^293
        + (a - 1)*q^294 + (a - 1)*q^301 + O(q^306),
    q^6 + (-2*a + 1)*q^7 - q^15 + (-a + 1)*q^18 - q^21 + (a - 1)*q^24 + (a + 
        1)*q^28 + (2*a - 1)*q^34 - a*q^39 - a*q^45 + (2*a - 1)*q^47 + (a - 
        2)*q^50 + (-a + 1)*q^60 + (a - 1)*q^63 + (a + 1)*q^71 + a*q^72 + (-a + 
        1)*q^84 + (-a + 2)*q^85 + (-a + 2)*q^86 + a*q^93 - a*q^96 + (-a - 
        1)*q^98 + a*q^102 + (-a - 1)*q^109 + a*q^111 + (a - 2)*q^112 - q^117 + 
        (-2*a + 1)*q^119 + (-a - 1)*q^136 + a*q^141 + q^156 + (a - 1)*q^162 + 
        q^180 + (-2*a + 1)*q^182 + (-a - 1)*q^188 + (a + 1)*q^189 + (a + 
        1)*q^197 + (-2*a + 1)*q^200 - a*q^210 + (-a + 1)*q^213 + (-a - 1)*q^215 
        + (-a + 2)*q^221 + (2*a - 1)*q^223 + (-a + 2)*q^239 + a*q^240 + (2*a - 
        1)*q^245 - a*q^252 + q^255 + (-a + 1)*q^258 + (-a - 1)*q^262 + (a + 
        1)*q^278 + q^279 + (a - 2)*q^284 - q^288 + (a - 2)*q^293 + (a - 2)*q^294
        + (a - 2)*q^301 + O(q^306),
    q^9 - a*q^10 + (a - 1)*q^14 + (a - 1)*q^17 - a*q^25 + q^30 - a*q^35 + (a - 
        1)*q^36 + q^40 + q^42 + q^43 - a*q^49 + (a - 1)*q^51 - a*q^56 + (a - 
        1)*q^65 - a*q^68 + (a - 1)*q^74 + (a - 1)*q^75 + q^91 - a*q^94 + q^100 +
        q^105 + (a - 1)*q^120 + q^129 - a*q^131 + (a - 1)*q^139 + q^140 - 
        a*q^142 - a*q^144 - a*q^147 + (-a + 1)*q^155 + (a - 1)*q^160 + (a - 
        1)*q^168 + (a - 1)*q^170 + (a - 1)*q^172 + q^179 + (a - 1)*q^185 - 
        a*q^195 + q^196 - a*q^204 + q^211 - q^217 + q^218 - a*q^222 + q^224 - 
        a*q^225 + q^233 + q^234 + (a - 1)*q^235 + (a - 1)*q^238 + (a - 1)*q^243 
        + (a - 1)*q^250 + q^257 + (a - 1)*q^259 - a*q^260 + q^270 + q^272 - 
        a*q^273 - a*q^282 - a*q^289 - a*q^296 - a*q^300 + q^302 + O(q^306)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^13 - q^25 + 2*q^43 + q^49 - 2*q^61 - 2*q^79 + 2*q^103 - q^121 - 
        2*q^127 + 2*q^139 + 2*q^157 + q^169 + 2*q^181 - 2*q^199 - 2*q^211 + 
        2*q^277 - 2*q^283 + q^289 + O(q^306),
    q^2 - q^26 - q^50 + 2*q^86 + q^98 - 2*q^122 - 2*q^158 + 2*q^206 - q^242 - 
        2*q^254 + 2*q^278 + O(q^306),
    q^3 - q^9 + q^27 - q^39 - q^75 - q^81 + q^117 + 2*q^129 + q^147 - 2*q^183 + 
        q^225 - 2*q^237 + q^243 + O(q^306),
    q^4 - q^16 - q^52 + q^64 - q^100 + 2*q^172 + q^196 + q^208 - 2*q^244 - q^256
        + O(q^306),
    q^6 - q^18 + q^54 - q^78 - q^150 - q^162 + q^234 + 2*q^258 + q^294 + 
        O(q^306),
    q^8 - q^32 - q^104 + q^128 - q^200 + O(q^306),
    q^12 - q^36 - q^48 + q^108 + q^144 - q^156 + q^192 - q^300 + O(q^306),
    q^24 - q^72 - q^96 + q^216 + q^288 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
936
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^10 - q^16 + q^22 - q^25 - q^40 + q^49 + q^52 + 2*q^55 - q^82 + q^88 - 
        q^94 - 2*q^103 - q^118 - q^121 + q^130 + q^142 + q^160 + q^166 - q^169 +
        q^178 - 2*q^244 + q^256 + q^274 - q^286 + q^289 - 2*q^295 + q^298 + 
        O(q^306),
    q^2 - q^8 - 2*q^20 + q^26 - q^32 - 2*q^41 + 2*q^44 - 2*q^47 - q^50 + 2*q^65 
        + 2*q^71 + 2*q^89 + q^98 + q^104 + 2*q^110 - 2*q^122 + q^128 + 2*q^137 -
        2*q^143 - 2*q^167 + q^200 - 2*q^206 - 2*q^236 + 2*q^239 - q^242 - 
        2*q^281 - 4*q^305 + O(q^306),
    q^3 - q^27 - q^30 + q^36 - q^48 + q^66 - q^75 + q^90 - q^117 - q^120 + q^147
        + q^156 + 2*q^165 - q^198 + q^243 - q^246 + q^264 + q^270 - q^282 + 
        O(q^306),
    q^4 + q^10 - q^13 - q^22 - q^40 + 2*q^61 - q^64 - q^82 + q^88 - q^94 - q^100
        + q^118 + q^130 + q^142 - q^160 - q^166 + q^178 + q^196 - 2*q^205 + 
        q^208 + 2*q^211 + 2*q^220 - 2*q^235 + q^274 - 2*q^283 - q^286 - q^298 + 
        O(q^306),
    q^5 + q^8 - q^11 + q^20 - q^26 + q^41 - q^44 + q^47 + q^59 - q^65 - q^71 - 
        q^80 - q^83 - q^89 + 2*q^122 - q^128 - q^137 + q^143 - q^149 - q^164 + 
        q^167 + q^176 - q^188 - q^197 - q^200 + q^227 + q^236 - q^239 + q^245 + 
        q^260 + q^275 + q^281 + q^284 - q^293 + 2*q^305 + O(q^306),
    q^6 + q^18 - q^24 + 2*q^45 - q^54 - 2*q^60 + q^72 + q^78 - q^96 - 2*q^99 - 
        2*q^123 + 2*q^132 - 2*q^141 - q^150 - q^162 + 2*q^195 + 2*q^213 + q^216 
        - q^234 + 2*q^267 - q^288 + q^294 + O(q^306),
    q^9 - q^12 - q^30 + q^39 + q^66 - q^81 - q^90 + q^108 + q^120 - q^144 - 
        2*q^183 + q^192 + q^198 - q^225 + q^246 - q^264 + q^270 + q^282 + q^300 
        + O(q^306),
    q^15 - q^18 + q^24 - q^33 - q^45 + q^60 - q^78 + q^99 + q^123 - q^132 - 
        q^135 + q^141 + q^162 + q^177 + q^180 - q^195 - q^213 - q^216 - q^240 - 
        q^249 - q^267 + q^288 + q^297 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
937
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
936
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
937
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
312
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
937
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
104
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
937
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
937
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
39*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
937
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
117*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
156
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^2*q^4 + (-a^12 + a)*q^7 + (a^19 - a^16 - a^15 + a^13 + a^12 - a^9 - 
        a^8 + a^6 + a^5 - a^3 - a^2 + 1)*q^8 + a^12*q^9 + (-a^16 - a^14 + a^5 + 
        a^3)*q^11 + (a^7 - a^4 + a)*q^16 + (-a^19 + a^17 + a^16 - a^14 - a^13 + 
        a^11 + a^10 + a^9 - a^7 - a^6 + a^4 - a - 1)*q^23 + (a^19 - a^8)*q^25 + 
        (a^14 - a^3)*q^28 + (-a^19 - a^18 + a^16 + a^15 - a^13 - a^12 + a^9 + 
        a^8 - a^6 - a^5 + a^3 + a^2 - a - 1)*q^29 + (a^19 - a^16 - a^15 + a^14 +
        a^13 + a^12 - a^11 - a^10 - a^9 + a^7 + a^6 - a^3 + 1)*q^32 - a^14*q^36 
        + (a^18 + a^15 - a^4)*q^37 + (-a^18 + a^11 + a^7 - 1)*q^43 + (a^18 + 
        a^16 - a^7 - a^5)*q^44 - a^13*q^49 + (a^8 - a^7)*q^53 + (a^11 - 
        a^8)*q^56 + a^2*q^63 + (-a^12 + a^9 - a^6 + a^3 - 1)*q^64 + a^4*q^67 + 
        (a^17 - a^9 - a^6)*q^71 + (-a^19 + a^8 - 1)*q^72 + (-a^17 - a^15)*q^77 +
        (a^14 + a^2)*q^79 + (a^13 - a^2)*q^81 + (a^15 + a^13 - a^12 - a^10)*q^88
        + (-a^11 + a^5 + 1)*q^92 + (a^6 + a^4)*q^99 + (-a^19 - a^18 + a^16 + 
        a^15 - a^13 - a^12 + a^10 + a^9 + a^8 - a^6 - a^5 + a^3 + a^2 - 1)*q^100
        + (a^19 - a^17 - a^16 + a^14 + a^13 - a^11 - a^10 + a^7 + a^6 - a^5 - 
        a^4 - a^3 + a + 1)*q^107 + (a^16 - a^11)*q^109 + (-a^19 + a^16 - a^13 + 
        a^8 - a^5 + a^2)*q^112 + (a^18 - a^7)*q^113 + (a^12 + a^3 - a)*q^116 + 
        (-2*a^19 - a^18 - a^17 + a^16 + a^15 - a^13 - a^12 + a^9 + a^8 - a^6 - 
        a^5 + a^3 + a^2 - 1)*q^121 + (a^19 + a^18 - a^16 - a^15 + a^14 + a^13 + 
        a^12 - a^10 - a^9 - a^8 + a^6 + a^5 - a^3 - a^2 + 1)*q^127 + (-a^13 + 
        a^10 - a^7 + a^4 - a)*q^128 + (-a^11 - a)*q^137 + (a^19 - a^16 + 
        a^13)*q^144 + (a^19 - 2*a^17 - a^16 + a^14 + a^13 - a^11 - a^10 - a^9 + 
        a^7 + 2*a^6 - a^4 - a^3 + a + 1)*q^148 + (a^19 + a^18 - a^16 - a^15 + 
        a^13 + a^12 - a^9 - a^8 + a^6 + a^5 - a^3 - a^2 + 1)*q^149 + (-a^19 + 
        a^10)*q^151 + (a^15 + a^10 - a^4)*q^161 + (a^16 + a^6)*q^163 - a^5*q^169
        + (-a^19 + a^17 + a^16 - a^14 - 2*a^13 + a^11 + a^10 - a^7 - a^6 + a^4 +
        a^3 + a^2 - a - 1)*q^172 + (-a^19 + a^17 + a^16 - a^14 - a^13 + a^11 + 
        a^10 + a^9 - a^7 - a^6 + a^4 + a^3 - a - 1)*q^175 + (-2*a^19 + 2*a^16 - 
        a^14 - 2*a^13 - a^12 + a^11 + 2*a^10 + a^9 + a^8 - 2*a^7 - a^6 - a^5 + 
        2*a^4 + 2*a^3 + a^2 - 2)*q^176 + (-a^18 - a^14 + a^7 + a^3)*q^179 + 
        (a^19 + a^18 - a^16 - a^15 + a^12 - a^9 - 2*a^8 + a^6 + 2*a^5 - a^3 + 
        1)*q^184 + (-a^12 - a^9 + a)*q^191 + (a^19 - a^17 - a^16 + a^14 + a^13 -
        a^11 - a^10 + a^8 + a^7 + a^6 - a^4 - a^3 + a + 1)*q^193 + a^15*q^196 + 
        (a^19 - a^17 - a^16 + a^14 + a^13 - a^11 - a^10 + a^7 + 2*a^6 - a^4 - 
        a^3 + a + 1)*q^197 + (-a^18 + a^15)*q^200 + (a^13 - a^11 - a^2)*q^203 + 
        (a^19 + a^18 - a^16 - 2*a^15 + a^13 + a^12 - a^10 - a^9 - a^8 + a^6 + 
        a^5 - a^3 - a^2 + 1)*q^207 - a^16*q^211 + (-a^10 + a^9)*q^212 + (-a^16 +
        a^13 - a^10 + a^7)*q^224 - a^9*q^225 + (a^19 - a^11 + a^9 - a^6 + 
        1)*q^232 + (a^17 - a^15 - a^6)*q^233 + (-a^19 - a^3)*q^239 - a^4*q^252 +
        (a^19 + a^17 + a^14 + a^12 - a^8 - a^6)*q^253 + (-a^19 - a^18 + a^17 + 
        a^16 + a^15 - a^14 - a^13 - a^12 + a^11 + a^10 + a^9 - a^6 + a^3 - 
        1)*q^256 + (a^16 + a^8)*q^259 + (-a^13 + 1)*q^261 + (-a^17 - a^13)*q^263
        + O(q^266),
    q^2 + (-a^19 + a^16)*q^4 + (a^19 + a^18 - a^16 - a^15 + a^13 + a^12 - a^10 -
        a^9 - a^8 + a^6 - a^3 + 1)*q^8 + (-a^12 + a)*q^14 + (-a^19 + a^16 - a^12
        + a^9 + a^8 - a^6 - a^5 + a^3 - 1)*q^16 + a^12*q^18 + (-a^16 - a^14 + 
        a^5 + a^3)*q^22 + (-a^9 + a^6)*q^28 + (a^19 - a^17 - a^16 + a^14 + a^13 
        - a^11 + a^6 - a^3 + 1)*q^32 + (a^19 - a^16 + a^14 + a^13 - a^11 - a^10 
        + a^7 - a^4 - a^3 + a + 1)*q^36 + (-a^13 - a^11 + a^10 + a^8)*q^44 + 
        (-a^19 + a^17 + a^16 - a^14 - a^13 + a^11 + a^10 + a^9 - a^7 - a^6 + a^4
        - a - 1)*q^46 + (a^19 - a^8)*q^50 + (a^17 - a^14 + a^11 - a^6 + a^3 - 
        1)*q^56 + (-a^19 - a^18 + a^16 + a^15 - a^13 - a^12 + a^9 + a^8 - a^6 - 
        a^5 + a^3 + a^2 - a - 1)*q^58 + (-a^19 - a^18 + a^16 + a^15 - a^13 - 
        a^12 + a^11 + a^10 + a^9 - a^6 + a^3 - 1)*q^64 + (-a^17 + a^14 - 
        a^11)*q^72 + (a^18 + a^15 - a^4)*q^74 + (-a^18 + a^11 + a^7 - 1)*q^86 + 
        (2*a^19 - 2*a^16 + 2*a^13 + a^12 - a^10 - a^9 - 2*a^8 + a^7 + a^6 + 
        2*a^5 - a^4 - a^3 - 2*a^2 + 1)*q^88 + (-a^19 + a^11 + a^6 - a^3 - 
        1)*q^92 - a^13*q^98 + (a^16 - a^13)*q^100 + (a^8 - a^7)*q^106 + (a^14 - 
        a^11 + a^8 - a^5)*q^112 + (-a^19 + a^16 - a^14 - a^13 + a^11 + a^10 + 
        a^9 - 2*a^7 - a^6 + 2*a^4 + a^3 - a - 1)*q^116 + a^2*q^126 + (a^19 - 
        a^15 + a^12 - a^9 - a^8 + a^6 - a^3 + 1)*q^128 + a^4*q^134 + (a^17 - a^9
        - a^6)*q^142 + (a^19 - a^16 - a^8 + a^5 - a^3 + 1)*q^144 + (a^12 - a^9 +
        a^4 - a)*q^148 + (-a^17 - a^15)*q^154 + (a^14 + a^2)*q^158 + (a^13 - 
        a^2)*q^162 + (-a^15 + a^12 + a^8 - a^5)*q^172 + (a^18 + a^16 - a^15 - 
        a^13 + a^12 + a^10 - a^9 - a^7)*q^176 + (-a^19 - a^14 + a^11 + a^8 - a^5
        + a^3 + a^2 - 1)*q^184 + (a^19 - a^16 - a^15 + a^13 + a^12 - a^10 - a^9 
        - a^8 + a^7 + a^6 + a^5 - a^3 - a^2 + 1)*q^196 + (a^6 + a^4)*q^198 + 
        (a^19 - a^16 - a^15 + a^13 + a^12 - a^10 - a^9 - a^8 + a^7 + a^6 + a^5 -
        a^3 + 1)*q^200 + (-a^16 + a^15 + a^13 - a^12 + a^5 - a^4 - a^2 + 
        a)*q^212 + (a^19 - a^17 - a^16 + a^14 + a^13 - a^11 - a^10 + a^7 + a^6 -
        a^5 - a^4 - a^3 + a + 1)*q^214 + (a^16 - a^11)*q^218 + (-a^18 + a^15 - 
        a^12 + a^9 - a^6 + a^3)*q^224 + (a^18 - a^7)*q^226 + (-a^19 + a^17 + 
        a^16 + a^15 - a^14 - a^13 - a^12 + a^11 + a^10 + a^9 - a^7)*q^232 + 
        (-2*a^19 - a^18 - a^17 + a^16 + a^15 - a^13 - a^12 + a^9 + a^8 - a^6 - 
        a^5 + a^3 + a^2 - 1)*q^242 + (-a^19 + a^16 + a^15 - a^13 - a^12 + a^9 + 
        a^8 - a^6 - a^5 + a^3 + a^2 - 1)*q^252 + (a^19 + a^18 - a^16 - a^15 + 
        a^14 + a^13 + a^12 - a^10 - a^9 - a^8 + a^6 + a^5 - a^3 - a^2 + 1)*q^254
        + (-a^10 + a^7 - a^4)*q^256 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^2*q^4 - a*q^7 + (-a^9 + a^8 + a^6 - a^5 + a^4 - a^3 + a^2 - a + 1)*q^8
        - a*q^9 + (-a^5 - a^3)*q^11 + (a^7 - a^4 + a)*q^16 + (-a^9 - a^3)*q^23 +
        a^8*q^25 + a^3*q^28 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 - 
        1)*q^29 + (a^9 - a^6 - a^4 + a)*q^32 + a^3*q^36 + (-a^7 + a^4)*q^37 + 
        (-a^7 + 1)*q^43 + (a^7 + a^5)*q^44 + a^2*q^49 + (a^8 - a^7)*q^53 + (-a^8
        - 1)*q^56 + a^2*q^63 + (a^9 - a^6 + a^3 + a - 1)*q^64 + a^4*q^67 + (-a^9
        + a^6)*q^71 + (-a^8 - 1)*q^72 + (a^6 + a^4)*q^77 + (-a^3 + a^2)*q^79 + 
        a^2*q^81 + (-a^9 + a^8 - a^7 + a^6 - a^5 - a^3 + 1)*q^88 + (a^5 - 
        1)*q^92 + (a^6 + a^4)*q^99 + (-a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - a^3 +
        a^2 - a + 1)*q^100 + (-a^9 - a^5)*q^107 + (-a^5 + 1)*q^109 + (-a^8 + a^5
        - a^2)*q^112 - 2*a^7*q^113 + (a^3 + a)*q^116 + (a^9 + a^7 + a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^121 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a 
        - 1)*q^127 + (a^9 - a^8 - a^6 + a^5 + a^3 - 1)*q^128 + (-a + 1)*q^137 + 
        (-a^8 + a^5 - a^2)*q^144 + (a^9 - a^6)*q^148 + (2*a^9 - 2*a^8 + 2*a^7 - 
        2*a^6 + 2*a^5 - 2*a^4 + 2*a^3 - 2*a^2 + 2*a - 2)*q^149 + (a^9 + a^7 - 
        a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^151 + (a^9 - a^8 + a^7 - a^6 + 
        a^5 + a^3 - a^2 + a - 1)*q^161 + (a^6 - a^5)*q^163 - a^5*q^169 + (a^9 - 
        a^2)*q^172 - a^9*q^175 + (a^8 - a^5 - a^3 + a^2 + 1)*q^176 + (-a^7 - 
        a^3)*q^179 + (-a^9 - a^7 + a^6 + a^4 - a^3 - a + 1)*q^184 + (-a^9 - 
        a)*q^191 + (-a^9 + a^8)*q^193 - a^4*q^196 + (-a^9 + a^6)*q^197 + (a^7 - 
        a^4)*q^200 + (a^2 + 1)*q^203 + (a^9 - a^8 + a^7 - a^6 + a^5 + a^3 - a^2 
        + a - 1)*q^207 - 2*a^5*q^211 + (a^8 - a^7 + a^6 - a^5 + a^4 - a^3 + a^2 
        - a + 1)*q^212 + (-a^9 + a^8 + a^6 + a^4 - a^3 - a + 1)*q^224 - 
        a^9*q^225 + (a^9 - a^8 - a^6 - 1)*q^232 + (a^6 + a^4)*q^233 + (a^8 - 
        a^3)*q^239 - a^4*q^252 + (a^8 + a^6 - a^3 - a)*q^253 + (-a^9 - a^7 + a^4
        - a)*q^256 + (a^8 - a^5)*q^259 + (a^2 + 1)*q^261 + (a^6 + a^2)*q^263 + 
        O(q^266),
    q^2 + (a^8 - a^5)*q^4 + (a^9 - a^8 + a^7 - a^6 - a^4 + a^3 + a - 1)*q^8 - 
        a*q^14 + (a^9 - a^8 - a^6 + a^5 + a^3 + a - 1)*q^16 - a*q^18 + (-a^5 - 
        a^3)*q^22 + (-a^9 + a^6)*q^28 + (-a^8 - a^6 + a^5 + a^3 - a^2 - 1)*q^32 
        + (-a^9 + a^6)*q^36 + (a^9 + a^7 - a^6 + a^5 - a^4 + a^3 + a)*q^44 + 
        (-a^9 - a^3)*q^46 + a^8*q^50 + (a^6 - a^3 + 1)*q^56 + (a^9 - a^8 + a^7 -
        a^6 + a^5 - a^4 + a^3 - a^2 - 1)*q^58 + (-a^9 - a^7 + a^6 + a^4 - a^3 - 
        a)*q^64 + (a^6 - a^3 + 1)*q^72 + (-a^7 + a^4)*q^74 + (-a^7 + 1)*q^86 + 
        (a^9 - a^6 + a^3 + a - 1)*q^88 + (a^8 + a^6 - a^3 + 1)*q^92 + a^2*q^98 +
        (-a^5 + a^2)*q^100 + (a^8 - a^7)*q^106 + (a^8 - a^5 - a^3 + 1)*q^112 + 
        (-a^9 - a^7 + a^6 + a^4)*q^116 + a^2*q^126 + (-a^9 + a^8 + a^6 + a^4 - 
        a^3 - a + 1)*q^128 + a^4*q^134 + (-a^9 + a^6)*q^142 + (a^8 - a^5 - a^3 +
        1)*q^144 + (-a^9 + a^4 - 2*a)*q^148 + (a^6 + a^4)*q^154 + (-a^3 + 
        a^2)*q^158 + a^2*q^162 + (a^8 - a^5 + a^4 - a)*q^172 + (-a^8 - a^7 - a^6
        + a^3 - 1)*q^176 + (2*a^8 - a^5 - a^3 + a^2 + 1)*q^184 + (a^9 - a^8 - 
        a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^196 + (a^6 + a^4)*q^198 + (a^9 - 
        a^8 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^200 + (-a^5 + a^4 + a^2 - 
        a)*q^212 + (-a^9 - a^5)*q^214 + (-a^5 + 1)*q^218 + (a^9 + a^7 - a^6 - 
        a^4 + a^3 + a)*q^224 - 2*a^7*q^226 + (-a^9 + a^6 + a^4 - a^3 - a + 
        1)*q^232 + (a^9 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^242 + (a^9 - 
        a^8 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^252 + (a^9 - a^8 + a^7 - 
        a^6 + a^5 - a^4 - a^2 + a - 1)*q^254 + (-a^9 + a^8 + a^6 - a^5 - a^3 + 
        a^2 - a + 1)*q^256 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 22*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 22*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^4 + (a - 1)*q^7 - 2*q^8 + q^9 + (-a + 1)*q^11 + 3*a*q^16 + 
        a*q^23 + q^25 + a*q^28 + (-a + 1)*q^29 + (-4*a + 4)*q^32 + (-a + 1)*q^36
        + a*q^37 - q^43 - a*q^44 - a*q^49 - q^53 + (-2*a + 2)*q^56 + (a - 
        1)*q^63 - 5*q^64 - a*q^67 + (-a + 1)*q^71 - 2*q^72 + a*q^77 + (2*a - 
        2)*q^79 + q^81 + (2*a - 2)*q^88 + q^92 + (-a + 1)*q^99 + (-a + 1)*q^100 
        - q^107 - q^109 - 3*q^112 + (-a + 1)*q^113 - a*q^116 + (2*a - 2)*q^127 +
        6*a*q^128 - q^137 + 3*a*q^144 + q^148 - q^149 - 2*a*q^151 - q^161 + (-a 
        + 1)*q^163 + (a - 1)*q^169 + (a - 1)*q^172 + (a - 1)*q^175 + 3*q^176 - 
        q^179 - 2*a*q^184 + a*q^191 - q^193 - q^196 + (-a + 1)*q^197 - 2*q^200 +
        a*q^203 + a*q^207 + a*q^211 + (a - 1)*q^212 + 4*a*q^224 + q^225 + (2*a -
        2)*q^232 + (-a + 1)*q^233 + (-a + 1)*q^239 + a*q^252 + q^253 + (-7*a + 
        7)*q^256 - q^259 + (-a + 1)*q^261 - q^263 + O(q^266),
    q^2 - 2*a*q^4 + (3*a - 3)*q^8 + (a - 1)*q^14 + 4*q^16 + q^18 + (-a + 1)*q^22
        + 2*q^28 - 5*a*q^32 - 2*a*q^36 - 2*q^44 + a*q^46 + q^50 - 3*a*q^56 + (-a
        + 1)*q^58 + (6*a - 6)*q^64 + (3*a - 3)*q^72 + a*q^74 - q^86 + 3*a*q^88 +
        (-2*a + 2)*q^92 - a*q^98 - 2*a*q^100 - q^106 + (4*a - 4)*q^112 - 2*q^116
        + (a - 1)*q^126 + 7*q^128 - a*q^134 + (-a + 1)*q^142 + 4*q^144 + (-2*a +
        2)*q^148 + a*q^154 + (2*a - 2)*q^158 + q^162 + 2*a*q^172 + (-4*a + 
        4)*q^176 - 3*q^184 + (2*a - 2)*q^196 + (-a + 1)*q^198 + (3*a - 3)*q^200 
        + 2*a*q^212 - q^214 - q^218 + 5*q^224 + (-a + 1)*q^226 + 3*a*q^232 + 
        2*q^252 + (2*a - 2)*q^254 - 8*a*q^256 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 22*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
33*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
938
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 33*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
939
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
207
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
939
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
312
);
qprec:=
207
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
939
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
156
);
qprec:=
207
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
939
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
104
);
qprec:=
207
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
939
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
207
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
939
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
207
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^3 + a^14*q^4 + (-a^23 + a^22)*q^7 + a^4*q^9 + a^16*q^12 + (-a^17 +
        a^15)*q^13 - a^2*q^16 + (a^23 - a^7)*q^19 + (-a^23 + a^22 + a^21 - a^20 
        - a^19 + a^18 + a^17 - a^16 - a^15 + a^14 + a^13 - a^12 - a^11 + a^10 + 
        a^9 - a^8 - a^7 + a^6 + a^5 - a^4 - a^3 + a^2 + a - 1)*q^21 - a^13*q^25 
        + a^6*q^27 + (a^11 - a^10)*q^28 + (-a^22 + a^7)*q^31 + a^18*q^36 + (-a^6
        - a)*q^37 + (-a^19 + a^17)*q^39 + (a^10 + a^3)*q^43 - a^4*q^48 + (-a^20 
        + a^19 - a^18)*q^49 + (a^5 - a^3)*q^52 + (a^23 - a^21 + a^19 - a^17 + 
        a^15 - a^13 + a^11 - 2*a^9 + a^7 - a^5 + a^3 - a)*q^57 + (a^21 - 
        a^8)*q^61 + (a - 1)*q^63 - a^16*q^64 + (-a^14 - a^5)*q^67 + (-a^12 + 
        a^9)*q^73 - a^15*q^75 + (-a^21 - a^11)*q^76 + (a^20 + a^8)*q^79 + 
        a^8*q^81 + (a^13 - a^12)*q^84 + (-a^14 + a^13 + a^12 - a^11)*q^91 + 
        (-a^22 + a^20 - a^18 + a^16 - a^14 + a^12 - a^10 + a^9 + a^8 - a^6 + a^4
        - a^2 + 1)*q^93 + (-a^16 + a^12)*q^97 + a*q^100 + (-a^15 - a^9)*q^103 + 
        a^20*q^108 + (-a^22 + a^20 - a^18 + a^16 - a^14 + a^12 - a^10 + a^8 - 
        a^6 - a^5 + a^4 - a^2 + 1)*q^109 + (-a^8 - a^3)*q^111 + (a^23 - a^22 - 
        a^21 + a^20 + a^19 - a^18 - a^17 + a^16 + a^15 - a^14 - a^13 + a^12 + 
        a^11 - a^10 - a^9 + a^8 + a^7 - a^6 - a^5 + a^4 + a^3 - a^2 - a + 
        1)*q^112 + (-a^21 + a^19)*q^117 - a^18*q^121 + (a^21 + a^10)*q^124 + 
        (-a^21 - 1)*q^127 + (a^12 + a^5)*q^129 + (a^20 - a^19 - a^4 + a^3)*q^133
        + (a^18 - 1)*q^139 - a^6*q^144 + (-a^22 + a^21 - a^20)*q^147 + (-a^20 - 
        a^15)*q^148 + (a^17 + a^13)*q^151 + (a^7 - a^5)*q^156 + (a^11 - a)*q^157
        + (-a^13 + a^5)*q^163 + (-a^8 + a^6 - a^4)*q^169 + (-a^11 - a)*q^171 + 
        (a^22 - a^20 + a^18 + a^17 - a^16 + a^14 - a^12 + a^10 - a^8 + a^6 - a^4
        + a^2 - 1)*q^172 + (-a^10 + a^9)*q^175 + (a^23 - a^10)*q^183 + (a^3 - 
        a^2)*q^189 - a^18*q^192 + (-a^6 + a)*q^193 + (a^8 - a^7 + a^6)*q^196 + 
        (a^15 + a^7)*q^199 + (-a^16 - a^7)*q^201 + O(q^207)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
939
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
207
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
939
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
207
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^3 - a*q^4 + (-a^10 - a^9)*q^7 + a^4*q^9 - a^3*q^12 + (-a^4 - 
        a^2)*q^13 + a^2*q^16 + (-a^10 + a^7)*q^19 + (-2*a^11 + a^10 - a^9 + a^8 
        - a^7 + a^6 - a^5 + a^4 - a^3 + a^2 - a + 1)*q^21 - q^25 + a^6*q^27 + 
        (a^11 + a^10)*q^28 + (-a^9 + a^7)*q^31 - a^5*q^36 + (a^6 + a)*q^37 + 
        (-a^6 - a^4)*q^39 + (a^10 + a^3)*q^43 + a^4*q^48 + (-a^7 - a^6 - 
        a^5)*q^49 + (a^5 + a^3)*q^52 + (-a^11 + a^10 + a^8 - a^7 + a^6 - a^5 + 
        a^4 - a^3 + a^2 - a + 1)*q^57 + (a + 1)*q^63 - a^3*q^64 + (a^5 - a)*q^67
        + (a^11 - a^10 + 2*a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^73 - a^2*q^75 + (a^11 - a^8)*q^76 + (a^8 - a^7)*q^79 + a^8*q^81 + 
        (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        2)*q^84 + (2*a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2
        - 2)*q^91 + (-a^11 + a^9)*q^93 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + 
        a^5 - a^4 - a^2 + a - 1)*q^97 + a*q^100 + (a^9 - a^2)*q^103 - a^7*q^108 
        + (-a^11 + a^5)*q^109 + (a^8 + a^3)*q^111 + (-2*a^11 + a^10 - a^9 + a^8 
        - a^7 + a^6 - a^5 + a^4 - a^3 + a^2 - a + 1)*q^112 + (-a^8 - a^6)*q^117 
        - a^5*q^121 + (a^10 - a^8)*q^124 + (-a^8 + 1)*q^127 + (a^11 - a^10 + a^9
        - a^8 + a^7 - a^6 + 2*a^5 - a^4 + a^3 - a^2 + a - 1)*q^129 + (-a^7 - a^6
        + a^4 + a^3)*q^133 + (-a^5 + 1)*q^139 + a^6*q^144 + (-a^9 - a^8 - 
        a^7)*q^147 + (-a^7 - a^2)*q^148 + (-a^4 - 1)*q^151 + (a^7 + a^5)*q^156 +
        (a^11 + a)*q^157 + (a^5 - 1)*q^163 + (a^8 + a^6 + a^4)*q^169 + (a^11 + 
        a)*q^171 + (-a^11 - a^4)*q^172 + (a^10 + a^9)*q^175 + (-2*a^11 + 2*a^10 
        - 2*a^9 + 2*a^8 - 2*a^7 + 2*a^6 - 2*a^5 + 2*a^4 - 2*a^3 + 2*a^2 - 2*a + 
        2)*q^181 + (a^3 + a^2)*q^189 - a^5*q^192 + (a^6 + a)*q^193 + (a^8 + a^7 
        + a^6)*q^196 + (a^7 - a^2)*q^199 + (a^7 - a^3)*q^201 + O(q^207)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
939
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
207
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
939
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 24*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
207
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^4*q^3 + a^2*q^4 + (-a^7 - a^5)*q^7 + a^8*q^9 + a^6*q^12 + (a^8 + 
        a^4)*q^13 + a^4*q^16 + (-a^7 - a)*q^19 + (-a^11 - a^9)*q^21 + q^25 + 
        (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^27 + (-a^9 - a^7)*q^28 + (-a^5 - a)*q^31 + a^10*q^36 + (a^11 - a^10
        + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^37 + (a^11 - a^10 +
        a^9 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^39 + (-a^7 + 
        a^6)*q^43 + a^8*q^48 + (a^11 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 -
        a^2 - 1)*q^49 + (a^10 + a^6)*q^52 + (-a^11 - a^5)*q^57 - 2*a^3*q^61 + 
        (a^2 + 1)*q^63 + a^6*q^64 + (a^10 + a^2)*q^67 + (-a^11 - a^5)*q^73 + 
        a^4*q^75 + (-a^9 - a^3)*q^76 + (-a^3 - a)*q^79 - a^3*q^81 + (-a^11 + 
        1)*q^84 + (-a^11 - a^9 + a^2 + 1)*q^91 + (-a^9 - a^5)*q^93 + (-a^11 + 
        a^6)*q^97 + a^2*q^100 + (-a^5 + a^4)*q^103 - a*q^108 + (a^10 - 
        a^9)*q^109 + (a^6 - a^3)*q^111 + (-a^11 - a^9)*q^112 + (a^11 - a^10 + 
        a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^117 + a^10*q^121 + 
        (-a^7 - a^3)*q^124 + (-a^3 + 1)*q^127 + (-a^11 + a^10)*q^129 + (a^11 - 
        a^10 + a^9 + a^7 + a^5 - a^4 + a^3 - a^2 - 1)*q^133 + (a^10 + 1)*q^139 +
        (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^144 + (-a^5 - a^3 - a)*q^147 + (a^4 - a)*q^148 + (a^8 + 1)*q^151 + 
        (a^10 - a)*q^156 + (-a^9 + a^2)*q^157 + (a^10 + 1)*q^163 + (a^11 - a^10 
        + a^9 + a^7 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^169 + (-a^9 + a^2)*q^171 
        + (-a^9 + a^8)*q^172 + (-a^7 - a^5)*q^175 - 2*a^11*q^181 - 2*a^7*q^183 +
        (a^6 + a^4)*q^189 + a^10*q^192 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + 
        a^5 - a^4 + a^3 + a - 1)*q^193 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + 
        a^5 - a^4 - a^2 - 1)*q^196 + (a^4 - a)*q^199 + (a^6 - a)*q^201 + 
        O(q^207)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
939
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 26*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
207
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
939
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
39*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
207
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
939
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 52*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
207
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
939
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 78*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
207
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^3 - q^4 + (a - 1)*q^7 + q^9 + q^12 - 2*a*q^13 + q^16 + (-a + 1)*q^21 -
        a*q^25 - q^27 + (-a + 1)*q^28 + (-a + 1)*q^31 - q^36 + (-a + 1)*q^37 + 
        2*a*q^39 + (-a - 1)*q^43 - q^48 - a*q^49 + 2*a*q^52 + (a - 1)*q^61 + (a 
        - 1)*q^63 - q^64 + (-a + 1)*q^67 + (a - 1)*q^73 + a*q^75 + 2*q^79 + q^81
        + (a - 1)*q^84 + (2*a + 2)*q^91 + (a - 1)*q^93 + a*q^100 + q^108 + (-a -
        1)*q^109 + (a - 1)*q^111 + (a - 1)*q^112 - 2*a*q^117 + q^121 + (a - 
        1)*q^124 + (-a - 1)*q^127 + (a + 1)*q^129 - 2*q^139 + q^144 + a*q^147 + 
        (a - 1)*q^148 + 2*a*q^151 - 2*a*q^156 - 2*a*q^157 - 3*q^169 + (a + 
        1)*q^172 + (a + 1)*q^175 + (-a + 1)*q^183 + (-a + 1)*q^189 + q^192 + (a 
        + 1)*q^193 + a*q^196 - 2*a*q^199 + (a - 1)*q^201 + O(q^207)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
939
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 104*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
207
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
939
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 156*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
207
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^13 + q^16 - q^19 + q^36 - q^39 + q^49 - q^52 - q^57 + q^64
        - q^75 - q^76 + q^81 - q^85 - q^103 - q^115 - q^117 + q^121 + q^144 - 
        q^151 - q^156 - q^157 - q^163 + q^169 - q^171 - q^181 + q^196 - q^199 - 
        q^205 + O(q^207),
    q^3 + q^12 - q^13 - q^19 - q^25 + q^27 - q^39 + q^48 - q^52 - q^57 - q^76 + 
        2*q^79 + q^85 + 2*q^97 - q^100 - q^103 + q^108 + q^115 - q^117 + 2*q^139
        + q^147 - q^151 - q^156 - q^157 - q^163 + 2*q^169 - q^171 - q^181 + 
        q^192 - q^199 + q^205 + O(q^207),
    q^5 - q^15 - q^17 + q^20 - q^23 - q^41 + q^45 + q^47 + q^51 + q^53 - q^59 - 
        q^60 - q^68 + q^69 + q^80 + q^89 - q^92 - q^101 + q^123 + q^131 - q^135 
        - q^141 - q^149 - q^153 - q^159 - q^164 + q^167 + q^177 - q^179 + q^180 
        + q^188 + q^191 + q^204 + O(q^207)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
940
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
940
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
940
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
940
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
940
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
92
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
940
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
940
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
940
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
92
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
940
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^13*q^4 - a*q^5 + (-a^21 - a^9)*q^6 + (-a^17 + a^6 - a^5)*q^9 + (-a^19 
        + a^12)*q^14 - a^3*q^16 + a^14*q^20 + (a^20 - a^15 + a^8 + a^4)*q^21 + 
        (a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 - 
        a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^24 + 
        a^2*q^25 + (a^16 + a^8)*q^29 + (a^21 - a^20 + a^19 - a^18 + a^17 - a^16 
        + a^15 - a^14 + a^13 - a^12 + a^11 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 +
        a^3 - a^2 + a - 1)*q^30 + (-a^19 + a^18 - a^7)*q^36 + (a^20 + a^10)*q^41
        + (a^18 - a^7 + a^6)*q^45 + (a^16 - a^7)*q^46 + (a^18 - a^11 + a^2)*q^49
        + (-a^15 + a^14 + a^4 - a^3)*q^54 + (-a^9 + a^2)*q^56 + (-a^17 + 
        a^14)*q^61 + a^16*q^64 + (-a^15 + a^12 - a^3 - a)*q^69 + (a^20 - 
        a^13)*q^70 + a^4*q^80 + (a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 
        - a^14 + a^13 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a)*q^81 
        + (-a^21 - a^17 + a^10 - a^5)*q^84 + (-a^11 - a^5)*q^86 + (-a^21 + 
        a^4)*q^89 + a^8*q^94 + (a^12 - a)*q^96 - a^15*q^100 + (-a^13 - 
        a^5)*q^101 + (-a^21 + a^16 - a^9 - a^5)*q^105 + (-a^19 + 1)*q^109 + 
        (-a^21 + a^6)*q^116 + (a^12 + 1)*q^120 + a^14*q^121 - a^3*q^125 + (a^18 
        - a^17 - a^13 + a^6 + a^2 - a)*q^126 + (-a^19 - a^13 - a^7 - a)*q^129 + 
        (a^18 + 1)*q^134 + (a^16 + a^4)*q^141 + (a^20 - a^9 + a^8)*q^144 + 
        (-a^17 - a^9)*q^145 + (-a^9 - a^7)*q^149 + (-a^11 + 1)*q^150 + (a^21 - 
        a^20 + a^19 - a^18 + a^17 - a^16 - a^14 - a^12 + a^11 - a^10 + a^9 - a^8
        + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^161 + (a^10 + 1)*q^164 + (-a^3 
        - a)*q^166 + (a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - a^14 + 
        a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^169 + (-a^17 + a^14 + a^6 + a^2)*q^174 + (a^20 - a^19 + 
        a^8)*q^180 + (a^21 - a^20 - a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - 
        a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a -
        1)*q^181 + (a^20 + a^6)*q^184 + (-a^21 + a^20 + a^14 - a^13 + a^10 - a^9
        - a^3 + a^2)*q^189 + (-a^15 + a^8 - a)*q^196 + (-a^19 + a^14 + a^8 - 
        a^3)*q^201 + (-a^21 - a^11)*q^205 + (a^21 - a^20 + a^19 - a^18 + a^17 - 
        a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 +
        a^5 - a^4 + a^3 + a - 1)*q^206 + (-a^7 - a^5)*q^214 + (-a^17 + a^16 - 
        a^5 + a^4)*q^216 + (a^21 - a^20 + a^19 - a^18 + a^17 - a^16 - a^14 + 
        a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^224 + (-a^19 + a^8 - a^7)*q^225 + (a^18 + a^12)*q^229 + 
        (-a^17 + a^8)*q^230 + (a^18 + a^12)*q^241 + (-a^7 + a^4)*q^244 + (-a^19 
        + a^12 - a^3)*q^245 + (-a^19 + a^18 + a^8 + a^6)*q^246 + (a^21 + a^19 - 
        a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 - a^10 - a^8 + a^7 - a^6 
        + a^5 - a^4 + a^3 - a^2 + a - 1)*q^249 + (a^20 - a)*q^254 + a^6*q^256 + 
        (-a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - a^12 + a^11 + a^9 - a^8 + 
        a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^261 + (a^16 + a^6)*q^269 + (a^16 
        - a^15 - a^5 + a^4)*q^270 + (a^16 + a^14 - a^5 + a^2)*q^276 + O(q^278),
    q^2 + (-a^19 + a^8)*q^3 + (a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - 
        a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^7 - a^13*q^8 - a*q^10 + (-a^21 - a^9)*q^12 + (a^20 - 
        a^9)*q^15 + (-a^17 + a^6 - a^5)*q^18 + (-a^17 - a^3)*q^23 + (a^14 - a^13
        + a^2 - a)*q^27 + (-a^19 + a^12)*q^28 - a^3*q^32 + (-a^7 + 1)*q^35 + 
        a^14*q^40 + (a^20 - a^15 + a^8 + a^4)*q^42 + (-a^21 - a^15)*q^43 + 
        a^18*q^47 + (a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - a^14 + 
        a^13 - a^12 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a -
        1)*q^48 + a^2*q^50 + (a^16 + a^8)*q^58 + (a^21 - a^20 + a^19 - a^18 + 
        a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 + a^9 - a^8 + a^7 - a^6 +
        a^5 - a^4 + a^3 - a^2 + a - 1)*q^60 + (a^16 + a^12 - a^11 - a^5 + a^4 + 
        1)*q^63 + (a^10 - a^5)*q^67 + (-a^19 + a^18 - a^7)*q^72 + (-a^21 + 
        a^10)*q^75 + (a^20 + a^10)*q^82 + (-a^13 - a^11)*q^83 + (a^16 + a^12 + 
        a^4 - a)*q^87 + (a^18 - a^7 + a^6)*q^90 + (a^16 - a^7)*q^92 + (a^18 - 
        a^11 + a^2)*q^98 + (a^12 - a^9)*q^103 + (-a^17 - a^15)*q^107 + (-a^15 + 
        a^14 + a^4 - a^3)*q^108 + (-a^9 + a^2)*q^112 + (a^18 + a^4)*q^115 + 
        (-a^17 + a^14)*q^122 + (a^18 + a^16 + a^6 - a^5)*q^123 + (-a^11 - 
        a^7)*q^127 + a^16*q^128 + (-a^15 + a^14 - a^3 + a^2)*q^135 + (-a^15 + 
        a^12 - a^3 - a)*q^138 + (a^20 - a^13)*q^140 + (-a^21 - a^19 + a^14 + 
        a^10 - a^7 - a^3)*q^147 + a^4*q^160 + (a^21 - a^20 + a^19 - a^18 + a^17 
        - a^16 + a^15 - a^14 + a^13 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a)*q^162 + (a^20 - a^17)*q^163 + (a^20 + a^2)*q^167 + (-a^21 - 
        a^17 + a^10 - a^5)*q^168 + (-a^11 - a^5)*q^172 + (a^8 - a)*q^175 + 
        (-a^21 + a^4)*q^178 + (a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - 
        a^14 - a^12 + a^11 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 
        1)*q^183 + a^8*q^188 + (a^12 - a)*q^192 - a^15*q^200 + (-a^13 - 
        a^5)*q^202 + (a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^13 - a^12 + 
        a^11 - a^10 + a^9 - a^8 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^203 + 
        (a^21 + a^19 - a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 - a^10 + 
        a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a)*q^207 + (-a^21 + a^16 - a^9 - 
        a^5)*q^210 + (a^21 - a^20 + a^19 - a^18 + a^17 + a^15 - a^14 + a^13 - 
        a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a -
        1)*q^215 + (-a^19 + 1)*q^218 + (a^4 - a^3)*q^223 + (a^18 + a^8)*q^227 + 
        (-a^21 + a^6)*q^232 - a^19*q^235 + (a^12 + 1)*q^240 + a^14*q^242 + (a^20
        - a^19 + a^18 + a^8 - a^7 + a^6)*q^243 - a^3*q^250 + (a^18 - a^17 - a^13
        + a^6 + a^2 - a)*q^252 + (-a^19 - a^13 - a^7 - a)*q^258 + (a^6 + 
        a^2)*q^263 + (-a^17 + a^12 + a^6 + 1)*q^267 + (a^18 + 1)*q^268 + 
        O(q^278)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
940
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
23*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^7 - q^21 + q^25 - q^27 + q^47 + q^49 + q^51 - q^53 - q^59 - q^61 + 
        q^63 + 2*q^83 - q^89 - q^97 + q^111 - q^119 + q^121 - q^131 + q^147 - 
        q^153 - q^157 - q^159 + q^169 - q^173 - q^175 - q^177 - q^183 + q^189 + 
        2*q^191 + 2*q^197 + q^213 + q^237 + q^243 - q^259 - q^263 - q^267 + 
        2*q^269 + O(q^278),
    q^2 - q^12 - q^14 + q^28 - q^32 + q^36 - q^42 + q^48 + q^50 - q^54 + q^64 - 
        q^68 + q^94 + q^98 + q^102 - q^106 - q^112 - q^118 - q^122 + q^126 - 
        q^144 - q^148 + 2*q^166 - q^178 - q^194 - q^196 + q^204 + q^212 + q^222 
        + q^224 + q^236 - q^238 + q^242 + q^244 - q^262 + q^272 + O(q^278),
    q^3 - q^7 - q^9 + q^17 + q^37 + q^49 - q^51 - q^53 - q^59 - q^61 + q^71 + 
        q^75 + q^79 - q^89 - q^97 + q^101 + q^103 - q^111 - q^131 + q^141 + 
        q^149 + q^153 - q^157 - q^173 - q^175 + q^189 - q^213 - q^225 - q^237 + 
        q^239 + q^241 + 2*q^249 + q^251 - q^263 + q^271 + q^277 + O(q^278),
    q^4 - q^12 - q^24 - q^32 + q^36 + q^48 + q^56 - q^68 + q^72 - q^84 + q^96 + 
        q^100 - q^108 - q^112 + q^128 - q^136 - q^144 - q^148 + q^188 + 2*q^204 
        + q^252 + q^272 + O(q^278),
    q^5 - q^35 - q^105 + q^125 - q^135 + q^235 + q^245 + q^255 - q^265 + 
        O(q^278),
    q^6 - q^14 + q^16 - q^18 - q^24 - q^32 + q^34 + q^56 + q^72 + q^74 + q^98 - 
        q^102 - q^106 - q^112 - q^118 - q^122 - q^136 + q^142 + q^150 + q^158 - 
        q^178 + q^192 - q^194 + q^202 + q^206 - q^222 + q^224 - q^262 + 
        O(q^278),
    q^8 - q^12 - q^16 + q^28 + q^36 - q^56 - q^68 + q^96 + q^112 - q^148 - q^168
        - q^196 + q^200 + q^204 + q^212 - q^216 - q^224 + q^236 + q^244 + q^256 
        + O(q^278),
    q^10 - q^60 - q^70 + q^140 - q^160 + q^180 - q^210 + q^240 + q^250 - q^270 +
        O(q^278),
    q^15 - q^35 - q^45 + q^85 + q^185 + q^245 - q^255 - q^265 + O(q^278),
    q^20 - q^60 - q^120 - q^160 + q^180 + q^240 + O(q^278),
    q^30 - q^70 + q^80 - q^90 - q^120 - q^160 + q^170 + O(q^278),
    q^40 - q^60 - q^80 + q^140 + q^180 + O(q^278)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
940
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 23*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
940
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 23*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - q^59 - q^61 - q^65 - q^71 - q^79 + q^81 - q^89 - 
        q^101 - q^115 + q^121 - q^131 - q^149 - q^191 - q^215 + q^225 + q^235 + 
        2*q^239 - q^241 + 2*q^251 - q^269 + 2*q^271 + O(q^278),
    q^5 - q^13 - q^23 - q^43 + q^45 + q^47 + 2*q^67 - q^73 - q^107 - q^113 - 
        q^117 + q^125 + 2*q^127 - q^137 - q^163 - q^167 + 2*q^193 - q^207 - 
        q^223 + 2*q^227 + 2*q^233 + q^245 - q^257 + O(q^278)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
941
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
940
);
qprec:=
157
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
941
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
188
);
qprec:=
157
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
941
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
47*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
157
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
941
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
235*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
157
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
942
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
942
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
156
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
942
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
942
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
942
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
942
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^2*q^3 + a^11*q^4 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + 2*a^5 - a^4 
        + a^3 - a^2 + a - 1)*q^7 + a^4*q^9 - q^12 + (a^8 - a^5)*q^13 - a^9*q^16 
        + (-a^11 + a^10 - a^9 - a^7 + a^6 - a^5 + a^4 - a^3 + a^2 - a + 1)*q^19 
        + (a^7 - a)*q^21 + a*q^25 + a^6*q^27 + (-a^10 - a^3)*q^28 + (-a^6 - 
        a^4)*q^31 - a^2*q^36 + (a^9 + a^3)*q^37 + (a^10 - a^7)*q^39 + (-a^7 - 
        a^2)*q^43 - a^11*q^48 + (-a^11 + a^10 - a^4)*q^49 + (-a^6 + a^3)*q^52 + 
        (-a^10 + a)*q^57 + (-a^11 + a^9)*q^61 + (a^9 - a^3)*q^63 + a^7*q^64 + 
        (a^6 - a)*q^67 + (-a^9 - a^8)*q^73 + a^3*q^75 + (a^10 + a^6)*q^76 + 
        (-a^11 + a^10 - a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - 2*a^3 + a^2 - a + 
        1)*q^79 + a^8*q^81 + (-a^11 + a^10 - a^9 + a^8 - a^7 + a^6 - 2*a^5 + a^4
        - a^3 + a^2 - a + 1)*q^84 + (-a^10 - a^7 + a^4 - 1)*q^91 + (-a^8 - 
        a^6)*q^93 + (-a - 1)*q^97 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 -
        a^4 + a^3 - a^2 + a - 1)*q^100 - a^4*q^108 + (a^7 - a^2)*q^109 + (a^11 +
        a^5)*q^111 + (a^8 + a)*q^112 + (a^11 - a^10 - a^8 + a^7 - a^6 + a^5 - 
        a^4 + a^3 - a^2 + a - 1)*q^117 + a^2*q^121 + (a^4 + a^2)*q^124 + (-a^2 +
        a)*q^127 + (-a^9 - a^4)*q^129 + (a^11 + a^7 + a^4 + 1)*q^133 + (a^11 + 
        a^8)*q^139 + q^144 + (a^11 - a^10 + a^9 - a^8 + a^7 - 2*a^6 + a^5 - a^4 
        + a^3 - a^2 + a)*q^147 + (-a^7 - a)*q^148 + (-a^10 - a^5)*q^151 + (-a^8 
        + a^5)*q^156 + a^2*q^157 + (a^2 - 1)*q^163 + (a^10 - a^3 + 1)*q^169 + 
        (-a^11 + a^10 - a^9 + a^8 - a^7 + a^6 - a^5 + a^4 + a^2 - a + 1)*q^171 +
        (a^5 + 1)*q^172 + (a^6 - 1)*q^175 + (a^11 + 1)*q^183 + (a^11 - 
        a^5)*q^189 + a^9*q^192 + (-a^11 + a^6)*q^193 + (a^9 - a^8 + a^2)*q^196 +
        (a^4 + a^2)*q^199 + (a^8 - a^3)*q^201 + (a^4 - a)*q^208 + (2*a^11 - a^10
        + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^211 + (-a^11 
        - a^9 + a^5 + a^3)*q^217 + (-a^11 - a^10)*q^219 + (a^10 + a^7)*q^223 + 
        a^5*q^225 + (a^11 - a^10 + a^9 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a -
        1)*q^228 + (-a^9 - a^6)*q^229 + (-a^5 + a)*q^237 + (a^4 - 1)*q^241 + 
        a^10*q^243 + (a^9 - a^7)*q^244 + (a^7 - a^4 + a^3 - 1)*q^247 + (-a^7 + 
        a)*q^252 - a^5*q^256 + (-a^2 - a)*q^259 + (-a^11 + a^10 - a^9 + a^8 - 
        a^7 + a^6 - a^5 - a^3 + a^2 - a + 1)*q^268 + (-a^6 - a^3)*q^271 + (-a^11
        + a^10 - 2*a^9 + a^8 - a^7 + 2*a^6 - a^5 + a^4 - a^3 - a + 1)*q^273 + 
        (-a^10 - a^2)*q^277 + (-a^10 - a^8)*q^279 + (-a^6 - a^4)*q^283 - a*q^289
        + (-a^3 - a^2)*q^291 + (a^7 + a^6)*q^292 - a*q^300 + (-a^11 + a^10 - a^9
        + a^8 - 2*a^7 + 2*a^6 - a^5 + a^4 - a^3 + a^2 + 1)*q^301 + (-a^8 - 
        a^4)*q^304 + (-a^3 + a)*q^307 + O(q^310),
    q^2 + a^2*q^6 + a^11*q^8 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + 2*a^5 - 
        a^4 + a^3 - a^2 + a - 1)*q^14 + a^4*q^18 - q^24 + (a^8 - a^5)*q^26 - 
        a^9*q^32 + (-a^11 + a^10 - a^9 - a^7 + a^6 - a^5 + a^4 - a^3 + a^2 - a +
        1)*q^38 + (a^7 - a)*q^42 + a*q^50 + a^6*q^54 + (-a^10 - a^3)*q^56 + 
        (-a^6 - a^4)*q^62 - a^2*q^72 + (a^9 + a^3)*q^74 + (a^10 - a^7)*q^78 + 
        (-a^7 - a^2)*q^86 - a^11*q^96 + (-a^11 + a^10 - a^4)*q^98 + (-a^6 + 
        a^3)*q^104 + (-a^10 + a)*q^114 + (-a^11 + a^9)*q^122 + (a^9 - a^3)*q^126
        + a^7*q^128 + (a^6 - a)*q^134 + (-a^9 - a^8)*q^146 + a^3*q^150 + (a^10 +
        a^6)*q^152 + (-a^11 + a^10 - a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - 2*a^3 +
        a^2 - a + 1)*q^158 + a^8*q^162 + (-a^11 + a^10 - a^9 + a^8 - a^7 + a^6 -
        2*a^5 + a^4 - a^3 + a^2 - a + 1)*q^168 + (-a^10 - a^7 + a^4 - 1)*q^182 +
        (-a^8 - a^6)*q^186 + (-a - 1)*q^194 + (a^11 - a^10 + a^9 - a^8 + a^7 - 
        a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^200 - a^4*q^216 + (a^7 - 
        a^2)*q^218 + (a^11 + a^5)*q^222 + (a^8 + a)*q^224 + (a^11 - a^10 - a^8 +
        a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^234 + a^2*q^242 + (a^4 + 
        a^2)*q^248 + (-a^2 + a)*q^254 + (-a^9 - a^4)*q^258 + (a^11 + a^7 + a^4 +
        1)*q^266 + (a^11 + a^8)*q^278 + q^288 + (a^11 - a^10 + a^9 - a^8 + a^7 -
        2*a^6 + a^5 - a^4 + a^3 - a^2 + a)*q^294 + (-a^7 - a)*q^296 + (-a^10 - 
        a^5)*q^302 + O(q^310)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
942
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^4*q^3 - a^9*q^4 + (-a^11 + a^10)*q^7 + a^8*q^9 + q^12 + (a^10 - 
        a^3)*q^13 - a^5*q^16 + (-a^11 - a^3)*q^19 + (a^2 - a)*q^21 + a^2*q^25 + 
        (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^27 + (-a^7 + a^6)*q^28 + (a^11 - a^10 + a^9 + a^7 - a^6 + a^5 - a^4
        + a^3 - a^2 + a - 1)*q^31 + a^4*q^36 + (a^6 - a^5)*q^37 + (-a^7 - 
        a)*q^39 + (a^4 - a)*q^43 - a^9*q^48 + (-a^9 + a^8 - a^7)*q^49 + (a^11 - 
        a^10 + a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^52 + (-a^7 + 
        a^2)*q^57 + (-a^9 - a^5)*q^61 + (a^6 - a^5)*q^63 - a*q^64 + (a^11 - a^10
        + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^67 + (-a^5 - 
        a^3)*q^73 + a^6*q^75 + (a^11 - a^10 + a^9 - a^8 - a^6 + a^5 - a^4 + a^3 
        - a^2 + a - 1)*q^76 + (-a^11 + a^6)*q^79 - a^3*q^81 + (-a^11 + 
        a^10)*q^84 + (a^8 - a^7 - a + 1)*q^91 + (a^11 - a^10 + a^9 - a^8 + a^7 -
        a^6 + a^5 - a^4 - a^2 + a - 1)*q^93 + (a^2 + 1)*q^97 - a^11*q^100 + 
        2*a^10*q^103 + a^8*q^108 + (a^4 - a)*q^109 + (a^10 - a^9)*q^111 + (-a^3 
        + a^2)*q^112 + (-a^11 - a^5)*q^117 + a^4*q^121 + (a^8 + a^4)*q^124 + 
        (a^4 + a^2)*q^127 + (a^8 - a^5)*q^129 + (-a^9 + a^8 - a + 1)*q^133 + 
        (-a^9 - a^3)*q^139 + q^144 + (-a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 
        + a^3 - a^2 + a)*q^147 + (a^2 - a)*q^148 + (a^10 - a^7)*q^151 + (a^10 - 
        a^3)*q^156 + a^4*q^157 + (a^4 + 1)*q^163 + (-a^7 + a^6 + 1)*q^169 + 
        (-a^11 + a^6)*q^171 + (a^10 + 1)*q^172 + (a^11 - a^10 + a^9 - a^8 + a^7 
        - a^6 + a^5 - a^4 + a^3 - a^2 + a)*q^175 - 2*a^11*q^181 + (-a^9 + 
        1)*q^183 + (a^10 - a^9)*q^189 - a^5*q^192 + (a^11 - a^10 - a^8 + a^7 - 
        a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^193 + (-a^5 + a^4 - a^3)*q^196 + 
        (a^8 + a^4)*q^199 + (a^6 - a^3)*q^201 + (a^8 + a^2)*q^208 + (-a^11 - 
        a^9)*q^211 + (a^10 - a^9 + a^6 - a^5)*q^217 + (-a^9 - a^7)*q^219 + (-a^7
        - a)*q^223 + a^10*q^225 + (-a^11 - a^3)*q^228 + (a^11 - a^10 + a^9 - a^8
        + a^7 - a^6 - a^4 + a^3 - a^2 + a - 1)*q^229 + (a^10 + a^2)*q^237 + (a^8
        + 1)*q^241 - a^7*q^243 + (-a^5 - a)*q^244 + (a^8 + a^6 - a + 1)*q^247 + 
        (a^2 - a)*q^252 + a^10*q^256 + (a^4 - 2*a^3 + a^2)*q^259 + (-a^11 + 
        a^8)*q^268 + (a^11 - a^10 + a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a 
        - 1)*q^271 + (-a^10 + a^9 - a^8 + a^7 - a^6 + a^3 - a^2 + a - 1)*q^273 +
        (-a^7 + a^4)*q^277 + (-a^7 - a^3)*q^279 + (a^11 - a^10 + a^9 + a^7 - a^6
        + a^5 - a^4 + a^3 - a^2 + a - 1)*q^283 + a^2*q^289 + (a^6 + a^4)*q^291 +
        (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 - 1)*q^292 
        + a^2*q^300 + (-a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        1)*q^301 + (a^8 - a^3)*q^304 + (a^6 + a^2)*q^307 - 2*a*q^309 + O(q^310),
    q^2 + a^4*q^6 - a^9*q^8 + (-a^11 + a^10)*q^14 + a^8*q^18 + q^24 + (a^10 - 
        a^3)*q^26 - a^5*q^32 + (-a^11 - a^3)*q^38 + (a^2 - a)*q^42 + a^2*q^50 + 
        (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^54 + (-a^7 + a^6)*q^56 + (a^11 - a^10 + a^9 + a^7 - a^6 + a^5 - a^4
        + a^3 - a^2 + a - 1)*q^62 + a^4*q^72 + (a^6 - a^5)*q^74 + (-a^7 - 
        a)*q^78 + (a^4 - a)*q^86 - a^9*q^96 + (-a^9 + a^8 - a^7)*q^98 + (a^11 - 
        a^10 + a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^104 + (-a^7 + 
        a^2)*q^114 + (-a^9 - a^5)*q^122 + (a^6 - a^5)*q^126 - a*q^128 + (a^11 - 
        a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^134 + (-a^5 - 
        a^3)*q^146 + a^6*q^150 + (a^11 - a^10 + a^9 - a^8 - a^6 + a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^152 + (-a^11 + a^6)*q^158 - a^3*q^162 + (-a^11 + 
        a^10)*q^168 + (a^8 - a^7 - a + 1)*q^182 + (a^11 - a^10 + a^9 - a^8 + a^7
        - a^6 + a^5 - a^4 - a^2 + a - 1)*q^186 + (a^2 + 1)*q^194 - a^11*q^200 + 
        2*a^10*q^206 + a^8*q^216 + (a^4 - a)*q^218 + (a^10 - a^9)*q^222 + (-a^3 
        + a^2)*q^224 + (-a^11 - a^5)*q^234 + a^4*q^242 + (a^8 + a^4)*q^248 + 
        (a^4 + a^2)*q^254 + (a^8 - a^5)*q^258 + (-a^9 + a^8 - a + 1)*q^266 + 
        (-a^9 - a^3)*q^278 + q^288 + (-a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 
        + a^3 - a^2 + a)*q^294 + (a^2 - a)*q^296 + (a^10 - a^7)*q^302 + O(q^310)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
942
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
942
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 26*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
942
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
39*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
942
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 52*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
942
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 78*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 + q^25 - q^30 - q^31 - q^37 - q^40 + q^49 - q^52 - q^57 - q^75 + 
        q^81 - q^82 - q^106 - q^115 + q^118 + q^120 + q^121 + q^124 + q^130 + 
        q^138 - q^145 + q^148 - q^156 + q^160 + q^169 + q^174 + q^190 - q^192 - 
        q^205 + q^208 + q^225 + q^228 - q^247 + q^250 - q^262 - q^265 - q^268 - 
        q^270 + q^274 - q^279 - q^283 + q^289 - q^298 + q^300 - q^304 + 
        O(q^310),
    q^2 + q^18 + q^50 - q^60 - q^62 - q^74 - q^80 + q^98 - q^104 - q^114 - q^150
        + q^162 - q^164 - q^212 - q^230 + q^236 + q^240 + q^242 + q^248 + q^260 
        + q^276 - q^290 + q^296 + O(q^310),
    q^3 + q^27 - q^30 - q^31 - q^37 + q^46 - q^52 - q^57 + q^58 + q^76 - q^82 + 
        q^100 - q^106 - q^115 + q^130 - q^145 + q^147 - q^156 + q^157 + q^166 + 
        2*q^169 - q^192 + q^205 + q^208 + q^243 - q^247 + q^256 - q^262 + q^265 
        - q^268 - q^270 - q^279 - q^283 - q^298 - q^304 + O(q^310),
    q^4 - q^30 + q^36 - q^40 - q^52 - q^82 + q^100 - q^106 + q^118 + q^130 + 
        q^138 - q^156 + q^174 + q^190 - q^192 + q^196 + q^250 - q^262 - q^268 - 
        q^270 + q^274 - q^298 - q^304 + O(q^310),
    q^5 + q^26 + q^32 + q^45 - q^59 - q^62 - q^65 - q^69 - q^74 + q^78 - q^80 - 
        q^87 - q^104 + q^107 - q^114 + q^123 + q^134 - q^137 - q^150 + q^159 - 
        q^179 + q^191 - q^195 + q^234 + q^245 + q^248 - q^249 + q^251 - q^269 + 
        q^288 + q^296 + q^299 + O(q^310),
    q^6 + q^23 + q^29 + q^54 - q^59 - q^60 - q^62 - q^69 - q^74 + q^83 - q^87 + 
        q^92 - q^95 - q^104 - q^114 + q^116 - q^125 - q^137 + q^152 + q^155 - 
        q^164 + q^177 - q^179 + q^185 + q^200 + q^207 - q^212 - q^230 - q^249 + 
        q^260 + q^261 - q^269 + q^285 - q^290 + q^293 + q^294 + O(q^310),
    q^8 + q^23 - q^26 + q^29 + q^38 + q^50 - q^59 - q^60 - q^69 + q^72 - q^78 - 
        q^80 + q^83 - q^87 - q^95 - q^96 - q^125 + q^128 - q^134 - q^137 - q^152
        + q^155 - q^164 + q^177 - q^179 + q^185 + q^186 + q^207 - q^212 + q^218 
        + q^222 - q^230 - q^234 + q^236 + q^240 - q^249 + q^254 + q^260 + q^261 
        - q^269 + q^276 + q^285 - q^290 + q^293 + O(q^310),
    q^10 + q^19 + q^25 - q^30 - q^31 - q^37 - q^40 - q^57 + q^64 - q^75 - q^82 +
        q^90 + q^93 - q^106 + q^109 + q^111 - q^115 + q^120 + q^127 - q^145 + 
        q^171 + q^190 - q^192 - q^205 + q^214 + q^225 + q^246 + q^250 - q^262 - 
        q^265 - q^270 + q^277 - q^279 - q^283 + q^295 - q^298 - q^304 + 
        O(q^310),
    q^12 + q^19 + q^25 - q^30 - q^31 - q^37 - q^40 + q^46 - q^52 - q^57 + q^58 -
        q^75 - q^82 + q^93 - q^106 + q^108 + q^109 + q^111 - q^115 + q^127 + 
        q^130 - q^145 - q^156 + q^160 + q^166 + q^171 + q^184 - q^192 - q^205 + 
        q^225 + q^232 - q^262 - q^265 - q^268 - q^270 + q^277 - q^279 - q^283 + 
        q^295 - q^298 + q^300 + O(q^310),
    q^13 - q^19 - q^25 + q^39 + q^48 - q^52 - q^64 + q^67 + q^76 - q^93 + q^100 
        - q^109 - q^111 + q^115 + q^117 - q^120 - q^127 + q^145 - q^156 - q^171 
        + q^184 + q^193 + q^199 + q^201 - q^225 + q^232 - q^247 - q^268 - q^277 
        + O(q^310),
    q^15 - q^23 + q^26 - q^29 - q^38 + q^41 - q^50 + q^53 - q^65 + q^78 - q^83 +
        q^96 - q^104 - q^128 + q^131 + q^134 + q^135 + q^149 + q^152 - q^177 - 
        q^186 - q^195 + q^200 - q^207 - q^218 - q^222 + q^227 + q^230 + q^234 - 
        q^240 - q^254 - q^261 + q^290 - q^293 + q^299 + O(q^310),
    q^16 + q^19 + q^25 - q^31 - q^37 - q^40 - q^48 - q^57 + q^64 - q^75 - q^76 +
        q^93 - q^100 + q^109 + q^111 - q^115 + q^120 + q^124 + q^127 + q^144 - 
        q^145 + q^148 + q^171 - q^184 - q^192 - q^205 + q^225 + q^228 - q^232 - 
        q^265 + q^277 - q^279 - q^283 + q^295 + q^300 - q^304 + O(q^310),
    q^20 + q^23 + q^29 + q^38 + q^50 - q^59 - q^60 - q^62 - q^69 - q^74 - q^80 +
        q^83 - q^87 - q^95 - q^114 - q^125 + q^128 - q^137 - q^150 + q^155 - 
        q^164 + q^177 - q^179 + q^180 + q^185 + q^186 + q^207 - q^212 + q^218 + 
        q^222 - q^230 + q^240 - q^249 + q^254 + q^261 - q^269 + q^285 - q^290 + 
        q^293 + O(q^310),
    q^24 - q^26 - q^32 + q^38 + q^50 - q^60 - q^78 + q^92 + q^116 - q^134 - 
        q^164 + q^186 - q^212 + q^216 + q^218 + q^222 - q^230 - q^234 - q^248 + 
        q^254 + q^260 - q^288 - q^290 - q^296 + O(q^310)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
943
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
943
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 - q^3 + q^6 + q^8 - q^13 - q^16 + q^23 - q^24 + q^25 + q^26 + q^27 -
        q^29 - q^31 + q^39 - q^46 - q^47 + q^48 + q^49 - q^50 - q^54 + q^58 + 
        2*q^59 + q^62 + q^64 - q^69 - q^71 - q^73 - q^75 - q^78 - q^81 + q^87 + 
        q^93 + q^94 - q^98 + 2*q^101 - q^104 - 2*q^118 + q^121 - q^127 - q^128 -
        q^131 + q^138 - q^139 + q^141 + q^142 + q^146 - q^147 + q^150 - q^151 + 
        q^162 - q^163 + O(q^166),
    q^41 - q^82 - q^123 + O(q^166)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
943
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
943
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
440
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
943
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
220
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
943
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^6*q^4 + (-a^7 + a^4)*q^6 + (a^5 - a^3)*q^8 - a^5*q^9 + (-a^6 - a)*q^12
        - a^2*q^16 + (2*a^7 - a^5 + a^3 - a)*q^18 + (a^6 - a^4 + a^2 - 1)*q^23 +
        (a^3 - 1)*q^24 + a^2*q^25 + (-a^4 + a^3)*q^26 + (a^7 - a^6 + a^4 - a^2 +
        1)*q^27 + (-a^7 + a^5 - a^3)*q^32 + (a^6 - 2*a^4 + a^2 + a - 1)*q^36 + 
        (a^5 + a)*q^39 + (-a^5 + a^3 + a^2 - a - 1)*q^48 + (-a^7 + a^5 - a^3 + 
        a)*q^49 + (a^2 + a)*q^52 + (-a^7 + a^5 - a^3 - a^2 + a)*q^54 + (-a^6 - 
        a^5 + a^4 - a^2 + 1)*q^58 + (a^4 - a^2)*q^59 + (-2*a^6 + a^4 - a^2 + 
        1)*q^62 + (a^4 - a^2)*q^64 + (a^6 - a^5 - a^4 - a^3 + a^2)*q^72 + (-a^7 
        + a^5 - 2*a^3 + a)*q^78 - q^81 + a^3*q^82 - a^4*q^92 + (a^7 - a^5 - a^4 
        + a^3 - a)*q^93 + (a^7 + 1)*q^94 + (a^7 - a^6 - a^5 + a^4 + a^3)*q^96 + 
        (a^6 - a^4 + a^2 - 1)*q^100 + (-a^6 - a^3)*q^101 + (a^7 - a^5 + a^3 - a 
        + 1)*q^104 + (a^6 + a^4 - a^3 - a)*q^108 + (-a^7 + a^2)*q^116 + (-a^7 + 
        a^4)*q^117 + a^3*q^121 - a^4*q^123 + (-a^7 + a^5)*q^128 + (a^5 - 
        a^2)*q^138 + (a^5 - a)*q^141 + (-a^7 - a^2)*q^142 + (a^7 - a^4 + 
        1)*q^144 + (-a^5 + a)*q^146 + (-a^7 + a^6 + a^5 - a^3 + a)*q^150 + (a^7 
        - a^6 + a^4 - a^2 - a + 2)*q^156 + (-a^5 + a^4 + a^2 - a)*q^162 - q^164 
        + O(q^166),
    q^2 + (a^6 + a^5 - 2*a^3 + a + 1)*q^4 + (-a^7 - a^6 + a^5 + 2*a^4 - a^2 - 
        a)*q^6 + a^6*q^8 + (a^7 - 2*a^5 - a^4 + 2*a^3 + 2*a^2 - 1)*q^9 + (-a^7 +
        a^4)*q^12 + (-2*a^5 - a^4 + 2*a^3 + 2*a^2 - a - 2)*q^13 + (a^5 - 
        a^3)*q^16 + (-a^7 - a^6 + a^4 + a^3 - a - 1)*q^24 + (-a^7 + a^5 - a^3 - 
        a^2 + a)*q^26 + (-2*a^6 + 2*a^4 + 2*a^3 - 2*a^2 - 2*a)*q^29 + (a^7 + a^6
        - a^5 - 2*a^4 + a^2 + a - 1)*q^31 + (-a^7 + 2*a^5 + 2*a^4 - 2*a^3 - 
        3*a^2 + 2)*q^32 + (2*a^7 + a^6 - 2*a^5 - 2*a^4 + a^3 + 2*a^2 - 1)*q^36 -
        q^39 + (-a^7 + a^5 + a^4 - a^3 - a^2 + 1)*q^41 + (a^6 - a^4 + a^2 - 
        1)*q^46 + (-a^4 + a)*q^47 + (-2*a^6 - 2*a^5 + 2*a^4 + 3*a^3 - 2*a - 
        1)*q^48 + a^2*q^50 + (-a^4 + a^3)*q^52 + (2*a^5 + a^4 - 2*a^3 - 2*a^2 + 
        a + 2)*q^54 + (a^7 - a^4 - a^3 + 1)*q^58 + (-a^7 - 2*a^6 + a^5 + 2*a^4 +
        a^3 - 2*a^2 - a)*q^62 + (-a^7 + a^5 - a^3)*q^64 + (-a^7 + 2*a^5 + a^4 - 
        a^3 - 2*a^2 + 1)*q^71 + (2*a^7 + 2*a^6 - 2*a^5 - 4*a^4 + 3*a^2 + a - 
        1)*q^72 + (a^7 - 2*a^5 + a^3 + a^2 - a)*q^73 + (a^6 + 2*a^5 - a^4 - 
        2*a^3 - a^2 + 2*a + 1)*q^78 + (-a^5 + a^3 + a^2 - 1)*q^82 + (-a^6 + a^5 
        + a^4 - a^2 - a + 1)*q^87 + (a^7 + a^6 - a^5 - 2*a^4 + a^2 + a - 1)*q^92
        + (a^7 - 2*a^5 - 2*a^4 + 2*a^3 + 2*a^2 - 1)*q^93 + (a^7 - a^4 + a + 
        1)*q^94 + (-a^5 + a^3 + a^2 - a - 1)*q^96 + (-a^7 + a^5 - a^3 + a)*q^98 
        + (a^7 + a^6 - 2*a^5 - a^4 + a^3 + 2*a^2 - 1)*q^100 + (2*a^7 - 2*a^5 - 
        2*a^4 + a^3 + 3*a^2 + a - 1)*q^104 + (-a^7 + 2*a^5 + a^4 - 2*a^3 - 2*a^2
        + 2)*q^108 + (-a^6 - a^5 + a^4 - a^2 + 1)*q^116 + (a^4 - a^2)*q^118 + 
        (a^6 - a^4 - a^3 + a^2 + a)*q^123 + (-2*a^6 + a^4 - a^2 + 1)*q^124 + 
        (-a^6 - 2*a^5 + a^4 + 2*a^3 + a^2 - 2*a - 1)*q^127 + (a^4 - a^2)*q^128 +
        (a^6 + 2*a^5 - 2*a^3 - a^2 + a + 1)*q^131 + (-a^7 + 2*a^5 + a^4 - 2*a^3 
        - 2*a^2 + a + 1)*q^138 + (2*a^5 + a^4 - 2*a^3 - 2*a^2 + 2)*q^139 + (-a^7
        - a^6 + 2*a^5 + a^4 - a^3 - 2*a^2 + 1)*q^141 + (a^7 + a^6 - a^5 - 2*a^4 
        - a^3 + a^2 + a)*q^144 + (a^6 - a^5 - a^4 + 2*a^2 - 1)*q^146 + (a^6 + 
        a^5 - 2*a^3 - a^2 + a + 1)*q^150 + (-a^7 + a^6 + a^5 - a^3 + a)*q^151 + 
        (2*a^5 - 2*a^3 - a^2 + a + 1)*q^156 + (-a^6 - a^5 + a^4 + 2*a^3 - 2*a - 
        1)*q^162 + (-a^7 + a^4 - 1)*q^163 + a^3*q^164 + O(q^166),
    q^3 + (-a^7 - a^6 + 2*a^5 + a^4 - a^3 - 2*a^2 + a + 1)*q^4 + (-a^6 - a^5 + 
        2*a^3 - a - 1)*q^6 + (a^7 + a^6 - a^5 - 2*a^4 + a^2 + a)*q^9 + (2*a^7 + 
        a^6 - 2*a^5 - 2*a^4 + a^3 + 2*a^2 - 1)*q^13 + (-a^7 + a^4)*q^18 + (a^7 -
        a^6 - a^5 + a^3 + a^2 - a)*q^24 + (-a^6 + 2*a^4 - a^2 - a + 1)*q^26 - 
        a^5*q^27 + (-2*a^5 + 2*a^3 + 2*a^2 - a - 2)*q^29 + (a^6 + a^5 - a^4 - 
        2*a^3 + a + 1)*q^31 + (-a^7 - a^6 + a^5 + 2*a^4 + a^3 - 2*a^2 - a)*q^32 
        + (a^7 - a^4 - a^3 + 1)*q^36 + (a^7 - a^5 + a^3 + a^2 - a)*q^39 + (-a^7 
        - a^6 + a^5 + a^4 - a^2)*q^41 - a^3*q^47 + (a^7 - 2*a^5 - 2*a^4 + 2*a^3 
        + 2*a^2 - 2)*q^48 + (-a^6 + a^5 + 2*a^4 - 2*a^2 - a + 1)*q^54 + (-a^7 + 
        a^6 + 2*a^5 - 2*a^3 - a^2 + a)*q^58 + (-2*a^5 + 2*a^3 + 2*a^2 - 2*a - 
        2)*q^62 + (a^6 - a^4 + a^2 - 1)*q^69 + (-a^7 - a^6 + 2*a^4 - a^2 - 
        a)*q^71 + (2*a^6 + 2*a^5 - 2*a^4 - 2*a^3 + 2*a)*q^72 + (-a^4 + a)*q^73 +
        a^2*q^75 + (-a^7 + 2*a^5 + a^4 - a^3 - 2*a^2 + 1)*q^78 + (a^7 - a^6 + 
        a^4 - a^2 + 1)*q^81 + (a^7 - a^5 - a^4 + a^2)*q^82 + (-a^7 + a^4 + a^3 -
        1)*q^87 + (a^7 + a^6 - a^3 + 1)*q^92 + (a^7 + 2*a^6 - a^5 - 2*a^4 - a^3 
        + 2*a^2 + a)*q^93 + (-a^7 + a^6 + a^5 - 2*a^3 + a)*q^94 + (a^7 - a^4 + a
        + 1)*q^100 + (2*a^6 - 2*a^4 - 2*a^3 + a^2 + 2*a)*q^104 + (-2*a^7 + 2*a^5
        - a^2 + a - 1)*q^108 + (a^5 + a)*q^117 + (a^5 - a^3 - a^2 + 1)*q^123 + 
        (a^7 - 2*a^5 - 2*a^4 + 2*a^3 + 2*a^2 - 1)*q^127 + (-2*a^7 + 2*a^5 + 
        2*a^4 - a^3 - 2*a^2 + 1)*q^131 + (-a^7 - a^6 + a^5 + 2*a^4 - a^2 - a + 
        1)*q^138 + (-2*a^7 + 2*a^5 + 2*a^4 - 2*a^2)*q^139 + (-a^7 + a^4 - a - 
        1)*q^141 + a^7*q^142 + (a^6 - a^3)*q^144 + (a^7 - a^4)*q^146 + (-a^7 + 
        a^5 - a^3 + a)*q^147 + (-a^7 - a^6 + 2*a^5 + a^4 - a^3 - 2*a^2 + 
        1)*q^150 + (-a^6 + a^5 + a^4 - a^2 - a + 1)*q^151 + (-2*a^7 + a^6 + a^5 
        + a^4 - a^3 + a)*q^156 + (-a^5 - a^4 + a^3 + a^2 + a - 2)*q^162 + (a^7 -
        a^6 - a^5 + a^3 - a)*q^163 + O(q^166)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
943
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
110
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
943
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (a^3 - 2*a^2 + a - 1)*q^6 + (a^3 - 1)*q^8 - q^9 + a^2*q^16 + 
        (-a^3 - a + 1)*q^18 - a^3*q^23 + (a^3 + 1)*q^24 + a^2*q^25 + (2*a^3 - 
        a^2 + a - 1)*q^26 + (-a^3 - a^2)*q^27 + (-a^3 + a^2 + 1)*q^32 + (-a^2 + 
        2*a - 1)*q^36 + (a - 1)*q^39 + (-a^3 + a^2 - a + 2)*q^48 + (-a^3 + a^2 -
        a + 1)*q^49 + (a^2 + a)*q^52 + (-a^3 + 2*a^2 - a + 1)*q^54 + (-a^3 - 
        1)*q^58 + (a^3 + a - 1)*q^59 + (-a^3 - a)*q^62 + (-a^3 - a + 1)*q^64 + 
        (a^2 - a + 1)*q^78 + q^81 + a^3*q^82 - 2*a*q^87 + (a^3 - a^2 + a - 
        1)*q^92 + (-a^2 + 1)*q^94 - a^3*q^100 + (a^3 - a)*q^101 + (-a^3 + a^2 - 
        a + 2)*q^104 + (2*a^3 - a^2 + a - 1)*q^108 + (a^3 - 2*a^2 + a - 1)*q^117
        + a^3*q^121 + (a^3 - a^2 + a - 1)*q^123 - 2*q^124 + (-a^2 - 1)*q^128 + 
        (a^2 - 1)*q^138 + (a - 1)*q^141 + (a^3 + a)*q^144 + (a - 1)*q^146 + 
        (-a^3 + a^2 - 2*a + 1)*q^150 + (-a^3 - a^2 + a + 1)*q^156 + (a^3 + 2*a -
        2)*q^162 + q^164 + O(q^166),
    q^2 + (-2*a + 2)*q^4 + (-2*a^2 + 2*a - 1)*q^6 - a*q^8 + (-a^3 + 2*a^2 - 
        a)*q^9 + (a^3 - 2*a^2 + a - 1)*q^12 + (-a^3 + a^2 - 2*a + 1)*q^13 + (a^3
        - 1)*q^16 + (2*a^3 - 2*a^2 + a)*q^24 + (a^3 - 2*a^2 + a - 1)*q^26 + 
        (2*a^2 - 2*a + 2)*q^31 + 2*a^2*q^32 + (-a^3 + a - 1)*q^36 - q^39 + (-a^2
        + a - 1)*q^41 - a^3*q^46 + (a^3 - a^2 + 2*a - 1)*q^47 + (a^3 + 1)*q^48 +
        a^2*q^50 + (2*a^3 - a^2 + a - 1)*q^52 + (-a^3 + a^2 - 2*a + 1)*q^54 + 
        (-2*a^3 + 2*a^2 - a)*q^58 + (-a^3 + a^2 - a + 1)*q^62 + (-a^3 + a^2 + 
        1)*q^64 + (-2*a^3 + 2*a^2 - a)*q^71 + (-a^2 + a - 1)*q^72 + (-a^3 + 
        2*a^2 - a)*q^73 + a^3*q^78 + (a^3 - a^2)*q^82 + (a^3 - a + 1)*q^87 + 
        (-2*a^2 + 2*a - 2)*q^92 + (-a^2 + 1)*q^93 + (a^3 - 2*a^2 + 2*a)*q^94 + 
        (-a^3 + a^2 - a + 2)*q^96 + (-a^3 + a^2 - a + 1)*q^98 + (-2*a^3 + 
        2*a^2)*q^100 + (a^3 + a^2 + a + 1)*q^104 + (a^3 - 2*a^2 + a - 1)*q^108 +
        (-a^3 - 1)*q^116 + (a^3 + a - 1)*q^118 + (a - 1)*q^123 + (-a^3 - 
        a)*q^124 + a^3*q^127 + (-a^3 - a + 1)*q^128 + (-a^2 + 2*a - 1)*q^131 + 
        (-a^3 + 2*a^2 - 2*a)*q^138 + (a^3 - a^2 + a - 1)*q^139 + (-2*a^3 + 
        2*a^2)*q^141 + (a^3 - 2*a^2 + 2*a - 1)*q^144 + (-a^3 + a^2 - 1)*q^146 + 
        (a^2 - 2*a + 2)*q^150 + (a^3 - a^2 + 2*a - 1)*q^151 + (-a^2 + 3*a - 
        1)*q^156 + (-a^3 + a^2 - 1)*q^162 + (a^3 - 2*a^2 + a)*q^163 + a^3*q^164 
        + O(q^166),
    q^3 + (2*a^3 - 2*a^2 + a)*q^4 + (2*a - 2)*q^6 + (2*a^2 - 2*a + 1)*q^9 + (a^3
        - a + 1)*q^13 + (a^3 - 2*a^2 + a - 1)*q^18 + (a^3 - 2*a^2 + 2*a - 
        1)*q^24 + (-a^2 + 2*a - 1)*q^26 - q^27 + a*q^29 + (a^3 - a^2 - a + 
        1)*q^31 + (-a^3 + a^2 - 2*a + 1)*q^32 + (-2*a^3 + 2*a^2 - a)*q^36 + 
        (-a^3 + 2*a^2 - a + 1)*q^39 + (-a^3 + a^2)*q^41 - a^3*q^47 - a^2*q^48 + 
        (-2*a + 2)*q^54 + (2*a^2 - 2*a)*q^58 - a^3*q^69 + (2*a^2 - 2*a)*q^71 + 
        (-a^3 + a^2 - 2*a + 1)*q^73 + a^2*q^75 + (2*a^3 - 2*a^2 + a)*q^78 + 
        (-a^3 - a^2)*q^81 + (a^3 - a^2 + a)*q^82 + (2*a^3 - 2*a^2 + a)*q^87 + 
        (-a^3 + a^2 + a - 1)*q^92 + (a^3 - a^2 + a - 1)*q^93 + (-a^2 + 2*a - 
        1)*q^94 + (-a^3 + 2*a^2 - 2*a)*q^100 - a^2*q^104 + (-a^2 + 3*a - 
        1)*q^108 + (a - 1)*q^117 + (-a^3 + a^2)*q^123 + (-a^2 + 1)*q^127 + (-a^3
        - 1)*q^131 + (2*a^2 - 2*a + 2)*q^138 + (-a^3 + 2*a^2 - 2*a)*q^141 - 
        a^2*q^142 + (-a^3 + a)*q^144 + (-a^3 + 2*a^2 - a + 1)*q^146 + (-a^3 + 
        a^2 - a + 1)*q^147 + (2*a^3 - 2*a^2)*q^150 + (-a^3 + a - 1)*q^151 + 
        (-2*a^3 + a^2 + a - 2)*q^156 + (-2*a^3 + 4*a^2 - 2*a + 2)*q^162 + (a^3 -
        a^2 + 2*a - 1)*q^163 + O(q^166)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
943
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
943
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
88
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
943
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
110
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
943
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^4 + (-a^2 + a - 1)*q^6 + (-a + 1)*q^8 + q^9 + 2*a^2*q^12 + (a^3 - 
        a^2 + a - 1)*q^16 + (-a^2 + a - 1)*q^18 - a*q^23 + (-a + 1)*q^24 + (a^3 
        - a^2 + a - 1)*q^25 + (-a^3 - a)*q^26 + (a^3 - a^2 - 1)*q^27 + (-a^3 + 
        a^2)*q^32 + (-a^3 + a^2 - a)*q^36 + (a^2 + 1)*q^39 + (a^3 - 2*a^2 + 2*a 
        - 1)*q^48 - a^3*q^49 + (a^3 + a - 1)*q^52 + (-a^2 + a - 1)*q^54 + (-a + 
        1)*q^58 + (-a^2 + a - 1)*q^59 + (a^2 - a)*q^62 + (a^2 - a + 1)*q^64 + 
        (-2*a + 2)*q^72 + (-a^3 - a)*q^78 + q^81 - a*q^82 + 2*a^2*q^87 - 
        a^3*q^92 - 2*a^3*q^93 + (a^3 - a^2 + a)*q^94 + (-2*a^3 + 2*a^2)*q^96 - 
        a*q^100 + (a^2 - a)*q^101 + (-a^3 + 1)*q^104 + (-a^3 + 2*a^2 - a)*q^108 
        + (2*a^3 - 2*a^2 + 2*a - 2)*q^116 + (-a^2 + a - 1)*q^117 - a*q^121 - 
        a^3*q^123 + 2*q^124 + (a^3 - a^2 + a)*q^128 + (a^3 - a^2 + a)*q^138 + 
        (a^2 + 1)*q^141 + (2*a^3 - 2*a^2 + 2*a - 2)*q^142 + (2*a^3 - 3*a^2 + 3*a
        - 2)*q^144 + (a^2 + 1)*q^146 + (-a^3 + a^2)*q^150 + a^3*q^156 + a*q^162 
        + q^164 + O(q^166),
    q^2 + q^6 + a^2*q^8 + (a^2 - a)*q^9 + (-a^2 + a - 1)*q^12 + (a^3 - a^2)*q^13
        + (-a + 1)*q^16 + a^2*q^24 + (a^2 - a + 1)*q^26 + (-a^2 + a - 1)*q^36 - 
        q^39 + 1/5*(a^3 - 2*a^2 + 3*a - 4)*q^41 - a*q^46 + (-a^3 + a^2)*q^47 + 
        (-a + 1)*q^48 + (a^3 - a^2 + a - 1)*q^50 + (-a^3 - a)*q^52 + (a^3 - 
        a^2)*q^54 + a^2*q^58 - a^3*q^62 + (-a^3 + a^2)*q^64 + a^2*q^71 + (-a^3 +
        2*a^2 - a)*q^72 + (-a^2 + a)*q^73 + a*q^78 + 1/5*(-a^3 - 3*a^2 + 2*a - 
        1)*q^82 + (-a^2 + a - 1)*q^87 + (a^3 - a^2 + a)*q^93 + a*q^94 + (a^3 - 
        2*a^2 + 2*a - 1)*q^96 - a^3*q^98 + a^3*q^104 + (-a^2 + a - 1)*q^108 + 
        (-a + 1)*q^116 + (-a^2 + a - 1)*q^118 + 1/5*(4*a^3 - 3*a^2 + 2*a - 
        1)*q^123 + (a^2 - a)*q^124 + a*q^127 + (a^2 - a + 1)*q^128 + (-a^3 + a^2
        - a)*q^131 - a*q^138 - a^3*q^139 + (-a + 1)*q^144 + (a^3 - a^2)*q^146 + 
        (a^3 - a^2 + a - 1)*q^150 + (a^3 - a^2)*q^151 + (-a^3 - a)*q^156 + (a^3 
        - a^2)*q^162 + (-a^2 + a)*q^163 - a*q^164 + O(q^166),
    q^3 + a^2*q^4 - q^9 + (a^2 - a + 1)*q^13 + (-a^2 + a - 1)*q^18 + (-a + 
        1)*q^24 + (-a^3 + a^2 - a)*q^26 + q^27 + a^2*q^29 - a^3*q^31 + (-a^3 + 
        a^2)*q^32 + a^2*q^36 + (-a^2 + a - 1)*q^39 + 1/5*(-a^3 - 3*a^2 + 2*a - 
        1)*q^41 + a*q^47 + (a^3 - a^2 + a - 1)*q^48 - a*q^69 + (a^3 - a^2)*q^73 
        + (a^3 - a^2 + a - 1)*q^75 - a^2*q^78 + (a^3 - a^2 - 1)*q^81 + 1/5*(a^3 
        - 2*a^2 - 2*a + 1)*q^82 - a^2*q^87 - a^3*q^92 + a^3*q^93 + (a^3 - a^2 + 
        a)*q^94 - a*q^100 + (-a^3 + a^2 - a + 1)*q^104 + (-a^3 - a)*q^108 + (a^2
        + 1)*q^117 + 1/5*(a^3 + 3*a^2 - 2*a + 1)*q^123 + (a^3 - a^2 + a)*q^127 +
        (a - 1)*q^131 - a*q^141 + (a^3 - a^2 + a - 1)*q^142 + (-a^2 + a)*q^144 +
        (a^2 - a + 1)*q^146 - a^3*q^147 + (a^2 - a + 1)*q^151 + (a^3 + a - 
        1)*q^156 + (a^3 - a^2)*q^163 + O(q^166)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
943
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
943
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 + (a + 1)*q^6 + 2*a*q^8 - a*q^9 + (-a + 1)*q^12 + q^16 + q^23 + (-a 
        - 1)*q^24 - q^25 + (-a - 1)*q^26 + (-a - 1)*q^27 - 2*a*q^32 + a*q^36 + 
        2*a*q^39 + (2*a - 2)*q^48 - a*q^49 + (a - 1)*q^52 + (-a + 1)*q^54 + (-a 
        - 1)*q^58 + 2*q^59 - 3*q^64 + 2*q^72 - q^81 - a*q^82 - q^92 + (a - 
        1)*q^93 + (-a + 1)*q^94 + (2*a + 2)*q^96 + q^100 + (a + 1)*q^101 + (a + 
        1)*q^104 + (a - 1)*q^116 + (a + 1)*q^117 - a*q^121 - q^123 + 2*a*q^128 +
        (a + 1)*q^138 + (a + 1)*q^142 - a*q^144 + (-a - 1)*q^150 - 2*a*q^156 - 
        2*a*q^162 - q^164 + O(q^166),
    q^2 - a*q^4 + (a - 1)*q^6 - q^8 + q^9 + (a + 1)*q^12 + 2*a*q^16 + (-a + 
        1)*q^24 + (-a + 1)*q^26 + (a + 1)*q^29 - a*q^31 + 2*q^32 - q^36 - q^39 +
        1/2*(a + 1)*q^41 + q^46 + (a - 1)*q^47 + (-2*a - 2)*q^48 - q^50 + (-a - 
        1)*q^52 + q^62 - 2*a*q^64 + (-a - 1)*q^71 + 2*a*q^72 - q^73 + a*q^78 + 
        1/2*(a + 1)*q^82 - q^87 - a*q^92 + (2*a - 2)*q^96 - a*q^98 + a*q^100 + 
        (a - 1)*q^104 + (-a - 1)*q^116 + 2*q^118 + 1/2*(-a - 1)*q^123 - a*q^127 
        - 3*q^128 + q^131 + (a - 1)*q^138 - a*q^139 - a*q^141 + q^144 - a*q^146 
        + (-a + 1)*q^150 + (-a - 1)*q^151 + 2*q^156 + q^162 + a*q^163 - a*q^164 
        + O(q^166),
    q^3 + a*q^6 + (-a + 1)*q^9 - q^13 + (a + 1)*q^18 + a*q^24 - a*q^26 - a*q^27 
        + q^29 + (-a - 1)*q^31 + (a - 1)*q^39 + 1/2*(-a + 1)*q^41 + a*q^47 - 
        q^48 + q^54 + a*q^58 + (-a + 1)*q^62 + q^69 - q^71 + (a + 1)*q^72 + (a -
        1)*q^73 - q^75 + (-a - 1)*q^78 + (-a - 1)*q^81 + 1/2*(a + 1)*q^82 - q^93
        - q^94 - a*q^104 + 2*a*q^117 + 1/2*(-a - 1)*q^123 + a*q^138 + (-a - 
        1)*q^139 - a*q^142 + (a - 1)*q^144 + (-a - 1)*q^146 - a*q^147 - a*q^150 
        - q^151 + (-a + 1)*q^162 + (a + 1)*q^163 + O(q^166)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
943
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 20*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
943
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 20*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^16 - q^18 + q^25 + q^31 + q^32 - q^39 - 1/2*q^41 + q^46 + q^49 - q^62 
        - q^64 + q^72 - q^73 - q^78 + q^81 + 1/2*q^82 + q^87 - q^92 - 2*q^98 + 
        q^118 - q^119 + 1/2*q^123 + q^124 - q^127 + q^128 + q^131 - q^133 - 
        q^141 - q^154 - q^164 + O(q^166),
    q^2 + q^18 - q^31 - q^32 - q^46 - q^49 + q^50 - q^77 - q^82 + q^98 + q^119 +
        q^121 - q^124 - q^131 + q^133 + q^139 + q^162 + q^163 + O(q^166),
    q^3 + q^6 + q^13 - q^24 + q^26 - q^27 - q^29 - 1/2*q^41 + q^47 - q^48 - q^54
        - q^58 + q^69 - q^71 + q^75 - 1/2*q^82 + q^93 + q^94 - q^104 - 2*q^117 -
        1/2*q^123 + q^138 - q^142 - q^147 + q^150 - q^151 + O(q^166),
    q^4 - q^16 - q^23 + q^36 - q^41 + q^59 - q^62 + q^73 + q^77 - q^98 + q^100 +
        q^119 + q^127 - 2*q^133 - q^144 - q^154 + O(q^166),
    q^7 - q^14 - q^19 - q^22 + q^28 + q^34 + q^38 - q^53 + q^63 - q^76 - q^97 + 
        q^106 - q^112 - q^126 + q^134 + q^137 + q^149 + q^158 - q^161 + 
        O(q^166),
    q^8 - 2*q^16 - q^23 + q^31 + 2*q^32 - q^41 + q^46 + q^49 - 2*q^62 - 2*q^64 +
        q^72 + q^77 + q^82 - q^92 - 2*q^98 + q^118 + 2*q^124 + 2*q^128 + q^131 -
        2*q^133 - 2*q^144 + q^146 - q^154 - q^164 + O(q^166),
    q^9 + q^16 + q^18 - q^31 - q^32 + q^39 + 1/2*q^41 - q^46 - q^59 - q^72 - 
        q^77 + q^78 - 1/2*q^82 - q^87 + q^98 - q^118 + q^121 - 1/2*q^123 - q^124
        - q^128 - q^131 + q^133 + q^141 + O(q^166),
    q^11 - q^14 - q^19 + q^28 + q^38 - q^53 - q^68 + q^89 - q^97 + q^99 + q^106 
        + q^109 - q^112 - q^126 + q^157 - q^161 + O(q^166),
    q^17 - q^19 - q^22 + q^28 + q^34 - q^44 - q^53 + q^67 + q^79 - q^97 - q^112 
        + q^134 + q^153 + q^158 - q^161 + O(q^166)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
944
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
944
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
944
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
944
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
58
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
944
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
116
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
944
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
58
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
944
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
58
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
944
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
116
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
944
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
58
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^23 - a^19)*q^3 + (-a^17 - a^13 - a^9)*q^9 + (a^16 - a^5)*q^11 + 
        (a^14 + a^8)*q^17 + (a^26 - a^21)*q^19 + a^12*q^25 + (a^27 - a^26 + a^25
        - a^24 + a^23 - a^22 + a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - 
        a^14 + a^13 - a^12 - a^10 + a^9 - a^8 - a^6 + a^5 - a^4 - a^2 + a - 
        1)*q^27 + (a^27 - a^26 + a^25 + a^23 - a^22 + a^21 - a^20 + a^19 - a^18 
        + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 + a^9 - a^8 + a^7 + a^5
        - a^4 + a^3 - a^2 + a - 1)*q^33 + (-a^27 - a)*q^41 + (-a^25 + a^12)*q^43
        - a^7*q^49 + (-a^27 + a^8 + a^4 + a^2)*q^51 + (a^20 + a^16 - a^15 - 
        a^11)*q^57 - a^15*q^59 + (a^22 - a^13)*q^67 + (a^20 + a^18)*q^73 + (a^6 
        + a^2)*q^75 + (a^26 + a^22 + a^18 - a^5 - a)*q^81 + (a^10 - a^9)*q^83 + 
        (-a^23 + a^4)*q^89 + (-a^25 + a^24)*q^97 + (-a^25 + a^22 + a^18 + a^14 +
        a^4 + 1)*q^99 + (a^18 - a^3)*q^107 + (a^22 - a^19)*q^113 + (-a^21 + a^10
        - a^3)*q^121 + (a^24 - a^21 + a^20 - a^17)*q^123 + (-a^19 - a^15 + a^6 +
        a^2)*q^129 + (-a^17 - a^15)*q^131 + (a^14 + a^4)*q^137 + (a^20 + 
        1)*q^139 + (a^26 - a)*q^147 + (-a^27 - a^25 - a^23 - a^21 - a^17 + 
        a^2)*q^153 + (-a^27 - a^11)*q^163 - a^3*q^169 + (a^14 + a^10 - a^9 + a^6
        - a^5 - a)*q^171 + (-a^9 - a^5)*q^177 + (a^24 - a^7)*q^179 + (a^24 - 
        a^19 - a^13 - a)*q^187 + (a^26 - a^11)*q^193 + (a^16 + a^12 - a^7 - 
        a^3)*q^201 + (a^26 - a^13 + a^8 + a^2)*q^209 + (-a^23 - a)*q^211 + (a^14
        + a^12 + a^10 + a^8)*q^219 + (-a^25 - a^21 + 1)*q^225 + (a^20 + 
        a^6)*q^227 + O(q^230),
    q^2 - a*q^4 + (-a^23 - a^19)*q^6 + a^2*q^8 + (a^24 + a^20)*q^12 - a^3*q^16 +
        (-a^17 - a^13 - a^9)*q^18 + (a^16 - a^5)*q^22 + (-a^25 - a^21)*q^24 + 
        a^4*q^32 + (a^14 + a^8)*q^34 + (a^18 + a^14 + a^10)*q^36 + (a^26 - 
        a^21)*q^38 + (-a^17 + a^6)*q^44 + (a^26 + a^22)*q^48 + a^12*q^50 + (a^27
        - a^26 + a^25 - a^24 + a^23 - a^22 + a^21 - a^20 + a^19 - a^18 + a^17 - 
        a^16 + a^15 - a^14 + a^13 - a^12 - a^10 + a^9 - a^8 - a^6 + a^5 - a^4 - 
        a^2 + a - 1)*q^54 - a^5*q^64 + (a^27 - a^26 + a^25 + a^23 - a^22 + a^21 
        - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 + 
        a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^66 + (-a^15 - 
        a^9)*q^68 + (-a^19 - a^15 - a^11)*q^72 + (-a^27 + a^22)*q^76 + (-a^27 - 
        a)*q^82 + (-a^25 + a^12)*q^86 + (a^18 - a^7)*q^88 + (-a^27 - a^23)*q^96 
        - a^7*q^98 - a^13*q^100 + (-a^27 + a^8 + a^4 + a^2)*q^102 + (a^12 + a^8 
        + a^4 + 1)*q^108 + (a^20 + a^16 - a^15 - a^11)*q^114 - a^15*q^118 + 
        a^6*q^128 + (-a^25 - a^11 - a^7 + 1)*q^132 + (a^22 - a^13)*q^134 + (a^16
        + a^10)*q^136 + (a^20 + a^16 + a^12)*q^144 + (a^20 + a^18)*q^146 + (a^6 
        + a^2)*q^150 + (a^27 - a^26 + a^25 - a^24 - a^22 + a^21 - a^20 + a^19 - 
        a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8
        + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^152 + (a^26 + a^22 + a^18
        - a^5 - a)*q^162 + (a^27 - a^26 + a^25 - a^24 + a^23 - a^22 + a^21 - 
        a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - 
        a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^164 + (a^10 - 
        a^9)*q^166 + (a^26 - a^13)*q^172 + (-a^19 + a^8)*q^176 + (-a^23 + 
        a^4)*q^178 + (a^27 - a^26 + a^25 + a^23 - a^22 + a^21 - a^20 + a^19 - 
        a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8
        + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^192 + (-a^25 + 
        a^24)*q^194 + a^8*q^196 + (-a^25 + a^22 + a^18 + a^14 + a^4 + 1)*q^198 +
        a^14*q^200 + (a^27 - a^26 + a^25 - a^24 + a^23 - a^22 + a^21 - a^20 + 
        a^19 - a^18 + a^17 - a^16 + a^15 - a^14 + a^13 - a^12 + a^11 - a^10 - 
        a^8 + a^7 - a^6 - a^4 - a^2 + a - 1)*q^204 + (a^18 - a^3)*q^214 + (-a^13
        - a^9 - a^5 - a)*q^216 + (a^22 - a^19)*q^226 + (-a^21 - a^17 + a^16 + 
        a^12)*q^228 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
944
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
29*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^15 - q^17 - q^21 + q^25 + q^27 + q^35 - q^45 + q^49 - q^57 - 
        q^59 - 2*q^63 + q^71 - 2*q^75 + q^81 + q^87 - 2*q^95 - q^105 + q^121 - 
        2*q^123 - q^125 - q^133 + q^135 + q^139 - q^145 + q^147 - q^153 - 
        2*q^159 + q^163 + q^169 + q^171 + q^175 - q^189 - q^197 - 2*q^203 - 
        q^205 + q^223 + O(q^230),
    q^3 - q^15 + q^17 - q^25 - q^35 - q^41 + q^45 - q^53 + q^57 - q^71 + q^75 + 
        q^79 - q^85 + q^95 + q^119 + q^125 + q^133 - q^139 + q^145 - q^163 - 
        q^171 - q^177 - q^181 - q^189 + q^197 + q^199 + q^205 - q^223 - q^225 + 
        O(q^230),
    q^5 - q^17 - q^19 - q^21 + q^27 + q^35 + q^49 - q^51 - q^63 + q^71 + q^81 + 
        q^87 - q^107 - q^119 - q^127 - q^133 + q^139 - q^145 + q^163 + q^175 + 
        q^193 - q^197 - q^203 + q^213 + q^223 - q^225 + O(q^230),
    q^7 - q^9 - q^15 + q^17 + q^21 - q^27 - q^29 + q^51 + q^57 + q^63 - q^71 + 
        q^75 - q^81 - q^85 - q^87 + q^123 + q^125 - q^137 - q^139 - q^147 + 
        q^153 + q^159 - q^163 + q^167 + q^189 + q^197 + q^205 - q^213 - q^223 + 
        O(q^230)
]
;
Bo:=
[
    q + q^9 - q^15 - q^17 - q^21 + q^25 - q^27 - q^35 - q^45 + q^49 - q^57 + 
        q^59 + 2*q^63 - q^71 + 2*q^75 + q^81 - q^87 + 2*q^95 - q^105 + q^121 + 
        2*q^123 - q^125 - q^133 - q^135 - q^139 - q^145 - q^147 - q^153 + 
        2*q^159 - q^163 + q^169 - q^171 - q^175 - q^189 - q^197 + 2*q^203 - 
        q^205 - q^223 + O(q^230),
    q^2 + q^18 - q^30 - q^34 - q^42 + q^50 - q^54 - q^70 - q^90 + q^98 - q^114 +
        q^118 + 2*q^126 - q^142 + 2*q^150 + q^162 - q^174 + 2*q^190 - q^210 + 
        O(q^230),
    q^3 - q^15 - q^17 + q^25 - q^35 + q^41 - q^45 + q^53 - q^57 - q^71 + q^75 + 
        q^79 + q^85 + q^95 + q^119 - q^125 - q^133 - q^139 - q^145 - q^163 - 
        q^171 + q^177 + q^181 + q^189 - q^197 + q^199 - q^205 - q^223 + q^225 + 
        O(q^230),
    q^4 + q^36 - q^60 - q^68 - q^84 + q^100 - q^108 - q^140 - q^180 + q^196 - 
        q^228 + O(q^230),
    q^5 - q^17 + q^19 - q^21 - q^27 - q^35 + q^49 + q^51 + q^63 - q^71 + q^81 - 
        q^87 + q^107 + q^119 + q^127 - q^133 - q^139 - q^145 - q^163 - q^175 + 
        q^193 - q^197 + q^203 + q^213 - q^223 - q^225 + O(q^230),
    q^6 - q^30 - q^34 + q^50 - q^70 + q^82 - q^90 + q^106 - q^114 - q^142 + 
        q^150 + q^158 + q^170 + q^190 + O(q^230),
    q^7 + q^9 - q^15 - q^17 - q^21 - q^27 + q^29 + q^51 - q^57 + q^63 - q^71 + 
        q^75 + q^81 + q^85 - q^87 + q^123 - q^125 + q^137 - q^139 - q^147 - 
        q^153 + q^159 - q^163 + q^167 - q^189 - q^197 - q^205 + q^213 - q^223 + 
        O(q^230),
    q^8 - q^24 + q^32 - q^40 - q^56 - q^96 + q^120 + q^128 + 2*q^136 - q^152 - 
        q^160 + q^168 + q^216 - q^224 + O(q^230),
    q^10 - q^34 + q^38 - q^42 - q^54 - q^70 + q^98 + q^102 + q^126 - q^142 + 
        q^162 - q^174 + q^214 + O(q^230),
    q^12 - q^60 - q^68 + q^100 - q^140 + q^164 - q^180 + q^212 - q^228 + 
        O(q^230),
    q^14 + q^18 - q^30 - q^34 - q^42 - q^54 + q^58 + q^102 - q^114 + q^126 - 
        q^142 + q^150 + q^162 + q^170 - q^174 + O(q^230),
    q^16 - q^48 + q^64 - q^80 - q^112 - q^192 + O(q^230),
    q^20 - q^68 + q^76 - q^84 - q^108 - q^140 + q^196 + q^204 + O(q^230),
    q^28 + q^36 - q^60 - q^68 - q^84 - q^108 + q^116 + q^204 - q^228 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
944
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 29*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + (-a - 1)*q^5 + a*q^7 + a*q^9 - q^16 + q^17 + (-a + 1)*q^19 + (-a
        + 1)*q^20 - q^22 + a*q^25 + a*q^26 - q^28 + (-a + 1)*q^35 - q^36 - 
        a*q^41 + (-a + 1)*q^45 + (-a - 1)*q^46 + (a - 1)*q^62 - q^63 - a*q^64 + 
        a*q^68 - a*q^71 + q^74 + (a + 1)*q^76 + q^79 + (a + 1)*q^80 - q^81 + (-a
        - 1)*q^85 + q^86 - a*q^88 - 2*q^95 - q^100 - q^104 + (a + 1)*q^107 + (a 
        + 1)*q^110 - a*q^112 - q^118 + a*q^119 - 2*a*q^122 + (-a + 1)*q^130 + (a
        + 1)*q^133 + a*q^137 + (a + 1)*q^140 - q^143 - a*q^144 + a*q^153 - 
        a*q^154 + (a - 1)*q^163 + q^164 + a*q^166 + (a + 1)*q^171 - q^175 + (a +
        1)*q^178 + (a + 1)*q^180 + (a + 1)*q^181 - q^182 + (-a + 1)*q^184 - 
        q^193 + (-a + 1)*q^194 + (-a - 1)*q^197 - a*q^198 + q^202 + (a - 
        1)*q^205 + q^223 - q^225 + (a - 1)*q^226 + O(q^230),
    q^2 + a*q^8 + (-a - 1)*q^10 + a*q^11 + q^13 + a*q^14 + a*q^18 + (a - 1)*q^23
        + (a + 1)*q^31 - q^32 + q^34 - a*q^37 + (-a + 1)*q^38 + (-a + 1)*q^40 - 
        a*q^43 - q^44 + a*q^50 + a*q^52 + (-a + 1)*q^55 - q^56 + a*q^59 - 2*q^61
        + (-a - 1)*q^65 + (-a + 1)*q^70 - q^72 - q^77 - a*q^82 + q^83 + (-a + 
        1)*q^89 + (-a + 1)*q^90 + a*q^91 + (-a - 1)*q^92 + (-a - 1)*q^97 - q^99 
        - a*q^101 + (a + 1)*q^113 + 2*q^115 + a*q^117 + (a - 1)*q^124 - q^126 - 
        a*q^128 + a*q^136 - a*q^142 + q^148 - a*q^149 + (a + 1)*q^152 - 
        2*a*q^155 + q^158 + (a + 1)*q^160 + (-a - 1)*q^161 - q^162 + (-a - 
        1)*q^170 + q^172 + q^173 - a*q^176 - q^179 + (a - 1)*q^185 + a*q^187 - 
        2*q^190 - q^200 + (-a - 1)*q^207 - q^208 + (a + 1)*q^209 - q^211 + (a + 
        1)*q^214 + (a - 1)*q^215 + (a - 1)*q^217 + (a + 1)*q^220 + q^221 - 
        a*q^224 - q^227 + a*q^229 + O(q^230)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
944
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 29*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^7 + q^9 - q^17 + q^25 - q^41 - q^63 - q^71 - q^79 + q^81 + q^119 + 
        2*q^127 - q^137 + q^143 - q^153 + 2*q^167 - q^175 - q^193 + 2*q^199 - 
        q^223 + q^225 + O(q^230),
    q^2 + q^8 - q^14 + q^18 + q^32 - q^34 - q^44 + q^50 - q^52 - q^56 + q^72 - 
        q^82 - q^126 + q^128 - q^136 - q^142 - q^148 - q^158 + q^162 - q^172 - 
        q^176 + q^200 - q^208 - q^224 + O(q^230),
    q^4 + q^16 - q^22 - q^26 - q^28 + q^36 + q^64 - q^68 - q^74 - q^86 - q^88 + 
        q^100 - q^104 - q^112 + q^118 + 2*q^122 + 2*q^134 + q^144 + q^154 - 
        q^164 - q^166 + q^182 - q^198 - q^202 + 2*q^218 + O(q^230),
    q^11 + q^13 + q^37 + q^43 - q^59 - 2*q^61 - 2*q^67 - q^77 + q^83 - q^91 + 
        q^99 + q^101 - 2*q^109 + q^117 - 2*q^131 + q^149 - 2*q^157 + q^173 + 
        q^179 - q^187 + q^211 - q^221 + q^227 + q^229 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^10 - q^16 - q^19 + q^25 - q^31 + q^34 + q^40 + q^46 + q^49 - q^61 + 
        q^64 - q^79 - q^85 - 2*q^94 + q^106 - q^109 - q^115 + q^121 - q^136 + 
        2*q^139 + 2*q^151 + q^166 + q^169 - q^181 - q^184 + q^190 + 2*q^199 - 
        q^211 - 2*q^214 - 2*q^226 - q^229 + 2*q^235 - q^241 - q^250 - q^265 + 
        O(q^266),
    q^2 - q^5 - q^8 + q^17 + q^23 - q^38 - 2*q^47 + q^50 + q^53 - q^62 + q^80 + 
        q^83 + q^95 + q^98 - 2*q^107 - 2*q^113 - q^122 - q^125 + q^128 + q^137 +
        q^152 + q^155 - q^158 + q^167 - q^170 + q^173 + q^197 - q^200 - q^218 + 
        q^227 - q^230 - 2*q^233 + q^242 - q^245 + q^248 + q^257 - 2*q^263 + 
        O(q^266),
    q^7 - q^70 - q^112 - q^133 + q^175 - q^217 + q^238 + O(q^266),
    q^14 - q^35 - q^56 + q^119 + q^161 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^4 - q^7 + (2*a - 1)*q^13 - a*q^16 + (a - 1)*q^25 + (a - 
        1)*q^28 + (-a - 1)*q^31 - a*q^37 + q^43 + q^49 + (a + 1)*q^52 + (-a + 
        2)*q^61 - q^64 + (-a + 1)*q^67 + a*q^79 + (-2*a + 1)*q^91 + (-2*a + 
        1)*q^97 + a*q^100 + (a - 2)*q^103 + (a - 1)*q^109 + a*q^112 + a*q^121 + 
        (a - 2)*q^124 - q^127 + (-2*a + 1)*q^139 - q^148 + (a - 1)*q^151 + 
        a*q^163 - 2*q^169 + (-a + 1)*q^172 + (-a + 1)*q^175 + (a - 1)*q^193 + 
        (-a + 1)*q^196 + (a + 1)*q^199 + (-a + 2)*q^208 + q^211 + (a + 1)*q^217 
        + (-a + 2)*q^229 + (-a - 1)*q^241 + (-2*a + 1)*q^244 + (a - 1)*q^256 + 
        a*q^259 + O(q^266),
    q^5 + (-a + 1)*q^20 - q^35 + (2*a - 1)*q^65 - a*q^80 + (a - 1)*q^125 + (a - 
        1)*q^140 + (-a - 1)*q^155 - a*q^185 + q^215 + q^245 + (a + 1)*q^260 + 
        O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.1 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.1 + 2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + q^7 - q^13 + (a - 1)*q^16 + (2*a - 2)*q^19 - a*q^25 - a*q^28 + 
        a*q^31 + (-a + 1)*q^37 - q^43 + q^49 + a*q^52 + (-a + 1)*q^61 + q^64 + 
        a*q^67 - 2*a*q^73 + 2*q^76 + (-a + 1)*q^79 - q^91 - q^97 + (a - 1)*q^100
        + (-a + 1)*q^103 + a*q^109 + (a - 1)*q^112 + (a - 1)*q^121 + (-a + 
        1)*q^124 - q^127 + (2*a - 2)*q^133 - q^139 - q^148 + a*q^151 - 2*a*q^157
        + (-a + 1)*q^163 + a*q^172 - a*q^175 + 2*q^181 + a*q^193 - a*q^196 + 
        a*q^199 + (-a + 1)*q^208 - q^211 + a*q^217 + 2*q^223 + (-a + 1)*q^229 + 
        a*q^241 - q^244 + (-2*a + 2)*q^247 - a*q^256 + (-a + 1)*q^259 + 
        O(q^266),
    q^5 - a*q^20 + q^35 - q^65 + (a - 1)*q^80 + (2*a - 2)*q^95 - a*q^125 - 
        a*q^140 + a*q^155 + (-a + 1)*q^185 - q^215 + q^245 + a*q^260 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + a*q^10 + (-a + 1)*q^16 + a*q^31 - 2*q^34 - q^49 + (a - 1)*q^61 -
        q^64 + a*q^70 + (-a + 1)*q^79 + q^85 - q^91 - a*q^109 + (a - 1)*q^121 + 
        (-a + 1)*q^124 + a*q^130 + q^139 + (-a + 1)*q^145 + a*q^151 + q^160 + 
        (-2*a + 2)*q^166 - a*q^175 + a*q^196 - a*q^199 + (-a + 1)*q^205 - q^211 
        + 2*a*q^214 + (a - 1)*q^229 - a*q^241 + q^244 + (a - 1)*q^250 - a*q^256 
        + (-a + 1)*q^259 + O(q^266),
    q^2 + q^14 + (-a + 1)*q^17 + q^26 - a*q^29 + (-a + 1)*q^32 - q^35 - a*q^41 +
        a*q^50 + (a - 1)*q^59 + a*q^62 - q^65 - q^68 + a*q^71 + (a - 1)*q^74 + 
        a*q^83 - q^86 - q^98 - q^107 + (a - 1)*q^116 + (-a + 1)*q^119 + (a - 
        1)*q^122 - a*q^125 - q^131 - a*q^134 + a*q^140 + q^149 + (-a + 1)*q^158 
        + (a - 1)*q^164 + (a - 1)*q^179 - q^182 + (-a + 1)*q^185 - q^194 - 
        a*q^197 + a*q^203 + (-a + 1)*q^206 + q^215 - a*q^218 + (-a + 1)*q^221 + 
        (-a + 1)*q^224 + (a - 1)*q^227 + q^233 + q^236 + (a - 1)*q^242 + q^254 -
        q^257 + a*q^260 + O(q^266),
    q^5 + 2*q^14 - a*q^20 + 2*q^26 - 2*a*q^29 - q^35 - 2*a*q^41 + 2*a*q^50 + 
        (2*a - 2)*q^59 - q^65 + 2*a*q^71 + (2*a - 2)*q^74 + (-a + 1)*q^80 - 
        2*q^86 + (2*a - 2)*q^116 + (-2*a + 2)*q^119 - a*q^125 - 2*q^131 - 
        2*a*q^134 + a*q^140 + 2*q^149 + a*q^155 + (2*a - 2)*q^164 - 2*q^170 + 
        (2*a - 2)*q^179 + (-a + 1)*q^185 - 2*q^194 + (-2*a + 2)*q^206 + q^215 + 
        (-2*a + 2)*q^221 + (-2*a + 2)*q^224 + 2*q^236 - q^245 + 2*q^254 + 
        a*q^260 + O(q^266),
    q^7 - a*q^10 + q^13 + a*q^25 - a*q^28 + (a - 1)*q^37 - q^43 - a*q^52 + (2*a 
        - 2)*q^58 - a*q^67 + a*q^70 + (2*a - 2)*q^82 - q^85 - q^97 + (-a + 
        1)*q^100 + (-a + 1)*q^103 + (-a + 1)*q^112 + 2*q^118 + q^127 + a*q^130 +
        (-2*a + 2)*q^142 + (-a + 1)*q^145 + q^148 - q^160 + (a - 1)*q^163 + 
        a*q^172 - a*q^193 + (-a + 1)*q^205 + (-a + 1)*q^208 + a*q^217 - 2*q^238 
        + (a - 1)*q^250 + 2*a*q^262 + O(q^266)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 - q^7 + q^16 + q^25 + q^28 - 2*q^37 - 2*q^43 + q^49 - q^64 + 2*q^67 
        + 2*q^79 - q^100 - 2*q^109 - q^112 - q^121 + 2*q^127 + 2*q^148 - 2*q^151
        + 2*q^163 + q^169 + 2*q^172 - q^175 - 2*q^193 - q^196 - 2*q^211 + q^256 
        + 2*q^259 + O(q^266),
    q^3 - q^12 - q^21 + q^48 + q^75 + q^84 - 2*q^111 - 2*q^129 + q^147 - q^192 +
        2*q^201 + 2*q^237 + O(q^266),
    q^5 - q^20 - q^35 + q^80 + q^125 + q^140 - 2*q^185 - 2*q^215 + q^245 + 
        O(q^266),
    q^15 - q^60 - q^105 + q^240 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^10 + (-a + 1)*q^13 + q^16 - a*q^19 + (a + 1)*q^22 - a*q^25 - q^31 + 
        a*q^34 + a*q^40 - q^46 - a*q^49 + (a - 1)*q^55 + q^61 + a*q^64 + (-a - 
        1)*q^67 + (-a - 1)*q^70 + a*q^79 + q^85 + (a - 1)*q^88 - 2*q^91 + (-a - 
        1)*q^97 + (a - 1)*q^103 + q^106 - a*q^109 - a*q^115 - q^121 + (a - 
        1)*q^130 + (a - 1)*q^133 - q^136 + (a + 1)*q^157 - q^166 + a*q^169 + (a 
        - 1)*q^178 + q^181 - a*q^184 + (-a - 1)*q^187 + a*q^190 + (-a + 1)*q^193
        + (-a - 1)*q^202 + (-a + 1)*q^208 - q^211 + (a + 1)*q^217 + a*q^229 + 
        (-a + 1)*q^238 + q^241 + (a + 1)*q^247 - a*q^250 + (-a + 1)*q^253 + 
        a*q^265 + O(q^266),
    q^2 + a*q^8 + (a - 1)*q^11 + 1/2*(-a - 1)*q^14 - a*q^23 + 1/2*(-a + 1)*q^35 
        - a*q^50 + a*q^53 + 1/2*(-a + 1)*q^56 + (-a - 1)*q^65 + q^77 - q^95 + 
        1/2*(a + 1)*q^119 + a*q^128 + (-a - 1)*q^134 + q^137 + a*q^155 + a*q^158
        + 1/2*(a - 1)*q^161 + q^170 + (a - 1)*q^176 - q^182 + q^197 + q^200 - 
        a*q^218 + (-a + 1)*q^221 + (a + 1)*q^239 - q^242 - q^245 - 2*a*q^263 + 
        O(q^266),
    q^5 + 1/2*(-a + 1)*q^14 + a*q^17 + (-a - 1)*q^26 + 1/2*(-a - 1)*q^35 - q^38 
        + 1/2*(a + 1)*q^56 + a*q^62 + a*q^77 + q^80 - q^83 + (a - 1)*q^89 - q^98
        + (-a - 1)*q^101 + (-a + 1)*q^104 + (a + 1)*q^110 + 1/2*(-a + 1)*q^119 -
        a*q^122 - a*q^125 + 2*q^143 - a*q^152 + 1/2*(-a - 1)*q^161 + a*q^167 + 
        q^173 + a*q^182 + (a - 1)*q^194 + (a + 1)*q^206 + (-a + 1)*q^209 - 
        a*q^227 - q^230 - q^248 + (a + 1)*q^251 - a*q^257 + O(q^266),
    q^7 + (-a + 1)*q^10 - 2*a*q^13 + (-a - 1)*q^19 + (a - 1)*q^31 + (a + 1)*q^34
        + (a + 1)*q^40 + (-a - 1)*q^49 + 2*a*q^55 + (-a + 1)*q^61 - q^70 + (a - 
        1)*q^91 - 2*q^97 + 2*a*q^103 + q^112 + (-a - 1)*q^115 + a*q^133 + (a - 
        1)*q^136 + (a + 1)*q^154 + 2*q^157 + (a - 1)*q^166 - a*q^175 + 2*a*q^178
        + (-a + 1)*q^181 - 2*q^187 - 2*q^202 - 2*a*q^208 + q^217 + (a + 1)*q^229
        - a*q^238 + (-a + 1)*q^241 + (-a - 1)*q^250 + (a + 1)*q^265 + O(q^266)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^4 + (a^3 - 1)*q^9 + (-a^5 - a^3)*q^11 + (a^5 - a^2)*q^15 + 
        a^4*q^16 - a*q^21 - a*q^25 + a*q^29 - a^3*q^35 + (a^5 - a^2)*q^36 + 
        (-a^4 + a^3 + a - 1)*q^39 + (-a^5 - a^4 + a)*q^44 - a^5*q^49 + (-a^4 + 
        a^2 + a)*q^51 - a*q^60 + (a^3 - 1)*q^64 + (a^5 - a^2 + 1)*q^65 + (a^5 + 
        a^4 - a^2)*q^71 + (a^2 + 1)*q^79 - a^3*q^81 - a^3*q^84 + (a^4 + 1)*q^85 
        + (a^2 - a)*q^91 + (a^2 + 1)*q^99 - a^3*q^100 + (-a^5 + a^4)*q^109 + 
        a^3*q^116 + (a^3 + a^2 - 1)*q^119 + (a^5 + a^3 - a^2 - a - 1)*q^121 - 
        a^5*q^135 - a^5*q^140 + (-a^5 + a^3 - 1)*q^141 - a*q^144 + (a^4 - 
        a^3)*q^149 + (-a^5 - a^3)*q^151 + (a^5 - a^2 + 1)*q^156 + (a^4 + 
        a^2)*q^165 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^169 + (-a^4 + a + 
        1)*q^176 + (a^2 - a)*q^179 + (-a^4 + a)*q^189 - 2*a*q^191 + (-a^4 + 
        a)*q^196 + (a^4 + 1)*q^204 + (-a^4 - a^3 + a)*q^211 + (a^5 + a^4 - 
        a^2)*q^219 + (a^5 - a^4 - a^3 + a)*q^221 + (-a^4 + a)*q^225 + (a^4 + a^3
        - 1)*q^231 + (a^5 - a^4 - a^2 + a)*q^235 - a^2*q^239 - a^3*q^240 + (-a^5
        - a^3)*q^249 + (a^5 - a^2)*q^256 + (a^2 - a)*q^260 + (a^4 - a)*q^261 + 
        O(q^266),
    q^3 + a^2*q^5 + a^4*q^7 + a^2*q^12 + (-a + 1)*q^13 + (-a^5 - a)*q^17 + 
        a^4*q^20 + (a^3 - 1)*q^27 + (a^3 - 1)*q^28 + (-a^5 - a^3)*q^33 + (a^5 - 
        a^2)*q^45 + (a^5 - a^2 + 1)*q^47 + a^4*q^48 + (-a^3 + a^2)*q^52 + (-a^5 
        - a^4 + a)*q^55 - a*q^63 + (-a^4 - a^3 + a)*q^68 + (-a^4 + a^2 + a)*q^73
        - a*q^75 + (-a^4 + a + 1)*q^77 + (a^3 - 1)*q^80 + (a^5 + a^3 - a^2 - 
        1)*q^83 + a*q^87 + (a^5 - a^3 - a^2)*q^97 - a^2*q^103 - a^3*q^105 + (a^5
        - a^2)*q^108 + (a^5 - a^2)*q^112 + (-a^4 + a^3 + a - 1)*q^117 - 
        a^3*q^125 + (-a^5 - a^4 + a)*q^132 + (-a^5 + a^4 - 1)*q^143 + a^3*q^145 
        - a^5*q^147 + (-a^4 + a^2 + a)*q^153 + (-a^3 - a)*q^157 + (-a^3 - 
        a)*q^167 + a*q^173 - a^5*q^175 - a*q^180 + (a^5 + a^4 + a^3 - a^2 - a - 
        1)*q^187 + (a^2 - a)*q^188 + (a^3 - 1)*q^192 + (a^5 - a^2 + 1)*q^195 + 
        a^5*q^203 + (-a^5 + a^4)*q^208 + (a^5 + a^4 - a^2)*q^213 + (-a^4 + a + 
        1)*q^220 + (a^3 + a^2 - 1)*q^223 + (-a^5 + a^3 - 1)*q^227 + (a^2 + 
        1)*q^237 - a^3*q^243 + (-a^4 + a)*q^245 - a^3*q^252 + (a^4 + 1)*q^255 + 
        (-a + 1)*q^257 + O(q^266)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
945
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^4 - a*q^11 - a*q^16 - a*q^25 + 2*a*q^29 - q^35 + q^44 + (a - 
        1)*q^49 + q^64 - a*q^65 + q^71 + a*q^79 + (-a + 1)*q^85 - q^91 + q^100 -
        q^109 - 2*q^116 - a*q^119 + (-a + 1)*q^140 + (a - 1)*q^149 + a*q^151 + 
        (a - 1)*q^176 + q^179 + 2*a*q^191 - a*q^196 + (-a + 1)*q^211 + (-a + 
        1)*q^221 - q^235 + (-2*a + 2)*q^239 + (a - 1)*q^256 + q^260 + O(q^266),
    q^5 + (-a + 1)*q^7 + q^13 + a*q^17 + (a - 1)*q^20 + a*q^28 + (-a + 1)*q^47 +
        (a - 1)*q^52 - a*q^55 - q^68 - a*q^73 - q^77 - a*q^80 + (-a + 1)*q^83 + 
        (a - 1)*q^97 - 2*q^103 - q^112 - a*q^125 - a*q^143 + 2*a*q^145 + q^157 -
        q^167 + (2*a - 2)*q^173 - q^175 + (-a + 1)*q^187 + a*q^188 + 2*q^203 - 
        a*q^208 + q^220 + (a - 1)*q^223 + (-a + 1)*q^227 + (a - 1)*q^245 - q^257
        + O(q^266)
]
;
Bo:=
[
    q + (a - 1)*q^4 + a*q^11 - a*q^16 - a*q^25 - 2*a*q^29 + q^35 - q^44 + (a - 
        1)*q^49 + q^64 + a*q^65 - q^71 + a*q^79 + (-a + 1)*q^85 - q^91 + q^100 -
        q^109 + 2*q^116 + a*q^119 + (a - 1)*q^140 + (-a + 1)*q^149 + a*q^151 + 
        (-a + 1)*q^176 - q^179 - 2*a*q^191 - a*q^196 + (-a + 1)*q^211 + (a - 
        1)*q^221 - q^235 + (2*a - 2)*q^239 + (a - 1)*q^256 - q^260 + O(q^266),
    q^3 + (a - 1)*q^12 + q^27 + a*q^33 + (a - 1)*q^45 - a*q^48 - a*q^63 - a*q^75
        - 2*a*q^87 + q^105 + (a - 1)*q^108 + (-a + 1)*q^117 - q^132 + (a - 
        1)*q^147 - q^153 - a*q^180 + q^192 + a*q^195 - q^213 + a*q^237 + q^243 +
        q^252 + (-a + 1)*q^255 + O(q^266),
    q^5 + (a - 1)*q^7 - q^13 + a*q^17 + (a - 1)*q^20 - a*q^28 + (-a + 1)*q^47 + 
        (-a + 1)*q^52 + a*q^55 - q^68 + a*q^73 - q^77 - a*q^80 + (-a + 1)*q^83 +
        (-a + 1)*q^97 + 2*q^103 + q^112 - a*q^125 - a*q^143 - 2*a*q^145 - q^157 
        - q^167 + (2*a - 2)*q^173 + q^175 + (a - 1)*q^187 + a*q^188 + 2*q^203 + 
        a*q^208 - q^220 + (-a + 1)*q^223 + (-a + 1)*q^227 + (a - 1)*q^245 - 
        q^257 + O(q^266),
    q^9 + (a - 1)*q^15 - a*q^21 + (a - 1)*q^36 + (-a + 1)*q^39 - q^51 - a*q^60 +
        q^81 + q^84 + a*q^99 + (a - 1)*q^135 + a*q^141 - a*q^144 + a*q^156 - 
        q^165 - a*q^189 + (-a + 1)*q^204 - q^219 - a*q^225 + (-a + 1)*q^231 + 
        q^240 + a*q^249 - 2*a*q^261 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
946
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
946
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
946
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
946
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
210
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
946
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
210
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
946
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
946
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
946
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
946
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
946
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
946
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
946
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
946
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
946
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
946
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
946
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^2*q^4 - a*q^9 + q^11 + (a^2 + 1)*q^13 + (a^3 - a^2 + a - 1)*q^16 + 
        (a^2 - a)*q^17 + (a^3 - a^2 - 1)*q^23 - a^3*q^25 + (-a^2 + a - 1)*q^31 -
        a^3*q^36 - 2*a^3*q^41 + q^43 + a^2*q^44 + (-a + 1)*q^47 + (a^3 - a^2 + a
        - 1)*q^49 + (a^3 + a - 1)*q^52 + (-a^2 + a - 1)*q^53 + (-a^3 - a)*q^59 -
        a*q^64 + (a^3 - a^2 - 1)*q^67 + (-a^2 + a - 1)*q^68 + (-a^2 + a - 
        1)*q^79 + a^2*q^81 + (a^2 - a)*q^83 + (-a^3 - a)*q^92 + (a^2 + 1)*q^97 -
        a*q^99 + q^100 + (a^2 + 1)*q^101 + (a^3 - a^2 + a)*q^103 + (a^3 + a - 
        1)*q^107 + (-a^3 + a^2)*q^109 + (-a^3 - a)*q^117 + q^121 + (-a + 
        1)*q^124 + (2*a^3 - 2*a^2 + 2*a - 2)*q^127 + (-a^3 - a)*q^139 + (a^2 + 
        1)*q^143 + q^144 + (-a^3 + a^2)*q^153 + 2*q^164 + (a^2 + 1)*q^167 + (a^3
        + a)*q^169 + a^2*q^172 + (-a + 1)*q^173 + (a^3 - a^2 + a - 1)*q^176 + 
        (-a^3 + 1)*q^181 + (a^2 - a)*q^187 + (-a^3 + a^2)*q^188 + (a^2 - 
        a)*q^193 - a*q^196 + (a^3 - a^2 - 1)*q^197 + (a^2 + 1)*q^207 + (a^3 - 
        a^2 - 1)*q^208 + (-a + 1)*q^212 - q^221 + (a^3 - a^2 + a - 1)*q^225 + 
        (a^2 + 1)*q^229 + (-a^3 + 1)*q^236 + (a^3 + a - 1)*q^239 + (-a^2 + a - 
        1)*q^251 + (a^3 - a^2 - 1)*q^253 - a^3*q^256 + O(q^258),
    q^2 + a^2*q^8 - a*q^18 + q^22 + (a^2 + 1)*q^26 + (a^3 - a^2 + a - 1)*q^32 + 
        (a^2 - a)*q^34 + (a^3 - a^2 - 1)*q^46 - a^3*q^50 + (-a^2 + a - 1)*q^62 -
        a^3*q^72 - 2*a^3*q^82 + q^86 + a^2*q^88 + (-a + 1)*q^94 + (a^3 - a^2 + a
        - 1)*q^98 + (a^3 + a - 1)*q^104 + (-a^2 + a - 1)*q^106 + (-a^3 - 
        a)*q^118 - a*q^128 + (a^3 - a^2 - 1)*q^134 + (-a^2 + a - 1)*q^136 + 
        (-a^2 + a - 1)*q^158 + a^2*q^162 + (a^2 - a)*q^166 + (-a^3 - a)*q^184 + 
        (a^2 + 1)*q^194 - a*q^198 + q^200 + (a^2 + 1)*q^202 + (a^3 - a^2 + 
        a)*q^206 + (a^3 + a - 1)*q^214 + (-a^3 + a^2)*q^218 + (-a^3 - a)*q^234 +
        q^242 + (-a + 1)*q^248 + (2*a^3 - 2*a^2 + 2*a - 2)*q^254 + O(q^258)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
947
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
946
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
947
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
86
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
947
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
43*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
947
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
473*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 + q^25 - q^27 - q^31 - q^41 + q^49 - q^53 + q^64 - q^73 - 
        q^93 + q^100 - q^107 - q^108 + q^121 - q^123 - q^124 - q^127 - q^151 + 
        O(q^158),
    q^3 - q^9 + q^12 - q^31 - q^36 - q^41 + q^48 - q^53 - q^73 + q^75 + q^79 + 
        q^83 + q^89 + q^103 - q^107 + q^109 - q^124 - q^127 + q^131 - q^144 + 
        q^147 + q^149 - q^151 + O(q^158)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
948
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
948
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
948
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
948
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
948
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
948
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^3 + (-a^17 - a^11)*q^7 + a^2*q^9 + (a^23 + a^19 - a^10 - a^6)*q^13 +
        (a^20 - a^5)*q^19 + (a^18 + a^12)*q^21 - a^7*q^25 - a^3*q^27 + (-a^23 - 
        a^22 + a^20 + a^19 - a^17 - a^16 + a^14 + a^13 - a^12 - a^11 + a^8 - a^6
        - a^5 + a^3 + a^2 - 1)*q^31 + (-a^23 - a^15)*q^37 + (a^23 - a^21 - 
        2*a^20 + a^18 + a^17 - a^15 - a^14 + a^12 + a^11 - a^10 - a^9 + 2*a^7 + 
        a^6 - a^4 - a^3 + a + 1)*q^39 + (a^17 - a^16 - a^4 + a^3)*q^43 + (a^22 +
        a^21 + a^15 - a^8 - a^2)*q^49 + (-a^21 + a^6)*q^57 + (-a^23 + a^21 + 
        a^20 - a^18 - a^17 + a^15 - a^12 + a^10 + a^9 - a^7 - a^6 + a^4 + a^3 - 
        1)*q^61 + (-a^19 - a^13)*q^63 + (-a^18 + a^13 + a^5 - 1)*q^67 + (-a^22 +
        a^14 + a^9)*q^73 + a^8*q^75 + a^16*q^79 + a^4*q^81 + (a^14 + a^10 + a^8 
        + a^4)*q^91 + (a^13 + a^10 - 1)*q^93 + (a^23 + a^22 - a^20 - a^19 + a^17
        + a^16 - a^14 - 2*a^13 + a^11 - a^9 - a^8 + a^6 + a^5 - a^3 - a^2 + 
        1)*q^97 + (a^23 + a^22 - a^20 - a^19 + a^17 + a^16 - 2*a^14 - a^13 + 
        a^11 - a^9 - a^8 + a^6 + a^5 - a^3 - a^2 + a + 1)*q^103 + (-a^22 - a^21 
        + a^9)*q^109 + (-a^23 + a^21 + a^20 - a^18 - a^17 + a^16 + a^15 + a^14 -
        a^12 + a^10 + a^9 - a^7 - a^6 + a^4 + a^3 - a - 1)*q^111 + (a^23 + a^22 
        + a^21 - a^20 - a^19 + a^17 + a^16 - a^14 - a^13 + a^11 - a^9 - 2*a^8 + 
        a^6 + a^5 - a^3 - a^2 + 1)*q^117 - a^19*q^121 + (a^15 + a^6 - a^2)*q^127
        + (-a^18 + a^17 + a^5 - a^4)*q^129 + (a^23 + a^22 - a^21 - a^20 + a^17 +
        a^16 - a^15 - a^14 + a^12 + a^11 - a^10 - a^9 + a^7 + a^6 + a^5 - a^4 - 
        a^3 + a + 1)*q^133 + (-a^15 + a^10)*q^139 + (-a^23 - a^22 - a^16 + a^9 +
        a^3)*q^147 + (-a^19 - a^9)*q^151 + (-a^20 + a^7 + a^6)*q^157 + (a^4 - 
        a^3)*q^163 + (-a^23 - a^22 + a^19 - a^17 - 2*a^16 + a^14 + a^13 - a^12 -
        a^11 + a^9 + a^8 + a^7 - a^6 - a^5 + 2*a^3 + a^2 - 1)*q^169 + (a^22 - 
        a^7)*q^171 + (-a^23 + a^21 + a^20 - a^17 + a^15 + a^14 - a^12 + a^10 + 
        a^9 - a^7 - a^6 + a^4 + a^3 - a - 1)*q^175 + (a^8 - a^5)*q^181 + (-a^23 
        - a^22 + a^20 + a^19 - a^17 - a^16 + a^15 + a^14 + a^13 - a^12 - a^11 + 
        a^9 + a^8 - a^6 - a^5 + a^3 - 1)*q^183 + (a^20 + a^14)*q^189 + (-a^23 + 
        a^12)*q^193 + (-a^21 + a^12)*q^199 + (a^19 - a^14 - a^6 + a)*q^201 + 
        (a^17 - a^7 - a^4)*q^211 + (a^23 + a^20 + a^13 - a^10 - a^3 - 1)*q^217 +
        (a^23 - a^15 - a^10)*q^219 + (a^21 - a^8 + a^2)*q^223 - a^9*q^225 + 
        (-a^13 - a^11)*q^229 - a^17*q^237 + (a^23 - a^21 - a^20 + 2*a^18 + a^17 
        - a^15 - a^14 + a^12 + a^11 - a^10 - a^9 + a^7 + a^6 - a^4 - a^3 + a + 
        1)*q^241 - a^5*q^243 + (a^23 - a^21 - a^20 + a^18 - a^15 - a^14 - a^13 +
        a^12 + a^11 - a^10 - a^9 + a^7 + a^6 - a^4 - a^3 + a^2 + a + 1)*q^247 + 
        (a^21 + a^19 + a^13 - a^8 - a^6 - a - 1)*q^259 + (a^19 + a^18 - 
        a^6)*q^271 + (-a^15 - a^11 - a^9 - a^5)*q^273 + (a^17 - a^4 - a)*q^277 +
        (-a^14 - a^11 + a)*q^279 + (-a^21 + 1)*q^283 - a^3*q^289 + (a^14 + 
        1)*q^291 + (a^8 - a^7 + a^2 - a)*q^301 + (-a^23 + a^20)*q^307 + (a^15 - 
        a^2 + 1)*q^309 + O(q^310)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
948
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
948
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
948
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
948
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + (-a^11 + a^4)*q^7 + a^2*q^9 + (a^10 + a^6)*q^13 + (-a^7 - 
        a^5)*q^19 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 - a^4 + a^3 - a^2 + a -
        1)*q^21 - a^7*q^25 - a^3*q^27 + (a^11 - a^10 - a^8 + a^7 - a^6 + a^5 - 
        a^4 + a^3 - a^2 + a - 1)*q^31 + (a^10 + a^2)*q^37 + (-a^11 - a^7)*q^39 +
        (a^4 - a^3)*q^43 + (-a^9 + a^8 + a^2)*q^49 + (a^8 + a^6)*q^57 + (-a^11 -
        a)*q^61 + (a^6 + 1)*q^63 + (-a^5 + 1)*q^67 + (-a^9 - a)*q^73 + a^8*q^75 
        - a^3*q^79 + a^4*q^81 + (a^10 + a^8 + a^4 - a)*q^91 + (a^10 + 1)*q^93 + 
        (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a)*q^97 +
        (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 - 1)*q^103 
        + (-a^9 + a^8)*q^109 + (-a^11 - a^3)*q^111 + (a^11 - a^10 + a^9 + a^7 - 
        a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^117 + a^6*q^121 + (a^6 + 
        a^2)*q^127 + (-a^5 + a^4)*q^129 + (-a^11 - a^9 - a^5 - a^3)*q^133 + 
        (a^10 + a^2)*q^139 + (a^10 - a^9 - a^3)*q^147 + (-a^9 + a^6)*q^151 + 
        (-a^7 + a^6)*q^157 + (a^4 - a^3)*q^163 + (a^11 - a^10 + a^9 - a^8 - a^6 
        + a^5 - a^4 - a^2 + a - 1)*q^169 + (-a^9 - a^7)*q^171 + (-a^11 - 
        a^5)*q^175 + (a^8 - a^5)*q^181 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + 
        a^5 - a^4 + a^3 + a - 1)*q^183 + (-a^7 - a)*q^189 + (a^11 + a^9 - a^8 + 
        a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^193 + (a^11 - a^10 + a^9 + 
        a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^199 + (a^6 - a)*q^201 + 
        (-a^7 + a^4)*q^211 + (a^10 - a^7 - a^3 + 1)*q^217 + (a^10 + a^2)*q^219 +
        (a^8 + a^2)*q^223 - a^9*q^225 + (-a^11 + 1)*q^229 + a^4*q^237 + (-a^11 -
        a^5)*q^241 - a^5*q^243 + (-a^11 + a^4 + a^2 + 1)*q^247 + (a^8 + a^6 - a 
        + 1)*q^259 + (a^6 - a^5)*q^271 + (-a^11 - a^9 - a^5 + a^2)*q^273 + (a^4 
        - a)*q^277 + (-a^11 - a)*q^279 + (a^8 + 1)*q^283 - a^3*q^289 + (-a + 
        1)*q^291 + (a^8 - a^7 + a^2 - a)*q^301 + (a^10 - a^7)*q^307 + (a^2 + 
        1)*q^309 + O(q^310),
    q^2 - a*q^6 + a^8*q^8 + (-a^11 + a^4)*q^14 + a^2*q^18 - a^9*q^24 + (a^10 + 
        a^6)*q^26 - a^3*q^32 + (-a^7 - a^5)*q^38 + (a^11 - a^10 + a^9 - a^8 + 
        a^7 - a^6 - a^4 + a^3 - a^2 + a - 1)*q^42 - a^7*q^50 - a^3*q^54 + (a^11 
        - a^10 + a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^56 + (a^11 -
        a^10 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^62 + a^10*q^72
        + (a^10 + a^2)*q^74 + (-a^11 - a^7)*q^78 + (a^4 - a^3)*q^86 + a^4*q^96 +
        (-a^9 + a^8 + a^2)*q^98 + (-a^5 - a)*q^104 + (a^8 + a^6)*q^114 + (-a^11 
        - a)*q^122 + (a^6 + 1)*q^126 - a^11*q^128 + (-a^5 + 1)*q^134 + (-a^9 - 
        a)*q^146 + a^8*q^150 + (a^2 + 1)*q^152 - a^3*q^158 + a^4*q^162 + (-a^7 +
        1)*q^168 + (a^10 + a^8 + a^4 - a)*q^182 + (a^10 + 1)*q^186 + (a^11 - 
        a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a)*q^194 + 
        a^2*q^200 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2
        - 1)*q^206 - a^11*q^216 + (-a^9 + a^8)*q^218 + (-a^11 - a^3)*q^222 + 
        (-a^7 - a)*q^224 + (a^11 - a^10 + a^9 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^234 + a^6*q^242 + (-a^7 + a^4)*q^248 + (a^6 + a^2)*q^254 
        + (-a^5 + a^4)*q^258 + (-a^11 - a^9 - a^5 - a^3)*q^266 + (a^10 + 
        a^2)*q^278 - a^5*q^288 + (a^10 - a^9 - a^3)*q^294 + (a^10 - a^5)*q^296 +
        (-a^9 + a^6)*q^302 + O(q^310),
    q^4 - a*q^12 + a^8*q^16 + (-a^11 + a^4)*q^28 + a^2*q^36 - a^9*q^48 + (a^10 +
        a^6)*q^52 - a^3*q^64 + (-a^7 - a^5)*q^76 + (a^11 - a^10 + a^9 - a^8 + 
        a^7 - a^6 - a^4 + a^3 - a^2 + a - 1)*q^84 - a^7*q^100 - a^3*q^108 + 
        (a^11 - a^10 + a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^112 + 
        (a^11 - a^10 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^124 + 
        a^10*q^144 + (a^10 + a^2)*q^148 + (-a^11 - a^7)*q^156 + (a^4 - 
        a^3)*q^172 + a^4*q^192 + (-a^9 + a^8 + a^2)*q^196 + (-a^5 - a)*q^208 + 
        (a^8 + a^6)*q^228 + (-a^11 - a)*q^244 + (a^6 + 1)*q^252 - a^11*q^256 + 
        (-a^5 + 1)*q^268 + (-a^9 - a)*q^292 + a^8*q^300 + (a^2 + 1)*q^304 + 
        O(q^310)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
948
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
948
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 13*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
948
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 26*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
948
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 26*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^7 + (a - 1)*q^9 + a*q^13 + (a - 1)*q^19 + q^21 + (-a + 1)*q^31
        - a*q^49 - a*q^55 + q^57 + q^61 - a*q^63 - q^67 + (a - 1)*q^73 + (a - 
        1)*q^75 - a*q^81 + (-a + 1)*q^85 - q^91 + (-a + 1)*q^111 - q^117 + (-a +
        1)*q^127 + (-a + 1)*q^129 - 2*a*q^133 - a*q^145 + (2*a - 2)*q^147 + (-a 
        + 1)*q^151 + q^157 + (-a + 1)*q^165 - a*q^171 + q^175 + (a - 1)*q^181 - 
        a*q^183 + (a - 1)*q^187 + (a - 1)*q^189 + a*q^193 + q^199 + (a - 
        1)*q^205 + (-a + 1)*q^211 + a*q^217 + q^219 - q^223 - q^229 + (a - 
        1)*q^237 + (-a + 1)*q^241 - q^247 + q^255 - q^259 + a*q^265 + a*q^273 + 
        a*q^279 + a*q^291 + q^295 - q^301 + (a - 1)*q^307 + (-a + 1)*q^309 + 
        O(q^310),
    q^3 - a*q^7 - a*q^19 + (a - 1)*q^21 + q^25 + (a - 1)*q^27 - q^37 + a*q^39 - 
        q^43 + 2*q^49 - q^55 + (a - 1)*q^57 + (a - 1)*q^61 + q^63 - a*q^73 + 
        q^79 - a*q^85 + (-a + 1)*q^91 + (-a + 1)*q^93 + (-a + 1)*q^97 - q^103 - 
        q^109 + q^121 + 2*q^133 + a*q^139 - q^145 - a*q^147 + (a - 1)*q^157 + 
        a*q^163 - a*q^165 + q^171 + (a - 1)*q^175 - a*q^181 + q^183 + a*q^187 - 
        a*q^189 + (a - 1)*q^199 - q^201 + a*q^205 - q^217 + (a - 1)*q^219 + (a -
        1)*q^225 - a*q^243 + (-a + 1)*q^247 + (-a + 1)*q^255 + (-a + 1)*q^259 + 
        q^265 - q^271 - q^273 + a*q^277 + (2*a - 2)*q^283 + (a - 1)*q^289 + (-a 
        + 1)*q^295 + (-a + 1)*q^301 - a*q^307 + O(q^310),
    q^5 - q^11 + a*q^15 - a*q^17 - q^29 - a*q^33 + a*q^41 + (a - 1)*q^45 + (-a +
        1)*q^51 + q^53 + (-a + 1)*q^59 + a*q^65 + a*q^71 - a*q^87 + (-a + 
        1)*q^99 - a*q^101 + (a - 1)*q^107 + (a - 1)*q^113 + (a - 1)*q^123 - 
        q^135 - a*q^143 - q^149 + q^153 + (-a + 1)*q^155 + a*q^159 + q^167 - 
        a*q^173 + q^177 + a*q^179 - a*q^185 + (a - 1)*q^195 + (a - 1)*q^213 - 
        a*q^215 + (-a + 1)*q^221 + a*q^227 + a*q^245 + (a - 1)*q^257 + (-a + 
        1)*q^261 + q^269 - a*q^275 + q^297 + (-a + 1)*q^303 + O(q^310)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
948
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
39*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^11 - q^13 - q^31 + q^49 - q^55 - q^65 + q^79 + q^81 + 2*q^83 - 
        q^89 + q^95 - q^99 - q^101 + q^115 - q^117 + q^121 - q^125 + 2*q^143 - 
        q^155 - q^163 - q^167 + q^169 + 2*q^179 - q^181 - q^209 + 2*q^223 - 
        q^241 - q^247 - q^253 - q^257 - q^263 + q^275 - q^279 - q^283 + q^289 - 
        q^299 + O(q^310),
    q^2 + q^18 - q^20 - q^22 - q^26 - q^32 + q^44 + q^52 - q^62 + q^64 - q^76 + 
        q^80 - q^92 + q^98 + q^100 - q^110 + q^124 - q^130 + q^158 + q^162 + 
        2*q^166 - q^176 - q^178 - q^180 + q^190 - q^198 - q^202 - q^208 + q^230 
        - q^234 + q^242 - q^250 - q^268 + 2*q^286 - q^288 - q^292 + q^304 + 
        O(q^310),
    q^3 + q^27 - q^33 - q^39 - q^93 + q^147 - q^165 - q^195 + q^237 + q^243 + 
        2*q^249 - q^267 + q^285 - q^297 - q^303 + O(q^310),
    q^4 - q^20 - q^32 + q^36 - q^40 - q^76 + q^80 + q^88 - q^92 + q^100 + q^104 
        + q^128 - q^152 + q^160 - q^176 - q^180 - q^184 + q^196 + q^200 - q^208 
        - q^220 + q^248 - q^260 - q^268 - q^288 - q^292 + q^304 + O(q^310),
    q^5 - q^11 - q^13 + q^19 + q^23 - q^25 - q^31 + q^45 + q^67 + q^73 - q^89 - 
        q^95 + q^97 - q^99 - q^101 - q^115 - q^117 + q^121 + q^131 + q^143 + 
        q^151 - q^163 - q^167 + q^169 + q^171 - q^181 + q^207 - q^225 + q^239 - 
        q^241 + q^245 - q^257 - q^263 + q^269 + q^277 - q^279 + q^281 - q^283 + 
        O(q^310),
    q^6 + q^54 - q^60 - q^66 - q^78 - q^96 + q^132 + q^156 - q^186 + q^192 - 
        q^228 + q^240 - q^276 + q^294 + q^300 + O(q^310),
    q^8 - q^16 - q^20 + q^44 + q^52 + q^72 - q^76 - q^88 - q^92 + q^100 - q^104 
        + q^124 - q^144 + q^160 + q^176 - q^180 + q^208 - q^248 + q^256 - q^268 
        - q^292 + O(q^310),
    q^10 + q^16 - q^22 - q^26 - q^32 + q^38 - q^40 + q^46 - q^50 - q^62 + q^88 +
        q^90 + q^104 + q^134 + q^144 + q^146 - q^152 - q^176 - q^178 - q^184 - 
        q^190 + q^194 - q^198 + q^200 - q^202 - q^208 - q^230 - q^234 + q^242 + 
        q^248 + q^262 + q^286 - q^288 + q^302 + O(q^310),
    q^12 - q^60 - q^96 + q^108 - q^120 - q^228 + q^240 + q^264 - q^276 + q^300 +
        O(q^310),
    q^15 - q^33 - q^39 + q^57 + q^69 - q^75 - q^93 + q^135 + q^201 + q^219 - 
        q^267 - q^285 + q^291 - q^297 - q^303 + O(q^310),
    q^24 - q^48 - q^60 + q^132 + q^156 + q^216 - q^228 - q^264 - q^276 + q^300 +
        O(q^310),
    q^30 + q^48 - q^66 - q^78 - q^96 + q^114 - q^120 + q^138 - q^150 - q^186 + 
        q^264 + q^270 + O(q^310)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
948
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 39*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^13 + q^16 - q^21 - q^22 + q^25 + q^36 - q^46 - q^52 + q^64
        - q^73 + q^81 - q^84 - q^88 - q^97 + q^100 - q^102 - q^117 - q^129 + 
        q^144 - q^166 - q^174 - q^181 - q^184 - q^189 - q^198 - q^208 + q^225 + 
        q^237 + q^238 + 2*q^241 + 2*q^246 + q^253 + q^256 + 2*q^262 + q^273 - 
        q^277 + q^286 - q^292 + q^301 - q^309 + O(q^310),
    q^2 + q^8 - q^11 + q^18 - q^23 - q^26 + q^32 - q^42 - q^44 + q^50 - q^51 + 
        q^72 - q^83 - q^87 - q^92 - q^99 - q^104 + q^119 + 2*q^123 + q^128 + 
        2*q^131 + q^143 - q^146 + 2*q^159 + q^162 - q^167 - q^168 - q^176 + 
        2*q^179 - q^194 + q^200 + q^203 - q^204 - q^207 + q^231 - q^234 - q^239 
        - q^258 + 2*q^263 - q^275 - 2*q^287 + q^288 + q^299 + O(q^310),
    q^3 - q^7 + q^12 + q^27 - q^28 - q^34 - q^39 - q^43 + q^48 - q^58 - q^63 - 
        q^66 + q^75 + q^79 + 2*q^82 + q^91 - q^103 + 2*q^106 + q^108 - q^112 + 
        2*q^127 - q^136 - q^138 - q^139 + q^154 - q^156 - q^172 - q^175 + q^187 
        + q^192 - q^199 - q^211 - q^219 + 2*q^226 - q^232 + q^243 - q^252 - 
        q^264 + 2*q^271 - q^274 - q^291 - q^298 + q^300 - q^306 - q^307 + 
        O(q^310),
    q^6 - q^14 - q^17 + q^24 - q^29 - q^33 + 2*q^41 + 2*q^53 + q^54 - q^56 - 
        q^68 - q^69 + q^77 - q^78 - q^86 + q^96 + 2*q^113 - q^116 - q^126 - 
        q^132 - q^137 - q^149 + q^150 - q^153 + q^158 + q^161 + 2*q^164 - q^173 
        + q^182 - q^197 - q^206 + 2*q^212 + q^216 + q^221 - q^224 - q^233 - 
        q^249 + 2*q^254 - q^261 - q^272 - q^276 - q^278 + 2*q^293 - q^297 + 
        q^308 + O(q^310)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 24*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 24*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 24*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 36*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
949
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 36*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
180
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^6 - q^11 + q^26 + q^36 + q^39 - q^44 - q^49 - q^61 + q^64 + q^74 - 
        q^76 + q^96 - q^99 - q^101 - q^106 + q^111 - q^114 + q^121 + 2*q^131 - 
        q^134 + q^139 + q^144 + q^149 - q^156 - q^159 - q^171 - q^176 + q^194 - 
        q^201 + q^206 + q^209 - q^214 + q^226 + q^229 - q^234 - 2*q^239 - q^244 
        + q^254 + q^256 - q^271 + O(q^278),
    q^2 - q^12 - q^22 + q^52 + q^72 + q^78 - q^88 - q^98 - q^122 + q^128 + q^148
        - q^152 + q^192 - q^198 - q^202 - q^212 + q^222 - q^228 + q^242 + 
        2*q^262 - q^268 + O(q^278),
    q^3 - q^13 - q^18 + q^22 - q^32 - q^37 + q^38 - q^48 + q^53 + q^57 + q^67 - 
        q^72 + q^78 + q^88 - q^97 - q^103 + q^107 - q^113 + q^117 + q^122 - 
        q^127 - q^128 - q^147 + q^152 - q^162 - q^167 - q^173 + q^193 + q^198 + 
        q^202 + q^208 + q^222 + q^223 + q^227 - 2*q^242 - q^243 - q^247 - q^257 
        + O(q^278),
    q^4 + q^6 - q^24 - q^26 - q^36 - q^64 - q^74 + q^76 - q^96 + q^104 + q^106 +
        q^114 + q^134 + 2*q^156 - q^194 - q^196 - q^206 + q^214 - q^226 + q^234 
        - q^254 + O(q^278),
    q^8 + q^12 + q^18 - q^22 + q^32 - q^38 - q^52 - q^78 - q^88 - q^122 - q^148 
        + q^162 - q^192 - q^198 - q^202 + q^212 - q^222 + q^228 + 2*q^242 + 
        q^268 + O(q^278),
    q^9 - q^11 + q^16 - q^19 + q^24 + q^36 - q^39 - q^44 - q^61 + q^64 - q^76 + 
        q^81 - q^99 - q^101 - q^104 - q^111 + 2*q^121 + q^139 + q^149 - q^156 + 
        q^159 + q^169 - q^176 + 2*q^191 - 2*q^199 + q^201 + q^209 + q^229 - 
        q^244 + 2*q^251 - q^271 + O(q^278)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^4 + a^2*q^5 + (-a^3 - a^2)*q^7 - a^2*q^9 + (a - 1)*q^11 + a^2*q^16 +
        (a^3 + 1)*q^17 + (a^3 - a^2 + a - 1)*q^19 + a^3*q^20 + (-a - 1)*q^23 + 
        (a^3 - a^2 + a - 1)*q^25 + (-2*a^3 + a^2 - a + 1)*q^28 + (-a^3 + a^2 - a
        + 2)*q^35 - a^3*q^36 + (-a^3 + a^2 - 2*a + 1)*q^43 + (a^2 - a)*q^44 + 
        (-a^3 + a^2 - a + 1)*q^45 + (a^3 - a^2 - 2)*q^49 + (a^3 - a^2)*q^55 + 
        (-a^3 - a + 1)*q^61 + (a^3 - a^2 + a - 2)*q^63 + a^3*q^64 + (a^3 - a^2 +
        2*a - 1)*q^68 - q^76 + (-a^3 + 2*a^2 - a + 1)*q^77 + (a^3 - a^2 + a - 
        1)*q^80 + (a^3 - a^2 + a - 1)*q^81 + (a^3 + 1)*q^83 + (a^2 - 1)*q^85 + 
        (-a^2 - a)*q^92 - a*q^95 + (-a^3 + a^2)*q^99 - q^100 + (-a^3 + a^2 + 
        1)*q^101 + (-a^3 + a^2 - a + 2)*q^112 + (-a^3 - a^2)*q^115 + (-a^3 - a^2
        + a + 1)*q^119 + (a^2 - a + 1)*q^121 - a*q^125 + (-a^3 + 1)*q^131 + (a^2
        + a)*q^133 + (a^3 - a^2 + a - 2)*q^137 + (a - 1)*q^139 + (a + 1)*q^140 +
        (-a^3 + a^2 - a + 1)*q^144 + (a^3 - a^2)*q^149 + (-a^2 + 1)*q^153 + (a^3
        - a^2 + 2*a - 1)*q^157 + (3*a^3 + a - 1)*q^161 + (-a^3 + a^2 - a + 
        1)*q^169 + a*q^171 + (-a^2 + 1)*q^172 + (a^2 + a)*q^175 + (a^3 - 
        a^2)*q^176 + q^180 + (-a^2 + 2*a - 2)*q^187 + (-a^3 - a)*q^191 + (-a^2 -
        a - 1)*q^196 + (a^2 - 1)*q^197 + 2*q^199 + (a^3 + a^2)*q^207 + (-a^3 + 
        a^2 - a)*q^209 + (-a^3 + a)*q^215 + (-a^2 + a - 1)*q^220 + a*q^225 + 
        (a^2 - a + 1)*q^229 + (-a^3 - 1)*q^233 + (a^3 + a - 1)*q^239 + (-a^3 + 
        1)*q^244 + (-a^3 - a^2 - a)*q^245 + (a^3 - a^2 - 1)*q^251 + (-a - 
        1)*q^252 + (-a^2 + 1)*q^253 + (a^3 - a^2 + a - 1)*q^256 + (-a^3 + a^2 - 
        a + 2)*q^263 + (a^2 - a + 1)*q^271 + (a^2 - 1)*q^272 + (-a^3 + a^2 - 
        a)*q^275 + (-a^3 + 2*a^2 - a + 1)*q^277 + O(q^278),
    q^2 + a*q^8 + a^2*q^10 + (-a^3 - a^2)*q^14 - a^2*q^18 + (a - 1)*q^22 + 
        a^2*q^32 + (a^3 + 1)*q^34 + (a^3 - a^2 + a - 1)*q^38 + a^3*q^40 + (-a - 
        1)*q^46 + (a^3 - a^2 + a - 1)*q^50 + (-2*a^3 + a^2 - a + 1)*q^56 + (-a^3
        + a^2 - a + 2)*q^70 - a^3*q^72 + (-a^3 + a^2 - 2*a + 1)*q^86 + (a^2 - 
        a)*q^88 + (-a^3 + a^2 - a + 1)*q^90 + (a^3 - a^2 - 2)*q^98 + (a^3 - 
        a^2)*q^110 + (-a^3 - a + 1)*q^122 + (a^3 - a^2 + a - 2)*q^126 + 
        a^3*q^128 + (a^3 - a^2 + 2*a - 1)*q^136 - q^152 + (-a^3 + 2*a^2 - a + 
        1)*q^154 + (a^3 - a^2 + a - 1)*q^160 + (a^3 - a^2 + a - 1)*q^162 + (a^3 
        + 1)*q^166 + (a^2 - 1)*q^170 + (-a^2 - a)*q^184 - a*q^190 + (-a^3 + 
        a^2)*q^198 - q^200 + (-a^3 + a^2 + 1)*q^202 + (-a^3 + a^2 - a + 2)*q^224
        + (-a^3 - a^2)*q^230 + (-a^3 - a^2 + a + 1)*q^238 + (a^2 - a + 1)*q^242 
        - a*q^250 + (-a^3 + 1)*q^262 + (a^2 + a)*q^266 + (a^3 - a^2 + a - 
        2)*q^274 + O(q^278)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^2*q^4 + (a^3 - a^2 + a - 1)*q^5 + (a^3 - a^2 - 1)*q^7 + (a^3 - a^2 + a
        - 1)*q^9 + (a^2 + 1)*q^11 + (a^3 - a^2 + a - 1)*q^16 + (-a + 1)*q^17 - 
        a^3*q^19 - a*q^20 + (a^2 + 1)*q^23 - a^3*q^25 + (-a^3 - a)*q^28 + (-a^3 
        + 1)*q^35 - a*q^36 + (-a^3 + a^2)*q^43 + (a^3 + a - 1)*q^44 - a^3*q^45 +
        2*a^2*q^47 + (-a^3 + a^2 + 1)*q^49 + (a^3 - a^2 - 1)*q^55 + (-a^2 + a - 
        1)*q^61 + (-a^3 + 1)*q^63 - a*q^64 + (-a^3 + a^2)*q^68 - 2*a*q^73 + q^76
        + (-a^2 - a - 1)*q^77 - a^3*q^80 - a^3*q^81 + (-a + 1)*q^83 + (a^3 - a^2
        + a)*q^85 + (a^3 + a - 1)*q^92 + a^2*q^95 + (a^3 - a^2 - 1)*q^99 + q^100
        + (-a^3 + a^2)*q^101 + (-a^3 + 1)*q^112 + (a^3 - a^2 - 1)*q^115 + 
        a^3*q^119 + (a^3 + a)*q^121 + a^2*q^125 + (-a + 1)*q^131 + (a^3 + a - 
        1)*q^133 + (-a^3 + 1)*q^137 + (a^2 + 1)*q^139 + (a^2 + 1)*q^140 - 
        a^3*q^144 + (a^3 - a^2 - 1)*q^149 + (a^3 - a^2 + a)*q^153 + (-a^3 + 
        a^2)*q^157 + (-a^2 - a - 1)*q^161 + (2*a^3 - 2*a^2 + 2*a - 2)*q^163 - 
        a^3*q^169 + a^2*q^171 + (a^3 - a^2 + a)*q^172 + (a^3 + a - 1)*q^175 + 
        (a^3 - a^2 - 1)*q^176 + q^180 + (-a^3 + a^2 - a + 1)*q^187 + (2*a^3 - 
        2*a^2 + 2*a - 2)*q^188 + (a^2 - a)*q^191 + (a^3 + a)*q^196 + (a^3 - a^2 
        + a)*q^197 + 2*q^199 + (a^3 - a^2 - 1)*q^207 + (-a^3 + 1)*q^209 + (a^2 -
        a)*q^215 + (-a^3 - a)*q^220 + a^2*q^225 + (-a^3 - a)*q^229 + (-a + 
        1)*q^233 - 2*a*q^235 + (-a^2 + a - 1)*q^239 + (-a + 1)*q^244 + (a^3 - 
        1)*q^245 + (-a^3 + a^2)*q^251 + (a^2 + 1)*q^252 + (a^3 + a^2 + a)*q^253 
        - a^3*q^256 + (-a^3 + 1)*q^263 + (-a^3 - a)*q^271 + (a^3 - a^2 + 
        a)*q^272 + (-a^3 + 1)*q^275 + (-a^2 + a - 1)*q^277 + O(q^278),
    q^2 + a^2*q^8 + (a^3 - a^2 + a - 1)*q^10 + (a^3 - a^2 - 1)*q^14 + (a^3 - a^2
        + a - 1)*q^18 + (a^2 + 1)*q^22 + (a^3 - a^2 + a - 1)*q^32 + (-a + 
        1)*q^34 - a^3*q^38 - a*q^40 + (a^2 + 1)*q^46 - a^3*q^50 + (-a^3 - 
        a)*q^56 + (-a^3 + 1)*q^70 - a*q^72 + (-a^3 + a^2)*q^86 + (a^3 + a - 
        1)*q^88 - a^3*q^90 + 2*a^2*q^94 + (-a^3 + a^2 + 1)*q^98 + (a^3 - a^2 - 
        1)*q^110 + (-a^2 + a - 1)*q^122 + (-a^3 + 1)*q^126 - a*q^128 + (-a^3 + 
        a^2)*q^136 - 2*a*q^146 + q^152 + (-a^2 - a - 1)*q^154 - a^3*q^160 - 
        a^3*q^162 + (-a + 1)*q^166 + (a^3 - a^2 + a)*q^170 + (a^3 + a - 1)*q^184
        + a^2*q^190 + (a^3 - a^2 - 1)*q^198 + q^200 + (-a^3 + a^2)*q^202 + (-a^3
        + 1)*q^224 + (a^3 - a^2 - 1)*q^230 + a^3*q^238 + (a^3 + a)*q^242 + 
        a^2*q^250 + (-a + 1)*q^262 + (a^3 + a - 1)*q^266 + (-a^3 + 1)*q^274 + 
        O(q^278)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
950
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
278
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^6 - q^11 + q^26 + q^36 - q^39 + q^44 + q^49 - q^61 - q^64 - q^74 - 
        q^76 + q^96 + q^99 - q^101 - q^106 + q^111 + q^114 + q^121 + 2*q^131 + 
        q^134 - q^139 - q^144 - q^149 - q^156 + q^159 - q^171 - q^176 - q^194 - 
        q^201 + q^206 - q^209 + q^214 + q^226 - q^229 + q^234 + 2*q^239 + q^244 
        - q^254 + q^256 - q^271 + O(q^278),
    q^2 - q^12 - q^22 + q^52 + q^72 - q^78 + q^88 + q^98 - q^122 - q^128 - q^148
        - q^152 + q^192 + q^198 - q^202 - q^212 + q^222 + q^228 + q^242 + 
        2*q^262 + q^268 + O(q^278),
    q^3 - q^13 - q^18 - q^22 + q^32 + q^37 + q^38 - q^48 + q^53 - q^57 - q^67 + 
        q^72 + q^78 + q^88 + q^97 - q^103 - q^107 - q^113 - q^117 - q^122 + 
        q^127 - q^128 + q^147 - q^152 + q^162 + q^167 - q^173 + q^193 + q^198 - 
        q^202 + q^208 - q^222 + q^223 - q^227 + 2*q^242 - q^243 + q^247 + q^257 
        + O(q^278),
    q^4 - q^6 - q^24 + q^26 + q^36 - q^64 - q^74 - q^76 + q^96 + q^104 - q^106 +
        q^114 + q^134 - 2*q^156 - q^194 + q^196 + q^206 + q^214 + q^226 + q^234 
        - q^254 + O(q^278),
    q^5 - q^30 - q^55 - q^100 + q^125 + q^130 + q^150 + q^180 - q^195 + q^220 - 
        q^225 + q^245 - q^275 + O(q^278),
    q^8 - q^12 + q^18 + q^22 - q^32 - q^38 + q^52 - q^78 - q^88 + q^122 - q^148 
        - q^162 + q^192 - q^198 + q^202 - q^212 + q^222 + q^228 - 2*q^242 + 
        q^268 + O(q^278),
    q^9 + q^11 - q^16 - q^19 + q^24 - q^36 - q^39 - q^44 + q^61 + q^64 + q^76 - 
        q^81 - q^99 + q^101 - q^104 + q^111 - 2*q^121 + q^139 + q^149 + q^156 + 
        q^159 + q^169 + q^176 - 2*q^191 - 2*q^199 - q^201 + q^209 + q^229 - 
        q^244 - 2*q^251 + q^271 + O(q^278),
    q^10 - q^60 - q^110 - q^200 + q^250 + q^260 + O(q^278),
    q^15 + q^50 - q^65 - q^75 - q^90 - q^110 + q^160 + q^185 + q^190 - q^200 - 
        q^240 + q^265 + O(q^278),
    q^20 - q^30 - q^100 - q^120 + q^130 + q^150 + q^180 + O(q^278),
    q^25 - q^45 - q^55 + q^80 + q^95 - q^100 - q^120 + q^180 + q^195 + q^220 - 
        q^275 + O(q^278),
    q^40 - q^50 - q^60 + q^90 + q^110 - q^160 - q^190 + q^260 + O(q^278)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
951
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
951
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
316
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
951
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
158
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
951
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
158
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
951
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
79*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
951
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 158*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - q^60 - q^61 - q^67 - q^70 + q^81 - q^82 - q^87 - 
        q^105 - q^112 + q^121 - q^136 - q^145 + q^169 - q^175 - q^186 + 
        O(q^210),
    q^2 + q^18 - q^30 - q^35 - q^41 + q^50 - q^56 - q^68 - q^93 + q^98 - q^111 +
        q^119 + q^125 + q^129 - q^146 + q^147 + q^155 + q^162 - q^170 + q^185 + 
        q^197 + O(q^210),
    q^3 - q^20 + q^27 - q^29 - q^35 - q^62 - q^74 + q^75 + q^80 + q^86 + q^98 + 
        q^116 - q^119 - q^137 + q^140 + q^147 + q^170 - q^180 - q^183 - q^200 - 
        q^201 + q^206 + O(q^210),
    q^4 - q^15 - q^28 - q^34 + q^36 + q^61 + q^67 - q^73 - q^85 + q^87 + q^100 +
        q^105 - q^135 - q^142 + q^145 - q^150 - q^160 - q^168 + q^175 - q^181 + 
        q^196 + O(q^210),
    q^5 - q^14 - q^21 + q^45 - q^47 + q^48 + q^62 - q^68 + q^74 - q^107 + q^116 
        - q^120 + q^125 - q^126 - q^128 + q^140 - q^155 - q^185 - q^189 + q^191 
        + q^203 + O(q^210),
    q^6 - q^15 - q^16 + q^25 - q^31 - q^34 - q^37 + q^40 + q^42 + q^43 + q^49 + 
        q^51 + q^54 - q^60 - q^64 - q^70 - q^73 + q^79 - q^82 + q^94 + q^96 + 
        q^103 - q^105 - q^112 - q^123 + q^124 - q^135 - q^142 - q^144 + q^148 + 
        q^157 + q^160 - q^168 + q^172 + q^175 - q^181 - q^186 + q^196 + q^205 + 
        O(q^210),
    q^7 - q^15 - q^16 + q^40 + q^42 + q^63 - q^70 - q^73 - q^82 - q^85 + q^94 + 
        q^100 - q^135 + q^141 - q^144 + q^145 + q^175 - q^181 - q^186 + q^193 + 
        q^204 + q^205 + O(q^210),
    q^8 - q^14 - q^20 - q^21 + q^30 + q^32 + q^35 + q^41 - q^47 - q^50 + q^72 - 
        q^80 - q^84 + q^93 - q^102 - q^107 + q^111 + q^122 - q^126 + q^134 + 
        q^140 + q^146 - q^155 - q^158 + q^164 + q^170 + q^174 - q^180 - q^185 - 
        q^188 - q^189 - q^192 + O(q^210),
    q^10 - q^15 - q^16 + q^25 - q^34 + q^40 + q^42 + q^51 - q^60 - q^64 - q^70 -
        q^73 + q^79 - q^82 - q^85 + q^90 + q^94 + q^96 + q^100 + q^124 - q^135 -
        q^142 - q^144 + q^148 - q^150 + q^157 - q^181 - q^186 + q^204 + 
        O(q^210),
    q^12 - q^14 - q^21 + q^29 + q^35 - q^47 + q^48 - q^50 - q^56 + q^62 - q^68 +
        q^74 - q^84 + q^86 + q^98 - q^102 - q^107 + q^108 + q^116 + q^119 - 
        q^120 - q^126 - q^128 + q^137 + q^140 - q^155 - q^158 + q^170 + q^183 - 
        q^185 - q^188 - q^189 + q^201 + q^206 + O(q^210),
    q^17 - q^20 - q^21 + q^30 + q^32 - q^47 - q^50 + q^71 + q^75 - q^102 - q^107
        + q^140 + q^146 + q^153 - q^155 - q^158 + q^164 + q^170 - q^180 - q^185 
        - q^189 - q^192 + q^203 + O(q^210),
    q^24 - q^25 - q^28 + q^31 + q^37 - q^42 - q^51 + q^58 + q^70 - q^79 - q^94 +
        q^105 + q^123 - q^136 - q^157 + q^172 + q^196 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 + q^4 - q^7 - q^8 - q^9 + q^14 + q^16 + q^18 + 2*q^23 - q^25 - q^28 
        - q^32 - q^36 - 2*q^46 + q^49 + q^50 + q^56 + q^63 + q^64 - 2*q^71 + 
        q^72 - 2*q^79 + q^81 + 2*q^92 - q^98 - q^100 - q^112 - 2*q^113 + q^121 -
        q^126 + 2*q^127 - q^128 + 2*q^137 + 2*q^142 - q^144 + 2*q^151 + 2*q^158 
        - 2*q^161 - q^162 - q^169 + q^175 - 2*q^184 - 2*q^191 - 2*q^193 + q^196 
        + q^200 - 2*q^207 + q^224 + q^225 + 2*q^226 + 2*q^233 + 2*q^239 - q^242 
        + q^252 - 2*q^254 + q^256 - 2*q^263 + O(q^274),
    q^17 - q^34 + q^68 - q^119 - q^136 - q^153 + q^238 + q^272 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^3*q^2 + (-a^3 + a^2)*q^3 - a^2*q^4 + (a^2 - a)*q^6 + a*q^8 + (-a^2 + a
        - 1)*q^9 + (a^3 - 1)*q^11 + (-a + 1)*q^12 - q^16 - a^3*q^17 + (-a^3 + a 
        - 1)*q^18 + (-a^3 - a^2)*q^22 + (a^3 + 1)*q^24 - a*q^25 + (a^3 - a^2 - a
        + 1)*q^27 - a^3*q^32 + (a^3 - a)*q^33 + a^2*q^34 + (-a^3 + a^2 - 1)*q^36
        + (a^2 + a)*q^41 + (a^2 + 1)*q^43 + (a^2 + a)*q^44 + (a^3 - a^2)*q^48 + 
        a^3*q^49 + q^50 + (-a^2 + a)*q^51 + (a^3 - a^2 + a + 1)*q^54 + (-a^2 - 
        1)*q^59 + a^2*q^64 + (-a^2 + 1)*q^66 + (-a^3 + a)*q^67 - a*q^68 + (-a^3 
        + a^2 - a)*q^72 + (a^3 + a^2)*q^73 + (-a^3 - 1)*q^75 + (-a^3 + a^2 - 
        a)*q^81 + (-a - 1)*q^82 + (-a^2 + 1)*q^83 + (a^3 - a)*q^86 + (-a - 
        1)*q^88 + (-a^3 - a)*q^89 + (-a^2 + a)*q^96 + (a - 1)*q^97 - a^2*q^98 + 
        (-a^3 + a^2)*q^99 + a^3*q^100 + (a - 1)*q^102 + (-a + 1)*q^107 + (a^3 - 
        a^2 + a - 1)*q^108 + (-a^2 + a)*q^113 + (-a^3 + a)*q^118 + (-a^3 - a^2 +
        1)*q^121 + (a^3 + a)*q^123 - a*q^128 + (-a^3 + a^2 + a - 1)*q^129 + (a^3
        + a^2)*q^131 + (a^3 + a)*q^132 + (a^2 - 1)*q^134 + q^136 + (a^3 - 
        a^2)*q^139 + (a^2 - a + 1)*q^144 + (-a^2 - a)*q^146 + (a^2 - a)*q^147 + 
        (-a^3 + a^2)*q^150 + (a^3 - a + 1)*q^153 + (a^2 - a + 1)*q^162 + (-a^3 -
        1)*q^163 + (-a^3 + 1)*q^164 + (a^3 + a)*q^166 - q^169 + (-a^2 + 1)*q^172
        + (-a^3 + 1)*q^176 + (a^3 - a^2 - a + 1)*q^177 + (a^2 + 1)*q^178 + (a^3 
        + a^2)*q^187 + (a - 1)*q^192 + (-a^2 + a)*q^193 + (-a^3 - 1)*q^194 + 
        a*q^196 + (a^2 - a)*q^198 - a^2*q^200 + (a^3 - a^2 + a + 1)*q^201 + 
        (-a^3 - 1)*q^204 + (-a^2 - a)*q^211 + (a^3 + 1)*q^214 + (-a^3 - a^2 + a 
        - 1)*q^216 + (a^2 - 1)*q^219 + (a^3 - a^2 + a)*q^225 + (a - 1)*q^226 + 
        (a^2 - a)*q^227 + (-a + 1)*q^233 + (a^2 - 1)*q^236 + (-a - 1)*q^241 + 
        (a^3 + a^2 + a)*q^242 + (a - 1)*q^243 + (-a^2 - 1)*q^246 + (-a^3 + a^2 -
        a + 1)*q^249 + (-a^3 - a)*q^251 + q^256 + (a^2 - 1)*q^257 + (-a^3 + a^2 
        - a - 1)*q^258 + (-a^2 - a)*q^262 + (-a^2 - 1)*q^264 + (-a^3 - a^2 + a -
        1)*q^267 + (-a^3 - a)*q^268 + a^3*q^272 + O(q^274),
    q^7 + a^3*q^14 + (-a^3 + a^2)*q^21 - a^2*q^28 + (a^2 - a)*q^42 + a*q^56 + 
        (-a^2 + a - 1)*q^63 + (a^3 - 1)*q^77 + (-a + 1)*q^84 - q^112 - a^3*q^119
        + (-a^3 + a - 1)*q^126 + (-a^3 - a^2)*q^154 + (a^3 + 1)*q^168 - a*q^175 
        + (a^3 - a^2 - a + 1)*q^189 - a^3*q^224 + (a^3 - a)*q^231 + a^2*q^238 + 
        (-a^3 + a^2 - 1)*q^252 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a - 1)*q^5 + a*q^9 - q^17 + a*q^25 + (a + 1)*q^29 + (-a - 1)*q^37 + 
        (-a + 1)*q^41 + (-a + 1)*q^45 - a*q^49 + (a - 1)*q^61 + (a + 1)*q^73 - 
        q^81 + (a + 1)*q^85 + (-a - 1)*q^97 + (a - 1)*q^109 + (a - 1)*q^113 - 
        a*q^121 - 2*a*q^145 + 2*q^149 - a*q^153 + 2*q^157 - q^169 + (a + 
        1)*q^173 + (a - 1)*q^181 + 2*a*q^185 + (-a + 1)*q^193 + (-a + 1)*q^197 -
        2*q^205 - q^225 - 2*a*q^229 + (-a - 1)*q^233 + (a + 1)*q^241 + (a - 
        1)*q^245 + 2*a*q^257 + (a - 1)*q^261 + (-a - 1)*q^269 + O(q^274),
    q^2 + a*q^4 - q^8 + (-a - 1)*q^10 - a*q^16 + a*q^18 + (-a + 1)*q^20 + q^32 -
        q^34 - q^36 + (a + 1)*q^40 + a*q^50 + (a + 1)*q^58 + a*q^64 - a*q^68 - 
        a*q^72 + (-a - 1)*q^74 + (a - 1)*q^80 + (-a + 1)*q^82 + (-a + 1)*q^90 - 
        a*q^98 - q^100 + (a - 1)*q^116 + (a - 1)*q^122 - q^128 + q^136 + q^144 +
        (a + 1)*q^146 + (-a + 1)*q^148 + (-a - 1)*q^160 - q^162 + (a + 1)*q^164 
        + (a + 1)*q^170 + (a + 1)*q^180 + (-a - 1)*q^194 + q^196 - a*q^200 + (a 
        - 1)*q^218 + (a - 1)*q^226 + (-a - 1)*q^232 - a*q^242 + (-a - 1)*q^244 -
        a*q^256 + a*q^272 + O(q^274),
    q^7 + (-a - 1)*q^35 + a*q^63 - q^119 + a*q^175 + (a + 1)*q^203 + (-a - 
        1)*q^259 + O(q^274),
    q^14 + a*q^28 - q^56 + (-a - 1)*q^70 - a*q^112 + a*q^126 + (-a + 1)*q^140 + 
        q^224 - q^238 - q^252 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 + (-a - 1)*q^3 - q^4 + (a - 1)*q^6 + a*q^8 + a*q^9 + (-a + 1)*q^11
        + (a + 1)*q^12 + q^16 - a*q^17 + q^18 + 2*a*q^19 + (-a - 1)*q^22 + (-a +
        1)*q^24 + a*q^25 - a*q^32 - 2*q^33 - q^34 - a*q^36 + 2*q^38 + (a - 
        1)*q^41 + (a - 1)*q^44 + (-a - 1)*q^48 - a*q^49 + q^50 + (a - 1)*q^51 + 
        (-2*a + 2)*q^57 - q^64 + 2*a*q^66 + a*q^68 - q^72 + (-a - 1)*q^73 + (-a 
        + 1)*q^75 - 2*a*q^76 + q^81 + (a + 1)*q^82 + (a + 1)*q^88 + (a - 1)*q^96
        + (a + 1)*q^97 - q^98 + (a + 1)*q^99 - a*q^100 + (a + 1)*q^102 + (a + 
        1)*q^107 + (a - 1)*q^113 + (-2*a - 2)*q^114 - a*q^121 + 2*q^123 + 
        a*q^128 + (-a - 1)*q^131 + 2*q^132 + q^136 - 2*q^137 + (-a - 1)*q^139 + 
        a*q^144 + (a - 1)*q^146 + (a - 1)*q^147 + (-a - 1)*q^150 - 2*q^152 + 
        q^153 - a*q^162 + (-a + 1)*q^163 + (-a + 1)*q^164 + q^169 - 2*q^171 + 
        (-a + 1)*q^176 - 2*a*q^179 + (-a - 1)*q^187 + (a + 1)*q^192 + (a - 
        1)*q^193 + (-a + 1)*q^194 + a*q^196 + (-a + 1)*q^198 - q^200 + (-a + 
        1)*q^204 + (2*a + 2)*q^209 + (a - 1)*q^211 + (-a + 1)*q^214 + 2*a*q^219 
        - q^225 + (a + 1)*q^226 + (a - 1)*q^227 + (2*a - 2)*q^228 + (a + 
        1)*q^233 + (a + 1)*q^241 - q^242 + (-a - 1)*q^243 - 2*a*q^246 + q^256 + 
        (a - 1)*q^262 - 2*a*q^264 - a*q^272 + O(q^274),
    q^7 - a*q^14 + (-a - 1)*q^21 - q^28 + (a - 1)*q^42 + a*q^56 + a*q^63 + (-a +
        1)*q^77 + (a + 1)*q^84 + q^112 - a*q^119 + q^126 + 2*a*q^133 + (-a - 
        1)*q^154 + (-a + 1)*q^168 + a*q^175 - a*q^224 - 2*q^231 - q^238 - 
        a*q^252 + 2*q^266 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^9 - 2*q^13 + q^17 + q^25 - q^49 + 2*q^53 + q^81 - 2*q^89 - 2*q^101 + 
        2*q^117 - q^121 - 2*q^137 + 2*q^149 - q^153 + 2*q^157 + 3*q^169 - 
        2*q^221 - q^225 - 2*q^229 - 2*q^257 + O(q^274),
    q^2 - q^4 + q^8 - q^16 - q^18 - 2*q^26 + q^32 + q^34 + q^36 + q^50 + 2*q^52 
        - q^64 - q^68 - q^72 - q^98 - q^100 - 2*q^104 + 2*q^106 + q^128 + q^136 
        + q^144 + q^162 - 2*q^178 + q^196 + q^200 - 2*q^202 + 2*q^208 - 2*q^212 
        + 2*q^234 - q^242 - q^256 - q^272 + O(q^274),
    q^7 - q^63 - 2*q^91 + q^119 + q^175 + O(q^274),
    q^14 - q^28 + q^56 - q^112 - q^126 - 2*q^182 + q^224 + q^238 + q^252 + 
        O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 + q^4 - q^8 + q^9 + q^16 - q^17 - q^18 - 2*q^19 - q^25 - q^32 + q^34
        + q^36 + 2*q^38 + 2*q^43 - q^49 + q^50 + 2*q^59 + q^64 - 2*q^67 - q^68 -
        q^72 - 2*q^76 + q^81 + 2*q^83 - 2*q^86 - 2*q^89 + q^98 - q^100 - 2*q^118
        + q^121 - q^128 + 2*q^134 + q^136 + 2*q^137 + q^144 + 2*q^152 - q^153 - 
        q^162 - 2*q^166 + q^169 - 2*q^171 + 2*q^172 + 2*q^178 - 2*q^179 - q^196 
        + q^200 - q^225 + 2*q^236 - q^242 - 2*q^251 + q^256 + 2*q^257 - 2*q^268 
        - q^272 + O(q^274),
    q^7 - q^14 + q^28 - q^56 + q^63 + q^112 - q^119 - q^126 - 2*q^133 - q^175 - 
        q^224 + q^238 + q^252 + 2*q^266 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^13 - a*q^17 + a*q^21 - a*q^25 + (a - 1)*q^33 + q^49 + a*q^53 - 2*q^69 
        + a*q^77 + a*q^81 + (-a + 1)*q^89 + (-2*a + 2)*q^93 - 2*a*q^101 + 
        a*q^137 + (-a + 1)*q^149 + a*q^157 + (2*a - 2)*q^161 + q^189 - a*q^213 -
        2*a*q^217 + a*q^221 + (2*a - 2)*q^229 + q^237 - 2*q^253 + (-a + 1)*q^257
        - a*q^273 + O(q^274),
    q^2 - a*q^8 + (a - 1)*q^18 + (a - 1)*q^32 - a*q^34 + a*q^36 + (a - 1)*q^42 -
        a*q^50 + (-a + 1)*q^52 + (-a + 1)*q^66 + q^72 + (a - 1)*q^84 + a*q^106 +
        q^128 - 2*a*q^132 + (a - 1)*q^136 - q^138 + (-a + 1)*q^144 + q^154 + 
        q^168 + (-a + 1)*q^186 + (a - 1)*q^196 + (a - 1)*q^200 - q^208 + (a - 
        1)*q^234 + (a - 1)*q^242 - q^264 + O(q^274),
    q^3 - a*q^11 + q^23 - q^27 + (a - 1)*q^31 + a*q^39 - a*q^51 - q^63 + (a - 
        1)*q^71 - a*q^75 + (a - 1)*q^79 + a*q^91 + (-a + 2)*q^99 - a*q^107 + 
        q^131 + q^139 - q^143 - a*q^147 + a*q^159 + q^163 + q^167 + (a - 
        1)*q^187 - a*q^199 - a*q^211 - a*q^227 + 2*q^231 - q^267 + O(q^274),
    q^4 - a*q^16 - q^18 + a*q^26 + (a - 1)*q^36 - a*q^42 + (a - 1)*q^64 + 2*q^66
        - a*q^68 + a*q^72 + (a - 1)*q^84 - a*q^98 - a*q^100 + (-a + 1)*q^104 + 
        (-a + 1)*q^132 + a*q^138 + q^144 + q^154 + (-a + 1)*q^162 + (a - 
        1)*q^168 - q^178 - q^186 + (2*a - 2)*q^202 + a*q^212 - q^234 - q^242 + 
        q^256 - 2*a*q^264 + (a - 1)*q^272 + O(q^274),
    q^6 + 1/3*(-a + 2)*q^14 - a*q^24 + 1/3*(a + 1)*q^28 + (a - 1)*q^44 + a*q^46 
        + 1/3*(-a - 1)*q^56 - q^62 - q^92 + (a - 1)*q^96 - a*q^102 + a*q^108 + 
        1/3*(-2*a + 1)*q^112 + (-a + 1)*q^124 + 1/3*(a - 2)*q^126 + (a - 
        1)*q^142 - a*q^150 + (-a + 1)*q^156 + q^176 + 1/3*(2*a - 1)*q^182 + (-a 
        + 1)*q^184 + (-a + 1)*q^198 - a*q^214 + 1/3*(2*a - 1)*q^224 + 1/3*(-a - 
        1)*q^238 + a*q^248 + 1/3*(2*a - 1)*q^252 + a*q^262 + O(q^274),
    q^7 + (2*a - 1)*q^11 + (a - 2)*q^23 + (a + 1)*q^27 + (-2*a + 1)*q^31 + (-2*a
        + 1)*q^39 + a*q^63 + (-a + 2)*q^79 - a*q^91 + (-a - 1)*q^99 - a*q^119 + 
        (a - 2)*q^131 + (-a - 1)*q^139 + (2*a - 1)*q^147 + (a - 2)*q^163 + (-a -
        1)*q^167 - a*q^175 + (-a + 2)*q^187 + (2*a - 1)*q^199 + (a + 1)*q^211 + 
        (2*a - 1)*q^227 + (-a - 1)*q^231 + (a + 1)*q^267 + O(q^274),
    q^9 - a*q^13 + a*q^21 - 2*q^33 + a*q^49 - a*q^69 - q^77 + (a - 1)*q^81 + 
        q^89 + q^93 + (-2*a + 2)*q^101 + q^117 + q^121 + (a - 1)*q^137 - a*q^153
        - q^161 + (a - 1)*q^189 + (a - 1)*q^213 + (-a + 1)*q^217 + (a - 1)*q^221
        - a*q^225 - 2*q^229 + 2*a*q^237 - a*q^253 + q^257 + q^273 + O(q^274),
    q^12 + 1/3*(a - 2)*q^14 - a*q^22 + 1/3*(-a + 2)*q^28 + (-a + 1)*q^46 - 
        a*q^48 - q^54 + 1/3*(a + 1)*q^56 + a*q^62 + a*q^78 + (a - 1)*q^88 + 
        a*q^92 + 1/3*(-a - 1)*q^112 - q^124 + 1/3*(-a - 1)*q^126 + (a - 1)*q^158
        + 1/3*(a + 1)*q^182 - q^184 + (a - 1)*q^192 + q^198 - a*q^204 + a*q^216 
        + 1/3*(-2*a + 1)*q^224 + 1/3*(a + 1)*q^238 + (-a + 1)*q^248 + 1/3*(a - 
        2)*q^252 + (-a + 1)*q^262 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (a - 1)*q^9 + (a - 1)*q^16 - a*q^25 + q^34 - a*q^35 + q^36 + 
        a*q^38 - q^43 - q^50 + a*q^59 + q^64 - a*q^70 - a*q^81 + 2*q^83 - a*q^98
        + (a - 1)*q^100 + a*q^115 + (a - 1)*q^121 - q^134 - a*q^136 + a*q^137 + 
        (a - 1)*q^140 - a*q^144 + (-a + 1)*q^145 + (-a + 1)*q^152 - q^155 + (a -
        1)*q^161 + q^169 + a*q^172 + a*q^178 - 2*a*q^185 + a*q^200 - a*q^203 + 
        (a - 1)*q^217 + q^225 + 2*q^230 + (-a + 1)*q^236 - a*q^256 + (-a + 
        1)*q^257 - a*q^259 + O(q^274),
    q^2 - a*q^8 + (a - 1)*q^17 + (a - 1)*q^18 - q^19 + (-a + 1)*q^25 + (a - 
        1)*q^32 + q^35 + q^49 - a*q^50 + (-a + 1)*q^67 + q^68 - a*q^70 + q^72 + 
        a*q^76 - q^86 - q^89 - q^100 + (2*a - 2)*q^115 + a*q^118 + q^128 - 
        a*q^140 - q^145 - a*q^153 + a*q^155 + (a - 1)*q^161 - a*q^162 + 2*q^166 
        + (-a + 1)*q^171 + (-a + 1)*q^179 + (-a + 1)*q^185 - a*q^196 + (a - 
        1)*q^200 + (a - 1)*q^203 + q^217 + a*q^225 + a*q^230 + (a - 1)*q^242 - 
        2*a*q^251 + q^259 - q^268 - a*q^272 + O(q^274),
    q^5 + q^10 + q^14 - a*q^20 - a*q^23 + q^29 - a*q^31 + q^37 - a*q^40 + (a - 
        1)*q^45 + (a - 1)*q^46 - a*q^56 + (a - 1)*q^58 + (a - 1)*q^61 + q^62 - 
        a*q^71 + q^74 + (a - 1)*q^79 + (a - 1)*q^80 + (a - 1)*q^85 + (a - 
        1)*q^90 + (a - 1)*q^92 - q^95 + q^109 - a*q^116 + (a - 1)*q^119 - 
        a*q^122 + (a - 1)*q^124 + (-a + 1)*q^125 + (a - 1)*q^126 - q^133 - 
        a*q^142 - a*q^148 - a*q^158 + (a - 1)*q^160 + (a - 1)*q^167 + q^170 - 
        a*q^173 + (-a + 1)*q^175 + q^180 + (a - 1)*q^181 + q^184 + a*q^190 - 
        a*q^197 + q^199 + q^207 - q^215 - a*q^218 + (a - 1)*q^224 + q^232 + 
        q^244 + q^245 - a*q^248 - q^250 + (a - 1)*q^261 + q^269 + O(q^274),
    q^7 + (-a - 1)*q^10 - q^14 + (2*a - 1)*q^23 - a*q^28 + (a - 2)*q^29 + (a + 
        1)*q^31 + (2*a - 1)*q^40 + a*q^56 + (-2*a + 1)*q^58 + (-2*a + 1)*q^61 + 
        (a - 2)*q^62 + (a - 1)*q^63 + (-a - 1)*q^74 + (-2*a + 1)*q^79 + (-a + 
        2)*q^85 + (-a + 2)*q^90 + (-a + 2)*q^92 + (a + 1)*q^95 + (-a - 1)*q^109 
        + (a - 1)*q^112 + (a + 1)*q^116 + (-a + 1)*q^119 + (a + 1)*q^122 + (-2*a
        + 1)*q^124 + (a - 2)*q^125 + (-a + 1)*q^126 + q^133 + (2*a - 1)*q^142 + 
        (a + 1)*q^158 + (-a + 2)*q^160 + (-a + 2)*q^167 + (2*a - 1)*q^173 - 
        q^175 + (-a + 2)*q^181 + (-a - 1)*q^199 + (-a - 1)*q^207 + (-a + 
        1)*q^224 + (a - 2)*q^232 + q^238 + (a - 2)*q^244 + (-a - 1)*q^245 + (a +
        1)*q^248 + q^252 + (-2*a + 1)*q^261 + a*q^266 + (-a - 1)*q^269 + 
        O(q^274)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^15 + q^25 - q^35 + q^49 - q^53 - q^67 - q^85 - q^93 + q^119 + q^121 + 
        q^123 - q^127 + q^135 + 2*q^155 + q^169 + q^183 - q^189 - q^191 - q^205 
        - q^217 + q^219 - q^225 + 2*q^263 + O(q^274),
    q^2 - q^30 + q^50 - q^70 + q^98 - q^106 - q^134 - q^170 - q^186 + q^238 + 
        q^242 + q^246 - q^254 + q^270 + O(q^274),
    q^3 - q^7 - q^17 + q^27 + q^41 - q^45 + q^61 - q^63 + q^73 - q^75 + q^105 + 
        q^125 - 2*q^129 - 2*q^131 + q^147 - q^153 + q^159 + q^167 + q^173 - 
        2*q^181 + q^199 + q^201 + q^215 - q^243 + q^255 - q^265 - 2*q^269 + 
        O(q^274),
    q^4 + q^36 - q^60 - q^64 - q^72 - q^84 + q^128 + q^168 - q^172 + q^196 + 
        q^200 - q^204 + O(q^274),
    q^5 - q^7 - q^17 + q^27 + q^31 - q^45 - q^75 + q^97 + q^105 + q^125 - q^129 
        - 2*q^131 + q^139 + q^159 - q^175 - 2*q^181 + q^201 + q^215 + q^227 + 
        q^241 - q^243 + q^245 + q^255 - 2*q^265 - 2*q^269 + O(q^274),
    q^6 - q^14 - q^34 + q^54 + q^82 - q^90 + q^122 - q^126 + q^146 - q^150 + 
        q^210 + q^250 - 2*q^258 - 2*q^262 + O(q^274),
    q^8 - q^64 - q^120 - q^144 + q^200 + q^256 + O(q^274),
    q^9 - q^21 - q^25 + q^35 - q^43 - q^51 + q^53 + q^67 + q^85 + q^123 + q^127 
        - q^135 - q^137 - q^149 - q^151 - q^155 - q^179 + q^183 + q^191 + q^217 
        + q^219 - q^239 + O(q^274),
    q^10 - q^14 - q^34 + q^54 + q^62 - q^90 - q^150 + q^194 + q^210 + q^250 - 
        q^258 - 2*q^262 + O(q^274),
    q^12 - q^28 - q^48 - q^68 + 2*q^96 + q^108 + q^112 - q^160 + q^164 - q^180 -
        2*q^192 - q^224 + q^244 - q^252 + q^272 + O(q^274),
    q^16 + q^36 - q^64 - q^72 - q^84 - q^100 + q^140 + q^168 - q^172 + q^200 - 
        q^204 + q^212 - q^240 + q^268 + O(q^274),
    q^18 - q^42 - q^50 + q^70 - q^86 - q^102 + q^106 + q^134 + q^170 + q^246 + 
        q^254 - q^270 + O(q^274),
    q^20 - q^28 - q^68 - q^80 + q^96 + q^108 + q^112 + q^124 - q^160 - q^180 - 
        q^192 + q^272 + O(q^274),
    q^24 - 2*q^48 - q^56 + q^80 + 2*q^96 + q^112 - q^136 - q^160 - q^192 + q^216
        - q^224 + q^272 + O(q^274),
    q^32 + q^36 - q^64 - q^84 - q^100 + q^140 - q^144 - q^172 - q^204 + q^212 + 
        q^268 + O(q^274),
    q^40 - q^48 - q^56 + q^80 + q^96 - q^136 - q^160 + q^216 + q^248 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
952
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^9 - q^25 + q^30 - q^32 + q^36 - q^42 + q^49 - q^50 + q^60 - q^72 + 
        q^81 + q^86 + q^102 - q^119 - q^120 - q^121 + 2*q^135 + q^140 - q^162 - 
        q^169 - 2*q^183 - q^186 + q^212 + q^225 - q^240 + 2*q^263 - q^268 + 
        O(q^274),
    q^2 + q^16 - 2*q^18 + 2*q^21 - q^30 + q^36 - 2*q^43 - q^50 - 2*q^51 + 2*q^60
        - q^64 - q^70 + q^72 - q^84 + 2*q^93 + q^98 - q^100 - q^106 + 2*q^120 + 
        q^134 - q^140 - 2*q^144 - 2*q^149 + 2*q^155 + 2*q^162 + q^168 + q^170 + 
        q^172 + 2*q^179 - q^186 - 2*q^189 - q^200 + q^204 + 2*q^205 - q^212 - 
        q^238 - q^240 - q^242 - q^246 + q^254 + q^268 + 3*q^270 + O(q^274),
    q^3 - q^12 + q^14 - q^27 - q^34 + q^40 - q^41 - q^45 + q^61 + q^73 - q^75 + 
        q^80 - q^96 + q^105 + q^108 + q^125 - q^126 + q^147 + q^159 - q^164 + 
        q^167 - q^173 - q^175 + q^180 - q^199 - q^201 - q^215 - q^216 + q^243 - 
        q^244 - q^248 - q^255 + 2*q^258 - q^265 + O(q^274),
    q^4 + q^9 + q^16 - q^18 + q^21 + q^25 - q^35 + q^42 - q^43 - q^50 - q^51 - 
        q^53 + q^60 + q^67 - q^70 + q^85 - q^86 - q^100 - q^102 - q^106 + 
        2*q^120 - q^123 - q^127 - q^128 + q^134 - q^135 - q^137 - q^140 - q^149 
        - q^151 + q^155 + q^170 + q^179 + q^183 - q^191 + q^196 - 2*q^200 + 
        2*q^205 - q^212 - q^217 + q^219 + q^239 + q^240 - q^246 + q^254 + q^268 
        + q^270 + O(q^274),
    q^5 - q^14 - q^20 + q^24 - q^27 - q^31 + q^34 - q^40 + 2*q^41 - q^45 + q^48 
        - q^56 + 2*q^62 + q^63 - 2*q^73 + q^75 - q^80 + q^97 - q^105 + q^108 + 
        q^112 - q^124 - q^125 - q^126 - q^129 + q^136 + q^139 - q^153 - q^159 - 
        q^160 + 2*q^164 - 2*q^167 + 2*q^175 + q^180 - 2*q^194 + 2*q^199 + q^201 
        - 2*q^210 + q^215 - q^227 - q^241 + q^243 + q^245 + q^248 + q^252 + 
        q^255 + 2*q^265 - q^272 + O(q^274),
    q^6 - q^14 - q^20 + q^28 - 2*q^31 + q^34 - q^40 + 2*q^41 + q^48 - q^54 - 
        q^56 + 2*q^62 + 2*q^63 - q^68 - 2*q^73 - q^82 - q^90 + 2*q^97 + q^108 + 
        q^112 + q^122 - q^124 - q^126 - 2*q^129 + q^136 + q^146 - q^150 - 
        2*q^153 + 2*q^164 - 2*q^167 + 2*q^175 + q^180 - q^192 - 2*q^194 + 
        2*q^199 - q^210 + q^216 - 2*q^241 + q^248 + q^250 + 2*q^265 - q^272 + 
        O(q^274),
    q^7 - q^14 - q^17 + q^28 - 2*q^31 + q^34 + 2*q^41 - q^56 + 2*q^62 + q^63 - 
        q^68 - 2*q^73 - 2*q^82 + 2*q^97 + q^112 - 2*q^124 - q^126 + q^136 + 
        2*q^146 - q^153 + 2*q^164 - 2*q^167 + q^175 - 2*q^194 + 2*q^199 - q^224 
        - 2*q^241 + 2*q^248 + q^252 - q^272 + O(q^274),
    q^8 - q^9 - q^16 + 2*q^18 - q^21 - q^25 + 2*q^30 - q^35 - q^36 + q^43 + q^51
        - q^53 + q^67 - q^72 + q^84 + q^85 - 2*q^93 - q^100 - q^120 - q^123 + 
        q^127 + q^135 + q^137 + q^140 + q^144 + q^149 + q^151 - q^155 - 2*q^162 
        - q^168 - q^172 - q^179 - q^183 + 2*q^189 + q^191 - q^204 + q^212 + 
        q^217 + q^219 - q^239 + q^240 - 2*q^254 - q^256 - q^268 - 2*q^270 + 
        O(q^274),
    q^10 - q^12 + q^14 + q^20 - q^24 - q^34 + q^40 - 2*q^41 - q^54 - q^62 + 
        2*q^73 + q^80 - q^90 + 2*q^105 - q^112 + q^124 + q^150 + 2*q^159 - q^164
        + 2*q^167 - 2*q^175 + q^194 - 2*q^199 - 2*q^201 + q^210 - 2*q^215 - 
        q^244 - q^248 - q^250 - q^252 - 2*q^255 + q^258 - 2*q^265 + q^272 + 
        O(q^274),
    q^15 - q^16 + q^18 - q^21 - q^25 + q^30 - q^36 + q^43 + q^51 - q^60 + q^70 -
        q^81 - q^93 + q^106 - q^120 - q^134 + q^137 + q^140 + q^144 + q^149 + 
        q^151 - q^155 - q^162 - q^168 - q^170 - q^179 + q^186 + q^189 + q^200 - 
        q^205 + q^212 - q^239 + q^246 - q^254 - q^268 - q^270 + O(q^274)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
953
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
952
);
qprec:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
953
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
136
);
qprec:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
953
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
17*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
56
);
qprec:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
953
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
119*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
954
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
954
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
954
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
954
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
156
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
954
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
954
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
954
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
954
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
26
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
954
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
954
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 13*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
954
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 26*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
954
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 26*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
310
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^13 + q^16 + q^25 - 2*q^28 - q^43 + q^46 + 2*q^52 - q^64 + q^70 + q^82 
        - q^91 - q^97 - 2*q^100 - q^106 - q^115 + q^121 - q^130 - 2*q^148 - 
        q^160 + 2*q^163 + q^169 + 2*q^172 + q^175 + q^184 + 2*q^196 - q^199 - 
        2*q^202 - q^205 - q^208 + 2*q^223 + q^250 - q^256 + q^259 - q^265 - 
        q^271 + q^280 + q^289 - q^301 - q^307 + O(q^310),
    q^2 - q^20 - q^26 + q^50 - q^56 + q^80 - q^86 + q^92 + q^104 + q^164 - q^182
        - q^194 - q^200 - q^230 + q^242 + q^260 - q^284 - q^296 + O(q^310),
    q^3 + q^27 - q^30 - q^39 - q^45 - q^72 + q^75 - q^84 + q^120 + q^126 - q^129
        + q^138 + q^156 + q^180 - q^234 + q^243 + q^246 - q^270 - q^273 + q^288 
        - q^291 - q^300 + O(q^310),
    q^4 + q^16 - 2*q^28 - q^40 + q^46 + q^52 - q^64 + q^70 + q^82 - q^100 - 
        q^106 - q^112 - q^130 - 2*q^148 + q^172 + 2*q^184 + 2*q^196 - 2*q^202 + 
        q^250 - q^256 + q^280 + O(q^310),
    q^5 - q^20 - q^32 + q^35 - q^53 + q^56 - 2*q^65 + q^71 + q^80 + q^83 - 
        2*q^101 - q^104 + q^125 + q^128 + q^137 - q^140 - q^161 + q^167 + q^185 
        + q^200 + q^212 - 2*q^215 + q^233 - 2*q^239 - q^245 + 2*q^260 + q^263 - 
        q^284 - q^287 + q^296 + q^299 + O(q^310),
    q^6 + q^54 - q^60 - q^78 - q^90 - q^144 + q^150 - q^168 + q^240 + q^252 - 
        q^258 + q^276 + O(q^310),
    q^7 - q^13 + q^16 + q^25 - q^28 + q^37 - q^43 - q^49 + q^52 - q^97 - q^100 -
        q^112 - q^148 - q^160 + q^169 + q^172 + q^184 + q^196 - q^199 + q^211 + 
        q^229 + q^241 - q^256 - q^259 - q^265 - q^271 + q^280 - q^307 + 
        O(q^310),
    q^8 - q^23 + q^32 - q^35 - q^41 + q^53 - 2*q^56 + q^65 - q^80 + q^92 + 
        2*q^101 + q^104 - q^125 - q^128 + q^140 + 2*q^161 + q^164 - q^173 - 
        q^179 - q^185 - q^191 - q^200 - q^212 + q^215 - q^224 + 2*q^239 + q^245 
        - q^251 - q^257 - q^260 + 2*q^287 - 2*q^296 - q^299 + O(q^310),
    q^9 + q^42 - q^63 - q^69 - q^78 + q^81 - q^90 + q^96 - q^105 - q^123 - q^144
        + q^150 + q^159 - q^168 + q^195 + q^222 - q^258 - q^294 + 2*q^303 + 
        O(q^310),
    q^10 + q^16 - q^28 - q^40 + q^52 - q^64 + q^70 - q^100 - q^106 - 2*q^130 + 
        q^142 - q^148 + q^166 + q^172 + q^184 + q^196 - 2*q^202 - q^208 + q^250 
        + q^274 + O(q^310),
    q^12 - q^30 - q^72 - q^84 + q^108 + q^126 + q^138 - q^234 + q^246 - q^270 + 
        O(q^310),
    q^14 - q^23 - q^26 + q^32 - q^35 - q^41 + q^50 + q^53 - q^56 + q^65 + q^74 -
        q^86 - q^98 + 2*q^101 + q^104 - q^125 + 2*q^161 - q^173 - q^179 - q^185 
        - q^191 - q^194 - q^200 + q^215 - q^224 + 2*q^239 + q^245 - q^251 - 
        q^257 + 2*q^287 - q^296 - q^299 + O(q^310),
    q^15 + q^36 + q^42 - q^60 - q^63 - q^69 - q^78 - q^90 + q^117 - q^123 + 
        q^135 - q^144 + q^150 - q^195 + q^213 + q^222 - q^225 + q^240 + q^249 - 
        q^258 - q^294 + O(q^310),
    q^18 - q^30 - q^48 + q^84 + q^120 - q^156 + q^162 - q^180 + q^192 - q^210 - 
        q^234 - q^270 + q^300 + O(q^310),
    q^21 - q^39 - q^45 + q^48 - q^72 + q^75 - q^84 + q^111 - q^129 - q^147 + 
        q^156 + q^180 + q^189 + q^207 - q^291 - q^300 + O(q^310),
    q^24 - q^36 - q^42 + q^78 + q^90 - q^150 - q^168 + q^216 - q^222 - q^240 + 
        q^252 + q^258 + q^276 + q^294 + O(q^310)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
955
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
955
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
190
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
955
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
190
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
955
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
380
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
955
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
38
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
955
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
38
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
955
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
76
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
955
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
19*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
955
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 19*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
955
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 38*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
955
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
95*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^12 - q^17 - q^26 - q^30 - q^45 + q^48 + q^49 - q^51 + q^54 + 
        q^60 + q^68 - q^72 + q^78 + q^81 + q^90 + q^104 - q^107 - q^108 - q^109 
        - q^115 - q^117 - q^118 + q^121 + q^138 - q^153 + q^158 - q^160 - q^162 
        + q^169 - q^184 + O(q^190),
    q^2 + q^9 - q^12 - q^13 + q^23 + q^27 + q^32 - q^36 + q^43 - q^46 - q^50 - 
        q^51 + q^52 - q^59 - q^64 - q^67 + q^69 + q^79 - q^86 - q^92 + q^96 + 
        q^98 - q^103 - q^104 + q^125 + q^129 + 2*q^136 - 2*q^153 + q^156 - q^163
        - q^169 - q^172 + O(q^190),
    q^3 + q^16 - q^24 + q^26 + q^27 - q^36 - q^39 - q^51 - q^67 + q^68 + q^69 - 
        q^75 - q^78 - q^92 + q^97 - q^102 - q^103 + q^118 + q^125 - q^128 + 
        q^129 - q^134 + q^144 + q^147 + q^149 - q^153 + q^162 - q^169 - q^172 - 
        q^177 + O(q^190),
    q^4 + q^16 + q^17 - q^18 - q^24 + q^26 - q^39 - q^46 + q^54 - q^67 + q^68 - 
        q^86 - q^92 - q^96 - q^100 - q^102 - q^103 + q^107 + q^109 + q^117 + 
        q^118 + q^125 - q^128 - q^134 + q^138 - q^156 + q^158 - q^169 - q^172 - 
        q^177 + O(q^190),
    q^5 + q^45 - q^60 - q^75 - q^85 + q^125 - q^130 - q^150 + O(q^190),
    q^6 + q^9 - q^12 - q^18 + q^23 + q^32 - q^39 + q^43 - q^46 - q^51 + q^52 + 
        q^54 - q^64 - q^67 + q^81 - q^86 - q^103 - q^104 - q^108 + q^117 + q^125
        + q^136 + q^138 - q^150 - q^153 - q^162 - q^169 - q^177 + O(q^190),
    q^8 - q^9 + q^13 - q^23 + q^34 - q^43 - q^48 + q^59 - q^78 + q^108 - q^134 +
        q^153 + q^163 - q^184 + O(q^190),
    q^10 - q^30 - q^65 - q^75 + q^90 + q^125 + q^135 - q^180 + O(q^190),
    q^15 - q^30 - q^45 - q^50 + q^60 + q^80 + q^90 - q^115 - q^120 + q^130 + 
        q^135 + q^150 - q^160 - q^180 + O(q^190),
    q^20 - q^30 - q^45 - q^50 + q^60 + q^75 + q^80 + q^85 - q^100 - q^115 - 
        q^120 + q^130 + q^150 - q^160 + O(q^190),
    q^25 - q^30 - q^45 + q^60 + q^90 - q^115 - q^160 + O(q^190),
    q^40 - q^45 - q^50 + q^65 + q^75 - q^100 - q^115 + q^150 + q^170 + O(q^190)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
955
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 95*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^20 + q^23 + q^26 + q^32 - q^34 - 1/2*q^40 - q^43 - 1/2*q^45 - q^48 - 
        q^49 - 1/2*q^50 + q^51 - q^52 + q^54 - q^59 + 1/2*q^65 - q^72 + 1/2*q^75
        + q^78 + q^81 - q^85 - q^90 - q^92 + 1/2*q^100 + q^102 + q^104 - q^109 +
        1/2*q^115 + q^117 - q^120 + q^121 - q^128 + q^134 + q^138 - 1/2*q^150 + 
        q^160 - q^169 + 1/2*q^170 + q^172 + O(q^190),
    q^2 - q^13 + q^17 + q^20 - 2*q^23 + q^25 - q^27 - 2*q^32 + q^34 + q^36 + 
        1/2*q^40 + 2*q^43 + 1/2*q^45 + q^46 + 2*q^48 - 1/2*q^50 - q^51 + 2*q^52 
        + q^64 - 1/2*q^65 - q^67 - q^68 - q^69 + 2*q^72 - 1/2*q^75 - 2*q^78 - 
        q^79 - 2*q^80 + q^85 - q^86 + q^90 + 2*q^92 - q^96 - q^98 - 1/2*q^100 - 
        q^102 - q^103 - q^104 - q^107 + q^108 - 1/2*q^115 - 2*q^117 - q^118 + 
        q^120 - q^125 + q^128 + q^129 + 2*q^130 - q^134 - 2*q^138 + 1/2*q^150 + 
        q^153 + q^156 + q^158 - q^160 + q^162 + q^163 + q^169 - 5/2*q^170 - 
        2*q^172 - 2*q^180 - q^184 + O(q^190),
    q^3 + 3/2*q^20 - 2*q^23 + 1/2*q^25 - q^27 - 2*q^32 + q^34 + q^36 + 1/2*q^40 
        + 2*q^43 - 1/2*q^45 + q^46 + 2*q^48 - q^51 + 2*q^52 + q^64 - 1/2*q^65 - 
        q^67 - q^68 - q^69 + 2*q^72 - q^75 - q^78 - q^79 - 3/2*q^80 + 1/2*q^85 -
        q^86 + 1/2*q^90 + q^92 - q^96 + q^97 - q^102 - q^103 - q^104 - 1/2*q^115
        - 2*q^117 - q^118 + 3/2*q^120 - q^125 + q^128 + q^129 + 3/2*q^130 - 
        q^134 - 2*q^138 - q^147 + q^153 + q^156 - q^160 + q^162 + q^169 - 
        3/2*q^170 - q^172 + q^177 - 2*q^180 - q^184 + O(q^190),
    q^4 - q^17 - q^18 - 3/2*q^20 + 2*q^23 - 1/2*q^25 + 2*q^32 - q^34 - 2*q^36 + 
        1/2*q^40 - 2*q^43 - 1/2*q^45 - 2*q^46 - 2*q^48 + q^50 + 2*q^51 - 2*q^52 
        - q^54 - q^64 - 1/2*q^65 + q^67 + q^68 + 2*q^69 - 2*q^72 + q^75 + 2*q^78
        + q^79 + 3/2*q^80 - 1/2*q^85 + 2*q^86 - 1/2*q^90 - q^92 + 2*q^96 + q^102
        + q^103 + q^104 + q^107 - q^109 + 3/2*q^115 + 3*q^117 + q^118 - 
        3/2*q^120 + q^125 - q^128 - 2*q^129 - 3/2*q^130 + q^134 + q^138 + q^144 
        - q^149 - q^150 - 2*q^156 - q^158 + q^160 - q^169 + 5/2*q^170 + q^172 - 
        q^177 + 2*q^180 + q^184 + O(q^190),
    q^5 - 2*q^20 + 2*q^23 - q^25 + q^30 + 2*q^32 - 2*q^34 - 2*q^36 - 2*q^43 - 
        2*q^46 - 2*q^48 + 2*q^51 - 2*q^52 - 2*q^64 + 2*q^69 - 2*q^72 + q^75 + 
        2*q^78 + 2*q^79 + 2*q^80 - q^85 + 2*q^86 - q^90 - 2*q^92 + 2*q^96 + 
        2*q^102 + 2*q^104 + q^115 + 2*q^117 - 2*q^120 + q^125 - 2*q^128 - 
        2*q^129 - q^130 + 2*q^134 + 2*q^138 - q^150 - 2*q^156 + q^160 - 2*q^169 
        + 2*q^170 + 2*q^172 + 2*q^180 + 2*q^184 + O(q^190),
    q^6 - q^17 - q^18 - q^20 + 2*q^23 - q^25 + 2*q^32 - q^34 - 2*q^36 - q^39 + 
        1/2*q^40 - 2*q^43 + 1/2*q^45 - q^46 - 2*q^48 + 1/2*q^50 + q^51 - 2*q^52 
        - q^54 + q^59 - q^64 - 1/2*q^65 + q^67 + q^68 + 2*q^69 - 2*q^72 + 
        3/2*q^75 + 2*q^78 + 2*q^79 + 2*q^80 - q^81 - q^85 + q^86 - q^90 - q^92 +
        2*q^96 - 1/2*q^100 + q^102 + q^103 + q^104 + q^107 + 3/2*q^115 + 3*q^117
        + q^118 - q^120 + q^125 - q^128 - 2*q^129 - 2*q^130 + q^134 - q^136 + 
        q^138 - 1/2*q^150 - 2*q^156 - q^158 + q^160 - q^169 + 3/2*q^170 + q^172 
        - q^177 + 2*q^180 + q^184 + O(q^190),
    q^8 - q^13 + q^17 + q^18 + q^20 - 2*q^23 + 1/2*q^25 - 1/2*q^30 - 3*q^32 + 
        q^34 + q^36 + 1/2*q^40 + 2*q^43 + q^46 + 2*q^48 - 1/2*q^50 - q^51 + 
        3*q^52 - 1/2*q^60 + q^64 - 1/2*q^65 - q^67 - q^68 - q^69 + q^72 - 
        1/2*q^75 - 2*q^78 - q^79 - 2*q^80 + q^85 - q^86 + 1/2*q^90 + 2*q^92 - 
        q^96 + 1/2*q^100 - q^103 - q^104 - q^107 - q^108 - q^115 - 2*q^117 - 
        q^118 + 2*q^120 - q^125 + 2*q^128 + q^129 + 2*q^130 - q^134 - 2*q^138 + 
        1/2*q^150 + q^153 + q^156 + q^158 - 3/2*q^160 + q^163 + q^169 - 
        5/2*q^170 - 2*q^172 + q^177 - q^180 - q^184 + O(q^190),
    q^9 + q^17 + q^18 - q^23 + 1/2*q^25 + 1/2*q^30 - q^32 + q^36 - 1/2*q^40 + 
        q^43 + q^46 + q^48 - 1/2*q^50 - q^51 + q^52 - q^59 + 1/2*q^60 + q^64 + 
        1/2*q^65 - q^67 - q^68 - q^69 + q^72 - 1/2*q^75 - q^78 - q^79 - q^80 - 
        q^86 + 1/2*q^90 - q^96 + 1/2*q^100 - q^103 - q^104 - q^107 - q^115 - 
        2*q^117 - q^118 + q^120 - q^125 + q^129 + q^130 + 1/2*q^150 + q^156 + 
        q^158 - 1/2*q^160 + q^169 - 3/2*q^170 + q^177 - q^180 + O(q^190),
    q^10 - q^20 + 2*q^23 + 2*q^32 - q^40 - 2*q^43 - 2*q^48 - 2*q^52 + q^60 - 
        2*q^72 + q^75 + 2*q^78 + q^80 - q^85 - q^90 - 2*q^92 + 2*q^102 + 2*q^117
        - q^120 + q^125 - 2*q^128 - q^130 - q^135 + 2*q^138 + q^160 + q^170 + 
        2*q^172 + q^180 + O(q^190),
    q^12 + q^18 + q^20 - 2*q^23 + 1/2*q^25 - 1/2*q^30 - 2*q^32 + q^34 + q^36 + 
        2*q^43 - 1/2*q^45 + q^46 + q^48 - q^51 + 2*q^52 - 1/2*q^60 + q^64 - q^67
        - q^69 + q^72 - q^75 - q^78 - q^79 - q^80 + q^85 - q^86 + 1/2*q^90 + 
        q^92 - q^96 - q^102 - q^103 - q^104 - q^108 - 1/2*q^115 - 2*q^117 + 
        2*q^120 - q^125 + q^128 + q^129 + q^130 - q^134 - 2*q^138 + q^150 + 
        q^153 + q^156 - 1/2*q^160 - q^162 + q^169 - 2*q^170 - q^172 + q^177 - 
        q^180 - q^184 + O(q^190),
    q^15 - 2*q^17 - 2*q^18 - 2*q^20 + 4*q^23 - q^25 + 4*q^32 - 2*q^34 - 2*q^36 -
        4*q^43 - 2*q^46 - 4*q^48 + q^50 + 2*q^51 - 4*q^52 - 2*q^64 + 2*q^67 + 
        2*q^68 + 2*q^69 - 4*q^72 + 2*q^75 + 4*q^78 + 2*q^79 + 3*q^80 - 2*q^85 + 
        2*q^86 - 2*q^90 - 2*q^92 + 2*q^96 + 2*q^102 + 2*q^103 + 2*q^104 + 
        2*q^107 + 2*q^115 + 6*q^117 + 2*q^118 - 3*q^120 + 2*q^125 - 2*q^128 - 
        2*q^129 - 3*q^130 + 2*q^134 - q^135 + 2*q^138 - q^150 - 2*q^156 - 
        2*q^158 + 2*q^160 - 2*q^169 + 4*q^170 + 2*q^172 - 2*q^177 + 3*q^180 + 
        2*q^184 + O(q^190),
    q^16 - 1/2*q^20 - q^26 + 1/2*q^30 + 1/2*q^40 - q^46 - 1/2*q^60 - q^64 - 
        1/2*q^65 + q^69 + 1/2*q^80 + 1/2*q^85 + q^86 + q^96 + q^104 - 1/2*q^120 
        - q^129 - 1/2*q^130 - q^149 - q^156 - 1/2*q^160 + 1/2*q^170 + q^184 + 
        O(q^190),
    q^24 - 1/2*q^25 + 1/2*q^30 - q^34 - q^39 + 1/2*q^45 - 1/2*q^60 + q^69 + q^79
        - 1/2*q^90 + 1/2*q^115 - q^129 - q^144 + 1/2*q^160 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
956
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
236
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
956
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
238
);
qprec:=
236
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
956
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
238
);
qprec:=
236
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
956
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
236
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
956
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
236
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
956
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
17*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
236
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
956
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 34*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
236
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
956
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
119*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
236
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^25 - q^27 + q^49 - q^55 - q^71 - q^109 + q^121 - q^125 - q^155 - q^165
        + q^169 - q^187 - q^213 + O(q^236),
    q^2 + q^34 - q^36 - q^44 - 2*q^48 + q^50 - q^54 - q^58 + q^60 + q^64 - q^66 
        + q^68 + q^72 - q^88 - q^96 + q^98 - q^100 - q^108 - q^110 + q^122 + 
        q^124 + q^128 + q^132 + q^134 - q^136 - q^142 + 2*q^144 - q^150 + q^160 
        - q^166 + q^186 + q^198 - q^200 + q^204 + q^216 - q^218 - q^220 + q^232 
        + O(q^236),
    q^3 + q^27 - q^31 - q^33 - q^45 - q^51 + q^81 + q^101 + q^113 - q^121 - 
        q^135 + q^145 + q^147 + q^165 - q^183 - q^201 + q^213 + O(q^236),
    q^4 + q^36 - q^60 - q^72 - q^80 + q^100 - q^116 - q^132 - q^192 + q^196 - 
        q^216 + O(q^236),
    q^5 - q^31 - q^33 + q^55 - q^75 - q^85 + q^87 + q^99 - q^121 + q^125 - q^135
        + q^163 + q^193 + q^225 + O(q^236),
    q^6 + q^44 + q^48 + q^54 - q^60 - q^62 - q^66 - q^72 - q^80 + q^88 - q^90 + 
        q^100 - q^102 - q^116 - q^132 + q^162 + q^180 - q^192 + q^200 + q^202 - 
        q^216 + q^226 + O(q^236),
    q^8 - q^36 - q^44 - q^48 + q^60 + q^68 + q^72 - q^88 - q^96 - q^100 - q^108 
        + q^124 + q^128 + q^132 + q^144 + q^204 - q^220 + O(q^236),
    q^9 + q^27 - q^31 - q^33 - q^45 - q^51 + q^55 + q^71 - q^75 + q^81 - q^85 + 
        q^109 - q^121 + q^125 - q^135 + q^155 + q^165 - q^183 + q^187 - q^201 + 
        q^213 + q^225 + O(q^236),
    q^10 - q^34 + q^36 + q^48 + q^58 - q^60 - q^62 - q^72 + q^108 + q^110 - 
        q^116 + q^120 - q^122 - q^128 - q^132 - q^134 + q^136 - q^144 - q^160 + 
        q^166 - q^170 + q^174 - q^186 - q^216 + q^220 + O(q^236),
    q^11 + q^25 - q^31 - q^33 - q^51 - q^75 - q^85 + q^87 + q^93 + q^99 - q^121 
        + q^127 + q^153 - q^183 + q^197 - q^201 + q^225 + O(q^236),
    q^12 + q^34 - q^36 - q^44 - q^48 - q^58 + q^60 - q^66 + q^68 - q^100 + q^122
        + q^128 + q^134 + q^144 - q^150 - q^166 + q^176 - q^180 + q^186 + q^198 
        - q^220 + O(q^236),
    q^15 + q^29 - q^31 - q^45 - q^51 + q^83 - q^85 - q^121 + q^145 + q^153 + 
        q^157 + q^165 - q^183 + q^187 - q^201 + q^211 + O(q^236),
    q^16 + q^34 - q^36 - q^44 - 2*q^48 - q^58 + 2*q^60 + q^64 - q^66 + q^68 + 
        q^72 - q^88 - q^96 - q^100 - q^108 + q^116 - q^120 + q^122 + q^128 + 
        q^132 + q^134 - q^136 + 2*q^144 - q^150 - q^166 - q^180 + q^186 + q^198 
        - q^200 + q^216 - q^220 + O(q^236),
    q^17 - q^29 - q^33 + q^61 + q^67 - q^75 - q^83 + q^93 + q^99 - q^145 + q^155
        - q^157 - q^187 - q^211 + q^225 + O(q^236),
    q^18 - q^34 + q^36 + q^44 + 2*q^48 + q^54 + q^58 - 2*q^60 - q^62 - q^64 - 
        q^68 - 2*q^72 - q^80 + q^88 - q^90 + q^96 + q^100 - q^102 + q^108 + 
        q^110 - q^116 + q^120 - q^122 - q^128 - q^132 - q^134 + q^136 + q^142 - 
        q^144 + q^162 + q^166 - q^170 + q^180 - q^186 - q^192 - q^198 + q^200 - 
        2*q^216 + q^218 + q^220 + O(q^236),
    q^20 + q^34 - q^36 - q^44 - q^48 - q^58 + q^60 + q^64 - q^66 + q^68 + q^72 -
        q^88 - q^96 - q^100 - q^108 + q^122 + q^128 + q^134 + q^144 - q^150 - 
        q^166 + q^186 + q^198 - q^200 + q^204 + q^216 + O(q^236),
    q^22 - q^34 + q^36 + q^44 + q^48 + q^50 + q^58 - 2*q^60 - q^62 - q^68 - q^72
        + q^100 - q^102 + q^108 - q^116 + q^120 - q^122 - q^128 - q^132 - q^134 
        + q^136 - q^144 + q^166 - q^170 + q^174 - q^176 + q^180 - q^192 - q^216 
        + q^220 + O(q^236),
    q^24 + q^34 - q^36 - q^48 - q^58 + q^60 - q^66 + q^68 - q^80 - q^108 - q^120
        + q^122 + q^128 + q^134 - q^136 + q^144 - q^150 + q^160 - q^166 + q^176 
        + q^186 + q^198 + q^216 - q^220 + O(q^236),
    q^30 + q^36 + q^44 + q^48 + q^58 - 2*q^60 - q^62 - q^68 - q^72 - q^80 + q^88
        - q^90 + q^96 + q^100 - q^102 + q^108 - q^116 - q^128 - q^132 - q^144 + 
        q^166 - q^170 + q^180 - q^192 + q^200 - q^216 + q^220 + O(q^236),
    q^32 + q^34 - q^48 - q^58 - q^66 - q^80 + q^122 + q^128 + q^134 - q^136 + 
        q^144 - q^150 + q^160 - q^166 + q^186 - q^192 + q^198 + q^232 + 
        O(q^236),
    q^40 - q^44 - q^48 + q^60 + q^68 - q^88 - q^100 + q^128 + q^144 - q^180 - 
        q^200 + O(q^236)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
140
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
140
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^6 - q^7 + q^9 - q^13 - q^16 + q^24 + q^25 + q^34 + q^42 - q^51 - q^54 
        - q^58 - q^63 + q^64 - q^67 + q^78 + q^81 - 2*q^82 + q^87 + q^91 + q^94 
        + 2*q^103 - q^109 + q^112 - q^117 - q^121 + 2*q^123 - q^136 - q^139 - 
        q^141 - q^144 - q^150 + 2*q^151 - q^168 - q^175 + q^178 - q^181 - q^199 
        + q^202 + q^208 + q^216 - q^223 + q^225 + q^226 + q^232 + O(q^234),
    q^2 - q^3 - q^8 - q^14 + q^17 + q^18 + q^21 - q^26 - q^27 - q^29 + q^39 - 
        2*q^41 + q^47 + q^48 + q^50 + q^56 - q^72 - q^75 + q^89 + q^101 - q^102 
        + q^104 + q^113 - q^119 - q^126 + q^128 + q^131 - q^134 - 2*q^137 + 
        q^153 + q^162 + q^174 + q^182 + q^189 - 2*q^191 - q^192 - q^200 + q^201 
        + q^203 + 2*q^206 - q^218 - q^221 + O(q^234),
    q^11 - q^66 - q^77 + q^99 - q^143 - q^176 + O(q^234),
    q^22 - q^33 - q^88 + q^121 - q^154 + q^187 + q^198 + q^231 + O(q^234)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 - a)*q^7 - a*q^9 + a*q^13 + (a^3 - a^2 + a - 1)*q^16 + 1/5*(2*a^3 
        + a^2 + a + 2)*q^22 + (a^2 + 1)*q^24 - a^3*q^25 + (a^2 - a)*q^28 + 
        1/5*(3*a^3 - a^2 - a - 2)*q^33 + a*q^42 + (a^3 - a^2 + a - 1)*q^49 + 
        a^2*q^51 - 2*a^3*q^52 + (a^3 + a - 1)*q^63 + (-a^2 - 1)*q^64 + (a^3 - 
        a^2 - 1)*q^67 + (a^3 - a^2 - 1)*q^78 + a^2*q^81 + q^87 + 1/5*(-2*a^3 + 
        4*a^2 - a + 3)*q^88 + (-a^3 - 2*a + 2)*q^91 + (a^3 - 1)*q^94 + (-a^3 - 
        a)*q^103 + (-a^3 + a^2 + 1)*q^109 - a^2*q^117 + 1/5*(2*a^3 + a^2 + a + 
        2)*q^121 + (-a^2 + a - 1)*q^123 + q^132 + (-a^3 - a)*q^136 + (a^3 + 
        a)*q^139 + (-a^2 - 1)*q^141 + q^144 + (a^3 + a - 1)*q^151 + 1/5*(-2*a^3 
        - a^2 - a + 3)*q^154 + (-a^3 - a + 1)*q^168 + 2*a^2*q^169 + (a^3 - a^2 -
        1)*q^175 + (-a^3 + 1)*q^181 + 1/5*(-3*a^3 + 6*a^2 - 4*a + 2)*q^187 + 
        (a^2 + 1)*q^196 + 1/5*(-3*a^3 + a^2 - 4*a + 2)*q^198 + q^199 + (a^3 + 
        a)*q^202 + (a^2 - a)*q^204 + (-a^3 + a^2 + 1)*q^208 + (-a^3 - a)*q^216 +
        (a^3 - a^2 + a - 1)*q^225 + (a^3 - a^2 + a - 1)*q^226 + 1/5*(-3*a^3 + 
        6*a^2 + a + 2)*q^231 + (a^3 - a^2 - 1)*q^232 + O(q^234),
    q^2 + a^2*q^8 + q^12 + q^14 + a^2*q^17 - a*q^18 + a^2*q^21 - a*q^26 + (a^3 -
        a^2 - 1)*q^32 + (a^3 - a^2 + a - 1)*q^39 + q^44 + (a^3 - a^2 + a - 
        1)*q^47 + (a^2 + 1)*q^48 - a^3*q^50 + (-a^3 + a^2 - a)*q^56 - a^3*q^66 +
        (a^3 - a^2 - 1)*q^68 - a^3*q^72 - a^3*q^77 + (-a^2 + a - 1)*q^84 - 
        a^3*q^89 + (a^3 - a^2 + a)*q^98 + a^2*q^101 + (a^3 - a^2 + a - 1)*q^102 
        + (-2*a^3 + 1)*q^104 - a*q^108 + a^2*q^113 + (a^3 - a^2 + a - 1)*q^116 +
        (a^3 - a^2 + a - 1)*q^119 - a*q^126 + (-a^2 - 1)*q^128 - a*q^131 - 
        a^3*q^134 + (a^3 - a^2 + a - 1)*q^143 - a*q^147 - a^3*q^153 + (a^3 - a^2
        - 1)*q^156 + a^2*q^162 + (-a^3 + a^2)*q^164 + q^174 + (a^3 + a - 
        1)*q^176 + (a^2 - a + 1)*q^182 + (a^2 - a)*q^188 - a^3*q^189 + (a^3 + a 
        - 1)*q^192 + q^200 + q^201 - a*q^203 + (-a^3 - a)*q^206 + (a^3 - a^2 + a
        - 1)*q^218 + q^221 + a*q^224 + O(q^234),
    q^3 + (a^3 - a^2 - 1)*q^8 + a^2*q^12 + (-a^3 + a^2)*q^14 + (-a^3 + 1)*q^26 -
        a*q^27 + (a^3 - a^2 + a - 1)*q^29 + (-a^3 - a)*q^32 + (-a^3 + a^2)*q^41 
        + (a^3 - a^2 + a - 1)*q^44 + (a^3 - a^2 + a - 1)*q^48 + (a^3 - a^2 + 
        a)*q^56 + q^66 + (-a + 1)*q^68 + (a^2 + 1)*q^72 - a^3*q^75 - a*q^77 + 
        (a^2 - a)*q^84 + 2*a^2*q^98 + (a^3 - a^2 - 1)*q^102 + (a^2 + 1)*q^104 - 
        a^3*q^108 - a*q^116 + (a^3 + a - 1)*q^119 + (-a^2 + a - 1)*q^126 + (-a^3
        + 1)*q^128 + (-a + 1)*q^134 + (a^2 + 1)*q^137 - a^3*q^143 + (a^3 - a^2 +
        a - 1)*q^147 - 2*a^3*q^156 + (a^3 - a^2 + a)*q^164 + (a^3 - a^2 - 
        1)*q^176 + (-a^2 + a - 1)*q^182 + (-a^3 - a)*q^188 + (a^2 - a)*q^191 + 
        (-a^2 - 1)*q^192 + (a^3 + a - 1)*q^200 + (-a + 1)*q^218 + (a^3 - a^2 + 
        a)*q^221 + (-a^3 + a^2 - a + 1)*q^224 + O(q^234),
    q^4 + (-a^3 + a^2 + 1)*q^7 + (a^3 - a^2 + a - 1)*q^13 + 1/5*(-2*a^3 - a^2 - 
        a - 2)*q^22 + 1/5*(-3*a^3 + a^2 - 4*a + 2)*q^33 + (a^3 + a - 1)*q^34 - 
        a*q^36 + (a^3 - 1)*q^42 - q^51 + (-a^2 - 1)*q^63 + (-a^3 - a + 1)*q^67 +
        1/5*(2*a^3 + a^2 + a + 2)*q^88 + (a^2 + 1)*q^91 - a^2*q^94 + (a^2 + 
        1)*q^96 - a^3*q^100 + (a^3 + a - 1)*q^109 + (-a^3 + a^2 - a + 1)*q^112 +
        q^117 + 1/5*(3*a^3 - a^2 - a - 2)*q^121 + (a^3 - a^2 - 1)*q^139 + (-a^3 
        + 1)*q^141 + 1/5*(-3*a^3 + a^2 + a + 2)*q^154 + a*q^168 - q^169 + (-a^3 
        - a + 1)*q^175 + (-a^3 + 1)*q^178 + (a^3 + a)*q^181 + 1/5*(-2*a^3 + 
        4*a^2 - a + 3)*q^187 + (a^3 - a^2 + a - 1)*q^196 + 1/5*(3*a^3 - a^2 + 
        4*a - 2)*q^198 + a^3*q^199 - q^202 - a^3*q^208 + a^2*q^226 + 1/5*(3*a^3 
        - a^2 + 4*a - 2)*q^231 + O(q^234),
    q^6 + (-a^3 - a + 1)*q^7 + (a^3 - a^2 - 1)*q^16 + 1/5*(2*a^3 + a^2 + a - 
        3)*q^22 + a^2*q^24 + (-a^3 + a^2)*q^28 + 1/5*(-2*a^3 - a^2 - a - 2)*q^33
        + a*q^34 + (a^3 + a)*q^42 + q^49 + (a^3 + a - 1)*q^51 + (-a^3 + 1)*q^52 
        - a*q^54 + (a^3 - a^2 + a - 1)*q^58 + (a^3 - 1)*q^63 + (-a^3 - a)*q^64 +
        (-a^2 - 1)*q^67 - a*q^78 + (-a^3 + a^2)*q^82 + 1/5*(3*a^3 - a^2 + 4*a - 
        2)*q^88 + (-a^3 + a^2 - a + 1)*q^91 + (a^3 - a^2 - 1)*q^94 + a*q^109 - 
        a^2*q^112 + 1/5*(2*a^3 + a^2 + a + 2)*q^121 + q^132 + (-a^3 - a + 
        1)*q^136 + a^3*q^139 - a^2*q^141 + (a^2 + 1)*q^144 - a^3*q^150 + 
        1/5*(-2*a^3 - a^2 - 6*a + 3)*q^154 + (-a^3 + a^2 - a + 1)*q^168 + (a^3 +
        a - 1)*q^169 + (-a^2 - 1)*q^175 - a^2*q^178 + (-a^3 + a^2 + 1)*q^181 + 
        1/5*(-3*a^3 + a^2 - 4*a + 2)*q^187 + 2*a^2*q^196 + 1/5*(-3*a^3 + a^2 + a
        + 2)*q^198 + (a^2 + 1)*q^199 + (a^3 + a - 1)*q^202 + (a^3 - a^2 - 
        1)*q^204 + (a^2 + 1)*q^208 - a^3*q^216 + (a^3 - a^2 + a - 1)*q^223 + 
        1/5*(-3*a^3 + a^2 + a + 2)*q^231 - a*q^232 + O(q^234),
    q^11 + (-a^2 + 1)*q^12 + (-a^2 - a)*q^14 + (-a^3 + a^2 - 2*a + 1)*q^17 + 
        (-2*a^3 + a^2 - a + 1)*q^21 + (2*a^3 - a^2 + a - 1)*q^32 + (a^3 - a^2 + 
        2*a - 1)*q^39 + (a^2 + a)*q^47 + (a^2 - 1)*q^56 - q^66 - q^77 + (a^2 - 
        1)*q^89 + (-a^2 + 1)*q^98 - a*q^99 + (-a^3 + a^2 - a + 2)*q^101 + (a^2 +
        a)*q^102 + (-a^3 - a^2)*q^104 + (a^3 - a)*q^108 + (a^3 - a^2 + 2*a - 
        1)*q^116 + (-a^3 + a)*q^119 + (a^3 + a^2)*q^126 + (2*a^3 - a^2 + a - 
        1)*q^131 + (a^3 - a^2 + a - 2)*q^134 + a*q^143 + (a^2 - 1)*q^153 + 
        (-2*a^3 + 2*a^2 - a)*q^164 + a*q^176 + (-a^3 + a^2 - 2*a + 1)*q^182 + 
        (a^3 - a^2 + a - 2)*q^189 + (-a^2 - a)*q^201 + (a^3 + a^2)*q^203 + (-a^3
        + a)*q^218 + (-a^2 + 1)*q^221 + O(q^234)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
957
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^20 - q^23 - q^34 - q^38 + q^49 - q^53 - q^59 + q^81 + q^82 + 
        q^86 - q^88 + q^92 + q^100 + q^110 - q^115 + q^121 + q^122 - q^125 + 
        q^136 + q^152 - q^158 + q^169 - q^180 - q^181 - q^187 - q^202 - q^207 - 
        q^209 + q^212 - q^223 - q^232 + O(q^234),
    q^2 - q^10 - q^17 + q^18 - q^19 - q^40 + q^41 + q^43 - q^44 + q^50 + q^55 + 
        q^61 - q^79 - q^90 + q^98 - q^101 - q^116 - q^128 + q^131 - q^134 - 
        q^142 + q^145 - q^153 + q^160 + q^162 + q^164 - q^171 + q^172 + q^184 + 
        q^193 + q^200 - q^205 - q^206 + q^211 - q^215 + q^220 - q^230 + 
        O(q^234),
    q^3 + q^27 - q^60 - q^69 - q^102 - q^114 + q^147 - q^159 - q^177 + O(q^234),
    q^4 - q^5 - q^20 - q^22 + q^23 + q^25 + q^36 - q^45 + q^53 - q^58 + q^59 - 
        q^64 - q^67 - q^71 + q^82 + q^86 + q^100 - q^103 + q^110 + q^122 - q^136
        - 2*q^146 - q^152 + q^170 - q^179 - q^180 + q^181 + q^187 + q^190 + 
        q^196 - q^198 - q^199 + q^207 + q^209 + q^223 + q^225 + O(q^234),
    q^6 - q^30 - q^51 + q^54 - q^57 - q^120 + q^123 + q^129 - q^132 + q^150 + 
        q^165 + q^183 + O(q^234),
    q^8 - q^10 - q^11 + q^17 + q^19 - q^29 - q^32 + q^46 + q^50 - q^68 + q^72 - 
        2*q^73 - q^76 + q^79 + q^85 - q^90 + q^95 - q^99 + q^101 + q^106 + q^118
        - 2*q^127 - q^134 - q^142 + q^153 + q^164 + q^171 + q^172 - q^184 - 
        q^205 - q^206 - q^215 + q^220 + O(q^234),
    q^12 - q^15 - q^60 - q^66 + q^69 + q^75 + q^108 - q^135 + q^159 - q^174 + 
        q^177 - q^192 - q^201 - q^213 + O(q^234),
    q^24 - q^30 - q^33 + q^51 + q^57 - q^87 - q^96 + q^138 + q^150 - q^204 + 
        q^216 - 2*q^219 - q^228 + O(q^234)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
958
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
478
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
958
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
239*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + 2*q^25 + q^27 - q^28 + q^33 + q^35 + q^36 + q^42 + q^44 + q^46 + q^48 + 
        q^49 - q^55 + q^56 - 2*q^60 - 2*q^61 - q^63 - 3*q^66 + q^69 - 2*q^70 + 
        q^71 - 3*q^75 + q^77 - q^80 - 2*q^81 - 2*q^88 + q^90 - 3*q^96 + q^98 - 
        2*q^105 - q^107 + q^112 - 2*q^115 + q^120 + q^121 + q^122 + q^125 - 
        q^126 + q^132 + q^135 - 2*q^138 + q^140 + q^150 - 2*q^151 - q^154 + 
        q^160 + q^162 - q^165 - q^167 + q^169 + q^175 + q^176 - q^180 + q^183 - 
        q^184 + q^189 + q^192 - 2*q^196 + q^198 + 2*q^210 - 3*q^213 - q^218 + 
        q^219 + q^220 + q^225 + 2*q^230 - 3*q^231 + q^233 + O(q^238),
    q^2 - q^25 - q^27 - q^33 - q^35 - q^36 - q^42 - q^44 - q^46 - q^48 + q^50 - 
        q^56 + q^60 + 2*q^61 + q^63 + 2*q^66 - q^69 + q^70 - q^71 + 2*q^75 - 
        q^77 + 2*q^81 + q^88 - q^90 + 2*q^96 + 2*q^105 - q^110 - q^112 + 2*q^115
        - q^120 - q^125 + q^126 - q^135 + q^138 - q^150 + 2*q^151 + q^154 - 
        q^160 + q^165 - q^175 - q^183 + q^184 - q^189 + q^196 - q^198 - q^210 + 
        2*q^213 - q^214 + q^218 - q^219 - q^220 - q^225 - q^230 + 2*q^231 - 
        q^233 + O(q^238),
    q^3 + q^27 + q^42 + q^44 - q^60 - q^61 - q^63 + q^64 - q^66 - q^81 - q^88 - 
        q^96 - q^105 + q^110 - q^115 + q^120 - q^126 - q^138 + q^147 - q^151 + 
        q^161 + q^181 + q^193 + q^194 - q^196 - q^213 + q^225 - q^231 + 
        O(q^238),
    q^4 + q^33 + q^35 + q^36 - q^60 - q^61 - q^66 + q^69 - q^70 - q^75 - q^81 - 
        q^88 - q^96 + q^100 - q^105 - q^115 + q^122 + q^125 + q^135 - q^138 + 
        q^150 - q^151 + q^162 - q^165 - q^180 + q^210 - q^213 + q^219 + q^230 - 
        q^231 + q^233 + O(q^238),
    q^5 + q^28 - q^33 - q^35 - q^44 + q^45 - q^48 - q^63 + q^66 - q^69 + q^72 - 
        q^90 - q^98 + q^99 + q^103 + q^144 + q^147 + q^154 - q^168 - q^180 + 
        q^211 + q^218 - q^219 + q^224 + q^231 - q^233 + O(q^238),
    q^6 + q^25 + q^27 + q^54 - q^60 - q^61 - q^63 - q^66 - q^70 + q^71 - q^75 + 
        q^77 - q^81 + q^84 - q^96 - q^105 - q^115 - q^126 + q^128 - q^138 + 
        q^140 + q^150 - q^151 + q^175 - q^180 + q^183 + q^189 - q^196 - q^213 + 
        q^220 + q^225 - q^231 + O(q^238),
    q^7 - q^25 - q^27 - q^33 - q^35 - q^42 - q^44 - q^46 - q^48 + q^60 + q^61 + 
        q^63 + 2*q^66 + q^70 - q^71 + q^75 - q^77 + q^81 + q^88 + q^89 - q^90 + 
        2*q^96 - q^98 + 2*q^105 - q^112 + q^115 - q^120 - q^125 + q^126 - q^135 
        + q^138 + q^151 + q^154 + q^165 - q^183 + q^184 - q^189 + q^196 + q^197 
        - q^198 - q^210 + q^213 + q^218 - q^219 - q^225 - q^230 + q^231 - q^233 
        + O(q^238),
    q^8 + q^25 + q^27 - q^28 + q^35 + 2*q^42 + 2*q^44 + q^45 + q^46 + q^48 + 
        q^49 - q^50 - q^54 + q^56 - q^60 - 2*q^61 - q^63 + q^64 - 2*q^66 + q^69 
        + q^71 - 2*q^75 - q^80 - 2*q^81 - q^84 - 2*q^88 + q^90 - q^92 - 3*q^96 +
        q^98 - 2*q^105 - q^109 + q^110 - 2*q^115 + q^120 + q^125 - q^126 - q^131
        + q^132 + q^135 - q^138 + q^139 - q^142 + q^147 - 2*q^151 - 2*q^154 + 
        q^160 + q^161 - q^163 - q^165 + q^173 + q^175 + q^183 - q^184 + q^189 + 
        q^192 + q^194 - 2*q^196 + q^198 + q^200 + q^210 - 2*q^213 - q^218 - 
        q^224 + q^225 + q^230 - 2*q^231 + q^233 + O(q^238),
    q^9 - q^25 - q^27 + q^28 - q^33 - q^35 - q^36 - q^42 - q^44 - q^46 - q^48 + 
        q^55 - q^56 + q^60 + q^61 + 2*q^66 - q^69 + q^70 - q^71 + 2*q^75 - q^77 
        + q^80 + 2*q^81 + q^88 - q^90 + 2*q^96 - q^98 + q^105 + q^107 - q^112 + 
        q^115 - q^125 + q^126 - q^135 + q^138 + q^151 + q^154 - q^160 + q^167 - 
        q^175 - q^183 + q^184 - q^189 + q^196 - q^198 - q^210 + 2*q^213 + q^218 
        - q^219 - q^220 - q^230 + 2*q^231 - q^233 + O(q^238),
    q^10 + q^25 + q^27 - q^28 + q^33 + q^35 + 2*q^42 + 2*q^44 + q^46 + 2*q^48 - 
        q^50 - q^54 + q^56 - q^60 - 2*q^61 - q^63 + q^64 - 3*q^66 + q^69 - q^70 
        + q^71 - q^72 - 2*q^75 + q^77 - q^80 - 2*q^81 - 2*q^88 + 2*q^90 - 3*q^96
        + q^98 - 2*q^105 + q^110 - 2*q^115 + q^120 + q^125 - 2*q^126 + q^132 + 
        q^135 - 2*q^138 - q^142 - 2*q^151 - 2*q^154 + q^160 - q^165 + q^175 + 
        q^183 - q^184 + q^189 + q^192 + q^194 - 2*q^196 + 2*q^198 + q^200 + 
        q^206 + q^210 - 2*q^213 + q^216 - q^218 + q^219 - q^224 + q^225 + q^230 
        - 2*q^231 + q^233 + O(q^238),
    q^11 - q^25 - q^27 + q^28 - q^33 - q^35 - q^42 - 2*q^44 + q^45 - q^46 - 
        2*q^48 + q^60 + q^61 - q^64 + 2*q^66 - q^69 + q^70 - q^71 + q^72 + q^73 
        + q^75 - q^77 + q^80 + q^81 + q^88 - q^90 + 2*q^96 - q^98 + q^99 + 
        2*q^105 + q^115 - q^120 - q^125 + q^126 - q^135 + q^138 + q^144 + q^151 
        + q^154 - q^168 - q^176 - q^180 - q^183 + q^184 - q^192 + q^196 - q^198 
        + q^207 - q^210 + q^213 + q^218 - q^219 + q^224 - q^225 - q^230 + 
        2*q^231 - q^233 + O(q^238),
    q^12 + q^25 + q^27 - q^28 + q^33 + q^35 + 2*q^42 + 2*q^44 + q^46 + 2*q^48 - 
        2*q^60 - 2*q^61 - q^63 + q^64 - 3*q^66 + q^69 - q^70 + q^71 - q^72 - 
        2*q^75 + q^77 - q^80 - 2*q^81 - 2*q^88 + q^90 - 3*q^96 + q^98 - 2*q^105 
        + q^108 + q^110 - 2*q^115 + q^120 + q^125 - 2*q^126 + q^135 - 2*q^138 - 
        q^144 - 2*q^151 - q^154 + q^160 - q^165 + q^168 + q^175 + q^176 + q^183 
        - q^184 + q^189 + q^192 + q^194 - 2*q^196 + q^198 + q^200 + q^210 - 
        2*q^213 + q^216 - q^218 + q^219 - q^224 + q^225 + q^230 - 2*q^231 + 
        q^233 + O(q^238),
    q^14 + q^25 + q^27 - q^28 + q^33 + q^35 + q^36 + 2*q^42 + 2*q^44 + q^46 + 
        q^48 - q^50 - q^54 + q^56 - q^60 - 2*q^61 - q^63 + q^64 - 3*q^66 + q^69 
        - q^70 + q^71 - 2*q^75 + q^77 - q^80 - 2*q^81 - q^84 - 2*q^88 + q^90 - 
        q^92 - 3*q^96 + q^98 - 2*q^105 + q^110 + q^112 - 2*q^115 + q^120 + q^125
        - q^126 + q^132 + q^135 - q^138 - q^142 - 2*q^151 - 2*q^154 + q^160 - 
        q^165 + q^175 + q^178 + q^183 - q^184 + q^189 + q^192 + q^194 - 2*q^196 
        + q^198 + 2*q^210 - 2*q^213 - q^218 + q^219 + q^220 - q^224 + q^225 + 
        q^230 - 2*q^231 + q^233 + O(q^238),
    q^15 - q^25 - q^27 + q^28 - q^35 - 2*q^42 - 2*q^44 - q^46 - q^48 + q^50 + 
        q^54 - q^56 + q^61 - q^64 + 2*q^66 - q^69 - q^71 + q^72 + q^75 + q^80 + 
        q^81 + q^84 + q^88 - q^90 + q^92 + 2*q^96 - q^98 + q^105 + q^109 - q^110
        + q^115 - q^120 - q^125 + q^126 + q^131 - q^132 + q^138 + q^142 + q^151 
        + 2*q^154 - q^160 + q^163 - q^175 - q^180 - q^183 + q^184 - q^189 - 
        q^192 - q^194 + q^196 - q^198 - q^210 + q^213 + q^218 + q^224 - q^225 - 
        q^230 + q^231 - q^233 + O(q^238),
    q^16 + q^25 + q^27 - q^28 + q^42 + q^44 + q^46 + q^48 - q^60 - q^61 - q^63 +
        q^64 - 2*q^66 - q^70 + q^71 - q^72 - q^75 + q^77 - q^80 - q^81 - q^88 + 
        q^90 - 2*q^96 + q^98 - q^105 - q^115 + q^120 - q^126 + q^132 - q^138 + 
        q^140 - q^151 - q^154 + q^175 + q^176 + q^183 - q^184 + q^189 + q^192 - 
        q^196 + q^198 + q^210 - q^213 - q^218 - q^224 + q^225 + q^230 - q^231 + 
        O(q^238),
    q^18 + q^25 + q^27 + q^33 + q^35 + q^36 + q^42 + q^44 + q^46 + q^48 + q^56 -
        2*q^60 - 2*q^61 - q^63 - 3*q^66 + q^69 - 2*q^70 + q^71 - 2*q^75 + q^77 -
        2*q^81 - 2*q^88 + q^90 - 3*q^96 + q^98 - 2*q^105 + q^110 + q^112 - 
        2*q^115 + q^120 + q^125 - 2*q^126 + q^135 - 2*q^138 + q^150 - 2*q^151 - 
        q^154 + q^160 + q^162 - q^165 + q^175 - q^180 + q^183 - q^184 + q^189 - 
        2*q^196 + q^198 + q^210 - 2*q^213 + q^214 - q^218 + q^219 + q^220 + 
        q^225 + q^230 - 2*q^231 + q^233 + O(q^238),
    q^20 + q^25 + q^27 + q^42 + q^46 - q^60 - q^61 - q^63 - q^66 - q^70 + q^71 -
        q^75 + q^77 - q^81 - q^88 - q^96 - q^105 + q^112 - q^115 + q^120 - q^126
        - q^138 - q^151 + q^175 + q^183 + q^189 - q^196 + q^198 + q^210 - q^213 
        + q^225 + q^230 - q^231 + O(q^238),
    q^21 - q^25 - q^27 + q^35 + q^55 - q^71 - q^77 + q^80 - q^84 - q^88 + q^97 +
        q^100 + q^108 - q^128 + q^137 - q^140 - q^165 + q^168 - q^175 + q^184 + 
        q^207 - q^220 + O(q^238),
    q^22 + q^25 + q^27 - q^33 + q^42 + q^44 + q^45 + q^49 - q^50 - q^54 + q^56 -
        q^61 - q^63 + q^64 - q^66 + q^71 - q^75 - q^80 - q^81 - q^88 + q^90 - 
        q^92 - 2*q^96 - q^100 - q^105 - q^108 - q^109 + q^110 - q^115 + q^120 - 
        q^126 - q^131 + q^132 - q^138 + q^139 + q^140 - q^142 + q^144 + q^146 + 
        q^147 - q^151 - q^154 + q^160 + q^161 - q^163 - q^168 + q^173 + q^175 + 
        q^183 - q^184 + q^189 + q^192 + q^194 - q^196 + q^198 + q^210 - q^213 - 
        q^219 + q^220 + q^225 - q^231 + O(q^238),
    q^23 + q^28 - q^33 - 2*q^35 - 2*q^42 - 2*q^44 - q^46 - 2*q^48 + q^50 + q^54 
        - q^55 + q^60 + q^61 - q^64 + 2*q^66 - q^69 + q^72 + q^75 + q^81 + q^84 
        + 2*q^88 - q^90 + 2*q^96 - q^97 - q^98 + q^99 - q^100 + 2*q^105 - q^108 
        - q^110 + 2*q^115 - q^120 + q^121 - q^125 + q^126 + q^128 - q^135 - 
        q^137 + q^138 + q^140 + q^142 + q^144 + q^151 + 2*q^154 - q^160 + q^165 
        - q^168 - q^180 - q^183 - q^192 - q^194 + q^196 - q^198 - q^200 - q^210 
        + q^213 - q^216 + q^218 - q^219 + q^220 + q^224 - q^225 - q^230 + q^231 
        - q^233 + O(q^238),
    q^24 - q^28 + q^33 + q^35 + q^42 + q^44 + q^46 + q^48 - q^60 - q^61 - 2*q^66
        + q^69 - q^70 - q^72 - q^75 - q^81 - q^88 + q^90 - q^96 + q^98 + q^100 -
        q^105 + q^108 - q^115 + q^125 - q^126 + q^135 - q^138 - q^144 - q^151 - 
        q^154 - q^165 + q^168 - q^196 + q^198 + q^210 - q^213 + q^216 - q^218 + 
        q^219 - q^224 + q^230 - q^231 + q^233 + O(q^238),
    q^30 + q^33 + q^35 + q^44 + q^48 - q^60 - q^61 - q^66 + q^69 - q^70 - q^75 -
        q^81 - q^88 + q^90 - q^96 + q^98 - q^105 - q^115 + q^125 - q^126 + q^135
        - q^138 - q^151 - q^165 + q^168 - q^196 - q^213 + q^219 - q^231 + q^233 
        + O(q^238),
    q^32 + q^33 - q^42 - q^44 - q^45 - q^49 + q^50 + q^54 - q^56 - q^64 - q^70 +
        q^77 + q^84 + q^88 + q^92 + q^96 + q^109 - q^110 - q^120 + q^128 + q^131
        - q^132 - q^139 + q^142 - q^144 - q^147 + q^154 - q^160 - q^161 + q^163 
        - q^173 - q^192 - q^194 + q^196 + q^219 + O(q^238),
    q^40 - q^42 - q^44 + q^50 + q^54 - q^64 - q^70 + q^84 + q^92 - q^110 - q^120
        + q^142 + q^154 - q^180 - q^194 + q^224 + O(q^238)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
959
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
959
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
959
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
136
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
959
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
408
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
959
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
204
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
959
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
68
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^6 - a^4)*q^2 + (a^12 + a^10 + a^8)*q^4 - a^21*q^7 + (-a^18 - a^16 - 
        a^14 - a^12)*q^8 + a*q^9 + (-a^15 + a^5)*q^11 + (a^27 + a^25)*q^14 + 
        (a^24 + a^22 + a^20 + a^18 + a^16)*q^16 + (-a^7 - a^5)*q^18 + (a^21 + 
        a^19 - a^11 - a^9)*q^22 + (a^23 - 1)*q^23 + a^7*q^25 + (-2*a^31 - a^27 +
        a^25 - a^23 + a^21 - a^19 + a^17 - a^15 + a^13 - a^11 + a^9 - a^7 + a^5 
        - a^3 + a)*q^28 + (a^30 - a^28 + a^26 - a^25 - a^24 + a^22 - a^20 + a^18
        - a^16 + a^14 - a^12 + a^10 - a^8 + a^6 - a^4 + a^2 - 1)*q^29 + (-a^30 -
        a^28 - a^26 - a^24 - a^22 - a^20)*q^32 + (a^13 + a^11 + a^9)*q^36 + 
        (-a^24 - a^10)*q^37 + (a^26 + a^3)*q^43 + (-a^27 - a^25 - a^23 + a^17 + 
        a^15 + a^13)*q^44 + (-a^29 - a^27 + a^6 + a^4)*q^46 - a^8*q^49 + (-a^13 
        - a^11)*q^50 + (-a^31 - a^30 + a^28 - a^26 + a^24 - a^22 + a^20 - a^18 +
        a^16 - a^14 + a^12 - a^10 + a^8 - a^6 + a^4 - a^2 + 1)*q^53 + (a^31 - 
        a^29 + a^27 - a^25 + a^23 - a^21 + a^19 - a^17 + a^15 - a^13 + a^11 - 
        a^9 + a^7 - 2*a^5 - 2*a)*q^56 + (a^31 + a^29 + a^4 + a^2)*q^58 - 
        a^22*q^63 + (2*a^30 + 2*a^26 + a^22 - a^20 + a^18 - a^16 + a^14 - a^12 +
        a^10 - a^8 + a^6 - a^4 - 2)*q^64 + (a^22 - a^3)*q^67 + (-a^17 + 
        a^14)*q^71 + (-a^19 - a^17 - a^15 - a^13)*q^72 + (a^30 + a^28 + a^16 + 
        a^14)*q^74 + (-a^26 - a^2)*q^77 + (-a^19 - a^14)*q^79 + a^2*q^81 + 
        (-2*a^30 + a^28 - a^26 + a^24 - a^22 + a^20 - a^18 + a^16 - a^14 + a^12 
        - a^10 - a^9 + a^8 - a^7 - a^6 + a^4 - a^2 + 1)*q^86 + (2*a^31 + 2*a^27 
        - a^25 - 2*a^21 - 2*a^17 + a^15 - a^13 + a^11 - a^9 + a^7 - a^5 + a^3 - 
        a)*q^88 + (2*a^31 - a^29 + a^27 - a^25 + a^23 - a^21 + a^19 - a^17 + 
        a^15 - a^13 - a^12 + a^11 - a^10 - a^9 - a^8 + a^7 - a^5 + a^3 - 
        2*a)*q^92 + (a^14 + a^12)*q^98 + (-a^16 + a^6)*q^99 + (a^19 + a^17 + 
        a^15)*q^100 + (-a^4 - a^3 - a^2 - a)*q^106 + (a^29 - a^23)*q^107 + (a^15
        - a^13)*q^109 + (a^11 + a^9 + a^7 + a^5 + a^3)*q^112 + (a^20 + 
        a^11)*q^113 + (-a^31 + a^29 - a^27 + a^25 - a^23 + a^21 - a^19 + a^17 - 
        a^15 + a^13 - a^11 - a^10 + a^9 - a^8 - a^7 - a^6 + a^5 + 2*a)*q^116 + 
        (a^30 - a^20 + a^10)*q^121 + (a^28 + a^26)*q^126 + (-a^31 + a^29 - a^27 
        + a^25 - a^23 + a^21 - a^19 + a^18 + a^17 - a^15 + a^13 - a^11 + a^9 - 
        a^7 + a^5 - a^3 + a)*q^127 + (-2*a^30 - a^26 + a^24 - a^22 + a^20 - a^18
        + a^16 - a^14 + a^12 - a^10 + 2*a^8 + 2*a^4 + 2)*q^128 + (-a^28 - a^26 +
        a^9 + a^7)*q^134 + a^17*q^137 + (a^23 + a^21 - a^20 - a^18)*q^142 + 
        (a^25 + a^23 + a^21 + a^19 + a^17)*q^144 + (-a^30 + a^28 - a^26 + a^24 -
        2*a^22 - 2*a^18 + a^16 - a^14 + a^12 - a^10 + a^8 - a^6 + a^4 + 2)*q^148
        + (a^28 - a^27)*q^149 + (2*a^30 - a^28 + a^26 - a^24 + a^22 - a^20 + 
        a^18 - a^16 + a^14 - a^12 + a^10 + 2*a^6 - a^4 + a^2 - 1)*q^154 + (a^25 
        + a^23 + a^20 + a^18)*q^158 + (a^21 + a^10)*q^161 + (-a^8 - a^6)*q^162 +
        (-a^28 - a^7)*q^163 + a^25*q^169 + (a^15 + a^13 + a^11 - a^4 - a^2 - 
        1)*q^172 - a^28*q^175 + (-2*a^31 + 2*a^29 + 2*a^25 + 2*a^21 - a^19 + 
        a^17 - a^15 + a^13 - a^11 + a^9 - a^7 + 2*a^5 + 2*a)*q^176 + (a^18 - 
        a)*q^179 + O(q^182)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
959
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
959
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^6 + a^4)*q^2 + (a^12 + a^10 + a^8)*q^4 - a^4*q^7 + (a^15 + a^13 + 
        a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 - 1)*q^8 + 
        a*q^9 + (a^15 + a^5)*q^11 + (-a^10 - a^8)*q^14 + (a^15 - a^14 + a^13 - 
        a^12 + a^11 - a^10 + a^9 - a^8 - a^6 - a^4 - a^2 - 1)*q^16 + (a^7 + 
        a^5)*q^18 + (a^11 + a^9 - a^4 - a^2)*q^22 + (-a^6 + 1)*q^23 + a^7*q^25 +
        (-a^15 - a^13 - a^11 + a^10 - a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - a^3 + 
        a^2 - a + 1)*q^28 + (-a^15 - a^8)*q^29 + (-a^13 - a^11 - a^9 - a^7 - a^5
        - a^3)*q^32 + (a^13 + a^11 + a^9)*q^36 + (a^10 - a^7)*q^37 + (-a^9 + 
        a^3)*q^43 + (a^15 + a^13 - a^10 - a^8 - a^6 - 1)*q^44 + (-a^12 - a^10 + 
        a^6 + a^4)*q^46 + a^8*q^49 + (a^13 + a^11)*q^50 + (-a^15 - a^14)*q^53 + 
        (-a^15 + a^14 - a^13 + a^12 - a^11 + a^10 - a^9 + a^8 - a^7 + a^6 + a^4 
        + a^2 + 1)*q^56 + (-a^14 - a^12 + a^4 + a^2)*q^58 - a^5*q^63 + (-a^15 - 
        a^13 - a^11 - a^9 - a^7 + a^2 + 1)*q^64 + (-a^5 + a^3)*q^67 + (a^14 - 
        1)*q^71 + (a^15 + a^13 - a^2 - 1)*q^72 + (a^15 - a^12 - a^10 + a^9 - a^8
        + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^74 + (-a^9 + a^2)*q^77 + 
        (a^14 - a^2)*q^79 + a^2*q^81 + (-a^15 - a^13 + a^9 + a^7)*q^86 + (-a^15 
        - a^13 - a^11 - a^9 + a^8 - a^7 - a^5 - a^3 - a)*q^88 + (-a^15 - a^13 + 
        2*a^12 - a^11 + 2*a^10 - a^9 + 2*a^8 - a^7 + a^6 - a^5 + a^4 - a^3 + a^2
        + 1)*q^92 + (a^14 + a^12)*q^98 + (a^15 - a^14 + a^13 - a^12 + a^11 - 
        a^10 + a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^99 + (a^15 - 
        a^2 - 1)*q^100 + (a^4 + a^3 + a^2 + a)*q^106 + (-a^12 - a^6)*q^107 + 
        (a^15 + a^13)*q^109 + (a^11 + a^9 + a^7 + a^5 + a^3)*q^112 + (a^11 - 
        a^3)*q^113 + (-a^15 + a^14 - a^13 + a^12 - a^11 + 2*a^10 - a^9 + 2*a^8 -
        a^7 + 2*a^6 - a^5 + a^4 + a^2 + 1)*q^116 + (-a^13 + a^10 - a^3)*q^121 + 
        (-a^11 - a^9)*q^126 + (-a^15 + a^14 - a^13 + a^12 - a^11 + a^10 - a^9 + 
        a^8 - a^7 + a^6 - a^5 + a^4 - a^3 + a^2 - 2*a + 1)*q^127 + (-a^15 - a^13
        - a^11 + a^8 + a^6 + a^4 + a^2 + 1)*q^128 + (-a^11 + a^7)*q^134 - q^137 
        + (-a^6 - a^4 - a^3 - a)*q^142 + (-a^8 - a^6 - a^4 - a^2 - 1)*q^144 + 
        (-a^15 - a^5 - a^3 + a^2 - a + 1)*q^148 + (-a^11 - a^10)*q^149 + 
        2*a^9*q^151 + (-a^15 - a^13 + a^8 + a^6)*q^154 + (-a^8 - a^6 - a^3 - 
        a)*q^158 + (a^10 - a^4)*q^161 + (a^8 + a^6)*q^162 + (-a^11 + a^7)*q^163 
        - a^8*q^169 + (a^15 + a^13 + a^11 + a^4 + a^2 + 1)*q^172 - a^11*q^175 + 
        (-a^15 - a^13 - a^11 - a^9 - a^7 + a^2 + 1)*q^176 + O(q^182)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
959
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
959
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^12 + a^8)*q^2 + (a^15 - a^14 + a^13 - a^12 + a^11 - a^10 + a^9 - a^8 
        - a^6 + a^5 - a^4 - a^2 + a - 1)*q^4 + a^8*q^7 + (-a^15 - a^11 - a^7 + 
        a^2)*q^8 + a^2*q^9 + (-a^13 + a^10)*q^11 + (a^15 - a^14 + a^13 - a^12 + 
        a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^14 + 
        (-a^15 + a^14 + a^10 + a^6 + a^2)*q^16 + (a^14 + a^10)*q^18 + (a^8 - a^5
        + a^4 - a)*q^22 + (a^12 + 1)*q^23 + a^14*q^25 + (-a^15 - a^11 - 
        a^7)*q^28 + (a^15 - a^14 - a^12 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + 
        a^5 - a^4 + a^3 - a^2 + a - 1)*q^29 + (a^14 + a^10 - a^9 + a^6 - a^5 - 
        a)*q^32 + (-a^9 - a^5 - a)*q^36 + (a^14 - a^3)*q^37 + (a^6 - a)*q^43 + 
        (a^15 - a^14 + a^11 - a^10 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a)*q^44
        + (a^12 + a^8 - a^7 - a^3)*q^46 + (a^15 - a^14 + a^13 - a^12 + a^11 - 
        a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^49 + 
        (-a^9 - a^5)*q^50 + (-a^13 - a^11)*q^53 + (-a^15 + a^10 + a^6 + 
        a^2)*q^56 + (-a^11 + a^8 - a^7 + a^4)*q^58 + a^10*q^63 + (a^14 - a^13 - 
        a^9 - a^5 + a^4 - a + 1)*q^64 + (a^10 + a^6)*q^67 + (-a^11 + 1)*q^71 + 
        (-a^13 - a^9 + a^4 + 1)*q^72 + (-a^15 - a^11 - a^9 - a^5)*q^74 + (a^4 - 
        a)*q^77 + (-a^11 + a^4)*q^79 + a^4*q^81 + (a^14 - a^13 - a^9 - a)*q^86 +
        (-a^15 + a^12 - a^11 + a^8 - a^7 + a^4 - a^3 + 1)*q^88 + (-a^14 + a^13 -
        a^12 - a^10 + a^9 - a^8 - a^6 + a^5 - a^4 + a - 1)*q^92 + (-a^11 - 
        a^7)*q^98 + (-a^15 + a^12)*q^99 + (-a^13 + a^4 + 1)*q^100 + (a^8 + a^6 +
        a^4 + a^2)*q^106 + (a^12 - a^7)*q^107 + (-a^13 - a^9)*q^109 + (a^14 + 
        a^10 + a^6 - a^5 - a)*q^112 + (a^6 - a^5)*q^113 + (-a^14 + a^13 + a^11 -
        a^10 + a^9 - a^8 + a^7 + a^5 - a^4 + a - 1)*q^116 + (-a^9 + a^6 - 
        a^3)*q^121 + (-a^5 - a)*q^126 + (-a^15 + a^2)*q^127 + (a^15 - a^14 + 
        a^11 - a^10 + a^7 - a^6 + a^3 - a^2 + a)*q^128 + (a^14 - a^5 - 
        2*a)*q^134 + q^137 + (a^12 + a^8 + a^6 + a^2)*q^142 + (a^15 - a^14 + 
        a^13 + a^11 - a^10 + a^9 + a^7 - a^6 + a^5 + a^3 - a^2 + a)*q^144 + 
        (-a^13 + a^10 + a^6 + a^4 + a^2 + 1)*q^148 + (-a^5 - a^3)*q^149 - 
        2*a*q^151 + (a^15 - a^14 + a^11 - a^10 - a^8 + a^7 - a^6 + a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^154 + (a^15 - a^14 + a^13 + a^11 - a^10 + a^9 - a^8
        + a^7 + a^5 - a^4 + a^3 + a - 1)*q^158 + (a^8 - a^3)*q^161 + (a^15 - 
        a^14 + a^13 + a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^162 + (a^14 - a^5)*q^163 + (a^15 - a^14 + a^13 - a^12 + 
        a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^169 + (-a^13 - a^9 + a^8 - a^5 + a^4 + 1)*q^172 - a^5*q^175 + 
        (-a^14 + a^13 + a^9 + a^5 - a^4 + a - 1)*q^176 + 2*a^2*q^179 + O(q^182)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
959
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
17*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
959
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 17*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
959
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 34*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
959
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 34*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 - a*q^7 + a*q^9 + 2*a*q^11 + q^16 + (-a - 1)*q^23 - a*q^25 - a*q^28 
        + (-a + 1)*q^29 + a*q^36 + (-a - 1)*q^43 + 2*a*q^44 - q^49 + (a - 
        1)*q^53 + q^63 + q^64 + (a - 1)*q^67 + (-a - 1)*q^71 + 2*q^77 + (a + 
        1)*q^79 - q^81 + (-a - 1)*q^92 - 2*q^99 - a*q^100 + 2*a*q^107 - 
        2*a*q^109 - a*q^112 + (-a + 1)*q^113 + (-a + 1)*q^116 - 3*q^121 + (-a - 
        1)*q^127 + a*q^137 + a*q^144 + (a + 1)*q^149 + (a - 1)*q^161 + (a - 
        1)*q^163 + a*q^169 + (-a - 1)*q^172 - q^175 + 2*a*q^176 + (-a - 1)*q^179
        + O(q^182),
    q^2 - a*q^4 - 2*q^7 + q^8 + q^9 + 3*q^11 + a*q^14 + a*q^15 - 2*a*q^16 - 
        a*q^22 + (a - 1)*q^23 - q^25 - q^28 + q^30 + q^36 - q^39 + (a - 1)*q^43 
        + 2*q^44 + (-a - 1)*q^51 + a*q^56 + (-a + 1)*q^58 - a*q^63 - 2*a*q^64 - 
        a*q^65 + (a - 1)*q^71 - a*q^77 + a*q^78 + (-a + 1)*q^79 + 2*a*q^81 + (-a
        + 1)*q^85 - a*q^88 + (a - 1)*q^92 - q^98 + 2*a*q^99 - q^100 + (a - 
        1)*q^102 - q^105 + (a - 1)*q^106 + q^107 - 2*q^109 + (-a - 1)*q^113 + 
        (-a - 1)*q^116 + q^120 + 3*a*q^121 - 2*a*q^123 + (2*a - 2)*q^127 - q^128
        - q^130 + (a - 1)*q^134 - q^135 + (a + 1)*q^137 + a*q^141 + q^144 + 
        (-2*a + 2)*q^149 + a*q^151 + q^154 + (a + 1)*q^161 + q^162 + (a + 
        1)*q^163 + q^165 + q^169 + (-a - 1)*q^170 + (a - 1)*q^172 + a*q^175 + 
        q^176 + (a - 1)*q^177 + O(q^182),
    q^3 + a*q^5 - a*q^6 + q^10 - q^13 + (-a - 1)*q^17 + a*q^21 - a*q^24 + a*q^26
        + a*q^27 - a*q^33 + (a - 1)*q^34 - q^35 + q^40 - 2*a*q^41 + q^42 + 
        a*q^47 - q^48 + q^54 + q^55 + (a - 1)*q^59 + (-a - 1)*q^61 - q^66 + 
        a*q^70 - a*q^80 - 2*q^82 + q^83 + (-a + 1)*q^87 - a*q^91 + q^94 + q^97 +
        (a + 1)*q^101 + a*q^104 - a*q^110 + (a + 1)*q^118 + (-a + 1)*q^119 + (a 
        - 1)*q^122 + q^125 - 2*a*q^131 + (a - 1)*q^136 + a*q^143 + (a + 1)*q^145
        - q^147 + (a - 1)*q^159 - a*q^166 + (a + 1)*q^167 + q^168 + (a + 
        1)*q^173 + (-a - 1)*q^174 + (-a - 1)*q^181 + O(q^182)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
959
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 68*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
959
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 68*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^15 + q^18 + q^22 + q^25 - q^28 - q^30 - q^36 + q^49 - q^50 + q^56 - 
        q^63 + q^72 - q^74 - 2*q^78 - q^93 - q^99 + q^100 - q^107 + q^109 - 
        q^112 - q^120 + q^121 - q^128 - q^130 + q^141 - q^144 - q^151 - q^155 + 
        q^156 + q^162 - q^165 + q^169 + O(q^182),
    q^2 + q^18 - q^30 - q^37 - q^39 + q^50 - q^60 - q^64 + q^98 - q^99 - q^105 +
        q^121 + q^123 + q^135 + q^141 - q^154 + q^165 + q^175 + O(q^182),
    q^3 - q^21 - q^26 + q^27 - q^41 - q^42 + q^45 + q^47 - q^52 - 2*q^55 + q^62 
        + q^66 - q^83 + q^90 + q^91 + q^94 + q^97 - q^108 - q^110 - q^117 + 
        q^124 + 2*q^132 + q^140 + q^147 - q^150 - q^157 - q^166 - q^180 + 
        O(q^182),
    q^4 - q^15 - q^30 - q^32 + q^36 + q^63 + q^65 - q^77 - q^81 + q^93 + q^99 + 
        q^100 - q^135 - q^148 - q^154 + q^155 - q^156 - q^162 + q^165 + 
        O(q^182),
    q^5 - q^13 - q^26 - q^27 + q^33 + q^35 - q^42 + q^62 + 2*q^66 + q^70 - q^75 
        - q^84 - q^89 - q^110 + q^124 + q^125 + q^132 - 2*q^143 - q^150 - q^164 
        - q^166 + q^180 + O(q^182),
    q^6 - q^13 - q^21 - q^26 + q^31 + q^33 - q^42 + q^45 + q^47 - q^52 - q^55 + 
        q^62 + 2*q^66 + q^70 - q^75 - q^82 - q^83 - q^84 + q^91 + q^94 + q^97 - 
        q^104 - q^108 - 2*q^110 - q^111 - q^117 + q^124 + q^125 + q^131 + 
        2*q^132 + q^140 - q^143 - q^150 - q^166 - q^178 + O(q^182),
    q^7 - q^15 - q^18 - q^22 + q^28 + 2*q^36 - q^44 + 2*q^50 - q^56 - q^60 + 
        q^63 - q^65 - q^72 + 2*q^78 - q^88 - q^100 - q^109 + q^112 + q^120 - 
        q^135 + q^137 - q^141 + q^144 - q^156 - q^162 + 2*q^165 + q^175 + q^176 
        + O(q^182),
    q^8 - q^15 - q^18 - q^22 + q^30 + q^32 + q^37 + q^39 - q^44 - q^56 + q^64 - 
        q^65 - q^88 + q^99 - q^100 + q^105 - q^109 + q^126 + q^128 + q^130 - 
        q^135 - q^141 - q^144 + q^148 + q^154 - q^176 + O(q^182),
    q^9 - q^15 - q^18 - q^22 + q^28 + q^30 + q^36 + q^50 - q^56 - q^60 - q^65 - 
        q^72 + q^78 + q^81 - q^100 + q^107 - q^109 + q^112 + q^130 - q^141 + 
        q^144 + q^151 - q^156 - q^162 + O(q^182),
    q^10 - q^13 - q^21 - q^26 + q^31 + 2*q^33 + q^35 - q^42 - q^52 - q^54 - q^55
        + q^62 + 2*q^66 + q^70 - q^75 - q^82 - q^83 - q^84 + q^90 + q^94 - 
        2*q^110 + q^124 + q^125 + q^131 + 2*q^132 + q^140 - q^143 - 2*q^150 - 
        q^164 - q^166 - q^168 - q^178 + q^180 + O(q^182),
    q^11 - q^15 - q^18 + q^30 + q^36 - q^56 - q^65 + q^93 + q^99 - q^100 + q^105
        - q^109 + q^112 + q^130 - q^135 - q^141 - q^156 - q^162 + q^169 + 
        O(q^182),
    q^12 - q^13 - q^26 - q^27 + q^31 + 2*q^33 + q^35 - q^42 - q^45 - q^52 - q^54
        + q^62 + 2*q^66 + q^70 - q^75 - q^84 - q^89 + q^94 - q^96 + q^108 - 
        q^110 + q^124 + q^125 + q^131 + q^132 - 2*q^143 - q^150 - q^164 - q^166 
        - q^168 - q^178 + q^180 + O(q^182),
    q^14 - q^15 - q^22 + q^25 + q^39 - q^44 - q^65 + q^72 + q^100 - q^109 - 
        q^120 + q^123 + q^126 - q^135 - q^141 - q^144 + q^155 + q^156 + q^165 + 
        O(q^182),
    q^16 - q^18 - q^22 + q^30 + q^32 - q^44 - q^56 + q^64 - q^65 - q^72 + q^74 +
        q^77 + q^78 + q^81 - q^88 - q^100 - q^109 + q^128 - q^141 + q^148 + 
        q^154 - q^176 + O(q^182),
    q^20 - q^21 - q^26 + q^31 + q^33 - q^41 - q^42 + q^45 + q^47 - q^52 - 2*q^55
        + q^62 + 2*q^66 + q^70 - q^75 - q^82 - q^83 - q^84 + q^90 + q^91 + q^94 
        + q^97 - q^104 - q^108 - 2*q^110 - q^117 + q^124 + q^125 + q^131 + 
        2*q^132 + q^140 - 2*q^150 - q^157 - q^160 - q^166 + O(q^182),
    q^24 - q^26 - q^27 + q^33 + q^35 - q^45 - q^48 + q^62 + q^66 - q^84 - q^89 +
        q^111 + q^117 - q^143 - q^150 + q^180 + O(q^182),
    q^40 - q^41 - q^42 + q^45 + q^47 - q^52 - q^55 + q^62 + q^66 - q^75 - q^80 +
        q^91 + q^97 - q^110 - q^117 + q^132 + q^140 - q^157 - q^166 + O(q^182)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^9 - q^25 - q^49 + 2*q^57 + 2*q^73 + q^81 - 2*q^97 - q^121 - 2*q^129 + 
        q^169 + 2*q^193 - 2*q^201 + q^225 + 2*q^241 + q^289 - 2*q^313 - 2*q^337 
        + O(q^338),
    q^3 - 2*q^19 - q^27 + 2*q^43 + 2*q^67 - q^75 - 2*q^139 - q^147 - 2*q^163 + 
        2*q^171 + 2*q^211 + 2*q^219 + q^243 - 2*q^283 - 2*q^291 + 2*q^307 - 
        2*q^331 + O(q^338),
    q^5 - q^45 - q^125 - q^245 + 2*q^285 + O(q^338),
    q^15 - 2*q^95 - q^135 + 2*q^215 + 2*q^335 + O(q^338)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^9 + (-a - 1)*q^17 - q^25 - a*q^49 + (a + 1)*q^65 + (-a + 1)*q^73 - 
        q^81 + (a + 1)*q^97 + (a - 1)*q^113 - q^121 + (a + 1)*q^137 + (-a + 
        1)*q^153 - a*q^169 + (-a + 1)*q^185 + (a - 1)*q^193 - a*q^225 + (a - 
        1)*q^233 + (-a - 1)*q^257 + (-a - 1)*q^265 + a*q^289 + (a - 1)*q^313 + 
        (a + 1)*q^337 + O(q^338),
    q^2 - a*q^10 + a*q^18 + (a - 1)*q^26 + (-a - 1)*q^34 - q^50 + (a + 1)*q^74 +
        q^90 - a*q^98 + (-a + 1)*q^106 + (a + 1)*q^130 + (-a + 1)*q^146 - q^162 
        + (a - 1)*q^170 + (a + 1)*q^194 - 2*q^202 - 2*a*q^218 + (a - 1)*q^226 + 
        (-a - 1)*q^234 - q^242 + a*q^250 + (a + 1)*q^274 + 2*a*q^298 + (-a + 
        1)*q^306 + (-a - 1)*q^314 + O(q^338),
    q^3 + a*q^27 + (-a - 1)*q^51 - q^75 - a*q^147 + (a + 1)*q^195 + (-a + 
        1)*q^219 - q^243 + (a + 1)*q^291 + O(q^338),
    q^5 + (-a - 1)*q^13 + (a - 1)*q^37 + a*q^45 + (a + 1)*q^53 + (-a - 1)*q^85 -
        2*a*q^101 + 2*q^109 + (-a + 1)*q^117 - q^125 - 2*q^149 + (-a + 1)*q^157 
        + (a + 1)*q^173 + 2*a*q^181 + (a - 1)*q^197 + 2*a*q^221 - a*q^245 - 
        2*q^269 + (-a + 1)*q^277 + (-a - 1)*q^293 + (-a + 1)*q^317 + (a + 
        1)*q^325 + (-a - 1)*q^333 + O(q^338),
    q^6 - a*q^30 + a*q^54 + (a - 1)*q^78 + (-a - 1)*q^102 - q^150 + (a + 
        1)*q^222 + q^270 - a*q^294 + (-a + 1)*q^318 + O(q^338),
    q^15 + (-a - 1)*q^39 + (a - 1)*q^111 + a*q^135 + (a + 1)*q^159 + (-a - 
        1)*q^255 - 2*a*q^303 + 2*q^327 + O(q^338)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^9 + a*q^25 + (-a + 1)*q^33 - a*q^49 + (a - 1)*q^73 - q^81 + (-a - 
        1)*q^97 + (-a - 1)*q^105 - q^121 + (-a + 1)*q^145 - a*q^169 + (a + 
        1)*q^177 + (a - 1)*q^193 - q^225 + 2*q^265 + a*q^289 + (a + 1)*q^297 + 
        (-a + 1)*q^313 + (a + 1)*q^337 + O(q^338),
    q^3 + (-a - 1)*q^11 + a*q^27 + (a - 1)*q^35 + (-a + 1)*q^59 + a*q^75 + (-a +
        1)*q^99 + (-a - 1)*q^131 - a*q^147 + (a - 1)*q^179 + 2*q^203 + (a - 
        1)*q^219 + 2*a*q^227 - q^243 + (a + 1)*q^251 + (-a + 1)*q^275 + (-a - 
        1)*q^291 + (-a - 1)*q^315 + O(q^338),
    q^5 + (a - 1)*q^21 + (-a - 1)*q^29 + a*q^45 - 2*a*q^53 + 2*q^77 + (a - 
        1)*q^101 + a*q^125 + (a + 1)*q^149 + (-a + 1)*q^165 + (-a - 1)*q^189 - 
        2*q^197 - a*q^245 + (-a + 1)*q^261 + (-a - 1)*q^269 + 2*a*q^293 + (a + 
        1)*q^309 + O(q^338),
    q^7 + 1/2*(-a + 1)*q^15 - q^55 + a*q^63 - q^87 - a*q^103 - q^127 + 1/2*(a + 
        1)*q^135 + (a - 1)*q^151 + (-a - 1)*q^159 + a*q^175 + (a + 1)*q^199 - 
        a*q^223 + (-a + 1)*q^231 + (-a + 1)*q^271 - a*q^295 + a*q^303 + (a + 
        1)*q^319 + O(q^338)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^9 + q^25 - 2*q^41 - q^49 + q^81 + 2*q^89 + q^121 - 2*q^145 + q^169 - 
        q^225 - 2*q^241 - 2*q^281 + q^289 + 2*q^305 + O(q^338),
    q^2 - q^10 - q^18 + q^50 + 2*q^58 - 2*q^82 + q^90 - q^98 - 2*q^122 + q^162 +
        2*q^178 + 2*q^202 - 2*q^218 + q^242 - q^250 - 2*q^290 - 2*q^298 + 
        O(q^338),
    q^3 - q^27 + q^75 - 2*q^123 - q^147 + q^243 + 2*q^267 + O(q^338),
    q^4 - q^20 - q^36 + q^100 + 2*q^116 - 2*q^164 + q^180 - q^196 - 2*q^244 + 
        q^324 + O(q^338),
    q^5 - 2*q^29 - q^45 + 2*q^61 - 2*q^101 + 2*q^109 + q^125 + 2*q^149 - 2*q^181
        - 2*q^205 - 2*q^229 - q^245 + 2*q^261 + 2*q^269 + O(q^338),
    q^6 - q^30 - q^54 + q^150 + 2*q^174 - 2*q^246 + q^270 - q^294 + O(q^338),
    q^12 - q^60 - q^108 + q^300 + O(q^338),
    q^15 - 2*q^87 - q^135 + 2*q^183 - 2*q^303 + 2*q^327 + O(q^338)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^21 - q^25 + q^45 - q^49 + q^69 - q^81 + q^105 + q^121 + q^129 - q^141 
        + q^169 + 2*q^181 - q^189 - q^201 - 2*q^205 - 2*q^229 - q^249 - q^289 + 
        2*q^301 + q^309 - q^321 + O(q^338),
    q^3 + q^15 + 2*q^23 - q^27 + 2*q^35 - 2*q^47 - 2*q^63 - q^75 - 2*q^83 - 
        2*q^107 + 2*q^123 + q^135 - q^147 - 2*q^167 - 2*q^215 + 2*q^227 - q^243 
        + 2*q^263 + 4*q^287 + 2*q^335 + O(q^338),
    q^5 - q^9 - q^21 + 2*q^41 - q^69 - q^105 - q^125 + q^129 + q^141 + 2*q^149 -
        2*q^161 + q^189 - q^201 + q^225 - q^245 + q^249 - 2*q^269 - 2*q^281 + 
        q^309 + q^321 + 2*q^329 + O(q^338),
    q^7 - q^15 - q^23 + q^27 - q^35 - q^43 + q^47 + q^63 + q^67 + q^83 - q^103 +
        q^107 - q^115 - 2*q^123 - q^127 + q^163 + q^167 - q^175 + q^207 + q^215 
        + q^223 - q^227 + q^235 - q^263 + q^283 - 2*q^287 - q^307 + q^315 - 
        q^335 + O(q^338)
]
;
Bo:=
[
    q + q^21 - q^25 - q^45 - q^49 - q^69 - q^81 + q^105 + q^121 + q^129 + q^141 
        + q^169 - 2*q^181 + q^189 - q^201 + 2*q^205 + 2*q^229 - q^249 - q^289 - 
        2*q^301 - q^309 - q^321 + O(q^338),
    q^2 + q^42 - q^50 - q^90 - q^98 - q^138 - q^162 + q^210 + q^242 + q^258 + 
        q^282 + O(q^338),
    q^3 - q^15 - 2*q^23 - q^27 + 2*q^35 + 2*q^47 + 2*q^63 - q^75 - 2*q^83 - 
        2*q^107 + 2*q^123 - q^135 - q^147 + 2*q^167 + 2*q^215 + 2*q^227 - q^243 
        - 2*q^263 - 4*q^287 - 2*q^335 + O(q^338),
    q^5 + q^9 - q^21 - 2*q^41 - q^69 + q^105 - q^125 - q^129 + q^141 + 2*q^149 +
        2*q^161 + q^189 + q^201 - q^225 - q^245 - q^249 - 2*q^269 + 2*q^281 + 
        q^309 - q^321 - 2*q^329 + O(q^338),
    q^6 - q^30 - 2*q^46 - q^54 + 2*q^70 + 2*q^94 + 2*q^126 - q^150 - 2*q^166 - 
        2*q^214 + 2*q^246 - q^270 - q^294 + 2*q^334 + O(q^338),
    q^7 - q^15 - q^23 - q^27 + q^35 + q^43 + q^47 + q^63 - q^67 - q^83 - q^103 -
        q^107 + q^115 + 2*q^123 - q^127 - q^163 + q^167 - q^175 + q^207 + q^215 
        + q^223 + q^227 - q^235 - q^263 - q^283 - 2*q^287 + q^307 - q^315 - 
        q^335 + O(q^338),
    q^10 + q^18 - q^42 - 2*q^82 - q^138 + q^210 - q^250 - q^258 + q^282 + 
        2*q^298 + 2*q^322 + O(q^338),
    q^14 - q^30 - q^46 - q^54 + q^70 + q^86 + q^94 + q^126 - q^134 - q^166 - 
        q^206 - q^214 + q^230 + 2*q^246 - q^254 - q^326 + q^334 + O(q^338)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^7*q^4 - a^5*q^6 + a^3*q^9 - a^4*q^10 + a^2*q^15 - a^6*q^16 + (-a^6 - 
        a)*q^19 + a^4*q^24 + a*q^25 + (-a^5 - a^3)*q^31 + (a^2 + a)*q^34 - 
        a^2*q^36 + a^3*q^40 + (-a^7 + a^6)*q^46 - a^2*q^49 + (a^7 - 1)*q^51 + 
        q^54 - a*q^60 + (-a^7 + a^4)*q^61 + a^5*q^64 + (a^5 - a^4)*q^69 + (a^5 +
        1)*q^76 + (-a^4 - 1)*q^79 + a^6*q^81 + (a^7 + a^6)*q^85 - a^7*q^90 + 
        (-a^3 - 1)*q^94 - a^3*q^96 - q^100 + (a^3 - a)*q^106 + (-a^5 - 
        a^2)*q^109 + (a^6 - a^3)*q^114 + (a^4 - a^3)*q^115 + a^5*q^121 + (a^4 + 
        a^2)*q^124 + a^5*q^135 + (-a - 1)*q^136 + (-a^7 + a^6)*q^139 + (-a^6 + 
        a)*q^141 + a*q^144 - a^6*q^150 + (a^4 - a^2)*q^151 + (-a^7 - a)*q^159 - 
        a^2*q^160 + (-a^4 + a^2)*q^166 - a^7*q^169 + (-a^4 + a)*q^171 + (a^3 + 
        a^2)*q^181 + (a^6 - a^5)*q^184 + (-a^2 - 1)*q^186 + (a^5 - a^2)*q^190 + 
        a*q^196 + (a^7 + a^3)*q^199 + (-a^7 - a^6)*q^204 + (a^5 + a^2)*q^211 + 
        (a^3 + a)*q^214 + a^7*q^216 + a^4*q^225 + (a^7 + a^4)*q^226 + (-a + 
        1)*q^229 + (-a^5 + 1)*q^235 + q^240 + (-a^3 - a)*q^241 + (a^6 - 
        a^3)*q^244 + (a^2 - 1)*q^249 - a^5*q^250 - a^4*q^256 + (-a^6 - 1)*q^265 
        + (-a^5 + 1)*q^274 + (-a^4 + a^3)*q^276 + (-a^6 + 1)*q^279 + (-a^3 + 
        1)*q^285 + (-a^5 - a^4 - a^3)*q^289 + a^7*q^294 + (a^7 - a^4)*q^304 + 
        (a^5 + a^4)*q^306 + (a^7 - a)*q^310 + (-a^7 + a^3)*q^316 + (a^7 - 
        a)*q^321 - a^5*q^324 + (a^3 + a^2)*q^331 + (a^5 + a^4)*q^334 + O(q^338),
    q^2 + a^6*q^3 + a^5*q^5 + a^7*q^8 - a^5*q^12 + (-a^3 - a^2)*q^17 + a^3*q^18 
        - a^4*q^20 + (-a^7 - 1)*q^23 - a*q^27 + a^2*q^30 - a^6*q^32 + (-a^6 - 
        a)*q^38 - q^45 + (a^4 + a)*q^47 + a^4*q^48 + a*q^50 + (-a^4 + a^2)*q^53 
        + (-a^7 + a^4)*q^57 + (-a^5 - a^3)*q^62 + (a^2 + a)*q^68 - a^2*q^72 + 
        a^7*q^75 + a^3*q^80 + (a^5 - a^3)*q^83 + (-a^7 + a^6)*q^92 + (a^3 + 
        a)*q^93 + (-a^6 + a^3)*q^95 - a^2*q^98 + (a^7 - 1)*q^102 + (-a^4 - 
        a^2)*q^107 + q^108 + (-a^5 + 1)*q^113 - a*q^120 + (-a^7 + a^4)*q^122 + 
        a^6*q^125 + a^5*q^128 + (a^6 - a)*q^137 + (a^5 - a^4)*q^138 + q^147 + 
        (a^5 + 1)*q^152 + (-a^6 - a^5)*q^153 + (a^2 + 1)*q^155 + (-a^4 - 
        1)*q^158 + a^6*q^162 + (-a^6 - a^5)*q^167 + (a^7 + a^6)*q^170 + (a^7 - 
        a)*q^173 - a^7*q^180 + (a^5 - a^2)*q^183 + (-a^3 - 1)*q^188 - a^3*q^192 
        + (a^7 + a^3)*q^197 - q^200 + (-a^3 + a^2)*q^207 + (a^3 - a)*q^212 + 
        (-a^5 - a^2)*q^218 + (a^7 - a^5)*q^227 + (a^6 - a^3)*q^228 + (a^4 - 
        a^3)*q^230 + (a^7 + 1)*q^233 + (-a^6 + a^2)*q^237 + a^5*q^242 - 
        a^4*q^243 - a^7*q^245 + (a^4 + a^2)*q^248 + (-a^5 - a^4)*q^255 + (a - 
        1)*q^257 + (a^2 + a)*q^263 + a^5*q^270 + (-a - 1)*q^272 + (-a^7 + 
        a^6)*q^278 + (-a^6 + a)*q^282 + a*q^288 + (-a^6 + a^4)*q^293 - a^6*q^300
        + (a^4 - a^2)*q^302 + (a^4 - a)*q^305 + (-a^4 + 1)*q^317 + (-a^7 - 
        a)*q^318 - a^2*q^320 + (a^4 + a^3 - a - 1)*q^323 + (a^3 + 1)*q^327 + 
        (-a^4 + a^2)*q^332 + O(q^338)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^3*q^9 + a^2*q^15 + (-a^2 + a)*q^19 + a*q^25 + (a^3 - a)*q^31 + 
        a^2*q^49 + (-a^3 + 1)*q^51 + (-a^3 - 1)*q^61 + (-a - 1)*q^69 - a^2*q^81 
        + (-a^3 - a^2)*q^85 + (a^2 - a)*q^109 + (a^3 - 1)*q^115 - a*q^121 - 
        a*q^135 + (-a^3 - a^2)*q^139 + (-a^2 + a)*q^141 + (a^2 - 1)*q^151 + 
        (-a^3 + a)*q^159 - a^3*q^169 + (a - 1)*q^171 + (a^3 + a^2)*q^181 + (a^2 
        - a)*q^211 - q^225 + (a + 1)*q^229 + (-a + 1)*q^235 + (a^3 + a)*q^241 + 
        (a^2 + 1)*q^249 + (-a^2 + 1)*q^265 - 2*a^2*q^271 + (-a^2 + 1)*q^279 + 
        (a^3 + 1)*q^285 + (a^3 - a - 1)*q^289 + (-a^3 + a)*q^321 + (a^3 + 
        a^2)*q^331 + O(q^338),
    q^2 - a^3*q^8 - a*q^12 + a^3*q^18 - q^20 + a^2*q^30 - a^2*q^32 + (-a^2 + 
        a)*q^38 - q^48 + a*q^50 + (a^3 - a)*q^62 + (a^2 + a)*q^68 + a^2*q^72 + 
        a^3*q^80 + (-a^3 - a^2)*q^92 + a^2*q^98 + (-a^3 + 1)*q^102 + q^108 + 
        a*q^120 + (-a^3 - 1)*q^122 - a*q^128 + (-a - 1)*q^138 + (-a + 1)*q^152 -
        a^2*q^162 + (-a^3 - a^2)*q^170 - a^3*q^180 + (a^3 + 1)*q^188 + a^3*q^192
        + q^200 + (a^3 + a)*q^212 + (a^2 - a)*q^218 + (a^3 - a^2)*q^228 + (a^3 -
        1)*q^230 - a*q^242 + (a^2 - 1)*q^248 - a*q^270 + (a + 1)*q^272 + (-a^3 -
        a^2)*q^278 + (-a^2 + a)*q^282 + a*q^288 - a^2*q^300 + (a^2 - 1)*q^302 + 
        (-a^3 + a)*q^318 + a^2*q^320 + (a^2 - 1)*q^332 + O(q^338),
    q^3 - a^3*q^5 + (-a - 1)*q^17 + (a^2 + a)*q^23 + a^3*q^27 + a^2*q^45 + (a^3 
        - a^2)*q^47 + (-a^2 - 1)*q^53 + (-a^2 + a)*q^57 + a*q^75 + (-a^3 - 
        a)*q^83 + (a^3 - a)*q^93 + (-a + 1)*q^95 + (-a^2 - 1)*q^107 + (-a^3 + 
        a^2)*q^113 + q^125 + (a^3 + 1)*q^137 + a^2*q^147 + (-a^3 + 1)*q^153 + 
        (a^2 - 1)*q^155 + (-a^3 + 1)*q^167 + (a^3 + a)*q^173 + (-a^3 - 1)*q^183 
        + (-a - 1)*q^207 + (-a^3 + a)*q^227 + (a^2 + a)*q^233 - a^2*q^243 + 
        a*q^245 + (-a^3 - a^2)*q^255 + (a^3 + a^2)*q^257 + (a^3 - 1)*q^263 + 
        (-a^2 + 1)*q^293 + (a^3 - a^2)*q^305 + (a^3 - a)*q^323 + (a^2 - a)*q^327
        + O(q^338),
    q^4 - a^2*q^6 - a*q^10 - a^3*q^16 - a*q^24 + (a^3 + a^2)*q^34 + a^3*q^36 - 
        q^40 + (-a^3 + 1)*q^46 + a*q^54 + a^2*q^60 - a^2*q^64 + (-a^2 + a)*q^76 
        + q^90 + (a - 1)*q^94 - q^96 + a*q^100 + (a^2 - 1)*q^106 + (-a^3 - 
        1)*q^114 + (a^3 - a)*q^124 + (a^2 + a)*q^136 + a^2*q^144 - a^3*q^150 + 
        a^3*q^160 + (a^3 - a)*q^166 + (-a^3 - a^2)*q^184 + (a^3 + a)*q^186 + 
        (a^3 - a^2)*q^190 + a^2*q^196 + (-a^3 + 1)*q^204 + (a^2 - 1)*q^214 + 
        q^216 + (-a + 1)*q^226 + a*q^240 + (-a^3 - 1)*q^244 - a^2*q^250 - 
        a*q^256 + (-a^2 + a)*q^274 + (-a - 1)*q^276 + q^294 + (-a + 1)*q^304 + 
        (-a^2 - a)*q^306 + (a^2 + 1)*q^310 - a^2*q^324 + (-a^2 - a)*q^334 + 
        O(q^338)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^9 + q^15 + (-a + 1)*q^19 + a*q^25 - q^49 + (a - 1)*q^51 + (-a + 
        1)*q^61 + (a + 1)*q^69 - 2*q^79 - q^81 + (-a - 1)*q^85 + (a - 1)*q^109 +
        (a - 1)*q^115 + a*q^121 - a*q^135 + (a + 1)*q^139 + (a - 1)*q^141 - 
        a*q^169 + (-a - 1)*q^171 + (-a - 1)*q^181 + 2*a*q^199 + (-a + 1)*q^211 +
        q^225 + (a + 1)*q^229 + (-a - 1)*q^235 + 2*q^271 + (-a + 1)*q^285 + 
        q^289 + (a + 1)*q^331 + O(q^338),
    q^3 + a*q^5 + (-a - 1)*q^17 + (a - 1)*q^23 - a*q^27 + q^45 + (-a - 1)*q^47 +
        (-a + 1)*q^57 + a*q^75 + (a + 1)*q^95 + (a + 1)*q^113 - q^125 + (a - 
        1)*q^137 - q^147 + (a - 1)*q^153 + (-a + 1)*q^167 + (-a + 1)*q^183 - 
        2*a*q^197 + (a + 1)*q^207 + (-a + 1)*q^233 - 2*q^237 - q^243 - a*q^245 +
        (-a - 1)*q^255 + (a + 1)*q^257 + (-a + 1)*q^263 + (a + 1)*q^305 + 
        2*q^317 - 2*q^323 + (a - 1)*q^327 + O(q^338)
]
;
Bo:=
[
    q - a*q^9 - q^15 + (a - 1)*q^19 + a*q^25 - q^49 + (-a + 1)*q^51 + (-a + 
        1)*q^61 + (a + 1)*q^69 + 2*q^79 - q^81 + (-a - 1)*q^85 + (a - 1)*q^109 +
        (-a + 1)*q^115 + a*q^121 + a*q^135 + (-a - 1)*q^139 + (a - 1)*q^141 - 
        a*q^169 + (a + 1)*q^171 + (-a - 1)*q^181 - 2*a*q^199 + (a - 1)*q^211 + 
        q^225 + (a + 1)*q^229 + (a + 1)*q^235 - 2*q^271 + (-a + 1)*q^285 + q^289
        + (-a - 1)*q^331 + O(q^338),
    q^2 - a*q^18 - q^30 + (a - 1)*q^38 + a*q^50 - q^98 + (-a + 1)*q^102 + (-a + 
        1)*q^122 + (a + 1)*q^138 + 2*q^158 - q^162 + (-a - 1)*q^170 + (a - 
        1)*q^218 + (-a + 1)*q^230 + a*q^242 + a*q^270 + (-a - 1)*q^278 + (a - 
        1)*q^282 + O(q^338),
    q^3 - a*q^5 + (a + 1)*q^17 + (a - 1)*q^23 - a*q^27 - q^45 + (-a - 1)*q^47 + 
        (a - 1)*q^57 + a*q^75 + (a + 1)*q^95 + (-a - 1)*q^113 + q^125 + (-a + 
        1)*q^137 - q^147 + (-a + 1)*q^153 + (-a + 1)*q^167 + (-a + 1)*q^183 + 
        2*a*q^197 + (a + 1)*q^207 + (a - 1)*q^233 + 2*q^237 - q^243 + a*q^245 + 
        (-a - 1)*q^255 + (-a - 1)*q^257 + (-a + 1)*q^263 + (-a - 1)*q^305 - 
        2*q^317 - 2*q^323 + (a - 1)*q^327 + O(q^338),
    q^4 - a*q^16 + a*q^24 - a*q^36 + q^40 - q^60 - q^64 + (a - 1)*q^76 + q^96 + 
        a*q^100 + (a - 1)*q^136 - q^144 - a*q^160 + (-a - 1)*q^184 - q^196 + (-a
        + 1)*q^204 + q^216 + a*q^240 + (-a + 1)*q^244 + a*q^256 + (a + 1)*q^276 
        + (a + 1)*q^304 + 2*q^316 - q^324 + O(q^338),
    q^6 - a*q^10 + (a + 1)*q^34 + (a - 1)*q^46 - a*q^54 - q^90 + (-a - 1)*q^94 +
        (a - 1)*q^114 + a*q^150 + (a + 1)*q^190 + (-a - 1)*q^226 + q^250 + (-a +
        1)*q^274 - q^294 + (-a + 1)*q^306 + (-a + 1)*q^334 + O(q^338),
    q^8 - q^12 + a*q^20 - a*q^32 + a*q^48 + (-a - 1)*q^68 - a*q^72 + q^80 + (-a 
        + 1)*q^92 + a*q^108 - q^120 - q^128 + (a - 1)*q^152 + q^180 + (a + 
        1)*q^188 + q^192 + a*q^200 + (-a + 1)*q^228 + (a - 1)*q^272 - q^288 - 
        a*q^300 - a*q^320 + O(q^338)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
960
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
338
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^9 - q^25 + q^49 + q^81 - q^121 - q^169 + q^225 - 2*q^241 + 2*q^249 + 
        2*q^265 - q^289 - 2*q^321 + O(q^338),
    q^2 - q^18 - q^50 + q^98 + q^162 - q^242 + O(q^338),
    q^3 - q^27 - q^75 - 2*q^83 + 2*q^107 + q^147 + 2*q^155 - 2*q^227 + q^243 + 
        O(q^338),
    q^4 - q^36 + q^60 - q^100 - 2*q^124 + q^196 + 2*q^316 + q^324 + O(q^338),
    q^5 - q^45 - 2*q^53 + 2*q^93 - q^125 + 2*q^173 + 2*q^197 - 2*q^237 + q^245 -
        2*q^293 - 2*q^317 + O(q^338),
    q^6 - q^54 - q^150 - 2*q^166 + 2*q^214 + q^294 + 2*q^310 + O(q^338),
    q^8 - q^32 - q^48 - q^72 + q^80 + q^120 + q^128 + q^192 - q^200 - 2*q^248 + 
        q^288 - q^320 + O(q^338),
    q^10 - q^90 - 2*q^106 + 2*q^186 - q^250 + O(q^338),
    q^12 - q^20 - q^108 + q^180 + 2*q^212 - q^300 - 2*q^332 + O(q^338),
    q^15 - 2*q^31 + 2*q^79 - q^135 + 2*q^151 - 2*q^159 - 2*q^199 + 2*q^271 + 
        2*q^279 + O(q^338),
    q^16 + q^24 - q^40 - q^64 - q^96 - q^144 + q^160 - q^216 + q^240 + q^256 + 
        O(q^338),
    q^30 - 2*q^62 + 2*q^158 - q^270 + 2*q^302 - 2*q^318 + O(q^338)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
961
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
930
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
961
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
310
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
961
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
186
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
961
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
62
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
961
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
31*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^7 + a^2)*q^2 + (-a^5 + 1)*q^5 + (-a^7 - a^6 + a^4 + a^3 + a^2 - 
        1)*q^7 + a^6*q^8 - a*q^9 - a^7*q^10 + (-a^6 + a)*q^14 + a^3*q^16 + (-a^7
        + a^5 + a^4 - a - 1)*q^18 - a^2*q^19 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^35
        + (a^7 + a^6 - a^4 - a^3 - a^2 + 1)*q^38 + a*q^40 + a^7*q^41 + (a^6 - 
        a)*q^45 - 2*a^3*q^47 + a^5*q^56 + (a^7 - a^5 - a^4 - a^3 + a + 1)*q^59 -
        q^63 + (a^7 - a^2)*q^64 + (2*a^5 - 2)*q^67 - a^6*q^70 + a*q^71 - 
        a^7*q^72 + (a^7 - a^5 - a^4 + a + 1)*q^80 + a^2*q^81 + a^4*q^82 + (-a^7 
        + a^5 + a^4 + a^3 - a - 1)*q^90 - 2*q^94 + (a^7 - a^2)*q^95 + (a^7 + a^6
        - a^3 - a^2 + 1)*q^97 - a^6*q^101 + a^7*q^103 + (a^6 - a)*q^107 + 
        a^3*q^109 + a^2*q^112 - a^4*q^113 - a^5*q^118 + (-a^7 + a^5 + a^4 + a^3 
        - a - 1)*q^121 + q^125 + (a^7 - a^2)*q^126 + (a^7 + a^6 - a^3 - a^2 + 
        1)*q^128 + (2*a^7 + 2*a^6 - 2*a^4 - 2*a^3 - 2*a^2 + 2)*q^131 - a*q^133 +
        2*a^7*q^134 + O(q^135)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
961
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
93*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^2*q^2 - q^5 + (-a^3 + a^2 - a + 1)*q^7 - a*q^8 - a*q^9 + a^2*q^10 - 
        a*q^14 + a^3*q^16 + a^3*q^18 - a^2*q^19 + (a^3 - a^2 + a - 1)*q^35 + 
        (a^3 - a^2 + a - 1)*q^38 + a*q^40 - a^2*q^41 + a*q^45 - 2*a^3*q^47 - 
        q^56 + a^3*q^59 - q^63 + a^2*q^64 + 2*q^67 + a*q^70 + a*q^71 + a^2*q^72 
        - a^3*q^80 + a^2*q^81 + (a^3 - a^2 + a - 1)*q^82 - a^3*q^90 - 2*q^94 + 
        a^2*q^95 + (-a^3 + a^2 - a + 1)*q^97 + a*q^101 - a^2*q^103 + a*q^107 + 
        a^3*q^109 + a^2*q^112 + (-a^3 + a^2 - a + 1)*q^113 + q^118 - a^3*q^121 +
        q^125 + a^2*q^126 + (-a^3 + a^2 - a + 1)*q^128 + (2*a^3 - 2*a^2 + 2*a - 
        2)*q^131 - a*q^133 - 2*a^2*q^134 + O(q^135)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
961
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
155*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^2 + a*q^5 + (-a + 1)*q^7 + q^8 - a*q^9 - a*q^10 + (a - 1)*q^14 - q^16 
        + a*q^18 + (-a + 1)*q^19 + q^35 + (a - 1)*q^38 + a*q^40 + a*q^41 + (-a +
        1)*q^45 + 2*q^47 + (-a + 1)*q^56 + (-a + 1)*q^59 - q^63 + q^64 - 
        2*a*q^67 - q^70 + a*q^71 - a*q^72 - a*q^80 + (a - 1)*q^81 - a*q^82 + (a 
        - 1)*q^90 - 2*q^94 + q^95 - q^97 - q^101 + a*q^103 + (-a + 1)*q^107 - 
        q^109 + (a - 1)*q^112 + a*q^113 + (a - 1)*q^118 + (a - 1)*q^121 + q^125 
        + q^126 - q^128 + (2*a - 2)*q^131 - a*q^133 + 2*a*q^134 + O(q^135)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
961
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
465*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
135
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 - q^5 - q^7 + q^8 + q^9 + q^10 + q^14 - q^16 - q^18 - q^19 + q^35 + 
        q^38 - q^40 - q^41 - q^45 + 2*q^47 - q^56 - q^59 - q^63 + q^64 + 2*q^67 
        - q^70 - q^71 + q^72 + q^80 + q^81 + q^82 + q^90 - 2*q^94 + q^95 - q^97 
        - q^101 - q^103 - q^107 - q^109 + q^112 - q^113 + q^118 + q^121 + q^125 
        + q^126 - q^128 + 2*q^131 + q^133 - 2*q^134 + O(q^135),
    q^31 - q^62 + O(q^135)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
962
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
260
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
963
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
963
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
963
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
106
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
963
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
318
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
963
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
318
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
963
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
106
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
963
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
53*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^11 - q^13 + q^16 - q^19 + q^23 + q^25 - 2*q^29 - q^37 + q^41 + 
        q^44 - 2*q^47 + q^49 - q^52 + q^53 - q^61 + q^64 - q^76 - q^79 - 2*q^83 
        + q^89 + q^92 + q^100 + q^101 - q^107 - 2*q^116 - 2*q^137 - q^143 - 
        q^148 + q^149 - q^151 - q^163 + q^164 + q^176 - 2*q^188 - q^193 + q^196 
        + q^197 - q^199 - q^208 - q^209 + O(q^210)
]
;
Bo:=
[
    q + q^4 - q^11 - q^13 + q^16 - q^19 - q^23 + q^25 + 2*q^29 - q^37 - q^41 - 
        q^44 + 2*q^47 + q^49 - q^52 - q^53 - q^61 + q^64 - q^76 - q^79 + 2*q^83 
        - q^89 - q^92 + q^100 - q^101 + q^107 + 2*q^116 + 2*q^137 + q^143 - 
        q^148 - q^149 - q^151 - q^163 - q^164 - q^176 + 2*q^188 - q^193 + q^196 
        - q^197 - q^199 - q^208 + q^209 + O(q^210),
    q^3 + q^12 - q^27 - q^33 - q^39 + q^48 - q^57 - q^69 + q^75 + q^81 + 2*q^87 
        - q^108 - q^111 - q^123 - q^132 + 2*q^141 + q^147 - q^156 - q^159 - 
        q^183 + q^192 + O(q^210),
    q^9 - q^27 + q^36 - q^99 - q^108 - q^117 + q^144 - q^171 - q^207 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
963
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 53*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^11 + a*q^12 + (-a + 1)*q^13 + (-a + 1)*q^14 + q^19 + (a - 1)*q^23 - 
        a*q^25 + q^27 + a*q^33 + a*q^34 - q^36 + (-a + 1)*q^41 + a*q^42 - a*q^47
        - q^48 + a*q^52 - q^53 - q^57 - a*q^61 + q^64 - q^69 - a*q^79 + a*q^83 +
        (a - 1)*q^86 + q^87 - q^89 + a*q^99 - a*q^101 - q^102 + q^111 - q^116 - 
        q^118 + a*q^119 + (a - 1)*q^121 - q^126 - a*q^132 - q^141 + a*q^142 + 
        (-a + 1)*q^144 - a*q^146 + a*q^147 + (a - 1)*q^148 - q^154 + a*q^164 + 
        a*q^169 - q^171 + (-a + 1)*q^183 + q^188 + (-2*a + 2)*q^193 + (a - 
        1)*q^194 - a*q^196 - q^199 + q^206 + a*q^207 - q^208 - 2*a*q^209 + 
        O(q^210),
    q^2 + (a - 1)*q^6 + q^7 + (a - 1)*q^17 - a*q^18 + (a - 1)*q^21 - a*q^22 + 
        (-a + 1)*q^28 + a*q^32 + q^38 - q^43 + (a - 1)*q^46 - a*q^50 - a*q^51 + 
        q^54 - a*q^58 - a*q^59 - a*q^63 + q^66 + a*q^68 + (a - 1)*q^71 + (-a + 
        1)*q^73 - q^74 - a*q^77 + a*q^84 - q^96 - q^97 + (-a + 1)*q^98 + a*q^103
        + a*q^112 + (a - 1)*q^114 - a*q^122 + (a - 1)*q^127 + (-a + 1)*q^129 + 
        a*q^131 + q^133 - a*q^138 + a*q^139 + q^150 + q^153 + a*q^157 - a*q^158 
        + (a - 1)*q^161 + (a - 1)*q^162 + a*q^166 + (a - 1)*q^172 + q^174 - 
        a*q^175 + q^177 + (-a + 1)*q^179 + q^187 + q^189 + q^191 + (a - 1)*q^198
        - a*q^202 - a*q^203 - q^204 + O(q^210),
    q^3 + q^11 + (a - 1)*q^12 + q^13 + (a - 1)*q^19 + (a - 1)*q^23 + q^37 + q^41
        + (a - 1)*q^44 - a*q^48 + (a - 1)*q^52 - a*q^53 - a*q^61 - a*q^75 - 
        a*q^76 - a*q^79 + q^81 + a*q^87 - a*q^89 - a*q^92 + (a - 1)*q^99 - 
        a*q^101 - a*q^117 - a*q^121 - 2*a*q^141 + q^143 + (a - 1)*q^147 + (a - 
        1)*q^148 + (a - 1)*q^149 + q^151 + (a - 1)*q^163 + (a - 1)*q^164 + (a - 
        1)*q^169 - a*q^171 - a*q^176 + q^192 + q^193 + (a - 1)*q^197 - a*q^199 +
        (a - 1)*q^207 - a*q^208 + q^209 + O(q^210),
    q^4 + (-a + 1)*q^11 + (a - 1)*q^12 + q^13 + q^14 + (a - 1)*q^16 + a*q^19 - 
        q^23 + (-a + 1)*q^29 + a*q^33 + (a - 1)*q^34 - a*q^36 + (a - 1)*q^39 + 
        q^41 + (a - 1)*q^42 + (a - 1)*q^47 - a*q^48 + q^49 + (a - 1)*q^52 - 
        a*q^53 - q^57 + (-a + 1)*q^61 + (-a + 1)*q^69 + (-a + 1)*q^79 - q^86 + 
        a*q^87 - a*q^89 - q^99 - a*q^100 + (-a + 1)*q^101 - a*q^102 - a*q^107 + 
        q^108 - a*q^117 - a*q^118 + (a - 1)*q^119 + (a - 1)*q^123 - a*q^126 + 
        (-a + 1)*q^137 - a*q^141 + (a - 1)*q^142 + a*q^143 + q^144 + (-a + 
        1)*q^146 + (a - 1)*q^147 - q^148 - a*q^154 - a*q^156 + q^159 + (a - 
        1)*q^164 + (2*a - 2)*q^169 + (-a + 1)*q^171 + a*q^183 - a*q^188 + 
        2*q^193 - q^194 - a*q^199 + a*q^206 + a*q^207 - a*q^208 + O(q^210),
    q^5 + q^6 - a*q^8 - q^15 + 3*a*q^17 + (a - 2)*q^18 + q^21 - 2*q^22 + a*q^24 
        + a*q^26 - a*q^28 - q^31 + q^32 + (-a + 1)*q^38 + (2*a - 2)*q^43 + q^45 
        + 2*a*q^46 - q^50 + (-2*a - 1)*q^51 + (-2*a + 2)*q^54 + a*q^55 - 2*q^58 
        + (a - 2)*q^63 + (-a + 1)*q^65 + (-a + 2)*q^66 - q^67 + q^68 + (-a + 
        1)*q^70 + a*q^71 - a*q^72 - a*q^73 + (a - 1)*q^74 - 2*q^77 - a*q^78 + 
        a*q^80 - a*q^82 + q^84 + (-a + 1)*q^88 + a*q^91 + q^93 - q^94 + (a - 
        1)*q^96 - a*q^98 + 2*q^103 - q^104 + (-2*a + 2)*q^106 - a*q^107 + q^113 
        + a*q^114 + (-a + 1)*q^115 - 2*q^122 - a*q^125 + a*q^127 + (-a + 
        1)*q^128 + (-2*a + 1)*q^129 + 2*q^131 + (-a + 1)*q^133 - q^135 + (-a - 
        1)*q^138 + 2*q^139 + a*q^145 + (-a + 1)*q^150 + (a + 1)*q^153 + 2*q^157 
        + 2*a*q^161 + (2*a - 1)*q^162 - a*q^165 - q^167 - 2*a*q^170 + a*q^172 + 
        (-a + 1)*q^173 + (-a + 2)*q^174 - q^175 - a*q^177 - a*q^179 - 2*a*q^181 
        - q^184 + (a - 1)*q^187 + (-2*a + 2)*q^189 + (a - 1)*q^195 + (a - 
        1)*q^198 + q^201 - 2*q^203 + (a - 1)*q^204 + (a - 1)*q^205 + O(q^210),
    q^9 + (a - 1)*q^11 - a*q^13 - a*q^19 + (a - 1)*q^23 + q^33 + (a - 1)*q^36 + 
        q^37 + q^39 - a*q^41 - a*q^44 + q^52 + (a - 1)*q^53 + (a - 1)*q^57 - 
        a*q^61 + (a - 1)*q^69 + q^76 - a*q^79 + (a - 1)*q^89 - a*q^92 - a*q^101 
        + q^111 + q^121 + q^123 + (a - 1)*q^132 + q^143 - a*q^144 + (a - 
        1)*q^148 + (a - 1)*q^149 + (a - 1)*q^151 + (a - 1)*q^156 - a*q^159 - 
        a*q^163 + q^164 + q^169 + q^176 - a*q^183 - a*q^193 - a*q^197 + (a - 
        1)*q^199 + (a - 1)*q^208 + (a - 1)*q^209 + O(q^210),
    q^10 + (-a - 2)*q^11 + q^12 + (-a - 1)*q^13 - a*q^16 + (-2*a + 2)*q^19 + 
        (2*a - 2)*q^23 - a*q^25 + 2*q^27 - a*q^29 - q^30 + (2*a + 1)*q^33 + 
        3*a*q^34 + q^35 + (a - 2)*q^36 + (-a + 2)*q^39 + (a - 1)*q^40 + (-3*a + 
        1)*q^41 + q^42 + (-2*a + 1)*q^44 - 2*a*q^47 + (2*a - 1)*q^48 + 2*q^52 + 
        2*a*q^53 - a*q^56 + (a - 2)*q^57 - 2*a*q^61 - q^62 + 2*q^64 - q^69 + 
        a*q^75 + (a + 1)*q^76 - 2*q^81 + (-2*a + 2)*q^85 + (2*a - 2)*q^86 + q^87
        + (2*a - 2)*q^89 + q^90 + (-a + 1)*q^99 + (-2*a - 1)*q^102 - q^105 + 
        a*q^110 + 2*q^111 - q^116 + (2*a - 1)*q^117 + 3*a*q^119 + (-a + 1)*q^120
        + 2*a*q^121 + a*q^123 + (a - 2)*q^126 + (-a + 1)*q^130 - q^132 - q^134 -
        2*q^136 + a*q^137 + (3*a - 1)*q^141 + a*q^142 - q^143 + (-3*a + 1)*q^144
        - a*q^146 + q^147 + (a - 1)*q^148 + (a - 1)*q^149 - 2*q^151 - 2*q^154 + 
        a*q^155 + (a - 1)*q^156 + (-a - 2)*q^159 + (-2*a + 1)*q^163 + 2*q^164 + 
        a*q^168 + 2*q^169 + (a - 1)*q^171 + 2*q^176 + a*q^182 + (-a + 1)*q^183 +
        q^186 + q^188 - 2*q^192 + (-4*a + 2)*q^193 - a*q^196 + (-2*a + 1)*q^197 
        + (2*a - 2)*q^199 + 2*q^206 + a*q^207 + (2*a - 3)*q^208 + (-a - 2)*q^209
        + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
240
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
120
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
80
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^5*q^2 + a^10*q^4 + (-a^11 - a^7)*q^5 + a^15*q^8 + a^2*q^9 + (a^14 - 
        a^12 - a^10 - a^8 - a^6 + a^2 + 1)*q^10 + (-a^14 - a^13 + a^4 + 
        a^3)*q^13 + (a^10 - 1)*q^16 + (a^11 - a^10)*q^17 + a^7*q^18 + (a^15 - 
        2*a^11 - a^9 - a^7 + a^3 + 2*a)*q^20 + (2*a^14 + 2*a^12 - a^6 - a^4 - 
        a^2 + 1)*q^25 + (-a^15 - a^14 - a^13 - a^12 + a^9 + a^8 + a^7 + a^6 + 
        a^5 + a^4 - a - 1)*q^26 + (-a^14 + a^10 + 2*a^8 - a^2 - 1)*q^29 + (a^15 
        - a^5)*q^32 + (-a^15 - a^14 + a^10 + a^8 + a^6 - a^2 - 1)*q^34 + 
        a^12*q^36 + (a^15 - a^14 + a^13 - a^9 - a^7 - a^5 + a)*q^37 + (a^14 - 
        a^12 - a^10 - a^8 + 2*a^2 + 1)*q^40 + (a^14 + a^12 - 2*a^8 - a^6 - a^4 +
        1)*q^41 + (-a^13 - a^9)*q^45 + a*q^49 + (2*a^13 + a^11 + a^9 - a^7 - a^5
        - 2*a^3)*q^50 + (a^4 + a^3)*q^52 + (a^14 - a^10 - a^4 + 1)*q^53 + (a^13 
        - a)*q^58 + (a^9 - a^3)*q^61 - q^64 + (-a^5 - a^4 - a - 1)*q^65 + (a^11 
        - a^10 - a + 1)*q^68 + (-a^15 + a^11 + a^9 + a^7 - a^3 - a)*q^72 + 
        (-a^15 + a^11 + a^9 + a^6 - a^3 - a)*q^73 + (-a^15 - a^13 + a^7 + a^5 - 
        a^4 - a)*q^74 + (a^15 - a^11 - a^9 + a^3 + 2*a)*q^80 + a^4*q^81 + (-a^13
        - a^3)*q^82 + (-a^15 - a^14 - 2*a^12 + 2*a^11 + a^9 + a^7 + a^6 + a^4 - 
        a^3 + a^2 - 2*a - 1)*q^85 + (a^15 + a^13 - a^7 - a^6 - a^5 + a)*q^89 + 
        (-2*a^14 - a^12 + a^6 + a^4 - 1)*q^90 + (a^12 - a^2)*q^97 + a^6*q^98 + 
        (2*a^14 + a^12 - a^8 - a^6 - 2*a^4 - a^2 + 1)*q^100 + (-a^14 + a^13 + 
        a^10 + a^8 + a^6 - a^3 - a^2 - 1)*q^101 + (a^9 + a^8)*q^104 + (a^13 - 
        a^9 - a^7 + a)*q^106 + (-a^15 - a^14 - a^13 - a^12 + a^8 + a^7 + a^6 + 
        a^5 + a^4 - a - 1)*q^109 + (a^15 + a^13 - a^11 - a^9 + a^3 + a)*q^113 + 
        (a^14 + a^12 - 2*a^6 - a^4 + 1)*q^116 + (-a^15 + a^14 - a^10 - a^8 + a^5
        + a^2 + 1)*q^117 + (a^15 - a^5)*q^121 + (a^14 - a^8)*q^122 + (-2*a^15 - 
        a^13 - a^11 + a^9 + a^7 + 2*a^5 + a^3)*q^125 - a^5*q^128 + (-a^10 - a^9 
        - a^6 - a^5)*q^130 + (-a^15 - a^14 + a^10 + a^8 + a^5 - a^2 - 1)*q^136 +
        (a^15 - a^11 + a^10 - a^9 + a^3 + a - 1)*q^137 + (a^12 - a^2)*q^144 + 
        (-2*a^15 - a^13 + 2*a^7 + a^5 + a^3 - a)*q^145 + (a^11 - a^2)*q^146 + 
        (-a^14 - a^9 + a^4)*q^148 + (-a^15 - a^2)*q^149 + (a^13 - a^12)*q^153 + 
        (a^15 - a^11 - a^9 - a^7 - a^6 + a^3 + a)*q^157 + (a^6 + a^2)*q^160 + 
        a^9*q^162 + (-a^14 - a^12 - a^8 + a^6 + a^4 - 1)*q^164 + (a^15 - a^12 - 
        a^11 - a^10 - a^9 - a^8 - a^7 + a^4 + a^3 + a^2 + a)*q^169 + (a^15 - 
        a^14 - a^13 + a^12 - a^11 + a^10 - a^9 + a^8 + 2*a^3 - 2*a^2 + a - 
        1)*q^170 + (a^15 + a^14 - a^10 - a^8 + a^2 + 1)*q^173 + (a^14 - a^11 - 
        a^4)*q^178 + (-a^15 - 2*a^13 + a^7 + a^5 + a^3 - a)*q^180 + (-a^15 + 
        a^13 + a^11 + a^9 + a^7 - 2*a^3 - a)*q^181 + (a^15 + a^11 + a^10 + a^6 -
        a^5 - a)*q^185 + (a^7 - a^5)*q^193 + (-a^15 + a^11 + a^9 - a^3 - 
        a)*q^194 + a^11*q^196 + (-a^15 + a^14 - a^13 - a^10 + a^9 - a^8 + a^7 - 
        a^6 + a^5 + a^2 - a + 1)*q^197 + (a^15 + a^13 - a^9 - 2*a^7 - a^5 - a^3 
        + a)*q^200 + (a^14 + a^12 + a^11 - a^8 - a^6 - a^4 - a + 1)*q^202 + 
        (2*a^15 + a^13 + a^9 - a^7 + a)*q^205 + (a^14 + a^13)*q^208 + (-a^4 + 
        1)*q^212 + (-a^14 + a^4 + a^3)*q^218 + (a^5 - a^3)*q^221 + (2*a^10 + a^8
        + a^6 - a^4 - a^2 - 2)*q^225 + (a^14 + a^12 - a^6 - a^4 + a^2 + 1)*q^226
        + (a^12 + a^10)*q^229 + (a^13 - a^11 - a^3)*q^232 + (-a^11 - a^9 + 
        a)*q^233 + (a + 1)*q^234 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^5*q^2 + (a^5 - 1)*q^4 + (a^7 + a^6 - a)*q^5 - q^8 + a^2*q^9 + (a^7 - 
        a^2 - a)*q^10 + (-a^6 - a^5 - a^4 + a^2 + a)*q^13 - a^5*q^16 + (a^6 + 
        a^5 - a - 1)*q^17 + a^7*q^18 + (-a^6 - a^2)*q^20 + (a^6 - a^4 - 2*a^3 - 
        a^2 + 1)*q^25 + (-a^6 - a^5 + a^3 + a^2 + a)*q^26 + (-a^7 - a^6 + a^5 + 
        a^4 + a^3 - 1)*q^29 + (-a^5 + 1)*q^32 + (-a - 1)*q^34 + (a^7 - a^2)*q^36
        + (-a^7 - a^6 + a)*q^40 + a^3*q^41 + (a^6 + a^5 + a^4 - a^3 - a^2 - 
        a)*q^45 + a*q^49 + (-a^5 - 2*a^4 - a^3 + a^2 + a + 1)*q^50 + (a^4 + 
        a^3)*q^52 + (-a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^53 + (-a^7 + a^5 + a^4 
        - 1)*q^58 + (a^7 + a^6 - a^2 + 1)*q^61 + q^64 + (a^5 + a^4 + a + 1)*q^65
        + (-a^6 - a^5)*q^68 - a^2*q^72 + (-a^7 + a^6 + a^2)*q^73 + (-a^7 + a^2 +
        a)*q^80 + a^4*q^81 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^82 + (-a^7 - a^6
        - a^3 - a^2)*q^85 + (a^6 - a^4)*q^89 + (a^7 + a^6 - a^4 - 2*a^3 - a^2 + 
        1)*q^90 + a^7*q^97 + a^6*q^98 + (-a^6 - a^5 - a^4 + a^3 + 2*a^2 + 
        a)*q^100 + (a^7 - a^5 - a^4 - a^3 + 1)*q^101 + (a^6 + a^5 + a^4 - a^2 - 
        a)*q^104 + (-a^7 - a^6 - a^5 + a^4 + a^3 + a^2)*q^106 + (a^7 - a^5 - 
        2*a^4 + a + 1)*q^109 + (-2*a^7 + a^5 + a^4 + a^2 - a - 1)*q^113 + (a^6 -
        a^3)*q^116 + (-a^6 - a^5 + a + 1)*q^117 + (-a^5 + 1)*q^121 + (a^6 + a^5 
        - a^2 - a)*q^122 + (-a^7 - 2*a^6 - a^5 + a^4 + 2*a^3 + a^2)*q^125 + 
        a^5*q^128 + (a^7 + 2*a^6 + 2*a^5 - a^3 - a^2)*q^130 + (-a^6 - a^5 + a + 
        1)*q^136 + (-a^7 - a^5 + a^2)*q^137 - a^7*q^144 + (a^7 - a^4 + a^3 - 
        1)*q^145 + (a^6 + a^2 - a)*q^146 + (a^2 - 1)*q^149 + (a^5 + a^4 - a^2 - 
        a - 1)*q^153 + (a^6 - a^2)*q^157 + (a^6 + a^2)*q^160 + (a^7 + a^6 - a^3 
        - a^2 + 1)*q^162 + (-a^7 + a^5 + a^4 - a - 1)*q^164 + (-a^3 - a^2 - 
        a)*q^169 + (-a^7 - a^6 - a^5 - a^4 - a^3 + a^2 + 2*a + 1)*q^170 + (-a^6 
        + a - 1)*q^173 + (-a^7 + a^3 + a^2 - a - 1)*q^178 + (a^7 - a^5 - 2*a^4 -
        a^3 + a + 1)*q^180 + (a^7 - a^5 - a^4 - a^3 - a^2 + a + 1)*q^181 + (a^7 
        + a^5)*q^193 + (a^7 - a^2)*q^194 + (a^6 - a)*q^196 + (-a^7 - a^6 + a^4 +
        a^3 + a^2 - a - 1)*q^197 + (-a^6 + a^4 + 2*a^3 + a^2 - 1)*q^200 + (a^7 -
        a^6 - a^5 - a^4 + a + 1)*q^202 + (a^7 + a^6 + a^5 - a^4 - a^3 - 
        a^2)*q^205 + (a^6 + a^5 - a^3 - a^2 - a)*q^208 + (a^4 + 1)*q^212 + (-a^7
        - a^6 + 2*a^3 + a^2 - 1)*q^218 + (a^5 + 2*a^4 + a^3)*q^221 + (-a^7 - a^6
        - a^5 + a^3 + a^2 - a - 1)*q^225 + (-a^3 + a^2)*q^226 + (a^7 + a^5 - a^2
        - 1)*q^229 + (a^7 + a^6 - a^5 - a^4 - a^3 + 1)*q^232 + (a^7 - a^3 - a^2 
        + 1)*q^233 + (a + 1)*q^234 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^5*q^2 - q^4 + (-a^7 + a)*q^5 - a^5*q^8 + a^2*q^9 + (a^6 + a^2)*q^10 + 
        (-a^4 - a^3)*q^13 + q^16 + (-a + 1)*q^17 + a^7*q^18 + (a^7 - a)*q^20 + 
        (-a^6 + 1)*q^25 + (-a^7 - a^6 + a^5 + a^4 - a^3 - a^2 + a + 1)*q^26 + 
        (2*a^6 - a^4 + a^2 - 1)*q^29 + a^5*q^32 + (-a^6 + a^5)*q^34 - a^2*q^36 +
        (a^7 - a^5 + a^4 + a^3 - a)*q^37 + (-a^6 - a^2)*q^40 + (-a^7 + a^5 + 
        a)*q^45 + a*q^49 + (a^5 + a)*q^50 + (a^4 + a^3)*q^52 + (a^4 - 1)*q^53 + 
        (-a^3 - a)*q^58 + (a^7 - a^5 - a)*q^61 - q^64 + (-a^5 - a^4 - a - 
        1)*q^65 + (a - 1)*q^68 - a^7*q^72 + (a^7 + a^6)*q^73 + (a^7 - a^5 - a^4 
        + a^3 - a)*q^74 + (-a^7 + a)*q^80 + a^4*q^81 + (-a^7 + a^6 - a^4 + a - 
        1)*q^85 + (-a^7 - a^6 + a^5 - a^3 + a)*q^89 + (a^6 + a^2 - 1)*q^90 - 
        2*a^2*q^97 + a^6*q^98 + (a^6 - 1)*q^100 + (-a^6 + a^3)*q^101 + (a^7 + 
        a^6 - a^5 - a^4 + a^3 + a^2 - a - 1)*q^104 + (a^7 - 2*a^5 + a^3 - 
        a)*q^106 + (a^7 - a^6 - a^5 + a^4 + a^3 - a^2 - a + 1)*q^109 + (-a^7 - 
        a^3)*q^113 + (-2*a^6 + a^4 - a^2 + 1)*q^116 + (-a^6 - a^5)*q^117 + 
        a^5*q^121 + (-a^6 - a^2 + 1)*q^122 - a^7*q^125 - a^5*q^128 + (-a^7 - a^6
        - a^3 + a + 1)*q^130 + (a^6 - a^5)*q^136 + (-a^7 + 1)*q^137 + a^2*q^144 
        + (2*a^7 + 2*a^3 - a)*q^145 + (-a^2 - a)*q^146 + (-a^7 + a^5 - a^4 - a^3
        + a)*q^148 + (a^5 - a^2)*q^149 + (-a^3 + a^2)*q^153 + (a^7 - a^6)*q^157 
        + (a^6 + a^2)*q^160 + (a^7 - a^5 + a^3 - a)*q^162 + (a^7 + 2*a^6 - a^4 +
        a^2 - 1)*q^169 + (-a^7 + a^6 - a^3 + a^2)*q^170 + (-a^6 - a^5)*q^173 + 
        (a^4 + a)*q^178 + (a^7 - a^5 - a)*q^180 + (-a^7 + a^3)*q^181 + (a^6 + 
        a^5 + a - 1)*q^185 + (a^7 - a^5)*q^193 - 2*a^7*q^194 - a*q^196 + (-a^7 +
        a^6 + a^5 - a^3 + a)*q^197 + (-a^5 - a)*q^200 + (a^6 - a^4 + a^2 + a - 
        1)*q^202 + (-a^4 - a^3)*q^208 + (-a^4 + 1)*q^212 + (-a^4 + a^3)*q^218 + 
        (a^5 - a^3)*q^221 + (-a^6 + a^4 + 1)*q^225 + (-a^6 + a^4 + 1)*q^226 + 
        (-a^2 - 1)*q^229 + (a^3 + a)*q^232 + (-a^7 + a^5 - a^3)*q^233 + (a + 
        1)*q^234 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 16*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^5 - 1)*q^2 - a^5*q^4 + (a^6 - a^4 - a^3 - a^2 + 1)*q^5 + q^8 + 
        a^4*q^9 + (-a^7 - a^6 + a^3 + 2*a^2 - 1)*q^10 + (-a^3 - a)*q^13 + (a^5 -
        1)*q^16 + (-a^7 - a^5)*q^17 + (a^7 + a^6 - a^4 - a^3 - a^2 + 1)*q^18 + 
        (a^7 + a^4 - a^2)*q^20 + (2*a^7 + 2*a^6 - a^5 - 2*a^4 - a^3 - a^2 + a + 
        2)*q^25 + (a^7 - a^6 - a^5 - a^4 + 2*a + 1)*q^26 + (-a^7 - a)*q^29 - 
        a^5*q^32 + (a^2 + 1)*q^34 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^36 + (2*a^7 -
        2*a^5 - 2*a^4 + 2*a + 2)*q^37 + (a^6 - a^4 - a^3 - a^2 + 1)*q^40 - 
        a^6*q^41 + (-a^6 - a^3 + a)*q^45 + a^2*q^49 + (-2*a^7 - a^6 + a^5 + a^4 
        + 2*a^3 + a^2 - 2*a - 2)*q^50 + (-a^7 + a^6 + a^5 + a^4 + a^3 - a - 
        1)*q^52 + (a^5 - a^3 - 1)*q^53 + (-a^6 + a^2 + a)*q^58 + (a^6 - 
        a^3)*q^61 + q^64 + (-a^7 + 2*a^5 + a^4 + a^3 + a^2 - a - 1)*q^65 + (a^7 
        + a^5 - a^2 - 1)*q^68 + a^4*q^72 + (-a^6 + a^3 - 1)*q^73 + (-2*a^7 + 
        2*a^5 + 2*a^4 + 2*a^3 - 2*a - 2)*q^74 + (-a^7 - a^6 + a^3 + 2*a^2 - 
        1)*q^80 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^81 + a*q^82 + (2*a^7 + 
        2*a^6 - a^3 - 2*a^2 + 1)*q^85 + (a^5 + a^4 + a^3 - a^2 - a - 1)*q^89 + 
        (a^7 + a^6 - a^5 - a^4 + a + 1)*q^90 + (-a^7 - a^6 + a^4 + a^3 + a^2 - 
        1)*q^97 + (a^7 - a^2)*q^98 + (-a^6 + a^4 - a^3 + a)*q^100 + (a^2 - 
        a)*q^101 + (-a^3 - a)*q^104 + (a^7 - 2*a^5 - a^4 + a + 1)*q^106 + (-a^7 
        - a^6 + a^5 + a^4 + a^3 - 1)*q^109 + (-a^7 - 2*a^6 + a^3 + a^2 + a - 
        1)*q^113 + (a^7 + a^6 - a^2)*q^116 + (-a^7 - a^5)*q^117 - a^5*q^121 + 
        (a^7 - a^5 - a^4 + 1)*q^122 + (2*a^7 + a^6 - 2*a^5 - a^4 - a^2 + a + 
        1)*q^125 + (a^5 - 1)*q^128 + (a^7 - a^3 - a^2 - 1)*q^130 + (-a^7 - 
        a^5)*q^136 + (-a^7 - a^6 + a^5 + a^3 + a^2 - 2)*q^137 + (a^7 + a^6 - a^4
        - a^3 - a^2 + 1)*q^144 + (2*a^6 + a^5 - a^2 - a + 1)*q^145 + (-a^7 + 
        a^4)*q^146 - 2*a^3*q^148 + (a^4 + 1)*q^149 + (-a^7 - 2*a^6 + a^3 + a^2 +
        a - 1)*q^153 + (a^7 + a^4 - a^2)*q^157 + (a^7 + a^4 - a^2)*q^160 - 
        a^3*q^162 + (a^6 - a)*q^164 + (a^6 + a^4 + a^2)*q^169 + (-a^7 - a^4 - 
        a)*q^170 + (-a^7 + 1)*q^173 + (-a^7 - a^3)*q^178 + (-a^7 + a^5 + a^4 + 
        a^3 - 2*a - 1)*q^180 + (a^4 - a)*q^181 + (2*a^7 - 2*a^5 - 2*a^2)*q^185 +
        (a^7 + a^6 + a^5 - a^4 - a^3 - a^2)*q^193 + (a^7 + a^6 - a^3 - a^2 + 
        1)*q^194 - a^7*q^196 + (a^7 - a^5 - a^4 + a^2 + a + 1)*q^197 + (2*a^7 + 
        2*a^6 - a^5 - 2*a^4 - a^3 - a^2 + a + 2)*q^200 + (a^7 - a^6 - a^2 + 
        a)*q^202 + (-a^7 + 2*a^5 + a^4 - a - 1)*q^205 + (a^7 - a^6 - a^5 - a^4 +
        2*a + 1)*q^208 + (-a^7 + a^5 + a^4 + a^3 - a)*q^212 + (a^6 - a^3)*q^218 
        + (-2*a^7 + a^6 + 3*a^5 + 2*a^4 + 2*a^3 - 2*a - 3)*q^221 + (a^5 - a^3 + 
        a^2 - 1)*q^225 + (a^6 + a^4)*q^226 + (-a^7 - a^6 - a^5 + a^3 + a^2 - 
        1)*q^229 + (-a^7 - a)*q^232 + (a^7 - a^3 - a^2)*q^233 + (a^2 + 1)*q^234 
        + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 20*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^3 - a)*q^2 + (-a^2 + 1)*q^4 + a^3*q^5 + a^3*q^8 + a^2*q^9 - a^2*q^10 
        + (a^3 - a - 1)*q^13 - a^2*q^16 + (-a^3 + a^2 + a - 1)*q^17 - a*q^18 + 
        a*q^20 + (-a^3 - a^2 + a + 1)*q^26 + a*q^32 + (-a^3 + a^2 - 1)*q^34 + 
        q^36 + (a^3 - a^2 - a)*q^37 - q^40 + (2*a^2 - 1)*q^41 + (a^3 - a)*q^45 +
        a*q^49 + (a^3 + a^2 - 1)*q^52 + (a^2 + 1)*q^53 - 2*a^3*q^61 - q^64 + 
        (-a^3 - a^2)*q^65 + (-a^3 + a^2)*q^68 + (a^3 - a)*q^72 + (a^3 - 1)*q^73 
        + (-a^2 + a + 1)*q^74 + (-a^3 + a)*q^80 + (a^2 - 1)*q^81 + (-a^3 - 
        a)*q^82 + (a^2 - a)*q^85 + (-a + 1)*q^89 + (-a^2 + 1)*q^90 + (-a^2 + 
        1)*q^97 - q^98 + (-a^3 + a^2 + a - 1)*q^101 + (-a^3 - a^2)*q^104 + (a^3 
        - 2*a)*q^106 + (-a^2 + a + 1)*q^109 + (-a^3 + a)*q^113 + (-a^2 - 
        a)*q^117 + a*q^121 + 2*a^2*q^122 + a^3*q^125 + (-a^3 + a)*q^128 + (a^2 +
        a)*q^130 + (a^2 - a)*q^136 + (-a^3 - a^2)*q^137 + (-a^2 + 1)*q^144 + 
        (-a^3 - a^2 + a)*q^146 + (a^3 - 1)*q^148 + (-a^3 - a^2)*q^149 + (a - 
        1)*q^153 + (-a^3 + a + 1)*q^157 + (a^2 - 1)*q^160 - a^3*q^162 + (a^2 + 
        1)*q^164 + (-a^3 - a^2 + a + 2)*q^169 + (-a + 1)*q^170 + (a^3 - 
        a^2)*q^173 + (a^3 - a + 1)*q^178 + a^3*q^180 + (-a^3 - a^2 + a)*q^185 - 
        a^3*q^193 + a^3*q^194 + (-a^3 + a)*q^196 + (-a^3 - a^2 + a + 1)*q^197 + 
        (-a^3 + a^2 - 1)*q^202 + (a^3 - 2*a)*q^205 + (a^2 + a)*q^208 + (-a^2 + 
        2)*q^212 + (a^3 - 1)*q^218 - a*q^221 + (a^2 - 1)*q^226 + (-a^2 + 
        2)*q^229 + 2*a^3*q^233 + (a + 1)*q^234 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 24*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^2 + q^4 + (-a^2 + a)*q^5 - q^8 + a^2*q^9 + (a^2 - a)*q^10 + (2*a^3 - 
        a^2 + a - 1)*q^13 + q^16 + (a + 1)*q^17 - a^2*q^18 + (-a^2 + a)*q^20 + 
        (a - 1)*q^25 + (-2*a^3 + a^2 - a + 1)*q^26 + (-a^3 - a)*q^29 - q^32 + 
        (-a - 1)*q^34 + a^2*q^36 + (a^2 - a)*q^40 - 2*a^3*q^41 + (a^2 - a + 
        1)*q^45 + a*q^49 + (-a + 1)*q^50 + (2*a^3 - a^2 + a - 1)*q^52 + (a^3 - 
        a^2 + a)*q^53 + (a^3 + a)*q^58 + (a^2 - a + 1)*q^61 + q^64 + (a^3 - a^2 
        + 2*a - 1)*q^65 + (a + 1)*q^68 - a^2*q^72 + (-a^2 - a)*q^73 + (-a^2 + 
        a)*q^80 + (a^3 - a^2 + a - 1)*q^81 + 2*a^3*q^82 + (-a^3 + a)*q^85 + 
        (-a^3 + a^2 - 2*a + 1)*q^89 + (-a^2 + a - 1)*q^90 + 2*a^2*q^97 - a*q^98 
        + (a - 1)*q^100 + (a^3 - a)*q^101 + (-2*a^3 + a^2 - a + 1)*q^104 + (-a^3
        + a^2 - a)*q^106 + (-2*a^3 + a^2 - a + 1)*q^109 + (a^3 - a^2)*q^113 + 
        (-a^3 - a)*q^116 + (-a - 1)*q^117 - q^121 + (-a^2 + a - 1)*q^122 + 
        a^2*q^125 - q^128 + (-a^3 + a^2 - 2*a + 1)*q^130 + (-a - 1)*q^136 + 
        (-a^2 + 1)*q^137 + a^2*q^144 - a*q^145 + (a^2 + a)*q^146 + (a^2 - 
        1)*q^149 + (a^3 + a^2)*q^153 + (-a^2 - a)*q^157 + (a^2 - a)*q^160 + 
        (-a^3 + a^2 - a + 1)*q^162 - 2*a^3*q^164 + (-a^3 - a^2 - a)*q^169 + (a^3
        - a)*q^170 + (-a - 1)*q^173 + (a^3 - a^2 + 2*a - 1)*q^178 + (a^2 - a + 
        1)*q^180 + (a^3 - a^2)*q^181 + (-a^2 - 1)*q^193 - 2*a^2*q^194 + a*q^196 
        + (-a^3 + a^2 - 2*a + 1)*q^197 + (-a + 1)*q^200 + (-a^3 + a)*q^202 + 
        (-2*a^3 + 2*a^2 - 2*a)*q^205 + (2*a^3 - a^2 + a - 1)*q^208 + (a^3 - a^2 
        + a)*q^212 + (2*a^3 - a^2 + a - 1)*q^218 + (3*a^3 - 2*a^2 + 2*a - 
        3)*q^221 + (a^3 - a^2)*q^225 + (-a^3 + a^2)*q^226 + (a^2 + 1)*q^229 + 
        (a^3 + a)*q^232 + (-a^3 + a^2 + 1)*q^233 + (a + 1)*q^234 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 30*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 40*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^2 - a*q^4 + q^5 - q^8 + (a - 1)*q^9 + (-a + 1)*q^10 + (-a + 
        2)*q^13 + (a - 1)*q^16 + (-2*a + 1)*q^17 + a*q^18 - a*q^20 + (-2*a + 
        1)*q^26 + (2*a - 2)*q^29 + a*q^32 + (-a - 1)*q^34 + q^36 - q^40 - q^41 +
        (a - 1)*q^45 + a*q^49 + (-a - 1)*q^52 + a*q^53 + 2*a*q^58 - 2*q^61 + 
        q^64 + (-a + 2)*q^65 + (a - 2)*q^68 + (-a + 1)*q^72 + (a - 1)*q^80 - 
        a*q^81 + (a - 1)*q^82 + (-2*a + 1)*q^85 + (a + 1)*q^89 + a*q^90 + a*q^97
        + q^98 + (-2*a + 1)*q^101 + (a - 2)*q^104 + q^106 + (a - 1)*q^113 + 
        2*q^116 + (2*a - 1)*q^117 + a*q^121 + (2*a - 2)*q^122 - q^125 + (-a + 
        1)*q^128 + (-2*a + 1)*q^130 + (2*a - 1)*q^136 + (a - 2)*q^137 - a*q^144 
        + (2*a - 2)*q^145 + (a - 2)*q^149 + (a + 1)*q^153 + (-a + 2)*q^157 + 
        a*q^160 - q^162 + a*q^164 + (-2*a + 2)*q^169 + (-a - 1)*q^170 + (a - 
        2)*q^173 + (-a + 2)*q^178 + q^180 + (-2*a + 2)*q^181 + q^193 + q^194 + 
        (-a + 1)*q^196 + (-2*a + 1)*q^197 + (-a - 1)*q^202 - q^205 + (2*a - 
        1)*q^208 + (-a + 1)*q^212 - 3*a*q^221 + a*q^226 + (-a + 1)*q^229 + (-2*a
        + 2)*q^232 - 2*q^233 + (a + 1)*q^234 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 48*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^2 + q^4 + (a^3 + a - 1)*q^5 + q^8 + (a^3 - a^2 + a - 1)*q^9 + (a^3 + a
        - 1)*q^10 + (-a^3 - a)*q^13 + q^16 + (a^2 + 1)*q^17 + (a^3 - a^2 + a - 
        1)*q^18 + (a^3 + a - 1)*q^20 + (-a^2 - 1)*q^25 + (-a^3 - a)*q^26 + (a^2 
        - a)*q^29 + q^32 + (a^2 + 1)*q^34 + (a^3 - a^2 + a - 1)*q^36 - 
        2*a^3*q^37 + (a^3 + a - 1)*q^40 - 2*a*q^41 + (-a^3 - a)*q^45 + a^2*q^49 
        + (-a^2 - 1)*q^50 + (-a^3 - a)*q^52 + (-a^3 + 1)*q^53 + (a^2 - a)*q^58 +
        (-a^3 - a)*q^61 + q^64 + (-a^3 + a^2 + 2)*q^65 + (a^2 + 1)*q^68 + (a^3 -
        a^2 + a - 1)*q^72 + (a^3 + a - 1)*q^73 - 2*a^3*q^74 + (a^3 + a - 1)*q^80
        - a^3*q^81 - 2*a*q^82 + (2*a^3 - a^2 + a - 2)*q^85 + (-a^3 + a^2)*q^89 +
        (-a^3 - a)*q^90 + (2*a^3 - 2*a^2 + 2*a - 2)*q^97 + a^2*q^98 + (-a^2 - 
        1)*q^100 + (a^2 - a)*q^101 + (-a^3 - a)*q^104 + (-a^3 + 1)*q^106 + (-a^3
        - a)*q^109 + (a^3 - a^2 - 1)*q^113 + (a^2 - a)*q^116 + (a^2 + 1)*q^117 +
        q^121 + (-a^3 - a)*q^122 + (-a^3 + a^2 - a + 1)*q^125 + q^128 + (-a^3 + 
        a^2 + 2)*q^130 + (a^2 + 1)*q^136 + (a^3 - a^2 + a)*q^137 + (a^3 - a^2 + 
        a - 1)*q^144 - a^2*q^145 + (a^3 + a - 1)*q^146 - 2*a^3*q^148 + (a^3 - 
        a^2 + a)*q^149 + (a^3 - a^2 - 1)*q^153 + (a^3 + a - 1)*q^157 + (a^3 + a 
        - 1)*q^160 - a^3*q^162 - 2*a*q^164 + (a^3 - 1)*q^169 + (2*a^3 - a^2 + a 
        - 2)*q^170 + (a^2 + 1)*q^173 + (-a^3 + a^2)*q^178 + (-a^3 - a)*q^180 + 
        (a^3 - a^2 - 1)*q^181 + (2*a^2 + 2)*q^185 + (a^3 - a^2 + a)*q^193 + 
        (2*a^3 - 2*a^2 + 2*a - 2)*q^194 + a^2*q^196 + (-a^3 + a^2)*q^197 + (-a^2
        - 1)*q^200 + (a^2 - a)*q^202 + (-2*a^3 + 2)*q^205 + (-a^3 - a)*q^208 + 
        (-a^3 + 1)*q^212 + (-a^3 - a)*q^218 + (-2*a^3 - a + 1)*q^221 + (-a^3 + 
        a^2 + 1)*q^225 + (a^3 - a^2 - 1)*q^226 + (a^3 - a^2 + a)*q^229 + (a^2 - 
        a)*q^232 + (-a^3 + a^2)*q^233 + (a^2 + 1)*q^234 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 60*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^2 - q^4 + 2*a*q^5 - a*q^8 - q^9 - 2*q^10 + (a - 1)*q^13 + q^16 + (-a
        + 1)*q^17 - a*q^18 - 2*a*q^20 - 3*q^25 + (-a - 1)*q^26 + a*q^32 + (a + 
        1)*q^34 + q^36 + (a + 1)*q^37 + 2*q^40 - 2*a*q^45 + a*q^49 - 3*a*q^50 + 
        (-a + 1)*q^52 + 2*a*q^61 - q^64 + (-2*a - 2)*q^65 + (a - 1)*q^68 + 
        a*q^72 + (-a - 1)*q^73 + (a - 1)*q^74 + 2*a*q^80 + q^81 + (2*a + 2)*q^85
        + (-a + 1)*q^89 + 2*q^90 + 2*q^97 - q^98 + 3*q^100 + (-a + 1)*q^101 + (a
        + 1)*q^104 + (a - 1)*q^109 + 2*a*q^113 + (-a + 1)*q^117 + a*q^121 - 
        2*q^122 - 4*a*q^125 - a*q^128 + (-2*a + 2)*q^130 + (-a - 1)*q^136 + (a +
        1)*q^137 - q^144 + (-a + 1)*q^146 + (-a - 1)*q^148 + (a + 1)*q^149 + (a 
        - 1)*q^153 + (-a + 1)*q^157 - 2*q^160 + a*q^162 - a*q^169 + (2*a - 
        2)*q^170 + (-a + 1)*q^173 + (a + 1)*q^178 + 2*a*q^180 + (2*a - 2)*q^185 
        - 2*a*q^193 + 2*a*q^194 - a*q^196 + (-a - 1)*q^197 + 3*a*q^200 + (a + 
        1)*q^202 + (a - 1)*q^208 + (-a - 1)*q^218 + 2*a*q^221 + 3*q^225 - 
        2*q^226 - 2*a*q^233 + (a + 1)*q^234 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 80*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + (a - 1)*q^4 - q^5 + q^8 - a*q^9 + a*q^10 + (-a + 1)*q^13 - 
        a*q^16 - q^17 + (a - 1)*q^18 + (-a + 1)*q^20 - q^26 - 2*a*q^29 + (a - 
        1)*q^32 + a*q^34 + q^36 - 2*a*q^37 - q^40 - q^41 + a*q^45 + (a - 1)*q^49
        + a*q^52 + (-a + 1)*q^53 + (2*a - 2)*q^58 + 2*q^61 + q^64 + (a - 1)*q^65
        + (-a + 1)*q^68 - a*q^72 + 2*q^73 + (2*a - 2)*q^74 + a*q^80 + (a - 
        1)*q^81 + a*q^82 + q^85 + a*q^89 + (-a + 1)*q^90 + (-a + 1)*q^97 + q^98 
        - q^101 + (-a + 1)*q^104 - q^106 + (2*a - 2)*q^109 + a*q^113 + 2*q^116 -
        q^117 + (a - 1)*q^121 - 2*a*q^122 + q^125 - a*q^128 + q^130 - q^136 + 
        (-a + 1)*q^137 + (a - 1)*q^144 + 2*a*q^145 - 2*a*q^146 + 2*q^148 + (-a +
        1)*q^149 + a*q^153 + (-a + 1)*q^157 + (-a + 1)*q^160 + q^162 + (-a + 
        1)*q^164 - a*q^170 + (-a + 1)*q^173 + (-a + 1)*q^178 - q^180 - 2*a*q^181
        + 2*a*q^185 - q^193 - q^194 - a*q^196 - q^197 + a*q^202 + q^205 - q^208 
        + a*q^212 + 2*q^218 + (a - 1)*q^221 + (-a + 1)*q^226 + a*q^229 - 
        2*a*q^232 + 2*q^233 + a*q^234 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
964
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 120*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^10 + q^16 - q^29 + q^36 - q^40 - q^41 + q^49 - q^53 + q^64
        - q^77 + q^81 - q^90 - q^97 - q^98 - q^116 + q^121 - q^122 - q^133 + 
        q^144 - q^154 - q^160 - q^161 - q^164 + q^169 + q^196 - q^209 - q^212 - 
        q^217 - q^226 - q^229 + O(q^238),
    q^2 + q^8 - q^10 + q^18 - q^25 - q^29 + q^32 - q^40 - q^41 + q^50 - q^53 + 
        q^72 - q^77 - q^90 - q^97 - q^100 - q^116 + 2*q^121 - q^122 + 2*q^125 + 
        q^128 + q^133 + 2*q^145 - q^154 - q^160 + q^161 + q^162 - q^164 + 
        2*q^181 + q^200 + 2*q^205 - q^209 - q^212 - q^217 - q^225 - q^226 - 
        q^229 + 2*q^233 + O(q^238),
    q^5 - q^10 + q^20 - q^25 - q^29 - q^40 - q^41 + q^45 + q^49 + q^50 - q^53 + 
        q^58 + q^61 + q^80 + q^82 - q^90 - q^97 - q^98 - q^100 + q^106 + q^113 -
        q^116 - q^122 + q^125 - q^133 + q^145 - q^160 - q^161 - q^164 + q^180 + 
        q^193 + q^194 + q^196 + q^200 + q^205 - q^212 - q^225 - q^226 - q^229 + 
        q^232 + O(q^238),
    q^7 - q^14 - q^19 - q^23 + q^28 + q^35 + q^38 - q^43 + q^46 - q^56 + q^63 - 
        q^70 + q^71 - q^76 + q^86 - q^92 - q^95 + q^112 - q^115 - q^126 + q^131 
        + q^139 + q^140 - q^142 + q^152 + q^163 - q^167 - q^171 - q^172 + q^179 
        + q^184 + q^190 - q^203 - q^207 - q^215 - q^224 + q^227 + q^230 + 
        O(q^238),
    q^11 - q^14 - q^19 + q^22 - q^23 + q^31 + q^35 - q^43 + q^44 - q^55 - q^56 +
        q^62 - q^76 + q^88 - q^92 + q^99 + q^103 - q^110 + q^124 - q^126 + q^127
        + q^140 - q^142 - q^155 - q^167 - q^171 - q^172 + q^176 + q^190 + q^198 
        + q^199 + q^206 - q^207 - q^220 - q^224 + q^230 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
192
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
192
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
96
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
96
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
64
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
64
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
32
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
32
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 16*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 16*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 24*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 24*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 32*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 48*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 48*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 64*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
965
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 96*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
192
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
966
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
966
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
966
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
966
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
966
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
966
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
966
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
966
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
966
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
966
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
966
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
966
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^4*q^4 + a^8*q^7 + (-a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - a^3 - a + 
        1)*q^8 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^9 + 
        (a^4 - a^3)*q^11 + (-a^8 + a^5 - 1)*q^16 - a*q^23 + a^2*q^25 + a*q^28 + 
        (-a^9 - a^5)*q^29 + (a^9 - a^6 + a^3 - 1)*q^32 + a^3*q^36 + (-a^7 + 
        a^2)*q^37 + (a^6 + a^4)*q^43 + (-a^8 + a^7)*q^44 - a^5*q^49 + (a^9 - a^8
        + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^53 + (-a^9 + a^8 + a^6 - a^5 + 
        a^4 - a^3 + a^2 - a + 1)*q^56 - a^7*q^63 + (a^9 + a^7 - a^6 - a^4 + 
        a)*q^64 + (-a^9 + a^6)*q^67 + (a^8 - a^7)*q^71 + (a^9 + a)*q^72 + (-a + 
        1)*q^77 + (-a^5 - a)*q^79 - a^9*q^81 + (-a^6 + a^5 + a^3 - a^2)*q^88 + 
        a^5*q^92 + (-a^3 + a^2)*q^99 - a^6*q^100 + (-a^9 - a^3)*q^107 + (-a^3 + 
        1)*q^109 + (-a^8 + a^5 - a^2)*q^112 + (-a^3 - a)*q^113 + (a^9 - 
        a^2)*q^116 + (a^8 - a^7 + a^6)*q^121 + (a^9 + a^7 - a^6 + a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^127 + (-a^9 + a^8 + a^6 - a^3 + 1)*q^128 + (-a^7 + 
        a^4)*q^137 + (-a^9 + a^8 + a^6 - a^5 - a^3 + a^2 - a + 1)*q^144 + (-a^6 
        - 1)*q^148 + (a^9 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^149 + 
        (-a^5 - a)*q^151 - a^9*q^161 + (a^4 + 1)*q^163 + a^6*q^169 + (-a^9 - a^7
        + a^6 - a^5 + a^4 - a^3 + a^2 - a + 1)*q^172 + (a^9 - a^8 + a^7 - a^6 + 
        a^5 - a^4 + a^3 - a^2 + a - 1)*q^175 + (a^9 - a^8 - a^4 + a^3 + a - 
        1)*q^176 + (a^2 + 1)*q^179 + (a^3 - 1)*q^184 + (-a^5 + 1)*q^191 + (-a^5 
        + a^4)*q^193 + a^9*q^196 + (a^4 + a^2)*q^197 + (-a^4 + a)*q^200 + (a^6 +
        a^2)*q^203 + q^207 + (-a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^211 + (-a^9 + a^8 - a^7 + a^6 - a^5 + a^4 + a^2 - a + 1)*q^212 + 
        (-a^8 - a^6 + a^3 - 1)*q^224 - a*q^225 + (-a^8 + a^7 - a^4 - 1)*q^232 + 
        (a^8 + a^2)*q^233 + (-a^7 + a^2)*q^239 - q^252 + (-a^5 + a^4)*q^253 + 
        (-a^9 + a^6 + a^4 - a)*q^256 + (a^9 - a^8 + a^7 - a^6 + a^5 + a^3 - a^2 
        + a - 1)*q^259 + (a^8 + a^4)*q^261 + (a^9 - a^8 - a^6 + a^5 - a^4 + a^3 
        - a^2 + a - 1)*q^263 + (-a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - a^3 - a + 
        1)*q^268 + (a^6 - a^5)*q^275 + (a^8 - a^3)*q^277 + (a^9 - a^8 + a^7 - 
        a^6 + a^5 - a^4 - a^2 + a - 1)*q^281 + (a - 1)*q^284 + (-a^9 - a^7 + a^6
        + a^4 - a^3 - a + 1)*q^288 - a^3*q^289 + (a^9 - a^6 - a^4 + a)*q^296 + 
        (-a^3 - a)*q^301 + (a^5 - a^4)*q^308 + (a^9 + a^5)*q^316 + (-a^9 + 
        a^4)*q^317 + (-a^9 + a^8 + a^2 - a)*q^319 - a^2*q^324 + (-a^9 + 1)*q^331
        + (a^6 - a)*q^333 + (-a + 1)*q^337 + a^2*q^343 + (-a^8 - a^6 + a^5 + 
        a^3)*q^344 + (a^9 - a^8 + a^7 - a^6 - a^4 + a^3 - a^2 + a - 1)*q^347 + 
        (a^8 - a^5 + 1)*q^352 + (-a^9 + 1)*q^359 + a^8*q^361 + (a^9 - a^6 + 
        a)*q^368 + O(q^370),
    q^2 + (-a^9 + a^6)*q^4 + (-a^7 + a^4 - a)*q^8 + a^8*q^14 + (a^9 - a^8 - a^6 
        - a^4 + a^3 + a - 1)*q^16 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^18 + (a^4 - a^3)*q^22 + (a^6 - a^3)*q^28 + (a^8 - a^5 - 
        a^3 + a^2 + 1)*q^32 + (a^8 - a^5)*q^36 + (-a^8 + a^7 - a^6 + a^5 - a^4 +
        a^3 - 1)*q^44 - a*q^46 + a^2*q^50 + (-a^9 + a^4 - a)*q^56 + (-a^9 - 
        a^5)*q^58 + (-a^9 + a^8 + a^6 - a^3 - a + 1)*q^64 + (a^6 - a^3 + 1)*q^72
        + (-a^7 + a^2)*q^74 + (a^6 + a^4)*q^86 + (a^9 - a^6 + a^3 - a^2 + 
        a)*q^88 + (a^9 - a^8 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^92 - 
        a^5*q^98 + (a^8 + 1)*q^100 + (a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + 
        a - 1)*q^106 + (a^9 - a^8 - a^6 + a^5 + a^3 + a - 1)*q^112 + (-a^7 + a^4
        - a^3 + 1)*q^116 - a^7*q^126 + (-a^8 + a^5 - a^2 - 1)*q^128 + (-a^9 + 
        a^6)*q^134 + (a^8 - a^7)*q^142 + (-a^9 + a^6 + a^4 - a)*q^144 + (a^8 - 
        a^5 + a^2 + 1)*q^148 + (-a + 1)*q^154 + (-a^5 - a)*q^158 - a^9*q^162 + 
        (a^9 - a^8 + a^7 - a^6 + a^5 + a^3 - 1)*q^172 + (a^7 - a^4 + a)*q^176 + 
        (a^8 - a^5 + a^2)*q^184 + (-a^3 + 1)*q^196 + (-a^3 + a^2)*q^198 + (-a^9 
        + a^6 - a^3)*q^200 + (a^8 - a^5 + a^4 - a)*q^212 + (-a^9 - a^3)*q^214 + 
        (-a^3 + 1)*q^218 + (a^9 + a^7 - a^6 - a^4 + a^3 + a)*q^224 + (-a^3 - 
        a)*q^226 + (-a^8 + a^7 - a^4 + a^3 - 1)*q^232 + (a^8 - a^7 + a^6)*q^242 
        + (-a^5 + a^2)*q^252 + (a^9 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^254 + (-a^6 + a^3 - 1)*q^256 + (-a^7 + 2*a^4 - a)*q^268 + (-a^7 + 
        a^4)*q^274 + (a^6 - a^5 - a^3 + a^2)*q^284 + (a^9 - a^8 - a^6 + a^5 + 
        a^3 - 1)*q^288 + (-a^9 + a^8 + a^6 - 2*a^3 + 1)*q^296 + (a^9 + a^7 - a^6
        + a^5 - a^4 + a^3 - a^2 + a - 1)*q^298 + (-a^5 - a)*q^302 + (-a^8 + a^5 
        - a^4 + a^3 - a^2 + a - 1)*q^308 + (a^9 - a^8 - a^6 + a^5 - a^4 - a^2 + 
        a)*q^316 - a^9*q^322 + (-a^7 + a^4)*q^324 + (a^4 + 1)*q^326 + a^6*q^338 
        + (a^9 - a^6 - a^4 + a^3 + a)*q^344 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4
        + a^3 - a^2 + a - 1)*q^350 + (-a^9 + a^8 - a^7 + 2*a^6 - a^5 + a^4 - a^3
        - a + 1)*q^352 + (a^2 + 1)*q^358 + (a^8 + a^6 - a^3 + 1)*q^368 + 
        O(q^370),
    q^3 - a^4*q^12 + a^8*q^21 + (-a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - a^3 - a + 
        1)*q^24 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^27 +
        (a^4 - a^3)*q^33 + (-a^8 + a^5 - 1)*q^48 - a*q^69 + a^2*q^75 + a*q^84 + 
        (-a^9 - a^5)*q^87 + (a^9 - a^6 + a^3 - 1)*q^96 + a^3*q^108 + (-a^7 + 
        a^2)*q^111 + (a^6 + a^4)*q^129 + (-a^8 + a^7)*q^132 - a^5*q^147 + (a^9 -
        a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^159 + (-a^9 + a^8 + a^6 - 
        a^5 + a^4 - a^3 + a^2 - a + 1)*q^168 - a^7*q^189 + (a^9 + a^7 - a^6 - 
        a^4 + a)*q^192 + (-a^9 + a^6)*q^201 + (a^8 - a^7)*q^213 + (a^9 + 
        a)*q^216 + (-a + 1)*q^231 + (-a^5 - a)*q^237 - a^9*q^243 + (-a^6 + a^5 +
        a^3 - a^2)*q^264 + a^5*q^276 + (-a^3 + a^2)*q^297 - a^6*q^300 + (-a^9 - 
        a^3)*q^321 + (-a^3 + 1)*q^327 + (-a^8 + a^5 - a^2)*q^336 + (-a^3 - 
        a)*q^339 + (a^9 - a^2)*q^348 + (a^8 - a^7 + a^6)*q^363 + O(q^370),
    q^6 + (-a^9 + a^6)*q^12 + (-a^7 + a^4 - a)*q^24 + a^8*q^42 + (a^9 - a^8 - 
        a^6 - a^4 + a^3 + a - 1)*q^48 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3
        - a^2 + a - 1)*q^54 + (a^4 - a^3)*q^66 + (a^6 - a^3)*q^84 + (a^8 - a^5 -
        a^3 + a^2 + 1)*q^96 + (a^8 - a^5)*q^108 + (-a^8 + a^7 - a^6 + a^5 - a^4 
        + a^3 - 1)*q^132 - a*q^138 + a^2*q^150 + (-a^9 + a^4 - a)*q^168 + (-a^9 
        - a^5)*q^174 + (-a^9 + a^8 + a^6 - a^3 - a + 1)*q^192 + (a^6 - a^3 + 
        1)*q^216 + (-a^7 + a^2)*q^222 + (a^6 + a^4)*q^258 + (a^9 - a^6 + a^3 - 
        a^2 + a)*q^264 + (a^9 - a^8 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^276
        - a^5*q^294 + (a^8 + 1)*q^300 + (a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2
        + a - 1)*q^318 + (a^9 - a^8 - a^6 + a^5 + a^3 + a - 1)*q^336 + (-a^7 + 
        a^4 - a^3 + 1)*q^348 + O(q^370)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
966
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 + q^8 - q^9 - q^13 + q^23 + q^25 + q^27 - q^29 - q^31 - q^32 + q^36 
        - q^41 - q^47 + q^49 + q^52 + 2*q^59 + q^64 - q^71 - q^72 - q^73 - q^92 
        - q^100 + 2*q^101 - q^104 - q^108 + q^116 + q^117 + q^121 + q^124 - 
        q^127 - q^131 - q^139 - q^151 - q^163 + q^164 + 2*q^167 + 2*q^173 - 
        q^179 + q^184 + q^188 - q^193 - q^196 - q^197 + q^200 - q^207 + 2*q^211 
        + q^216 + 2*q^223 - q^225 - q^232 - q^233 - 2*q^236 - q^239 - q^243 - 
        q^248 - q^256 - q^257 + q^261 - q^269 + 2*q^271 - q^277 + q^279 + q^284 
        + q^288 + q^289 + q^292 - q^299 + 2*q^307 - q^311 + 2*q^317 - q^325 - 
        q^328 - q^331 + 2*q^347 - q^349 - q^351 - q^353 + q^361 + q^369 + 
        O(q^370),
    q^2 - q^4 + q^16 - q^18 - q^26 - q^32 + q^36 + q^46 + q^50 + q^52 + q^54 - 
        q^58 - q^62 - q^82 - q^92 - q^94 + q^98 - q^100 - q^108 + q^116 + 
        2*q^118 + q^124 + q^128 - q^142 - q^144 - q^146 + q^164 + q^188 - q^196 
        + 2*q^202 - q^208 + q^234 - 2*q^236 + q^242 - q^254 - q^256 - q^262 - 
        q^278 + q^284 + q^288 + q^292 - q^302 - q^326 + 2*q^334 + 2*q^346 - 
        q^358 + q^368 + O(q^370),
    q^3 - q^9 - q^12 + q^24 + q^36 - q^39 + q^69 - q^72 + q^75 + q^81 - q^87 - 
        q^93 - q^96 + q^117 - q^123 - q^141 + q^147 + q^156 + 2*q^177 + q^192 - 
        q^207 - q^213 - q^219 - q^225 - q^243 + q^261 - q^276 + q^279 + q^288 - 
        q^300 + 2*q^303 - q^312 - q^324 + q^348 + q^363 + q^369 + O(q^370),
    q^6 - q^12 - q^18 + q^36 + q^48 - q^78 - q^96 + q^138 - q^144 + q^150 + 
        q^156 + q^162 - q^174 - q^186 + q^234 - q^246 - q^276 - q^282 + q^288 + 
        q^294 - q^300 - q^324 + q^348 + 2*q^354 + O(q^370),
    q^7 - q^28 + q^56 - q^63 - q^91 + q^161 + q^175 + q^189 - q^203 - q^217 - 
        q^224 + q^252 - q^287 - q^329 + q^343 + q^364 + O(q^370),
    q^14 - q^28 + q^112 - q^126 - q^182 - q^224 + q^252 + q^322 + q^350 + q^364 
        + O(q^370),
    q^21 - q^63 - q^84 + q^168 + q^252 - q^273 + O(q^370),
    q^42 - q^84 - q^126 + q^252 + q^336 + O(q^370)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
966
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
966
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
966
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
370
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
967
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
966
);
qprec:=
161
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
967
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
322
);
qprec:=
161
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
967
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
161
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
967
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
161
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
967
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
23*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
161
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
967
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
69*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
161
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
967
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
161*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
161
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
967
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
483*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
161
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - q^61 - q^62 - q^68 - q^71 + q^81 - q^83 - q^88 - 
        q^106 - q^113 + q^121 - q^137 - q^146 + O(q^161),
    q^2 + q^18 - q^31 - q^34 - q^44 + q^50 - q^53 - q^73 - q^88 + q^98 - q^118 +
        q^121 + q^127 + q^131 - q^139 + q^149 + q^157 + O(q^161),
    q^4 - q^17 - q^22 + q^36 - q^44 - q^59 + q^61 + q^71 + q^83 + q^100 - q^103 
        + q^113 - q^128 - q^136 + q^137 - q^151 - q^153 + O(q^161),
    q^8 - q^16 - q^17 - q^22 + q^31 + q^32 + q^34 + q^53 - q^59 - q^62 - q^64 - 
        q^68 + q^72 + q^73 - q^103 - q^106 + q^118 + q^122 + q^124 + q^139 + 
        q^142 - q^144 - q^146 - q^151 - q^153 + O(q^161),
    q^11 - q^16 - q^17 + q^32 + q^34 - q^59 - q^62 + q^97 + q^99 + q^101 - q^103
        - q^106 + q^118 + q^124 - q^144 - q^146 - q^151 - q^153 + O(q^161)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
968
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 + q^9 - q^37 - q^45 + q^49 - q^53 + q^81 - q^89 - q^97 - q^113 + 
        q^125 + 2*q^137 + 2*q^157 - q^181 + q^185 + O(q^218),
    q^2 + q^8 - q^10 + q^18 + q^32 - q^40 - q^52 - q^68 + q^72 - q^74 - q^90 + 
        q^98 - q^106 - q^116 + q^128 - q^160 + q^162 - q^164 - q^178 - q^194 - 
        q^208 + O(q^218),
    q^4 + q^16 - q^20 - q^26 - q^34 + q^36 - q^58 + q^64 - q^80 - q^82 - q^104 +
        2*q^122 + q^130 - q^136 + q^144 + 2*q^146 - q^148 + q^170 - q^180 + 
        q^196 + 2*q^202 - q^212 + O(q^218),
    q^13 + q^17 + q^29 + q^41 - 2*q^61 - q^65 - 2*q^73 - q^85 - 2*q^101 + q^109 
        + q^117 - q^145 + q^149 + q^153 - 2*q^173 + q^193 + q^197 - q^205 + 
        O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
968
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 + q^25 - q^27 - q^34 - q^38 + q^49 - q^59 + q^64 - q^67 + 
        q^100 - q^102 - q^108 - q^113 - q^114 - q^136 - q^152 - q^163 + q^169 - 
        q^177 - q^179 + q^196 - q^201 + O(q^218),
    q^2 + q^8 - q^17 - q^19 + q^32 + q^50 - q^51 - q^54 - q^57 - q^68 - q^76 + 
        q^98 - q^118 + q^123 + q^128 + q^129 - q^131 - q^134 + 2*q^139 + q^153 +
        q^171 + 2*q^193 + q^200 - q^204 - q^216 + O(q^218),
    q^3 - q^9 + q^12 - q^34 - q^36 - q^38 + q^48 - q^59 - q^67 + q^75 + q^82 + 
        q^86 + q^89 + q^97 - q^113 - q^136 + q^137 - q^144 + q^146 + q^147 - 
        q^152 - q^163 + q^166 - q^179 + q^192 + q^214 + O(q^218),
    q^6 - q^17 - q^18 - q^19 + q^24 + q^41 + q^43 - q^68 - q^72 + q^73 - q^76 + 
        q^83 + q^96 + q^107 - q^118 - q^123 - q^129 - q^131 - q^134 + q^150 + 
        q^164 + q^172 + q^178 + q^194 + q^211 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
968
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
110
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
968
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
110
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
968
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
110
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
968
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
110
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + (-a^39 + a^37 + a^34 - a^32 + a^31 - a^29 + a^28 + a^27 - a^26 +
        2*a^24 - a^23 - a^22 + a^21 - a^20 - a^19 + a^18 - a^16 + a^15 + a^14 - 
        a^13 + a^11 - a^10 + a^8 + a^5 - a^3 - 1)*q^3 + a^2*q^4 + (-a^39 - a^38 
        + a^34 + a^33 - a^32 - a^29 + a^27 - a^25 + a^24 - a^22 + a^21 - a^19 - 
        a^16 + a^14 + a^11 - a^10 - a^9 + a^5 + a^4 - 1)*q^6 - a^3*q^8 + (a^37 -
        a^29 - a^26 + a^15 - a^11 - a^4)*q^9 + a^8*q^11 + (a^33 + a^26 - a^22 + 
        a^11 - 1)*q^12 + a^4*q^16 + (a^39 + a^36 + a^35 - a^34 - a^31 + a^29 - 
        a^28 + a^26 - a^25 - 2*a^24 + a^23 - a^21 + a^20 + a^19 - a^18 + a^17 + 
        a^16 - a^15 + 2*a^13 - a^12 - a^11 + a^10 - a^8 + a^7 - a^5 - 2*a^2 + 
        1)*q^17 + (-a^38 + a^30 + a^27 - a^16 + a^12 + a^5)*q^18 + (a^36 + 
        a^20)*q^19 - a^9*q^22 + (-a^34 - a^27 + a^23 - a^12 + a)*q^24 + 
        a^38*q^25 + (a^39 - a^37 - a^35 - a^34 + a^32 + a^29 - a^28 - a^27 + 
        a^26 - a^24 + a^23 + a^22 - a^21 + a^19 - a^18 - a^17 + 2*a^16 - a^15 - 
        a^14 + a^13 - a^11 + a^10 + a^9 - a^8 - a^5 + a^3 + 1)*q^27 - a^5*q^32 +
        (a^39 + a^32 - a^28 + a^17 - a^6)*q^33 + (a^39 - a^37 - a^36 - a^34 + 
        a^32 + a^29 - a^28 - a^27 + a^26 + a^25 - a^24 + a^23 + a^22 - a^21 + 
        a^19 - a^18 + a^16 - a^15 - 2*a^14 + a^13 - a^11 + a^10 + a^9 - a^8 - 
        a^5 + 2*a^3 + 1)*q^34 + (a^39 - a^31 - a^28 + a^17 - a^13 - a^6)*q^36 + 
        (-a^37 - a^21)*q^38 + (-a^27 - a^19)*q^41 + (-a^39 - a^36 + a^34 + a^31 
        - a^30 - a^29 + a^28 - a^26 + a^25 + a^24 - a^23 + a^21 - a^20 + a^18 - 
        a^17 - a^16 + a^15 - a^13 + a^12 + a^11 - a^10 - a^9 - a^7 + a^5 + a^2 -
        1)*q^43 + a^10*q^44 + (a^35 + a^28 - a^24 + a^13 - a^2)*q^48 + a^14*q^49
        - a^39*q^50 + (-a^39 - a^33 - a^21 - a^15)*q^51 + (a^39 + a^38 + a^36 - 
        a^34 - a^33 + a^29 - a^27 - a^24 + a^22 + a^19 + a^18 - a^17 + a^16 - 
        a^14 - a^11 + a^9 - a^5 - a^4 + 1)*q^54 + (a^33 - a^23 - a^22 + a^11 - 
        a^7 - a^5 - 1)*q^57 + (a^34 + a^30)*q^59 + a^6*q^64 + (a^39 - a^35 - 
        a^34 - a^33 + a^30 + a^29 - a^28 - a^25 + a^23 + a^20 - a^18 + a^17 - 
        a^15 - a^12 + a^10 + a^7 - a^6 - a^5 + a + 1)*q^66 + (-a^23 + a^12)*q^67
        + (a^39 + a^38 + a^37 - a^34 - a^33 + a^29 - a^27 - a^26 - a^24 + a^22 +
        a^19 + a^16 + a^15 - a^14 - a^11 + a^9 - a^5 - 2*a^4 + 1)*q^68 + (a^39 -
        a^35 - a^34 + a^32 + a^30 + a^29 - a^28 - a^25 + a^23 + a^20 - a^18 + 
        a^17 - a^15 + a^14 - a^12 + a^10 + a^7 - a^6 - a^5 + a + 1)*q^72 + 
        (-a^13 + a^6)*q^73 + (-a^25 - a^7)*q^75 + (a^38 + a^22)*q^76 + (-2*a^39 
        - a^36 + a^35 + 2*a^34 + a^31 - 2*a^30 - a^29 + 2*a^28 - a^26 + 2*a^25 +
        a^24 - 2*a^23 + a^22 + a^21 - 2*a^20 + a^18 - 2*a^17 - a^16 + 2*a^15 - 
        a^13 + 2*a^12 + a^11 - 2*a^10 - a^7 + a^6 + 2*a^5 + a^4 - a^3 + a^2 - a 
        - 2)*q^81 + (a^28 + a^20)*q^82 + (-a^39 + a^35 + a^34 - a^30 + a^28 + 
        a^25 - a^23 - a^20 + a^18 - a^17 + a^15 + a^12 - a^10 + a^6 + a^5 - a - 
        1)*q^83 + (-a^39 + a^37 + a^34 - a^32 + a^31 - a^29 + a^28 + a^27 - a^26
        + a^24 - a^23 - a^22 + a^21 - a^20 - a^19 + a^18 - a^16 + a^15 + a^14 - 
        a^13 + a^11 + a^8 + a^5 - a^3 - 1)*q^86 - a^11*q^88 + (a^34 - a^31)*q^89
        + (-a^36 - a^29 + a^25 - a^14 + a^3)*q^96 + (-a^15 + a^2)*q^97 - 
        a^15*q^98 + (-a^37 - a^19 - a)*q^99 + (-a^39 + a^35 + a^34 - a^30 + a^28
        + a^25 - a^23 - a^20 - a^17 + a^15 + a^12 - a^10 + a^6 + a^5 - a - 
        1)*q^100 + (-a^39 + a^35 + 2*a^34 - a^30 + a^28 + a^25 - a^23 + a^22 - 
        a^20 - a^17 + a^16 + a^15 + a^12 - a^10 + a^6 + a^5 - a - 1)*q^102 + 
        (-a^38 + a^27 + a^22 - a^16 + a^5)*q^107 + (-a^37 - a^19 + a^18 + 
        1)*q^108 + (-a^35 + a^26)*q^113 + (-a^34 + a^24 + a^23 - a^12 + a^8 + 
        a^6 + a)*q^114 + (-a^35 - a^31)*q^118 + a^16*q^121 + (-a^38 - a^35 + 
        a^33 - a^32 + a^30 - a^28 + a^27 - a^25 + a^24 + a^23 - a^22 + a^21 + 
        a^20 - a^19 - a^18 + a^17 - a^16 - a^15 + 2*a^14 - a^12 + a^11 - a^9 + 
        a^7 + a^4 + a)*q^123 - a^7*q^128 + (a^39 - a^35 - a^34 - a^33 + a^30 + 
        a^29 - a^25 + a^23 + a^20 - a^18 + a^17 - a^15 - a^12 + 2*a^10 + a^7 - 
        a^6 - a^5 + a + 1)*q^129 + (-a^38 + a^36 + a^33 - a^32 - a^31 - a^28 + 
        a^27 + a^26 - a^25 + a^23 - a^22 + a^20 - a^18 + a^17 - a^15 + a^14 + 
        a^13 - a^12 - a^9 - a^8 + a^7 + a^4 - a^2)*q^131 + (a^39 + a^36 - a^31 +
        a^29 - a^28 + a^26 - a^25 - a^24 + a^23 - a^21 + a^20 + a^19 - a^18 + 
        a^17 + a^16 - a^15 + a^13 - a^12 - a^11 + a^10 - a^8 + a^7 - a^5 - a^2 +
        1)*q^132 + (a^24 - a^13)*q^134 + (-a^38 + a^27 - a^16 + a^5 + 1)*q^136 +
        (-a^34 + a^23 + a^18 - a^12 + a)*q^137 + (-a^36 + a^32 + a^25 - a^14 + 
        a^3)*q^139 + (a^39 + a^36 - a^34 - a^33 - a^31 + a^29 - a^28 + a^26 - 
        a^25 - a^24 + a^23 - a^21 + a^20 + a^19 - a^18 + a^17 + a^16 - 2*a^15 + 
        a^13 - a^12 - a^11 + a^10 - a^8 + a^7 - a^5 - a^2 + 1)*q^144 + (a^14 - 
        a^7)*q^146 + (a^38 - a)*q^147 + (a^26 + a^8)*q^150 + (-a^39 - 
        a^23)*q^152 + (-a^39 - a^34 + a^26 + a^23 + a^20 - a^12 + a^8 + a^2 + 
        a)*q^153 + (-2*a^39 + a^37 - a^36 + 2*a^34 - a^32 + 2*a^31 - a^30 - 
        2*a^29 + 2*a^28 + a^27 - 2*a^26 + a^25 + 2*a^24 - 3*a^23 - a^22 + 2*a^21
        - 2*a^20 - a^19 + 2*a^18 - a^17 - 2*a^16 + 2*a^15 + a^14 - 2*a^13 + a^12
        + 2*a^11 - 2*a^10 + a^8 - a^7 + a^5 + a^4 - a^3 + a^2 - 2)*q^162 + (a^39
        + a^38 - a^34 - a^33 + a^29 + a^28 - a^27 - a^24 + a^22 + a^19 + a^16 - 
        a^14 - a^11 + a^9 - a^5 - a^4 + 1)*q^163 + (-a^29 - a^21)*q^164 + (-a^39
        - a^36 + a^34 + a^31 - a^30 - a^29 + a^28 - a^26 + a^25 + a^24 - a^23 + 
        a^21 - a^20 - a^19 + a^18 - a^17 - a^16 + a^15 - a^13 + a^12 + a^11 - 
        a^10 - a^7 + a^5 + a^2 - 1)*q^166 - a^37*q^169 + (-a^38 - a^36 - a^31 - 
        a^29 + a^27 + a^25 - a^16 - a^14 - a^13 + a^10 + a^5 + a^3)*q^171 + 
        (-a^39 - a^38 + a^34 + a^33 - a^32 - a^29 + a^27 + a^24 - a^22 + a^21 - 
        a^19 - a^16 + a^14 - a^10 - a^9 + a^5 + a^4 - 1)*q^172 + a^12*q^176 + 
        (a^39 + a^38 - a^34 - a^33 + a^29 - a^27 - a^24 + a^22 - a^21 + a^19 - 
        a^17 + a^16 - a^14 - a^11 + a^9 - a^5 - a^4 - a^3 + 1)*q^177 + (-a^35 + 
        a^32)*q^178 + (-a^25 - a^11)*q^179 + (a^39 + a^38 - a^34 - a^33 + a^29 -
        a^27 - a^24 + a^22 + a^19 + a^16 - a^14 - a^11 + a^9 - 2*a^5 - a^4 + 
        1)*q^187 + (a^37 + a^30 - a^26 + a^15 - a^4)*q^192 + (a^24 + a^4)*q^193 
        + (a^16 - a^3)*q^194 + a^16*q^196 + (a^38 + a^20 + a^2)*q^198 + (-a^39 -
        a^36 + a^34 + a^31 - a^30 - a^29 + a^28 - a^26 + a^25 + a^24 - a^23 + 
        a^21 - a^20 + a^18 - a^17 - a^16 + a^15 - a^13 + a^12 + a^11 - a^10 - 
        a^7 + a^5 + a^2 - 1)*q^200 + (a^39 + a^38 - a^34 - a^33 + a^29 - a^27 + 
        a^25 - a^24 + a^22 + a^19 + a^16 - 2*a^14 - a^11 + a^10 + a^9 - a^5 - 
        a^4 + a^3 + 1)*q^201 + (-a^39 - a^36 - a^35 + a^34 + a^31 - a^30 - a^29 
        + a^28 - a^26 + a^25 + a^24 - 2*a^23 + a^21 - a^20 + a^18 - 2*a^17 - 
        a^16 + a^15 - a^13 + a^12 + a^11 - a^10 - a^7 + a^5 + a^2 - 1)*q^204 + 
        (a^33 + a^28 - a^22 + a^11 - 1)*q^209 + (a^39 - a^28 + a^17 + a^12 - 
        a^6)*q^211 + (a^39 - a^28 - a^23 + a^17 - a^6)*q^214 + (a^38 + a^20 - 
        a^19 - a)*q^216 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
968
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
968
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
968
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
968
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + (-a^9 + a^2)*q^3 + a^2*q^4 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 
        - a^2 + a - 1)*q^6 - a^3*q^8 + (-a^7 + a^4 + 1)*q^9 + a^8*q^11 + (a^4 + 
        1)*q^12 + a^4*q^16 + (a^8 + a^2)*q^17 + (a^8 - a^5 - a)*q^18 + (-a^9 - 
        a^3)*q^19 - a^9*q^22 + (-a^5 - a)*q^24 - a^5*q^25 + (-a^9 + a^6 - a^5 + 
        a^2)*q^27 - a^5*q^32 + (a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^33 + (-a^9 - a^3)*q^34 + (-a^9 + a^6 + a^2)*q^36 + (a^9 - a^8 + a^7
        - a^6 + a^5 + a^3 - a^2 + a - 1)*q^38 + (a^8 - a^5)*q^41 + (-a^9 + 
        a^8)*q^43 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^44
        + (a^6 + a^2)*q^48 - a^3*q^49 + a^6*q^50 + (a^9 - a^8 + a^7 + a^5 + a^3 
        - a^2 + a)*q^51 + (a^9 - a^8 + a^5 - a^4 - a^2 + a - 1)*q^54 + (-a^7 - 
        a^5 - a + 1)*q^57 + (a^8 - a)*q^59 + a^6*q^64 + (-a^7 + 1)*q^66 - 
        2*a*q^67 + (a^9 - a^8 + a^7 - a^6 + a^5 + a^3 - a^2 + a - 1)*q^68 + (a^9
        - a^8 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^72 + (a^6 + a^2)*q^73 + (-a^7 -
        a^3)*q^75 + (-a^5 + 1)*q^76 + (a^8 - a^7 + a^4 - a^3 + 1)*q^81 + (-a^9 +
        a^6)*q^82 - 2*a^7*q^83 + (-a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a -
        1)*q^86 + q^88 + (-a^9 - a)*q^89 + (-a^7 - a^3)*q^96 + (a^4 + a^2)*q^97 
        + a^4*q^98 + (a^8 + a^4 - a)*q^99 - a^7*q^100 + (-a^7 - a^5 - a + 
        1)*q^102 + (-a^5 + 1)*q^107 + (a^8 - a^7 + a^4 + 1)*q^108 + (a^4 + 
        a^2)*q^113 + (a^8 + a^6 + a^2 - a)*q^114 + (-a^9 + a^2)*q^118 - 
        a^5*q^121 + (a^9 - a^8 + a^5 - a^4 - a^2 + a - 1)*q^123 - a^7*q^128 + 
        (a^9 - a^8 + a^5 - a^4 + a^3 - a^2 + a)*q^129 + (a^9 + a^7 - a^6 + a^5 -
        a^4 + a^3 - a^2 + a - 1)*q^131 + (a^8 - a)*q^132 + 2*a^2*q^134 + (-a^5 +
        1)*q^136 + (-a^7 - a)*q^137 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 +
        a - 1)*q^139 + (a^8 + a^4 + 1)*q^144 + (-a^7 - a^3)*q^146 + (-a^5 - 
        a)*q^147 + (a^8 + a^4)*q^150 + (a^6 - a)*q^152 + (-a^9 + a^8 + a^6 + a^4
        + a^2 - a)*q^153 + (-a^9 + a^8 - a^5 + a^4 - a)*q^162 + (a^9 - a^8 + a^7
        + a^5 - a^4 + a^3 - a^2 + a - 1)*q^163 + (a^9 - a^8 - a^6 + a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^164 + 2*a^8*q^166 + a^4*q^169 + (-a^8 - a^6 - a^4 +
        a - 1)*q^171 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a)*q^172
        - a*q^176 + (2*a^9 - 2*a^8 + 2*a^7 - a^6 + 2*a^5 - 2*a^4 + a^3 - 2*a^2 +
        2*a - 2)*q^177 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^178
        + (-a^3 + 1)*q^179 + (a^9 - a^8 + a^7 - a^6 - a^4 + a^3 - a^2 + a - 
        1)*q^187 + (a^8 + a^4)*q^192 + (a^4 + a^2)*q^193 + (-a^5 - a^3)*q^194 - 
        a^5*q^196 + (-a^9 - a^5 + a^2)*q^198 + a^8*q^200 + (2*a^9 - 2*a^8 + 
        2*a^7 - 2*a^6 + 2*a^5 - 2*a^4 - 2*a^2 + 2*a - 2)*q^201 + (a^8 + a^6 + 
        a^2 - a)*q^204 + (a^6 + 1)*q^209 + (a^6 - a)*q^211 + (a^6 - a)*q^214 + 
        (-a^9 + a^8 - a^5 - a)*q^216 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
968
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 + a^2 - a + 1)*q^3 + a^2*q^5 + a*q^15 - q^23 + a^2*q^27 - a^3*q^31
        - a*q^37 - a^2*q^49 - a*q^59 + q^67 + (a^3 - a^2 + a - 1)*q^69 - 
        a^2*q^71 + a*q^81 - q^89 - a^2*q^93 + a^3*q^97 - q^111 + (a^3 - a^2 + a 
        - 1)*q^113 - a^2*q^115 + 2*a^3*q^119 + a*q^125 + (a^3 - a^2 + a - 
        1)*q^135 + a^2*q^137 - a*q^147 + q^155 + (-a^3 + a^2 - a + 1)*q^157 - 
        a*q^169 - q^177 + (a^3 - a^2 + a - 1)*q^179 - a^2*q^181 - a^3*q^185 + 
        a*q^191 + (-a^3 + a^2 - a + 1)*q^201 - a*q^213 + O(q^218),
    q^7 - a*q^17 + (-a^3 + a^2 - a + 1)*q^21 + a^2*q^35 + (a^3 - a^2 + a - 
        1)*q^43 - q^51 - a^2*q^79 + a*q^83 - a^3*q^85 - a^2*q^101 + a*q^105 + 
        a^3*q^107 + (a^3 - a^2 + a - 1)*q^109 + a^3*q^129 + (-a^3 + a^2 - a + 
        1)*q^131 - q^139 + a*q^149 - a^3*q^151 - q^161 + a^3*q^173 + a^2*q^189 +
        (a^3 - a^2 + a - 1)*q^197 - a*q^215 - a^3*q^217 + O(q^218)
]
;
Bo:=
[
    q + (-a^3 + a^2 - a + 1)*q^3 - a^2*q^5 - a*q^15 - q^23 + a^2*q^27 + a^3*q^31
        + a*q^37 + (2*a^3 - 2*a^2 + 2*a - 2)*q^47 + a^2*q^49 - 2*a^3*q^53 + 
        a*q^59 - q^67 + (a^3 - a^2 + a - 1)*q^69 - a^2*q^71 + a*q^81 - q^89 + 
        a^2*q^93 + a^3*q^97 - 2*a*q^103 + q^111 + (-a^3 + a^2 - a + 1)*q^113 + 
        a^2*q^115 - a*q^125 + (-a^3 + a^2 - a + 1)*q^135 - a^2*q^137 + 
        2*a^3*q^141 + a*q^147 + q^155 + (-a^3 + a^2 - a + 1)*q^157 - 2*a^2*q^159
        - 2*a^3*q^163 - a*q^169 + q^177 + (-a^3 + a^2 - a + 1)*q^179 - a^2*q^181
        - a^3*q^185 + a*q^191 + 2*q^199 + (a^3 - a^2 + a - 1)*q^201 - a*q^213 + 
        O(q^218),
    q^2 + (-a^3 + a^2 - a + 1)*q^6 - a^2*q^10 - a*q^30 - q^46 + a^2*q^54 + 
        a^3*q^62 + a*q^74 + (2*a^3 - 2*a^2 + 2*a - 2)*q^94 + a^2*q^98 - 
        2*a^3*q^106 + a*q^118 - q^134 + (a^3 - a^2 + a - 1)*q^138 - a^2*q^142 + 
        a*q^162 - q^178 + a^2*q^186 + a^3*q^194 - 2*a*q^206 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
968
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
968
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 22*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^3 + a^2 - a + 1)*q^5 - a*q^9 - a^2*q^37 - q^45 + (a^3 - a^2 + a - 
        1)*q^49 + a*q^53 + a^2*q^81 - q^89 + a*q^97 + a^3*q^113 + a^2*q^125 + 
        (2*a^3 - 2*a^2 + 2*a - 2)*q^137 - 2*a^3*q^157 + (-a^3 + a^2 - a + 
        1)*q^181 - a*q^185 + O(q^218),
    q^2 + a^2*q^8 + (-a^3 + a^2 - a + 1)*q^10 - a*q^18 + (a^3 - a^2 + a - 
        1)*q^32 + a*q^40 - a^2*q^52 - q^68 - a^3*q^72 - a^2*q^74 - q^90 + (a^3 -
        a^2 + a - 1)*q^98 + a*q^106 + a^3*q^116 - a*q^128 + a^3*q^160 + 
        a^2*q^162 + (-a^3 + a^2 - a + 1)*q^164 - q^178 + a*q^194 + (-a^3 + a^2 -
        a + 1)*q^208 + O(q^218),
    q^4 + a^2*q^16 + (-a^3 + a^2 - a + 1)*q^20 - q^26 + a^3*q^34 - a*q^36 + 
        a*q^58 + (a^3 - a^2 + a - 1)*q^64 + a*q^80 - a^2*q^82 - a^2*q^104 - 
        2*a^3*q^122 + (a^3 - a^2 + a - 1)*q^130 - q^136 - a^3*q^144 - 2*a*q^146 
        - a^2*q^148 + a^2*q^170 - q^180 + (a^3 - a^2 + a - 1)*q^196 + 2*q^202 + 
        a*q^212 + O(q^218),
    q^13 - a^3*q^17 - a*q^29 + a^2*q^41 + 2*a^3*q^61 + (-a^3 + a^2 - a + 1)*q^65
        + 2*a*q^73 - a^2*q^85 - 2*q^101 + (a^3 - a^2 + a - 1)*q^109 - a*q^117 - 
        q^145 - a^3*q^149 + (a^3 - a^2 + a - 1)*q^153 - 2*a^2*q^173 - a^3*q^193 
        + (a^3 - a^2 + a - 1)*q^197 + a*q^205 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
968
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 22*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^4 + (a^2 - a)*q^6 + (a^3 - a^2 + a - 1)*q^16 + (-a^2 + a)*q^17 + 
        (-a^3 + a^2 - a)*q^18 + (a - 1)*q^19 + (-a^2 + a - 1)*q^24 - a^3*q^25 + 
        (-a^3 + a^2 - a + 1)*q^27 - q^34 + (-a^3 + a^2 - a + 1)*q^38 + (-a + 
        1)*q^41 + (-a^3 + a^2)*q^43 + (a^3 - a^2 + a - 1)*q^49 - a^2*q^59 - 
        a*q^64 - q^67 + (a^2 - a + 1)*q^68 + (-a^2 + a)*q^72 + (a^3 - a^2 + 
        a)*q^73 + (a^3 - a^2)*q^76 + (a^2 - a)*q^83 + (-a + 1)*q^96 + q^100 + 
        a^3*q^102 + (-a + 1)*q^107 + a*q^108 + a^3*q^113 - a^2*q^114 + (a - 
        1)*q^118 + (a^2 - a + 1)*q^123 + (a - 1)*q^129 + (a^3 - a^2)*q^131 + 
        (a^2 - a + 1)*q^134 - a^2*q^136 + (a^3 - a^2 + a)*q^150 + a*q^152 + 
        a*q^163 + (-a^3 + a^2)*q^164 + a^2*q^169 + (a^3 - a^2 + a)*q^172 - q^177
        + (-a^2 + a - 1)*q^178 + a^3*q^179 + (a^3 - a^2 + a)*q^194 - a*q^196 + 
        a^3*q^201 + (-a^2 + a - 1)*q^211 + O(q^218),
    q^2 + (-a + 1)*q^6 + a^2*q^8 + (a^3 + a - 1)*q^17 + (a^2 - a + 1)*q^18 + 
        (-a^3 - a)*q^19 + (-a^3 + a^2)*q^24 + (a^3 - a^2 + a - 1)*q^32 + (a^3 - 
        a^2 + a)*q^41 + (a^2 - a)*q^43 - a^3*q^50 + a*q^51 + (-a^3 + a^2 - a + 
        1)*q^54 - q^57 + (a^3 - a^2 - 1)*q^68 + (a - 1)*q^72 + (-a^2 + a - 
        1)*q^73 + (-a^3 + 1)*q^76 + (-a + 1)*q^83 + (a^3 - a^2 + a)*q^96 + (a^3 
        - a^2 + a - 1)*q^98 + (a^3 - a^2 + a)*q^107 + (-a^3 - a)*q^118 + (a^3 - 
        a^2 + 1)*q^123 - a*q^128 + (-a^3 + 2*a^2 - a)*q^129 + (-a^3 + 1)*q^131 +
        (a^3 - a^2 - 1)*q^134 - 2*a*q^139 + (-a^2 + a - 1)*q^150 + (a^3 - a^2 + 
        a - 1)*q^153 + (a^2 - a)*q^164 - a^3*q^171 + (-a^2 + a - 1)*q^172 + 
        (-a^3 + a^2)*q^178 - 2*a^3*q^193 + (-a^2 + a - 1)*q^194 + q^200 + 
        a^3*q^204 + (-a^3 + a^2)*q^211 + a*q^216 + O(q^218),
    q^3 + a*q^6 + a^3*q^9 + a^2*q^12 - a*q^17 + (a^3 - a^2 + a - 1)*q^18 + q^19 
        + a^3*q^24 - a^2*q^34 - q^36 + a*q^38 - q^41 - a^2*q^43 + (a^3 - a^2 + a
        - 1)*q^48 + (-a^3 + a^2 - a + 1)*q^59 - a^2*q^67 - a^3*q^68 - a*q^72 + 
        (-a^3 + a^2 - a + 1)*q^73 - a^3*q^75 + a^2*q^76 - a*q^82 + a*q^83 - 
        a^3*q^86 + a^2*q^89 - q^96 - a^3*q^97 - q^107 - q^113 + q^118 - 
        a^3*q^123 + q^129 + a^2*q^131 - a^3*q^134 + (-a^3 + a^2 - a + 1)*q^136 -
        a*q^137 - a^2*q^144 + q^146 + (a^3 - a^2 + a - 1)*q^147 + (-a^3 + a^2 - 
        a + 1)*q^150 + a^3*q^152 + a^3*q^163 - a^2*q^164 + a^2*q^166 + (-a^3 + 
        a^2 - a + 1)*q^172 + a^3*q^178 - q^179 - a*q^192 + (-a^3 + a^2 - a + 
        1)*q^194 + a^3*q^211 - a*q^214 + O(q^218)
]
;
Bo:=
[
    q - a*q^2 + (a^3 + a - 1)*q^3 + a^2*q^4 + (-a^3 + 1)*q^6 - a^3*q^8 + (-a^2 -
        1)*q^9 + (a^3 - a^2 - 1)*q^12 + (a^3 - a^2 + a - 1)*q^16 + (a^2 - 
        a)*q^17 + (a^3 + a)*q^18 + (-a + 1)*q^19 + (a^2 + 1)*q^24 - a^3*q^25 + 
        (-a^3 + a^2 - a + 1)*q^27 + q^32 + (-a^3 + a^2)*q^34 + (-a^3 - a + 
        1)*q^36 + (a^2 - a)*q^38 + (a^3 + a - 1)*q^41 + (a^3 - a^2 - 1)*q^43 + 
        (-a^3 - a)*q^48 + (a^3 - a^2 + a - 1)*q^49 + (a^3 - a^2 + a - 1)*q^50 - 
        a^2*q^51 - q^54 + a*q^57 + (a^3 - a^2 + a)*q^59 - a*q^64 + (-a^3 + 
        a^2)*q^67 + (-a^2 + a - 1)*q^68 + (a^3 - 1)*q^72 + (-a^3 - a)*q^73 + 
        (a^2 + 1)*q^75 + (-a^3 + a^2)*q^76 + (-a^3 + 1)*q^82 + (-a^3 + 1)*q^83 +
        (a^2 + 1)*q^86 + (a^3 - a^2 - 1)*q^89 + (a^3 + a - 1)*q^96 + (a^2 + 
        1)*q^97 + q^98 + q^100 + a^3*q^102 + (a^3 + a - 1)*q^107 + a*q^108 + (-a
        + 1)*q^113 - a^2*q^114 + (-a + 1)*q^118 + (-a^2 - a - 1)*q^123 + 
        a^2*q^128 + (-2*a^3 - a + 1)*q^129 + (-a^3 + a^2)*q^131 + (-a^2 + a - 
        1)*q^134 + (a^3 - a^2 + a)*q^136 + (-a^3 + 1)*q^137 + 2*a^2*q^139 + 
        (-a^3 + a^2 + 1)*q^144 + (a^3 + a - 1)*q^146 + (-a^3 - a)*q^147 + (-a^3 
        - a)*q^150 + (-a^2 + a - 1)*q^152 + q^153 + (-a^2 + a - 1)*q^163 + (a^3 
        - a^2 - 1)*q^164 + (a^3 - a^2 - 1)*q^166 + a^2*q^169 + (a^3 - a^2 + a - 
        1)*q^171 + (-a^3 - a)*q^172 - q^177 + (a^2 + 1)*q^178 + (-a + 1)*q^179 +
        (-a^3 + 1)*q^192 + (2*a^3 - 2*a^2 + 2*a - 2)*q^193 + (-a^3 - a)*q^194 - 
        a*q^196 - a*q^200 + a^3*q^201 + (-a^3 + a^2 - a + 1)*q^204 + (a^2 + 
        1)*q^211 + (-a^3 + 1)*q^214 - a^2*q^216 + O(q^218),
    q^11 - a*q^22 + (a^3 + a - 1)*q^33 + a^2*q^44 + (-a^3 + 1)*q^66 - a^3*q^88 +
        (-a^2 - 1)*q^99 - a^3*q^121 + (a^3 - a^2 - 1)*q^132 + (a^3 - a^2 + a - 
        1)*q^176 + (a^2 - a)*q^187 + (a^3 + a)*q^198 + (-a + 1)*q^209 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
968
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
55*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^3 + q^5 - q^15 - q^23 + q^27 + q^31 + q^37 - q^49 + q^59 + q^67 + q^69
        - q^71 - q^81 - q^89 - q^93 - q^97 - q^111 + q^113 - q^115 - 2*q^119 - 
        q^125 + q^135 + q^137 + q^147 + q^155 - q^157 + q^169 - q^177 + q^179 - 
        q^181 + q^185 - q^191 - q^201 + q^213 + O(q^218),
    q^7 + q^17 - q^21 + q^35 + q^43 - q^51 - q^79 - q^83 + q^85 - q^101 - q^105 
        - q^107 + q^109 - q^129 - q^131 - q^139 - q^149 + q^151 - q^161 - q^173 
        + q^189 + q^197 + q^215 + q^217 + O(q^218)
]
;
Bo:=
[
    q - q^3 - q^5 + q^15 - q^23 + q^27 - q^31 - q^37 + 2*q^47 + q^49 + 2*q^53 - 
        q^59 - q^67 + q^69 - q^71 - q^81 - q^89 + q^93 - q^97 + 2*q^103 + q^111 
        - q^113 + q^115 + q^125 - q^135 - q^137 - 2*q^141 - q^147 + q^155 - 
        q^157 - 2*q^159 + 2*q^163 + q^169 + q^177 - q^179 - q^181 + q^185 - 
        q^191 + 2*q^199 + q^201 + q^213 + O(q^218),
    q^2 - q^6 - q^10 + q^30 - q^46 + q^54 - q^62 - q^74 + 2*q^94 + q^98 + 
        2*q^106 - q^118 - q^134 + q^138 - q^142 - q^162 - q^178 + q^186 - q^194 
        + 2*q^206 + O(q^218),
    q^11 - q^33 - q^55 + q^121 + q^165 + O(q^218),
    q^22 - q^66 - q^110 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
968
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 55*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
144
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
144
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^4 + (a^5 - a^2)*q^9 + a^5*q^13 + (a^4 + 1)*q^15 + a^4*q^16 - 
        a^5*q^19 + (-a^5 - a + 1)*q^25 + (-a^3 + a^2)*q^33 - a*q^36 + (a^5 + a^3
        - a^2 - 1)*q^43 - a^3*q^49 - a^5*q^51 + (a^4 - a)*q^52 + (a^5 - a^3 - 
        a^2 + a)*q^55 + (a^3 + a^2 - 1)*q^60 + (a^3 - 1)*q^64 + (-a^4 + a + 
        1)*q^67 + (-a^5 - a^4 + a)*q^69 + (-a^4 + a)*q^76 + (-a^4 + a)*q^81 + 
        (a^3 - a - 1)*q^85 + a^3*q^87 + (-a^4 - a^3 + a^2 + a)*q^100 - 
        2*a^3*q^103 + (a^5 - a^2 - a - 1)*q^115 - a^4*q^117 + (-a^5 - a^4 + a^3 
        + a - 1)*q^121 + (a^3 - a - 1)*q^123 + (a^4 + a^3 - 1)*q^127 + (-a^5 + 
        a^4)*q^132 + (a^5 - a^3 - a^2)*q^135 - a^3*q^144 + (-a^5 - a^4 + 
        a^2)*q^145 + (-a^5 + a^4)*q^151 + (-a^5 + 1)*q^157 + a^4*q^171 + (a^5 - 
        a^2 - a)*q^172 + (a^5 - a^2 + 1)*q^187 + (a^5 - 1)*q^195 - a^5*q^196 + 
        (-a^4 + a)*q^204 + (-a^4 + a^3 + 2*a^2 + a - 1)*q^205 - q^208 + (-a^3 - 
        a)*q^213 + (-a^5 + a^3 - a)*q^220 + (-a^3 + a^2)*q^223 + (a^5 + a^4 - 
        a^2 + 1)*q^225 + (-a^5 + a^4)*q^229 + O(q^234),
    q^3 + (-a^5 - a)*q^5 + (a^4 - a^3)*q^11 + a^2*q^12 + (a^3 - 1)*q^17 + (-a^4 
        - a^3 + a)*q^20 + (a^5 + a^3 - a^2 - 1)*q^23 + (a^5 - a^2)*q^27 - 
        a^4*q^29 + a^5*q^39 + (-a^4 + a^2 + a)*q^41 + (-a^5 + a^3 - 1)*q^44 + 
        (a^4 + 1)*q^45 + a^4*q^48 - a^5*q^57 + (-a^3 + a + 1)*q^65 + (a^5 - 
        a^2)*q^68 + (a^4 + a^2)*q^71 + (-a^5 - a + 1)*q^75 + (-a^5 + 1)*q^80 + 
        (a^5 - a^2 - a)*q^92 + (a^3 - a - 1)*q^95 + (-a^3 + a^2)*q^99 + (-a^4 + 
        a^3 + a - 1)*q^107 - a*q^108 + (-a^4 - a^3 + a)*q^113 + (-a^3 + 1)*q^116
        + (-a^5 + a^3 + a^2 - a - 1)*q^125 + (a^5 + a^3 - a^2 - 1)*q^129 + (-a^3
        + 1)*q^131 + (-a^5 + a^2 - 1)*q^143 - a^3*q^147 - a^5*q^153 + (a^4 - 
        a)*q^156 + (a^4 + 1)*q^164 + (a^5 - a^3 - a^2 + a)*q^165 + (a^4 - 
        a)*q^167 + (a^2 - a)*q^173 + (a^5 - a^4 - a^2 + a)*q^176 + (a^3 + a^2 - 
        1)*q^180 + (a^3 - 1)*q^192 - a^2*q^197 + (-a^4 + a + 1)*q^201 + (-a^5 - 
        a^4 + a)*q^207 + (a^5 - a^2 + 1)*q^209 + (a^2 + a + 1)*q^215 - a^2*q^221
        + a^5*q^227 + (-a^4 + a)*q^228 + (a^4 + a^2)*q^233 + O(q^234)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + (a - 1)*q^4 - q^7 + (a - 1)*q^9 + q^12 + (-a + 1)*q^13 - a*q^16 
        + q^19 + a*q^21 + (a - 1)*q^25 + q^27 + (-a + 1)*q^28 - q^31 - a*q^36 - 
        q^37 - q^39 + a*q^43 + (a - 1)*q^48 + a*q^52 - a*q^57 + (-a + 1)*q^61 + 
        (-a + 1)*q^63 + q^64 + (-a + 1)*q^67 + a*q^73 + q^75 + (a - 1)*q^76 + 
        a*q^79 - a*q^81 - q^84 + (a - 1)*q^91 + a*q^93 - 2*a*q^97 - a*q^100 - 
        q^103 + (a - 1)*q^108 - 2*a*q^109 + a*q^111 + a*q^112 + a*q^117 + q^121 
        + (-a + 1)*q^124 + (2*a - 2)*q^127 + (-a + 1)*q^129 - q^133 + (-a + 
        1)*q^139 + q^144 + (-a + 1)*q^148 + 2*q^151 + (-a + 1)*q^156 + a*q^157 -
        q^163 + (a - 1)*q^171 - q^172 + (-a + 1)*q^175 + (2*a - 2)*q^181 - q^183
        - q^189 - a*q^192 + a*q^193 + (-a + 1)*q^199 - q^201 - q^208 + a*q^211 +
        q^217 + (-a + 1)*q^219 + a*q^223 - a*q^225 + q^228 - q^229 + O(q^234),
    q^17 - a*q^51 + (a - 1)*q^68 - q^119 + (a - 1)*q^153 + q^204 + (-a + 
        1)*q^221 + O(q^234)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*(3*a - 3)*q^13 + 1/2*(-a + 1)*q^15 + 1/2*(a - 2)*q^19 + 1/2*a*q^21 +
        1/2*(a - 1)*q^25 - q^30 + 1/2*a*q^33 + 1/2*(-a + 1)*q^34 - a*q^36 + 
        1/2*q^49 + 1/2*(a - 1)*q^51 - 1/2*a*q^52 - 1/2*a*q^55 + 1/2*a*q^60 + 
        q^64 - 1/2*q^69 + (-a + 1)*q^70 - 1/2*q^76 - a*q^81 + 1/2*q^84 + q^87 - 
        1/2*a*q^93 - q^94 + 1/2*a*q^100 - 1/2*q^102 + 1/2*q^103 + 1/2*a*q^111 + 
        3/2*q^115 - 1/2*a*q^117 - 1/2*q^121 + 1/2*(-a + 1)*q^123 + 1/2*(-3*a + 
        3)*q^127 - 1/2*q^132 + 1/2*a*q^135 + a*q^138 + q^144 - q^145 - 1/2*q^151
        - a*q^166 - 3/2*a*q^169 - 1/2*q^171 - q^172 + 1/2*q^183 + 1/2*a*q^187 + 
        1/2*q^189 + a*q^195 + 1/2*(a - 1)*q^196 + q^202 - 1/2*a*q^204 + 1/2*(-a 
        + 1)*q^205 + 1/2*q^208 + 1/2*(-a + 1)*q^213 + 1/2*q^217 + 1/2*(-a + 
        1)*q^219 + 1/2*q^220 + a*q^223 + 1/2*a*q^225 - q^229 + O(q^234),
    q^2 - a*q^15 + 1/2*q^17 + (-a + 1)*q^18 + (a - 1)*q^26 + a*q^32 + q^35 - 
        q^38 + a*q^42 - a*q^47 + (a - 1)*q^50 - 1/2*a*q^51 - q^60 + 1/2*(-a + 
        1)*q^68 + (a - 1)*q^69 + (-a + 1)*q^83 - a*q^86 + a*q^101 + 1/2*q^119 + 
        a*q^123 + (a - 1)*q^134 - q^135 + (-a + 1)*q^140 - q^149 + 1/2*(-a + 
        1)*q^153 - q^155 - a*q^161 - a*q^162 + (a - 1)*q^170 + q^185 - a*q^186 -
        q^188 + q^195 - 1/2*q^204 - q^206 + 1/2*(a - 1)*q^221 + a*q^222 + 
        2*q^230 + O(q^234),
    q^3 + (a - 1)*q^7 - 2*a*q^10 + (-a + 1)*q^12 + (-a + 1)*q^27 + a*q^28 + (-a 
        + 1)*q^31 - a*q^34 + (a - 1)*q^37 + (a - 1)*q^39 + (2*a - 2)*q^46 + 
        a*q^48 - q^57 + a*q^61 + a*q^63 + q^73 + (a - 1)*q^75 + q^79 + 2*a*q^82 
        - a*q^85 - 2*q^90 - a*q^91 + (-a + 1)*q^102 - a*q^108 - q^112 - a*q^124 
        - a*q^129 + 2*q^130 + (-a + 1)*q^133 - a*q^139 + a*q^148 + a*q^156 + 
        (-2*a + 2)*q^160 + (-a + 1)*q^163 - a*q^175 + 2*a*q^190 + q^192 - q^193 
        - a*q^199 + (a - 1)*q^201 + (-2*a + 2)*q^210 + q^211 - 2*q^214 + (a - 
        1)*q^228 + O(q^234),
    q^4 + q^9 + 1/2*q^13 - 1/2*q^15 + (a - 1)*q^16 + 1/2*(-a + 1)*q^19 + 1/2*(a 
        - 1)*q^21 - 1/2*q^25 - a*q^30 + 1/2*(-a + 1)*q^33 + 1/2*q^34 + (-a + 
        1)*q^43 - 1/2*a*q^49 + 1/2*q^51 + 1/2*(3*a - 3)*q^52 + 1/2*(a - 1)*q^55 
        + 1/2*(-a + 1)*q^60 - q^67 + 1/2*a*q^69 + q^70 + 1/2*(a - 2)*q^76 + 
        1/2*a*q^84 - q^85 - a*q^87 + 1/2*(-a + 1)*q^93 - a*q^94 + 1/2*(a - 
        1)*q^100 - 1/2*a*q^102 - 3/2*a*q^103 + 1/2*(a - 1)*q^111 + 1/2*a*q^115 +
        1/2*(3*a - 3)*q^117 - 1/2*a*q^121 - 1/2*q^123 + 1/2*q^127 + 1/2*a*q^132 
        + 1/2*(-a + 1)*q^135 + (a - 1)*q^138 + a*q^145 + 1/2*a*q^151 + (-a + 
        1)*q^157 + (-a + 1)*q^166 + 1/2*(3*a - 3)*q^169 + 1/2*(a - 2)*q^171 + 
        1/2*a*q^183 + 1/2*(-a + 1)*q^187 + 1/2*a*q^189 + (-a + 1)*q^195 + 
        1/2*q^196 + a*q^202 + 1/2*(a - 1)*q^204 + 3/2*q^205 - 3/2*a*q^208 - 
        1/2*q^213 + 1/2*a*q^217 + 1/2*q^219 - 1/2*a*q^220 + 1/2*(a - 1)*q^225 + 
        O(q^234),
    q^5 + (a - 1)*q^7 - 2*a*q^10 + (a - 1)*q^11 + (-2*a + 2)*q^12 - q^17 + (a - 
        1)*q^20 - a*q^23 + (-2*a + 2)*q^27 + a*q^28 + 2*a*q^29 + (-a + 1)*q^31 -
        a*q^34 + (a - 1)*q^37 + (-a + 1)*q^39 + q^41 - a*q^44 + (a - 1)*q^45 + 
        (2*a - 2)*q^46 + 2*a*q^48 - a*q^57 + a*q^61 + a*q^63 + (2*a - 2)*q^65 + 
        (-a + 1)*q^68 + q^71 + q^73 + (a - 1)*q^75 + q^79 - a*q^80 + 2*a*q^82 - 
        a*q^85 - 2*q^90 - a*q^91 + q^92 + (a - 1)*q^95 - a*q^99 + (-a + 1)*q^102
        + (a - 1)*q^107 - q^112 + (a - 1)*q^113 - 2*q^116 - a*q^124 + (-a + 
        1)*q^125 - 2*a*q^129 + 2*q^130 - 2*q^131 + (-a + 1)*q^133 - a*q^139 - 
        2*a*q^143 - q^147 + a*q^148 + (-a + 1)*q^153 + 3*a*q^156 + (-2*a + 
        2)*q^160 + (-a + 1)*q^163 + (a - 1)*q^164 + a*q^165 + 2*a*q^167 + q^173 
        - a*q^175 + q^176 - a*q^180 + 2*a*q^190 - q^193 + (-2*a + 2)*q^197 - 
        a*q^199 + (2*a - 2)*q^201 + q^207 - a*q^209 + (-2*a + 2)*q^210 + q^211 -
        2*q^214 + a*q^215 + (-2*a + 2)*q^221 + (-2*a + 2)*q^227 + (2*a - 
        1)*q^228 + q^233 + O(q^234),
    q^6 - a*q^7 + 2*q^10 - a*q^11 + 2*a*q^12 + (a - 1)*q^14 + 1/2*(-3*a + 
        3)*q^17 - 2*a*q^20 + 2*a*q^27 - q^28 - 2*q^29 + a*q^31 + q^34 - a*q^37 +
        a*q^39 + (2*a - 2)*q^41 + q^44 - 2*a*q^45 - 2*a*q^46 - 2*q^48 + 1/2*q^51
        + (-a + 1)*q^54 + q^57 - q^61 + (-a + 1)*q^62 - q^63 - a*q^65 + 
        1/2*a*q^68 + (a - 1)*q^71 + (a - 1)*q^73 + (a - 1)*q^74 - a*q^75 + (a - 
        1)*q^78 + (a - 1)*q^79 + 2*q^80 - 2*q^82 + q^85 + (-2*a + 2)*q^90 + q^91
        + (2*a - 2)*q^92 - q^95 + a*q^96 + q^99 + a*q^102 + q^105 - 2*a*q^107 + 
        (-a + 1)*q^112 - a*q^113 - q^114 + (-2*a + 2)*q^116 + 1/2*(a - 1)*q^119 
        + a*q^122 + q^124 + a*q^125 + a*q^126 + 2*q^129 + (2*a - 2)*q^130 + 
        (-2*a + 2)*q^131 + a*q^133 + q^139 - a*q^141 + 2*q^143 + q^146 + (-a + 
        1)*q^147 - q^148 + (a - 1)*q^150 + 1/2*a*q^153 - 3*q^156 + q^158 + 
        2*a*q^160 + a*q^163 - q^165 - 3*q^167 - a*q^170 + q^175 + (a - 1)*q^176 
        - a*q^182 - 2*q^190 + (-a + 1)*q^193 + 3*a*q^197 + q^199 - 2*a*q^201 + 
        1/2*(-a + 1)*q^204 + (2*a - 2)*q^207 + q^209 + 2*a*q^210 + (a - 1)*q^211
        + (-2*a + 2)*q^214 - 2*q^215 + 5/2*a*q^221 - q^224 + 2*a*q^227 + (-a - 
        1)*q^228 + (a - 1)*q^233 + O(q^234)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^2*q^4 + (a - 1)*q^5 + (-a^2 - a)*q^7 + a*q^9 + (-a^3 + 1)*q^11 - q^16 
        + a^3*q^17 + a^3*q^19 + (-a^3 + a^2)*q^20 + (a^2 - a)*q^23 + (a^2 - a + 
        1)*q^25 + (a^3 - 1)*q^28 + (-a^3 + a)*q^35 - a^3*q^36 + (-a^2 - a)*q^44 
        + (a^2 - a)*q^45 + (a^3 + a)*q^47 + (a^3 + a^2 - 1)*q^49 + (a^3 + 
        a)*q^55 + (-a^3 - 1)*q^61 + (-a^3 - a^2)*q^63 + a^2*q^64 + a*q^68 + (-a 
        + 1)*q^73 + a*q^76 + (-a^2 - 2*a - 1)*q^77 + (-a + 1)*q^80 + a^2*q^81 + 
        (-a^2 + 1)*q^83 + (-a^3 - 1)*q^85 + (a^3 + 1)*q^92 + (-a^3 - 1)*q^95 + 
        (a + 1)*q^99 + (a^3 - a^2 + 1)*q^100 + (a^2 + a)*q^112 + (a^3 - 2*a^2 + 
        a)*q^115 + (a + 1)*q^119 + (-a^3 - a^2 + 1)*q^121 + (a^3 - a^2 + a - 
        1)*q^125 + (a - 1)*q^131 + (a + 1)*q^133 + (-a - 1)*q^139 + (-a^3 - 
        a)*q^140 - a*q^144 + (-a^3 - a)*q^149 - q^153 + (-a^3 - a)*q^157 + (a^2 
        + 1)*q^161 + (-a^2 - a)*q^163 - q^169 - q^171 + (-a + 1)*q^175 + (a^3 - 
        1)*q^176 + (a^3 + 1)*q^180 + (a^3 + a^2)*q^187 + (-a^3 + a)*q^188 + 
        2*a^2*q^191 + (a^2 + a + 1)*q^196 + (a^2 + a)*q^197 + (-a^3 - a^2)*q^199
        + (a^3 - a^2)*q^207 + (a^3 + a^2)*q^209 + (-a^3 + a)*q^220 + (a^3 - a^2 
        + a)*q^225 + (a^3 + a^2)*q^233 + O(q^234),
    q^3 - a^2*q^12 + (a - 1)*q^15 + (-a^2 - a)*q^21 + a*q^27 + (-a^3 + 1)*q^33 -
        q^48 + a^3*q^51 + a^3*q^57 + (-a^3 + a^2)*q^60 + (a^2 - a)*q^69 + (a^2 -
        a + 1)*q^75 + (a^3 - 1)*q^84 + (-a^3 + a)*q^105 - a^3*q^108 + (-a^2 - 
        a)*q^132 + (a^2 - a)*q^135 + (a^3 + a)*q^141 + (a^3 + a^2 - 1)*q^147 + 
        (a^3 + a)*q^165 + (-a^3 - 1)*q^183 + (-a^3 - a^2)*q^189 + a^2*q^192 + 
        a*q^204 + (-a + 1)*q^219 + a*q^228 + (-a^2 - 2*a - 1)*q^231 + O(q^234)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 + (a + 1)*q^5 + (a - 1)*q^7 + a*q^9 + (-a + 1)*q^11 + q^16 - a*q^17 
        - a*q^19 + (-a - 1)*q^20 + (a - 1)*q^23 + a*q^25 + (-a + 1)*q^28 - 
        2*q^35 - a*q^36 - 2*a*q^43 + (a - 1)*q^44 + (a - 1)*q^45 - a*q^49 + 
        2*q^55 + (-a + 1)*q^61 + (-a - 1)*q^63 - q^64 + a*q^68 + (a + 1)*q^73 + 
        a*q^76 + 2*a*q^77 + (a + 1)*q^80 - q^81 + (-a + 1)*q^85 + (-a + 1)*q^92 
        + (-a + 1)*q^95 + (a + 1)*q^99 - a*q^100 - 2*q^101 + (a - 1)*q^112 - 
        2*q^115 + (a + 1)*q^119 - a*q^121 + (a + 1)*q^131 + (a + 1)*q^133 - 
        2*q^137 + (a + 1)*q^139 + 2*q^140 + a*q^144 + q^153 - 2*a*q^161 + (a - 
        1)*q^163 + q^169 + q^171 + 2*a*q^172 + (-a - 1)*q^175 + (-a + 1)*q^176 +
        (-a + 1)*q^180 + (-a - 1)*q^187 - 2*q^191 + a*q^196 + (a - 1)*q^197 + 
        (-a - 1)*q^199 + (-a - 1)*q^207 + (-a - 1)*q^209 + (-2*a + 2)*q^215 - 
        2*q^220 - q^225 - 2*a*q^229 + (-a - 1)*q^233 + O(q^234),
    q^3 - q^12 + (a + 1)*q^15 + (a - 1)*q^21 + a*q^27 + (-a + 1)*q^33 + q^48 - 
        a*q^51 - a*q^57 + (-a - 1)*q^60 + (a - 1)*q^69 + a*q^75 + (-a + 1)*q^84 
        - 2*q^105 - a*q^108 - 2*a*q^129 + (a - 1)*q^132 + (a - 1)*q^135 - 
        a*q^147 + 2*q^165 + (-a + 1)*q^183 + (-a - 1)*q^189 - q^192 + a*q^204 + 
        (a + 1)*q^219 + a*q^228 + 2*a*q^231 + O(q^234)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
969
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^9 + q^16 - q^17 - q^19 + q^25 - q^36 - 2*q^43 - 2*q^47 + q^49 + 
        q^64 - q^68 - q^76 + q^81 + 2*q^83 + q^100 + 2*q^101 + q^121 + 2*q^137 -
        q^144 - 2*q^149 + q^153 - 2*q^157 + q^169 + q^171 - 2*q^172 - 2*q^188 + 
        2*q^191 + q^196 - q^225 - 2*q^229 + O(q^234),
    q^3 + q^12 - q^27 + q^48 - q^51 - q^57 + q^75 - q^108 - 2*q^129 - 2*q^141 + 
        q^147 + q^192 - q^204 - q^228 + O(q^234)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
96
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
96
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
32
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
32
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 16*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 24*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 24*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 32*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
970
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 48*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
288
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
971
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
970
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
971
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
194
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
971
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
97*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
971
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
485*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 + q^25 - q^27 - q^35 - q^37 + q^49 - q^61 + q^64 - q^65 + 
        q^100 - q^105 - q^108 - q^111 - q^115 - q^119 + q^121 - q^140 - q^148 + 
        O(q^162),
    q^3 + q^12 - q^15 - q^19 - q^21 + q^27 - q^47 + q^48 - q^53 - q^60 - q^65 + 
        q^75 - q^76 + q^81 + q^83 - q^84 + q^85 + q^91 + q^95 + q^108 + q^111 - 
        q^115 - q^117 + q^125 - q^135 + q^151 - q^153 + q^161 + O(q^162),
    q^5 - q^15 - q^19 + q^20 - q^21 + q^45 - q^47 + q^49 + q^51 - q^53 + q^57 - 
        q^60 + q^63 - q^65 + q^75 - q^76 + q^80 - q^84 + q^85 + q^103 - q^105 - 
        q^115 + q^125 - q^133 - q^135 + q^141 - q^147 - q^153 + q^159 + 
        O(q^162),
    q^7 - q^15 - q^19 - q^21 + q^28 + q^35 + q^39 + q^45 - q^47 - q^53 + q^57 - 
        q^60 + q^63 - q^65 + q^69 - q^76 - q^84 + q^89 - q^105 + q^107 + q^112 -
        q^115 - q^117 - q^133 + q^140 + q^141 - q^147 + q^156 + q^159 + 
        O(q^162),
    q^9 - q^15 - q^19 - q^21 + q^27 + q^35 + q^36 + q^37 - q^47 - q^53 - q^60 + 
        q^61 - q^76 + q^81 - q^84 + q^108 + q^111 - q^117 + q^119 - q^133 - 
        q^135 + q^140 + q^144 - q^147 + q^148 - q^153 + O(q^162),
    q^13 - q^15 - q^19 + q^23 + q^45 - q^47 + q^51 + q^52 - q^53 - q^60 - q^65 +
        q^75 - q^76 + q^92 + q^95 - q^115 + q^119 - q^133 - q^147 - q^153 + 
        O(q^162),
    q^17 - q^19 - q^21 + q^25 + q^39 - q^47 - q^53 + q^63 - q^65 + q^68 + q^69 -
        q^76 - q^84 + q^91 + q^97 + q^100 - q^105 - q^115 - q^117 + q^131 - 
        q^133 + q^156 + q^161 + O(q^162)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
972
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
272
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^10 - q^13 + q^16 - q^34 - q^37 - q^40 + q^49 - q^52 - q^58 - 
        q^61 + q^64 - q^73 + 2*q^82 + q^85 + 2*q^97 + 2*q^106 - q^109 + q^121 + 
        q^130 - q^136 + q^145 - q^148 - q^157 - q^160 - q^178 + 2*q^181 - q^193 
        + q^196 + 2*q^202 - 2*q^205 - q^208 - q^226 - q^229 - q^232 - q^241 - 
        q^244 + q^250 + q^256 - 2*q^265 + O(q^272),
    q^2 - q^5 + q^8 - q^17 - q^20 - q^26 - q^29 + q^32 + 2*q^41 + 2*q^53 + q^65 
        - q^68 - q^74 - q^80 - q^89 + q^98 + 2*q^101 - q^104 - q^113 - q^116 - 
        q^122 + q^125 + q^128 - q^137 - q^146 - q^149 + 2*q^164 + q^170 - q^173 
        + q^185 + 2*q^194 - q^197 + 2*q^212 - q^218 + q^221 - q^233 + q^242 - 
        q^245 - q^257 + q^260 - q^269 + O(q^272),
    q^3 + q^12 - q^30 - q^39 + q^48 - q^102 - q^111 - q^120 + q^147 - q^156 - 
        q^174 - q^183 + q^192 - q^219 + 2*q^246 + q^255 + O(q^272),
    q^6 - q^15 + q^24 - q^51 - q^60 - q^78 - q^87 + q^96 + 2*q^123 + 2*q^159 + 
        q^195 - q^204 - q^222 - q^240 - q^267 + O(q^272)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
972
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
162
);
qprec:=
272
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
972
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
162
);
qprec:=
272
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
972
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
272
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
972
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
272
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
972
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
272
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
972
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
272
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
972
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
272
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^13 + q^19 + (a - 1)*q^25 + a*q^31 + (-a + 1)*q^43 - a*q^49 + (-a + 
        1)*q^61 + a*q^67 - q^73 + (a - 1)*q^79 - 2*q^91 + (a - 1)*q^97 + a*q^103
        - q^109 - a*q^121 - q^127 + (-2*a + 2)*q^133 + (-a + 1)*q^151 + a*q^157 
        + (2*a - 2)*q^169 + a*q^193 + q^199 - a*q^211 + (-a + 1)*q^223 + a*q^229
        - 3*a*q^247 + (2*a - 2)*q^259 - q^271 + O(q^272),
    q^7 + (-a + 1)*q^13 + a*q^19 - a*q^37 + (a - 1)*q^49 - q^79 - q^97 + (a - 
        1)*q^139 - a*q^163 - q^169 + (a - 1)*q^175 - a*q^181 + a*q^199 + (-a + 
        1)*q^211 + a*q^217 + q^241 + (-a + 1)*q^247 + q^259 + O(q^272)
]
;
Bo:=
[
    q + (-a + 1)*q^7 + a*q^13 - q^19 + (a - 1)*q^25 - q^37 + (a - 1)*q^61 - 
        a*q^67 + q^73 + (-a + 1)*q^79 + q^91 + (-a + 1)*q^97 - a*q^103 - a*q^121
        + (a - 1)*q^133 + a*q^139 + (a - 1)*q^151 - q^163 + a*q^175 - q^181 - 
        a*q^193 - q^199 + a*q^211 + (-a + 1)*q^241 - a*q^247 + (a - 1)*q^259 + 
        q^271 + O(q^272),
    q^2 - a*q^8 + (-a + 1)*q^14 + a*q^26 + (a - 1)*q^32 - q^38 + (a - 1)*q^50 - 
        q^56 + a*q^62 - q^74 + (-a + 1)*q^86 + (-a + 1)*q^104 + (2*a - 2)*q^122 
        + q^128 - 2*a*q^134 + 2*q^146 + a*q^152 + (-a + 1)*q^158 + q^182 + (-a +
        1)*q^194 + q^200 - 2*a*q^206 - q^218 + a*q^224 - a*q^242 + (-a + 
        1)*q^248 - q^254 + (a - 1)*q^266 + O(q^272),
    q^3 + (-a + 1)*q^21 + a*q^39 - q^57 + (a - 1)*q^75 - 2*a*q^93 - q^111 + (2*a
        - 2)*q^129 + (-a + 1)*q^183 + a*q^201 - q^219 + (-a + 1)*q^237 + 
        O(q^272),
    q^4 - a*q^16 + (-a + 1)*q^28 + a*q^52 + (a - 1)*q^64 - q^76 + (a - 1)*q^100 
        - q^112 + a*q^124 - q^148 + (-a + 1)*q^172 + (-a + 1)*q^208 + (2*a - 
        2)*q^244 + q^256 - 2*a*q^268 + O(q^272),
    q^31 - a*q^43 + a*q^61 - q^67 + (-a + 1)*q^73 - q^103 + (a - 1)*q^109 + (a -
        1)*q^127 + a*q^151 + q^157 - q^193 + (-a + 1)*q^217 - a*q^223 + q^229 + 
        (-a + 1)*q^271 + O(q^272)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
972
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 54*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
272
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^4 - q^10 + (-a + 1)*q^13 - a*q^16 + a*q^34 - q^37 + (-a + 
        1)*q^40 + (a - 1)*q^49 + a*q^52 + (-a + 1)*q^58 + a*q^61 + q^64 - q^73 +
        2*q^82 + (a - 1)*q^85 - 2*a*q^97 - 2*a*q^106 - q^109 + (a - 1)*q^121 + 
        (a - 1)*q^130 - q^136 + q^145 + (-a + 1)*q^148 + (-a + 1)*q^157 + 
        a*q^160 + a*q^178 + 2*q^181 + (-a + 1)*q^193 - a*q^196 + (2*a - 2)*q^202
        + 2*a*q^205 - q^208 - q^226 + (-a + 1)*q^229 + a*q^232 + a*q^241 - q^244
        - a*q^250 + (a - 1)*q^256 + (-2*a + 2)*q^265 + O(q^272),
    q^2 + a*q^5 + (a - 1)*q^8 + (-a + 1)*q^17 - q^20 + (-a + 1)*q^26 - q^29 - 
        a*q^32 - 2*a*q^41 + (2*a - 2)*q^53 + q^65 + a*q^68 - q^74 + (-a + 
        1)*q^80 + (-a + 1)*q^89 + (a - 1)*q^98 + 2*q^101 + a*q^104 + a*q^113 + 
        (-a + 1)*q^116 + a*q^122 + (a - 1)*q^125 + q^128 - q^137 - q^146 + 
        a*q^149 + 2*q^164 + (a - 1)*q^170 - q^173 - a*q^185 - 2*a*q^194 + (-a + 
        1)*q^197 - 2*a*q^212 - q^218 - a*q^221 + (-a + 1)*q^233 + (a - 1)*q^242 
        - q^245 + a*q^257 + (a - 1)*q^260 + (-a + 1)*q^269 + O(q^272),
    q^3 + (a - 1)*q^12 - q^30 + (-a + 1)*q^39 - a*q^48 + a*q^102 - q^111 + (-a +
        1)*q^120 + (a - 1)*q^147 + a*q^156 + (-a + 1)*q^174 + a*q^183 + q^192 - 
        q^219 + 2*q^246 + (a - 1)*q^255 + O(q^272),
    q^6 + a*q^15 + (a - 1)*q^24 + (-a + 1)*q^51 - q^60 + (-a + 1)*q^78 - q^87 - 
        a*q^96 - 2*a*q^123 + (2*a - 2)*q^159 + q^195 + a*q^204 - q^222 + (-a + 
        1)*q^240 + (-a + 1)*q^267 + O(q^272)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
972
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
81*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
272
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^13 + q^19 + q^25 - q^31 - q^43 + q^49 - q^61 - q^67 - q^73 + q^79 - 
        2*q^91 + q^97 - q^103 - q^109 + q^121 - q^127 - 2*q^133 - q^151 - q^157 
        + 2*q^169 - q^193 + q^199 + q^211 - q^223 - q^229 + 3*q^247 + 2*q^259 - 
        q^271 + O(q^272),
    q^7 - q^13 - q^19 + q^37 + q^49 - q^79 - q^97 + q^139 + q^163 - q^169 + 
        q^175 + q^181 - q^199 - q^211 - q^217 + q^241 - q^247 + q^259 + O(q^272)
]
;
Bo:=
[
    q - q^7 - q^13 - q^19 + q^25 - q^37 + q^61 + q^67 + q^73 - q^79 + q^91 - 
        q^97 + q^103 + q^121 + q^133 - q^139 + q^151 - q^163 - q^175 - q^181 + 
        q^193 - q^199 - q^211 - q^241 + q^247 + q^259 + q^271 + O(q^272),
    q^2 + q^8 - q^14 - q^26 + q^32 - q^38 + q^50 - q^56 - q^62 - q^74 - q^86 - 
        q^104 + 2*q^122 + q^128 + 2*q^134 + 2*q^146 - q^152 - q^158 + q^182 - 
        q^194 + q^200 + 2*q^206 - q^218 - q^224 + q^242 - q^248 - q^254 + q^266 
        + O(q^272),
    q^3 - q^21 - q^39 - q^57 + q^75 + 2*q^93 - q^111 + 2*q^129 - q^183 - q^201 -
        q^219 - q^237 + O(q^272),
    q^4 + q^16 - q^28 - q^52 + q^64 - q^76 + q^100 - q^112 - q^124 - q^148 - 
        q^172 - q^208 + 2*q^244 + q^256 + 2*q^268 + O(q^272),
    q^9 - q^63 - q^117 - q^171 + q^225 + O(q^272),
    q^31 + q^43 - q^61 - q^67 - q^73 - q^103 + q^109 + q^127 - q^151 + q^157 - 
        q^193 - q^217 + q^223 + q^229 - q^271 + O(q^272)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
23*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 23*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 23*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 46*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 46*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 46*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
69*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^5 + q^9 - q^11 - q^13 + q^16 - q^20 - q^29 - q^31 + q^36 + 
        2*q^37 + 2*q^41 - q^44 - q^45 + 2*q^47 - q^49 - q^52 + q^55 + q^64 + 
        q^65 - q^67 - q^71 - q^79 - q^80 + q^81 - q^83 - q^89 - q^99 + 2*q^107 -
        q^113 - q^116 - q^117 - q^124 + q^125 - q^127 - q^131 - q^137 + q^139 + 
        q^143 + q^144 + q^145 + 2*q^148 + q^155 - q^163 + 2*q^164 + 2*q^167 - 
        q^173 - q^176 - q^180 - q^181 + O(q^184),
    q^7 + q^28 - q^35 - q^49 + q^63 - q^77 - q^91 + q^112 - q^140 + O(q^184)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
973
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 69*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
184
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^6 + (4*a - 2)*q^11 + 2*a*q^13 + (-a + 1)*q^16 + q^20 - a*q^24 + (-2*a 
        + 2)*q^25 - a*q^28 + q^29 + (-a + 1)*q^30 + (4*a - 2)*q^31 - q^34 + (3*a
        - 2)*q^35 + (-a + 1)*q^37 - a*q^38 - q^42 + (-a + 3)*q^44 - a*q^45 + 
        a*q^46 + (-a + 1)*q^47 - a*q^49 + (a - 1)*q^51 + (-2*a + 2)*q^52 + (a - 
        1)*q^54 - 2*a*q^55 - q^57 + (a - 1)*q^63 - q^64 + (a - 1)*q^65 + a*q^66 
        + q^69 + 2*a*q^71 + (-2*a + 2)*q^77 + (a - 3)*q^79 - 2*a*q^80 + a*q^81 +
        (-2*a - 1)*q^83 + (-2*a + 4)*q^89 + (-a - 1)*q^91 + (-2*a - 1)*q^99 - 
        2*q^100 - q^106 + (a - 1)*q^107 + (2*a - 2)*q^112 + (2*a - 2)*q^113 - 
        a*q^116 - 2*q^117 - q^118 - q^120 + (a - 1)*q^121 - a*q^122 + (-a + 
        3)*q^124 + 2*q^125 + q^127 + (-a - 1)*q^131 + a*q^136 + (-3*a + 2)*q^137
        - q^139 + (-a + 2)*q^140 + (-2*a + 2)*q^143 - 2*q^145 - q^146 + (a - 
        1)*q^152 - 2*a*q^155 + (a - 1)*q^159 + 2*q^163 + a*q^168 + (-2*a - 
        2)*q^169 + (a - 1)*q^170 + (-2*a + 4)*q^173 + (a - 1)*q^175 - 2*a*q^176 
        + (a - 1)*q^177 + (a - 1)*q^180 + 2*a*q^181 - q^183 + O(q^184),
    q^2 + (-a + 1)*q^3 - a*q^8 + (-a + 1)*q^10 - q^14 - a*q^15 + (a - 1)*q^17 - 
        q^19 + (a - 1)*q^21 + a*q^22 + q^23 + a*q^27 + q^33 - q^40 - a*q^48 + (a
        - 1)*q^53 + a*q^56 + (a - 1)*q^59 - q^61 + a*q^62 + (a - 1)*q^70 + (a - 
        1)*q^73 + (-a + 1)*q^74 + a*q^85 + (-a + 1)*q^88 + q^93 + (-a + 1)*q^94 
        + (a - 1)*q^95 - 2*a*q^97 + q^98 + (-a + 1)*q^101 + (a - 1)*q^102 - 
        q^103 + a*q^105 + (-a + 1)*q^109 + q^110 - a*q^111 - q^114 + (-a + 
        1)*q^115 + (-a + 1)*q^119 - q^128 + q^133 + a*q^134 + q^135 + q^138 - 
        a*q^141 + (-a + 1)*q^147 + q^149 + (a - 1)*q^151 - a*q^154 + (a - 
        1)*q^157 + (a - 1)*q^158 - q^161 + a*q^162 + (-a + 1)*q^165 + (-a + 
        1)*q^178 + (-a + 1)*q^179 + O(q^184),
    q^4 + (-a + 1)*q^6 - a*q^9 + (2*a + 2)*q^11 + 2*q^13 - 2*a*q^16 + (-a + 
        1)*q^20 - q^24 + (-2*a + 1)*q^25 - q^28 + (-a + 1)*q^29 - a*q^30 + (2*a 
        + 2)*q^31 + (a - 1)*q^34 + 3*a*q^35 + (a - 1)*q^36 - q^38 + (-a + 
        1)*q^41 + (a - 1)*q^42 + (-3*a + 2)*q^44 - q^45 + q^46 - 3*a*q^47 - q^49
        + a*q^51 - 2*a*q^52 + a*q^54 + (-a - 1)*q^55 + (a - 1)*q^57 + a*q^63 + 
        (2*a - 2)*q^64 + 2*a*q^65 + q^66 + (-a + 1)*q^69 + 2*q^71 + (-a - 
        1)*q^77 + (3*a - 2)*q^79 - 2*q^80 + 2*q^81 + (a - 3)*q^83 + (-4*a + 
        2)*q^89 + (2*a - 3)*q^91 + (a - 3)*q^99 + (a - 2)*q^100 + (a - 1)*q^106 
        + 2*a*q^107 + 2*a*q^112 + 2*a*q^113 - q^116 + (2*a - 2)*q^117 + (a - 
        1)*q^118 + (a - 1)*q^120 - q^122 + (-3*a + 2)*q^124 + (-3*a + 3)*q^125 +
        (-a + 1)*q^127 + (a - 2)*q^131 + q^136 + (-2*a - 1)*q^137 + (2*a - 
        2)*q^139 + (-2*a + 2)*q^140 + (-2*a - 1)*q^143 + q^144 - 2*q^145 + (a - 
        1)*q^146 + (-a + 1)*q^148 + a*q^152 + (-a - 1)*q^155 + a*q^159 + (-2*a +
        2)*q^163 - q^164 + (-a + 1)*q^167 + q^168 + (3*a - 5)*q^169 + a*q^170 + 
        (-4*a + 2)*q^173 + (a + 1)*q^175 - 2*q^176 + a*q^177 + a*q^180 + 2*q^181
        + (a - 1)*q^183 + O(q^184),
    q^5 + q^11 + q^13 - a*q^20 - a*q^25 - a*q^29 + q^31 + q^35 - a*q^44 + (a - 
        1)*q^45 + (a - 1)*q^49 - a*q^52 + (a - 1)*q^55 + q^65 + (a - 1)*q^67 + 
        q^71 - a*q^77 + (a - 1)*q^79 + (a - 1)*q^80 + (a - 1)*q^83 - a*q^89 + (a
        - 1)*q^91 + (a - 1)*q^99 + (a - 1)*q^100 + q^113 + (a - 1)*q^116 + (a - 
        1)*q^117 + q^121 - a*q^124 - a*q^125 - a*q^127 + (a - 1)*q^131 - a*q^137
        - a*q^140 - a*q^143 + (a - 1)*q^145 + (a - 1)*q^155 - a*q^163 + (a - 
        1)*q^169 - a*q^173 + q^175 + (a - 1)*q^176 + q^180 + q^181 + O(q^184),
    q^7 + (2*a - 1)*q^11 + (a + 1)*q^13 + (-2*a + 1)*q^25 - a*q^28 + (2*a - 
        1)*q^31 + a*q^35 + (-a + 2)*q^44 - q^49 + (-2*a + 1)*q^52 + (-a - 
        1)*q^55 + (a - 1)*q^63 + (a + 1)*q^71 + (-a + 1)*q^77 + (a - 2)*q^79 + 
        (-a - 1)*q^83 + (-a + 2)*q^89 - q^91 + (-a - 1)*q^99 + (a - 2)*q^100 + 
        (a - 1)*q^112 + (a + 1)*q^113 + (a - 2)*q^117 + (-a + 2)*q^124 + (a - 
        2)*q^131 + (-2*a + 1)*q^137 + (-a + 1)*q^140 + (-2*a + 1)*q^143 + (a - 
        2)*q^145 + (-a - 1)*q^155 + (-a + 2)*q^163 + (-a - 1)*q^169 + (-a + 
        2)*q^173 + (-a - 1)*q^176 + (a + 1)*q^181 + O(q^184)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
974
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
486
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
974
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
162
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
974
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
974
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
974
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
81*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
974
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
243*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 + q^25 + q^49 - q^61 - q^62 - q^64 - q^67 - q^71 - q^76 + q^81 - 
        q^82 - q^89 - q^97 - q^106 - q^116 + q^121 + q^122 + q^124 - q^127 + 
        q^128 + q^134 - q^139 + q^142 + q^164 - q^166 + q^169 + q^178 - q^181 + 
        q^194 - q^197 + q^212 - q^214 + q^225 + O(q^242),
    q^2 + q^18 + q^50 - q^62 - q^64 - q^76 - q^82 + q^98 - q^106 - q^116 - q^152
        + q^162 - q^166 - q^214 - q^232 + O(q^242),
    q^4 - q^32 + q^36 - q^38 - q^58 - q^76 + q^100 - q^116 + q^122 + q^134 + 
        q^142 - q^146 + q^178 + q^194 + q^196 - q^206 + O(q^242),
    q^8 + q^19 + q^29 - q^61 - q^64 - q^67 - q^71 + q^72 + q^73 - q^76 - q^89 - 
        q^97 + q^103 - q^116 - q^127 + q^137 - q^139 - q^152 + q^167 + q^171 - 
        q^181 + q^191 - q^197 + q^200 - q^232 + q^241 + O(q^242),
    q^16 + q^19 + q^29 + q^38 + q^58 - q^61 - q^62 - q^64 - q^67 - q^71 + q^73 -
        q^76 - q^82 - q^89 - q^97 + q^103 - q^106 - q^116 + q^124 - q^127 + 
        q^137 - q^139 + q^144 + q^146 - q^152 + q^164 - q^166 + q^167 + q^171 - 
        q^181 + q^191 - q^197 + q^206 + q^212 - q^214 - q^232 + q^241 + 
        O(q^242),
    q^31 + q^32 + q^38 + q^41 + q^53 + q^58 - q^61 - q^62 - q^64 - q^67 - q^71 -
        q^82 + q^83 - q^89 - q^97 - q^106 + q^107 - q^127 - q^139 + q^146 - 
        q^152 + q^157 - q^166 - q^181 + q^193 - q^197 + q^206 - q^214 - q^232 + 
        O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^2 - 1)*q^4 + a*q^9 - a^2*q^16 + (a^3 - a - 1)*q^19 + (-a^3 + a^2 + a 
        - 1)*q^21 + (a^3 - 1)*q^31 + (a^3 - a)*q^36 + (-a^3 + a)*q^39 + (-a^3 + 
        a^2 - a)*q^49 + q^64 + (-a^3 - a^2 + 1)*q^76 + (-2*a^2 + 1)*q^79 + 
        a^2*q^81 + (a^3 - a^2)*q^84 + (-a^3 + a^2)*q^91 + (a^3 + 1)*q^109 + 
        (-a^2 + a + 1)*q^111 - a*q^121 + (-a^2 - a + 1)*q^124 + q^129 + a*q^139 
        - a^3*q^144 + (a^3 - a^2 - a + 1)*q^151 + a^3*q^156 - a^3*q^169 + (-a - 
        1)*q^171 + (2*a^2 - 1)*q^181 + (a^3 - a + 1)*q^189 + (-a^3 + 2*a - 
        1)*q^196 + (a^2 - 1)*q^199 + (-a^3 - a^2)*q^201 + (-a - 1)*q^219 + (-a^2
        + a)*q^229 + (a^3 - a^2)*q^241 + (a^2 - 1)*q^256 + O(q^258),
    q^3 + (a^3 - a^2 + 1)*q^7 + (a^2 - 1)*q^12 + (-a^2 + 1)*q^13 + a*q^27 + (a^2
        - a)*q^28 + (-a^3 + 1)*q^37 + (-a^3 + a)*q^43 - a^2*q^48 + a^2*q^52 + 
        (a^3 - a - 1)*q^57 + (-a^3 + a^2 + a - 1)*q^63 + (-a^2 - a)*q^67 + (a^3 
        - a - 1)*q^73 + (a^3 - 1)*q^93 + (-a^3 - a^2 + a)*q^97 + a*q^103 + (a^3 
        - a)*q^108 + (-a^3 + a - 1)*q^112 + (-a^3 + a)*q^117 + (a^3 - 2*a)*q^127
        - q^133 + (-a^3 + a^2 - a)*q^147 + (a^2 + a - 1)*q^148 + (a^2 + 1)*q^157
        + (a^3 + a^2 - a)*q^163 + a^3*q^172 + q^192 + (-a^2 - a)*q^193 - q^208 +
        (-a^3 + a^2 + a - 2)*q^217 + (-a^3 - a^2 + a + 1)*q^223 + (-a^3 - a^2 + 
        1)*q^228 + (-2*a^2 + 1)*q^237 + a^2*q^243 + (a^3 + a^2 - 1)*q^247 + (a^3
        - a^2)*q^252 + O(q^258)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 15*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^2 + 1)*q^4 - a*q^9 - a^2*q^16 + (-a^3 + a + 1)*q^19 + (-a^3 + a^2 + 
        a - 1)*q^21 + (a^3 - 1)*q^31 + (a^3 - a)*q^36 + (a^3 - a)*q^39 + (a^3 - 
        a^2 + a)*q^49 - q^64 + (-a^3 - a^2 + 1)*q^76 + (2*a^2 - 1)*q^79 + 
        a^2*q^81 + (-a^3 + a^2)*q^84 + (-a^3 + a^2)*q^91 + (-a^3 - 1)*q^109 + 
        (-a^2 + a + 1)*q^111 - a*q^121 + (a^2 + a - 1)*q^124 - q^129 - a*q^139 +
        a^3*q^144 + (a^3 - a^2 - a + 1)*q^151 + a^3*q^156 + a^3*q^169 + (-a - 
        1)*q^171 + (2*a^2 - 1)*q^181 + (-a^3 + a - 1)*q^189 + (-a^3 + 2*a - 
        1)*q^196 + (-a^2 + 1)*q^199 + (-a^3 - a^2)*q^201 + (a + 1)*q^219 + (a^2 
        - a)*q^229 + (a^3 - a^2)*q^241 + (a^2 - 1)*q^256 + O(q^258),
    q^3 + (-a^3 + a^2 - 1)*q^7 + (-a^2 + 1)*q^12 + (-a^2 + 1)*q^13 - a*q^27 + 
        (a^2 - a)*q^28 + (a^3 - 1)*q^37 + (-a^3 + a)*q^43 - a^2*q^48 - a^2*q^52 
        + (-a^3 + a + 1)*q^57 + (-a^3 + a^2 + a - 1)*q^63 + (a^2 + a)*q^67 + 
        (a^3 - a - 1)*q^73 + (a^3 - 1)*q^93 + (a^3 + a^2 - a)*q^97 + a*q^103 + 
        (a^3 - a)*q^108 + (a^3 - a + 1)*q^112 + (a^3 - a)*q^117 + (-a^3 + 
        2*a)*q^127 - q^133 + (a^3 - a^2 + a)*q^147 + (a^2 + a - 1)*q^148 + (-a^2
        - 1)*q^157 + (a^3 + a^2 - a)*q^163 - a^3*q^172 - q^192 + (-a^2 - 
        a)*q^193 - q^208 + (a^3 - a^2 - a + 2)*q^217 + (-a^3 - a^2 + a + 
        1)*q^223 + (-a^3 - a^2 + 1)*q^228 + (2*a^2 - 1)*q^237 + a^2*q^243 + 
        (-a^3 - a^2 + 1)*q^247 + (-a^3 + a^2)*q^252 + O(q^258)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 - a*q^9 + (a - 1)*q^16 + (a - 2)*q^19 + (-2*a + 1)*q^21 + (-a + 
        1)*q^36 + (a - 1)*q^39 + (-2*a + 2)*q^49 + 2*a*q^61 - q^64 + (-a - 
        1)*q^76 + q^79 + (a - 1)*q^81 + (-a + 2)*q^84 + (a - 2)*q^91 + a*q^121 +
        q^129 + a*q^139 + q^144 + (-2*a + 1)*q^151 - q^156 + q^169 + (a + 
        1)*q^171 - q^181 + (a - 2)*q^189 + 2*q^196 - a*q^199 + (a - 2)*q^201 + 
        (-2*a + 2)*q^211 + (-a - 1)*q^219 + (-2*a + 1)*q^229 + (a - 2)*q^241 + 
        (2*a - 2)*q^244 - a*q^256 + O(q^258),
    q^3 + (a + 1)*q^7 + a*q^12 - a*q^13 - a*q^27 + (2*a - 1)*q^28 + (a - 1)*q^43
        + (a - 1)*q^48 + (-a + 1)*q^52 + (a - 2)*q^57 + (-2*a + 1)*q^63 + (-2*a 
        + 1)*q^67 + (-a + 2)*q^73 - a*q^103 + (-a + 1)*q^108 + (a - 2)*q^112 + 
        (a - 1)*q^117 - q^127 - 3*q^133 + (-2*a + 2)*q^147 - a*q^157 - q^172 + 
        2*a*q^183 - q^192 + (2*a - 1)*q^193 + q^208 + (-2*a + 1)*q^223 + (-a - 
        1)*q^228 + q^237 + (a - 1)*q^243 + (a + 1)*q^247 + (-a + 2)*q^252 + 
        O(q^258)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + a*q^9 + (a - 1)*q^16 + (-a + 2)*q^19 + (-2*a + 1)*q^21 + (-a + 
        1)*q^36 + (-a + 1)*q^39 + (2*a - 2)*q^49 + 2*a*q^61 + q^64 + (-a - 
        1)*q^76 - q^79 + (a - 1)*q^81 + (a - 2)*q^84 + (a - 2)*q^91 + a*q^121 - 
        q^129 - a*q^139 - q^144 + (-2*a + 1)*q^151 - q^156 - q^169 + (a + 
        1)*q^171 - q^181 + (-a + 2)*q^189 + 2*q^196 + a*q^199 + (a - 2)*q^201 + 
        (-2*a + 2)*q^211 + (a + 1)*q^219 + (2*a - 1)*q^229 + (a - 2)*q^241 + 
        (-2*a + 2)*q^244 - a*q^256 + O(q^258),
    q^3 + (-a - 1)*q^7 - a*q^12 - a*q^13 + a*q^27 + (2*a - 1)*q^28 + (a - 
        1)*q^43 + (a - 1)*q^48 + (a - 1)*q^52 + (-a + 2)*q^57 + (-2*a + 1)*q^63 
        + (2*a - 1)*q^67 + (-a + 2)*q^73 - a*q^103 + (-a + 1)*q^108 + (-a + 
        2)*q^112 + (-a + 1)*q^117 + q^127 - 3*q^133 + (2*a - 2)*q^147 + a*q^157 
        + q^172 + 2*a*q^183 + q^192 + (2*a - 1)*q^193 + q^208 + (-2*a + 1)*q^223
        + (-a - 1)*q^228 - q^237 + (a - 1)*q^243 + (-a - 1)*q^247 + (a - 
        2)*q^252 + O(q^258)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 - a*q^9 + q^16 + (-a + 1)*q^19 + (-a + 1)*q^21 + (-a - 1)*q^31 + 
        a*q^36 + a*q^39 + q^49 - q^64 + (a - 1)*q^76 - q^81 + (a - 1)*q^84 + (a 
        - 1)*q^91 + (a - 1)*q^109 + (a - 1)*q^111 - a*q^121 + (a + 1)*q^124 + 
        2*q^129 + 2*a*q^139 - a*q^144 + (a - 1)*q^151 - a*q^156 - a*q^169 + (-a 
        - 1)*q^171 + (-a - 1)*q^189 - q^196 + 2*q^199 + (a + 1)*q^201 + (a + 
        1)*q^219 + (-a - 1)*q^229 + (-a + 1)*q^241 + q^256 + O(q^258),
    q^3 + (a + 1)*q^7 - q^12 - q^13 - a*q^27 + (-a - 1)*q^28 + (-a - 1)*q^37 + 
        2*a*q^43 + q^48 + q^52 + (-a + 1)*q^57 + (-a + 1)*q^63 + (a - 1)*q^67 + 
        (a - 1)*q^73 + (-a - 1)*q^93 + (a - 1)*q^97 - 2*a*q^103 + a*q^108 + (a +
        1)*q^112 + a*q^117 + 2*q^133 + q^147 + (a + 1)*q^148 + (a - 1)*q^163 - 
        2*a*q^172 - q^192 + (-a + 1)*q^193 - q^208 - 2*a*q^217 + (-a - 1)*q^223 
        + (a - 1)*q^228 - q^243 + (a - 1)*q^247 + (a - 1)*q^252 + O(q^258)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 15*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + a*q^9 + q^16 + (a - 1)*q^19 + (-a + 1)*q^21 + (-a - 1)*q^31 + 
        a*q^36 - a*q^39 - q^49 + q^64 + (a - 1)*q^76 - q^81 + (-a + 1)*q^84 + (a
        - 1)*q^91 + (-a + 1)*q^109 + (a - 1)*q^111 - a*q^121 + (-a - 1)*q^124 - 
        2*q^129 - 2*a*q^139 + a*q^144 + (a - 1)*q^151 - a*q^156 + a*q^169 + (-a 
        - 1)*q^171 + (a + 1)*q^189 - q^196 - 2*q^199 + (a + 1)*q^201 + (-a - 
        1)*q^219 + (a + 1)*q^229 + (-a + 1)*q^241 + q^256 + O(q^258),
    q^3 + (-a - 1)*q^7 + q^12 - q^13 + a*q^27 + (-a - 1)*q^28 + (a + 1)*q^37 + 
        2*a*q^43 + q^48 - q^52 + (a - 1)*q^57 + (-a + 1)*q^63 + (-a + 1)*q^67 + 
        (a - 1)*q^73 + (-a - 1)*q^93 + (-a + 1)*q^97 - 2*a*q^103 + a*q^108 + (-a
        - 1)*q^112 - a*q^117 + 2*q^133 - q^147 + (a + 1)*q^148 + (a - 1)*q^163 +
        2*a*q^172 + q^192 + (-a + 1)*q^193 - q^208 + 2*a*q^217 + (-a - 1)*q^223 
        + (a - 1)*q^228 - q^243 + (-a + 1)*q^247 + (-a + 1)*q^252 + O(q^258)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^4 + (a - 1)*q^9 - a*q^16 + (-a + 1)*q^19 - q^21 + 2*q^31 - 
        a*q^36 - a*q^39 + (2*a - 2)*q^61 + q^64 + a*q^76 - q^79 - a*q^81 + (-a +
        1)*q^84 + (-a + 1)*q^91 + 2*q^109 + (2*a - 2)*q^111 + (a - 1)*q^121 + 
        (2*a - 2)*q^124 - q^129 + (-a + 1)*q^139 + q^144 - q^151 + q^156 + q^169
        + a*q^171 - q^181 + (-a + 1)*q^189 + (-a + 1)*q^199 + (-a + 1)*q^201 - 
        2*a*q^211 + a*q^219 - q^229 + (-a + 1)*q^241 - 2*a*q^244 + (a - 1)*q^256
        + O(q^258),
    q^3 + a*q^7 + (a - 1)*q^12 + (a - 1)*q^13 + (a - 1)*q^27 - q^28 + 2*q^37 + 
        a*q^43 - a*q^48 - a*q^52 + (-a + 1)*q^57 - q^63 - q^67 + (-a + 1)*q^73 +
        2*q^93 - 2*a*q^97 + (-a + 1)*q^103 - a*q^108 + (-a + 1)*q^112 - a*q^117 
        - q^127 + q^133 + (2*a - 2)*q^148 + (-a + 1)*q^157 - 2*a*q^163 - q^172 +
        (2*a - 2)*q^183 + q^192 - q^193 + q^208 + 2*a*q^217 - q^223 + a*q^228 - 
        q^237 - a*q^243 + a*q^247 + (-a + 1)*q^252 + O(q^258)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^7 + a^5 - 1)*q^4 + (a^7 - a^4 + a)*q^6 + (a^5 - 1)*q^7 + a^7*q^9 + 
        (a^5 - a^2)*q^10 + (-a^7 + a^2)*q^13 + (a^7 + a^6 - a^4 - a^3 - a^2 + 
        1)*q^15 + a^4*q^19 + (a^7 - a^5 - a + 1)*q^22 - a^5*q^24 - a^6*q^25 + 
        (-a^5 + a^2)*q^28 + (-a^7 + a^4 - a)*q^33 + (a^6 - a^3)*q^34 + (-a^7 - 
        a^6 + a^4 + a^3 - 1)*q^36 - a^2*q^37 + (-a^7 + a^2)*q^40 + (-a^7 + a^4 +
        a^3 - a - 1)*q^42 + (-a^5 - a^4 + a + 1)*q^43 + (a^7 - a^5 + 1)*q^46 - 
        q^51 + (a^7 - a^4)*q^52 + (a^5 - a^2)*q^54 + (-a^5 + a^2)*q^55 + (-a^7 +
        a^3 + a^2 - 1)*q^60 + (a^7 - a^5 - a^4 + a + 1)*q^61 - a^2*q^63 + (a^6 -
        a^3 + 1)*q^64 + (-a^6 + a^2 + a)*q^67 + a^4*q^69 + (-a^7 + a^2 - 1)*q^70
        + a^3*q^73 + (a^7 - a^4 - a^3 - a^2 + a + 1)*q^76 + (a^7 - a^5 + 1)*q^78
        + (a^7 + a^6 - a^4 - a^3 - a^2 + 1)*q^81 + (a^4 - a)*q^82 - a^7*q^85 + 
        (-a^7 - a^6 + a^5 + a^4 + a^3 - 1)*q^88 + (-a^6 + a^3 - 1)*q^90 + 
        a^7*q^91 + (-a^7 - a^6 + a^4 + a^3 + a^2 - 1)*q^94 + a^6*q^96 + (-a^7 + 
        a^5 - a - 1)*q^97 + (-a^7 + a^5 + a^4 - 1)*q^100 + (a^7 - a^2 + 1)*q^103
        + (-a^7 - a^6 + a^3 + a^2 - 1)*q^105 + (-2*a^7 - a^6 + 2*a^4 + 2*a^3 + 
        a^2 - a - 2)*q^106 + (a^7 + a^6 - a^4 - a^3 + 1)*q^114 + (a^6 - a)*q^115
        + a^4*q^117 + (a^7 - a^3 - a^2 + 1)*q^118 + (-a^7 + a^5 - 1)*q^121 + 
        (-a^7 + a^5 + a^4 - a - 1)*q^123 + (a^7 - a^5 - a^4 - a^3 + a + 1)*q^127
        + (a^7 + a^6 - a^4 - a^3 + 1)*q^130 + (a^7 + a^5 - a^4 - a^3 - a^2 + a +
        1)*q^132 + (a^7 + a^6 - a^4 - a^3 - a^2 + 1)*q^133 - a^6*q^135 + (a^7 - 
        a^5 - a^4 + a + 1)*q^136 + (a^5 - a - 1)*q^139 + (-a^7 - a^6 + a^5 + a^4
        + a^3 + a^2 - 1)*q^141 + (a^6 - a^3 + 1)*q^148 + (-a^4 + a)*q^150 + 
        (-a^7 + a^3 + a^2 - 1)*q^151 + (-a^6 + a^5 - a^2 + a)*q^154 + (-a^7 - 
        a^6 + a^5 + a^4 + a^3 - 1)*q^159 + (-a^7 + a^5 + a^4 - a - 1)*q^160 + 
        a^7*q^163 + (a^7 + a^6 - a^5 - a^4 - a^3 + 1)*q^166 + q^168 + (-a^7 - 
        a^6 + a^3 + a^2 - 1)*q^169 + (a^6 - a)*q^171 + (a^6 - a)*q^172 + a*q^175
        - a^3*q^177 + (-a^7 + a^5 - 1)*q^178 + (a^7 + a^6 - a^3 - a^2 + 1)*q^181
        - a^2*q^184 + (-a^6 + a^3)*q^187 + (a^7 - a^3 - a^2 + 1)*q^190 + (a^6 - 
        a)*q^195 + (2*a^7 + a^6 - a^5 - 2*a^4 - 2*a^3 + a + 2)*q^198 + (a^7 - 
        a^5 + 1)*q^204 - a^5*q^205 + (2*a^7 - a^5 - 2*a^4 + a + 1)*q^214 + (-a^7
        + a^2)*q^216 + (a^7 - a^6 + a^3 - a^2)*q^220 + (-a^7 + a^2 - 1)*q^222 + 
        (-a^6 - a^5 + a)*q^223 + (a^7 - a^5 - a^4 + a + 1)*q^225 + a^6*q^229 + 
        (a^7 - a^4 - a^3 + a + 1)*q^231 + (a^7 + a^6 - a^2)*q^235 + (a^7 - a^5 -
        a^4 + 1)*q^238 + (-a^7 + a^4 + a^3 - a - 1)*q^244 + a*q^247 - a^5*q^249 
        + (-a^7 - a^6 + a^5 + a^4 + a^3 - 1)*q^250 + (a^6 - a^3 + 1)*q^252 + 
        (-a^7 + a^5 - 1)*q^253 - a^4*q^256 + O(q^258),
    q^2 + (a^6 + 1)*q^3 + (a^5 + a^4 - a - 1)*q^5 + (-a^7 + a^5 - a - 1)*q^8 - 
        q^11 - a^4*q^12 + (a^5 - 1)*q^14 + (a^6 + a^5 - a^2 - a)*q^17 + a^7*q^18
        + (-a^6 + a)*q^20 + (a^5 - a - 1)*q^21 + (-a^7 + a^3 + a^2)*q^23 + (-a^7
        + a^2)*q^26 + (a^5 + a^4 - a - 1)*q^27 + (a^7 + a^6 - a^4 - a^3 - a^2 + 
        1)*q^30 + (-a^7 - a^6 + a^5 + a^4 + a^3 + a^2 - 1)*q^32 + (a^7 - a^5 - 
        a^4 - a^3 - a^2 + a + 1)*q^35 + a^4*q^38 + (-a^7 + a^3 + a^2)*q^39 + 
        (a^7 + a^6 - a^2)*q^41 + (a^7 - a^5 + 1)*q^44 + (a^7 + a^6 - a^5 - a^4 -
        a^3 - a^2 + 1)*q^45 + (a^7 - 2*a^5 - a^4 + 2*a + 2)*q^47 - a^6*q^50 + 
        (a^7 - a^5 - a^4 + a + 1)*q^53 + (-a^6 - a^5 + a^2 + a)*q^56 + (a^5 + 
        a^4 - 1)*q^57 + (a^6 - a^2 - a)*q^59 + (a^5 + a^4 - 1)*q^65 + (-a^7 + 
        a^4 - a)*q^66 + (-a^7 + a^2)*q^68 + (-a^6 - a^5 + a)*q^72 - a^2*q^74 + 
        (-a^7 - a^6 + a^2)*q^75 + (-a^5 + 1)*q^77 + (-a^7 + a^5 - a - 1)*q^83 + 
        (-a^7 - a^6 + a^4 + a^3 + a^2 - 1)*q^84 + (-a^5 - a^4 + a + 1)*q^86 + 
        (a^7 - a^3 - a^2)*q^89 - a*q^92 + (a^6 - a^2 - a)*q^95 - a^7*q^99 - 
        q^102 + (a^5 - a - 1)*q^104 + (-a^7 + a^2)*q^107 + (-a^6 + a)*q^108 + 
        (-a^5 + a^2)*q^110 + (a^7 - a^5 - a^4 - a^3 - a^2 + a + 1)*q^111 + (-a^7
        - a^6 + a^2 - 1)*q^119 + (-a^7 + a^3 + a^2)*q^120 + (a^7 - a^5 - a^4 + a
        + 1)*q^122 + (a^7 - a^5 + a + 1)*q^125 - a^2*q^126 - a^3*q^128 + (a^7 - 
        2*a^5 - a^4 + 2*a + 2)*q^129 + (a^7 - a^5 + 2*a + 1)*q^131 + (-a^6 + a^2
        + a)*q^134 + (a^6 - a^2 - a)*q^137 + a^4*q^138 + a^6*q^140 + (a^7 - 
        a^2)*q^143 + a^3*q^146 + (-a^7 - a^6 + a^5 + a^4 + a^3 + 2*a^2 - 
        1)*q^149 + (a^7 - a^5 - a^4 - a^3 - a^2 + a + 1)*q^152 + (-a^6 - 
        1)*q^153 - a*q^156 + (a^5 + a^4 - a - 1)*q^161 + (a^7 + a^6 - a^4 - a^3 
        - a^2 + 1)*q^162 + (-a^5 + 1)*q^164 + (-a^7 - a^6 + a^4 + a^3 + a^2 - 
        1)*q^165 - a^7*q^170 + (a^7 - 2*a^5 - a^4 - a^3 - a^2 + a + 1)*q^173 + 
        a^3*q^180 + a^7*q^182 + (a^7 - a^5 + a + 1)*q^183 + (-a^7 - a^6 + a^3 + 
        a^2)*q^185 + (a^6 - a^2 - a)*q^188 + (a^7 - a^5 - a^4 - a^3 - a^2 + a + 
        1)*q^189 + (a^7 + a^6 - a^4 - a^3 - a^2 + 1)*q^191 + a^6*q^192 + (-a^7 +
        a^5 - a - 1)*q^194 + (-a^6 - a^3 - 1)*q^197 + (a^5 + a^4 - 1)*q^200 + 
        (-a^7 - a^6 + a^5 + a^4 + a^3 + 2*a^2 - 1)*q^201 + (a^7 - a^2 + 1)*q^206
        + (a^5 + a^4 - 1)*q^207 - a^4*q^209 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^210
        + (-a^7 + a^4 + a^3 - a - 1)*q^212 + (-a^7 + 2*a^5 + a^4 + a^3 + a^2 - a
        - 1)*q^215 + (a^7 + a^6 - a^2 + 1)*q^219 + (a^6 + a^5 - a)*q^221 + (a^7 
        + a^6 - a^3 - a^2)*q^224 + (a^7 - a^5 - a^4 - a^3 + a + 1)*q^228 + (a^6 
        - a)*q^230 + a^4*q^234 + q^236 + (-a^7 + a^5 - 1)*q^242 + (a^7 + a^6 - 
        a^5 - a^4 - a^3 - a^2 + 1)*q^243 + (-a^7 + a^5 + a^4 - a - 1)*q^246 + 
        (-a^7 - a^6 + a^5 + a^4 + a^3 + a^2 - 1)*q^251 + (a^7 - a^5 - a^4 - a^3 
        + a + 1)*q^254 + (-a^5 - a^4 + a + 1)*q^255 + O(q^258)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^9 - a^2*q^11 - a^3*q^14 - a^2*q^16 + a*q^19 + a^2*q^26 + (a^3 - 
        a)*q^29 + a^3*q^34 + a^2*q^41 + (-a^2 + 1)*q^46 + (-a^3 + a)*q^54 + 
        (-a^2 + 1)*q^56 - a*q^59 + (a^2 - 1)*q^61 - a^3*q^64 + (a^2 - 1)*q^71 + 
        a*q^74 - q^86 + (-a^3 + a)*q^89 + (a^2 - 1)*q^91 + a^3*q^99 - a^2*q^101 
        + a^3*q^104 + (a^3 - a)*q^119 + (a^2 - 1)*q^126 + a*q^134 + (a^2 - 
        1)*q^136 - a*q^139 + a^3*q^144 + a*q^149 + (a^3 - a)*q^154 + q^161 - 
        a^3*q^169 - a^2*q^171 + (a^2 - 1)*q^176 + (-a^3 + a)*q^179 + (-a^3 + 
        a)*q^184 + a*q^189 + (-a^2 + 1)*q^191 - a^3*q^194 - a*q^199 - a^3*q^209 
        + a^2*q^211 - a*q^214 + q^216 + (-a^2 + 1)*q^221 - q^226 - a^3*q^234 + 
        2*a^3*q^239 + (a^2 - 1)*q^241 + (a^2 - 1)*q^251 - a*q^254 + O(q^258),
    q^2 + a^2*q^7 + a*q^8 - a*q^13 - a^2*q^17 - a*q^18 - a^2*q^22 + a^3*q^23 + 
        (a^2 - 1)*q^27 - q^37 + a*q^38 + (-a^3 + a)*q^43 + (a^3 - a)*q^58 - 
        a^3*q^63 - q^67 - a^2*q^72 + (-a^2 + 1)*q^77 + a^2*q^82 - a^3*q^88 + 
        a^2*q^97 + q^107 + (-a^2 + 1)*q^112 + (-a^3 + a)*q^113 + a^2*q^117 - 
        a*q^118 + (a^2 - 1)*q^122 + q^127 - a^3*q^128 + a^3*q^133 - a^2*q^137 + 
        (a^2 - 1)*q^142 + a^3*q^143 + a^2*q^152 + a^3*q^153 + (-2*a^2 + 2)*q^157
        + (-a^3 + a)*q^163 + q^167 + (a^3 - a)*q^173 + (-a^3 + a)*q^178 + (a^2 -
        1)*q^182 + (a^2 - 1)*q^187 + a^3*q^193 - q^197 + a^3*q^198 - a^2*q^202 -
        a*q^203 + (-a^2 + 1)*q^207 + a^3*q^208 + a^3*q^223 - a^2*q^227 - q^232 -
        2*a*q^233 + (a^3 - a)*q^238 + (-a^3 + a)*q^243 - a^2*q^247 + (-a^3 + 
        a)*q^253 - q^257 + O(q^258),
    q^3 + (a^2 - 1)*q^18 - a^2*q^33 - a^3*q^42 - a^2*q^48 + a*q^57 - q^63 + (a^3
        - a)*q^72 + a^2*q^78 + (a^3 - a)*q^87 + a^3*q^102 + (-a^3 + a)*q^117 + 
        a^2*q^123 + (-a^2 + 1)*q^138 + q^153 + (-a^3 + a)*q^162 + (-a^2 + 
        1)*q^168 - a*q^177 + (a^2 - 1)*q^183 - a^3*q^192 + q^198 - a*q^207 + 
        (a^2 - 1)*q^213 + a*q^222 - a^2*q^243 + O(q^258),
    q^6 - a^3*q^9 + a^2*q^21 + a*q^24 - a*q^39 - a^2*q^51 - a^2*q^66 + a^3*q^69 
        + (a^2 - 1)*q^81 + (a^3 - a)*q^99 - q^111 + a*q^114 - q^126 + (-a^3 + 
        a)*q^129 + (a^3 - a)*q^144 + (-a^2 + 1)*q^171 + (a^3 - a)*q^174 - q^201 
        + (-a^2 + 1)*q^231 + (-a^3 + a)*q^234 + a^2*q^246 + O(q^258)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^4 + (-a + 1)*q^9 - a*q^16 + (a - 1)*q^19 - q^21 + 2*q^31 - 
        a*q^36 + a*q^39 + (2*a - 2)*q^61 - q^64 + a*q^76 + q^79 - a*q^81 + (a - 
        1)*q^84 + (-a + 1)*q^91 - 2*q^109 + (2*a - 2)*q^111 + (a - 1)*q^121 + 
        (-2*a + 2)*q^124 + q^129 + (a - 1)*q^139 - q^144 - q^151 + q^156 - q^169
        + a*q^171 - q^181 + (a - 1)*q^189 + (a - 1)*q^199 + (-a + 1)*q^201 - 
        2*a*q^211 - a*q^219 + q^229 + (-a + 1)*q^241 + 2*a*q^244 + (a - 1)*q^256
        + O(q^258),
    q^3 - a*q^7 + (-a + 1)*q^12 + (a - 1)*q^13 + (-a + 1)*q^27 - q^28 - 2*q^37 +
        a*q^43 - a*q^48 + a*q^52 + (a - 1)*q^57 - q^63 + q^67 + (-a + 1)*q^73 + 
        2*q^93 + 2*a*q^97 + (-a + 1)*q^103 - a*q^108 + (a - 1)*q^112 + a*q^117 +
        q^127 + q^133 + (2*a - 2)*q^148 + (a - 1)*q^157 - 2*a*q^163 + q^172 + 
        (2*a - 2)*q^183 - q^192 - q^193 + q^208 - 2*a*q^217 - q^223 + a*q^228 + 
        q^237 - a*q^243 - a*q^247 + (a - 1)*q^252 + O(q^258)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 - q^12 + q^13 + q^22 - q^43 + q^48 + q^49 - q^61 - q^64 - q^66 - 
        q^79 + q^81 - q^82 - q^94 - q^103 - q^108 + q^117 - q^118 + 2*q^127 - 
        q^129 - q^142 - q^156 - q^157 - q^166 + q^169 + q^172 + q^178 - q^183 + 
        q^198 - q^199 - q^211 - q^237 + q^244 + q^246 + q^256 + O(q^258),
    q^2 + q^18 - q^32 - q^33 - q^47 - q^78 - q^83 + q^98 + q^123 - q^132 + q^137
        + q^143 + q^162 + q^167 + q^177 - q^188 - q^197 + q^213 + q^227 + q^242 
        + O(q^258),
    q^3 + q^12 - q^13 - 2*q^22 + q^27 - q^48 - q^52 + 2*q^82 + q^108 - q^117 + 
        2*q^118 - 2*q^127 + 2*q^142 + q^147 - 2*q^178 - q^192 - 2*q^198 + q^208 
        + q^243 + O(q^258),
    q^4 + q^12 - q^13 - q^16 - q^22 + q^36 - q^39 + q^43 - q^48 + q^61 - q^66 + 
        q^79 + q^82 - q^94 + q^103 + q^108 - q^117 + q^118 + q^121 - 2*q^127 + 
        q^129 - 2*q^139 + q^142 - q^144 + q^157 - q^166 - q^172 - q^178 - 
        2*q^181 + q^183 + q^196 - q^198 + q^199 + q^211 + q^237 - q^244 + q^246 
        + O(q^258),
    q^6 - q^11 - q^26 + q^41 - q^44 + q^54 + q^59 + q^71 - q^89 - q^96 - q^99 - 
        q^141 + q^149 + q^164 + q^176 - q^234 + q^236 + q^239 - q^249 - 2*q^254 
        + O(q^258)
]
;
Bo:=
[
    q - q^3 - q^4 + q^9 + q^12 - q^13 + q^16 - q^27 - q^36 + q^39 + 2*q^43 - 
        q^48 + q^49 + q^52 - 2*q^61 - q^64 - 2*q^79 + q^81 + 2*q^103 + q^108 - 
        q^117 - q^121 - 2*q^127 - 2*q^129 + 2*q^139 + q^144 - q^147 - q^156 + 
        2*q^157 + q^169 - 2*q^172 + 2*q^181 + 2*q^183 + q^192 - q^196 - 2*q^199 
        - q^208 - 2*q^211 + 2*q^237 - q^243 + 2*q^244 + q^256 + O(q^258),
    q^5 - q^15 - q^20 + q^45 + q^60 - q^65 + q^80 - q^125 - q^135 - q^180 + 
        q^195 + 2*q^215 - q^240 + q^245 + O(q^258),
    q^25 - q^75 - q^100 + q^225 + O(q^258)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 - a^2*q^9 + (a^3 - a^2 + a - 1)*q^10 + (a^3 - a)*q^12 + (-a^3 + 
        2*a^2 - a)*q^16 + (-2*a^3 + a^2 - a + 1)*q^22 - a*q^30 - a^3*q^36 - 
        a^3*q^39 + (a^2 - 1)*q^40 + (a^3 + a^2)*q^43 + (a^3 - 2*a^2 + a - 
        1)*q^48 - q^49 + (a^3 - 2*a^2 + a - 1)*q^52 + a*q^55 + (a^3 - a + 
        1)*q^64 + (a^3 + a)*q^66 + (-a^3 + a^2 - a + 1)*q^75 + (a^3 - a^2 + a - 
        1)*q^81 + (-a^3 + a^2 - a + 2)*q^88 + a*q^90 + (-a^3 + 1)*q^94 + (-a^3 -
        1)*q^100 + (a^3 + 1)*q^108 + (a^3 - a^2 + 2*a - 1)*q^118 + (-a^2 + 
        1)*q^120 - a*q^121 - a^2*q^130 + (a^3 + a - 1)*q^139 + (a^2 + a)*q^142 +
        (-a^3 + 2*a^2 - 2*a + 1)*q^144 + (-a^3 + a^2 - a + 1)*q^156 + (-a^3 + 
        a^2 - 2*a + 1)*q^157 + (a^2 - 2*a + 1)*q^160 + (a^3 - a^2 + a - 1)*q^165
        - 2*a^2*q^166 + (-a^3 + a^2 - a + 1)*q^169 + (2*a^3 - a^2 + a - 1)*q^172
        + (-2*a^3 + a^2 - a + 1)*q^178 + (a^3 - 1)*q^181 + (-a^3 - 1)*q^183 + 
        (-a^3 + a^2 + a - 1)*q^192 - a*q^196 + (-a - 1)*q^198 - a^3*q^205 + 
        (-a^3 - 1)*q^208 + (a^3 + a^2 + 1)*q^220 + a^3*q^235 + (2*a^3 - 3*a^2 + 
        3*a - 2)*q^244 + (a^2 + 1)*q^246 - a^3*q^250 + (-2*a^2 + 2*a)*q^256 + 
        O(q^258),
    q^2 + a^2*q^6 + (-a^3 + a)*q^8 - a^2*q^11 - q^15 - a^2*q^18 + (a^3 - a^2 + 
        2*a - 1)*q^20 + (a^3 - a)*q^24 + a^3*q^26 + (-a^3 + 2*a^2 - a)*q^32 + 
        q^33 + (a^3 - a^2 + a - 1)*q^41 + (-2*a^3 + a^2 - 2*a + 1)*q^44 + (-a^3 
        + a^2 - a + 1)*q^47 + (a^3 - a^2 + a - 1)*q^50 + (-a^3 + a^2 - a + 
        1)*q^54 + a^3*q^59 - a*q^60 - a*q^65 + q^71 + (-a^3 - 1)*q^72 - a^3*q^78
        + (a^2 - 1)*q^80 - a*q^83 + (a^3 + a^2)*q^86 - a^3*q^89 + (a^3 - 2*a^2 +
        2*a - 1)*q^96 - q^98 + (a^3 - a^2 + a - 1)*q^99 + (a^3 - 2*a^2 + a - 
        1)*q^104 + (-a^3 + a^2 + 1)*q^110 + (a^3 + 1)*q^122 + a*q^123 - 
        a^2*q^125 + (a^3 - a^2 - a + 1)*q^128 + (a^3 + a + 1)*q^132 + a^2*q^135 
        + a^2*q^137 + (-a^3 + a^2 - a + 1)*q^141 + a*q^143 - q^149 + (-a^3 + a^2
        - a + 1)*q^150 + (a^3 - a^2 + a - 1)*q^162 - a^2*q^164 - a^3*q^167 + 
        (-a^3 + a^2 - 2*a + 2)*q^176 + a^2*q^177 + (-a^3 + a)*q^180 - a^3*q^188 
        + a*q^197 + (-a^3 - 1)*q^200 + a^3*q^213 + (a^3 + 1)*q^216 - a^3*q^227 +
        q^234 + (-a^2 + 2*a - 1)*q^236 + a^3*q^239 + (a^3 - 2*a^2 + a)*q^240 + 
        (a^3 - a^2 - 2)*q^242 - a^3*q^249 + (a^2 - a)*q^254 + O(q^258),
    q^3 + (-a^3 + a^2 - 2*a + 1)*q^4 + (-a^3 + a^2 - a + 1)*q^10 + a*q^12 + 
        a*q^13 + (-a^2 + 1)*q^16 + (a^3 - a^2 - 1)*q^22 + a^2*q^25 - a^2*q^27 + 
        (a^3 - a^2 + a - 1)*q^30 + (a^3 - a)*q^36 + (a^3 + 1)*q^40 + (-a^3 + 
        2*a^2 - a)*q^48 + a^2*q^52 - a^2*q^55 + (-a^3 + a)*q^61 + (-a^2 + 2*a - 
        2)*q^64 + (-2*a^3 + a^2 - a + 1)*q^66 + (a^3 - 1)*q^82 + (-2*a^2 + a - 
        2)*q^88 - a*q^90 + a^3*q^100 - a^3*q^108 - a^3*q^117 + (a^2 - a)*q^118 +
        (a^2 - 1)*q^120 + (a^3 + a^2)*q^121 + (a^3 - a^2 + a)*q^127 + (a^3 + 
        a^2)*q^129 - q^130 + (-a^3 - a + 1)*q^142 + (a^3 - 2*a^2 + a - 1)*q^144 
        - q^147 + (a^3 - 2*a^2 + a - 1)*q^156 + (-a^2 + 2*a - 1)*q^160 + a*q^165
        + (a^2 - 1)*q^166 + (-2*a^3 + 2*a^2 + 1)*q^172 + (a^3 - a^2)*q^178 + 
        (a^3 - a + 1)*q^192 + (a^3 - a^2 + 2*a - 1)*q^196 + (a^3 + a)*q^198 + 
        (-a^2 - a)*q^199 - a^3*q^205 + (a^3 - a + 1)*q^208 + (a^3 - a^2 + a - 
        2)*q^211 + (-a^3 - a^2 + 1)*q^220 + (-a^3 + a^2 - a + 1)*q^225 - a*q^235
        + (a^3 - a^2 + a - 1)*q^243 + (-a^3 + 2*a^2 - a + 1)*q^244 - a*q^250 + 
        (-a^3 + 2*a^2 - 2*a)*q^256 + O(q^258),
    q^5 + (a^3 + a - 1)*q^6 + (a + 1)*q^8 + (-a^3 + a^2 - a)*q^11 - a^2*q^15 + 
        a^3*q^20 + (a^3 - 1)*q^26 + (-a^3 + 2*a^2 - a + 1)*q^33 - 2*a*q^41 - 
        2*a^3*q^44 - a^2*q^45 + (a^3 - a^2 + 2*a - 1)*q^47 + (a^3 - a^2 - 
        1)*q^50 + (-a^3 + a^2 + 1)*q^54 + (-a^2 - 1)*q^59 - a*q^60 - a^3*q^65 + 
        (-a^3 + a^2)*q^71 + (-a^3 - a^2)*q^72 - q^80 + (a^3 - a^2 + a)*q^89 + 
        (a^3 - a^2)*q^96 + (a^2 - a)*q^99 + (-a^3 + a^2 + 1)*q^110 + (a^3 + 
        a^2)*q^122 + (a^3 - a)*q^123 + (-a^3 + a^2 - a + 1)*q^125 + (-a^3 + a^2 
        - 2*a + 1)*q^128 + (a^2 + a)*q^132 + (a^3 - a^2 + a - 1)*q^135 + (2*a^3 
        - a^2 + a - 1)*q^137 + 2*a*q^141 + (a^3 + 1)*q^143 + (-a^2 + a)*q^149 + 
        (-a^3 + a^2 - a)*q^164 + (a + 1)*q^167 + (-a^3 + 1)*q^176 + (a^3 - a^2 +
        a - 2)*q^177 + q^180 + (-a^2 + 1)*q^188 - a^3*q^195 + (a^3 + a^2)*q^197 
        + (a^2 - 1)*q^213 + (a^3 + a^2)*q^215 + (-a^3 + a^2 - a + 2)*q^227 + 
        (a^2 + 1)*q^234 + (a^3 - a^2 + a)*q^236 + (-a^3 + a^2 - a)*q^239 - 
        a*q^240 + (a^3 - 2*a^2 - 2)*q^242 - q^245 + (-a^3 + 1)*q^249 - q^254 + 
        O(q^258)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^4 + (a^3 - a^2 + a - 1)*q^9 - a^3*q^10 + (a^2 - a)*q^12 + (-a^2 + 
        a)*q^16 + (-a^3 - a)*q^22 + a^2*q^30 - a*q^36 - a*q^39 + (a^3 - a^2 + 
        a)*q^40 + (a^3 - a^2 - 1)*q^43 + (-a^2 + a - 1)*q^48 + q^49 + (-a^2 + a 
        - 1)*q^52 + a^2*q^55 + (a^2 - a + 1)*q^64 + (a^2 - a)*q^66 - a^3*q^75 - 
        a^3*q^81 + 2*q^82 + (a^3 - 2*a^2 + 2*a - 1)*q^88 + a^2*q^90 + (-a + 
        1)*q^94 + (-a + 1)*q^100 + 2*a^2*q^103 + (-a + 1)*q^108 + (-a^3 + 
        a^2)*q^118 + (a^3 - a^2 + a)*q^120 + a^2*q^121 + (a^3 - a^2 + a - 
        1)*q^130 + (-a^2 + a - 1)*q^139 + (a^3 + a - 1)*q^142 + (a - 1)*q^144 - 
        a^3*q^156 + (-a^3 + a^2)*q^157 + (-a^3 + a^2 - a)*q^160 - a^3*q^165 + 
        (2*a^3 - 2*a^2 + 2*a - 2)*q^166 - a^3*q^169 + (-a^3 - a)*q^172 + (-a^3 -
        a)*q^178 + (-a + 1)*q^181 + (-a + 1)*q^183 + a^3*q^192 + a^2*q^196 + 
        (a^2 + 1)*q^198 - a*q^205 + (-a + 1)*q^208 + (a^3 - a^2)*q^220 - a*q^235
        + (2*a^3 - 2*a^2 + 2*a - 2)*q^237 + (-a^3 + a - 1)*q^244 + (a^3 - a^2 + 
        a)*q^246 - a*q^250 + O(q^258),
    q^2 + (a^3 - a^2 + a - 1)*q^6 + (a^2 - a)*q^8 + (a^3 - a^2 + a - 1)*q^11 + 
        q^15 + (a^3 - a^2 + a - 1)*q^18 + (-a^3 + a^2)*q^20 + (a^2 - a)*q^24 - 
        a*q^26 + (-a^2 + a)*q^32 + q^33 - a^3*q^41 + (-a^3 + a^2 - a)*q^44 - 
        a^3*q^47 - a^3*q^50 - a^3*q^54 - a*q^59 + a^2*q^60 + a^2*q^65 + q^71 + 
        (-a + 1)*q^72 - a*q^78 + (a^3 - a^2 + a)*q^80 + a^2*q^83 + (a^3 - a^2 - 
        1)*q^86 - a*q^89 + (a - 1)*q^96 + q^98 - a^3*q^99 + (-a^2 + a - 1)*q^104
        + (-a^3 + a^2)*q^110 + (-a + 1)*q^122 + a^2*q^123 + (a^3 - a^2 + a - 
        1)*q^125 + a^3*q^128 + (a^2 - a + 1)*q^132 + (a^3 - a^2 + a - 1)*q^135 +
        (a^3 - a^2 + a - 1)*q^137 - a^3*q^141 + a^2*q^143 + q^149 - a^3*q^150 + 
        (2*a^3 - 2*a^2 + 2*a - 2)*q^158 - a^3*q^162 + (a^3 - a^2 + a + 1)*q^164 
        - a*q^167 + (a^3 - a^2 + 2*a - 1)*q^176 + (a^3 - a^2 + a - 1)*q^177 + 
        (a^2 - a)*q^180 + (-a + 2)*q^188 + a^2*q^197 + (-a + 1)*q^200 + 
        2*a^2*q^206 - a*q^213 + (-a + 1)*q^216 - a*q^227 + q^234 + (-a^3 + a^2 -
        a)*q^236 - a*q^239 + (-a^2 + a)*q^240 + (-a^3 + a^2 + 1)*q^242 - a*q^249
        + (a^3 + a - 1)*q^254 + O(q^258),
    q^3 + (-a^3 + a^2)*q^4 - a^3*q^10 + a^2*q^12 + a^2*q^13 + (a^3 - a^2 + 
        a)*q^16 + (-a^3 + a^2)*q^22 + (a^3 - a^2 + a - 1)*q^25 + (a^3 - a^2 + a 
        - 1)*q^27 - a^3*q^30 + (a^2 - a)*q^36 + (-a + 1)*q^40 + (-a^2 + a)*q^48 
        + (a^3 - a^2 + a - 1)*q^52 + (a^3 - a^2 + a - 1)*q^55 + (a^2 - a)*q^61 +
        (-a^3 + a^2 - a + 1)*q^64 + (-a^3 - a)*q^66 + 2*q^79 + (-a + 1)*q^82 - 
        a^2*q^88 + a^2*q^90 - 2*a*q^94 - a*q^100 - a*q^108 - a*q^117 + (a^3 + a 
        - 1)*q^118 + (a^3 - a^2 + a)*q^120 + (a^3 - a^2 - 1)*q^121 + (-a^3 + 
        1)*q^127 + (a^3 - a^2 - 1)*q^129 + q^130 + (-a^2 + a - 1)*q^142 + (-a^2 
        + a - 1)*q^144 + q^147 + (-a^2 + a - 1)*q^156 + (-a^3 + a^2 - a)*q^160 +
        a^2*q^165 + (a^3 - a^2 + a)*q^166 - q^172 + (a^3 - a^2 - 1)*q^178 + (a^2
        - a + 1)*q^192 + (-a^3 + a^2)*q^196 + (a^2 - a)*q^198 + (a^3 + a - 
        1)*q^199 - a*q^205 + (a^2 - a + 1)*q^208 + (-a^3 + 1)*q^211 + (a^3 - 
        a^2)*q^220 - a^3*q^225 + a^2*q^235 - a^3*q^243 + (-a^2 + a - 1)*q^244 + 
        2*q^246 + a^2*q^250 + a*q^256 + O(q^258),
    q^5 + (2*a^3 - a^2 + a - 1)*q^6 + (a^2 - 1)*q^8 + (a^3 + 1)*q^11 + (-a^3 + 
        a^2 - a + 1)*q^15 + a*q^20 + (-a - 1)*q^26 + (-2*a^3 + a^2 - a + 1)*q^33
        + (a^3 - a^2 + a - 1)*q^45 + (-a^3 - a^2)*q^47 + (-a^3 - a^2)*q^50 + 
        (-a^3 - a^2)*q^54 + (a^3 - a^2 + a - 2)*q^59 + a^2*q^60 + a*q^65 + (-a^3
        + a^2 - 2*a + 1)*q^71 + (-a^3 + a^2 - 2*a + 1)*q^72 + q^80 + (-a^3 - 
        1)*q^89 + (a^3 - a^2 + 2*a - 1)*q^96 + (a^3 - 2*a^2 + a - 1)*q^99 + 
        (-a^3 - a^2)*q^110 + (-a^3 + a^2 - 2*a + 1)*q^122 + (a^2 + a)*q^123 + 
        a^3*q^125 + (a^3 + a^2)*q^128 + (-a^3 + 2*a^2 - a + 1)*q^132 + a^3*q^135
        + (a^3 - a)*q^137 + (a + 1)*q^143 + (-a^3 + 2*a^2 - a + 1)*q^149 + 
        (4*a^3 - 2*a^2 + 2*a - 2)*q^158 + (a^3 + 1)*q^164 + (a^2 - 1)*q^167 + (a
        + 1)*q^176 + (a^3 + 1)*q^177 - q^180 + (-a^3 + a^2 - a + 2)*q^188 - 
        a*q^195 + (a^3 - a^2 + 2*a - 1)*q^197 + (a^3 - a^2 + a - 2)*q^213 + (a^3
        - a^2 - 1)*q^215 + (-a^3 - 1)*q^227 + (-a^3 + a^2 - a + 2)*q^234 + (-a^3
        - 1)*q^236 + (-a^3 - 1)*q^239 - a^2*q^240 + (-2*a^3 - a + 2)*q^242 + 
        q^245 + (-a - 1)*q^249 + (2*a^3 + 2*a - 1)*q^254 + O(q^258)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
975
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 - q^9 + q^16 - q^36 - q^39 - q^49 - 2*q^61 + q^64 + 2*q^79 + q^81 - 
        q^121 + 2*q^129 - 2*q^139 - q^144 - q^156 - q^169 + 2*q^181 - q^196 + 
        2*q^199 - 2*q^211 - 2*q^244 + q^256 + O(q^258),
    q^3 + q^12 + q^13 - q^27 - 2*q^43 + q^48 + q^52 - 2*q^103 - q^108 - q^117 - 
        2*q^127 - q^147 + 2*q^157 - 2*q^172 - 2*q^183 + q^192 + q^208 + 2*q^237 
        + q^243 + O(q^258)
]
;
Bo:=
[
    q - q^4 - q^9 - q^16 + q^36 + q^39 - q^49 + q^64 - 2*q^66 + q^81 + 2*q^94 + 
        q^121 + 2*q^139 + q^144 - q^156 - 2*q^166 - q^169 - 2*q^181 + q^196 + 
        2*q^246 + q^256 + O(q^258),
    q^2 - q^18 - q^32 + q^33 - q^47 + q^78 + q^83 - q^98 - q^123 - q^132 + q^137
        - q^143 + q^162 + q^167 + q^177 + q^188 - q^197 - q^213 + q^227 + q^242 
        + O(q^258),
    q^3 - q^12 - q^13 + 2*q^22 - q^27 - q^48 + q^52 - 2*q^82 + q^108 + q^117 + 
        2*q^118 + 2*q^127 - 2*q^142 - q^147 - 2*q^178 + q^192 - 2*q^198 + q^208 
        + q^243 + O(q^258),
    q^5 - q^20 - q^45 + q^50 - q^80 + q^150 + q^180 + q^195 - q^245 + O(q^258),
    q^6 - q^11 - q^26 + q^41 + q^44 - q^54 - q^59 + q^71 + q^89 - q^96 + q^99 - 
        q^141 - q^149 - q^164 + q^176 + q^234 + q^236 - q^239 + q^249 + 2*q^254 
        + O(q^258),
    q^10 + q^30 - q^55 - q^75 - q^90 - q^130 - q^160 + q^165 + q^205 + q^220 - 
        q^235 + q^250 + O(q^258),
    q^15 - q^50 - q^60 - q^65 + 2*q^110 + q^125 - q^135 + q^150 - q^240 + 
        O(q^258),
    q^25 + 2*q^30 - 2*q^55 - q^75 - q^100 - 2*q^130 + 2*q^205 + 2*q^220 - q^225 
        + 2*q^250 + O(q^258)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^7 - a^5 + a^2 + 1)*q^5 + a^6*q^9 + (a^7 - a^4 - a^3 - a^2 + a + 
        1)*q^13 + (-a^7 + a^5 + 2*a^4 - a - 1)*q^17 + (-2*a^7 - a^6 - a^5 + a^3 
        + a^2 - 1)*q^25 + (-a^3 - a^2)*q^29 + (a^7 + a^2)*q^37 + (-a^7 + a^5 + 
        a^4 + a^3 - 2*a - 1)*q^41 + (a^3 + a)*q^45 - a^4*q^49 + (a^7 - a^4 + a +
        1)*q^53 + (a^7 - a^5 - a^4 - a^3 + a + 1)*q^61 + (2*a^7 + a^6 - a^5 - 
        a^4 - 2*a^3 - a^2 + 2)*q^65 + a^4*q^73 + (a^7 - a^2)*q^81 + (-2*a^7 - 
        a^6 + 2*a^5 + 2*a^4 + 2*a^3 + a^2 - 3)*q^85 + (a^5 - a)*q^89 + (a^6 + 
        a^3 - a)*q^97 + (a^5 - 2)*q^101 + (2*a^7 - a^5 - a^4 - a^2 + a + 
        1)*q^109 + (-a^7 - a^6 + a^2 - 1)*q^113 + (-a^5 + a^2)*q^117 - q^121 + 
        (-a^6 - a^4 - a^2 - 1)*q^125 + (a^7 - a^6)*q^137 + (a^7 + a^6 + a^5 - 
        a^3 - 2*a^2 - a - 1)*q^145 + (-a^7 - a^6 + a)*q^149 + (a^5 - a^4 - 
        1)*q^153 + (a^7 + a^4)*q^157 + (-a^4 + a)*q^169 + (a^7 + a^6 - a^2 - 
        a)*q^173 + (a^6 - a^5 + 1)*q^181 + (-2*a^7 - a^6 + 2*a^4 + a^3 + 3*a^2 -
        1)*q^185 + (a^6 - a^2)*q^193 + (-a^7 - 2*a^6 + a^4 + a^3 + a^2 - 
        1)*q^197 + (-a^7 + a^6 + 2*a^5 + a^4 + a^3 - 2*a - 1)*q^205 + (a^6 - 
        2*a^3 + 2)*q^221 + (a^7 - a^6 - a^5 - a^4 + 2*a + 2)*q^225 + (a^7 + a^6 
        - a^4 - a^3 - a^2 + 1)*q^229 + (-2*a^5 + 1)*q^233 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^5 + (a^7 - a^2)*q^9 + (-a^5 - a^4 +
        a + 1)*q^13 + (-a^7 - a^6 + a^5 + a^4 + a^3 - 1)*q^17 + (a^7 + a^6 + a^5
        - a^4 - 2*a^3 - a^2)*q^25 + (a^6 + a^4)*q^29 + (a^7 + a^6 - a^3 - a^2 + 
        1)*q^37 + (a^2 - a)*q^41 + (a^6 + a^2)*q^45 + (-a^7 + a^5 + a^4 + a^3 - 
        a - 1)*q^49 + (-a^6 + a^5 + a - 1)*q^53 - a*q^61 + (-a^3 - a^2 - a)*q^65
        + (a^7 - a^5 - a^4 - a^3 + a + 1)*q^73 + (-a^7 - a^6 + a^3 + a^2 - 
        1)*q^81 + (a^7 - 2*a^5 - a^4 + a^2 + 1)*q^85 + (a^5 + a^2 - 1)*q^89 + 
        (-a^7 + a^6)*q^97 + (-a^5 + 1)*q^101 + (-a^7 - 2*a^6 + a^3 + a^2 + a - 
        1)*q^109 + (a^6 - a^3)*q^113 + (a^5 + a^4 - 1)*q^117 + q^121 + (a^5 + 
        2*a^4 + a^3 - a^2 - a)*q^125 + (2*a^7 + a^6 - a^4 - a^3 - 2*a^2 + 
        1)*q^137 + (-2*a^6 - a^5 - a^4 + a^3 + a^2 + 2*a + 1)*q^145 + (a^6 - a^4
        - a^3 - a^2 + 1)*q^149 + (-a^7 + a^4 + a^3 - a - 1)*q^153 + (a^6 + a^5 -
        a^2 - a)*q^157 + (a^7 - a^5 - a^4 - a^3 - a^2 + a + 1)*q^169 + (-2*a^7 -
        a^6 + a^3 + a^2 - 1)*q^173 + (a^7 - a^5 - a^2)*q^181 + (-a^7 - a^6 + a^4
        + 2*a^3 + a^2 - 1)*q^185 + (a^7 + a^4 - a^2)*q^193 + (2*a^7 - a^5 - a^4 
        - a^2 + a + 1)*q^197 + (-a^7 + a^5 + a - 1)*q^205 + (-a^7 + a^2)*q^221 +
        (-a^7 - a^6 + a + 1)*q^225 + (-a^7 + a^5 + a^4 - a - 1)*q^229 - q^233 + 
        O(q^238),
    q^2 + (-a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^10 + (a^7 - a^2)*q^18 + (-a^5 - 
        a^4 + a + 1)*q^26 + (-a^7 - a^6 + a^5 + a^4 + a^3 - 1)*q^34 + (a^7 + a^6
        + a^5 - a^4 - 2*a^3 - a^2)*q^50 + (a^6 + a^4)*q^58 + (a^7 + a^6 - a^3 - 
        a^2 + 1)*q^74 + (a^2 - a)*q^82 + (a^6 + a^2)*q^90 + (-a^7 + a^5 + a^4 + 
        a^3 - a - 1)*q^98 + (-a^6 + a^5 + a - 1)*q^106 - a*q^122 + (-a^3 - a^2 -
        a)*q^130 + (a^7 - a^5 - a^4 - a^3 + a + 1)*q^146 + (-a^7 - a^6 + a^3 + 
        a^2 - 1)*q^162 + (a^7 - 2*a^5 - a^4 + a^2 + 1)*q^170 + (a^5 + a^2 - 
        1)*q^178 + (-a^7 + a^6)*q^194 + (-a^5 + 1)*q^202 + (-a^7 - 2*a^6 + a^3 +
        a^2 + a - 1)*q^218 + (a^6 - a^3)*q^226 + (a^5 + a^4 - 1)*q^234 + 
        O(q^238),
    q^4 - a*q^8 + a^2*q^16 + (-a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^20 - a^3*q^32 
        + (a^7 - a^2)*q^36 + (a^6 + a^5 - 1)*q^40 + (-a^5 - a^4 + a + 1)*q^52 + 
        a^4*q^64 + (-a^7 - a^6 + a^5 + a^4 + a^3 - 1)*q^68 + (a^7 - a^5 - a^4 + 
        a + 1)*q^72 + (-a^7 - a^6 + a)*q^80 + (a^7 + a^6 + a^5 - a^4 - 2*a^3 - 
        a^2)*q^100 + (a^6 + a^5 - a^2 - a)*q^104 + (a^6 + a^4)*q^116 - a^5*q^128
        + (-a^6 + a^3 - 1)*q^136 + (a^7 + a^6 - a^4 - a^3 - a^2 + 1)*q^144 + 
        (a^7 + a^6 - a^3 - a^2 + 1)*q^148 + (a^5 + a^4 + a^3 - a^2 - a - 
        1)*q^160 + (a^2 - a)*q^164 + (a^6 + a^2)*q^180 + (-a^7 + a^5 + a^4 + a^3
        - a - 1)*q^196 + (-a^6 + a^4 + a + 1)*q^200 + (-a^7 - a^6 + a^3 + 
        a^2)*q^208 + (-a^6 + a^5 + a - 1)*q^212 + (-a^7 - a^5)*q^232 + O(q^238)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^2 - 1)*q^5 - a*q^9 + (a^3 - a^2 - 1)*q^13 + (2*a^3 - a^2 + a - 
        1)*q^17 + (a^3 + a)*q^25 + (-a^3 - a^2)*q^29 + (-a^3 - a)*q^41 + (a^3 + 
        a)*q^45 + (-a^3 + a^2 - a + 1)*q^49 + (-a^3 - 1)*q^53 + a^3*q^61 + (a^2 
        + a + 1)*q^65 + (-2*a^3 + 2*a^2 - 2*a + 2)*q^73 + a^2*q^81 + (-2*a^3 + 
        a^2 + 2)*q^85 + (-a - 1)*q^89 + (a^3 + a)*q^97 + (-a^3 + a^2)*q^109 + 
        (-a^2 + a - 1)*q^113 + (a^2 + 1)*q^117 - q^121 - a^3*q^125 + (-a^2 + 
        a)*q^137 + (2*a^3 + a - 2)*q^145 + (a^2 - a)*q^149 + (-a^3 + a^2 - a + 
        2)*q^153 + (a^3 - 2*a^2 + a - 1)*q^157 + (-a^3 + a^2 + 1)*q^169 + (a^2 +
        a)*q^173 + (-a - 1)*q^181 + (-a^2 - a)*q^193 + (-a^3 + a^2 + 1)*q^197 + 
        (2*a^3 + a - 1)*q^205 + (-2*a^3 - a + 2)*q^221 + (-a^3 - a + 1)*q^225 + 
        (-2*a^3 + 2*a^2 - 2*a + 2)*q^229 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^5 + q^9 + (2*a - 2)*q^13 + (-a + 2)*q^29 + (2*a - 1)*q^37 - 
        q^41 + (a - 1)*q^45 + a*q^49 + (-2*a + 1)*q^53 + (-a + 1)*q^61 - 
        2*a*q^65 - a*q^73 + q^81 + (-2*a + 1)*q^89 - a*q^97 + (-a - 1)*q^101 + 
        (-a + 1)*q^109 + 2*q^113 + (2*a - 2)*q^117 - q^121 - q^125 + (a - 
        1)*q^137 + (2*a - 1)*q^145 - q^149 - 3*a*q^169 + (-a + 2)*q^173 + (a + 
        1)*q^181 + (-a - 1)*q^185 + (-a + 2)*q^193 - a*q^197 + (-a + 1)*q^205 + 
        (a - 1)*q^229 + (2*a - 1)*q^233 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^3 - a^2 + a)*q^5 + a^2*q^9 + (-a^3 + a^2)*q^13 + (-a^3 - a)*q^17 + 
        (-a^2 + a)*q^25 + (a^3 - a^2 - 1)*q^29 + (2*a^3 - 2*a^2 + 2*a - 2)*q^37 
        + (a^2 - a)*q^41 + (a^2 - a)*q^45 - a^3*q^49 + (-a + 1)*q^53 - a*q^61 + 
        (-a^3 + 2*a^2 - a)*q^65 - 2*a^3*q^73 + (a^3 - a^2 + a - 1)*q^81 + (-a^3 
        + a^2 - a + 1)*q^85 + (a^2 + 1)*q^89 + (a^2 - a)*q^97 + 2*q^101 + (a^3 -
        a^2 - 1)*q^109 + (-a^3 - a)*q^113 + (a^3 - a^2 + a)*q^117 + q^121 + 
        a*q^125 + (a^3 + a - 1)*q^137 - a^2*q^145 + (a^3 + a - 1)*q^149 + (-a^3 
        + 1)*q^153 + (-a^2 + a - 1)*q^157 + (a^3 - a^2)*q^169 + (a^3 + a - 
        1)*q^173 + (a^2 + 1)*q^181 + (-2*a^2 + 2*a - 2)*q^185 + (a^3 + a - 
        1)*q^193 + (-a^3 + a^2)*q^197 + (a^2 - 2*a + 1)*q^205 - a^2*q^221 + (a^2
        - a + 1)*q^225 - 2*a^3*q^229 + 2*q^233 + O(q^238),
    q^2 + (a^3 - a^2 + a)*q^10 + a^2*q^18 + (-a^3 + a^2)*q^26 + (-a^3 - a)*q^34 
        + (-a^2 + a)*q^50 + (a^3 - a^2 - 1)*q^58 + (2*a^3 - 2*a^2 + 2*a - 
        2)*q^74 + (a^2 - a)*q^82 + (a^2 - a)*q^90 - a^3*q^98 + (-a + 1)*q^106 - 
        a*q^122 + (-a^3 + 2*a^2 - a)*q^130 - 2*a^3*q^146 + (a^3 - a^2 + a - 
        1)*q^162 + (-a^3 + a^2 - a + 1)*q^170 + (a^2 + 1)*q^178 + (a^2 - 
        a)*q^194 + 2*q^202 + (a^3 - a^2 - 1)*q^218 + (-a^3 - a)*q^226 + (a^3 - 
        a^2 + a)*q^234 + O(q^238),
    q^4 - a*q^8 + a^2*q^16 + (a^3 - a^2 + a)*q^20 - a^3*q^32 + a^2*q^36 + (-a + 
        1)*q^40 + (-a^3 + a^2)*q^52 + (a^3 - a^2 + a - 1)*q^64 + (-a^3 - a)*q^68
        - a^3*q^72 + (a^2 - a)*q^80 + (-a^2 + a)*q^100 + (-a^2 + a - 1)*q^104 + 
        (a^3 - a^2 - 1)*q^116 + q^128 + (a^3 + a - 1)*q^136 + (a^3 - a^2 + a - 
        1)*q^144 + (2*a^3 - 2*a^2 + 2*a - 2)*q^148 + (-a^3 + a^2)*q^160 + (a^2 -
        a)*q^164 + (a^2 - a)*q^180 - a^3*q^196 + (a^3 - a^2)*q^200 + (a^3 - a^2 
        + a)*q^208 + (-a + 1)*q^212 + (a^2 + 1)*q^232 + O(q^238)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 12*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 12*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^5 + q^9 - 2*a*q^13 + (2*a - 2)*q^17 + (-a + 1)*q^29 - q^37 - q^41 + 
        a*q^45 + (a - 1)*q^49 - q^53 - a*q^61 + (-2*a + 2)*q^65 + (-a + 1)*q^73 
        + q^81 - 2*q^85 - q^89 + (-a + 1)*q^97 + a*q^101 + a*q^109 + 2*q^113 - 
        2*a*q^117 + q^121 + q^125 + a*q^137 + q^145 - q^149 + (2*a - 2)*q^153 + 
        (2*a - 2)*q^157 + (3*a - 3)*q^169 + (-a + 1)*q^173 + a*q^181 - a*q^185 +
        (-a + 1)*q^193 + (-a + 1)*q^197 - a*q^205 + 4*q^221 + a*q^229 - q^233 + 
        O(q^238),
    q^2 + a*q^10 + q^18 - 2*a*q^26 + (2*a - 2)*q^34 + (-a + 1)*q^58 - q^74 - 
        q^82 + a*q^90 + (a - 1)*q^98 - q^106 - a*q^122 + (-2*a + 2)*q^130 + (-a 
        + 1)*q^146 + q^162 - 2*q^170 - q^178 + (-a + 1)*q^194 + a*q^202 + 
        a*q^218 + 2*q^226 - 2*a*q^234 + O(q^238),
    q^4 - a*q^8 + (a - 1)*q^16 + a*q^20 + q^32 + q^36 + (-a + 1)*q^40 - 2*a*q^52
        - a*q^64 + (2*a - 2)*q^68 - a*q^72 - q^80 + (2*a - 2)*q^104 + (-a + 
        1)*q^116 + (a - 1)*q^128 + 2*q^136 + (a - 1)*q^144 - q^148 + a*q^160 - 
        q^164 + a*q^180 + (a - 1)*q^196 + 2*q^208 - q^212 - q^232 + O(q^238)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 30*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 + q^49 - q^61 - 2*q^65 - 2*q^77 + q^81 - 2*q^97 + q^121 - 
        2*q^125 - 2*q^161 + q^169 - 2*q^205 + q^225 + O(q^238),
    q^5 - q^13 - q^25 - q^41 + q^45 + q^49 + q^65 + q^73 - q^77 - q^109 - q^113 
        - q^117 + q^121 + q^125 + q^137 - q^149 - q^161 - q^169 + q^197 + q^205 
        - q^225 + q^229 + O(q^238),
    q^7 - q^11 - q^23 + q^35 - q^55 + q^59 + q^63 + q^67 - q^79 - q^91 - q^99 - 
        q^115 + q^139 + q^143 + q^151 + q^191 - q^207 - q^223 - q^227 + O(q^238)
]
;
Bo:=
[
    q - q^5 + q^9 - q^13 - q^41 - q^45 + q^61 + q^65 - q^73 + q^77 + q^81 + 
        2*q^97 - q^109 - q^113 - q^117 + q^125 - q^137 - q^149 + q^161 - q^197 +
        q^205 - 2*q^217 - q^229 + O(q^238),
    q^2 - q^10 + q^18 - q^26 - q^82 - q^90 + q^122 + q^130 - q^146 + q^154 + 
        q^162 + 2*q^194 - q^218 - q^226 - q^234 + O(q^238),
    q^4 + q^16 - q^20 + q^36 - q^52 - q^56 + q^64 - q^80 - q^88 + q^144 - q^164 
        - q^180 - q^184 - q^208 - q^224 + O(q^238),
    q^7 + q^11 + q^23 - 2*q^31 - q^35 - 2*q^43 - q^55 + q^59 + q^63 + q^67 - 
        2*q^71 + q^79 - q^91 + q^99 - q^115 + q^139 - q^143 + q^151 + 2*q^155 + 
        q^191 + q^207 - 2*q^211 + 2*q^215 + q^223 + q^227 + O(q^238),
    q^8 - q^28 + q^32 - q^40 - q^44 + q^72 - q^92 - q^104 - q^112 + 2*q^124 + 
        q^128 + q^140 - q^160 + 2*q^172 - q^176 + q^220 - q^236 + O(q^238),
    q^14 + q^22 + q^46 - 2*q^62 - q^70 - 2*q^86 - q^110 + q^118 + q^126 + q^134 
        - 2*q^142 + q^158 - q^182 + q^198 - q^230 + O(q^238)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 30*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
976
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 30*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^19 + q^25 - q^27 + q^49 - q^57 - q^73 - q^83 - q^107 - q^113 + q^121 +
        q^123 + 2*q^131 + q^147 - q^161 + q^169 + q^171 + 2*q^203 - q^217 - 
        q^219 + O(q^238),
    q^2 + q^8 - q^28 + q^32 - q^38 + q^50 - q^54 - q^84 + q^98 - q^112 - q^114 -
        q^116 + q^128 - q^146 - q^152 - q^166 + q^200 - q^214 - q^216 - q^226 + 
        O(q^238),
    q^3 - q^9 - q^19 + q^41 + q^49 - q^73 + q^75 - q^83 + q^97 - q^107 - q^113 -
        q^123 + q^137 + q^163 + q^179 + q^203 - q^225 + O(q^238),
    q^4 - q^14 + q^16 - q^42 - q^56 - q^58 + q^64 - q^76 + q^100 - q^108 + q^122
        + q^126 + q^138 - q^142 + 2*q^158 - q^168 - q^174 + q^186 + q^196 + 
        q^222 - q^224 - q^228 - q^232 + O(q^238),
    q^6 - q^18 + q^24 - q^28 - q^38 - q^72 + q^82 + q^92 + q^96 + q^98 - q^112 -
        q^116 + q^124 - q^146 + q^148 + q^150 - q^152 - q^166 + q^194 + q^212 - 
        q^214 - q^226 + O(q^238),
    q^7 - q^23 + q^29 - q^31 - q^37 - q^53 + q^69 + q^71 + q^93 - q^101 + q^111 
        - q^133 - q^151 + q^157 + q^159 + q^173 + q^175 + q^181 - q^183 - q^189 
        - q^191 - q^207 - 2*q^237 + O(q^238),
    q^12 - q^14 - q^36 + q^46 + q^48 - q^56 - q^58 + q^62 + q^74 - q^76 + q^106 
        - q^138 - q^142 - q^144 + q^164 + q^184 - q^186 + q^192 + q^196 + q^202 
        - q^222 - q^224 - q^232 + O(q^238),
    q^21 + q^23 + q^31 + q^37 + q^53 - q^61 - q^63 - 2*q^69 - 2*q^79 + q^87 - 
        2*q^93 + q^101 - 2*q^111 - q^133 + q^151 - 2*q^159 + q^183 + q^191 + 
        2*q^207 + q^213 - 2*q^223 + 2*q^237 + O(q^238)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
977
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
976
);
qprec:=
163
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
977
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
61*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
163
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
978
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
978
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
162
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
978
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
162
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
978
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
978
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^11 - a^2)*q^3 + a^2*q^4 + (-a^17 - a^12 + a^3)*q^7 - a^13*q^9 + (a^13
        - a^4)*q^12 + (a^16 - a^5)*q^13 + a^4*q^16 + a^17*q^19 + (a^14 + 
        a^10)*q^21 - a^3*q^25 + a^6*q^27 + (-a^14 - a^10 + a^5 + a)*q^28 + (a^12
        + a^9 - 1)*q^31 - a^15*q^36 + (-a^11 - a)*q^37 + (-a^16 - a^9 + 
        a^7)*q^39 + (-a^16 + a^15 + a^7 - a^6)*q^43 + (a^15 - a^6)*q^48 + (-a^15
        - a^11 - a^7)*q^49 + (a^9 - a^7 - 1)*q^52 - a^10*q^57 + (a^12 - 
        a^9)*q^61 + (-a^7 - a^3)*q^63 + a^6*q^64 + (a^14 - a^9)*q^67 + (-a^14 + 
        a^8 + a^5)*q^73 + (-a^14 + a^5)*q^75 + (a^10 - a)*q^76 + (a^15 - a^6 + 
        a^4)*q^79 + (a^17 - a^8)*q^81 + (a^16 + a^12)*q^84 + (a^17 + a^13 + a^10
        - a^8 + a^6 - a^4)*q^91 + (-a^11 - a^5)*q^93 + (-a^15 - a^13)*q^97 - 
        a^5*q^100 + (-a^17 - a^3)*q^103 + a^8*q^108 + (a^13 - a^10 - a^4 + 
        a)*q^109 + (-a^12 + a^4 + a^3)*q^111 + (-a^16 - a^12 + a^7 + a^3)*q^112 
        + (a^9 + a^2 - 1)*q^117 - a^13*q^121 + (a^14 + a^11 - a^2)*q^124 + (a^16
        + a^14)*q^127 + (-a^17 + a^9 - 1)*q^129 + (a^11 + a^7)*q^133 + (-a^10 + 
        a + 1)*q^139 - a^17*q^144 + (a^8 + a^4 + 1)*q^147 + (-a^13 - a^3)*q^148 
        + (-a^15 + a^2)*q^151 + (-a^11 + 1)*q^156 + (a^13 + a^11 - a^4 - 
        a^2)*q^157 + a^6*q^163 + (-a^12 + a^10 - a^5 + a^3)*q^169 + a^3*q^171 + 
        (a^17 - a^8 + 1)*q^172 + (a^15 + a^11 - a^6 - a^2)*q^175 + (-a + 
        1)*q^181 + (-a^5 + a^2)*q^183 + (-a^14 + a^5 + 1)*q^189 + (a^17 - 
        a^8)*q^192 + (-a^14 + a^13 + a^5 - a^4)*q^193 + (-a^17 - a^13 - 
        a^9)*q^196 + (a^11 + a^10 - a^2)*q^199 + (-a^7 + a^2)*q^201 + (a^11 - 
        a^9 - a^2)*q^208 + (-a^17 + a^4)*q^211 + (a^12 + a^8 + a^6 + a^2)*q^217 
        + (a^16 - a)*q^219 + (-a^13 - a^7)*q^223 + a^16*q^225 - a^12*q^228 + 
        (-a^12 - a^7 + a^3)*q^229 + (-a^17 + a^15 - a^6)*q^237 + (a^14 + a^13 - 
        a^4)*q^241 + (-a^10 + a)*q^243 + (a^14 - a^11)*q^244 + (-a^13 - a^6 + 
        a^4)*q^247 + (-a^9 - a^5)*q^252 + a^8*q^256 + (a^13 + a^9 - a^5 - a^4 - 
        a - 1)*q^259 + (a^16 - a^11)*q^268 + (-a^16 + a^9 + a^7 - 1)*q^271 + 
        (a^17 - a^15 - a^10 - a^8 - a^3 + a)*q^273 + (a^12 + a^10)*q^277 + 
        (-a^16 + a^7 + a^4)*q^279 + (a^17 - a^14 - a^8 + a^5)*q^283 + a^6*q^289 
        + (a^8 + a^6)*q^291 + (-a^16 + a^10 + a^7)*q^292 + (-a^16 + a^7)*q^300 +
        (-a^15 + a^14 - a^10 + a^9 + a - 1)*q^301 + (a^12 - a^3)*q^304 + (-a^14 
        - a^11 + a^5)*q^307 + (-a^14 + a^10 + a^5)*q^309 + (a^9 - a^3 - 1)*q^313
        + (a^17 - a^8 + a^6)*q^316 + O(q^322),
    q^2 + (a^11 - a^2)*q^6 + a^2*q^8 + (-a^17 - a^12 + a^3)*q^14 - a^13*q^18 + 
        (a^13 - a^4)*q^24 + (a^16 - a^5)*q^26 + a^4*q^32 + a^17*q^38 + (a^14 + 
        a^10)*q^42 - a^3*q^50 + a^6*q^54 + (-a^14 - a^10 + a^5 + a)*q^56 + (a^12
        + a^9 - 1)*q^62 - a^15*q^72 + (-a^11 - a)*q^74 + (-a^16 - a^9 + 
        a^7)*q^78 + (-a^16 + a^15 + a^7 - a^6)*q^86 + (a^15 - a^6)*q^96 + (-a^15
        - a^11 - a^7)*q^98 + (a^9 - a^7 - 1)*q^104 - a^10*q^114 + (a^12 - 
        a^9)*q^122 + (-a^7 - a^3)*q^126 + a^6*q^128 + (a^14 - a^9)*q^134 + 
        (-a^14 + a^8 + a^5)*q^146 + (-a^14 + a^5)*q^150 + (a^10 - a)*q^152 + 
        (a^15 - a^6 + a^4)*q^158 + (a^17 - a^8)*q^162 + (a^16 + a^12)*q^168 + 
        (a^17 + a^13 + a^10 - a^8 + a^6 - a^4)*q^182 + (-a^11 - a^5)*q^186 + 
        (-a^15 - a^13)*q^194 - a^5*q^200 + (-a^17 - a^3)*q^206 + a^8*q^216 + 
        (a^13 - a^10 - a^4 + a)*q^218 + (-a^12 + a^4 + a^3)*q^222 + (-a^16 - 
        a^12 + a^7 + a^3)*q^224 + (a^9 + a^2 - 1)*q^234 - a^13*q^242 + (a^14 + 
        a^11 - a^2)*q^248 + (a^16 + a^14)*q^254 + (-a^17 + a^9 - 1)*q^258 + 
        (a^11 + a^7)*q^266 + (-a^10 + a + 1)*q^278 - a^17*q^288 + (a^8 + a^4 + 
        1)*q^294 + (-a^13 - a^3)*q^296 + (-a^15 + a^2)*q^302 + (-a^11 + 1)*q^312
        + (a^13 + a^11 - a^4 - a^2)*q^314 + O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
978
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
978
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^2*q^3 + a^2*q^4 + (a^5 - a^3 - a^2)*q^7 + a^4*q^9 + a^4*q^12 + (-a^5 -
        a^4 + a)*q^13 + a^4*q^16 + (2*a^5 - 2*a^2)*q^19 + (-a^5 - a)*q^21 - 
        a^3*q^25 + (a^3 - 1)*q^27 + (-a^5 - a)*q^28 + (-a^3 + 1)*q^31 + (a^3 - 
        1)*q^36 + (a^2 - a)*q^37 + (-a^4 + a + 1)*q^39 + (-a^4 + a^3 + a - 
        1)*q^43 + (a^3 - 1)*q^48 + (-a^4 + a^3 + a^2 + a - 1)*q^49 + (-a^4 + a +
        1)*q^52 - 2*a*q^57 + (-a^3 + 1)*q^61 + (-a^4 - a^3 + a)*q^63 + (a^3 - 
        1)*q^64 + (-a^5 + 1)*q^67 - a^2*q^73 - a^5*q^75 - 2*a*q^76 + (a^4 + a^3 
        - 1)*q^79 + (a^5 - a^2)*q^81 + (-a^4 - a^3 + a)*q^84 + (a^5 + a^4 + a^3 
        - a^2 - a - 1)*q^91 + (-a^5 + a^2)*q^93 + (a^4 + a^3 - 1)*q^97 - 
        a^5*q^100 + (a^5 - a^3 - a^2)*q^103 + (a^5 - a^2)*q^108 + (a^4 - 
        a)*q^109 + (a^4 - a^3)*q^111 + (-a^4 - a^3 + a)*q^112 + (a^2 + 1)*q^117 
        + a^4*q^121 + (-a^5 + a^2)*q^124 + (-a^5 - a^4 + a)*q^127 + (a^5 - a^2 +
        1)*q^129 + (-2*a^4 + 2*a^2 + 2*a)*q^133 + (-a + 1)*q^139 + (a^5 - 
        a^2)*q^144 + (a^5 + a^4 - a^2 + 1)*q^147 + (a^4 - a^3)*q^148 + (a^3 + 
        a^2 - 1)*q^151 + (a^2 + 1)*q^156 + (a^4 + a^2)*q^157 + (a^3 - 1)*q^163 +
        (-a^5 - a^3 - a)*q^169 - 2*a^3*q^171 + (a^5 - a^2 + 1)*q^172 + (a^3 + 
        a^2 - 1)*q^175 + (-a + 1)*q^181 + (-a^5 + a^2)*q^183 + (-a^5 + 1)*q^189 
        + (a^5 - a^2)*q^192 + (-a^5 + a^4)*q^193 + (a^5 + a^4 - a^2 + 1)*q^196 +
        (a^2 - a)*q^199 + (-a^4 + a^2 + a)*q^201 + (a^2 + 1)*q^208 + (a^5 + a^4 
        - a^2)*q^211 + (a^5 - 1)*q^217 - a^4*q^219 + a*q^223 + (-a^4 + a)*q^225 
        - 2*a^3*q^228 + (-a^4 - a^3 + a)*q^229 + (a^5 + a^3 - a^2 - 1)*q^237 + 
        (-a^5 + a^4)*q^241 - a*q^243 + (-a^5 + a^2)*q^244 + (2*a^4 + 2*a^3 - 
        2)*q^247 + (-a^5 + 1)*q^252 + (a^5 - a^2)*q^256 + (-a^5 + a^4 - a + 
        1)*q^259 + (-a^4 + a^2 + a)*q^268 + (-a^4 + a + 1)*q^271 + (a^5 - a^2 - 
        a - 1)*q^273 + (-a^3 - a)*q^277 + a*q^279 - a^2*q^283 + (a^3 - 1)*q^289 
        + (a^5 + a^3 - a^2 - 1)*q^291 - a^4*q^292 + (-a^4 + a)*q^300 + (-a^5 + 
        a^3 - a)*q^301 - 2*a^3*q^304 + (-a^5 + a^2)*q^307 + (-a^5 - a)*q^309 + 
        (-a^3 + 1)*q^313 + (a^5 + a^3 - a^2 - 1)*q^316 + O(q^322),
    q^2 + a^2*q^6 + a^2*q^8 + (a^5 - a^3 - a^2)*q^14 + a^4*q^18 + a^4*q^24 + 
        (-a^5 - a^4 + a)*q^26 + a^4*q^32 + (2*a^5 - 2*a^2)*q^38 + (-a^5 - 
        a)*q^42 - a^3*q^50 + (a^3 - 1)*q^54 + (-a^5 - a)*q^56 + (-a^3 + 1)*q^62 
        + (a^3 - 1)*q^72 + (a^2 - a)*q^74 + (-a^4 + a + 1)*q^78 + (-a^4 + a^3 + 
        a - 1)*q^86 + (a^3 - 1)*q^96 + (-a^4 + a^3 + a^2 + a - 1)*q^98 + (-a^4 +
        a + 1)*q^104 - 2*a*q^114 + (-a^3 + 1)*q^122 + (-a^4 - a^3 + a)*q^126 + 
        (a^3 - 1)*q^128 + (-a^5 + 1)*q^134 - a^2*q^146 - a^5*q^150 - 2*a*q^152 +
        (a^4 + a^3 - 1)*q^158 + (a^5 - a^2)*q^162 + (-a^4 - a^3 + a)*q^168 + 
        (a^5 + a^4 + a^3 - a^2 - a - 1)*q^182 + (-a^5 + a^2)*q^186 + (a^4 + a^3 
        - 1)*q^194 - a^5*q^200 + (a^5 - a^3 - a^2)*q^206 + (a^5 - a^2)*q^216 + 
        (a^4 - a)*q^218 + (a^4 - a^3)*q^222 + (-a^4 - a^3 + a)*q^224 + (a^2 + 
        1)*q^234 + a^4*q^242 + (-a^5 + a^2)*q^248 + (-a^5 - a^4 + a)*q^254 + 
        (a^5 - a^2 + 1)*q^258 + (-2*a^4 + 2*a^2 + 2*a)*q^266 + (-a + 1)*q^278 + 
        (a^5 - a^2)*q^288 + (a^5 + a^4 - a^2 + 1)*q^294 + (a^4 - a^3)*q^296 + 
        (a^3 + a^2 - 1)*q^302 + (a^2 + 1)*q^312 + (a^4 + a^2)*q^314 + O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
978
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
978
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 54*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^3 + (a - 1)*q^4 + a*q^7 - a*q^9 - a*q^12 - q^13 - a*q^16 + 
        (2*a - 2)*q^19 - q^21 + q^25 + q^27 - q^28 + 2*q^31 + q^36 - q^37 + (-a 
        + 1)*q^39 + (-a + 1)*q^43 + q^48 + (-a + 1)*q^52 - 2*a*q^57 + 2*q^61 + 
        (-a + 1)*q^63 + q^64 + a*q^67 + (2*a - 2)*q^73 + (a - 1)*q^75 - 2*a*q^76
        + (-a + 1)*q^79 + (a - 1)*q^81 + (-a + 1)*q^84 - a*q^91 + (2*a - 2)*q^93
        + (-a + 1)*q^97 + (a - 1)*q^100 + a*q^103 + (a - 1)*q^108 - 2*a*q^109 + 
        (-a + 1)*q^111 + (-a + 1)*q^112 + a*q^117 - a*q^121 + (2*a - 2)*q^124 - 
        q^127 + a*q^129 - 2*q^133 + (-a + 1)*q^139 + (a - 1)*q^144 + (-a + 
        1)*q^148 + a*q^151 + a*q^156 - q^157 + q^163 + 2*q^171 + a*q^172 + 
        a*q^175 + (-a + 1)*q^181 + (2*a - 2)*q^183 + a*q^189 + (a - 1)*q^192 - 
        q^193 - q^199 - q^201 + a*q^208 - q^211 + 2*a*q^217 - 2*a*q^219 - 
        2*a*q^223 - a*q^225 + 2*q^228 + (-a + 1)*q^229 + a*q^237 - q^241 - 
        a*q^243 + (2*a - 2)*q^244 + (-2*a + 2)*q^247 + a*q^252 + (a - 1)*q^256 -
        a*q^259 - q^268 + (-a + 1)*q^271 + q^273 + (-a + 1)*q^277 - 2*a*q^279 + 
        (2*a - 2)*q^283 + q^289 + a*q^291 - 2*a*q^292 - a*q^300 + q^301 + 
        2*q^304 + (2*a - 2)*q^307 - q^309 + 2*q^313 + a*q^316 + O(q^322),
    q^2 + (a - 1)*q^6 + (a - 1)*q^8 + a*q^14 - a*q^18 - a*q^24 - q^26 - a*q^32 +
        (2*a - 2)*q^38 - q^42 + q^50 + q^54 - q^56 + 2*q^62 + q^72 - q^74 + (-a 
        + 1)*q^78 + (-a + 1)*q^86 + q^96 + (-a + 1)*q^104 - 2*a*q^114 + 2*q^122 
        + (-a + 1)*q^126 + q^128 + a*q^134 + (2*a - 2)*q^146 + (a - 1)*q^150 - 
        2*a*q^152 + (-a + 1)*q^158 + (a - 1)*q^162 + (-a + 1)*q^168 - a*q^182 + 
        (2*a - 2)*q^186 + (-a + 1)*q^194 + (a - 1)*q^200 + a*q^206 + (a - 
        1)*q^216 - 2*a*q^218 + (-a + 1)*q^222 + (-a + 1)*q^224 + a*q^234 - 
        a*q^242 + (2*a - 2)*q^248 - q^254 + a*q^258 - 2*q^266 + (-a + 1)*q^278 +
        (a - 1)*q^288 + (-a + 1)*q^296 + a*q^302 + a*q^312 - q^314 + O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
978
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
81*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
979
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
979
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
979
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
88
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
979
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
440
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
979
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
220
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
979
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^12 + a^11)*q^3 + a^16*q^4 + (a^19 + a^7)*q^5 + (-a^2 + a - 1)*q^9 + 
        (a^18 - a^16 + a^14 - a^12 + a^10 - a^8 + a^6 - a^4 + a^2 - 1)*q^11 + 
        (a^6 - a^5)*q^12 + (-a^19 + a^18 + a^9 - a^8)*q^15 - a^10*q^16 + (-a^13 
        - a)*q^20 + (a^19 - a^17 + a^15 - a^14 - a^13 + a^11 - a^9 + a^7 - a^5 +
        a^3 - a)*q^23 + (-a^16 + a^14 - a^4)*q^25 + (a^14 - a^13 + a^12 - 
        a^11)*q^27 + (a^18 + a^13)*q^31 + (a^10 - a^9)*q^33 + (-a^18 + a^17 - 
        a^16)*q^36 + (a^6 + a^5)*q^37 - a^14*q^44 + (-2*a^19 + a^18 + a^17 - 
        a^16 - a^15 + a^14 + a^13 - a^12 - a^11 + a^10 - 2*a^7 + a^6 + a^5 - a^4
        - a^3 + a^2 + a - 1)*q^45 + (-a^18 + a^16 - a^14 + 2*a^12 - a^10 + a^8 -
        a^6 + a^4 - a^2 + 1)*q^47 + (-a^19 + a^17 - a^15 + a^13 - a^11 + a^9 - 
        a^7 + a^5 - a^3 + a - 1)*q^48 - a^15*q^49 + (a^19 + a^15)*q^53 + (-a^17 
        - a^5)*q^55 + (a^15 - a^6)*q^59 + (a^13 - a^12 - a^3 + a^2)*q^60 + 
        a^4*q^64 + (a^9 + a^3)*q^67 + (a^11 - a^10 - a^4 + a^3)*q^69 + (a^17 + 
        a)*q^71 + (a^16 - a^15 - a^6 + a^5 + a^4 - a^3)*q^75 + (-a^17 + 
        a^7)*q^80 + (a^4 - a^3 + a^2 - a + 1)*q^81 + a^2*q^89 + (-a^15 + 
        a^8)*q^92 + (a^8 - a^7 + a^3 - a^2)*q^93 + (a^15 - a^11)*q^97 + (a^19 - 
        a^18 - a^17 + a^16 + a^15 - a^14 - a^13 + a^12 + a^11 - a^10 - a^9 + a^8
        + a^7 - a^6 - a^5 + a^4 + a^3 - a^2 - a + 2)*q^99 + (-a^18 + a^16 - a^14
        + a^12 - a^6 + a^4 - a^2 + 1)*q^100 + (-a^7 - a^2)*q^103 + (-a^8 + a^7 -
        a^6 + a^5)*q^108 + (-a^18 + a^16)*q^111 + (-a^17 + a^10)*q^113 + (-a^19 
        - a^18 + a^17 - a^15 + a^13 + a^9 - a^7 - a^6 + a^5 - a^3 + a)*q^115 - 
        a^18*q^121 + (-a^12 - a^7)*q^124 + (a^19 - a^17 + a^15 - a^9 + a^7 - a^5
        + a^3)*q^125 + (-a^4 + a^3)*q^132 + (2*a^19 - 2*a^18 - a^17 + a^16 + 
        a^15 - a^14 - a^13 + a^12 - 2*a^9 + 2*a^8 + a^7 - a^6 - a^5 + a^4 + a^3 
        - a^2 - a + 1)*q^135 + (-a^18 + a^16 - a^14 + a^12 - a^10 + a^8 - a^6 + 
        a^4 - a^2 - a + 1)*q^137 + (-a^10 + a^9 + a^2 - a)*q^141 + (a^12 - a^11 
        + a^10)*q^144 + (-a^5 + a^4)*q^147 + (a^19 - a^17 + a^15 - a^13 + a^11 -
        a^9 + a^7 - a^5 + a^3 - a - 1)*q^148 + (a^18 - a^16 - a^15 + a^14 - a^12
        - a^8 + a^6 - a^4 - a^3 + a^2 - 1)*q^155 + (-a^14 + a^2)*q^157 + (a^9 - 
        a^8 + a^5 - a^4)*q^159 + (-a^19 - a^8)*q^163 + (a^17 - a^16 - a^7 + 
        a^6)*q^165 - a*q^169 + a^8*q^176 + (a^18 - a^17 + a^5 - a^4)*q^177 + 
        O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
979
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
110
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
979
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a - 1)*q^3 - a^5*q^4 + (-a^8 + a^7)*q^5 + (a^2 + a + 1)*q^9 - a^9*q^11
        + (a^6 + a^5)*q^12 + (a^9 - a^7)*q^15 + (a^9 - a^8 + a^7 - a^6 + a^5 - 
        a^4 + a^3 - a^2 + a - 1)*q^16 + (-a^2 + a)*q^20 + (-a^9 + a^8 - a^7 + 
        a^6 - a^5 + a^4 - 2*a^3 + a^2 - a + 1)*q^23 + (-a^5 + a^4 - a^3)*q^25 + 
        (-a^3 - a^2 - a - 1)*q^27 + (-a^7 - a^2)*q^31 + (2*a^9 - a^8 + a^7 - a^6
        + a^5 - a^4 + a^3 - a^2 + a - 1)*q^33 + (-a^7 - a^6 - a^5)*q^36 + (a^6 +
        a^5)*q^37 - a^3*q^44 + (-a^9 + a^8 + a^6 - a^5 + a^4 - a^3 + a^2 - a + 
        1)*q^45 + (-a^9 - a)*q^47 + (-a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - a^3 + 
        a^2 - a + 2)*q^48 - a^4*q^49 + (-a^8 - a^4)*q^53 + (-a^6 + a^5)*q^55 + 
        (a^6 - a^4)*q^59 + (a^3 - a)*q^60 + a^4*q^64 + (a^9 + a^3)*q^67 + (a^9 -
        a^8 + a^7 - a^6 + a^5 + 2*a^3 - a^2 + a - 2)*q^69 + (-a^6 + a)*q^71 + 
        (a^6 + a^3)*q^75 + (a^7 - a^6)*q^80 + (a^4 + a^3 + a^2 + a + 1)*q^81 + 
        a^2*q^89 + (a^8 - a^4)*q^92 + (a^8 + a^7 + a^3 + a^2)*q^93 + (-a^4 - 
        1)*q^97 + (-2*a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - a^3 + a^2 - a + 
        2)*q^99 + (a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^100 + (a^7 + 
        a^2)*q^103 + (a^8 + a^7 + a^6 + a^5)*q^108 + (-a^7 - 2*a^6 - a^5)*q^111 
        + (a^9 - a^8 + a^7 - 2*a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^113 + 
        (-a^9 + a^8 - 2*a^7 + 2*a^6 - a^5 + a^4 - a^3 + a^2 - a)*q^115 - 
        a^7*q^121 + (a^7 - a)*q^124 + (-a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - 
        a^3)*q^125 + (a^4 + a^3)*q^132 + (-a^7 - 1)*q^135 + (-a^9 + a)*q^137 + 
        (2*a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + 2*a - 1)*q^141 + (a^9 - a^8
        + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 - 2)*q^144 + (a^5 + a^4)*q^147 + 
        (-a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - a^3 + a^2 - a + 2)*q^148 + (-a^8 +
        a^7 - a^6 + a^5 - 2*a^4 + 2*a^3 - a^2 + a - 1)*q^155 + (-a^3 + 
        a^2)*q^157 + (a^9 + a^8 + a^5 + a^4)*q^159 + (a^7 - a^5)*q^165 + a*q^169
        + a^8*q^176 + (-a^7 - a^6 + a^5 + a^4)*q^177 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
979
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
110
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
979
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 8*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^2 + 1)*q^3 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^4 + (-a^5 - a^3)*q^5 + (a^4 + a^2 + 1)*q^9 - a^7*q^11 + (a^9 - a^8 
        + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 - 1)*q^12 + (-a^7 - 2*a^5 - 
        a^3)*q^15 - a^9*q^16 + (a^4 + a^2)*q^20 + (-a^9 + a^6)*q^23 + (a^9 + a^7
        + a^5 - a^4 + a^3 - a^2 + a - 1)*q^25 + (a^6 + a^4 + a^2 + 1)*q^27 + 
        (a^4 - a^3)*q^31 + (-a^9 - a^7)*q^33 + (a^9 - a^8 + a^7 - a^6 + a^5 - 
        a^4 - a^2 - 1)*q^36 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 - 
        1)*q^37 + a^6*q^44 + (-a^9 - 2*a^7 - 2*a^5 - a^3)*q^45 + (-a^7 + 
        a^2)*q^47 + (-a^9 + 1)*q^48 + a^8*q^49 + (a^8 - a^5)*q^53 + (a^9 - a^8 +
        a^7 - a^6 + a^5 - a^4 + a^3 - a^2 - 1)*q^55 + (a^8 - a)*q^59 + (a^6 + 
        2*a^4 + a^2)*q^60 + a^8*q^64 + (-a^7 + a^6)*q^67 + (-a^9 + a^8 + a^6 + 
        1)*q^69 + (a^2 - a)*q^71 + (2*a^9 + 2*a^7 - a^6 + 2*a^5 - 2*a^4 + 2*a^3 
        - 2*a^2 + a - 2)*q^75 + (-a^3 - a)*q^80 + (a^8 + a^6 + a^4 + a^2 + 
        1)*q^81 + a^4*q^89 + (a^8 - a^5)*q^92 + (a^6 - a^5 + a^4 - a^3)*q^93 + 
        (a^8 + 1)*q^97 + (-a^9 - a^7 + 1)*q^99 + (-a^9 - a^7 - a^5)*q^100 + (a^4
        - a^3)*q^103 + (a^9 - a^8 + a^7 - a^6 - a^4 - a^2 - 1)*q^108 + (a^9 - 
        a^8 + a^7 - a^6 + a^5 - a^4 - a^2 - a - 1)*q^111 + (-a^9 - a)*q^113 + 
        (-a^9 - a^3 - a + 1)*q^115 - a^3*q^121 + (-a^3 + a^2)*q^124 + (-a^9 + 
        a^4 + a^2 + 1)*q^125 + (a^8 + a^6)*q^132 + (-2*a^9 - 2*a^7 - 2*a^5 - a^3
        + 1)*q^135 + (-a^7 + a^2)*q^137 + (-a^9 - a^7 + a^4 + a^2)*q^141 + (-a^9
        + a^2 + 1)*q^144 + (a^9 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^147 + (-a^9 + 1)*q^148 + (-a^9 + a^8 - a^7 + a^6)*q^155 + (a^6 + 
        a^4)*q^157 + (a^9 - a^6 - a^4 + a^3 - a^2 + a - 1)*q^159 - 2*a^5*q^163 +
        (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 - a - 1)*q^165 + a^2*q^169 - 
        a^5*q^176 + (a^9 + a^7 - a^6 + a^5 - a^4 - a^2 - 1)*q^177 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
979
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
979
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
979
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 22*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
979
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 22*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a - 1)*q^3 + q^4 - 2*a*q^5 + a*q^9 + q^11 + (-a - 1)*q^12 + (2*a - 
        2)*q^15 + q^16 - 2*a*q^20 + (a + 1)*q^23 - 3*q^25 + (a - 1)*q^31 + (-a -
        1)*q^33 + a*q^36 + (a - 1)*q^37 + q^44 + 2*q^45 + (-a - 1)*q^48 + a*q^49
        - 2*a*q^53 - 2*a*q^55 + (-a + 1)*q^59 + (2*a - 2)*q^60 + q^64 - 2*a*q^69
        + 2*a*q^71 + (3*a + 3)*q^75 - 2*a*q^80 + q^81 - q^89 + (a + 1)*q^92 + 
        2*q^93 + a*q^99 - 3*q^100 + (a + 1)*q^103 + 2*q^111 + (-a - 1)*q^113 + 
        (-2*a + 2)*q^115 + q^121 + (a - 1)*q^124 + 4*a*q^125 + (-a - 1)*q^132 + 
        (-a - 1)*q^137 + a*q^144 + (-a + 1)*q^147 + (a - 1)*q^148 + (2*a + 
        2)*q^155 + (2*a - 2)*q^159 + (a - 1)*q^163 + (2*a - 2)*q^165 - a*q^169 +
        q^176 - 2*q^177 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
979
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 44*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
979
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 44*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^11 + q^16 - q^25 + q^36 - q^44 - 2*q^47 + q^49 + q^64 + 
        q^81 - q^89 - 2*q^91 - q^99 - q^100 + q^121 - 2*q^133 + q^144 - 2*q^157 
        + q^169 - q^176 + O(q^178),
    q^5 - q^11 + q^20 - 2*q^25 - q^44 + q^45 - 2*q^47 + q^49 + q^53 + q^55 + 
        q^67 + q^71 + q^80 - q^89 - q^91 + q^97 - q^99 - 2*q^100 + 2*q^125 - 
        q^133 - 2*q^157 + q^169 - q^176 + O(q^178),
    q^7 - q^13 - q^19 + q^28 - q^29 + q^41 + q^43 - q^52 + q^61 + q^63 - q^76 - 
        q^77 - q^83 + q^101 + q^112 - q^116 - q^117 - q^127 + q^143 + q^149 + 
        q^151 + q^164 - q^171 + q^172 - q^175 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 + q^4 - q^8 + q^9 + q^16 - q^18 - q^25 - 2*q^29 - q^32 + q^36 - 
        2*q^37 + q^50 + 2*q^53 + 2*q^58 + q^64 - q^72 + 2*q^74 + q^81 - q^100 - 
        2*q^106 - 2*q^109 + 2*q^113 - 2*q^116 + q^121 - q^128 - 2*q^137 + q^144 
        - 2*q^148 + 2*q^149 - q^162 - q^169 + 2*q^193 + 2*q^197 + q^200 + 
        2*q^212 + 2*q^218 - q^225 - 2*q^226 + 2*q^232 - 2*q^233 - q^242 + q^256 
        - 2*q^261 + 2*q^274 + 2*q^277 - 2*q^281 - q^288 - q^289 + O(q^290),
    q^5 - q^10 + q^20 - q^40 + q^45 + q^80 - q^90 - q^125 - 2*q^145 - q^160 + 
        q^180 - 2*q^185 + q^250 + 2*q^265 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^11 + q^15 + (a - 1)*q^23 + a*q^25 - a*q^29 + (-a - 1)*q^37 - a*q^39 + 
        (a - 1)*q^43 + q^51 + (-a - 1)*q^57 + q^65 - a*q^79 + q^81 + a*q^85 + 
        (-a + 1)*q^95 + (a + 1)*q^107 + a*q^109 + (a - 1)*q^113 + a*q^135 - 
        q^141 + q^151 + (-a + 1)*q^163 - q^165 - q^191 - q^211 + q^221 - a*q^235
        - a*q^239 + (-a - 1)*q^247 + (-a + 1)*q^253 + (a - 1)*q^263 - a*q^275 + 
        (-a - 1)*q^277 + q^281 + O(q^290),
    q^3 + a*q^5 + q^13 + a*q^17 + (-a + 1)*q^19 + a*q^27 - q^33 - a*q^47 - 
        a*q^55 + (a - 1)*q^69 + a*q^75 - a*q^87 - a*q^97 + (-a - 1)*q^101 - 
        q^103 + (-a - 1)*q^111 + (-a - 1)*q^115 - q^125 + (a - 1)*q^129 + (a + 
        1)*q^131 + (-a + 1)*q^139 - q^143 + q^145 + a*q^167 - q^173 + (-a + 
        1)*q^185 - a*q^187 + q^195 + (a - 1)*q^209 + (-a - 1)*q^215 - q^223 + 
        a*q^227 - a*q^237 + (a + 1)*q^241 + (a + 1)*q^251 + a*q^255 + (-a + 
        1)*q^269 + q^283 + (-a + 1)*q^285 + O(q^290)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - 1/2*q^9 + q^16 + 1/2*q^25 - 1/2*q^29 - 1/2*q^30 + 1/2*q^36 - 1/2*q^46 - 
        1/2*q^50 - 1/2*q^65 + q^74 - 1/2*q^85 - 1/2*q^86 + 1/2*q^100 - 1/2*q^109
        - 1/2*q^116 - 1/2*q^120 + q^121 - 1/2*q^130 - 1/2*q^134 - q^141 - 
        1/2*q^144 + 1/2*q^149 - 1/2*q^170 - 1/2*q^184 + 1/2*q^200 - 1/2*q^214 - 
        q^221 + 1/2*q^246 + 1/2*q^249 + q^254 + q^256 + 1/2*q^260 + 1/2*q^270 + 
        q^274 + q^281 + O(q^290),
    q^2 - 1/2*q^15 - 1/2*q^18 - 1/2*q^23 + 1/2*q^25 + q^32 - q^37 - 1/2*q^43 + 
        1/2*q^50 - 1/2*q^58 - 1/2*q^60 + 1/2*q^65 - 1/2*q^67 + 1/2*q^72 + 
        1/2*q^85 - 1/2*q^92 - 1/2*q^100 - 1/2*q^107 + 1/2*q^123 + q^127 - 
        1/2*q^130 + 1/2*q^135 - q^137 + q^148 + q^163 - 1/2*q^170 - 1/2*q^172 + 
        1/2*q^183 + 1/2*q^200 + 1/2*q^205 - 1/2*q^218 - 1/2*q^225 - 1/2*q^232 + 
        q^233 + q^235 - 1/2*q^240 + q^242 - 1/2*q^260 - 1/2*q^263 + 1/2*q^267 - 
        1/2*q^268 - q^282 - 1/2*q^288 + O(q^290),
    q^3 + q^12 + q^13 + q^17 + q^26 - q^27 + q^34 - 2*q^40 - q^41 - 2*q^47 + 
        q^48 - q^52 + q^61 - q^68 - q^73 + q^75 + 2*q^82 + q^83 - q^87 - q^89 - 
        q^90 - q^97 - q^101 + q^103 - q^104 - q^108 + q^115 - q^117 + q^125 - 
        q^136 - q^138 - q^146 - q^153 + q^157 + q^164 + q^167 + q^173 + 2*q^178 
        + q^181 - 2*q^185 - 2*q^188 + q^192 - q^194 + 2*q^202 + q^208 + q^215 - 
        2*q^223 - 2*q^227 + q^229 - q^234 + q^241 - q^244 - q^250 - q^257 - 
        q^258 + q^269 + q^272 - 2*q^283 + O(q^290),
    q^4 + 1/2*q^9 + 1/2*q^25 - 1/2*q^29 - 1/2*q^30 - 1/2*q^36 - 1/2*q^46 + 
        1/2*q^50 + q^64 + 1/2*q^65 - q^74 - q^81 + 1/2*q^85 - 1/2*q^86 + 
        1/2*q^100 - 1/2*q^109 - 1/2*q^116 - 1/2*q^120 + 1/2*q^130 - 1/2*q^134 - 
        q^141 + 1/2*q^144 - 3/2*q^149 + q^169 + 1/2*q^170 - 1/2*q^184 - 
        1/2*q^200 - q^205 - 1/2*q^214 + q^221 + 1/2*q^246 + 1/2*q^249 + q^254 - 
        1/2*q^260 + 1/2*q^270 - q^274 + q^281 + q^289 + O(q^290),
    q^5 + q^13 + q^17 - q^20 - q^26 - q^34 + q^41 - q^45 - q^52 - q^61 - q^68 - 
        q^73 + q^80 + q^82 + q^89 - q^97 + q^101 + q^104 - q^117 - q^122 + q^136
        + q^146 - q^153 + q^157 - q^164 + q^173 + q^178 + q^180 - q^181 + q^194 
        + q^202 + q^208 - q^229 + q^234 - q^241 + q^244 - q^250 - q^257 - q^269 
        + q^272 + O(q^290),
    q^6 + q^13 + q^17 - 2*q^20 + q^24 - q^26 - q^34 + 2*q^41 - q^45 - q^52 - 
        q^54 - q^68 - q^69 - q^73 + q^82 + 2*q^89 - 2*q^94 + q^96 - q^97 + 
        2*q^101 + q^104 - q^117 - q^122 - q^125 - q^129 + q^136 + q^145 + q^146 
        + q^150 - q^153 + q^157 + q^166 + q^173 - q^174 + q^178 + q^180 + q^194 
        - q^201 + q^202 + q^206 + q^208 - q^216 - 3*q^229 + q^230 + q^234 - 
        3*q^241 + 2*q^244 - q^250 - q^257 + q^272 - q^276 + O(q^290),
    q^8 - 1/2*q^15 + 1/2*q^18 - 1/2*q^23 - 1/2*q^25 + q^37 - 1/2*q^43 + 1/2*q^50
        - 1/2*q^58 - 1/2*q^60 - 1/2*q^65 - 1/2*q^67 - 1/2*q^72 - 1/2*q^85 - 
        1/2*q^92 + 1/2*q^100 - 1/2*q^107 + 1/2*q^123 + q^127 + q^128 + 1/2*q^130
        + 1/2*q^135 + q^137 - q^148 - q^162 + q^163 + 1/2*q^170 - 1/2*q^172 + 
        1/2*q^183 + 1/2*q^200 - 1/2*q^205 - 1/2*q^218 + 1/2*q^225 - 1/2*q^232 - 
        q^233 + q^235 - 1/2*q^240 + 1/2*q^260 - 1/2*q^263 + 1/2*q^267 - 
        1/2*q^268 - q^282 + 1/2*q^288 + O(q^290),
    q^10 + q^13 + q^17 + q^26 + q^34 - q^40 - q^41 - q^52 + q^61 - q^68 - q^73 +
        q^82 - q^89 - q^90 - q^97 - q^101 - q^104 - q^117 - q^122 + q^125 - 
        q^136 - q^146 - q^153 + q^157 + q^160 + q^164 + q^173 + q^178 + q^181 - 
        2*q^185 - q^194 + q^202 + q^208 + q^229 - q^234 + q^241 - q^244 - q^257 
        + q^269 + q^272 + O(q^290)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
84
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
84
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^10*q^4 + a^8*q^5 + (a^11 - a^9 - a^8 + a^7 + a^6 + a^5 - a^4 - a^3 + 
        a)*q^6 + (a^11 - a^7 - a^4 + a^2)*q^9 + (-a^8 + a)*q^14 + (a^11 + a^10 -
        a^8 - a^7 + a^5 - a^3 - a^2 + 1)*q^16 + (a^11 - a^4)*q^20 + (a^11 - a^9 
        - a^8 + a^6 + a^5 - a^4 - 2*a^3 + a + 1)*q^21 + (a^8 - a^3)*q^24 + (a^9 
        - a^2)*q^25 + (a^7 - a - 1)*q^29 + (a^6 - a)*q^30 + (-a^11 - a^10 + a^9 
        + a^8 - a^7 - a^6 + a^4 + 2*a^3 - a - 1)*q^36 + (-a^11 - 2*a^10 + a^8 + 
        a^7 - a^6 - a^5 + 2*a^3 + a^2 - 1)*q^41 + (a^10 - a^8 - a^5 + a)*q^45 + 
        (a^2 + 1)*q^46 + (a^11 + a^10 - a^8 - a^7 + a^5 - a^3 - a^2 + 1)*q^49 + 
        (-a^11 + a^9 - a^5 - a^2 + 1)*q^54 + a^4*q^56 + (-a^11 + a^10 + a^9 + 
        a^8 - a^6 + a^4 + a^3 - a - 1)*q^61 - a^9*q^64 + (-a^11 - a^9 + a^6 + 
        a^4)*q^69 + a^2*q^70 - a^7*q^80 + (a^11 + a^10 - a^9 - 2*a^8 + a^5 + a^4
        - a^3 - a^2 + a)*q^81 + (-a^11 - a^10 + 2*a^8 + a^7 - a^6 - a^5 + a^3 + 
        a^2 - 1)*q^84 + (-a^11 - a^10 - a^9 + a^8 + a^7 - a^6 - a^5 + a^3 + a^2 
        - 1)*q^86 + (a^11 - a^9 - a^8 + 2*a^6 + a^5 - a^4 - a^3 + a + 1)*q^89 + 
        (a^9 + a^4 - a^2)*q^94 + (-a^10 + a^8 + a^7 - a^6 - a^5 - a^4 + a^3 + 
        a^2 - 1)*q^96 - a^5*q^100 + (-2*a^11 + a^9 + a^8 - a^6 + a^4 + a^3 - a -
        1)*q^101 + (-a^11 + a^6)*q^105 + (-a^11 + a^9 + a^8 - a^6 - a^5 + a^4 + 
        a^3 - a - 1)*q^109 + (-a^11 - a^3)*q^116 + (-a^11 + a^9 - a^2)*q^120 + 
        (-a^10 + a^3)*q^121 - a^3*q^125 + (-a^11 - a^10 + a^9 + a^8 - a^6 + a^4 
        + 2*a^3 - 2*a - 1)*q^126 + (-2*a^10 + a^8 + a^7 - a^6 - a^5 - a^4 + 
        2*a^3 + a^2 - a - 1)*q^129 + (a^11 - a^9 - a^8 + a^6 - a^4 - a^3 + a + 
        1)*q^134 + (a^8 - a^6 + a^4)*q^141 + (-a^10 + a^6 + a^3 - a)*q^144 + 
        (-a^9 - a)*q^145 + (a^9 - a^8 - a^2 + a)*q^149 + (-a^9 + a^7 - 1)*q^150 
        + (-a^7 - a^5)*q^161 + (a^6 + a^2)*q^164 + (a^4 - a^3)*q^166 - a^3*q^169
        + (a^10 + a^9 - a^8 - 2*a^7 - a^6 + a^5 + a^4 - a^2)*q^174 + (a^11 + 
        a^10 - 2*a^8 - a^7 + a^5 + a^4 - a^3 - a^2 + a + 1)*q^180 + a^9*q^181 + 
        (-a^11 + a^10 + a^9 + a^8 - a^6 + a^4 + a^3 - a - 1)*q^184 + (a^10 + a^9
        - a^5 - a^2 + 1)*q^189 - a^9*q^196 + (-a^9 + a^2 - 1)*q^201 + (a^4 + 
        1)*q^205 + (a^11 + a^10 - a^8 - a^7 + a^6 + a^5 - a^3 - a^2 + 1)*q^206 +
        (a^11 - a^10 - a^4 + a^3)*q^214 + (a^10 - a^8 - a^5 + a + 1)*q^216 + 
        (a^7 - 1)*q^224 + (-a^10 + a^8 + a^7 - a^6 - a^5 - a^4 + a^3 + 2*a^2 - 
        1)*q^225 + (-a^10 + a^3 + a^2)*q^229 + (a^10 + a^8)*q^230 + (a^11 - a^9 
        - a^8 + a^6 + a^5 - a^4 - a^3 + 1)*q^241 + (a^11 + a^10 - a^8 - a^7 + 
        a^5 - a^3 - a^2 - a + 1)*q^244 - a^7*q^245 + (-a^11 + a^10 - a^8 + a^6 +
        a)*q^246 + (-2*a^11 - a^10 + a^9 + 3*a^8 - 2*a^6 - a^5 + a^4 + 2*a^3 + 
        a^2 - a - 2)*q^249 + (-a^11 + a^7 - 1)*q^254 + (a^11 - a^9 - a^8 + a^6 +
        a^5 - a^4 - a^3 + a + 1)*q^256 + (a^6 + a^5 - a^4 - 2*a^3 - a^2 + a + 
        2)*q^261 + (-a^11 + 1)*q^269 + (-a^10 - a^9 + a^8 + a^7 - a^4 - a^3 + 
        a^2 + a)*q^270 + (a^11 - a^8 + a^7 + a^6 + a^5 - a^4 - a^3 - a^2 + a + 
        1)*q^276 + (-a^11 + a^9 + a^8 - a^6 + a^4 + a^3 - a - 1)*q^280 + (a^11 +
        a^6 - a^4)*q^281 + a^8*q^289 + O(q^290),
    q^2 + (-a^9 + a^4)*q^3 - a^5*q^7 + a^10*q^8 + a^8*q^10 + (a^11 - a^9 - a^8 +
        a^7 + a^6 + a^5 - a^4 - a^3 + a)*q^12 + (-a^11 - a^10 + a^9 + a^8 - a^6 
        + a^4 + 2*a^3 - a - 1)*q^15 + (a^11 - a^7 - a^4 + a^2)*q^18 + (-2*a^11 -
        a^10 + a^8 + a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^23 + (-a^11 + a^9 + a^6 
        - a^2 - a)*q^27 + (-a^8 + a)*q^28 + (a^11 + a^10 - a^8 - a^7 + a^5 - a^3
        - a^2 + 1)*q^32 + (-a^11 - a^10 + a^8 + a^7 - a^6 - a^5 + a^3 + a^2 - 
        1)*q^35 + (a^11 - a^4)*q^40 + (a^11 - a^9 - a^8 + a^6 + a^5 - a^4 - 
        2*a^3 + a + 1)*q^42 + (a^11 + a^10 - a^8 - a^7 + a^5 - 2*a^3 - a^2 + 
        1)*q^43 + (-a^8 + a^6 + a)*q^47 + (a^8 - a^3)*q^48 + (a^9 - a^2)*q^50 + 
        (a^7 - a - 1)*q^58 + (a^6 - a)*q^60 + (-a^11 + a^9 + a^8 - a^7 - a^6 + 
        a^4 + a^3 + a^2 - a - 1)*q^63 - a^2*q^67 + (-a^11 - a^10 + a^9 + a^8 - 
        a^7 - a^6 + a^4 + 2*a^3 - a - 1)*q^72 + (a^11 + a^10 - a^8 - a^7 + a^5 +
        a^4 - a^3 - a^2 + 1)*q^75 + (-a^11 - 2*a^10 + a^8 + a^7 - a^6 - a^5 + 
        2*a^3 + a^2 - 1)*q^82 + (-a^8 + a^7 + a - 1)*q^83 + (a^11 + a^10 - a^5 -
        a^4 + a^2)*q^87 + (a^10 - a^8 - a^5 + a)*q^90 + (a^2 + 1)*q^92 + (a^11 +
        a^10 - a^8 - a^7 + a^5 - a^3 - a^2 + 1)*q^98 + a^3*q^103 + (a^8 - 
        a^7)*q^107 + (-a^11 + a^9 - a^5 - a^2 + 1)*q^108 + a^4*q^112 + (a^11 - 
        a^9 - a^8 + a^6 + a^5 - a^4 - a^3 + a + 2)*q^115 + (-a^11 + a^10 + a^9 +
        a^8 - a^6 + a^4 + a^3 - a - 1)*q^122 + (-a^10 - a^5 + a^3 - a + 1)*q^123
        + (a^4 - a)*q^127 - a^9*q^128 + (a^11 - 2*a^9 - a^8 + a^7 + a^6 + a^5 - 
        a^4 - 2*a^3 + a)*q^135 + (-a^11 - a^9 + a^6 + a^4)*q^138 + a^2*q^140 + 
        (a^8 - a^3)*q^147 - a^7*q^160 + (a^11 + a^10 - a^9 - 2*a^8 + a^5 + a^4 -
        a^3 - a^2 + a)*q^162 + (a^9 + a^8 - a^6 + a^3 - a - 1)*q^163 + (a^11 + 
        a^8 - a^4)*q^167 + (-a^11 - a^10 + 2*a^8 + a^7 - a^6 - a^5 + a^3 + a^2 -
        1)*q^168 + (-a^11 - a^10 - a^9 + a^8 + a^7 - a^6 - a^5 + a^3 + a^2 - 
        1)*q^172 + q^175 + (a^11 - a^9 - a^8 + 2*a^6 + a^5 - a^4 - a^3 + a + 
        1)*q^178 + (a^11 - a^8 + a^7 + a^6 + a^5 - a^4 - a^3 - a^2 + a + 
        1)*q^183 + (a^9 + a^4 - a^2)*q^188 + (-a^10 + a^8 + a^7 - a^6 - a^5 - 
        a^4 + a^3 + a^2 - 1)*q^192 - a^5*q^200 + (-2*a^11 + a^9 + a^8 - a^6 + 
        a^4 + a^3 - a - 1)*q^202 + (a^11 - a^9 - a^8 + 2*a^6 + a^5 - a^4 - a^3 +
        a + 1)*q^203 + (a^11 + a^10 - a^6 - a^4 + a)*q^207 + (-a^11 + a^6)*q^210
        + (-a^11 - a^7)*q^215 + (-a^11 + a^9 + a^8 - a^6 - a^5 + a^4 + a^3 - a -
        1)*q^218 + (a^10 - a^7)*q^223 + (-a^11 + a^7 - 1)*q^227 + (-a^11 - 
        a^3)*q^232 + (a^7 + a^2 - 1)*q^235 + (-a^11 + a^9 - a^2)*q^240 + (-a^10 
        + a^3)*q^242 + (a^11 - a^10 - a^9 + a^8 + a^7 - 2*a^4 - a^3 + 2*a^2 + 
        a)*q^243 - a^3*q^250 + (-a^11 - a^10 + a^9 + a^8 - a^6 + a^4 + 2*a^3 - 
        2*a - 1)*q^252 + (-2*a^10 + a^8 + a^7 - a^6 - a^5 - a^4 + 2*a^3 + a^2 - 
        a - 1)*q^258 + (a^11 - a^9 - a^8 + 2*a^6 + a^5 - a^4 - a^3 + a + 
        1)*q^263 + (a^10 - a^8 - a^7 + a^2 + a)*q^267 + (a^11 - a^9 - a^8 + a^6 
        - a^4 - a^3 + a + 1)*q^268 + (a^8 - a^6 + a^4)*q^282 + (a^11 + a^10 - 
        a^7 + a^5 - a^3 - a^2 + 1)*q^283 + (a^11 - a^4 - a)*q^287 + (-a^10 + a^6
        + a^3 - a)*q^288 + O(q^290)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^3*q^4 - a*q^5 + (-a^5 + 1)*q^6 + (a^4 + a^2 + 1)*q^9 - a*q^14 + (a^5 -
        a^4 + a^3 - a^2 + a - 1)*q^16 + a^4*q^20 + (-a^5 - a^3)*q^21 + (-a^3 - 
        a)*q^24 + a^2*q^25 + (-a + 1)*q^29 + (a^5 - a^4 + a^3 - a^2 - 1)*q^30 + 
        (-a^5 - a^3 + 1)*q^36 + (a^5 - a^4 - a^2 + a - 1)*q^41 + (-a^5 - a^3 - 
        a)*q^45 + (a^2 + 1)*q^46 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^49 + (-a^5 
        + a^4 + a^2 + 1)*q^54 + a^4*q^56 + (-a^5 - a^3)*q^61 + a^2*q^64 + (a^5 +
        a^4 + a^3 + a - 1)*q^69 + a^2*q^70 + q^80 + (a^5 + a^3)*q^81 + (a^5 - 
        a^4 + a^3 - a^2 - 1)*q^84 + (a^5 - a^4 + a^3 + a - 1)*q^86 + (-a^4 + a^3
        - a^2 + a - 1)*q^89 + (a^4 + a^2)*q^94 + (a^5 + a^3 - a^2 + a - 1)*q^96 
        - a^5*q^100 + (-a^5 + a^4)*q^101 + (a^5 + a^3 - a^2 + a - 1)*q^105 - 
        2*a^5*q^109 + (a^4 - a^3)*q^116 + (a^4 + a^2)*q^120 - a^3*q^121 - 
        a^3*q^125 + (-a^5 - a^3 - a)*q^126 + (a^5 - a^2 - 1)*q^129 - 2*a^5*q^134
        + (2*a^5 - a^4 + 2*a^3 - 2*a^2 + a - 2)*q^141 + (a^5 - a^4 - a^2 - 
        1)*q^144 + (a^2 - a)*q^145 + (a^2 - a)*q^149 + (a^2 + 1)*q^150 + (-a^5 +
        1)*q^161 + (a^5 - a^4 + a^3 + a - 1)*q^164 + (a^4 - a^3)*q^166 - 
        a^3*q^169 + (-a^4 + a^3 - a^2)*q^174 + (a^5 + a^3 - a^2 - 1)*q^180 + 
        2*a^2*q^181 + (-a^5 - a^3)*q^184 + (-a^5 - a^3 + a^2 + 1)*q^189 + 
        a^2*q^196 + (2*a^2 + 2)*q^201 + (a^4 + 1)*q^205 + (2*a^5 - 2*a^4 + 2*a^3
        - 2*a^2 + 2*a - 2)*q^206 + (a^4 - a^3)*q^214 + (-a^5 - a^3 - a + 
        1)*q^216 + q^224 + (a^5 + a^3 + a - 1)*q^225 + (-a^3 + a^2)*q^229 + 
        (-a^3 - a)*q^230 + (-a^5 - a)*q^241 + (a^5 - a^4 + a^3 - a^2 - 1)*q^244 
        + q^245 + (a^5 - a^2 - 1)*q^246 + (-a^4 + a^3 - a^2)*q^249 + (a^4 + 
        1)*q^254 - a^5*q^256 + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^261 + (a^4 + 
        1)*q^269 + (-a^4 - a^2 - 1)*q^270 + (-a^5 + a^2 + 2)*q^276 - a^5*q^280 +
        (a^5 + a^3 - a^2 + a - 1)*q^281 - a*q^289 + O(q^290),
    q^2 + (a^4 + a^2)*q^3 - a^5*q^7 - a^3*q^8 - a*q^10 + (-a^5 + 1)*q^12 + (-a^5
        - a^3)*q^15 + (a^4 + a^2 + 1)*q^18 + (a^5 + a^3 - a^2 + a - 1)*q^23 + 
        (a^5 + a^3 - 1)*q^27 - a*q^28 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^32 + 
        (a^5 - a^4 + a^3 - a^2 + a - 1)*q^35 + a^4*q^40 + (-a^5 - a^3)*q^42 + 
        (a^5 - a^4 - a^2 + a - 1)*q^43 + (a^5 - a^4 + a^3 - a^2 - 1)*q^47 + 
        (-a^3 - a)*q^48 + a^2*q^50 + (-a + 1)*q^58 + (a^5 - a^4 + a^3 - a^2 - 
        1)*q^60 + (-a^5 + a^2 + 1)*q^63 + 2*a^2*q^67 + (-a^5 - a^3 + 1)*q^72 + 
        (a^5 + a^3 - a^2 + a - 1)*q^75 + (a^5 - a^4 - a^2 + a - 1)*q^82 + (-a + 
        1)*q^83 + (-a^5 + a^4 - a^3 + a^2)*q^87 + (-a^5 - a^3 - a)*q^90 + (a^2 +
        1)*q^92 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^98 - 2*a^3*q^103 + (-a + 
        1)*q^107 + (-a^5 + a^4 + a^2 + 1)*q^108 + a^4*q^112 + (-a^5 + 1)*q^115 +
        (-a^5 - a^3)*q^122 + (-a^5 - a^3 - a + 1)*q^123 + (a^4 - a)*q^127 + 
        a^2*q^128 + (-a^5 - a^3 + a^2 + 1)*q^135 + (a^5 + a^4 + a^3 + a - 
        1)*q^138 + a^2*q^140 + (-a^3 - a)*q^147 + q^160 + (a^5 + a^3)*q^162 + 
        (-a^5 + a^4)*q^163 + (a^4 - a)*q^167 + (a^5 - a^4 + a^3 - a^2 - 1)*q^168
        + (a^5 - a^4 + a^3 + a - 1)*q^172 + q^175 + (-a^4 + a^3 - a^2 + a - 
        1)*q^178 + (-a^5 + a^2 + 2)*q^183 + (a^4 + a^2)*q^188 + (a^5 + a^3 - a^2
        + a - 1)*q^192 - a^5*q^200 + (-a^5 + a^4)*q^202 + (-a^4 + a^3 - a^2 + a 
        - 1)*q^203 + (2*a^5 - a^4 + a^3 - 2*a^2 - 2)*q^207 + (a^5 + a^3 - a^2 + 
        a - 1)*q^210 + (a^4 + 1)*q^215 - 2*a^5*q^218 + (-a^3 + 1)*q^223 + (a^4 +
        1)*q^227 + (a^4 - a^3)*q^232 + (a^2 + 1)*q^235 + (a^4 + a^2)*q^240 - 
        a^3*q^242 - q^243 - a^3*q^250 + (-a^5 - a^3 - a)*q^252 + (a^5 - a^2 - 
        1)*q^258 + (-a^4 + a^3 - a^2 + a - 1)*q^263 + (-a^3 + a^2 - a + 1)*q^267
        - 2*a^5*q^268 + (2*a^5 - a^4 + 2*a^3 - 2*a^2 + a - 2)*q^282 + (a^5 - a^4
        + a^3 - a^2 - 1)*q^283 + (a^4 - a)*q^287 + (a^5 - a^4 - a^2 - 1)*q^288 +
        O(q^290)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (-a^3 + a)*q^9 + a^2*q^16 - q^36 + a^3*q^50 + (a^2 + a - 1)*q^53
        + (a^3 - a^2 - a)*q^58 - a^3*q^64 + (a^3 - a)*q^65 + (-a^2 + 1)*q^81 - 
        a^3*q^85 + (a^3 - 1)*q^113 - a^2*q^121 + a*q^130 + a*q^144 + a^3*q^169 +
        (-a^3 + a)*q^170 + (-a^2 - a + 1)*q^193 + (-a^3 - 1)*q^197 + (-a^2 + 
        1)*q^200 + a^2*q^205 + (-a^3 - a^2 + a)*q^212 + (-a^3 + 1)*q^218 + (a^3 
        + 1)*q^232 + (a^2 - 1)*q^256 + q^260 + (a^2 - a - 1)*q^277 + (a^3 - 
        a)*q^289 + O(q^290),
    q^2 - a*q^8 + (-a^3 + a)*q^18 - a^2*q^25 + (-a^2 + a + 1)*q^29 + a^2*q^32 - 
        q^65 - q^72 + (a^2 - 1)*q^85 + a^3*q^100 + (a^2 + a - 1)*q^106 + (a^3 + 
        a^2 - a)*q^109 + (a^3 - a^2 - a)*q^116 - a^3*q^128 + (a^3 - a)*q^130 + 
        (-a^2 + 1)*q^162 + (a^2 - a - 1)*q^169 - a^3*q^170 + q^205 + (-a^3 + a^2
        + a)*q^221 - a*q^225 + (a^3 - 1)*q^226 - a^2*q^242 + a*q^260 + (-a^3 + 
        1)*q^261 + (-a^2 - a + 1)*q^281 + a*q^288 + (a^3 + 1)*q^289 + O(q^290),
    q^5 + (-a^2 + 1)*q^13 - a^2*q^17 - a*q^20 - a^3*q^26 + a*q^34 + (a^2 - 
        1)*q^41 + (-a^3 + a)*q^45 + (a^3 - a)*q^52 + a^3*q^61 + a^3*q^68 + (a^3 
        - a)*q^73 + a^2*q^80 - q^82 - q^89 + a*q^97 + a^2*q^101 + (a^2 - 
        1)*q^104 - a^3*q^117 + (-a^3 + a)*q^122 - a^2*q^136 + (-a^2 + 1)*q^146 -
        a*q^153 + a^2*q^157 + (-a^3 + a)*q^164 - q^173 + a^2*q^178 - q^180 - 
        a*q^181 + q^194 + (a^2 - 1)*q^202 + q^208 - a^3*q^229 - a^2*q^234 + 
        (-a^3 + a)*q^241 + (-a^2 + 1)*q^244 + a^3*q^250 + a^3*q^257 + (a^2 + a -
        1)*q^265 + (a^3 - a)*q^269 + (-a^2 + 1)*q^272 + O(q^290),
    q^10 + a^2*q^13 - q^17 + (-a^2 + 1)*q^26 - a^2*q^34 - a*q^40 + (-a^3 + 
        a)*q^41 - a^3*q^52 + (a^2 - 1)*q^61 + a*q^68 + a^3*q^73 + (a^2 - 1)*q^82
        - a*q^89 + (-a^3 + a)*q^90 + (a^3 - a)*q^97 - a^3*q^101 + (a^3 - 
        a)*q^104 + a*q^117 + a^3*q^122 - a^2*q^125 + a^3*q^136 + (-a^2 + a + 
        1)*q^145 + (a^3 - a)*q^146 + (a^3 - a)*q^153 + q^157 + a^2*q^160 - q^164
        + (-a^2 + 1)*q^173 - q^178 - a^2*q^181 + a*q^194 + a^2*q^202 + (a^2 - 
        1)*q^208 + (a^2 - 1)*q^229 - a^3*q^234 + q^241 + (-a^3 + a)*q^244 - 
        a*q^257 + q^269 - a^2*q^272 + O(q^290)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 7*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^11 - q^15 + (a - 1)*q^25 - q^29 + (a - 1)*q^39 - a*q^51 + 
        a*q^65 + 2*q^71 + a*q^79 + (-a + 1)*q^81 - q^85 + (-a + 1)*q^109 - 
        a*q^135 + q^141 - 2*a*q^149 + (-a + 1)*q^151 + (a - 1)*q^165 + (2*a - 
        2)*q^179 + a*q^191 - q^211 + 2*a*q^219 + (a - 1)*q^221 + (-a + 1)*q^235 
        - q^239 + (-2*a + 2)*q^249 + a*q^275 - q^281 + O(q^290),
    q^3 + (-a + 1)*q^5 - a*q^13 + q^17 + a*q^27 + (-a + 1)*q^33 + (a - 1)*q^47 -
        a*q^55 - 2*q^73 + (a - 1)*q^75 + 2*a*q^83 - q^87 - a*q^97 + (a - 
        1)*q^103 + a*q^125 - q^143 + (a - 1)*q^145 - 2*q^157 - a*q^167 + (a - 
        1)*q^173 + (-a + 1)*q^187 + a*q^195 + 2*q^213 - a*q^223 + q^227 + 
        a*q^237 - q^255 + (-2*a + 2)*q^257 + q^283 + O(q^290)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^2 - a*q^4 - q^8 + (a - 1)*q^9 + (a - 1)*q^16 + a*q^18 + 
        a*q^25 - 2*q^29 + a*q^32 + q^36 + (-2*a + 2)*q^37 + q^50 - 2*a*q^53 + 
        (2*a - 2)*q^58 + q^64 + (-a + 1)*q^72 - 2*a*q^74 - a*q^81 + (-a + 
        1)*q^100 - 2*q^106 + 2*a*q^109 + 2*q^113 + 2*a*q^116 + (a - 1)*q^121 + 
        (-a + 1)*q^128 + 2*a*q^137 - a*q^144 - 2*q^148 + (2*a - 2)*q^149 - q^162
        - q^169 - 2*a*q^193 + 2*q^197 - a*q^200 + (2*a - 2)*q^212 + 2*q^218 - 
        q^225 + (-2*a + 2)*q^226 + 2*q^232 + (-2*a + 2)*q^233 + a*q^242 - 
        a*q^256 + (-2*a + 2)*q^261 + 2*q^274 - 2*a*q^277 - 2*q^281 - q^288 + (-a
        + 1)*q^289 + O(q^290),
    q^5 + (-a + 1)*q^10 - a*q^20 - q^40 + (a - 1)*q^45 + (a - 1)*q^80 + a*q^90 +
        a*q^125 - 2*q^145 + a*q^160 + q^180 + (-2*a + 2)*q^185 + q^250 - 
        2*a*q^265 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^11 + q^15 + (-a^2 - a + 1)*q^23 + (-a^3 + a)*q^25 - a^3*q^29 + 
        (-a^2 + a + 1)*q^37 + (a^3 - a)*q^39 + (a^3 - 1)*q^43 + (a^2 - 1)*q^51 +
        (-a^3 - 1)*q^57 + (a^2 - 1)*q^65 + a*q^79 - a^2*q^81 + a^3*q^85 + (a^3 -
        a^2 - a)*q^95 + (a^2 - a - 1)*q^107 + (-a^3 + a)*q^109 + (a^3 - 1)*q^113
        - a*q^135 - q^141 - a^2*q^151 + (a^2 + a - 1)*q^163 + a^2*q^165 + (-a^2 
        + 1)*q^191 - q^211 - a^2*q^221 + (a^3 - a)*q^235 - a^3*q^239 + (-a^2 + a
        + 1)*q^247 + (-a^3 + 1)*q^253 + (-a^3 + a^2 + a)*q^263 + a*q^275 + (a^3 
        + a^2 - a)*q^277 + q^281 + O(q^290),
    q^3 + (-a^3 + a)*q^5 + (a^2 - 1)*q^13 + a^3*q^17 + (a^3 - a^2 - a)*q^19 - 
        a*q^27 + a^2*q^33 + (a^3 - a)*q^47 + a*q^55 + (-a^2 - a + 1)*q^69 + 
        (-a^3 + a)*q^75 - a^3*q^87 + a*q^97 + (-a^3 - 1)*q^101 + a^2*q^103 + 
        (-a^2 + a + 1)*q^111 + (-a^3 - 1)*q^115 + (-a^2 + 1)*q^125 + (a^3 - 
        1)*q^129 + (-a^3 - a^2 + a)*q^131 + (a^2 + a - 1)*q^139 - q^143 - 
        a^2*q^145 - a*q^167 + a^2*q^173 + (-a^3 + 1)*q^185 + (a^3 - a)*q^187 + 
        (a^2 - 1)*q^195 + (-a^2 - a + 1)*q^209 + (a^3 + a^2 - a)*q^215 + (-a^2 +
        1)*q^223 + a^3*q^227 + a*q^237 + (a^3 + 1)*q^241 + (a^2 - a - 1)*q^251 +
        a^3*q^255 + (-a^3 + 1)*q^269 + q^283 + (a^3 - a^2 - a)*q^285 + O(q^290)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 14*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*q^6 + 1/2*(-a + 1)*q^9 + 1/2*q^13 + (a - 1)*q^16 - 1/2*a*q^17 - q^20
        - 1/2*a*q^24 - 1/2*a*q^25 + 1/2*(-a + 1)*q^26 - 1/2*q^29 + 1/2*(-a + 
        1)*q^30 - 1/2*q^34 + 1/2*q^36 + q^41 + 1/2*a*q^45 + 1/2*a*q^46 - 
        1/2*q^50 + 1/2*a*q^52 + 1/2*(-a + 1)*q^54 + 1/2*(-a + 1)*q^65 + 1/2*(-a 
        + 1)*q^68 - 1/2*q^69 + 1/2*a*q^73 - a*q^74 + 1/2*(a - 1)*q^82 - 1/2*q^85
        + 1/2*(-a + 1)*q^86 + (a - 1)*q^89 + a*q^94 + 1/2*(a - 1)*q^96 - 
        1/2*q^97 + 1/2*(a - 1)*q^100 - a*q^101 + 1/2*q^104 + 1/2*a*q^109 + 
        1/2*a*q^116 + 1/2*(-a + 1)*q^117 - 1/2*q^120 + (a - 1)*q^121 + 
        1/2*a*q^122 - 1/2*q^125 + 1/2*a*q^129 + 1/2*a*q^130 - 1/2*q^134 - 
        1/2*a*q^136 - q^141 + 1/2*a*q^144 + 1/2*(a - 1)*q^145 + 1/2*q^146 + 
        1/2*(a - 1)*q^149 - 1/2*a*q^150 - 1/2*q^153 - 1/2*a*q^157 + 1/2*(a - 
        1)*q^166 + 1/2*(-a + 1)*q^170 + 1/2*(a - 1)*q^173 - 1/2*q^174 - 
        1/2*a*q^178 + 1/2*(a - 1)*q^180 + 1/2*(-a + 1)*q^184 + 1/2*(a - 1)*q^194
        - 1/2*a*q^200 + 1/2*(-a + 1)*q^201 + 1/2*q^202 - 1/2*a*q^206 + 1/2*(a - 
        1)*q^208 + 1/2*a*q^214 - 1/2*q^216 + a*q^221 + 1/2*(-3*a + 3)*q^229 + 
        1/2*q^230 - 1/2*a*q^234 + 3/2*a*q^241 + q^244 + 1/2*q^246 - 1/2*a*q^249 
        + 1/2*(-a + 1)*q^250 + (a - 1)*q^254 - a*q^256 + 1/2*(-a + 1)*q^257 + 
        1/2*q^260 - 1/2*a*q^270 + 1/2*q^272 + q^274 + 1/2*a*q^276 + q^281 + 
        O(q^290),
    q^2 + a*q^8 + (-a + 1)*q^18 + (a - 1)*q^25 + (a - 1)*q^32 - 2*q^37 + q^65 + 
        q^72 - a*q^85 - q^100 - q^128 + (-a + 1)*q^130 + (-2*a + 2)*q^137 - 
        2*a*q^148 - a*q^162 - q^170 + q^205 + a*q^225 + 2*q^233 + (a - 1)*q^242 
        + a*q^260 + a*q^288 + O(q^290),
    q^3 + (2*a - 2)*q^8 - a*q^12 + (a - 1)*q^13 + (-a + 1)*q^15 + q^17 + q^18 + 
        a*q^23 - q^25 - a*q^26 + (-a + 1)*q^27 + (a - 1)*q^34 - 2*a*q^37 + 
        2*a*q^40 + (-a + 1)*q^41 + (-a + 1)*q^43 + 2*a*q^47 + (a - 1)*q^48 + (a 
        - 1)*q^50 - q^52 + a*q^58 - q^60 - a*q^61 + a*q^65 - q^67 + a*q^68 + 
        a*q^72 - q^73 - a*q^75 - 2*a*q^82 + (a - 1)*q^83 + (-a + 1)*q^85 - q^87 
        + a*q^89 + (-a + 1)*q^90 + (-a + 1)*q^92 + (-a + 1)*q^97 - a*q^100 - 
        q^101 - a*q^103 + (-a + 1)*q^104 + a*q^107 - q^108 + q^115 + a*q^117 + 
        q^123 + (a - 1)*q^125 + (2*a - 2)*q^127 - 2*a*q^128 + q^130 - a*q^135 - 
        q^136 + 2*q^137 + a*q^138 + (-a + 1)*q^146 + (-2*a + 2)*q^148 + (-a + 
        1)*q^153 + q^157 + (-2*a + 2)*q^162 - 2*a*q^163 + q^164 + (a - 1)*q^167 
        - a*q^170 - q^172 - a*q^173 + 2*q^178 + (a - 1)*q^181 + (a - 1)*q^183 - 
        2*q^185 + (-2*a + 2)*q^188 + q^192 + a*q^194 + q^200 + (2*a - 2)*q^202 +
        a*q^205 - a*q^208 - a*q^215 + (-a + 1)*q^218 + (-2*a + 2)*q^223 + (a - 
        1)*q^225 - 2*q^227 - a*q^229 + (-a + 1)*q^232 + 2*a*q^233 - q^234 + 
        2*q^235 + a*q^240 + q^241 + (-a + 1)*q^244 + a*q^250 + a*q^257 + (-a + 
        1)*q^258 + (a - 1)*q^260 - q^263 + (a - 1)*q^267 + a*q^268 + q^269 + (a 
        - 1)*q^272 + 2*a*q^282 - 2*q^283 + (a - 1)*q^288 + O(q^290),
    q^4 + 1/2*(a - 1)*q^6 - 1/2*a*q^9 + 1/2*(a - 1)*q^13 + 1/2*q^17 + (-a + 
        1)*q^20 + 1/2*q^24 + 1/2*q^25 + 1/2*a*q^26 + 1/2*(-a + 1)*q^29 + 
        1/2*a*q^30 + 1/2*(-a + 1)*q^34 + 1/2*(-a + 1)*q^36 + (a - 1)*q^41 - 
        1/2*q^45 - 1/2*q^46 + 1/2*(a - 1)*q^50 - 1/2*q^52 + 1/2*a*q^54 + (a - 
        1)*q^64 - 1/2*a*q^65 + 1/2*a*q^68 + 1/2*(-a + 1)*q^69 - 1/2*q^73 - q^74 
        - q^81 - 1/2*a*q^82 + 1/2*(a - 1)*q^85 + 1/2*a*q^86 - a*q^89 - q^94 - 
        1/2*a*q^96 + 1/2*(-a + 1)*q^97 - 1/2*a*q^100 + q^101 + 1/2*(a - 1)*q^104
        - 1/2*q^109 - 1/2*q^116 + 1/2*a*q^117 + 1/2*(-a + 1)*q^120 - 1/2*q^122 +
        1/2*(-a + 1)*q^125 - 1/2*q^129 + 1/2*q^130 + 1/2*(-a + 1)*q^134 + 
        1/2*q^136 + (-a + 1)*q^141 + 1/2*q^144 - 1/2*a*q^145 + 1/2*(a - 1)*q^146
        + 3/2*a*q^149 + 1/2*q^150 + 1/2*(-a + 1)*q^153 + 1/2*q^157 - 1/2*a*q^166
        + (a - 1)*q^169 - 1/2*a*q^170 - 1/2*a*q^173 + 1/2*(-a + 1)*q^174 + 
        1/2*q^178 - 1/2*a*q^180 + 1/2*a*q^184 - 1/2*a*q^194 - 1/2*q^200 + 
        1/2*a*q^201 + 1/2*(a - 1)*q^202 + a*q^205 + 1/2*q^206 - 1/2*a*q^208 - 
        1/2*q^214 + 1/2*(-a + 1)*q^216 + q^221 + 3/2*a*q^229 + 1/2*(a - 1)*q^230
        + 1/2*q^234 - 3/2*q^241 + (a - 1)*q^244 + 1/2*(a - 1)*q^246 + 1/2*q^249 
        + 1/2*a*q^250 - a*q^254 + 1/2*a*q^257 + 1/2*(-a + 1)*q^260 + 1/2*q^270 +
        1/2*(a - 1)*q^272 + (-a + 1)*q^274 - 1/2*q^276 + (a - 1)*q^281 - a*q^289
        + O(q^290),
    q^5 - a*q^13 + (a - 1)*q^17 + a*q^20 - q^26 + a*q^34 - a*q^41 + (-a + 
        1)*q^45 + (-a + 1)*q^52 - q^61 - q^68 + (-a + 1)*q^73 + (a - 1)*q^80 + 
        q^82 + q^89 + a*q^97 + (a - 1)*q^101 - a*q^104 - q^117 + (-a + 1)*q^122 
        + (a - 1)*q^136 - a*q^146 + a*q^153 + (a - 1)*q^157 + (-a + 1)*q^164 + 
        q^173 + (a - 1)*q^178 + q^180 + a*q^181 + q^194 - a*q^202 + q^208 - 
        q^229 + (a - 1)*q^234 + (-a + 1)*q^241 - a*q^244 - q^250 - q^257 + (-a +
        1)*q^269 - a*q^272 + O(q^290),
    q^10 + (a - 1)*q^13 + q^17 - a*q^26 + (a - 1)*q^34 + a*q^40 + (-a + 1)*q^41 
        - q^52 - a*q^61 + a*q^68 - q^73 - a*q^82 + a*q^89 + (-a + 1)*q^90 + (-a 
        + 1)*q^97 - q^101 + (-a + 1)*q^104 + a*q^117 - q^122 + (a - 1)*q^125 - 
        q^136 + (-a + 1)*q^146 + (-a + 1)*q^153 + q^157 + (a - 1)*q^160 + q^164 
        - a*q^173 + q^178 + (a - 1)*q^181 - 2*q^185 + a*q^194 + (a - 1)*q^202 - 
        a*q^208 - a*q^229 - q^234 + q^241 + (-a + 1)*q^244 + a*q^257 + q^269 + 
        (a - 1)*q^272 + O(q^290)
]
;
Bo:=
[
    q - a*q^4 + (a - 1)*q^5 - q^6 + (a - 1)*q^16 + q^20 + a*q^24 - a*q^25 - q^29
        + (-a + 1)*q^30 - q^41 + a*q^46 + (a - 1)*q^54 + (-a + 1)*q^61 + q^64 + 
        q^69 - a*q^80 + a*q^81 + (-a + 1)*q^86 + (-a + 1)*q^89 - 2*a*q^94 + (-a 
        + 1)*q^96 + (a - 1)*q^100 + a*q^101 + a*q^109 + a*q^116 - q^120 + (a - 
        1)*q^121 + q^125 - a*q^129 - q^134 - 2*q^141 + (-a + 1)*q^145 + (-a + 
        1)*q^149 + a*q^150 + a*q^164 + (-a + 1)*q^166 + q^169 + q^174 - q^181 + 
        (-a + 1)*q^184 + (a - 1)*q^201 + (-a + 1)*q^205 + a*q^206 + a*q^214 + 
        q^216 + (2*a - 2)*q^229 - q^230 - 2*a*q^241 - q^244 + q^246 - a*q^249 + 
        (2*a - 2)*q^254 - a*q^256 + a*q^269 - a*q^270 - a*q^276 + 2*q^281 + (a -
        1)*q^289 + O(q^290),
    q^2 + (-a + 1)*q^3 - a*q^8 + (a - 1)*q^10 - q^12 + a*q^15 - q^23 - a*q^27 + 
        (a - 1)*q^32 + q^40 + a*q^43 + 2*q^47 + a*q^48 - a*q^50 - q^58 + (-a + 
        1)*q^60 + (-a + 1)*q^67 - q^75 - q^82 + a*q^83 + (a - 1)*q^87 + a*q^92 -
        q^103 - q^107 + (a - 1)*q^108 + (-a + 1)*q^115 + (-a + 1)*q^122 + (a - 
        1)*q^123 - 2*a*q^127 + q^128 + q^135 + q^138 - a*q^160 + a*q^162 + 
        2*q^163 + a*q^167 + (-a + 1)*q^172 + (-a + 1)*q^178 - a*q^183 - 
        2*a*q^188 + (-a + 1)*q^192 + (a - 1)*q^200 + a*q^202 - q^215 + a*q^218 -
        2*a*q^223 + (2*a - 2)*q^227 + a*q^232 + (2*a - 2)*q^235 - q^240 + (a - 
        1)*q^242 + q^250 - a*q^258 + (-a + 1)*q^263 - a*q^267 - q^268 - 2*q^282 
        + (2*a - 2)*q^283 + O(q^290),
    q^7 - a*q^28 + (a - 1)*q^35 - q^42 + q^98 + (a - 1)*q^112 + q^140 + (-a + 
        1)*q^147 + a*q^168 - a*q^175 - q^203 + (-a + 1)*q^210 - q^287 + 
        O(q^290),
    q^14 + (-a + 1)*q^21 + (a - 1)*q^49 - a*q^56 + (a - 1)*q^70 - q^84 + a*q^105
        - q^161 - a*q^189 + q^196 + (a - 1)*q^224 - a*q^245 + q^280 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 21*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + a*q^9 - q^16 - q^36 + a*q^50 + (-a + 1)*q^53 + (-a + 1)*q^58 - 
        a*q^64 - a*q^65 - q^81 - a*q^85 + (a - 1)*q^113 + q^121 - a*q^130 - 
        a*q^144 + a*q^169 + a*q^170 + (a - 1)*q^193 + (-a - 1)*q^197 - q^200 - 
        q^205 + (a + 1)*q^212 + (-a + 1)*q^218 + (a + 1)*q^232 + q^256 + q^260 +
        (a + 1)*q^277 - a*q^289 + O(q^290),
    q^2 + a*q^8 + a*q^18 + q^25 + (-a - 1)*q^29 - q^32 - q^65 - q^72 + q^85 + 
        a*q^100 + (-a + 1)*q^106 + (-a - 1)*q^109 + (-a + 1)*q^116 - a*q^128 - 
        a*q^130 - q^162 + (a + 1)*q^169 - a*q^170 + q^205 + (a - 1)*q^221 + 
        a*q^225 + (a - 1)*q^226 + q^242 - a*q^260 + (-a + 1)*q^261 + (a - 
        1)*q^281 - a*q^288 + (a + 1)*q^289 + O(q^290),
    q^5 - q^13 + q^17 + a*q^20 - a*q^26 - a*q^34 + q^41 + a*q^45 - a*q^52 + 
        a*q^61 + a*q^68 - a*q^73 - q^80 - q^82 - q^89 - a*q^97 - q^101 + q^104 -
        a*q^117 + a*q^122 + q^136 - q^146 + a*q^153 - q^157 + a*q^164 - q^173 - 
        q^178 - q^180 + a*q^181 + q^194 + q^202 + q^208 - a*q^229 + q^234 + 
        a*q^241 - q^244 + a*q^250 + a*q^257 + (-a + 1)*q^265 - a*q^269 - q^272 +
        O(q^290),
    q^10 - q^13 - q^17 - q^26 + q^34 + a*q^40 + a*q^41 - a*q^52 + q^61 - a*q^68 
        + a*q^73 + q^82 + a*q^89 + a*q^90 - a*q^97 - a*q^101 - a*q^104 - a*q^117
        + a*q^122 + q^125 + a*q^136 + (-a - 1)*q^145 - a*q^146 - a*q^153 + q^157
        - q^160 - q^164 - q^173 - q^178 + q^181 - a*q^194 - q^202 + q^208 + 
        q^229 - a*q^234 + q^241 + a*q^244 + a*q^257 + q^269 + q^272 + O(q^290)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
980
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 21*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
290
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^11 - q^15 + q^25 - q^29 + q^39 + q^51 - q^65 + 2*q^71 - q^79 - q^81 - 
        q^85 - q^109 + q^135 + q^141 + 2*q^149 - q^151 + q^165 + 2*q^179 - q^191
        - q^211 - 2*q^219 + q^221 - q^235 - q^239 - 2*q^249 - q^275 - q^281 + 
        O(q^290),
    q^3 - q^5 + q^13 + q^17 - q^27 - q^33 + q^47 + q^55 - 2*q^73 + q^75 - 2*q^83
        - q^87 + q^97 + q^103 - q^125 - q^143 + q^145 - 2*q^157 + q^167 + q^173 
        - q^187 - q^195 + 2*q^213 + q^223 + q^227 - q^237 - q^255 - 2*q^257 + 
        q^283 + O(q^290),
    q^7 - q^77 - q^105 - q^147 + q^175 - q^203 + q^245 + q^273 + O(q^290),
    q^21 - q^35 - q^49 + q^91 + q^119 - q^189 - q^231 + O(q^290)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
108
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
108
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
108
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^3*q^4 + (-a^10 + a^6 - 1)*q^7 + (-a^8 + a^5)*q^13 + a^6*q^16 + (-a^8 +
        a^7 + a^2)*q^19 - a^4*q^25 + (a^9 - a^7 - a^3 + a)*q^28 + a^7*q^31 + 
        (-a^9 + a^8 - a^2)*q^37 + (a^11 - a)*q^43 + (-a^6 + a^4 - a^2)*q^49 + 
        (-a^11 + a^8)*q^52 + (a^10 - a^6 - a^4 + 1)*q^61 + a^9*q^64 + (-a^10 - 
        a^7 + a^4)*q^67 + (-a^9 - a^5 + a^3)*q^73 + (-a^11 + a^10 + a^5)*q^76 + 
        (-a^3 + a^2)*q^79 + (a^11 - a^9 - a^5 + a^3 + a^2 - 1)*q^91 + (a^11 - 
        2*a^5)*q^97 - a^7*q^100 + (a^10 + a^9)*q^103 - a^3*q^109 + (-a^10 + a^4 
        - 1)*q^112 - a^11*q^121 + a^10*q^124 + (-a^11 + a^5 - 1)*q^127 + (-a^11 
        + a^8 - a^6 + a^5 - a)*q^133 + (a^11 - a^6 + 1)*q^139 + (a^11 - a^6 - 
        a^5 + 1)*q^148 + (-a^3 - a^2)*q^151 + (-a^9 + a)*q^157 + (a^7 - a^2 - 
        a)*q^163 + (2*a^10 - a^7 - a^4 + a)*q^169 + (a^8 - a^4 - a^2)*q^172 + 
        (-a^10 + a^8 + a^4 - a^2)*q^175 + (a^9 + a^8 - a^3)*q^181 + (-a^6 + 
        a^2)*q^193 + (-a^9 + a^7 - a^5)*q^196 + (a^9 + a^6 - a^3)*q^199 + (a^11 
        - a^8 + a^2)*q^208 + (-2*a^8 + a^2)*q^211 + O(q^214)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^3*q^4 + (-a^3 - a)*q^7 + (2*a^5 - a^2)*q^13 + (a^3 - 1)*q^16 + (-a^5 +
        a^4 - a)*q^19 + a^4*q^25 + (-a^4 - a^3 + 1)*q^28 + (-a^4 + a)*q^31 + 
        (-a^5 - 1)*q^37 + (-a^2 + a)*q^43 + (a^4 + a^3 + a^2 - 1)*q^49 + (a^5 - 
        2*a^2)*q^52 + (-a^4 - a^3 + a)*q^61 - q^64 + (a^5 - a^3 + 1)*q^73 + 
        (-a^5 + a^2 - a)*q^76 + (a^3 + a^2)*q^79 + (-a^5 - a^3 + 2*a^2 + 2)*q^91
        + a^2*q^97 + (a^4 - a)*q^100 + (-a - 1)*q^103 + a^3*q^109 + (-a^4 + a + 
        1)*q^112 - a^2*q^121 + a*q^124 + (-a^5 + a^2 + 1)*q^127 + (a^3 + a - 
        1)*q^133 + (-a^3 - a^2)*q^139 + (-a^5 - a^3 + a^2)*q^148 + (a^3 + 
        a^2)*q^151 + (a - 1)*q^157 + (-a^4 + a^2)*q^163 - 2*a^4*q^169 + (-a^5 + 
        a^4)*q^172 + (-a^5 - a^4 + a)*q^175 + (a^5 - a^3 - a^2 + 1)*q^181 + (a^3
        + a^2 - 1)*q^193 + (a^5 + a^4 - a - 1)*q^196 + (-a^5 - a^2)*q^208 - 
        a^2*q^211 + O(q^214),
    q^3 + (-a^5 + a^2)*q^9 + a^3*q^12 + (-a^3 - a)*q^21 + (-a^4 + a)*q^27 + 
        a^2*q^36 + (2*a^5 - a^2)*q^39 + (a^3 - 1)*q^48 + (-a^5 + a^4 - a)*q^57 +
        (-a^2 - 1)*q^63 + a^4*q^75 + (-a^3 + 1)*q^81 + (-a^4 - a^3 + 1)*q^84 + 
        (-a^4 + a)*q^93 + a*q^108 + (-a^5 - 1)*q^111 + (2*a^4 - a)*q^117 + (-a^2
        + a)*q^129 + a^5*q^144 + (a^4 + a^3 + a^2 - 1)*q^147 + (a^5 - 
        2*a^2)*q^156 + (-a^4 + a^3 - 1)*q^171 + (-a^4 - a^3 + a)*q^183 + (a^5 - 
        a^2 - a)*q^189 - q^192 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^3*q^4 + a^2*q^7 + (a^3 + a^2 - a)*q^13 - q^16 + (-a^2 - a)*q^19 + 
        (-a^2 + 1)*q^25 + (a^3 - a)*q^28 + 2*a*q^31 + (a^3 + a^2)*q^37 - 
        a^3*q^43 + (a^3 - a^2 - a)*q^52 + (a^2 - 2)*q^61 - a^3*q^64 + (-a^2 + a 
        + 1)*q^67 + (-2*a^3 + a)*q^73 + (-a^3 - a^2 + a + 1)*q^76 + (-a^3 + 
        a^2)*q^79 + (a^2 - a - 1)*q^91 + a*q^100 + (-a^3 - a^2 + 1)*q^103 - 
        a^3*q^109 - a^2*q^112 + (a^3 - a)*q^121 + (2*a^2 - 2)*q^124 + (-a^3 + a 
        - 1)*q^127 + (-a^3 - a^2 + 1)*q^133 + (-a^3 + a - 1)*q^139 + (a^3 - a - 
        1)*q^148 + (-a^3 - a^2)*q^151 + (a^3 + a)*q^157 + (-a^2 + a)*q^163 - 
        a*q^169 + q^172 + q^175 + (a^3 - a^2)*q^181 + (a^2 + 1)*q^193 + (a^3 - 
        1)*q^199 + (-a^3 - a^2 + a)*q^208 + O(q^214)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^3 - 1)*q^4 + (a^3 + a^2 - 1)*q^7 - a^4*q^13 - a^3*q^16 + (-a^5 - 
        a)*q^19 + (a^5 - a^2)*q^25 + (a^5 - a^3 - a^2)*q^28 + a^5*q^31 + (-a + 
        1)*q^37 + (a^4 + a^2)*q^43 + (a^5 + a^4 - a^3 - a^2)*q^49 + a*q^52 + 
        (-a^5 + a^3 - 1)*q^61 + q^64 - 2*a^5*q^67 + (-a^3 - a)*q^73 + (-a^4 + 
        a^2 + a)*q^76 + (a^4 + a^3 - 1)*q^79 + (-a^3 + a + 1)*q^91 - a^4*q^97 - 
        a^5*q^100 + (a^2 + 1)*q^103 + (a^3 - 1)*q^109 + (-a^5 + 1)*q^112 + 
        a^4*q^121 - a^2*q^124 + (-a^4 + a + 1)*q^127 + (-2*a^4 - a^3 + a^2 + 
        2*a)*q^133 + (a^4 + a^3 - 1)*q^139 + (-a^4 + a^3 + a - 1)*q^148 + (a^4 +
        a^3 - 1)*q^151 + (a^2 + 1)*q^157 + (a^5 + a^4 - a^2)*q^163 + (a^5 - a^2 
        - a)*q^172 + (-a^5 - a)*q^175 + (-a^4 - a^3 + a)*q^181 + (a^4 - 
        a^3)*q^193 + (-a^5 - a + 1)*q^196 - 2*a^3*q^199 + (a^4 - a)*q^208 - 
        a^4*q^211 + O(q^214),
    q^3 + (-a^4 + a)*q^9 + (a^3 - 1)*q^12 + (a^3 + a^2 - 1)*q^21 - a^5*q^27 + 
        a^4*q^36 - a^4*q^39 - a^3*q^48 + (-a^5 - a)*q^57 + (a^4 + 1)*q^63 + (a^5
        - a^2)*q^75 - a^3*q^81 + (a^5 - a^3 - a^2)*q^84 + a^5*q^93 + a^2*q^108 +
        (-a + 1)*q^111 - a^2*q^117 + (a^4 + a^2)*q^129 - a*q^144 + (a^5 + a^4 - 
        a^3 - a^2)*q^147 + a*q^156 + (a^5 - a^3 - a^2)*q^171 + (-a^5 + a^3 - 
        1)*q^183 + (-a^4 + a^2 + a)*q^189 + q^192 - 2*a^5*q^201 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 + (-a + 1)*q^7 + q^16 + (2*a - 1)*q^19 - a*q^25 + (a - 1)*q^28 + 
        2*a*q^31 + (a - 2)*q^37 + q^43 + (-a + 1)*q^61 - q^64 - a*q^73 + (-2*a +
        1)*q^76 + (a - 2)*q^79 + (-2*a + 2)*q^97 + a*q^100 + (-a - 1)*q^103 - 
        q^109 + (-a + 1)*q^112 + (-a + 1)*q^121 - 2*a*q^124 + (-a + 2)*q^127 + 
        (a + 1)*q^133 + (-a + 2)*q^139 + (-a + 2)*q^148 + (a - 2)*q^151 + (a - 
        1)*q^157 + (2*a - 1)*q^163 - a*q^169 - q^172 - q^175 + (a - 2)*q^181 + 
        a*q^193 + (2*a - 2)*q^211 + O(q^214),
    q^3 + (-a + 1)*q^9 - q^12 + (-a + 1)*q^21 - a*q^27 + (a - 1)*q^36 + q^48 + 
        (2*a - 1)*q^57 - a*q^63 - a*q^75 - q^81 + (a - 1)*q^84 + 2*a*q^93 + 
        a*q^108 + (a - 2)*q^111 + q^129 + (-a + 1)*q^144 + (a + 1)*q^171 + (-a +
        1)*q^183 - q^189 - q^192 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + 2*q^7 + (a - 1)*q^13 - q^16 + (-a + 1)*q^19 - q^25 - 2*a*q^28 + 
        2*a*q^31 + (-a - 1)*q^37 - 2*a*q^43 + 3*q^49 + (a + 1)*q^52 + a*q^64 + 
        (a - 1)*q^67 + (-a - 1)*q^76 + (a - 1)*q^79 + (2*a - 2)*q^91 + a*q^100 +
        (a - 1)*q^103 + a*q^109 - 2*q^112 + a*q^121 + 2*q^124 + (-a - 1)*q^127 +
        (-2*a + 2)*q^133 + (-a - 1)*q^139 + (a - 1)*q^148 + (a + 1)*q^151 + (a +
        1)*q^163 - a*q^169 - 2*q^172 - 2*q^175 + (-a + 1)*q^181 - 3*a*q^196 + 
        (-a - 1)*q^199 + (-a + 1)*q^208 + O(q^214)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 27*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^3 + a^2 - a)*q^2 + a^2*q^3 - a*q^4 + (-a^2 + 1)*q^5 + (a^2 - a - 
        1)*q^6 + (a^2 - 1)*q^9 + (a^3 + 1)*q^10 - a^3*q^12 + (a^2 + a - 1)*q^13 
        + q^15 - a^2*q^16 + (-a^3 - 1)*q^18 + (a^3 - a)*q^20 - 2*q^26 - q^27 + 
        (a^3 - a)*q^29 + (a^3 + a^2 - a)*q^30 + a*q^31 + (-a^2 + a + 1)*q^32 + 
        (-a^3 + a)*q^36 + (a^3 - 1)*q^39 + (a^2 - a - 1)*q^41 + (-a^3 + a)*q^43 
        + a^2*q^45 + (-a^3 - a^2 + a)*q^47 + (-a^2 + 1)*q^48 + (-a^2 + 1)*q^49 +
        (-a^3 - a^2 + a)*q^52 + (-a^3 - a^2 + a)*q^54 + (-a^2 - a + 1)*q^58 + 
        (-a^2 - a + 1)*q^59 - a*q^60 + (-a^3 + a)*q^61 + (a^3 - 1)*q^62 + 
        a^3*q^64 + (-a^3 + a^2 + a)*q^65 - a^3*q^71 + q^73 - 2*a^2*q^78 + (a^3 -
        a^2 - a)*q^79 - q^80 - a^2*q^81 - 2*a^3*q^82 + (-a^3 + a)*q^83 + (a^2 + 
        a - 1)*q^86 - a*q^87 + q^89 + (a^2 - a - 1)*q^90 + a^3*q^93 + 2*a*q^94 +
        (a^3 + 1)*q^96 - a^2*q^97 + (a^3 + 1)*q^98 + (a^3 + a^2 - a)*q^101 + 
        (-a^3 + 1)*q^107 + a*q^108 - q^109 + a*q^113 + q^116 + (a^3 - a^2 - 
        a)*q^117 + 2*q^118 - a*q^121 + (a^2 + a - 1)*q^122 + (-a^3 - 1)*q^123 - 
        a^2*q^124 + q^125 + a*q^129 + (2*a^2 - 2)*q^130 + (a^2 - 1)*q^131 + (a^2
        - 1)*q^135 + (2*a^3 - 2*a)*q^137 + (-a^2 + a + 1)*q^141 + (-a^3 + a^2 + 
        a)*q^142 + q^144 + a^3*q^145 + (a^3 + a^2 - a)*q^146 + q^147 + (-a^3 + 
        a)*q^155 + (-a^2 + a + 1)*q^156 + (-2*a^2 + 2)*q^158 + (-a^3 - a^2 + 
        a)*q^160 + (-a^2 + a + 1)*q^162 + (-a^3 + a^2 + a)*q^164 + (a^2 + a - 
        1)*q^166 + (a^3 - a)*q^169 - q^172 + (a^3 - a)*q^173 + (-a^3 + 1)*q^174 
        + (-a^3 + 1)*q^177 + (a^3 + a^2 - a)*q^178 - a^3*q^180 + (a^3 - 1)*q^181
        + a*q^183 + (a^3 - a^2 - a)*q^186 + (a^3 - 1)*q^188 + (a^3 - a)*q^192 + 
        a*q^193 + (-a^2 + a + 1)*q^194 + (a^2 + a - 1)*q^195 + (a^3 - a)*q^196 -
        a^3*q^197 + (-a^3 - 1)*q^199 - 2*a*q^202 + (a^3 + a^2 - a)*q^205 + (-a^3
        + 1)*q^208 - a*q^211 + (-a^3 + a)*q^213 + O(q^214)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 36*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 36*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 + a*q^7 - q^16 + q^19 + (-2*a + 2)*q^22 + (a - 1)*q^25 - a*q^28 - 
        2*q^34 + (-a + 1)*q^37 - q^43 - 2*q^46 + 2*a*q^58 - a*q^61 + q^64 + (a -
        1)*q^73 - q^76 + (-a + 1)*q^79 + 2*q^82 + 2*a*q^97 + (-a + 1)*q^100 - 
        a*q^103 + q^109 - a*q^112 + a*q^121 + (-a + 1)*q^127 + a*q^133 + (a - 
        1)*q^139 + (a - 1)*q^148 + (a - 1)*q^151 + 2*q^154 + a*q^157 - q^163 + 
        2*a*q^166 + (-a + 1)*q^169 + q^172 - q^175 + 2*a*q^178 + (-a + 1)*q^181 
        + (-2*a + 2)*q^187 + (-a + 1)*q^193 - 2*q^199 + O(q^214),
    q^2 + (a - 1)*q^11 + a*q^14 + q^17 + q^23 - a*q^29 - q^32 + q^38 - q^41 + 
        (-a + 1)*q^44 + (a - 1)*q^50 - q^68 + (-a + 1)*q^74 - q^77 - a*q^83 - 
        q^86 - a*q^89 - q^92 + a*q^116 + a*q^119 - a*q^122 - a*q^137 + (a - 
        1)*q^146 + (-a + 1)*q^158 + a*q^161 + q^164 + a*q^167 + (-a + 1)*q^176 +
        (-a + 1)*q^179 + 2*a*q^194 + (a - 1)*q^197 + (-a + 1)*q^203 - a*q^206 + 
        (a - 1)*q^209 + O(q^214)
]
;
Bo:=
[
    q + q^4 + a*q^7 - 2*a*q^13 + q^16 - q^19 + (a - 1)*q^25 + a*q^28 + (2*a - 
        2)*q^31 + (-a + 1)*q^37 - q^43 - 2*a*q^52 + a*q^61 + q^64 + (2*a - 
        2)*q^67 + (-a + 1)*q^73 - q^76 + (-a + 1)*q^79 + (-2*a + 2)*q^91 - 
        2*a*q^97 + (a - 1)*q^100 + a*q^103 + q^109 + a*q^112 - a*q^121 + (2*a - 
        2)*q^124 + (-a + 1)*q^127 - a*q^133 + (-a + 1)*q^139 + (-a + 1)*q^148 + 
        (-a + 1)*q^151 + a*q^157 - q^163 + (3*a - 3)*q^169 - q^172 - q^175 + (-a
        + 1)*q^181 + (-a + 1)*q^193 + 2*q^199 - 2*a*q^208 - 2*a*q^211 + 
        O(q^214),
    q^3 - a*q^9 + q^12 + a*q^21 + (a - 1)*q^27 - a*q^36 - 2*a*q^39 + q^48 - q^57
        + (-a + 1)*q^63 + (a - 1)*q^75 + q^81 + a*q^84 + (2*a - 2)*q^93 + (a - 
        1)*q^108 + (-a + 1)*q^111 + (2*a - 2)*q^117 - q^129 - a*q^144 - 
        2*a*q^156 + a*q^171 + a*q^183 - q^189 + q^192 + (2*a - 2)*q^201 + 
        O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 36*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 54*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^3 + a*q^4 + (-a + 2)*q^5 + (2*a - 2)*q^7 - a*q^9 + q^12 + 
        (-2*a + 1)*q^15 + (a - 1)*q^16 + (a + 1)*q^20 + 2*a*q^21 + (-2*a + 
        2)*q^25 - q^27 - 2*q^28 + (-a - 1)*q^29 - a*q^31 + (4*a - 2)*q^35 + (-a 
        + 1)*q^36 + (a - 1)*q^43 + (-a - 1)*q^45 + a*q^48 - 3*a*q^49 + (-a + 
        2)*q^60 + (-a + 1)*q^61 + 2*q^63 - q^64 + (-2*a + 1)*q^71 + q^73 - 
        2*a*q^75 + (2*a - 1)*q^80 + (a - 1)*q^81 + (a + 1)*q^83 + (2*a - 2)*q^84
        + (a - 2)*q^87 + (2*a - 1)*q^89 - q^93 + (a - 1)*q^97 + 2*q^100 + (2*a +
        2)*q^105 - a*q^108 - q^109 - 2*a*q^112 + (-a + 2)*q^113 + (-2*a + 
        1)*q^116 + a*q^121 + (-a + 1)*q^124 + (-2*a + 1)*q^125 + a*q^129 + (a - 
        2)*q^131 + (a - 2)*q^135 + (2*a - 4)*q^140 + q^144 - 3*q^145 - 3*q^147 +
        (-a - 1)*q^155 + 2*a*q^157 + (a - 1)*q^169 - q^172 + (-a - 1)*q^173 + 
        4*a*q^175 + (-2*a + 1)*q^180 - a*q^183 + (-2*a + 2)*q^189 + (a - 
        1)*q^192 + a*q^193 + (-3*a + 3)*q^196 + (-2*a + 1)*q^197 + (-2*a + 
        4)*q^203 + a*q^211 + (-a - 1)*q^213 + O(q^214)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
981
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 54*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^7 - q^16 - q^25 + q^31 - q^34 + q^43 + q^46 - q^61 + q^64 - q^73 + 
        q^82 - q^94 - q^97 + q^109 - q^112 - q^118 - q^121 - 2*q^130 + q^136 - 
        q^169 - q^175 - q^184 + 2*q^190 + q^193 + 2*q^202 - q^211 + O(q^214),
    q^2 - q^8 + q^14 - q^17 + q^23 + q^41 - q^47 - q^50 - q^56 - q^59 + q^62 - 
        2*q^65 + q^86 + 2*q^95 + 2*q^101 - q^107 - q^119 - q^122 + q^128 - q^146
        - q^149 + q^161 + q^179 + 2*q^185 - q^194 + q^200 + O(q^214),
    q^5 + q^26 + q^35 - q^38 - q^71 - q^74 - q^80 + q^83 - q^89 - q^104 + q^152 
        + q^155 - q^158 - q^170 - q^173 + q^182 + O(q^214),
    q^10 + q^13 - q^19 - q^37 - q^40 + q^70 - q^79 - q^85 + q^91 + q^115 - q^133
        - q^142 + q^151 + q^163 + q^166 - q^178 + q^181 + q^199 + q^205 - q^208 
        + O(q^214)
]
;
Bo:=
[
    q - q^22 + q^25 - q^28 - q^31 - q^43 + q^49 - q^73 + q^82 + q^88 + q^94 - 
        q^97 - q^106 + q^112 + q^121 + q^124 - q^136 + q^154 + q^169 + q^172 - 
        q^184 - q^187 - q^196 - q^202 + O(q^214),
    q^2 - q^11 - q^14 + q^41 + q^47 + q^50 - q^53 - q^68 + q^77 - q^92 - q^101 +
        q^107 - q^122 + q^164 - q^167 + q^176 + q^188 + O(q^214),
    q^3 + q^27 - q^63 - q^66 + q^75 - q^84 - q^93 - q^129 - q^144 + q^147 - 
        q^198 + O(q^214),
    q^4 + q^16 + q^22 - q^28 + q^31 - 2*q^34 + q^43 - 2*q^46 - q^64 + q^73 + 
        q^82 - q^88 + q^94 + q^97 + q^100 + q^106 - q^109 - q^112 - 2*q^118 - 
        2*q^121 + q^124 - q^136 - q^154 - 2*q^157 + q^172 - q^184 + q^187 + 
        q^202 + O(q^214),
    q^6 - q^33 - q^42 + q^54 - q^72 - q^99 + q^123 + q^141 + q^150 + q^153 - 
        q^159 - q^204 + q^207 + O(q^214),
    q^7 + q^16 + q^22 - q^28 - q^34 - q^46 + q^49 + q^61 - q^64 - q^88 + q^106 -
        q^109 - q^118 - 2*q^121 + q^124 - q^154 - 2*q^157 + q^172 + q^175 + 
        q^187 + q^193 - q^196 + q^202 + q^211 + O(q^214),
    q^8 + q^11 - q^17 - q^23 + q^53 - q^56 - q^59 + q^62 - q^68 - q^77 + q^86 - 
        q^92 + q^101 + q^119 - q^128 + q^146 - q^149 + q^161 + q^164 + q^167 - 
        q^176 - q^179 + q^188 + q^194 + q^200 + O(q^214),
    q^9 - q^21 - q^48 - q^66 + q^81 + q^84 + q^102 + q^138 - q^147 - q^183 - 
        q^189 + q^192 - q^198 + O(q^214),
    q^12 - q^21 - q^36 + q^63 + q^93 - q^102 + q^108 + q^129 - q^138 - q^147 - 
        q^183 - q^189 + O(q^214),
    q^18 - q^24 - q^33 + q^51 + q^69 - q^99 - q^126 - q^159 + q^162 + q^168 + 
        q^177 - q^186 + q^204 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
982
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
490
);
qprec:=
244
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
982
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
98
);
qprec:=
244
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
982
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
244
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
982
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
35*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
244
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
982
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
49*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
244
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
982
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
245*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
244
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^12 - q^14 - q^15 + q^16 - q^17 + q^25 - q^31 - q^37 + q^38 + q^42 - 
        q^44 - q^46 + q^49 + q^52 - q^55 + q^56 - q^58 - q^60 + 2*q^64 - q^65 - 
        q^75 - q^83 - q^99 + 2*q^100 - q^108 - q^114 - q^117 - q^118 + q^121 + 
        q^123 - 2*q^124 + 2*q^125 + q^129 - q^131 + q^132 + q^134 + q^135 + 
        q^138 + 2*q^143 + q^146 - 2*q^148 - q^152 + q^153 - q^154 - q^156 - 
        q^164 + q^165 - q^168 + q^169 - q^172 + q^174 + 2*q^179 + q^182 - q^183 
        + q^184 - q^187 - q^192 + q^195 + 2*q^196 - q^204 - q^205 - q^206 + 
        q^213 - q^215 - q^220 - q^221 + q^224 + q^232 + 2*q^233 - q^237 + q^238 
        - q^240 + O(q^244),
    q^2 + q^24 - q^26 - q^28 - q^30 - q^34 + q^54 - q^66 + q^76 + q^82 + q^84 + 
        q^86 - q^88 - q^92 + q^96 + q^102 - q^116 - q^120 + q^128 + q^142 - 
        q^162 - q^194 - q^198 + q^200 - q^214 - q^228 - q^234 - q^236 + q^242 + 
        O(q^244),
    q^3 - q^11 + q^12 - q^15 + q^16 + q^25 - q^31 - q^37 - q^39 - q^44 + q^49 + 
        q^56 - q^60 + q^64 - q^75 - q^83 + q^93 - q^99 + q^100 - q^101 + q^111 -
        q^117 + q^121 + q^123 - q^124 + q^125 + q^129 - q^133 - q^139 + 2*q^143 
        - q^148 - q^152 - q^156 + q^161 - q^163 + q^165 - q^168 + q^169 + q^179 
        + q^181 - q^183 + q^184 + q^195 + q^196 + q^203 - q^205 - q^208 + q^213 
        - q^215 - q^221 + q^232 + q^233 - q^237 + q^239 - q^240 + q^241 + 
        O(q^244),
    q^4 - q^12 + q^14 - q^38 - q^42 + q^44 + q^46 - q^52 - q^56 + q^58 - q^64 - 
        q^68 - q^100 + q^108 + q^114 + q^118 + q^124 - q^132 - q^134 - q^138 - 
        q^146 + q^148 + q^152 + q^154 + q^156 + q^164 + q^168 + q^172 - q^174 - 
        q^182 - q^184 + q^192 - q^196 + q^204 + q^206 - q^224 - q^232 - q^238 + 
        O(q^244),
    q^5 - q^11 - q^15 + q^16 + q^20 + 2*q^25 - q^31 + q^33 - q^37 - q^41 - q^43 
        - q^44 - q^48 + q^49 - q^55 + q^56 - q^60 + q^61 + q^64 - q^65 - q^71 - 
        2*q^75 + q^79 + q^80 - q^83 - q^85 + q^93 + 2*q^100 - q^101 + q^111 + 
        q^123 - q^124 + 2*q^125 + q^127 + q^129 + q^132 - q^133 + q^135 - q^139 
        + q^143 - q^147 - q^148 - q^152 - q^155 + q^161 - q^164 + q^165 - q^168 
        - q^172 + q^179 - q^183 + q^184 - q^185 + q^187 - q^192 + q^195 + q^196 
        - q^197 + q^203 - q^205 - q^208 + q^213 - q^215 - q^220 + q^223 + q^227 
        - q^229 + q^232 + q^233 - q^237 + 2*q^239 - q^240 + O(q^244),
    q^6 - q^22 + q^24 - q^26 - q^30 + q^54 - q^66 - q^78 + q^82 + q^86 - q^88 + 
        q^96 + q^102 - q^104 + q^110 - q^120 + q^130 + q^142 - q^162 + q^186 - 
        q^194 - q^198 - q^202 - q^214 + q^216 + q^222 - q^234 + q^242 + 
        O(q^244),
    q^7 - q^19 - q^21 + q^23 - q^26 + q^29 - q^32 - q^50 + q^54 + q^57 + q^59 + 
        q^62 - q^66 - q^67 - q^69 - q^73 + q^74 + q^77 + q^82 + q^86 - q^87 - 
        q^91 + q^96 - q^98 + q^102 + q^103 - q^104 + q^110 - q^112 - q^119 - 
        q^128 + q^130 + q^142 + q^150 - q^157 - q^162 + q^166 - q^175 - q^177 + 
        q^189 - q^191 - q^194 - q^200 + q^201 - q^209 + q^211 - q^214 + q^216 + 
        q^217 + q^219 - q^231 + O(q^244),
    q^8 - q^24 + q^26 + q^28 + q^32 + q^50 - q^54 - q^62 + q^66 - q^74 - q^76 - 
        q^82 - q^84 - q^86 + q^88 + q^92 - q^96 + q^98 - q^102 - q^110 + q^116 -
        q^130 - q^136 - q^142 - q^150 + q^162 - q^166 + q^194 + q^214 + q^228 + 
        q^236 + O(q^244),
    q^9 - q^11 + q^16 + q^17 + q^25 - q^27 + q^36 - q^39 - q^41 - q^43 - q^44 - 
        q^45 - q^48 + q^49 - q^51 + q^56 + q^64 + q^68 - q^71 - q^75 + q^81 - 
        q^85 + q^100 - q^101 - q^108 + 2*q^123 + q^125 + 2*q^129 + q^131 - q^133
        + q^135 - q^139 + q^143 + q^144 - q^147 - q^152 + q^153 - q^155 - q^156 
        + q^161 - q^163 - q^164 + q^165 - q^168 - q^172 + q^179 - q^180 + q^184 
        - q^185 + q^187 - q^192 + q^195 + q^196 - q^197 + q^203 - q^204 - q^208 
        + 2*q^213 - q^229 + q^232 + q^233 + q^239 - q^243 + O(q^244),
    q^10 - q^22 - q^26 - q^30 + q^40 + q^50 + q^54 - q^88 + q^102 - q^104 - 
        q^120 + q^122 - q^150 + q^158 + q^160 - q^162 - q^170 + q^186 - q^194 + 
        q^200 - q^202 - q^214 + q^216 + q^222 + O(q^244),
    q^13 + q^16 + q^25 - q^27 - q^31 + q^33 - q^37 - q^41 - q^43 - q^48 + q^49 -
        q^51 + q^52 - q^55 + q^56 + q^64 - q^65 - q^71 - q^75 + q^81 - q^83 + 
        q^97 + q^100 + q^107 - q^108 + q^123 - q^124 + q^125 + q^129 + q^132 - 
        q^133 + q^135 + q^143 - q^147 - q^148 - q^152 + q^153 + q^161 - q^163 - 
        q^164 - q^168 - q^172 + q^176 + q^179 + q^184 - q^192 + q^196 - q^197 + 
        q^199 + q^203 - q^204 + q^213 - q^220 - q^221 - q^229 + q^232 + q^233 + 
        q^239 + O(q^244),
    q^18 - q^22 - q^26 + q^34 + q^62 - q^66 + q^72 + q^74 - q^78 - q^88 - q^90 -
        q^104 + q^110 + q^130 + q^136 + q^166 - q^170 - q^194 - q^202 - q^214 + 
        O(q^244)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
983
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
982
);
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
983
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
491*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^16 + q^19 + q^23 + 2*q^24 + q^25 - q^27 - 2*q^28 - q^32 - q^36 - q^37 
        - q^38 + q^46 + q^47 + 2*q^49 - q^54 + q^56 + q^57 - q^59 - q^63 - q^69 
        - q^74 - q^79 + q^82 - 2*q^84 - q^86 - q^89 + q^92 + 2*q^93 - q^94 + 
        q^96 + q^98 - q^106 - q^107 + q^108 - q^111 - 2*q^112 - q^114 + q^118 + 
        q^121 + q^123 - q^124 + q^126 - q^128 - q^129 - q^131 + q^134 + q^139 - 
        q^144 - q^147 + q^148 - 2*q^152 + q^158 - q^159 - q^161 - q^162 - q^163 
        + O(q^164),
    q^2 + q^19 + q^24 - q^27 - q^31 - q^36 - q^37 + q^50 - q^64 - q^69 - q^84 + 
        q^93 - q^94 + q^98 - q^112 + q^118 + q^123 + q^133 - q^147 + q^151 + 
        q^158 - q^161 + O(q^164),
    q^3 - q^23 - q^24 + q^27 - q^46 - q^49 + q^75 + q^84 + q^86 - q^93 - q^98 + 
        q^106 + q^112 + q^147 + q^152 + q^162 + O(q^164),
    q^4 - q^19 - q^23 - 2*q^24 + q^27 + q^28 + q^36 + q^37 + q^38 - q^42 - q^46 
        - q^47 - q^49 - q^56 - q^57 + q^59 + q^63 + q^64 + q^69 + q^79 - q^82 + 
        2*q^84 + q^86 + q^89 - q^92 - 2*q^93 - q^96 - q^98 + q^100 + q^106 + 
        q^107 - q^108 + q^112 + q^114 - q^118 - q^123 - q^126 + q^129 - q^134 - 
        q^139 + q^144 + q^147 - q^148 + q^152 - q^158 + q^159 + q^161 + q^162 + 
        O(q^164),
    q^6 - q^16 - q^19 - q^23 - q^24 + q^27 + q^28 + q^37 + q^38 + q^43 - q^46 - 
        q^47 - q^49 + q^53 + q^54 - q^57 + q^59 - q^62 - q^72 + q^76 + q^79 + 
        q^81 - q^82 + q^84 + q^86 - q^92 - 2*q^93 - q^98 + q^106 - q^108 + q^111
        + q^112 - q^123 - q^126 + q^129 - q^134 - q^138 - q^139 - q^148 + q^150 
        + q^152 + q^159 + q^161 + q^162 + O(q^164),
    q^7 - q^16 - q^19 - q^23 - 2*q^24 + q^27 + 2*q^28 + q^36 + q^37 + 2*q^38 - 
        q^42 - q^46 - q^47 + q^48 - q^49 + q^54 - q^56 - q^57 + q^59 - q^62 + 
        q^63 - q^72 + q^74 + q^79 - q^82 + 2*q^84 + q^86 - q^92 - 2*q^93 - q^96 
        - q^98 + q^106 - q^108 + 2*q^112 + q^114 - q^118 - q^123 - q^126 + q^128
        + q^129 - q^134 - q^138 - q^139 + q^141 + q^144 - q^148 + 2*q^152 - 
        q^158 + q^159 + 2*q^161 + q^162 + O(q^164),
    q^8 - q^16 - q^19 - q^23 - 2*q^24 + q^27 + q^28 + q^31 + q^32 + q^36 + q^37 
        + q^38 - q^46 - q^47 - q^49 - q^56 + q^59 - q^62 + q^69 + q^79 - q^82 + 
        q^84 + q^86 - q^92 - 2*q^93 + q^94 - q^96 - q^98 + q^106 - q^108 + 
        2*q^112 - q^118 - q^123 + q^124 + q^128 + q^129 - q^134 - q^139 + q^144 
        + q^147 - q^148 + q^152 - q^158 + q^159 + q^161 + q^162 + O(q^164),
    q^9 - q^16 - q^19 - q^23 - 2*q^24 + q^27 + 2*q^28 + q^32 + q^36 + q^37 + 
        q^38 - q^46 - q^47 - q^49 + q^54 - q^56 - q^57 + q^59 - q^62 - q^72 + 
        q^74 + q^79 + q^81 - q^82 + q^84 + q^86 - q^92 - 2*q^93 + q^94 - q^96 - 
        q^98 + q^106 - q^108 + q^111 + 2*q^112 - q^118 - q^123 + q^124 - q^126 +
        q^128 + q^129 + q^131 - q^134 - q^138 - q^139 + q^144 - q^148 + 2*q^152 
        - q^158 + q^159 + q^161 + q^162 + q^163 + O(q^164),
    q^12 - q^16 - q^19 - q^24 + q^27 + q^28 + q^37 + q^38 - q^42 - q^47 + q^48 -
        q^56 - q^57 + q^59 - q^62 - q^72 + q^79 + q^84 + q^86 - q^93 + q^106 + 
        q^112 - q^118 - q^123 + q^129 - q^138 - q^139 - q^148 + q^152 - q^158 + 
        q^159 + q^161 + q^162 + O(q^164),
    q^14 - q^16 - q^23 - q^24 + q^27 + q^28 + q^37 + q^38 - q^46 - q^47 - q^49 +
        q^59 - q^62 + q^76 + q^79 - q^82 + q^84 + q^86 - q^92 - q^93 - q^98 + 
        q^106 + q^112 - q^123 + q^129 - q^134 - q^138 - q^139 + q^152 + q^159 + 
        q^161 + q^162 + O(q^164),
    q^18 - q^19 - q^24 + q^27 + q^37 - q^42 - q^57 + q^64 + q^84 - q^93 - q^118 
        + q^129 - q^158 + q^159 + q^161 + q^162 + O(q^164),
    q^21 - q^23 - q^24 + q^28 + q^38 - q^46 - q^49 + q^59 + q^79 - q^82 + q^84 +
        q^86 - q^92 - q^93 - q^96 - q^98 + q^106 + q^112 + q^114 - q^126 - q^134
        + q^144 + q^152 + q^162 + O(q^164),
    q^41 - q^42 - q^43 + q^46 + q^48 - q^53 - q^56 + q^63 + q^67 - q^76 - q^81 +
        q^92 + q^98 - q^111 - q^118 + q^133 + q^141 - q^158 + O(q^164)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*(a^8 + a^7)*q^3 + a^6*q^4 + 1/2*(-a^11 + a^10)*q^6 + 1/2*(a^14 + 
        a^12 - a^8 + a^4 - 1)*q^9 + 1/2*(a^14 + a^13)*q^12 + a^12*q^16 + 
        1/2*(-a^15 + a^13 + a^11 - a^9 - a^7 + a^5 + a^3 - a)*q^18 + (a^15 - 
        a^11 - a^10 + a^7 - a^3)*q^19 + (-a^8 + a)*q^22 + 1/2*(-a^13 + a^12 + 
        a^9 - a^8 - a^5 + a^4 + a - 1)*q^24 + a^2*q^25 + 1/2*(-a^4 - a)*q^27 + 
        1/2*(a^13 - a^12 - a^6 + a^5)*q^33 + (-a^12 - a^7)*q^34 + 1/2*(-a^2 - 
        1)*q^36 + (a^15 + a^11)*q^43 + 1/2*(a^15 - a^11 + a^7 - a^3 - 1)*q^48 + 
        (-a^15 + a^11 - a^7 + a^3)*q^49 + 1/2*(a^13 - a^11 - a^9 + a^8 + a^5 - 
        a^4 - a + 1)*q^51 + 1/2*(a^7 - a^4)*q^54 + 1/2*(-a^14 - a^13 + a^10 + 
        a^9 - a^7 - 2*a^6 - a^5 + a^2 + a)*q^57 + (a^14 - a^10 + a^6 - a^2)*q^64
        + 1/2*(-a^15 - a^12 + a^9 + 2*a^8 - a^4 + 1)*q^66 + (-a^13 + a^9 - a^5 +
        a - 1)*q^67 + 1/2*(a^5 - a^3)*q^72 + (-a^9 + a^5 - a)*q^73 + 1/2*(a^10 +
        a^9)*q^75 + (-a^12 + a^8 - a^5 - a^4 + 1)*q^76 + 1/2*(-a^12 - a^8)*q^81 
        + a^4*q^82 + (-a^14 + a^7)*q^88 + 1/2*(a^3 - a^2)*q^96 + (-a^14 + 
        a^3)*q^97 + 1/2*(-a^15 - a^14 + a^12 + a^11 - a^7 + a^3 - a)*q^99 + 
        a^8*q^100 + 1/2*(-2*a^15 - a^14 + a^11 - a^7 + a^3 + 1)*q^102 + 
        1/2*(-a^10 - a^7)*q^108 + 1/2*(a^10 - a^9 - a + 1)*q^114 + (a^12 - a^8 -
        a^6 + a^4 - 1)*q^118 + (-a^12 + a^10 + a^8 - a^4 - a^3 + 1)*q^121 + 
        1/2*(-a^9 + a^8)*q^123 + 1/2*(a^15 + a^14 - a^11 - a^10 + a^7 + a^6 - 
        2*a^3 - 2*a^2)*q^129 + 1/2*(a^15 - a^14 - a^12 + a^10 + a^7 - a^6 - a^3 
        + a^2)*q^132 + (-a^14 - a^13 + a^10 - a^6 + a^2)*q^136 + (-a^15 - 
        a^9)*q^139 + 1/2*(-a^8 - a^6)*q^144 + 1/2*(a^7 + a^6)*q^147 + 1/2*(-a^13
        + a^12)*q^150 + 1/2*(-a^14 + a^10 - a^6 - a^5 + a^3 + a^2 - 1)*q^153 + 
        1/2*(a^15 - a^11)*q^162 + (a^12 - a^8 + 2*a^4 - 1)*q^163 + (-a^13 - a^5 
        + a)*q^166 - a^11*q^169 + 1/2*(-a^15 - a^13 + a^6 + a^4)*q^171 + (a^13 -
        a^9 + a^5 - 2*a)*q^172 + 1/2*(a^11 - a^10 + a - 1)*q^177 + (a^14 + 
        a^11)*q^178 + (a^14 + a^9 - a^7 - a^2)*q^187 + 1/2*(-a^6 - a^5)*q^192 + 
        (-a^5 - a^2)*q^193 + a^5*q^196 + 1/2*(a^15 + a^13 - a^9 + a^5 + a^4 + 
        a^2 - a)*q^198 + 1/2*(-a^8 - a^7 + a^5 + a^4)*q^201 + 1/2*(a^14 - a^13 -
        a^10 + a^9 + a^6 - a^5 - a^3 + a)*q^204 + (a^13 - a^8)*q^211 + (a^9 - 
        a)*q^214 + 1/2*(a^13 - a^10)*q^216 + 1/2*(-a^5 - a^4 + a + 1)*q^219 + 
        1/2*(a^14 + a^12 - a^10 - a^8 + a^6 + a^4 - a^2 - 1)*q^225 + (-a^10 - 
        a^4)*q^226 + 1/2*(-a^13 - a^12 + a^4 + a^3)*q^228 + (-a^15 + a^7)*q^241 
        + 1/2*(-a^15 + 1)*q^243 + 1/2*(a^12 + a^11)*q^246 + 1/2*(a^14 - a^13 - 
        a^2 + a)*q^249 - a^4*q^256 + 1/2*(a^6 - a^5 + a^2 - a)*q^258 + (a^15 - 
        a^11 + a^7 + a^5 - a^3)*q^262 + 1/2*(a^15 + a^14 + a^2 + a)*q^264 + 
        1/2*(a^14 - a^12 + a^11 - a^10 + a^8 - a^7 + a^6 - a^4 + a^3 - a^2 + 
        1)*q^267 + (-a^6 + a^3)*q^268 + (-a^14 + a^13 + a^10 - a^6 + a^2)*q^274 
        + (-a^11 + a)*q^283 + 1/2*(a^11 - a^9)*q^288 + (a^14 + a^13 - a^10 + a^8
        + a^6 - a^2)*q^289 + 1/2*(a^11 + a^10 + a^2 + a)*q^291 + (-a^15 + a^11 -
        a^7)*q^292 + 1/2*(-a^10 + a^9)*q^294 + 1/2*(a^15 - a^11 - a^9 + a^7 + 
        a^6 - a^3 + a^2)*q^297 + 1/2*(a^15 + a^12 - a^8 + a^4 - 1)*q^300 + 
        (-a^11 + a^2)*q^304 + 1/2*(a^8 + a^6 + a^3 + a)*q^306 + (a^10 - 
        a^4)*q^307 + (a^12 + a^5)*q^313 + 1/2*(-a^14 + a^13 + a^6 - a^5)*q^321 +
        O(q^322),
    q^2 + 1/2*(-a^5 + a^4)*q^3 + 1/2*(a^8 + a^7)*q^6 + a^6*q^8 + 1/2*(-a^13 + 
        a^11)*q^9 + (-a^15 - a^2)*q^11 + 1/2*(-a^11 + a^10)*q^12 + (-a^6 - 
        a)*q^17 + 1/2*(a^14 + a^12 - a^8 + a^4 - 1)*q^18 + 1/2*(a^14 + 
        a^13)*q^24 + 1/2*(a^14 - a^10 + a^6 - a^2 + a)*q^27 + a^12*q^32 + 
        1/2*(-a^10 - a^9 + a^3 + a^2)*q^33 + 1/2*(-a^15 + a^13 + a^11 - a^9 - 
        a^7 + a^5 + a^3 - a)*q^36 + (a^15 - a^11 - a^10 + a^7 - a^3)*q^38 + 
        (-a^14 + a^10 - a^6 + a^2)*q^41 + (-a^8 + a)*q^44 + 1/2*(-a^13 + a^12 + 
        a^9 - a^8 - a^5 + a^4 + a - 1)*q^48 + a^2*q^50 + 1/2*(-a^14 - a^13 - a^9
        - a^8)*q^51 + 1/2*(-a^4 - a)*q^54 + 1/2*(a^15 - a^14 + a^4 - a^3)*q^57 +
        (a^10 - 1)*q^59 + 1/2*(a^13 - a^12 - a^6 + a^5)*q^66 + (-a^12 - 
        a^7)*q^68 + 1/2*(-a^2 - 1)*q^72 + 1/2*(-a^7 + a^6)*q^75 + 1/2*(a^9 - 
        a^5)*q^81 + (-a^11 - a^3)*q^83 + (a^15 + a^11)*q^86 + (a^8 + a^5)*q^89 +
        1/2*(a^15 - a^11 + a^7 - a^3 - 1)*q^96 + (-a^15 + a^11 - a^7 + a^3)*q^98
        + 1/2*(-a^14 - a^12 + a^11 + a^10 + a^9 + a^8 - a^6 - a^4 + a^2 + 
        1)*q^99 + 1/2*(a^13 - a^11 - a^9 + a^8 + a^5 - a^4 - a + 1)*q^102 + 
        (a^15 + a^3)*q^107 + 1/2*(a^7 - a^4)*q^108 + (a^14 - a^10 + a^6 - a^4 - 
        a^2)*q^113 + 1/2*(-a^14 - a^13 + a^10 + a^9 - a^7 - 2*a^6 - a^5 + a^2 + 
        a)*q^114 + 1/2*(a^6 + a^5)*q^123 + (a^14 - a^10 + a^6 - a^2)*q^128 + 
        1/2*(2*a^15 - a^12 - a^11 + a^8 + a^7 - a^4 - a^3 + 2)*q^129 + (-a^15 + 
        a^13 + a^11 - a^7 + a^3)*q^131 + 1/2*(-a^15 - a^12 + a^9 + 2*a^8 - a^4 +
        1)*q^132 + (-a^13 + a^9 - a^5 + a - 1)*q^134 + (-a^12 + a^7)*q^137 + 
        1/2*(a^5 - a^3)*q^144 + (-a^9 + a^5 - a)*q^146 + 1/2*(-a^4 + a^3)*q^147 
        + 1/2*(a^10 + a^9)*q^150 + (-a^12 + a^8 - a^5 - a^4 + 1)*q^152 + 
        1/2*(-a^15 - a^13 + a^9 - a^5 + a^2 + a + 1)*q^153 + 1/2*(-a^12 - 
        a^8)*q^162 + a^4*q^164 + 1/2*(a^12 - a^10 - a^3 + a)*q^171 + (-a^14 + 
        a^7)*q^176 + 1/2*(a^14 + a^13 - a^10 - a^9 - a^8 - a^7 + a^6 + a^5 - a^2
        - a)*q^177 + (a^9 + a^2)*q^179 + 1/2*(a^3 - a^2)*q^192 + (-a^14 + 
        a^3)*q^194 + 1/2*(-a^15 - a^14 + a^12 + a^11 - a^7 + a^3 - a)*q^198 + 
        a^8*q^200 + 1/2*(a^5 - a^4 - a^2 + a)*q^201 + 1/2*(-2*a^15 - a^14 + a^11
        - a^7 + a^3 + 1)*q^204 + (a^14 + a^12 - a^5 + a)*q^209 + 1/2*(-a^10 - 
        a^7)*q^216 + 1/2*(a^14 - a^13 - a^10 + a^9 + a^6 - a^5)*q^219 + 
        1/2*(-a^15 + a^13)*q^225 + (a^14 - a^9)*q^227 + 1/2*(a^10 - a^9 - a + 
        1)*q^228 + (a^12 + a^9 - a^8 + a^4 - 1)*q^233 + (a^12 - a^8 - a^6 + a^4 
        - 1)*q^236 + (-a^12 + a^10 + a^8 - a^4 - a^3 + 1)*q^242 + 1/2*(a^13 - 
        a^12 - a^9 + a^5 - a)*q^243 + 1/2*(-a^9 + a^8)*q^246 + 1/2*(-a^15 - a^14
        - a^7 - a^6 + a^3 + a^2)*q^249 + (a^15 + a^13 - a^11 - a^9 + a^7 + a^5 -
        a^3 - a)*q^251 + (a^13 + a^4)*q^257 + 1/2*(a^15 + a^14 - a^11 - a^10 + 
        a^7 + a^6 - 2*a^3 - 2*a^2)*q^258 + 1/2*(a^15 - a^14 - a^12 + a^10 + a^7 
        - a^6 - a^3 + a^2)*q^264 + 1/2*(a^15 + a^13 + 2*a^12 - a^8 + a^4 - 
        1)*q^267 + (-a^14 - a^13 + a^10 - a^6 + a^2)*q^272 + (-a^13 + a^9 - a^5 
        - a^4 + a)*q^275 + (-a^15 - a^9)*q^278 + (-a^9 + a^6)*q^281 + 1/2*(-a^8 
        - a^6)*q^288 + 1/2*(a^15 - a^14 - a^11 + a^10 - a^8 + 2*a^7 - a^6 - a^3 
        + a^2)*q^291 + 1/2*(a^7 + a^6)*q^294 + 1/2*(a^15 + a^12 - a^11 - a^8 + 
        a^7 + a^6 + a^4 - 1)*q^297 + 1/2*(-a^13 + a^12)*q^300 + 1/2*(-a^14 + 
        a^10 - a^6 - a^5 + a^3 + a^2 - 1)*q^306 + 1/2*(a^11 + a^10 - a^3 - 
        a^2)*q^321 + O(q^322)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^3*q^2 + a^6*q^4 + (a^7 - a^5 + a^3 - a)*q^8 + a^5*q^9 + (-a^6 + a^5 + 
        a^4 - a^2 + 1)*q^11 - a^2*q^16 + (a^7 - a^5 + a^4 + a^3 - a)*q^17 + (a^6
        - a^4 + a^2 - 1)*q^18 + (-a^7 + a^5 - a^3 + a - 1)*q^19 + (a^6 - a^4 + 
        a^2 + a - 1)*q^22 + a^2*q^25 + (-a^3 - a^2)*q^27 - a^5*q^32 + (a^7 - 
        a^2)*q^34 - a*q^36 + (-a^3 + a^2)*q^38 + a*q^41 + (-a^5 - a)*q^43 + (a^4
        - a)*q^44 + (-a^7 + a^5 - a^3 + a)*q^49 + a^5*q^50 + (-a^6 - a^5)*q^54 +
        (-a^6 + a^4 - a^2 + 1)*q^64 + (-a^7 + 1)*q^67 + (-a^5 - 1)*q^68 - 
        a^4*q^72 + (-a^7 - a^3)*q^73 + (-a^6 + a^5)*q^76 + (-a^7 + a^5 - a^3 + 
        2*a + 1)*q^81 + a^4*q^82 + (a^6 - a^4)*q^83 + (-a^6 - a^2 + 1)*q^86 + 
        (a^7 - a^4)*q^88 + (a^6 - a^4 + a^2 - a - 1)*q^89 + (-a^4 + a^3)*q^97 + 
        a^2*q^98 + (a^3 - 1)*q^99 + (a^6 - a^4 + a^2 - 1)*q^100 + (a^4 - a^2 + 
        1)*q^107 + (-a^7 - a^6 + a^5 + a^4 - a^3 - a^2 + a + 1)*q^108 + (a^7 + 
        a)*q^113 + (-a^6 + a^3 - 1)*q^121 + a*q^128 + (-a^6 + a^2)*q^131 + (a^3 
        + 1)*q^134 + (-a^6 + a^4 - a^3 - a^2 + 1)*q^136 + (-a^5 - 1)*q^137 + 
        (a^7 - 2*a^5 + a^3 - a)*q^139 - a^7*q^144 + (-a^6 + 1)*q^146 + (-a^7 + 
        a^6 + a^5 - a^4 - a^3 + a^2 + a - 1)*q^152 + (a^7 - a^5 - a^4 + a^3 - 
        a)*q^153 + (a^4 + a^3 + a^2)*q^162 + (-a^6 + a^4)*q^163 + a^7*q^164 + 
        (-a^5 + a^3 - a)*q^166 - a*q^169 + (-a^5 + a^4)*q^171 + (-a^7 + a)*q^172
        + (-a^7 - 1)*q^176 + (-a^4 - a)*q^178 + (a^5 - a^2)*q^179 + (2*a^7 - a^5
        - a^4 + a^3 + a^2 - a)*q^187 + (a^5 + a^2)*q^193 + (-a^7 + a^6)*q^194 + 
        a^5*q^196 + (a^6 - a^3)*q^198 - a*q^200 + (-a^7 + a^6 - a^5 + a^2 - 
        1)*q^209 + (a^6 - a^4 - a^3 + a^2 - 1)*q^211 + (a^7 - a^5 + a^3)*q^214 +
        (a^2 + a)*q^216 + a^7*q^225 + (a^4 - 1)*q^226 + (-a^7 - a^2)*q^227 + 
        (-a^7 + a^5 - a^3 - a^2 + a)*q^233 + (a^7 - a^5)*q^241 + (-a^7 + a^6 + 
        a^5 - 2*a^3 + a)*q^242 + (2*a^7 + 2*a^6 - a^5 - a^4 + a^3 + a^2 - a - 
        1)*q^243 + (a^2 + 1)*q^251 + a^4*q^256 + (a^7 - a^6)*q^257 + (-a^7 + 
        2*a^5 - a^3 + a)*q^262 + (a^6 + a^3)*q^268 + (-a^6 + a)*q^272 + (-a^6 + 
        a^4 - a^3 - a^2 + 1)*q^274 + (a^7 + 1)*q^275 + (-a^6 + a^4 - 2*a^2 + 
        1)*q^278 + (a^7 - a^5 + a^3 - a^2 - a)*q^281 + q^288 - a^3*q^289 + (-a^7
        + a^5 + a)*q^292 + (-a^7 - a^6 + a^4 - a^2 - a)*q^297 + (a^2 - a)*q^304 
        + (-a^7 - a^2)*q^306 + (a^4 - 1)*q^307 + (a^5 - a^2)*q^313 + O(q^322),
    q^3 + a^3*q^6 + (a^7 + a^6 - a^4 + a^2 - 1)*q^9 + a^6*q^12 + (-a - 1)*q^18 +
        (a^7 - a^5 + a^3 - a)*q^24 + (-a^6 - a^5 - a^4)*q^27 + (-a^6 + a^5 + a^4
        - a^2 + 1)*q^33 + (-a^4 - a^3)*q^36 - a^2*q^48 + (a^7 - a^5 + a^4 + a^3 
        - a)*q^51 + (-2*a^7 - a^6 + a^5 + a^4 - a^3 - a^2 + a + 1)*q^54 + (-a^7 
        + a^5 - a^3 + a - 1)*q^57 + (a^6 - a^4 + a^2 + a - 1)*q^66 + (-a^7 - 
        a^6)*q^72 + a^2*q^75 + (a^4 + a^3 + a^2 + a)*q^81 - a^5*q^96 + (a^6 + 
        a^5 - a^3 - a^2)*q^99 + (a^7 - a^2)*q^102 + (a^2 + a + 1)*q^108 + (-a^3 
        + a^2)*q^114 + a*q^123 + (-a^5 - a)*q^129 + (a^4 - a)*q^132 + (-a^7 + 
        a^5 - a^3 + a + 1)*q^144 + (-a^7 + a^5 - a^3 + a)*q^147 + a^5*q^150 + 
        (-a^7 - a^6 - a^2 - a)*q^153 + (a^7 + a^6 + a^5 + a^4)*q^162 + (a^4 - 
        a^2 + 1)*q^171 + (-a^6 + a^4 - a^2 + 1)*q^192 + (a^7 - 2*a^5 - a^4 + a^3
        + a^2 - a - 1)*q^198 + (-a^7 + 1)*q^201 + (-a^5 - 1)*q^204 + (a^5 + a^4 
        + a^3)*q^216 + (-a^7 - a^3)*q^219 + (a^7 - a^5 + a^3 - a - 1)*q^225 + 
        (-a^6 + a^5)*q^228 + (a^7 + a^6 - a^5 - a^4 + a^3 - 2*a - 2)*q^243 + 
        a^4*q^246 + (a^6 - a^4)*q^249 + (-a^6 - a^2 + 1)*q^258 + (a^7 - 
        a^4)*q^264 + (a^6 - a^4 + a^2 - a - 1)*q^267 + (a^3 + a^2)*q^288 + (-a^4
        + a^3)*q^291 + a^2*q^294 + (-a^7 + a^5 - a^4 - 2*a^3 - a^2 + 2*a + 
        1)*q^297 + (a^6 - a^4 + a^2 - 1)*q^300 + (-a^7 - a^4 - a^3 + a + 
        1)*q^306 + (a^4 - a^2 + 1)*q^321 + O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^2 - a + 1)*q^5 - q^9 + (a^3 - 2*a^2 + a - 1)*q^13 + (a^2 + a)*q^17 + 
        (-a^3 + a^2 - a)*q^25 + (-a^2 - 1)*q^37 - a^3*q^41 + (-a^2 + a - 1)*q^45
        + (-a^3 + a^2 - a + 1)*q^49 + (2*a^3 - a^2 + a - 1)*q^53 + (-a^3 - 
        a)*q^61 + (a^3 - a^2 - a + 1)*q^65 + (-a^3 + a^2 + 1)*q^73 + q^81 + (a^3
        - a^2 + 2*a - 1)*q^85 + (a^2 - 1)*q^97 + (-a^3 + a^2 - a + 2)*q^101 + 
        (a^3 + a^2)*q^109 + (a^3 - 1)*q^113 + (-a^3 + 2*a^2 - a + 1)*q^117 + 
        a^3*q^121 - a^3*q^125 + (a^3 - a^2 + 2*a - 1)*q^137 + (-a^2 + 1)*q^149 +
        (-a^2 - a)*q^153 + (a^3 - a)*q^157 + (-a^2 + 2*a - 1)*q^169 + (-a^3 + 
        a^2)*q^173 + (a^3 + 1)*q^181 - a^2*q^185 + (-2*a^3 + a^2 - a + 1)*q^193 
        + (a^2 - a)*q^197 + (-a^2 + a)*q^205 + (-2*a^3 + a^2 - 2*a)*q^221 + (a^3
        - a^2 + a)*q^225 + (-a^3 - 1)*q^229 + (-a - 1)*q^233 + (-a^2 + a - 
        1)*q^241 + (-a^3 + a^2)*q^245 + (a^3 - a)*q^265 + (a^3 + a - 1)*q^269 + 
        (-a^2 + a)*q^277 + (a^3 - 2*a^2 + a - 1)*q^281 + (2*a^3 + a - 1)*q^289 +
        (a + 1)*q^293 - a^3*q^305 + (-a^3 - 1)*q^317 + O(q^322),
    q^2 - a^3*q^4 - a*q^8 + (a^2 - a + 1)*q^10 + (a^3 - a^2 + a - 1)*q^16 - q^18
        + (-a^2 + a)*q^20 + (a^3 - 2*a^2 + a - 1)*q^26 + a^2*q^32 + (a^2 + 
        a)*q^34 + a^3*q^36 + (-a^3 + a^2 - a)*q^40 + (-a^3 + a^2 - a)*q^50 + 
        (a^2 - 1)*q^52 + q^64 + (-a^3 + a^2 - a + 2)*q^68 + a*q^72 + (-a^2 - 
        1)*q^74 + (a^3 - a^2)*q^80 - a^3*q^82 + (-a^2 + a - 1)*q^90 + (-a^3 + 
        a^2 - a + 1)*q^98 + (a^3 - a^2)*q^100 + (a^3 + 1)*q^104 + (2*a^3 - a^2 +
        a - 1)*q^106 + (-a^3 - a)*q^122 - a^3*q^128 + (a^3 - a^2 - a + 1)*q^130 
        + (-a^3 - a^2)*q^136 + (-a^3 + a^2 - a + 1)*q^144 + (-a^3 + a^2 + 
        1)*q^146 + (a^3 - 1)*q^148 + (a - 1)*q^160 + q^162 - a*q^164 + (a^3 - 
        a^2 + 2*a - 1)*q^170 + (a^2 - a)*q^180 + (a^2 - 1)*q^194 - a^2*q^196 + 
        (a - 1)*q^200 + (-a^3 + a^2 - a + 2)*q^202 + (-a^3 + a)*q^208 + (a^2 + 
        a)*q^212 + (a^3 + a^2)*q^218 + (a^3 - 1)*q^226 + (-a^3 + 2*a^2 - a + 
        1)*q^234 + a^3*q^242 + (a^3 - a^2 - 1)*q^244 - a^3*q^250 - a*q^256 + 
        (-a^2 + 2*a - 2)*q^260 + (-a - 1)*q^272 + (a^3 - a^2 + 2*a - 1)*q^274 - 
        a^2*q^288 + (-a^3 - a + 1)*q^292 + (a^3 + a)*q^296 + (-a^2 + 1)*q^298 + 
        (-a^2 - a)*q^306 + (a^3 - a)*q^314 + (a^2 - a + 1)*q^320 + O(q^322),
    q^3 + (a^2 - a + 1)*q^15 - q^27 + (a^3 - 2*a^2 + a - 1)*q^39 + (a^2 + 
        a)*q^51 + (-a^3 + a^2 - a)*q^75 + (-a^2 - 1)*q^111 - a^3*q^123 + (-a^2 +
        a - 1)*q^135 + (-a^3 + a^2 - a + 1)*q^147 + (2*a^3 - a^2 + a - 1)*q^159 
        + (-a^3 - a)*q^183 + (a^3 - a^2 - a + 1)*q^195 + (-a^3 + a^2 + 1)*q^219 
        + q^243 + (a^3 - a^2 + 2*a - 1)*q^255 + (a^2 - 1)*q^291 + (-a^3 + a^2 - 
        a + 2)*q^303 + O(q^322),
    q^6 - a^3*q^12 - a*q^24 + (a^2 - a + 1)*q^30 + (a^3 - a^2 + a - 1)*q^48 - 
        q^54 + (-a^2 + a)*q^60 + (a^3 - 2*a^2 + a - 1)*q^78 + a^2*q^96 + (a^2 + 
        a)*q^102 + a^3*q^108 + (-a^3 + a^2 - a)*q^120 + (-a^3 + a^2 - a)*q^150 +
        (a^2 - 1)*q^156 + q^192 + (-a^3 + a^2 - a + 2)*q^204 + a*q^216 + (-a^2 -
        1)*q^222 + (a^3 - a^2)*q^240 - a^3*q^246 + (-a^2 + a - 1)*q^270 + (-a^3 
        + a^2 - a + 1)*q^294 + (a^3 - a^2)*q^300 + (a^3 + 1)*q^312 + (2*a^3 - 
        a^2 + a - 1)*q^318 + O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^3*q^2 - a*q^4 + (-a^3 + a^2 - a + 1)*q^8 + q^9 + (-a^3 - 1)*q^11 + 
        a^2*q^16 + a^3*q^18 + (-a^3 + a^2 - a + 2)*q^19 + (-a^3 + a)*q^22 + 
        a^2*q^25 + (-a^3 - a^2)*q^27 - q^32 - a*q^36 + (a^3 + a^2)*q^38 + a*q^41
        + (a - 1)*q^43 + (a^3 - a^2 + 2*a - 1)*q^44 + (-a^3 + a^2 - a + 1)*q^49 
        - q^50 + (a + 1)*q^54 + 2*a^3*q^59 - a^3*q^64 + (-a^2 + 1)*q^67 + (-a^3 
        + a^2 - a + 1)*q^72 + (a^3 - a^2)*q^73 + (-a - 1)*q^76 + (a^3 - a^2 - 
        2)*q^81 + (a^3 - a^2 + a - 1)*q^82 + (a^3 - a^2 - 1)*q^83 + (-a^2 + a - 
        1)*q^86 + (a^3 - 2*a^2 + a - 1)*q^88 + (-a^3 + a)*q^89 + (2*a^3 - a^2 + 
        a - 1)*q^97 + a^2*q^98 + (-a^3 - 1)*q^99 - a^3*q^100 + (-a^3 - a)*q^107 
        + (2*a^3 - a^2 + a - 1)*q^108 + (-a^2 + a)*q^113 - 2*a*q^118 + (a^3 - a 
        + 1)*q^121 + a*q^128 + (a^2 - a)*q^131 + (a^3 + 1)*q^134 + (-a^3 + a^2 -
        a)*q^139 + a^2*q^144 + (-a + 1)*q^146 + (-2*a^3 + a^2 - a + 1)*q^152 + 
        (-2*a^3 - a + 1)*q^162 + (a^3 - a^2 - 1)*q^163 - a^2*q^164 + (-a^3 - a +
        1)*q^166 + a*q^169 + (-a^3 + a^2 - a + 2)*q^171 + (-a^2 + a)*q^172 + 
        (-a^2 + 1)*q^176 + (a^3 - a^2 + 2*a - 1)*q^178 + (a^2 - 1)*q^179 + (a^2 
        - 1)*q^193 + (-a^2 - a)*q^194 - q^196 + (-a^3 + a)*q^198 + a*q^200 + 
        (-2*a^2 + a - 2)*q^209 + (-a^3 + a^2 + 1)*q^214 + (-a^2 - a)*q^216 + 
        a^2*q^225 + (a^3 - a^2 + a)*q^226 + (-a^3 + 2*a^2 - a + 1)*q^233 + 
        (-2*a^3 + 2*a^2 - 2*a + 2)*q^236 + (-a^2 - 1)*q^241 + (a^2 - 2*a + 
        1)*q^242 + (2*a^3 + 2*a - 1)*q^243 + (a^2 + 1)*q^251 + (a^3 - a^2 + a - 
        1)*q^256 + (-a^2 - a)*q^257 + (-a^3 + a^2 - a)*q^262 + (a^3 - a)*q^268 +
        (-a^2 + 1)*q^275 + (-a^3 + a^2)*q^278 + (-a^3 + 2*a^2 - a + 1)*q^281 + 
        2*a*q^283 - q^288 - a^3*q^289 + (a^2 - a + 1)*q^292 + (a^3 + a^2 - a - 
        1)*q^297 + (a^2 + a)*q^304 + (a^3 - a^2 + a)*q^307 + (a^2 - 1)*q^313 + 
        O(q^322),
    q^3 + a^3*q^6 + (-a^3 - a^2)*q^9 - a*q^12 + (a + 1)*q^18 + (-a^3 + a^2 - a +
        1)*q^24 + (a^3 - a^2 - 2)*q^27 + (-a^3 - 1)*q^33 + (2*a^3 - a^2 + a - 
        1)*q^36 + a^2*q^48 + (-2*a^3 - a + 1)*q^54 + (-a^3 + a^2 - a + 2)*q^57 +
        (-a^3 + a)*q^66 + (-a^2 - a)*q^72 + a^2*q^75 + (2*a^3 + 2*a - 1)*q^81 - 
        q^96 + (a^3 + a^2 - a - 1)*q^99 + (a^2 + a + 1)*q^108 + (a^3 + 
        a^2)*q^114 + a*q^123 + (a - 1)*q^129 + (a^3 - a^2 + 2*a - 1)*q^132 + 
        (-a^3 + a^2 - a + 2)*q^144 + (-a^3 + a^2 - a + 1)*q^147 - q^150 + (a^3 -
        2*a^2 - 2)*q^162 + (-a^3 - 2*a^2 - a)*q^171 + 2*a^3*q^177 - a^3*q^192 + 
        (-2*a^3 + a^2 - 2*a)*q^198 + (-a^2 + 1)*q^201 + (2*a^3 - a^2 + a - 
        2)*q^216 + (a^3 - a^2)*q^219 + (-a^3 + a^2 - a + 2)*q^225 + (-a - 
        1)*q^228 + (-2*a^3 + 2*a^2 + 2)*q^243 + (a^3 - a^2 + a - 1)*q^246 + (a^3
        - a^2 - 1)*q^249 + (-a^2 + a - 1)*q^258 + (a^3 - 2*a^2 + a - 1)*q^264 + 
        (-a^3 + a)*q^267 + (a^3 + a^2)*q^288 + (2*a^3 - a^2 + a - 1)*q^291 + 
        a^2*q^294 + (a^3 + a^2 + a + 1)*q^297 - a^3*q^300 + (-a^3 - a)*q^321 + 
        O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^2 + a^2*q^4 + (a^2 - a)*q^7 + a^3*q^8 - a^3*q^9 + (a^3 - a^2)*q^14 -
        q^16 + (a^3 - a^2)*q^17 + q^18 + (-a^3 - a)*q^23 - a^2*q^25 + (-a^3 - 
        1)*q^28 + (a^3 + a)*q^31 - a*q^32 + (-a^3 - 1)*q^34 + a*q^36 + a*q^41 + 
        (-a^2 + 1)*q^46 + (-a - 1)*q^47 + (-a^3 + a^2 - 1)*q^49 - a^3*q^50 + (-a
        + 1)*q^56 + (a^2 - 1)*q^62 + (a - 1)*q^63 - a^2*q^64 + (-a + 1)*q^68 + 
        (-a^2 + a)*q^71 + a^2*q^72 + (a^2 + 1)*q^73 + (a^2 + a)*q^79 - a^2*q^81 
        + a^2*q^82 + (a^3 - 1)*q^89 + (-a^3 + a)*q^92 + (-a^2 - a)*q^94 + (a^3 +
        a^2)*q^97 + (a^3 - a + 1)*q^98 + q^100 + (-a^2 + 1)*q^103 + (-a^2 + 
        a)*q^112 + (a^3 - a + 2)*q^119 + a^3*q^121 + (a^3 - a)*q^124 + (a^2 - 
        a)*q^126 + (a^3 + a)*q^127 - a^3*q^128 + (-a^2 + a)*q^136 + (-a - 
        1)*q^137 + (-a^3 + a^2)*q^142 + a^3*q^144 + (a^3 + a)*q^146 + (-a^3 - 
        1)*q^151 + (a^2 - a)*q^153 + (a^3 + a^2)*q^158 + (-a^3 + a^2 + a - 
        1)*q^161 - a^3*q^162 + a^3*q^164 + (-a^3 + 1)*q^167 - a^3*q^169 + (a^3 +
        1)*q^175 + (-a - 1)*q^178 + (a^2 + 1)*q^184 + (-a^3 - a^2)*q^188 + (-a^3
        - a^2)*q^191 + (-a^3 + 1)*q^193 + (a^3 - 1)*q^194 + (-a^2 + a - 1)*q^196
        + (-a^3 - a^2)*q^199 + a*q^200 + (-a^3 + a)*q^206 + (-a^2 - 1)*q^207 + 
        (a^3 - a^2 - a + 1)*q^217 + (-a^3 + a^2)*q^224 - a*q^225 + (a^2 + 
        a)*q^233 + (-a^2 + 2*a - 1)*q^238 + (a^2 + a)*q^239 - 2*a*q^241 - q^242 
        + (-a^2 - 1)*q^248 + (a^3 - a^2)*q^252 + (a^2 - 1)*q^254 + q^256 + (-a^3
        - 1)*q^257 + (-a - 1)*q^263 + (-a^3 - a)*q^271 + (-a^3 + a^2)*q^272 + 
        (-a^2 - a)*q^274 + (a^2 + 1)*q^279 + (-a + 1)*q^281 + (a^3 + 1)*q^284 + 
        (a^3 - a^2)*q^287 - q^288 + (-a^2 + a - 1)*q^289 + (a^2 - 1)*q^292 + (-a
        + 1)*q^302 + (a^3 - a^2)*q^306 + (-a + 1)*q^311 + (a^3 - a^2)*q^313 + 
        (a^3 - 1)*q^316 + O(q^322),
    q^3 + a*q^6 + a^2*q^12 + (a^2 - a)*q^21 + a^3*q^24 - a^3*q^27 + (a^3 - 
        a^2)*q^42 - q^48 + (a^3 - a^2)*q^51 + q^54 + (-a^3 - a)*q^69 - a^2*q^75 
        + (-a^3 - 1)*q^84 + (a^3 + a)*q^93 - a*q^96 + (-a^3 - 1)*q^102 + a*q^108
        + a*q^123 + (-a^2 + 1)*q^138 + (-a - 1)*q^141 + (-a^3 + a^2 - 1)*q^147 -
        a^3*q^150 + (-a + 1)*q^168 + (a^2 - 1)*q^186 + (a - 1)*q^189 - a^2*q^192
        + (-a + 1)*q^204 + (-a^2 + a)*q^213 + a^2*q^216 + (a^2 + 1)*q^219 + (a^2
        + a)*q^237 - a^2*q^243 + a^2*q^246 + (a^3 - 1)*q^267 + (-a^3 + a)*q^276 
        + (-a^2 - a)*q^282 + (a^3 + a^2)*q^291 + (a^3 - a + 1)*q^294 + q^300 + 
        (-a^2 + 1)*q^309 + O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*(-a^3 + 1)*q^3 - a^2*q^4 + 1/2*(-a^3 + a^2)*q^6 + 1/2*(-a^2 + 1)*q^9
        + 1/2*(-a^2 - a)*q^12 - q^16 + 1/2*(-a^3 + a)*q^18 + (a^3 - a^2)*q^19 + 
        (a - 1)*q^22 + 1/2*(-a + 1)*q^24 + a^2*q^25 + 1/2*(-a + 1)*q^27 + 
        1/2*(a^2 - 2*a + 1)*q^33 + (a^3 + 1)*q^34 + 1/2*(-a^2 - 1)*q^36 + 
        1/2*(a^3 - 1)*q^48 - a^3*q^49 + 1/2*(-a^3 + a - 2)*q^51 + 1/2*(-a^3 + 
        1)*q^54 + 1/2*(a^3 - a)*q^57 + a^2*q^64 + 1/2*(a^3 + a)*q^66 + (-a - 
        1)*q^67 + 1/2*(-a^3 - a)*q^72 + 2*a*q^73 + 1/2*(a^2 + a)*q^75 + (a - 
        1)*q^76 - q^82 + (-a^3 + a^2)*q^88 + 1/2*(a^3 - a^2)*q^96 + (a^3 + 
        a^2)*q^97 + 1/2*(-a^3 + a^2 - a - 1)*q^99 + q^100 + 1/2*(a^2 + 1)*q^102 
        + 1/2*(a^3 - a^2)*q^108 + 1/2*(a^2 - 2*a + 1)*q^114 + (a^2 + 1)*q^118 + 
        (-a^3 + a^2 - 1)*q^121 + 1/2*(-a + 1)*q^123 + 1/2*(2*a^3 - a^2 + 
        1)*q^132 + (-a^2 + a)*q^136 + (a^3 - a)*q^139 + 1/2*(a^2 - 1)*q^144 + 
        1/2*(-a^3 - a^2)*q^147 + 1/2*(a - 1)*q^150 + 1/2*(a^3 - a^2 + a - 
        1)*q^153 - a^3*q^162 - 2*a*q^166 - a^3*q^169 + 1/2*(a^3 - a^2 + a - 
        1)*q^171 + 1/2*(a^3 - a^2 + a - 1)*q^177 + (a^3 - a^2)*q^178 + (a^3 - 
        2*a^2 + a)*q^187 + 1/2*(a^2 + a)*q^192 + (-a^2 + a)*q^193 - a*q^196 + 
        1/2*(-a^3 + a^2 + a - 1)*q^198 + 1/2*(a^3 - a - 2)*q^201 + 1/2*(-a^3 + 
        2*a^2 - a)*q^204 + (-a - 1)*q^211 + 1/2*(-a^2 - a)*q^216 + (a + 1)*q^219
        + 1/2*(a^2 + 1)*q^225 + (-a^2 + 1)*q^226 + 1/2*(a^3 + a)*q^228 + 
        1/2*(a^3 + 1)*q^243 + 1/2*(a^3 - 1)*q^246 + (-a^2 + a)*q^249 + q^256 + 
        (a^3 - a)*q^262 + 1/2*(-a^3 + a)*q^264 + 1/2*(-2*a^3 + a^2 - 1)*q^267 + 
        (a^3 + a^2)*q^268 + (-a^2 - a)*q^274 + (-a^3 + a)*q^283 + 1/2*(a^3 - 
        a)*q^288 + (a^2 - a + 1)*q^289 + 1/2*(a^3 + 2*a^2 + a)*q^291 - 
        2*a^3*q^292 + 1/2*(-a^2 + a)*q^294 + 1/2*(a^3 - a)*q^297 + 1/2*(-a^3 + 
        1)*q^300 + (-a^3 + a^2)*q^304 + 1/2*(a^3 - a^2 + a + 1)*q^306 + (a^2 + 
        1)*q^307 + (-a - 1)*q^313 + O(q^322),
    q^2 + 1/2*(a - 1)*q^3 + 1/2*(-a^3 + 1)*q^6 - a^2*q^8 + 1/2*(a^3 + a)*q^9 + 
        (a^3 - a^2)*q^11 + 1/2*(-a^3 + a^2)*q^12 + (a^2 - a)*q^17 + 1/2*(-a^2 + 
        1)*q^18 + 1/2*(-a^2 - a)*q^24 + 1/2*(a^2 + a)*q^27 - q^32 + 1/2*(a^3 - 
        a)*q^33 + 1/2*(-a^3 + a)*q^36 + (a^3 - a^2)*q^38 - a^2*q^41 + (a - 
        1)*q^44 + 1/2*(-a + 1)*q^48 + a^2*q^50 + 1/2*(a^2 - 1)*q^51 + 1/2*(-a + 
        1)*q^54 + 1/2*(-2*a^3 + a^2 - 1)*q^57 + (a^2 - 1)*q^59 + 1/2*(a^2 - 2*a 
        + 1)*q^66 + (a^3 + 1)*q^68 + 1/2*(-a^2 - 1)*q^72 + 1/2*(a^3 - a^2)*q^75 
        + a*q^81 - 2*a^3*q^83 + (-a + 1)*q^89 + 1/2*(a^3 - 1)*q^96 - a^3*q^98 + 
        1/2*(a^3 - a^2 + a - 1)*q^99 + 1/2*(-a^3 + a - 2)*q^102 + 1/2*(-a^3 + 
        1)*q^108 + (a^2 + 1)*q^113 + 1/2*(a^3 - a)*q^114 + 1/2*(-a^2 - a)*q^123 
        + a^2*q^128 + (-a^3 - a)*q^131 + 1/2*(a^3 + a)*q^132 + (-a - 1)*q^134 + 
        (-a^3 + 1)*q^137 + 1/2*(-a^3 - a)*q^144 + 2*a*q^146 + 1/2*(a^3 + 
        1)*q^147 + 1/2*(a^2 + a)*q^150 + (a - 1)*q^152 + 1/2*(a^3 + a^2 - a + 
        1)*q^153 - q^164 + 1/2*(-a^3 - a^2 + a - 1)*q^171 + (-a^3 + a^2)*q^176 +
        1/2*(a^3 + a^2 + a - 1)*q^177 + (a^2 + a)*q^179 + 1/2*(a^3 - a^2)*q^192 
        + (a^3 + a^2)*q^194 + 1/2*(-a^3 + a^2 - a - 1)*q^198 + q^200 + 1/2*(-a^2
        + 1)*q^201 + 1/2*(a^2 + 1)*q^204 + (-a^2 + 2*a - 1)*q^209 + 1/2*(a^3 - 
        a^2)*q^216 + (a^2 - a)*q^219 + 1/2*(a^3 - a)*q^225 + (-a^2 - a)*q^227 + 
        1/2*(a^2 - 2*a + 1)*q^228 + (a + 1)*q^233 + (a^2 + 1)*q^236 + (-a^3 + 
        a^2 - 1)*q^242 + 1/2*(a + 1)*q^243 + 1/2*(-a + 1)*q^246 + (-a^3 - 
        a^2)*q^249 + (a^3 + a)*q^251 + (-a - 1)*q^257 + 1/2*(2*a^3 - a^2 + 
        1)*q^264 + 1/2*(-a^3 - a)*q^267 + (-a^2 + a)*q^272 + (-a + 1)*q^275 + 
        (a^3 - a)*q^278 + (-a^2 - a)*q^281 + 1/2*(a^2 - 1)*q^288 + 1/2*(-a^2 - 
        1)*q^291 + 1/2*(-a^3 - a^2)*q^294 + 1/2*(2*a^3 - a^2 + 1)*q^297 + 1/2*(a
        - 1)*q^300 + 1/2*(a^3 - a^2 + a - 1)*q^306 + O(q^322)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^3 - a)*q^5 + q^9 + (-a^2 + a - 1)*q^13 + (a^3 + a - 1)*q^17 + (a^3 -
        1)*q^25 + 2*a^2*q^29 + (a^3 - a^2 + a)*q^37 - a*q^41 + (-a^3 - a)*q^45 -
        a^3*q^49 + (-a^3 - a)*q^53 + (a^2 - a)*q^61 + a^3*q^65 + (-a^3 + 
        a^2)*q^73 + q^81 + (-a^3 + a^2 + 2)*q^85 + (2*a^3 - 2*a^2 + 2*a - 
        2)*q^89 + (a^3 - a^2 + a)*q^97 + (-a^3 + 1)*q^101 + (a^3 - a^2 - 
        1)*q^109 + (-a + 1)*q^113 + (-a^2 + a - 1)*q^117 - a*q^121 + a*q^125 + 
        (-a^3 + a^2)*q^137 + (-2*a^3 + 2)*q^145 + (a^3 - a^2 + a)*q^149 + (a^3 +
        a - 1)*q^153 + (a^2 - a)*q^157 + (-a^3 + a^2 - a)*q^169 + (a^3 - a^2 - 
        1)*q^173 + (-a + 1)*q^181 + (-a^3 + a^2 - a + 1)*q^185 + (-a^3 - 
        a)*q^193 + (a^3 + a - 1)*q^197 + (a^3 + a - 1)*q^205 + (-a^3 + a^2 - a +
        1)*q^221 + (a^3 - 1)*q^225 + (-a + 1)*q^229 + (a^2 + 1)*q^233 + (-a^3 - 
        a)*q^241 + (a^3 - a^2 - 1)*q^245 - 2*a^3*q^257 + 2*a^2*q^261 + (2*a^3 - 
        a^2 + a - 2)*q^265 + (-a^2 + a - 1)*q^269 + (a^3 + a - 1)*q^277 + (-a^2 
        + a - 1)*q^281 + (-a^2 - 1)*q^289 + (a^2 + 1)*q^293 + a*q^305 + 
        2*a^2*q^313 + (-a + 1)*q^317 + O(q^322),
    q^2 - a*q^4 + a^2*q^8 + (-a^3 - a)*q^10 - a^3*q^16 + q^18 + (a^3 + a - 
        1)*q^20 + (-a^2 + a - 1)*q^26 + (a^3 - a^2 + a - 1)*q^32 + (a^3 + a - 
        1)*q^34 - a*q^36 + (-a^3 + 1)*q^40 + (a^3 - 1)*q^50 + (a^3 - a^2 + 
        a)*q^52 + 2*a^2*q^58 + q^64 + (-a^3 + 1)*q^68 + a^2*q^72 + (a^3 - a^2 + 
        a)*q^74 + (a^3 - a^2 - 1)*q^80 - a*q^82 + (-a^3 - a)*q^90 - a^3*q^98 + 
        (-a^3 + a^2 + 1)*q^100 + (-a + 1)*q^104 + (-a^3 - a)*q^106 - 2*a^3*q^116
        + (a^2 - a)*q^122 - a*q^128 + a^3*q^130 + (a^3 - a^2 - 1)*q^136 - 
        a^3*q^144 + (-a^3 + a^2)*q^146 + (-a + 1)*q^148 + (a^2 + 1)*q^160 + 
        q^162 + a^2*q^164 + (-a^3 + a^2 + 2)*q^170 + (2*a^3 - 2*a^2 + 2*a - 
        2)*q^178 + (a^3 + a - 1)*q^180 + (a^3 - a^2 + a)*q^194 + (a^3 - a^2 + a 
        - 1)*q^196 + (-a^2 - 1)*q^200 + (-a^3 + 1)*q^202 + (a^2 - a)*q^208 + 
        (a^3 + a - 1)*q^212 + (a^3 - a^2 - 1)*q^218 + (-a + 1)*q^226 + (2*a^3 - 
        2*a^2 + 2*a - 2)*q^232 + (-a^2 + a - 1)*q^234 - a*q^242 + (-a^3 + 
        a^2)*q^244 + a*q^250 + a^2*q^256 + (-a^3 + a^2 - a + 1)*q^260 + (a^2 + 
        1)*q^272 + (-a^3 + a^2)*q^274 + (a^3 - a^2 + a - 1)*q^288 + (-2*a^3 + 
        2)*q^290 + (-a^2 + a - 1)*q^292 + (a^2 - a)*q^296 + (a^3 - a^2 + 
        a)*q^298 + (a^3 + a - 1)*q^306 + (a^2 - a)*q^314 + (-a^3 - a)*q^320 + 
        O(q^322),
    q^3 + (-a^3 - a)*q^15 + q^27 + (-a^2 + a - 1)*q^39 + (a^3 + a - 1)*q^51 + 
        (a^3 - 1)*q^75 + 2*a^2*q^87 + (a^3 - a^2 + a)*q^111 - a*q^123 + (-a^3 - 
        a)*q^135 - a^3*q^147 + (-a^3 - a)*q^159 + (a^2 - a)*q^183 + a^3*q^195 + 
        (-a^3 + a^2)*q^219 + q^243 + (-a^3 + a^2 + 2)*q^255 + (2*a^3 - 2*a^2 + 
        2*a - 2)*q^267 + (a^3 - a^2 + a)*q^291 + (-a^3 + 1)*q^303 + O(q^322),
    q^6 - a*q^12 + a^2*q^24 + (-a^3 - a)*q^30 - a^3*q^48 + q^54 + (a^3 + a - 
        1)*q^60 + (-a^2 + a - 1)*q^78 + (a^3 - a^2 + a - 1)*q^96 + (a^3 + a - 
        1)*q^102 - a*q^108 + (-a^3 + 1)*q^120 + (a^3 - 1)*q^150 + (a^3 - a^2 + 
        a)*q^156 + 2*a^2*q^174 + q^192 + (-a^3 + 1)*q^204 + a^2*q^216 + (a^3 - 
        a^2 + a)*q^222 + (a^3 - a^2 - 1)*q^240 - a*q^246 + (-a^3 - a)*q^270 - 
        a^3*q^294 + (-a^3 + a^2 + 1)*q^300 + (-a + 1)*q^312 + (-a^3 - a)*q^318 +
        O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 + a^2*q^4 - a^3*q^8 - q^9 + (-a + 1)*q^11 + (a^3 - a^2 + a - 
        1)*q^16 - 2*a^3*q^17 + a*q^18 + (-a^3 + 1)*q^19 + (a^2 - a)*q^22 + (a^3 
        - a^2 + a - 1)*q^25 + (-a^3 + a^2 + 1)*q^27 + q^32 + (2*a^3 - 2*a^2 + 
        2*a - 2)*q^34 - a^2*q^36 + (a^3 - a^2 - 1)*q^38 + a^2*q^41 + (a^2 + 
        1)*q^43 + (-a^3 + a^2)*q^44 - a^3*q^49 + q^50 + (-a^2 - 1)*q^54 - 
        2*a*q^59 - a*q^64 + (a^3 - a^2 + a)*q^67 + 2*q^68 + a^3*q^72 + (a^3 - 
        a^2 - 1)*q^73 + (a^2 + 1)*q^76 + (a^3 - a^2 - 1)*q^81 - a^3*q^82 + (-a^3
        + a^2)*q^83 + (-a^3 - a)*q^86 + (-a^2 + a - 1)*q^88 + (a^2 - a)*q^89 + 
        (-a^3 - a)*q^97 + (a^3 - a^2 + a - 1)*q^98 + (a - 1)*q^99 - a*q^100 + 
        (a^2 - a)*q^107 + (a^3 + a)*q^108 + (a^3 + a - 1)*q^113 + 2*a^2*q^118 + 
        (a^2 - a + 1)*q^121 + a^2*q^128 + (a^3 + a - 1)*q^131 + (-a + 1)*q^134 -
        2*a*q^136 + 2*q^137 + (-a^3 + 1)*q^139 + (-a^3 + a^2 - a + 1)*q^144 + 
        (a^2 + 1)*q^146 + (-a^3 - a)*q^152 + 2*a^3*q^153 + (a^2 + 1)*q^162 + 
        (-a^3 + a^2)*q^163 + (a^3 - a^2 + a - 1)*q^164 + (-a^2 + a - 1)*q^166 + 
        a^2*q^169 + (a^3 - 1)*q^171 + (a^3 + a - 1)*q^172 + (a^3 - a^2 + 
        a)*q^176 + (-a^3 + a^2)*q^178 + (a^3 - a^2 + a)*q^179 + (-2*a^2 + 2*a - 
        2)*q^187 + (a^3 - a^2 + a)*q^193 + (a^3 + a - 1)*q^194 + q^196 + (-a^2 +
        a)*q^198 + a^2*q^200 - a^2*q^209 - 2*a*q^211 + (-a^3 + a^2)*q^214 + 
        (-a^3 - a + 1)*q^216 + (-a^3 + a^2 - a + 1)*q^225 + (-a^3 + 1)*q^226 + 
        (2*a^3 - 2*a^2 + 2*a - 2)*q^227 + (-a^2 + a - 1)*q^233 - 2*a^3*q^236 + 
        (a^3 - a^2 + a)*q^241 + (-a^3 + a^2 - a)*q^242 + q^243 + (a^3 - a^2 + 
        a)*q^251 - a^3*q^256 + (a^3 + a - 1)*q^257 + (-a^3 + 1)*q^262 + (a^2 - 
        a)*q^268 + 2*a^2*q^272 - 2*a*q^274 + (a^3 - a^2 + a)*q^275 + (a^3 - a^2 
        - 1)*q^278 + (-a^2 + a - 1)*q^281 + 2*a^2*q^283 - q^288 - 3*a*q^289 + 
        (-a^3 - a)*q^292 - a^3*q^297 + (a^3 + a - 1)*q^304 + (-2*a^3 + 2*a^2 - 
        2*a + 2)*q^306 + (-a^3 + 1)*q^307 + (a^3 - a^2 + a)*q^313 + O(q^322),
    q^3 - a*q^6 + (a^3 - a^2 - 1)*q^9 + a^2*q^12 + (a^2 + 1)*q^18 - a^3*q^24 + 
        (-a^3 + a^2 + 1)*q^27 + (-a + 1)*q^33 + (-a^3 - a)*q^36 + (a^3 - a^2 + a
        - 1)*q^48 - 2*a^3*q^51 + (-a^2 - 1)*q^54 + (-a^3 + 1)*q^57 + (a^2 - 
        a)*q^66 + (a^3 + a - 1)*q^72 + (a^3 - a^2 + a - 1)*q^75 - q^81 + q^96 + 
        a^3*q^99 + (2*a^3 - 2*a^2 + 2*a - 2)*q^102 + (a^3 + a)*q^108 + (a^3 - 
        a^2 - 1)*q^114 + a^2*q^123 + (a^2 + 1)*q^129 + (-a^3 + a^2)*q^132 + 
        (-a^3 + 1)*q^144 - a^3*q^147 + q^150 + (2*a^3 + 2*a - 2)*q^153 + a*q^162
        + (2*a^3 - a^2 + a - 2)*q^171 - 2*a*q^177 - a*q^192 + (-a^3 + a^2 - a + 
        1)*q^198 + (a^3 - a^2 + a)*q^201 + 2*q^204 + (-a^3 - a + 1)*q^216 + (a^3
        - a^2 - 1)*q^219 + (-a^3 + 1)*q^225 + (a^2 + 1)*q^228 - a^3*q^246 + 
        (-a^3 + a^2)*q^249 + (-a^3 - a)*q^258 + (-a^2 + a - 1)*q^264 + (a^2 - 
        a)*q^267 + (a^3 - a^2 - 1)*q^288 + (-a^3 - a)*q^291 + (a^3 - a^2 + a - 
        1)*q^294 - a^3*q^297 - a*q^300 + (-2*a^3 + 2)*q^306 + (a^2 - a)*q^321 + 
        O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 8*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 10*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 - q^4 + a*q^8 + a*q^9 + (a - 1)*q^11 + q^16 + (a + 1)*q^17 + q^18 
        + (-a - 1)*q^19 + (a + 1)*q^22 - q^25 + (a + 1)*q^27 - a*q^32 + (-a + 
        1)*q^34 - a*q^36 + (a - 1)*q^38 + a*q^41 - 2*a*q^43 + (-a + 1)*q^44 - 
        a*q^49 + a*q^50 + (-a + 1)*q^54 - q^64 + (a + 1)*q^67 + (-a - 1)*q^68 - 
        q^72 + 2*a*q^73 + (a + 1)*q^76 + q^81 + q^82 - 2*q^83 - 2*q^86 + (-a - 
        1)*q^88 + (-a + 1)*q^89 + (-a - 1)*q^97 - q^98 + (-a - 1)*q^99 + q^100 -
        2*q^107 + (-a - 1)*q^108 - a*q^121 + a*q^128 + (-a + 1)*q^134 + (a - 
        1)*q^136 + (-a - 1)*q^137 + a*q^144 + 2*q^146 + (-a + 1)*q^152 + (a - 
        1)*q^153 - a*q^162 + 2*q^163 - a*q^164 + 2*a*q^166 - a*q^169 + (-a + 
        1)*q^171 + 2*a*q^172 + (a - 1)*q^176 + (-a - 1)*q^178 + (a + 1)*q^179 - 
        2*q^187 + (a - 1)*q^193 + (a - 1)*q^194 + a*q^196 + (a - 1)*q^198 - 
        a*q^200 + 2*q^209 + (a + 1)*q^211 + 2*a*q^214 + (a - 1)*q^216 - a*q^225 
        + (a + 1)*q^227 + (-a + 1)*q^233 - 2*a*q^241 - q^242 + q^256 + (-a + 
        1)*q^257 + (-a - 1)*q^268 + (a + 1)*q^272 + (a - 1)*q^274 + (-a + 
        1)*q^275 + (a + 1)*q^281 + q^288 + a*q^289 - 2*a*q^292 - 2*q^297 + (-a -
        1)*q^304 + (a + 1)*q^306 + (a + 1)*q^313 + O(q^322),
    q^3 - a*q^6 + (-a + 1)*q^9 - q^12 + (-a - 1)*q^18 + a*q^24 - a*q^27 + (a - 
        1)*q^33 + (a - 1)*q^36 + q^48 + (a + 1)*q^51 - q^54 + (-a - 1)*q^57 + (a
        + 1)*q^66 + (a + 1)*q^72 - q^75 - a*q^96 + 2*a*q^99 + (-a + 1)*q^102 + 
        a*q^108 + (a - 1)*q^114 + a*q^123 - 2*a*q^129 + (-a + 1)*q^132 + (-a + 
        1)*q^144 - a*q^147 + a*q^150 + 2*q^153 - 2*q^171 - q^192 + 2*q^198 + (a 
        + 1)*q^201 + (-a - 1)*q^204 + q^216 + 2*a*q^219 + (a - 1)*q^225 + (a + 
        1)*q^228 + q^243 + q^246 - 2*q^249 - 2*q^258 + (-a - 1)*q^264 + (-a + 
        1)*q^267 + (-a - 1)*q^288 + (-a - 1)*q^291 - q^294 + (a + 1)*q^297 + 
        q^300 - 2*a*q^306 - 2*q^321 + O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 10*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 10*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 20*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^21 - q^25 - q^33 + q^41 + q^49 + q^57 - 2*q^61 + 2*q^77 - q^81 + q^121
        - 2*q^133 + q^141 + q^169 + 2*q^173 + q^189 - 2*q^197 - q^201 - 2*q^209 
        + q^213 + q^237 - 2*q^241 - 2*q^269 + q^289 + q^297 + O(q^322),
    q^2 + q^8 - q^10 - q^20 + q^32 - q^36 - q^40 - q^42 + q^50 - q^66 - q^74 - 
        q^80 + q^82 + q^84 + q^90 + 2*q^100 + q^114 + q^128 + q^132 - q^144 - 
        q^146 - q^148 + q^154 - q^160 - q^168 + q^180 - q^196 + q^200 - q^226 - 
        q^228 + 2*q^244 - 2*q^250 - q^264 - q^266 + q^282 - q^292 - q^296 - 
        q^308 - q^320 + O(q^322),
    q^3 + q^27 - 2*q^63 - q^75 - 2*q^99 + q^123 + q^147 + 2*q^171 - 2*q^183 + 
        2*q^231 - q^243 + O(q^322),
    q^4 - q^10 + q^16 - q^20 - q^36 - q^40 + 2*q^50 + q^64 - q^74 - q^80 + q^90 
        - q^98 + q^100 + 2*q^122 - q^144 - q^146 - q^148 - q^154 - q^160 + q^162
        + q^164 + q^180 + 2*q^200 - q^226 - q^242 - 2*q^250 + q^256 + q^266 - 
        q^292 - q^296 + q^308 - q^320 + O(q^322),
    q^5 - 2*q^25 + q^37 - q^45 + q^49 - 2*q^61 + q^73 + q^77 - q^81 + q^113 + 
        q^121 + 2*q^125 - q^133 - 2*q^185 + q^189 - 2*q^197 + q^205 - q^209 + 
        2*q^225 - 2*q^241 - q^245 - 2*q^269 + q^277 + q^297 + 2*q^305 + 
        O(q^322),
    q^6 + q^24 - q^30 - q^60 + q^96 - q^108 - q^120 - q^126 + q^150 - q^198 - 
        q^222 - q^240 + q^246 + q^252 + q^270 + 2*q^300 + O(q^322),
    q^7 + q^11 - q^19 + q^27 - q^47 - q^63 + q^67 - q^71 - q^79 - q^99 - q^151 +
        q^167 + q^171 - q^175 + q^179 + q^191 + q^199 + q^211 - q^227 - q^239 - 
        q^263 - q^275 + q^287 + q^311 + O(q^322),
    q^9 - q^21 - q^33 + q^57 + q^141 - q^189 - q^201 + q^213 - q^225 + q^237 - 
        q^297 + O(q^322),
    q^12 - q^30 + q^48 - q^54 - q^60 - q^120 + q^126 + 2*q^150 + q^192 + q^198 -
        q^216 - q^222 - q^240 - q^252 + q^270 - q^294 + q^300 + O(q^322),
    q^14 + q^22 - q^28 - q^38 - q^44 + q^54 + q^56 + q^76 + q^88 - q^94 - q^108 
        - q^112 - q^126 + q^134 - q^142 - q^152 - q^158 - q^176 + q^188 - q^198 
        + q^216 + q^224 + q^252 - q^268 + q^284 - q^302 + q^304 + q^316 + 
        O(q^322),
    q^15 + q^27 - q^63 - 2*q^75 - q^99 + q^111 - q^135 + q^147 + q^171 - 2*q^183
        + q^219 + q^231 - q^243 + O(q^322),
    q^18 - q^36 - q^42 - q^66 + q^72 + q^84 + q^114 + q^132 - q^144 - q^168 - 
        q^228 - q^264 + q^282 + q^288 + O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 20*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 + q^4 - q^8 + q^9 + q^16 - q^18 + q^25 - q^32 + q^36 - q^41 - 2*q^43
        - q^49 - q^50 - 2*q^59 + q^64 - q^72 - 2*q^73 + q^81 + q^82 + 2*q^83 + 
        2*q^86 + q^98 + q^100 + 2*q^107 - 2*q^113 + 2*q^118 + q^121 - q^128 + 
        2*q^131 - 2*q^139 + q^144 + 2*q^146 - q^162 + 2*q^163 - q^164 - 2*q^166 
        - q^169 - 2*q^172 - q^196 - q^200 - 2*q^214 + q^225 + 2*q^226 - 2*q^236 
        - 2*q^241 - q^242 + 2*q^251 + q^256 - 2*q^262 + 2*q^278 - 2*q^283 - 
        q^288 + q^289 - 2*q^292 + 2*q^307 + O(q^322),
    q^3 - q^6 + q^12 - q^24 + q^27 + q^48 - q^54 + q^75 - q^96 + q^108 - q^123 -
        2*q^129 - q^147 - q^150 - 2*q^177 + q^192 - q^216 - 2*q^219 + q^243 + 
        q^246 + 2*q^249 + 2*q^258 + q^294 + q^300 + 2*q^321 + O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 20*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 + q^25 - q^31 - q^33 - q^37 - q^43 + q^49 - q^51 - q^61 - q^73 + 
        q^81 - q^87 - q^103 + q^123 + 2*q^127 + 2*q^139 - q^141 + 2*q^159 - 
        q^163 + q^169 + q^187 - q^213 + 2*q^223 + q^225 - q^241 + 2*q^267 - 
        q^271 - q^277 - q^279 - q^283 - q^297 - q^303 - q^307 + q^319 + 
        O(q^322),
    q^2 + q^18 + q^50 - q^62 - q^66 - q^74 - q^86 + q^98 - q^102 - q^122 - q^146
        + q^162 - q^174 - q^206 + q^246 + 2*q^254 + 2*q^278 - q^282 + 2*q^318 + 
        O(q^322),
    q^3 - q^11 - q^17 + q^27 - q^29 + q^41 - q^47 + 2*q^53 - q^71 + q^75 + 
        2*q^89 - q^93 - q^99 - q^101 - q^111 - q^129 - q^137 + q^147 + 2*q^149 -
        q^153 + 2*q^167 - q^179 - q^183 + 2*q^191 - q^219 - q^227 + 2*q^233 + 
        2*q^239 + q^243 - q^257 - q^261 - q^263 - q^275 - q^281 - q^293 - q^309 
        + 2*q^311 - q^317 + O(q^322),
    q^6 - q^22 - q^34 + q^54 - q^58 + q^82 - q^94 + 2*q^106 - q^142 + q^150 + 
        2*q^178 - q^186 - q^198 - q^202 - q^222 - q^258 - q^274 + q^294 + 
        2*q^298 - q^306 + O(q^322)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
984
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 20*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
322
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*q^9 - 1/2*q^10 + q^16 - 1/2*q^18 - 1/2*q^25 - 1/2*q^31 - 1/2*q^33 + 
        1/2*q^36 - 1/2*q^40 + q^46 + q^49 - q^57 - 1/2*q^66 + 1/2*q^72 + 
        1/2*q^73 - 1/2*q^78 + 1/2*q^82 - 1/2*q^87 - 1/2*q^90 + 1/2*q^100 - 
        1/2*q^102 - 3/2*q^103 + 1/2*q^114 - 1/2*q^118 - 1/2*q^124 - 1/2*q^127 + 
        1/2*q^132 + 1/2*q^144 - q^156 + 1/2*q^159 - 1/2*q^160 - 1/2*q^166 + 
        1/2*q^169 - 1/2*q^174 - q^184 + q^207 - 1/2*q^214 + 1/2*q^223 - 
        1/2*q^241 + 1/2*q^246 - 1/2*q^247 + 1/2*q^250 + 1/2*q^255 + q^256 + 
        q^262 + 1/2*q^264 + q^271 - 1/2*q^279 + q^282 - q^286 - 1/2*q^288 - 
        1/2*q^289 - 3/2*q^292 + 1/2*q^295 - 1/2*q^297 + 1/2*q^303 + 1/2*q^310 + 
        1/2*q^312 + 1/2*q^318 - q^319 + O(q^322),
    q^2 - q^8 + q^9 - 2*q^23 + q^32 + q^33 - q^36 + q^39 - q^41 - q^50 - q^57 - 
        q^66 + q^78 + q^87 + 2*q^92 + q^98 - q^114 - q^128 - q^132 + 2*q^143 + 
        q^144 + 2*q^146 - q^156 - q^159 - q^162 + q^164 - q^174 + q^200 + q^201 
        - 2*q^206 - 2*q^209 - q^225 + q^228 - q^242 + q^264 - q^297 - q^303 - 
        q^312 + q^318 + O(q^322),
    q^3 + 1/2*q^13 - 1/2*q^15 - 1/2*q^17 - 3/2*q^19 - q^22 + q^24 - 1/2*q^26 - 
        1/2*q^30 - 1/2*q^34 - 1/2*q^38 + 1/2*q^41 + q^47 + q^48 - 3/2*q^52 - 
        q^58 - 1/2*q^60 + 1/2*q^65 + 1/2*q^67 - 1/2*q^68 + q^69 - 1/2*q^71 - 
        1/2*q^75 + 1/2*q^76 + 1/2*q^82 + 1/2*q^85 + q^88 - 1/2*q^89 - 1/2*q^93 +
        q^94 + 1/2*q^95 - q^99 - 1/2*q^104 + q^106 + q^108 + 2*q^109 - 1/2*q^117
        - 1/2*q^120 + 1/2*q^123 + 1/2*q^130 - 1/2*q^134 - 1/2*q^135 - 1/2*q^136 
        + q^137 + q^138 - 1/2*q^142 + q^147 + 1/2*q^150 - 1/2*q^152 - 1/2*q^153 
        + 1/2*q^164 - 1/2*q^167 + 1/2*q^170 - 1/2*q^171 - 1/2*q^177 - 1/2*q^178 
        - 3/2*q^181 - 1/2*q^186 + q^188 + 1/2*q^190 + q^191 + q^202 - 1/2*q^205 
        + 1/2*q^208 - 3/2*q^211 + q^216 + q^218 + 1/2*q^219 + q^232 - 1/2*q^233 
        - 3/2*q^234 - q^235 - 1/2*q^239 - 1/2*q^240 + 1/2*q^246 - 1/2*q^249 + 
        2*q^253 + q^257 + 1/2*q^260 - q^261 - 1/2*q^263 - 3/2*q^268 - 1/2*q^270 
        - 1/2*q^272 + q^274 - q^276 - 1/2*q^281 - 1/2*q^284 + q^298 + 1/2*q^300 
        - 3/2*q^304 - 1/2*q^306 - 3/2*q^309 - 1/2*q^311 + q^314 - 1/2*q^321 + 
        O(q^322),
    q^4 + 1/2*q^9 - 1/2*q^10 + 1/2*q^18 + 1/2*q^25 - 1/2*q^31 + 1/2*q^33 + 
        1/2*q^36 - q^39 - 1/2*q^40 - q^46 + q^64 + 1/2*q^66 - 1/2*q^72 - 
        3/2*q^73 + 1/2*q^78 + q^81 - 1/2*q^82 + 1/2*q^87 - 1/2*q^90 - 1/2*q^100 
        - 1/2*q^102 + 1/2*q^103 - 1/2*q^114 - 1/2*q^118 + q^121 - 1/2*q^124 - 
        1/2*q^127 - 1/2*q^132 + 1/2*q^144 - 1/2*q^159 - 1/2*q^160 - 1/2*q^166 - 
        1/2*q^169 + 1/2*q^174 + q^184 + q^196 - q^201 - q^207 - 1/2*q^214 - 
        3/2*q^223 - q^228 - 1/2*q^241 + 1/2*q^246 + 3/2*q^247 + 1/2*q^250 + 
        1/2*q^255 + q^262 - 1/2*q^264 + q^271 - 1/2*q^279 + q^282 + q^286 + 
        1/2*q^288 + 1/2*q^289 + 1/2*q^292 + 1/2*q^295 + 1/2*q^297 - 1/2*q^303 + 
        1/2*q^310 - 1/2*q^312 - 1/2*q^318 + q^319 + O(q^322),
    q^5 - 2*q^8 + q^9 - q^18 + q^20 - 2*q^23 + q^33 - q^36 + q^39 - q^41 + q^45 
        - q^50 + q^51 - q^57 + q^59 + q^62 - q^66 - q^72 + 2*q^78 + q^80 + q^83 
        + q^87 + 2*q^92 + q^107 - q^123 - q^125 - 2*q^128 - 2*q^131 - q^132 - 
        2*q^141 + 2*q^143 + q^144 + 3*q^146 - q^155 - q^156 - q^159 - 2*q^162 + 
        q^164 - 2*q^173 - q^174 + q^180 - q^195 + q^197 + q^200 + q^201 + q^204 
        - q^206 - 2*q^209 + q^213 - q^221 - q^225 + q^228 + q^236 - 2*q^242 + 
        q^245 + q^248 - 2*q^251 + q^254 + q^264 + q^267 + q^269 - q^285 - q^288 
        - q^297 - q^303 + q^318 + q^320 + O(q^322),
    q^6 - q^15 - q^17 + q^24 - q^26 - q^38 + q^41 + 2*q^47 + q^54 - q^60 + q^65 
        - q^68 - q^71 - q^89 + q^95 + q^96 - q^104 - q^134 - q^135 + 2*q^137 - 
        q^152 - q^153 + q^164 - q^167 + q^170 - q^177 - q^186 + 2*q^188 + 
        2*q^191 + q^216 + 2*q^218 - q^233 - q^234 - q^239 - q^240 - q^249 + 
        2*q^257 + q^260 - q^263 - q^272 - q^281 - q^284 + q^294 - q^311 + 
        2*q^314 - q^321 + O(q^322),
    q^11 - q^13 + q^15 + q^17 + q^19 + q^22 - 2*q^24 + 2*q^26 + q^27 + q^29 - 
        q^41 - q^44 - 2*q^47 + q^52 - q^53 - q^54 + q^58 + q^60 - q^65 - q^67 + 
        q^68 - 2*q^69 + q^71 - q^76 - q^88 + q^89 - q^95 + q^99 - q^101 - q^106 
        - q^108 - q^109 - q^116 + q^117 - q^123 + 2*q^134 + q^135 - 2*q^137 - 
        q^149 - q^150 + 2*q^152 + q^153 + q^157 - q^164 + q^167 - q^170 - q^171 
        + q^176 + q^177 + q^179 + q^181 + q^186 - 2*q^188 - 2*q^191 - q^198 - 
        q^202 - q^208 + q^211 + q^212 - q^216 - q^218 - q^227 + q^229 - q^232 + 
        q^233 + 2*q^234 + q^239 + q^240 + q^249 - 2*q^253 - 2*q^257 - q^260 + 
        q^261 + q^263 + q^268 + q^272 - q^275 + 2*q^276 + q^281 + q^284 + q^293 
        - q^298 - 2*q^299 + q^304 + q^311 - 3*q^314 + q^317 + q^321 + O(q^322),
    q^12 - 3/2*q^13 + 1/2*q^15 + 1/2*q^17 + 1/2*q^19 + q^22 - q^24 + 1/2*q^26 + 
        q^27 - 1/2*q^30 - 1/2*q^34 + 1/2*q^38 - 1/2*q^41 - q^47 + 1/2*q^52 + 
        q^58 + 1/2*q^60 - 1/2*q^65 - 3/2*q^67 + 1/2*q^68 - q^69 + 1/2*q^71 + 
        1/2*q^75 - 3/2*q^76 + 1/2*q^82 + 1/2*q^85 - q^88 + 1/2*q^89 - 1/2*q^93 +
        q^94 - 1/2*q^95 + q^99 + 1/2*q^104 - q^106 - 1/2*q^117 - 1/2*q^120 - 
        1/2*q^123 + 1/2*q^130 + 1/2*q^134 + 1/2*q^135 - 1/2*q^136 - q^137 - 
        q^138 - 1/2*q^142 - 1/2*q^150 + 1/2*q^152 + 1/2*q^153 + 2*q^157 - 
        1/2*q^164 + 1/2*q^167 - 1/2*q^170 - 1/2*q^171 + 1/2*q^177 - 1/2*q^178 + 
        1/2*q^181 + 1/2*q^186 - q^188 + 1/2*q^190 - q^191 + q^192 - q^202 - 
        1/2*q^205 - 3/2*q^208 + 1/2*q^211 - q^216 - q^218 - 3/2*q^219 + 2*q^229 
        - q^232 + 1/2*q^233 + 3/2*q^234 - q^235 + 1/2*q^239 + 1/2*q^240 + q^243 
        - 1/2*q^246 + 1/2*q^249 - 2*q^253 - q^257 - 1/2*q^260 + q^261 + 
        1/2*q^263 + 1/2*q^268 - 1/2*q^270 + 1/2*q^272 + q^274 + q^276 + 
        1/2*q^281 + 1/2*q^284 - q^298 - 1/2*q^300 + 1/2*q^304 - 1/2*q^306 + 
        1/2*q^309 + 1/2*q^311 - q^314 + 1/2*q^321 + O(q^322)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
985
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
985
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
196
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
985
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
196
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
985
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
196
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
985
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
196
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
985
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
985
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
985
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
985
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 28*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
985
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
49*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
985
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 49*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^6 + a*q^10 + (-a - 1)*q^11 + (-a + 1)*q^14 + a*q^15 + q^16 - a*q^19 
        + (-a + 1)*q^21 + q^24 - a*q^25 + a*q^26 - 2*q^29 + (a - 1)*q^35 + 
        a*q^39 - q^40 - a*q^41 + q^49 + q^54 + (a + 1)*q^56 + q^59 - q^61 + 
        a*q^64 - a*q^65 + (a - 1)*q^66 + (-a - 1)*q^74 + q^81 + (a - 1)*q^91 + 
        (a - 1)*q^94 - q^101 - q^104 + (a + 1)*q^106 + a*q^109 + (-a + 1)*q^110 
        + (-a - 1)*q^111 - q^114 + a*q^121 - a*q^134 - q^135 + (a - 1)*q^139 + 
        (a - 1)*q^141 + a*q^146 + (-a + 1)*q^149 - q^150 + (-a + 1)*q^151 - 
        2*q^154 + (a + 1)*q^159 + (-a + 1)*q^165 + (-a + 1)*q^166 + 2*a*q^174 + 
        (-a - 1)*q^176 + (-a - 1)*q^179 - a*q^181 + (a + 1)*q^185 + (a + 
        1)*q^189 + q^190 + q^191 + O(q^196),
    q^2 + q^3 - q^5 + (a + 1)*q^7 + a*q^8 - q^13 + (-a - 1)*q^22 + a*q^27 + 
        a*q^30 + (-a - 1)*q^33 + (-a + 1)*q^37 - a*q^38 + (-a + 1)*q^42 + (-a - 
        1)*q^47 + q^48 - a*q^50 + (a - 1)*q^53 + (a + 1)*q^55 - a*q^57 - 2*q^58 
        + q^67 + (a - 1)*q^70 - q^73 - a*q^75 - 2*a*q^77 + a*q^78 - q^80 - 
        a*q^82 + (a + 1)*q^83 - 2*q^87 + (-a + 1)*q^88 + a*q^95 + q^98 - q^103 +
        (a - 1)*q^105 + (a + 1)*q^112 + a*q^113 + q^118 - q^120 - q^122 - 
        a*q^123 + a*q^125 + (a + 1)*q^127 + a*q^128 - a*q^130 + (-a + 1)*q^133 +
        (a + 1)*q^137 + (a + 1)*q^143 + 2*q^145 + q^147 + q^152 + q^162 - q^167 
        + (a + 1)*q^168 + (-a + 1)*q^175 + q^177 + (a - 1)*q^182 - q^183 + 
        a*q^192 - a*q^195 + O(q^196)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
985
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 98*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
986
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
986
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
986
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
56
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
986
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
986
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
56
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
986
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
986
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
986
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
112
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
986
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
112
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
986
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
986
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
986
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
986
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
986
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
986
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
986
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
264
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
987
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
987
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
987
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
987
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
987
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
987
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
987
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
987
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
987
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
987
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
987
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
987
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
987
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
23*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^8 - q^9 - q^17 + q^25 + q^27 + q^32 - q^34 - q^37 + q^47 - q^49 + q^54
        + q^68 - q^71 + q^72 - q^74 - q^79 - q^81 + 2*q^83 - q^101 - q^103 + 
        q^106 - q^108 + q^118 + q^121 + q^122 + q^136 - q^142 + q^148 - q^149 + 
        q^153 - q^158 - q^162 + q^169 + q^178 + 2*q^191 + q^194 + 2*q^197 - 
        q^200 - q^202 - q^206 - q^212 - q^216 - q^225 - q^236 - q^239 - q^241 + 
        q^243 - q^244 + O(q^250),
    q^2 - q^4 - q^17 - q^18 + q^27 + q^36 - q^37 + q^50 + q^53 + q^59 + q^61 + 
        q^64 - q^71 - q^79 - q^81 + q^89 + q^94 + q^97 - q^98 - q^100 - q^101 - 
        q^103 - q^106 - q^118 - q^122 - q^128 + q^131 + q^136 - q^149 + q^153 + 
        q^157 + 2*q^166 + q^173 - q^178 - q^188 - q^194 + q^196 + q^212 - q^216 
        + q^236 - q^239 - q^241 + q^242 + q^244 + O(q^250),
    q^3 - q^9 - q^18 - q^24 + q^27 + q^36 - q^51 + q^54 + q^72 + q^75 - q^81 + 
        q^96 - q^102 - q^108 - q^111 + q^141 - q^147 + 2*q^153 + q^204 - q^213 -
        q^216 - q^222 - q^225 - q^237 + 2*q^249 + O(q^250),
    q^6 - q^9 - q^12 + q^27 - q^51 + q^72 - q^111 + q^150 + q^153 + q^159 - 
        q^162 + q^177 + q^183 + q^192 - q^213 - q^216 - q^225 - q^237 + 
        O(q^250),
    q^7 - q^56 - q^63 + q^98 - q^119 + q^175 + q^189 - q^196 + q^224 - q^238 + 
        O(q^250),
    q^14 - q^28 + q^49 - q^98 - q^119 - q^126 + q^189 + q^196 + O(q^250),
    q^21 - q^63 - q^126 - q^168 + q^189 + O(q^250),
    q^42 - q^63 - q^84 + q^147 + q^189 + O(q^250)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
987
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 23*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/19*(39*a - 27)*q^16 + 1/19*(2*a - 16)*q^17 + 1/19*(-17*a - 16)*q^18 + 
        1/19*(23*a - 51)*q^21 + 1/19*(-9*a + 15)*q^24 + (a - 1)*q^25 + 
        1/19*(17*a - 22)*q^27 + 1/19*(-48*a + 4)*q^28 + 1/19*(-18*a + 30)*q^32 +
        1/19*(-49*a + 50)*q^34 + 1/19*(-24*a + 2)*q^36 + 1/19*(-5*a - 36)*q^37 +
        1/19*(-a + 8)*q^42 + 1/19*(-2*a + 16)*q^47 + 1/19*(-13*a + 47)*q^48 + 
        1/19*(-9*a - 4)*q^49 + 1/19*(-8*a - 12)*q^51 + 1/19*(27*a + 12)*q^53 + 
        1/19*(-25*a + 29)*q^54 + 1/19*(24*a - 21)*q^56 + 1/19*(-34*a + 44)*q^59 
        + 1/19*(-27*a - 12)*q^61 + 1/19*(-13*a - 10)*q^63 + 1/19*(66*a - 
        15)*q^64 + 1/19*(-4*a - 25)*q^68 + 1/19*(18*a - 30)*q^71 + 1/19*(-3*a + 
        24)*q^72 + 1/19*(-3*a + 24)*q^74 + 1/19*(-14*a + 36)*q^79 + 1/19*(11*a +
        7)*q^81 + 1/19*(16*a - 14)*q^83 + 1/19*(22*a - 5)*q^84 + 1/19*(22*a - 
        5)*q^89 + 1/19*(39*a - 27)*q^94 + 1/19*(14*a + 2)*q^96 + 1/19*(27*a + 
        12)*q^97 + 1/19*(6*a + 9)*q^98 + 1/19*(-2*a + 16)*q^101 + (-a - 2)*q^102
        + 1/19*(-45*a + 18)*q^103 + 1/19*(36*a - 41)*q^106 + 1/19*(30*a - 
        12)*q^108 + (-2*a + 1)*q^111 + 1/19*(-14*a - 21)*q^112 + 1/19*(18*a + 
        27)*q^118 + 1/19*(-8*a + 7)*q^119 + a*q^121 + 1/19*(30*a - 12)*q^122 + 
        1/19*(25*a + 9)*q^126 + 1/19*(-18*a + 30)*q^128 + 1/19*(-22*a + 5)*q^131
        + 1/19*(-43*a + 59)*q^136 + 1/19*(18*a - 11)*q^141 + 1/19*(17*a - 
        3)*q^142 + 1/19*(22*a - 43)*q^144 + (-a + 1)*q^147 + 1/19*(-3*a + 
        5)*q^148 + 1/19*(12*a + 18)*q^149 + 1/19*(-a - 49)*q^153 + 1/19*(27*a + 
        12)*q^157 + 1/19*(3*a - 24)*q^158 + 1/19*(37*a - 11)*q^159 + 1/19*(3*a +
        14)*q^162 + 1/19*(-27*a - 12)*q^166 + 1/19*(11*a - 12)*q^168 - q^169 + 
        1/19*(22*a - 5)*q^173 + 1/19*(-10*a + 42)*q^177 + 1/19*(4*a - 32)*q^178 
        + 1/19*(24*a + 17)*q^183 + 1/19*(-2*a + 16)*q^188 + 1/19*(-11*a + 
        12)*q^189 + 1/19*(-30*a + 12)*q^191 + 1/19*(-65*a + 7)*q^192 + 
        1/19*(-30*a + 12)*q^194 + 1/19*(11*a + 7)*q^196 + 1/19*(-12*a - 
        18)*q^197 + 1/19*(-40*a + 35)*q^202 + 1/19*(-27*a + 7)*q^204 + 
        1/19*(30*a - 12)*q^206 + 1/19*(-12*a - 18)*q^212 + 1/19*(-14*a - 
        2)*q^213 + 1/19*(21*a + 3)*q^216 + 1/19*(35*a + 5)*q^222 + 1/19*(-6*a - 
        9)*q^224 + 1/19*(32*a - 28)*q^236 + (2*a - 1)*q^237 + 1/19*(22*a - 
        5)*q^238 + 1/19*(-18*a + 30)*q^239 + 1/19*(-27*a + 45)*q^241 + 1/19*(2*a
        - 16)*q^243 + 1/19*(52*a - 74)*q^244 + 1/19*(-11*a - 7)*q^249 + 
        O(q^250),
    q^2 + 1/19*(8*a - 7)*q^16 + 1/57*(-28*a + 53)*q^17 + 1/19*(-3*a + 5)*q^18 + 
        1/57*(20*a - 46)*q^21 + 1/57*(50*a - 58)*q^24 + 1/57*(28*a + 4)*q^27 + 
        1/57*(-31*a + 20)*q^28 + 1/19*(-11*a - 7)*q^32 + 1/57*(-17*a + 22)*q^34 
        + 1/19*(-2*a - 3)*q^36 + 1/19*(-2*a - 3)*q^37 + 1/57*(-5*a - 17)*q^42 + 
        1/57*(-29*a + 4)*q^47 + 1/57*(11*a + 26)*q^48 + 1/57*(-7*a - 1)*q^49 + 
        (a - 1)*q^50 + 1/19*(-7*a + 18)*q^51 + 1/19*(-12*a + 1)*q^53 + 1/57*(8*a
        - 7)*q^54 + 1/57*(-32*a + 28)*q^56 + 1/57*(a - 8)*q^59 + 1/19*(-7*a - 
        1)*q^61 + 1/57*(11*a - 31)*q^63 + 1/19*(15*a - 6)*q^64 + 1/57*(37*a - 
        11)*q^68 + 1/19*(11*a - 12)*q^71 + 1/19*(-5*a + 2)*q^72 + 1/19*(-5*a + 
        2)*q^74 + 1/19*(2*a + 3)*q^79 + 1/19*(12*a - 1)*q^81 + 1/57*(4*a + 
        25)*q^83 + 1/19*(5*a - 2)*q^84 + 1/57*(-61*a + 32)*q^89 + 1/19*(8*a - 
        7)*q^94 + 1/57*(13*a + 10)*q^96 + 1/19*(7*a + 1)*q^97 + 1/57*(-8*a + 
        7)*q^98 + 1/57*(-29*a + 61)*q^101 - a*q^102 + 1/57*(-16*a + 14)*q^103 + 
        1/19*(3*a - 5)*q^106 + 1/57*(-2*a + 16)*q^108 + 1/57*(-13*a - 10)*q^112 
        + 1/57*(14*a + 2)*q^118 + 1/19*(12*a - 20)*q^119 + 1/19*(-7*a - 1)*q^122
        + 1/57*(11*a - 31)*q^126 + 1/19*(8*a - 7)*q^128 + 1/57*(-53*a + 
        25)*q^131 + 1/57*(-25*a + 29)*q^136 + 1/19*(-8*a + 7)*q^141 + 1/19*(3*a 
        - 5)*q^142 + 1/19*(5*a - 2)*q^144 + 1/19*(-5*a + 2)*q^148 + 1/19*(a - 
        8)*q^149 + 1/57*(14*a + 2)*q^153 + 1/19*(7*a + 1)*q^157 + 1/19*(5*a - 
        2)*q^158 + 1/19*(-8*a + 7)*q^159 + 1/19*(5*a - 2)*q^162 + 1/19*(-7*a - 
        1)*q^166 + 1/19*(-7*a - 1)*q^168 + 1/57*(53*a - 25)*q^173 + 1/19*(-4*a -
        6)*q^177 + 1/57*(a - 8)*q^178 + 1/19*(2*a + 3)*q^183 + 1/57*(28*a + 
        4)*q^188 + 1/57*(2*a - 16)*q^189 + 1/19*(7*a - 18)*q^191 + 1/19*(-7*a - 
        1)*q^192 + 1/19*(7*a + 1)*q^194 + 1/57*(-2*a + 16)*q^196 + 1/19*(18*a - 
        11)*q^197 + 1/57*(-10*a + 23)*q^202 + 1/19*(-7*a - 1)*q^204 + 1/57*(-2*a
        + 16)*q^206 + 1/19*(-a - 11)*q^212 + 1/57*(25*a - 29)*q^213 + 1/57*(10*a
        - 23)*q^216 + 1/57*(-53*a + 25)*q^222 + 1/57*(-49*a + 50)*q^224 + 
        1/57*(8*a - 7)*q^236 + 1/19*(5*a - 2)*q^238 + 1/19*(8*a - 7)*q^239 + 
        1/57*(-2*a + 16)*q^241 + a*q^242 + 1/57*(29*a - 4)*q^243 + 1/57*(13*a - 
        47)*q^244 + 1/19*(7*a + 1)*q^249 + O(q^250),
    q^3 - 2*a*q^16 + 1/3*(-2*a + 4)*q^17 + 2*q^18 + 1/3*(-8*a + 7)*q^21 + 
        1/3*(4*a - 2)*q^24 + 1/3*(-4*a + 2)*q^27 + 1/3*(4*a + 4)*q^28 + (2*a - 
        2)*q^32 + 1/3*(8*a - 4)*q^34 + a*q^36 + (-2*a + 2)*q^37 + 1/3*(2*a - 
        1)*q^42 + 1/3*(2*a - 4)*q^47 + 1/3*(7*a - 8)*q^48 + 1/3*(-2*a + 4)*q^49 
        + (-a + 1)*q^51 - 2*q^53 + 1/3*(4*a - 2)*q^54 + 1/3*(-4*a + 2)*q^56 + 
        1/3*(8*a - 4)*q^59 + 2*q^61 + 1/3*(a + 1)*q^63 + (-2*a - 2)*q^64 + 
        1/3*(-4*a + 8)*q^68 + (-2*a + 2)*q^71 + (a - 1)*q^72 + (2*a - 2)*q^74 + 
        (a - 1)*q^75 + (2*a - 2)*q^79 - q^81 + 1/3*(-4*a + 2)*q^83 + (-a - 
        1)*q^84 + 1/3*(-2*a - 2)*q^89 - 2*a*q^94 + 1/3*(-a - 1)*q^96 - 2*q^97 + 
        1/3*(2*a - 4)*q^98 + 1/3*(2*a - 4)*q^101 + (-2*a + 4)*q^102 + 1/3*(4*a +
        4)*q^103 - 2*a*q^106 + 1/3*(-4*a - 1)*q^108 + a*q^111 + 1/3*(-2*a + 
        4)*q^112 + 1/3*(4*a - 8)*q^118 - 2*a*q^122 + 1/3*(a - 5)*q^126 + (2*a - 
        2)*q^128 + 1/3*(2*a + 2)*q^131 + 1/3*(10*a - 2)*q^136 - a*q^141 + (-2*a 
        + 2)*q^144 + a*q^147 - 2*q^149 + 1/3*(-8*a + 10)*q^153 - 2*q^157 + (-2*a
        + 2)*q^158 + (-a - 1)*q^159 + 2*q^166 - a*q^168 + 1/3*(-2*a - 2)*q^173 +
        (2*a - 2)*q^177 + 1/3*(-4*a + 2)*q^178 - 2*q^183 + 1/3*(2*a - 4)*q^188 +
        1/3*(a - 2)*q^189 + 2*a*q^191 + (2*a + 2)*q^192 + 2*a*q^194 + 1/3*(2*a -
        4)*q^196 + 2*q^197 + 1/3*(4*a - 2)*q^202 + a*q^204 + 1/3*(-4*a - 
        4)*q^206 + 2*q^212 + 1/3*(2*a - 1)*q^213 + 1/3*(-a - 4)*q^216 + 
        1/3*(-4*a - 4)*q^222 + 1/3*(-2*a + 4)*q^224 + 1/3*(-8*a + 4)*q^236 - 
        2*a*q^237 + (2*a - 2)*q^239 + 1/3*(8*a - 4)*q^241 + 1/3*(-2*a + 4)*q^243
        + 1/3*(-10*a + 8)*q^244 + q^249 + O(q^250),
    q^4 + 1/19*(-26*a + 18)*q^16 + 1/19*(5*a - 2)*q^17 + 1/19*(5*a - 2)*q^18 + 
        1/19*(-9*a + 15)*q^21 + 1/19*(6*a - 10)*q^24 + 1/19*(-5*a + 2)*q^27 + 
        1/19*(13*a + 10)*q^28 + 1/19*(-7*a - 1)*q^32 + 1/19*(20*a - 27)*q^34 + 
        1/19*(-3*a + 5)*q^36 + 1/19*(-3*a + 5)*q^37 + 1/19*(7*a + 1)*q^42 + 
        1/19*(-5*a + 2)*q^47 + 1/19*(15*a - 25)*q^48 + 1/19*(-13*a + 9)*q^49 + 
        1/19*(-a + 8)*q^51 + 1/19*(a - 8)*q^53 + 1/19*(4*a + 6)*q^54 + 1/19*(3*a
        - 5)*q^56 + 1/19*(10*a - 4)*q^59 + 1/19*(-a + 8)*q^61 + 1/19*(-4*a - 
        6)*q^63 + 1/19*(-25*a - 9)*q^64 + 1/19*(9*a + 4)*q^68 + 1/19*(7*a + 
        1)*q^71 + 1/19*(21*a - 16)*q^72 + 1/19*(2*a - 16)*q^74 + 1/19*(22*a - 
        24)*q^79 + 1/19*(-a - 11)*q^81 + 1/19*(2*a + 3)*q^83 + 1/19*(-21*a + 
        16)*q^84 + 1/19*(-2*a - 3)*q^89 + 1/19*(-7*a - 1)*q^94 + 1/19*(-3*a - 
        14)*q^96 + 1/19*(a - 8)*q^97 + 1/19*(-4*a - 6)*q^98 + (a - 1)*q^100 + 
        1/19*(-5*a + 2)*q^101 + q^102 + 1/19*(11*a + 7)*q^103 + 1/19*(-24*a + 
        2)*q^106 + 1/19*(-20*a + 8)*q^108 + 1/19*(3*a + 14)*q^112 + 1/19*(7*a - 
        18)*q^118 + 1/19*(-a + 8)*q^119 + 1/19*(-a + 8)*q^122 + 1/19*(-4*a - 
        6)*q^126 + 1/19*(-7*a - 1)*q^128 + 1/19*(2*a + 3)*q^131 + 1/19*(35*a - 
        14)*q^136 + 1/19*(-12*a + 1)*q^141 + 1/19*(-5*a + 2)*q^142 + 1/19*(-2*a 
        + 16)*q^144 + 1/19*(2*a + 3)*q^148 + 1/19*(-8*a + 7)*q^149 + 1/19*(-12*a
        + 20)*q^153 + 1/19*(a - 8)*q^157 + 1/19*(-2*a + 16)*q^158 + 1/19*(7*a + 
        1)*q^159 + 1/19*(-2*a - 3)*q^162 + 1/19*(-a + 8)*q^166 + 1/19*(-a + 
        8)*q^168 + 1/19*(-2*a - 3)*q^173 + 1/19*(-6*a + 10)*q^177 + 1/19*(-28*a 
        + 15)*q^178 + 1/19*(-16*a - 5)*q^183 + 1/19*(-5*a + 2)*q^188 + 1/19*(a -
        8)*q^189 + 1/19*(a - 8)*q^191 + 1/19*(37*a - 11)*q^192 + 1/19*(a - 
        8)*q^194 + 1/19*(-a - 11)*q^196 + 1/19*(8*a - 7)*q^197 + 1/19*(14*a - 
        17)*q^202 + 1/19*(-a + 8)*q^204 + 1/19*(-20*a + 8)*q^206 + 1/19*(8*a - 
        7)*q^212 + 1/19*(3*a - 5)*q^213 + 1/19*(-14*a + 17)*q^216 + 1/19*(2*a + 
        3)*q^222 + 1/19*(4*a + 6)*q^224 + 1/19*(4*a + 6)*q^236 + 1/19*(-2*a - 
        3)*q^238 + 1/19*(-7*a - 1)*q^239 + 1/19*(18*a - 11)*q^241 + 1/19*(5*a - 
        2)*q^243 + 1/19*(-22*a + 24)*q^244 + 1/19*(a + 11)*q^249 + O(q^250),
    q^6 + 1/19*(-10*a + 4)*q^16 + 1/57*(16*a - 14)*q^17 + 1/19*(-a - 11)*q^18 + 
        1/57*(13*a + 10)*q^21 + 1/57*(-53*a + 25)*q^24 + 1/57*(-16*a + 14)*q^27 
        + 1/57*(34*a - 44)*q^28 + 1/19*(-10*a + 4)*q^32 + 1/57*(26*a + 20)*q^34 
        + 1/19*(12*a - 1)*q^36 + 1/19*(12*a - 20)*q^37 + 1/57*(-46*a + 26)*q^42 
        + 1/57*(-16*a + 14)*q^47 + 1/57*(10*a - 23)*q^48 + 1/57*(4*a - 32)*q^49 
        + 1/19*(4*a + 6)*q^51 + 1/19*(-4*a - 6)*q^53 + 1/57*(-29*a + 4)*q^54 + 
        1/57*(2*a - 16)*q^56 + 1/57*(32*a - 28)*q^59 + 1/19*(4*a + 6)*q^61 + 
        1/57*(10*a - 23)*q^63 + 1/19*(-14*a - 2)*q^64 + 1/57*(44*a - 10)*q^68 + 
        1/19*(10*a - 4)*q^71 + 1/19*(11*a - 12)*q^72 + 1/19*(-8*a - 12)*q^74 + 
        1/19*(-12*a + 20)*q^79 + 1/19*(4*a + 6)*q^81 + 1/57*(14*a + 2)*q^83 + 
        1/19*(-11*a + 12)*q^84 + 1/57*(-14*a - 2)*q^89 + 1/19*(-10*a + 4)*q^94 +
        1/57*(17*a - 22)*q^96 + 1/19*(-4*a - 6)*q^97 + 1/57*(-28*a - 4)*q^98 + 
        1/57*(-16*a + 14)*q^101 + 1/57*(-56*a - 8)*q^103 + 1/19*(20*a - 8)*q^106
        + 1/57*(-7*a - 1)*q^108 + 1/57*(40*a + 22)*q^112 + 1/57*(-8*a + 
        64)*q^118 + 1/19*(4*a + 6)*q^119 + 1/19*(4*a + 6)*q^122 + 1/57*(10*a - 
        23)*q^126 + 1/19*(-10*a + 4)*q^128 + 1/57*(14*a + 2)*q^131 + 1/57*(-2*a 
        + 16)*q^136 + 1/19*(10*a - 4)*q^141 + 1/19*(-18*a + 30)*q^142 + 
        1/19*(8*a + 12)*q^144 + 1/19*(30*a - 12)*q^148 + 1/19*(-6*a + 10)*q^149 
        + (a - 1)*q^150 + 1/57*(-8*a + 7)*q^153 + 1/19*(-4*a - 6)*q^157 + 
        1/19*(8*a + 12)*q^158 + 1/19*(-9*a - 4)*q^159 + 1/19*(8*a - 7)*q^162 + 
        1/19*(4*a + 6)*q^166 + 1/19*(-15*a + 6)*q^168 + 1/57*(-14*a - 2)*q^173 +
        1/19*(5*a - 2)*q^177 + 1/57*(32*a - 28)*q^178 + 1/19*(-12*a + 1)*q^183 +
        1/57*(-16*a + 14)*q^188 + 1/57*(7*a + 1)*q^189 + 1/19*(-4*a - 6)*q^191 +
        1/19*(23*a - 13)*q^192 + 1/19*(-4*a - 6)*q^194 + 1/57*(50*a - 58)*q^196 
        + 1/19*(6*a - 10)*q^197 + 1/57*(22*a - 62)*q^202 + 1/19*(4*a + 6)*q^204 
        + 1/57*(-64*a + 56)*q^206 + 1/19*(6*a - 10)*q^212 + 1/57*(2*a - 
        16)*q^213 + 1/57*(-22*a + 5)*q^216 + 1/57*(14*a + 2)*q^222 + 1/57*(28*a 
        + 4)*q^224 + 1/57*(28*a + 4)*q^236 + 1/19*(-30*a + 12)*q^238 + 
        1/19*(-10*a + 4)*q^239 + 1/57*(-64*a + 56)*q^241 + 1/57*(16*a - 
        14)*q^243 + 1/57*(-40*a + 92)*q^244 + 1/19*(-4*a - 6)*q^249 + O(q^250),
    q^7 + 1/19*(9*a - 34)*q^16 + 1/57*(16*a - 14)*q^17 + 1/19*(-a - 11)*q^18 + 
        1/57*(13*a - 47)*q^21 + 1/57*(4*a - 32)*q^24 + 1/57*(-16*a - 43)*q^27 + 
        1/57*(-80*a + 70)*q^28 + 1/19*(-10*a + 4)*q^32 + 1/57*(26*a + 77)*q^34 +
        1/19*(-26*a + 18)*q^36 + 1/19*(12*a - 20)*q^37 + 1/57*(-46*a + 26)*q^42 
        + 1/57*(-16*a + 14)*q^47 + 1/57*(10*a + 91)*q^48 + 1/57*(4*a - 32)*q^49 
        + 1/19*(4*a + 6)*q^51 + 1/19*(15*a + 13)*q^53 + 1/57*(-29*a + 4)*q^54 + 
        1/57*(59*a - 16)*q^56 + 1/57*(-82*a + 86)*q^59 + 1/19*(-34*a + 6)*q^61 +
        1/57*(10*a - 23)*q^63 + 1/19*(62*a - 40)*q^64 + 1/57*(-13*a - 10)*q^68 +
        1/19*(10*a - 4)*q^71 + 1/19*(-8*a + 26)*q^72 + 1/19*(11*a + 7)*q^74 + 
        1/19*(-12*a + 20)*q^79 + 1/19*(4*a + 6)*q^81 + 1/57*(14*a + 2)*q^83 + 
        1/19*(8*a - 26)*q^84 + 1/57*(43*a - 2)*q^89 + 1/19*(28*a - 34)*q^94 + 
        1/57*(74*a - 22)*q^96 + 1/19*(-4*a + 13)*q^97 + 1/57*(29*a - 4)*q^98 + 
        1/57*(-16*a + 14)*q^101 + (-a - 1)*q^102 + 1/57*(-56*a - 8)*q^103 + 
        1/19*(20*a - 8)*q^106 + 1/57*(50*a - 58)*q^108 + 1/57*(-74*a + 22)*q^112
        + 1/57*(-8*a + 64)*q^118 + 1/19*(-15*a + 6)*q^119 + 1/19*(4*a + 6)*q^122
        + 1/57*(67*a - 23)*q^126 + 1/19*(-10*a + 4)*q^128 + 1/57*(-43*a + 
        2)*q^131 + 1/57*(-116*a + 130)*q^136 + 1/19*(10*a - 4)*q^141 + 1/19*(a -
        8)*q^142 + 1/19*(-11*a - 7)*q^144 + 1/19*(-8*a + 7)*q^148 + 1/19*(-6*a +
        10)*q^149 + 1/57*(-8*a - 107)*q^153 + 1/19*(15*a - 25)*q^157 + 
        1/19*(-11*a - 7)*q^158 + 1/19*(29*a - 4)*q^159 + 1/19*(8*a - 7)*q^162 + 
        1/19*(-34*a + 6)*q^166 + 1/19*(4*a - 13)*q^168 + 1/57*(43*a - 2)*q^173 +
        (a - 1)*q^175 + 1/19*(-14*a + 36)*q^177 + 1/57*(32*a - 28)*q^178 + 
        1/19*(26*a - 18)*q^183 + 1/57*(-16*a + 14)*q^188 + 1/57*(7*a + 1)*q^189 
        + 1/19*(-4*a - 6)*q^191 + 1/19*(-34*a + 44)*q^192 + 1/19*(-4*a - 
        6)*q^194 + 1/57*(50*a - 1)*q^196 + 1/19*(6*a - 10)*q^197 + 1/57*(22*a + 
        52)*q^202 + 1/19*(-34*a + 25)*q^204 + 1/57*(50*a - 58)*q^206 + 1/19*(6*a
        - 10)*q^212 + 1/57*(2*a - 16)*q^213 + 1/57*(-22*a + 5)*q^216 + 
        1/57*(71*a + 2)*q^222 + 1/57*(-29*a + 4)*q^224 + 1/57*(28*a + 4)*q^236 +
        1/19*(-11*a - 7)*q^238 + 1/19*(-10*a + 4)*q^239 + 1/57*(-64*a + 
        56)*q^241 + 1/57*(16*a - 14)*q^243 + 1/57*(-40*a - 136)*q^244 + 
        1/19*(-4*a - 6)*q^249 + O(q^250),
    q^8 + 1/19*(12*a - 1)*q^16 + 1/57*(-23*a - 44)*q^17 + 1/19*(-14*a - 2)*q^18 
        + 1/57*(49*a - 50)*q^21 + 1/57*(-20*a + 46)*q^24 + 1/57*(23*a - 13)*q^27
        + 1/57*(-56*a - 8)*q^28 + 1/19*(-7*a + 18)*q^32 + 1/57*(-16*a + 14)*q^34
        + 1/19*(-3*a - 14)*q^36 + 1/19*(-3*a - 14)*q^37 + 1/57*(2*a + 41)*q^42 +
        1/57*(23*a - 13)*q^47 + 1/57*(-50*a + 58)*q^48 + 1/57*(-20*a - 11)*q^49 
        + 1/19*(-a - 11)*q^51 + 1/19*(a + 11)*q^53 + 1/57*(-26*a + 37)*q^54 + 
        1/57*(47*a - 34)*q^56 + 1/57*(-46*a + 26)*q^59 + 1/19*(-a - 11)*q^61 + 
        1/57*(7*a + 1)*q^63 + 1/19*(13*a + 10)*q^64 + 1/57*(8*a - 64)*q^68 + 
        1/19*(7*a + 1)*q^71 + 1/19*(2*a + 3)*q^72 + 1/19*(2*a + 3)*q^74 + 
        1/19*(3*a + 14)*q^79 + 1/19*(-a + 8)*q^81 + 1/57*(-13*a - 10)*q^83 + 
        1/19*(17*a - 3)*q^84 + 1/57*(13*a + 10)*q^89 + 1/19*(12*a - 1)*q^94 + 
        1/57*(29*a - 61)*q^96 + 1/19*(a + 11)*q^97 + 1/57*(-31*a + 20)*q^98 + 
        1/57*(-34*a - 13)*q^101 - q^102 + 1/57*(-62*a + 40)*q^103 + 1/19*(14*a -
        17)*q^106 + 1/57*(35*a + 5)*q^108 + 1/57*(28*a - 53)*q^112 + 1/57*(40*a 
        + 22)*q^118 + 1/19*(-a + 8)*q^119 + 1/19*(18*a - 11)*q^122 + 1/57*(7*a +
        1)*q^126 + 1/19*(-26*a + 18)*q^128 + 1/57*(-13*a - 10)*q^131 + 
        1/57*(-47*a + 34)*q^136 + 1/19*(7*a - 18)*q^141 + 1/19*(14*a + 2)*q^142 
        + 1/19*(17*a - 22)*q^144 + 1/19*(2*a - 16)*q^148 + 1/19*(11*a + 7)*q^149
        + 1/57*(-17*a - 35)*q^153 + 1/19*(a + 11)*q^157 + 1/19*(17*a - 22)*q^158
        + 1/19*(7*a + 1)*q^159 + 1/19*(-2*a - 3)*q^162 + 1/19*(-a - 11)*q^166 + 
        1/19*(-a + 8)*q^168 + 1/57*(13*a + 10)*q^173 + 1/19*(-6*a + 10)*q^177 + 
        1/57*(11*a - 31)*q^178 + 1/19*(3*a + 14)*q^183 + 1/57*(-34*a + 44)*q^188
        + 1/57*(22*a - 5)*q^189 + 1/19*(a + 11)*q^191 + 1/19*(-20*a - 11)*q^192 
        + 1/19*(-18*a + 11)*q^194 + 1/57*(-22*a + 5)*q^196 + 1/19*(-11*a + 
        12)*q^197 + (a - 1)*q^200 + 1/57*(-53*a + 25)*q^202 + 1/19*(-a + 
        8)*q^204 + 1/57*(35*a + 5)*q^206 + 1/19*(-11*a - 7)*q^212 + 1/57*(-10*a 
        + 23)*q^213 + 1/57*(-4*a + 32)*q^216 + 1/57*(44*a - 10)*q^222 + 
        1/57*(31*a - 20)*q^224 + 1/57*(31*a - 20)*q^236 + 1/19*(-2*a + 16)*q^238
        + 1/19*(-7*a + 18)*q^239 + 1/57*(-22*a + 62)*q^241 + 1/57*(-23*a + 
        13)*q^243 + 1/57*(86*a - 61)*q^244 + 1/19*(-18*a + 11)*q^249 + O(q^250),
    q^9 + 1/19*(52*a + 2)*q^16 + 1/57*(46*a - 26)*q^17 + 1/19*(9*a - 34)*q^18 + 
        1/57*(187*a - 128)*q^21 + 1/57*(-17*a + 22)*q^24 + 1/57*(125*a - 
        31)*q^27 + 1/57*(-116*a - 98)*q^28 + 1/19*(-24*a + 2)*q^32 + 
        1/57*(-196*a + 86)*q^34 + 1/19*(-13*a - 29)*q^36 + 1/19*(44*a - 48)*q^37
        + 1/57*(-61*a - 25)*q^42 + 1/57*(-46*a + 26)*q^47 + 1/57*(-185*a + 
        169)*q^48 + 1/57*(40*a - 92)*q^49 + 1/19*(2*a + 3)*q^51 + 1/19*(-40*a + 
        54)*q^53 + 1/57*(-62*a - 17)*q^54 + 1/57*(20*a + 68)*q^56 + 1/57*(-136*a
        - 52)*q^59 + 1/19*(2*a - 54)*q^61 + 1/57*(43*a - 59)*q^63 + 1/19*(50*a +
        56)*q^64 + 1/57*(98*a - 100)*q^68 + 1/19*(24*a - 2)*q^71 + 1/19*(-42*a +
        32)*q^72 + 1/19*(-42*a + 32)*q^74 + 1/19*(-44*a + 48)*q^79 + 1/19*(2*a +
        22)*q^81 + 1/57*(26*a + 20)*q^83 + 1/19*(23*a + 6)*q^84 + 1/57*(-26*a + 
        94)*q^89 + 1/19*(52*a + 2)*q^94 + 1/57*(56*a + 65)*q^96 + 1/19*(-2*a + 
        54)*q^97 + 1/57*(-52*a + 74)*q^98 + 1/57*(-46*a + 26)*q^101 + (2*a - 
        4)*q^102 + 1/57*(-104*a - 80)*q^103 + 1/19*(48*a - 4)*q^106 + 
        1/57*(101*a - 10)*q^108 + (-a - 1)*q^111 + 1/57*(58*a - 122)*q^112 + 
        1/57*(-80*a + 184)*q^118 + 1/19*(2*a - 16)*q^119 + 1/19*(2*a + 22)*q^122
        + 1/57*(-14*a + 112)*q^126 + 1/19*(-24*a + 2)*q^128 + 1/57*(26*a - 
        94)*q^131 + 1/57*(-248*a + 46)*q^136 + 1/19*(24*a - 2)*q^141 + 
        1/19*(10*a - 4)*q^142 + 1/19*(42*a - 32)*q^144 - a*q^147 + 1/19*(-4*a - 
        6)*q^148 + 1/19*(-22*a + 24)*q^149 + 1/57*(205*a - 215)*q^153 + 
        1/19*(-2*a + 54)*q^157 + 1/19*(42*a - 32)*q^158 + 1/19*(-14*a + 
        55)*q^159 + 1/19*(4*a + 6)*q^162 + 1/19*(2*a - 54)*q^166 + 1/19*(21*a + 
        3)*q^168 + 1/57*(-26*a + 94)*q^173 + 1/19*(-64*a + 18)*q^177 + 
        1/57*(92*a - 52)*q^178 + 1/19*(-6*a + 48)*q^183 + 1/57*(-46*a + 
        26)*q^188 + 1/57*(13*a + 10)*q^189 + 1/19*(-2*a - 22)*q^191 + 
        1/19*(-36*a - 54)*q^192 + 1/19*(-2*a - 22)*q^194 + 1/57*(-70*a + 
        104)*q^196 + 1/19*(22*a - 24)*q^197 + 1/57*(-122*a + 64)*q^202 + 
        1/19*(-36*a - 16)*q^204 + 1/57*(44*a + 104)*q^206 + 1/19*(22*a - 
        24)*q^212 + 1/57*(-37*a + 68)*q^213 + 1/57*(8*a + 50)*q^216 + 1/57*(26*a
        + 134)*q^222 + 1/57*(52*a - 74)*q^224 + (a - 1)*q^225 + 1/57*(52*a + 
        40)*q^236 + (a + 1)*q^237 + 1/19*(4*a + 6)*q^238 + 1/19*(-24*a + 
        2)*q^239 + 1/57*(-184*a + 104)*q^241 + 1/57*(46*a - 26)*q^243 + 
        1/57*(284*a - 220)*q^244 + 1/19*(-2*a - 22)*q^249 + O(q^250),
    q^12 + 1/19*(30*a - 50)*q^16 + 1/57*(-10*a - 34)*q^17 + 1/19*(-35*a + 
        14)*q^18 + 1/57*(-58*a - 106)*q^21 + 1/57*(26*a + 20)*q^24 + 1/57*(10*a 
        - 80)*q^27 + 1/57*(-178*a + 170)*q^28 + 1/19*(-8*a + 26)*q^32 + 
        1/57*(-2*a + 130)*q^34 + 1/19*(-36*a + 22)*q^36 + 1/19*(-36*a - 16)*q^37
        + 1/57*(-14*a + 55)*q^42 + 1/57*(10*a + 34)*q^47 + 1/57*(65*a + 
        107)*q^48 + 1/57*(-88*a + 20)*q^49 + 1/19*(-12*a + 1)*q^51 + 1/19*(50*a 
        - 20)*q^53 + 1/57*(-46*a + 83)*q^54 + 1/57*(70*a - 104)*q^56 + 
        1/57*(-20*a + 160)*q^59 + 1/19*(-50*a + 20)*q^61 + 1/57*(-49*a - 7)*q^63
        + 1/19*(80*a - 70)*q^64 + 1/57*(-56*a - 8)*q^68 + 1/19*(8*a - 26)*q^71 +
        1/19*(24*a + 17)*q^72 + 1/19*(24*a - 2)*q^74 + 1/19*(36*a + 16)*q^79 + 
        1/19*(26*a - 18)*q^81 + 1/57*(34*a - 44)*q^83 + 1/19*(14*a - 17)*q^84 + 
        1/57*(80*a - 70)*q^89 + 1/19*(30*a - 50)*q^94 + 1/57*(82*a - 86)*q^96 + 
        1/19*(50*a - 20)*q^97 + 1/57*(46*a - 26)*q^98 + 1/57*(10*a + 34)*q^101 -
        3*a*q^102 + 1/57*(-136*a + 176)*q^103 + 1/19*(16*a - 52)*q^106 + 
        1/57*(40*a - 92)*q^108 + (-a + 1)*q^111 + 1/57*(-82*a - 28)*q^112 + 
        1/57*(176*a - 40)*q^118 + 1/19*(-12*a + 20)*q^119 + 1/19*(26*a - 
        18)*q^122 + 1/57*(122*a - 64)*q^126 + 1/19*(-8*a + 26)*q^128 + 
        1/57*(-80*a + 70)*q^131 + 1/57*(-70*a + 218)*q^136 + 1/19*(8*a - 
        26)*q^141 + 1/19*(16*a - 14)*q^142 + 1/19*(-5*a - 36)*q^144 + (-a + 
        1)*q^147 + 1/19*(-14*a - 2)*q^148 + 1/19*(18*a + 8)*q^149 + 1/57*(-166*a
        - 40)*q^153 + 1/19*(50*a - 20)*q^157 + 1/19*(-24*a + 2)*q^158 + 
        1/19*(46*a - 26)*q^159 + 1/19*(14*a + 2)*q^162 + 1/19*(-50*a + 20)*q^166
        + 1/19*(7*a - 18)*q^168 + 1/57*(80*a - 70)*q^173 + 1/19*(4*a + 44)*q^177
        + 1/57*(-20*a - 68)*q^178 + 1/19*(36*a - 22)*q^183 + 1/57*(10*a + 
        34)*q^188 + 1/57*(17*a - 22)*q^189 + 1/19*(-26*a + 18)*q^191 + 
        1/19*(-69*a + 58)*q^192 + 1/19*(-26*a + 18)*q^194 + 1/57*(40*a + 
        22)*q^196 + 1/19*(-18*a - 8)*q^197 + 1/57*(-28*a + 110)*q^202 + 
        1/19*(-31*a + 39)*q^204 + 1/57*(40*a - 92)*q^206 + 1/19*(-18*a - 
        8)*q^212 + 1/57*(13*a + 10)*q^213 + 1/57*(85*a - 53)*q^216 + 1/57*(148*a
        - 101)*q^222 + 1/57*(-46*a + 26)*q^224 + 1/57*(68*a - 88)*q^236 + (2*a -
        2)*q^237 + 1/19*(14*a + 2)*q^238 + 1/19*(-8*a + 26)*q^239 + 1/57*(40*a +
        136)*q^241 + 1/57*(-10*a - 34)*q^243 + 1/57*(-32*a - 200)*q^244 + 
        1/19*(-26*a + 18)*q^249 + O(q^250),
    q^14 + 1/19*(15*a - 25)*q^16 + 1/57*(-5*a - 17)*q^17 + 1/19*(-27*a + 
        26)*q^18 + 1/57*(-29*a - 53)*q^21 + 1/57*(70*a + 10)*q^24 + 1/57*(5*a - 
        40)*q^27 + 1/57*(-89*a + 85)*q^28 + 1/19*(15*a - 25)*q^32 + 1/57*(-a + 
        65)*q^34 + 1/19*(-18*a + 11)*q^36 + 1/19*(-18*a - 8)*q^37 + 1/57*(-7*a -
        1)*q^42 + 1/57*(5*a - 40)*q^47 + 1/57*(61*a + 25)*q^48 + 1/57*(-44*a + 
        10)*q^49 + 1/19*(-25*a + 10)*q^51 + 1/19*(25*a - 10)*q^53 + 1/57*(-23*a 
        + 13)*q^54 + 1/57*(-22*a + 5)*q^56 + 1/57*(-10*a + 80)*q^59 + 
        1/19*(-25*a + 10)*q^61 + 1/57*(4*a - 32)*q^63 + 1/19*(40*a - 35)*q^64 + 
        1/57*(-28*a + 53)*q^68 + 1/19*(4*a - 13)*q^71 + 1/19*(-7*a + 18)*q^72 + 
        1/19*(12*a - 1)*q^74 + 1/19*(18*a + 8)*q^79 + 1/19*(13*a - 9)*q^81 + 
        1/57*(-40*a + 35)*q^83 + 1/19*(7*a - 18)*q^84 + 1/57*(40*a - 35)*q^89 + 
        1/19*(15*a - 25)*q^94 + 1/57*(41*a + 14)*q^96 + 1/19*(25*a - 10)*q^97 + 
        1/57*(23*a - 13)*q^98 + 1/57*(5*a + 17)*q^101 + (-2*a + 1)*q^102 + 
        1/57*(-68*a + 88)*q^103 + 1/19*(8*a - 26)*q^106 + 1/57*(20*a - 46)*q^108
        + 1/57*(-41*a - 14)*q^112 + 1/57*(88*a - 20)*q^118 + 1/19*(-6*a + 
        10)*q^119 + 1/19*(-25*a - 9)*q^122 + 1/57*(61*a - 32)*q^126 + 1/19*(34*a
        - 6)*q^128 + 1/57*(-40*a + 35)*q^131 + 1/57*(-35*a + 109)*q^136 + 
        1/19*(4*a - 13)*q^141 + 1/19*(8*a - 7)*q^142 + 1/19*(-12*a + 1)*q^144 + 
        1/19*(-7*a - 1)*q^148 + 1/19*(9*a + 4)*q^149 + 1/57*(-83*a - 20)*q^153 +
        1/19*(25*a - 10)*q^157 + 1/19*(-12*a + 1)*q^158 + 1/19*(23*a - 13)*q^159
        + 1/19*(7*a + 1)*q^162 + 1/19*(-25*a + 10)*q^166 + 1/19*(13*a - 
        28)*q^168 + 1/57*(40*a - 35)*q^173 + 1/19*(2*a + 22)*q^177 + 1/57*(-10*a
        - 34)*q^178 + 1/19*(18*a - 11)*q^183 + 1/57*(62*a - 40)*q^188 + 
        1/57*(37*a - 11)*q^189 + 1/19*(25*a - 10)*q^191 + 1/19*(-25*a + 
        29)*q^192 + 1/19*(-13*a + 28)*q^194 + 1/57*(20*a + 11)*q^196 + 
        1/19*(10*a + 15)*q^197 + 1/57*(-14*a + 55)*q^202 + 1/19*(-25*a + 
        10)*q^204 + 1/57*(20*a - 46)*q^206 + 1/19*(-9*a - 4)*q^212 + 1/57*(35*a 
        + 5)*q^213 + 1/57*(71*a - 55)*q^216 + 1/57*(74*a - 79)*q^222 + 
        1/57*(-80*a + 13)*q^224 + 1/57*(34*a - 44)*q^236 + 1/19*(7*a + 1)*q^238 
        + 1/19*(-4*a + 13)*q^239 + 1/57*(20*a + 68)*q^241 + 1/57*(-5*a + 
        40)*q^243 + 1/57*(-16*a - 100)*q^244 + 1/19*(-13*a + 9)*q^249 + O(q^250)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
987
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 23*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + 1/3*(2*a - 1)*q^14 - a*q^17 - a*q^24 - a*q^25 + 1/3*(a - 2)*q^28 + 
        a*q^32 + q^34 + q^36 + (a - 1)*q^37 + 1/3*(2*a - 1)*q^42 + (a - 1)*q^47 
        + 1/3*(-a - 1)*q^49 + (-a + 1)*q^51 + 1/3*(a + 1)*q^63 + q^71 - a*q^74 -
        q^83 + 1/3*(a - 2)*q^84 + (a - 1)*q^96 + 1/3*(a + 1)*q^98 + a*q^101 + 
        a*q^102 + (-a + 1)*q^103 - q^106 - q^111 - a*q^112 + q^118 + 1/3*(-2*a +
        1)*q^119 + (a - 1)*q^121 - a*q^122 + 1/3*(-2*a + 1)*q^126 + (a - 
        1)*q^142 + 1/3*(-a + 2)*q^147 + (-a + 1)*q^149 - q^153 + a*q^158 - q^162
        + q^169 + 1/3*(-2*a + 1)*q^189 + (-a + 1)*q^191 + (-a + 1)*q^194 + 
        1/3*(-a - 1)*q^196 - q^197 - q^204 + (-a + 1)*q^212 + a*q^213 + (-a + 
        1)*q^222 + q^237 + (-a + 1)*q^238 - q^239 + a*q^241 + (a - 1)*q^243 + 
        O(q^250),
    q^2 + 1/3*(-2*a + 1)*q^14 + (a - 1)*q^16 + (a - 1)*q^17 + 1/3*(-a - 1)*q^21 
        + 1/3*(2*a - 1)*q^28 - q^34 + q^37 - a*q^48 + 1/3*(a - 2)*q^49 - a*q^50 
        - a*q^53 + (-a + 1)*q^54 + q^56 + (a - 1)*q^59 + q^61 + 1/3*(a + 1)*q^63
        + a*q^64 + (-a + 1)*q^68 - a*q^71 + a*q^74 - q^79 - a*q^81 - a*q^89 + (a
        - 1)*q^94 + q^97 + 1/3*(-a - 1)*q^98 + (-a + 1)*q^102 + a*q^106 + 
        1/3*(2*a + 2)*q^119 + q^128 + (a - 1)*q^131 + (-a + 1)*q^142 + a*q^144 -
        q^148 + q^157 - a*q^158 + q^159 + a*q^162 - q^166 + 1/3*(a - 2)*q^168 + 
        (a - 1)*q^173 + (a - 1)*q^178 - q^189 - q^194 + 1/3*(-2*a + 1)*q^196 + 
        a*q^204 - q^212 - q^222 - a*q^224 + q^236 - q^238 + (a - 1)*q^242 + 
        a*q^243 - a*q^244 + O(q^250),
    q^3 + 1/3*(2*a - 1)*q^21 + (-a + 1)*q^36 + 1/3*(2*a - 1)*q^42 + (a - 1)*q^48
        - a*q^51 + 1/3*(-a + 2)*q^63 - a*q^72 - a*q^75 - q^81 + 1/3*(a - 2)*q^84
        + a*q^96 + q^108 + (a - 1)*q^111 + 1/3*(a - 2)*q^126 + (a - 1)*q^141 + 
        1/3*(-a - 1)*q^147 - a*q^159 + 1/3*(a + 1)*q^168 + 1/3*(a + 1)*q^189 + 
        (-a + 1)*q^204 + q^213 + (-a + 1)*q^216 - q^249 + O(q^250),
    q^4 + 1/3*(-2*a + 1)*q^14 - a*q^16 - q^17 + 1/3*(2*a - 1)*q^28 + (-a + 
        1)*q^34 + (-a + 1)*q^36 + a*q^37 + 1/3*(a - 2)*q^49 + a*q^54 + (a - 
        1)*q^56 + (a - 1)*q^64 + a*q^68 + (-a + 1)*q^71 - q^74 + 1/3*(-a + 
        2)*q^98 - a*q^100 + q^101 - a*q^103 + (a - 1)*q^118 + 1/3*(-a - 1)*q^119
        + q^122 + 1/3*(-a - 1)*q^126 + a*q^128 - q^136 + a*q^142 - q^144 + (-a +
        1)*q^148 - a*q^149 + (a - 1)*q^153 + q^158 + (a - 1)*q^162 - q^178 + (a 
        - 1)*q^188 + 1/3*(-2*a + 1)*q^189 + 1/3*(a + 1)*q^196 - a*q^212 + (-a + 
        1)*q^216 + q^224 + (-a + 1)*q^238 + (a - 1)*q^239 + q^241 + O(q^250),
    q^6 + 1/3*(-2*a + 1)*q^21 - a*q^24 - q^27 + q^36 + (a - 1)*q^54 + 1/3*(-a - 
        1)*q^63 + (-a + 1)*q^72 + a*q^81 + (a - 1)*q^84 + (a - 1)*q^96 + a*q^102
        + a*q^108 + 1/3*(-a - 1)*q^126 - 2*a*q^144 - a*q^150 + 1/3*(-a + 
        2)*q^168 + (a - 1)*q^177 + q^183 + 1/3*(a + 1)*q^189 + a*q^192 - q^204 +
        (-a + 1)*q^222 + (-a + 1)*q^243 + O(q^250),
    q^7 + (a + 1)*q^16 + (2*a - 1)*q^34 + (a - 2)*q^53 + (-a - 1)*q^54 + (-a + 
        1)*q^56 + (-a + 1)*q^63 + (-a - 1)*q^68 + (-a + 2)*q^74 + (a - 2)*q^81 +
        (-a - 1)*q^89 + (-2*a + 1)*q^97 + (a - 1)*q^98 + (-a + 1)*q^119 + (a + 
        1)*q^131 + (-a - 1)*q^142 + (-a + 2)*q^144 + (2*a - 1)*q^148 + (-a + 
        2)*q^157 + (a - 2)*q^158 + (a + 1)*q^173 - a*q^175 + (a - 1)*q^189 - 
        q^196 + (a - 1)*q^224 + a*q^238 + (a + 1)*q^243 + O(q^250),
    q^8 + 1/3*(-a - 1)*q^14 + a*q^17 - q^27 + 1/3*(-2*a + 1)*q^28 - a*q^32 - 
        q^34 + (-a + 1)*q^37 + 1/3*(2*a - 1)*q^49 + (-a + 1)*q^68 - q^71 + (-a +
        1)*q^72 + a*q^74 + (a - 1)*q^79 + 1/3*(a - 2)*q^98 + q^106 + a*q^108 + 
        (a - 1)*q^112 + 1/3*(a + 1)*q^119 + 1/3*(a - 2)*q^126 + a*q^136 + (-a + 
        1)*q^142 - q^148 + q^153 + q^162 + a*q^178 + 1/3*(2*a - 1)*q^189 + (a - 
        1)*q^194 + 1/3*(-a + 2)*q^196 - a*q^200 + q^202 - a*q^206 + (a - 
        1)*q^236 - q^238 + (-a + 1)*q^243 + q^244 + O(q^250),
    q^9 + (a - 1)*q^24 - a*q^36 + 1/3*(-a + 2)*q^42 - q^51 - q^54 + 1/3*(-2*a + 
        1)*q^63 + (a - 1)*q^81 + 1/3*(a + 1)*q^84 + q^96 + (-a + 1)*q^102 + (-a 
        + 1)*q^108 + a*q^111 + (a - 1)*q^126 + 1/3*(-a - 1)*q^147 + a*q^162 + 
        1/3*(2*a - 1)*q^189 + a*q^204 + (-a + 1)*q^213 - a*q^216 - q^222 - 
        a*q^225 - a*q^237 + q^243 + O(q^250),
    q^12 + 1/3*(a + 1)*q^21 - a*q^27 + 1/3*(-2*a + 1)*q^42 - q^51 - q^54 + 
        1/3*(-2*a + 1)*q^63 + q^72 + (a - 1)*q^81 + 1/3*(2*a - 1)*q^84 + a*q^111
        + 1/3*(-a - 1)*q^126 + (-a + 1)*q^144 + 1/3*(a - 2)*q^147 + a*q^153 - 
        q^159 + a*q^162 + 1/3*(2*a - 1)*q^168 + 1/3*(2*a - 1)*q^189 + (a - 
        1)*q^192 + (-a + 1)*q^213 + q^243 + O(q^250),
    q^18 + 1/3*(2*a - 1)*q^21 + (-a + 1)*q^27 + (a - 1)*q^48 + 1/3*(-2*a + 
        1)*q^63 - q^81 - q^102 + 1/3*(-2*a + 1)*q^126 + (a - 1)*q^153 - a*q^159 
        + (a - 1)*q^162 + 1/3*(a + 1)*q^168 + 1/3*(-a - 1)*q^189 + (-a + 
        1)*q^204 + (-a + 1)*q^216 + a*q^222 + a*q^243 + O(q^250)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
987
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 23*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - 1/2*q^18 + 1/4*q^21 + q^25 - 1/2*q^28 + 1/2*q^36 - q^37 + 1/2*q^49 - 
        q^51 - 3/4*q^63 - q^79 + 1/2*q^81 + 1/2*q^102 + q^106 - q^112 - q^121 - 
        1/4*q^126 - 1/2*q^141 + q^142 + q^144 + 1/2*q^147 - q^148 + 1/2*q^162 + 
        1/4*q^168 - q^169 - 1/2*q^177 + 1/2*q^183 - 1/4*q^189 + 1/2*q^196 - 
        1/2*q^204 + q^249 + O(q^250),
    q^2 - q^16 + 1/3*q^17 - 1/2*q^18 + 7/12*q^21 + 4/3*q^24 - 1/3*q^27 + 
        5/6*q^28 + 2/3*q^34 - 1/2*q^36 + 7/6*q^42 + 2/3*q^47 - 2/3*q^48 - 
        1/6*q^49 + q^50 - q^53 - 2/3*q^54 + 2/3*q^56 - 1/3*q^59 - q^61 + 
        1/12*q^63 + 2/3*q^68 - q^71 - q^72 - 1/2*q^81 - 4/3*q^83 - 1/2*q^84 + 
        1/3*q^89 - q^94 - 4/3*q^96 + q^97 - 1/3*q^98 - 1/3*q^101 - 1/2*q^102 + 
        1/3*q^103 + 2/3*q^108 - 2/3*q^112 + 1/3*q^118 - q^122 + 1/12*q^126 - 
        q^128 - 1/3*q^131 - 5/3*q^136 - 1/2*q^141 + q^142 + q^148 + q^149 + 
        1/3*q^153 + q^157 + 1/2*q^162 + 2*q^166 + 1/4*q^168 + 1/3*q^173 + 
        3/2*q^177 - 1/3*q^178 + 1/2*q^183 - 1/3*q^188 + 7/12*q^189 + q^194 - 
        5/6*q^196 - 2/3*q^202 + 1/2*q^204 + 2/3*q^206 + q^212 - 4/3*q^213 - 
        1/3*q^216 - 4/3*q^222 - 2/3*q^224 + 1/3*q^236 - q^238 - q^239 - 
        1/3*q^241 - q^242 - 2/3*q^243 + 5/3*q^244 + q^249 + O(q^250),
    q^3 - 4/3*q^17 - 1/3*q^21 - 1/3*q^24 + 1/3*q^27 - 1/3*q^28 - 2/3*q^34 - 
        1/6*q^42 - 2/3*q^47 + 2/3*q^48 - 1/3*q^49 - 1/3*q^54 + 1/3*q^56 - 
        2/3*q^59 + 1/6*q^63 - 2/3*q^68 + q^75 + 4/3*q^83 - 1/2*q^84 + 2/3*q^89 +
        1/3*q^96 + 1/3*q^98 + 4/3*q^101 + 2/3*q^103 + 1/3*q^108 - q^111 + 
        2/3*q^112 + 2/3*q^118 + q^119 - 1/3*q^126 - 2/3*q^131 + 2/3*q^136 + 
        1/2*q^147 - 4/3*q^153 + 2/3*q^173 - 2/3*q^178 - 2/3*q^188 - 5/6*q^189 + 
        1/3*q^196 + 2/3*q^202 - 2/3*q^206 + 1/3*q^213 + 1/3*q^216 + 1/3*q^222 - 
        1/3*q^224 - 4/3*q^236 - q^237 - 2/3*q^241 + 2/3*q^243 - 2/3*q^244 + 
        O(q^250),
    q^4 - q^16 + 1/2*q^18 + 1/4*q^21 - 1/2*q^28 + 1/2*q^36 - q^37 + 1/2*q^42 + 
        1/2*q^49 - 1/4*q^63 + q^64 - q^72 - q^79 + 1/2*q^81 - 1/2*q^84 + q^100 -
        1/2*q^102 - q^106 - 1/4*q^126 - 1/2*q^141 + q^142 + q^148 + 1/2*q^162 - 
        3/4*q^168 - 1/2*q^177 + 1/2*q^183 + 1/4*q^189 - 1/2*q^196 - 3/2*q^204 - 
        q^238 + q^249 + O(q^250),
    q^6 + 2/3*q^17 + 1/6*q^21 - 1/3*q^24 + 1/3*q^27 - 1/3*q^28 - 2/3*q^34 + 
        1/3*q^42 + 1/3*q^47 - 1/3*q^48 - 1/3*q^49 - 1/3*q^54 - 2/3*q^56 - 
        2/3*q^59 + 1/6*q^63 - 2/3*q^68 - 2/3*q^83 + 2/3*q^89 + 1/3*q^96 - 
        2/3*q^98 - 2/3*q^101 + 2/3*q^103 - 2/3*q^108 + 2/3*q^112 + 2/3*q^118 + 
        1/6*q^126 - 2/3*q^131 + 2/3*q^136 + q^150 - 1/3*q^153 - q^159 + 
        1/2*q^168 + 2/3*q^173 - 2/3*q^178 + 1/3*q^188 + 1/6*q^189 + 1/3*q^196 + 
        2/3*q^202 + 4/3*q^206 - 2/3*q^213 - 2/3*q^216 + 1/3*q^222 + 2/3*q^224 + 
        2/3*q^236 - 2/3*q^241 - 1/3*q^243 - 2/3*q^244 + O(q^250),
    q^7 - 4/3*q^17 - 4/3*q^21 - 4/3*q^24 + 4/3*q^27 - 4/3*q^28 - 2/3*q^34 - 
        2/3*q^42 - 2/3*q^47 + 8/3*q^48 + 2/3*q^49 + 2/3*q^54 + 1/3*q^56 - 
        2/3*q^59 + 2*q^61 - 1/3*q^63 - 2/3*q^68 + 4/3*q^83 + 2/3*q^89 + 2*q^94 +
        4/3*q^96 - 2*q^97 + 1/3*q^98 + 4/3*q^101 - 4/3*q^103 - 2/3*q^108 + 
        2/3*q^112 - 4/3*q^118 + q^119 - 4/3*q^126 - 2/3*q^131 + 8/3*q^136 - 
        4/3*q^153 - 2*q^157 - 4*q^166 + 2/3*q^173 + q^175 + 4/3*q^178 - 
        2/3*q^188 - 1/3*q^189 + 1/3*q^196 + 2/3*q^202 - 2/3*q^206 + 4/3*q^213 + 
        4/3*q^216 + 4/3*q^222 - 1/3*q^224 - 4/3*q^236 + q^238 + 4/3*q^241 + 
        2/3*q^243 - 8/3*q^244 + O(q^250),
    q^8 - 1/3*q^17 - 1/2*q^18 - 7/12*q^21 + 2/3*q^24 + 1/3*q^27 + 1/6*q^28 - 
        q^32 + 1/3*q^34 + 1/2*q^36 + 5/6*q^42 + 1/3*q^47 + 2/3*q^48 + 1/6*q^49 -
        1/3*q^54 + 1/3*q^56 - 2/3*q^59 - 1/12*q^63 + 1/3*q^68 - q^71 - q^74 - 
        1/2*q^81 - 2/3*q^83 + 1/2*q^84 + 2/3*q^89 - 2/3*q^96 + 1/3*q^98 + 
        1/3*q^101 + 1/2*q^102 - 1/3*q^103 + 1/3*q^108 - 1/3*q^112 - 1/3*q^118 + 
        q^119 - q^122 - 1/12*q^126 - 2/3*q^131 - 1/3*q^136 - 1/2*q^141 - q^144 +
        q^149 - 1/3*q^153 - q^158 + 1/2*q^162 - 1/4*q^168 + 2/3*q^173 + 
        1/2*q^177 + 1/3*q^178 - 1/2*q^183 - 2/3*q^188 + 5/12*q^189 + q^194 - 
        1/6*q^196 + q^200 - 1/3*q^202 - 1/2*q^204 + 1/3*q^206 - q^212 - 
        2/3*q^213 + 1/3*q^216 - 2/3*q^222 - 1/3*q^224 - 1/3*q^236 - q^239 + 
        1/3*q^241 - 1/3*q^243 + 1/3*q^244 + q^249 + O(q^250),
    q^9 + 2*q^16 - 4/3*q^17 - 11/6*q^21 - 4/3*q^24 + 4/3*q^27 - 4/3*q^28 - 
        2/3*q^34 - 7/6*q^42 - 2/3*q^47 + 8/3*q^48 + 2/3*q^49 - q^51 + 2/3*q^54 +
        1/3*q^56 - 2/3*q^59 + 2*q^61 - 1/3*q^63 - 2/3*q^68 + q^72 + 4/3*q^83 + 
        1/2*q^84 + 2/3*q^89 + 2*q^94 + 4/3*q^96 - 2*q^97 + 1/3*q^98 + 4/3*q^101 
        - 4/3*q^103 - 2/3*q^108 + 2/3*q^112 - 4/3*q^118 + q^119 - 5/6*q^126 - 
        2/3*q^131 + 8/3*q^136 - 2*q^142 - 1/2*q^147 - 2*q^148 - 4/3*q^153 - 
        2*q^157 - q^162 - 4*q^166 + 1/2*q^168 + 2/3*q^173 - q^177 + 4/3*q^178 - 
        q^183 - 2/3*q^188 - 1/3*q^189 + 4/3*q^196 + 2/3*q^202 - 2/3*q^206 + 
        4/3*q^213 + 4/3*q^216 + 4/3*q^222 - 1/3*q^224 + q^225 - 4/3*q^236 + 
        2*q^238 + 4/3*q^241 + 2/3*q^243 - 8/3*q^244 + O(q^250),
    q^12 - 2/3*q^17 - 2/3*q^21 + 1/3*q^24 + 2/3*q^27 + 1/3*q^28 + 2/3*q^34 + 
        1/6*q^42 - 1/3*q^47 + 1/3*q^48 + 1/3*q^49 + 1/3*q^54 - 1/3*q^56 - 
        4/3*q^59 - 1/6*q^63 - 4/3*q^68 + 2/3*q^83 - 1/2*q^84 + 4/3*q^89 - 
        1/3*q^96 - 1/3*q^98 + 2/3*q^101 - 2/3*q^103 + 2/3*q^108 - q^111 - 
        2/3*q^112 - 2/3*q^118 + q^119 + 1/3*q^126 - 4/3*q^131 - 2/3*q^136 + 
        1/2*q^147 - 2/3*q^153 + 4/3*q^173 + 2/3*q^178 - 1/3*q^188 - 1/6*q^189 + 
        q^192 - 1/3*q^196 - 2/3*q^202 + 2/3*q^206 - 1/3*q^213 - 1/3*q^216 - 
        1/3*q^222 + 1/3*q^224 - 2/3*q^236 - q^237 + 2/3*q^241 + 1/3*q^243 + 
        2/3*q^244 + O(q^250),
    q^14 + 2/3*q^17 + 2/3*q^21 - 4/3*q^24 - 2/3*q^27 - 1/3*q^28 - 2/3*q^34 - 
        2/3*q^42 - 2/3*q^47 - 4/3*q^48 - 1/3*q^49 + 2/3*q^54 - 2/3*q^56 + 
        4/3*q^59 + 2/3*q^63 - 2/3*q^68 + 4/3*q^83 - 4/3*q^89 + 4/3*q^96 + 
        1/3*q^98 - 2/3*q^101 + 2/3*q^103 - 2/3*q^108 + 2/3*q^112 + 2/3*q^118 - 
        q^119 + 2*q^122 - 1/3*q^126 + 4/3*q^131 + 2/3*q^136 + 2/3*q^153 - 
        4/3*q^173 - 2/3*q^178 + 4/3*q^188 - 1/3*q^189 - 2*q^194 + 1/3*q^196 + 
        2/3*q^202 - 2/3*q^206 + 4/3*q^213 - 2/3*q^216 + 4/3*q^222 + 2/3*q^224 + 
        2/3*q^236 - 2/3*q^241 + 2/3*q^243 - 2/3*q^244 + O(q^250)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 + (a - 1)*q^4 - q^5 + q^8 + (a - 1)*q^9 + a*q^10 - a*q^13 - a*q^16
        + (-a + 1)*q^17 + q^18 + (-a + 1)*q^20 + (a - 1)*q^26 + a*q^29 + (a - 
        1)*q^32 - q^34 - a*q^36 + a*q^37 - q^40 + a*q^41 + (-a + 1)*q^45 - 
        a*q^49 + q^52 - q^53 + (-a + 1)*q^58 + (-a + 1)*q^61 + q^64 + a*q^65 + 
        a*q^68 + (a - 1)*q^72 - q^73 + (-a + 1)*q^74 + a*q^80 - a*q^81 + (-a + 
        1)*q^82 + (a - 1)*q^85 - 2*a*q^89 - q^90 + (2*a - 2)*q^97 + (a - 1)*q^98
        + a*q^101 - a*q^104 + a*q^106 + 2*q^109 + (-a + 1)*q^113 - q^116 + q^117
        + (a - 1)*q^121 - q^122 + q^125 - a*q^128 + (-a + 1)*q^130 + (-a + 
        1)*q^136 + (-a + 1)*q^137 + q^144 - a*q^145 + a*q^146 - q^148 + (-a + 
        1)*q^149 + a*q^153 - q^157 + (-a + 1)*q^160 + (a - 1)*q^162 - q^164 + (a
        - 1)*q^169 + q^170 + (2*a - 2)*q^173 + (2*a - 2)*q^178 + a*q^180 - q^181
        - a*q^185 + a*q^193 + 2*q^194 + q^196 - 2*a*q^197 + (-a + 1)*q^202 - 
        a*q^205 + (a - 1)*q^208 + (-a + 1)*q^212 - 2*a*q^218 - q^221 - q^226 + 
        2*q^229 + a*q^232 + 2*q^233 - a*q^234 + (-a + 1)*q^241 + q^242 + a*q^244
        + a*q^245 - a*q^250 + (a - 1)*q^256 + a*q^257 - q^260 - q^261 + q^265 + 
        (2*a - 2)*q^269 + O(q^270),
    q^19 - a*q^38 + (a - 1)*q^76 - q^95 + q^152 + (a - 1)*q^171 + a*q^190 - 
        a*q^247 + O(q^270)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^4 + (a^5 - a^2)*q^9 - a^5*q^13 + (a^4 - a)*q^14 + a^4*q^16 + (a^5 
        - a^3 - a^2)*q^17 + (a^3 + a^2 - 1)*q^22 - a^5*q^25 + (-a^4 + a + 
        1)*q^29 - a*q^36 + (-a^4 + a)*q^38 + (-a^4 + a)*q^52 + (-a^4 + a^3 + a -
        1)*q^53 - q^56 + (-a^3 - a)*q^61 + (-a^3 + a^2)*q^62 + (a^3 - 1)*q^64 + 
        (-a^5 - a)*q^68 + (a^4 - a^2 - a)*q^77 + (-a^4 + a)*q^81 + (a^5 + a^4 - 
        a^2)*q^88 + (-a^5 + a^4)*q^94 + (-a^4 + a)*q^100 + a^5*q^101 + (-a^5 + 
        a^4)*q^113 + (a^2 + 1)*q^116 + a^4*q^117 - a^2*q^118 + (a^3 + a^2 - a - 
        1)*q^121 + (-a^3 + 1)*q^126 + a^3*q^133 + (a^5 - a^2 - a)*q^134 + (-a^4 
        + a + 1)*q^142 - a^3*q^144 + q^152 + (-a^4 + a^2 + a)*q^153 + (-a^3 + 
        a^2)*q^157 + (a^5 + a^3 - a^2 - 1)*q^166 - a*q^169 + (a^2 + 1)*q^173 + 
        (a^4 - a^3)*q^181 + a^3*q^182 + (-a^5 - a)*q^198 + q^208 + (-a^4 + a^2 +
        a)*q^209 + (a^5 - a^2 + 1)*q^212 + (-a^5 + a^4 + a^2 - a)*q^217 + (a^5 +
        a^4 - a^2)*q^221 - a^2*q^224 + a^4*q^225 + (a^4 - a)*q^233 + (-a^3 + a +
        1)*q^238 + (-a^5 - a^3)*q^244 + (-a^5 + a^4)*q^248 + (a^5 - a^2)*q^256 +
        (a^3 - a - 1)*q^257 + (a^5 + a^3 - a^2 - 1)*q^261 + (a^3 + a^2 - 
        1)*q^269 + O(q^270),
    q^2 + a^5*q^7 + a^2*q^8 + (a^4 + 1)*q^11 + (a^5 - a^2)*q^18 - a^5*q^19 - 
        a^5*q^26 + (a^4 - a)*q^28 + (-a + 1)*q^31 + a^4*q^32 + (a^5 - a^3 - 
        a^2)*q^34 + (a^3 + a^2 - 1)*q^44 + (-a^3 + a^2)*q^47 - a^5*q^50 + (-a^4 
        + a + 1)*q^58 - q^59 - a^4*q^63 + (a^5 + a^3 - a^2 - 1)*q^67 + (-a^5 - 
        a^4 + a)*q^71 - a*q^72 + (-a^4 + a)*q^76 + (a^4 + a^3 - 1)*q^83 + a*q^91
        + (a^5 - a^3 - a^2)*q^99 + (-a^4 + a)*q^104 + (-a^4 + a^3 + a - 1)*q^106
        - q^112 + (-a^5 - a^4 + a^2)*q^119 + (-a^3 - a)*q^122 + (-a^3 + 
        a^2)*q^124 + (a^3 - 1)*q^128 + (-a^5 - a)*q^136 + (-a^5 + 1)*q^143 + 
        (a^3 - a - 1)*q^151 + (a^4 - a^2 - a)*q^154 + (-a^4 + a)*q^162 + (-a^3 -
        a)*q^163 + (-a^5 + a^3 - 1)*q^167 + a^4*q^171 + a*q^175 + (a^5 + a^4 - 
        a^2)*q^176 + (a^5 - a^4 - 2*a^3 - a^2 + a)*q^187 + (-a^5 + a^4)*q^188 + 
        (-a^4 + a)*q^200 + a^5*q^202 + (a^5 + a^3)*q^203 + (-a^3 + 1)*q^223 + 
        (-a^5 + a^4)*q^226 + (a^3 - a - 1)*q^227 + (a^2 + 1)*q^232 + a^4*q^234 -
        a^2*q^236 + 2*a^2*q^239 + (a^3 + a^2 - a - 1)*q^242 - a*q^247 + (-a^3 + 
        1)*q^252 + a^3*q^266 + (a^5 - a^2 - a)*q^268 + O(q^270)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^4 + (a - 1)*q^9 + (a - 1)*q^13 - 2*a*q^14 - a*q^16 + a*q^17 + 
        a*q^22 + (a - 1)*q^25 + (-a + 1)*q^29 - a*q^36 - a*q^38 + 3*q^49 - 
        a*q^52 + (-a + 1)*q^53 + 2*q^56 + (-a + 1)*q^61 + a*q^62 + q^64 - q^68 -
        2*q^77 - a*q^81 - q^88 - q^94 - a*q^100 + (2*a - 2)*q^101 - q^113 + 
        a*q^116 - a*q^117 + (2*a - 2)*q^118 + 2*q^126 + 2*q^133 - q^134 + (-a + 
        1)*q^142 + q^144 + q^152 - q^153 + a*q^157 + a*q^166 - a*q^169 + a*q^173
        + (-a + 1)*q^181 + 2*q^182 + (3*a - 3)*q^196 - q^198 + q^208 - q^209 + 
        a*q^212 - 2*q^217 - q^221 + (2*a - 2)*q^224 - a*q^225 - 2*a*q^233 + 
        (-2*a + 2)*q^238 + a*q^244 - q^248 + (a - 1)*q^256 + (-a + 1)*q^257 + 
        a*q^261 + a*q^269 + O(q^270),
    q^2 + (2*a - 2)*q^7 + (a - 1)*q^8 + (-a + 1)*q^11 + (a - 1)*q^18 + (a - 
        1)*q^19 + (a - 1)*q^26 - 2*a*q^28 + (-a + 1)*q^31 - a*q^32 + a*q^34 + 
        a*q^44 + a*q^47 + (a - 1)*q^50 + (-a + 1)*q^58 + 2*q^59 - 2*a*q^63 + 
        a*q^67 - q^71 - a*q^72 - a*q^76 + (-a + 1)*q^83 - 2*a*q^91 + 3*q^98 + 
        a*q^99 - a*q^104 + (-a + 1)*q^106 + 2*q^112 - 2*q^119 + (-a + 1)*q^122 +
        a*q^124 + q^128 - q^136 + a*q^143 + (-a + 1)*q^151 - 2*q^154 - a*q^162 +
        (-a + 1)*q^163 + a*q^167 - a*q^171 - 2*a*q^175 - q^176 + q^187 - q^188 -
        a*q^200 + (2*a - 2)*q^202 + 2*a*q^203 + 2*q^223 - q^226 + (-a + 1)*q^227
        + a*q^232 - a*q^234 + (2*a - 2)*q^236 + (2*a - 2)*q^239 - a*q^247 + 
        2*q^252 + 2*q^266 - q^268 + O(q^270)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 8*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 - q^7 + q^9 - q^11 - q^17 + q^19 + 2*q^23 + q^35 - q^43 - q^45 - 
        q^47 + q^55 - q^61 - q^63 - q^73 + q^77 + q^81 + 2*q^83 + q^85 - q^95 - 
        q^99 + 2*q^101 - 2*q^115 + q^119 + q^125 - q^131 - q^133 - q^137 - q^139
        - q^149 - q^153 + 2*q^157 - 2*q^161 + 2*q^163 + q^169 + q^171 + q^187 - 
        q^191 + 2*q^197 - q^199 + 2*q^207 - q^209 + q^215 - q^229 - q^233 + 
        q^235 - q^239 - q^251 - 2*q^253 - q^263 + O(q^270),
    q^13 - q^65 - q^91 + q^117 - q^143 - q^221 + q^247 + O(q^270)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
988
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.2 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
270
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^9 + q^17 - q^35 - q^39 - q^43 + q^55 - q^61 + q^77 - q^81 + 2*q^87 + 
        q^95 - q^131 + q^133 + q^139 - q^153 + q^191 + q^195 - q^199 - q^209 - 
        q^233 - q^235 - 2*q^237 + q^251 - q^263 + O(q^270),
    q^3 - q^15 - q^21 - q^29 - q^31 + q^33 + q^37 + q^51 + q^57 + q^59 - q^65 - 
        q^67 + q^71 + q^79 + q^89 - q^91 - q^103 - q^105 - q^107 - q^129 - q^141
        + q^143 + q^145 - q^155 + q^165 + q^167 + q^181 - q^183 + q^185 + q^203 
        - q^217 - q^219 - q^227 + q^231 - q^243 + q^247 - q^255 - q^257 + q^259 
        + q^261 - q^269 + O(q^270),
    q^5 + q^7 - q^11 - q^19 - q^39 - q^45 + q^47 - q^63 + q^73 + q^85 - 2*q^93 +
        q^99 + 2*q^111 + q^119 + q^125 - q^137 - q^149 - q^169 + q^171 + 2*q^177
        - q^187 - q^195 - 2*q^201 + 2*q^213 - q^215 - q^229 - q^239 + 2*q^267 + 
        O(q^270),
    q^13 + 2*q^15 + 2*q^21 + 2*q^31 - 2*q^33 - 2*q^37 - 2*q^57 - 2*q^59 + q^65 +
        2*q^67 - 2*q^71 - 2*q^89 + q^91 - q^117 + 2*q^141 - q^143 - 2*q^145 - 
        2*q^167 - 2*q^203 + 2*q^219 + q^221 + 2*q^227 - q^247 + 2*q^255 + 
        O(q^270)
]
;
Bo:=
[
    q + q^9 - q^17 - q^23 + q^25 - q^43 + q^49 - q^61 + q^81 - q^101 + q^121 - 
        q^131 - q^139 - q^153 - q^157 + q^169 - q^191 - q^199 - q^207 + q^225 - 
        q^233 + q^247 + 2*q^251 + 2*q^263 + O(q^270),
    q^2 + q^18 - q^32 - q^34 - q^46 + q^50 - q^52 - q^76 - q^86 + q^98 - q^122 +
        q^124 + q^128 + q^148 + q^162 + q^164 - q^202 + q^208 + q^236 + q^242 - 
        q^262 + q^268 + O(q^270),
    q^4 + q^36 - q^64 - q^68 - q^92 + q^100 - q^104 - q^152 - q^172 + q^196 - 
        q^244 + q^248 + q^256 + O(q^270),
    q^8 - q^32 - q^52 + q^72 - q^76 + q^124 - q^136 + q^148 + q^164 - q^184 + 
        q^200 + q^236 + q^268 + O(q^270),
    q^13 + q^19 - q^31 - q^37 - q^41 - q^59 - q^67 + 2*q^71 + 2*q^89 - q^97 - 
        q^109 + q^117 - q^151 - q^167 + q^171 + 2*q^193 - q^221 + 2*q^223 + 
        2*q^227 - q^241 + O(q^270),
    q^16 + q^26 + q^38 - q^62 - q^64 - q^74 - q^82 - q^104 - q^118 - q^134 + 
        2*q^142 + q^144 - q^152 + 2*q^178 - q^194 - q^218 + q^234 + q^248 + 
        O(q^270)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
989
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
989
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 - q^3 + q^6 + q^8 - q^13 - q^16 + q^23 - q^24 + q^25 + q^26 + q^27 -
        q^29 - q^31 + q^39 - q^41 - q^46 - q^47 + q^48 + q^49 - q^50 - q^54 + 
        q^58 + 2*q^59 + q^62 + q^64 - q^69 - q^71 - q^73 - q^75 - q^78 - q^81 + 
        q^82 + q^87 + q^93 + q^94 - q^98 + 2*q^101 - q^104 - 2*q^118 + q^121 + 
        q^123 - q^127 - q^128 - q^131 + q^138 - q^139 + q^141 + q^142 + q^146 - 
        q^147 + q^150 - q^151 + q^162 - q^163 + 2*q^167 + 2*q^173 + O(q^174),
    q^43 - q^86 - q^129 + O(q^174)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
989
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
989
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
462
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
989
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
462
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
989
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
989
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
989
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
154
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
989
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
154
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
989
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
989
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
989
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
989
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
989
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
989
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
989
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^4*q^4 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^9 + 
        (a^9 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^11 + (a^4 + 
        a^2)*q^13 + a^8*q^16 + (-a^3 + 1)*q^17 - a^5*q^23 + a^2*q^25 + (-a + 
        1)*q^31 - a^3*q^36 + (-a^9 + a^4)*q^41 - a^5*q^43 + (-a^3 - a)*q^44 + 
        (-a^9 + a^2)*q^47 - a^5*q^49 + (a^8 + a^6)*q^52 + (a^9 - a^8 + a^7 + a^5
        - a^4 + a^3 - a^2 + a - 1)*q^53 + (a^9 - a^8 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^59 - a*q^64 + (a^8 - a^7)*q^67 + (-a^7 + a^4)*q^68 + (a^6
        + 1)*q^79 - a^9*q^81 + (-a^7 + a^2)*q^83 - a^9*q^92 + (-a^7 + a^6)*q^97 
        + (-a^9 - a^7)*q^99 + a^6*q^100 + (a^6 - a^3)*q^101 + (a^6 - a)*q^103 + 
        (-a + 1)*q^107 + (-a^9 - a^5)*q^109 + (-a^3 - a)*q^117 + (-a^9 - a^7 - 
        a^5)*q^121 + (-a^5 + a^4)*q^124 + (-a^5 + a^2)*q^127 + (a^8 - a^3)*q^139
        + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 - a - 1)*q^143 - a^7*q^144 + 
        (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^153 + (a^8 + 
        a^2)*q^164 + (-a^9 - a^5)*q^167 + (a^8 + a^6 + a^4)*q^169 - a^9*q^172 + 
        (a^6 - a)*q^173 + O(q^174)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^3 + (a - 1)*q^4 - a*q^9 - a*q^11 - a*q^12 - a*q^16 + (2*a - 
        2)*q^23 + a*q^25 + q^27 + (-a + 1)*q^31 + q^33 + q^36 - q^37 + q^44 + 
        a*q^47 + q^48 + (a - 1)*q^49 - q^53 + (-a + 1)*q^59 + q^64 + (-a + 
        1)*q^67 - 2*a*q^69 - q^71 - q^75 + (a - 1)*q^81 + 2*q^89 - 2*a*q^92 + 
        a*q^93 + a*q^97 + (a - 1)*q^99 - q^100 + (-a + 1)*q^103 + (a - 1)*q^108 
        + (-a + 1)*q^111 + (-a + 1)*q^113 + (a - 1)*q^121 + a*q^124 + q^125 + (a
        - 1)*q^132 + a*q^137 - q^141 + (a - 1)*q^144 - a*q^147 + (-a + 1)*q^148 
        + (-a + 1)*q^157 + (-a + 1)*q^159 - q^163 - a*q^169 + (a - 1)*q^176 + 
        a*q^177 - q^179 - q^181 - q^188 + a*q^191 + (a - 1)*q^192 - a*q^196 - 
        q^199 + a*q^201 + 2*q^207 + (-a + 1)*q^212 + (-a + 1)*q^213 - 2*a*q^223 
        + (-a + 1)*q^225 + (2*a - 2)*q^229 + a*q^236 - a*q^243 + 2*q^251 + 
        2*q^253 + (a - 1)*q^256 + (2*a - 2)*q^257 + (2*a - 2)*q^267 + a*q^268 - 
        q^269 + (-a + 1)*q^275 + 2*q^276 - q^279 + (-a + 1)*q^284 + q^289 - 
        q^291 - a*q^297 + (-a + 1)*q^300 + a*q^309 + (-a + 1)*q^311 - 2*a*q^313 
        - 2*a*q^317 - a*q^324 + a*q^331 + a*q^333 + a*q^339 - q^341 - 2*a*q^353 
        + (2*a - 2)*q^356 + q^361 - a*q^363 + a*q^367 + 2*q^368 - q^372 + (a - 
        1)*q^375 + 2*q^379 + (-a + 1)*q^383 - q^388 + a*q^389 - a*q^396 - q^397 
        + (-a + 1)*q^400 + (-a + 1)*q^401 + O(q^402),
    q^2 + (a - 1)*q^6 + (a - 1)*q^8 - a*q^18 - a*q^22 - a*q^24 - a*q^32 + (2*a -
        2)*q^46 + a*q^50 + q^54 + (-a + 1)*q^62 + q^66 + q^72 - q^74 + q^88 + 
        a*q^94 + q^96 + (a - 1)*q^98 - q^106 + (-a + 1)*q^118 + q^128 + (-a + 
        1)*q^134 - 2*a*q^138 - q^142 - q^150 + (a - 1)*q^162 + 2*q^178 - 
        2*a*q^184 + a*q^186 + a*q^194 + (a - 1)*q^198 - q^200 + (-a + 1)*q^206 +
        (a - 1)*q^216 + (-a + 1)*q^222 + (-a + 1)*q^226 + (a - 1)*q^242 + 
        a*q^248 + q^250 + (a - 1)*q^264 + a*q^274 - q^282 + (a - 1)*q^288 - 
        a*q^294 + (-a + 1)*q^296 + (-a + 1)*q^314 + (-a + 1)*q^318 - q^326 - 
        a*q^338 + (a - 1)*q^352 + a*q^354 - q^358 - q^362 - q^376 + a*q^382 + (a
        - 1)*q^384 - a*q^392 - q^398 + O(q^402),
    q^5 + (a - 1)*q^15 + (a - 1)*q^20 + (-a + 1)*q^25 - a*q^45 - a*q^55 - a*q^60
        + a*q^75 - a*q^80 + a*q^100 + (2*a - 2)*q^115 + q^135 + (-a + 1)*q^155 +
        q^165 + q^180 - q^185 + q^220 - q^225 + a*q^235 + q^240 + (a - 1)*q^245 
        - q^265 - q^275 + (-a + 1)*q^295 - q^300 + q^320 + (-a + 1)*q^335 - 
        2*a*q^345 - q^355 - q^400 + O(q^402),
    q^10 + (a - 1)*q^30 + (a - 1)*q^40 + (-a + 1)*q^50 - a*q^90 - a*q^110 - 
        a*q^120 + a*q^150 - a*q^160 + a*q^200 + (2*a - 2)*q^230 + q^270 + (-a + 
        1)*q^310 + q^330 + q^360 - q^370 + O(q^402)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^3 - a)*q^4 + 1/2*(a^3 + a^2 + a)*q^5 - a*q^9 + (-a^2 + 1)*q^11 + 
        1/2*(a^2 + a - 1)*q^15 + (-a^2 + 1)*q^16 + 1/2*(-a^2 - a - 1)*q^20 + 
        (-a^3 + a^2 + a)*q^23 + 1/2*(2*a^3 + a^2 - a - 1)*q^25 + (-a^3 - 1)*q^27
        + (a^2 - 2)*q^31 + (-a^3 + 1)*q^33 + q^36 + (a^2 - a - 1)*q^37 + 
        a^3*q^44 + 1/2*(a^3 - 2*a^2 + 1)*q^45 + (-a^3 - a^2 + a)*q^47 + (-a^3 + 
        a)*q^49 + (a^3 - a^2 - a)*q^53 + 1/2*(-a^3 + 2*a - 1)*q^55 + (-a^3 + 
        a)*q^59 + 1/2*(-a^3 - 1)*q^60 + a^3*q^64 + (-a^2 + a + 1)*q^67 + 
        2*a*q^69 + (2*a^2 - 1)*q^71 + 1/2*(a^3 + 2*a^2 - 2*a - 1)*q^75 + 
        1/2*(-a^3 + 2*a + 1)*q^80 - a^2*q^81 + (a^2 - a - 1)*q^92 + (2*a^3 - a^2
        - a - 1)*q^93 + (-a^3 - 1)*q^97 + (-a^3 + a)*q^99 + 1/2*(-a^3 - 2*a^2 + 
        1)*q^100 + (-a^2 - a + 1)*q^103 + (-a^3 + a^2 + a)*q^108 + (a^2 - 
        2)*q^111 + (-a^2 - a + 1)*q^113 + (a^3 - a + 1)*q^115 + a^2*q^121 + 
        (-2*a^3 + a)*q^124 - q^125 + (a^3 + a^2 - a)*q^132 + 1/2*(-a^3 - a^2 - a
        + 2)*q^135 + (a^3 + a^2 - a)*q^137 + q^141 + (a^3 - a)*q^144 + (-a^3 + 
        1)*q^148 + 1/2*(a^2 - 3*a + 1)*q^155 + (a^3 + 1)*q^157 + (a^3 - a)*q^159
        + (a^2 + a - 1)*q^163 + 1/2*(a^3 - a^2 + a + 2)*q^165 + a*q^169 - 
        a^2*q^176 + (-a^2 + a + 1)*q^177 + (a^3 - 2*a)*q^179 + 1/2*(a^3 - a^2 + 
        a)*q^180 + (-2*a^2 + 1)*q^181 + 1/2*(a^3 - 3*a^2 - a + 2)*q^185 + (a^2 +
        a - 1)*q^188 + (-a^2 + 1)*q^191 + (a^2 - 1)*q^196 + (a^3 - 2*a)*q^199 + 
        (a^2 + 1)*q^201 + (a^3 + 1)*q^207 + (-a^2 + a + 1)*q^212 + 1/2*(-a^3 + 
        a^2 + a - 2)*q^220 + (a^2 + a - 1)*q^223 + 1/2*(-a^3 + a^2 + a - 
        2)*q^225 + 1/2*(-3*a^3 + 2*a + 1)*q^235 + (a^2 - 1)*q^236 + 1/2*(-a^3 + 
        a^2 + a)*q^240 + 1/2*(a^2 + a + 1)*q^245 + (a^3 - 1)*q^253 - a^2*q^256 +
        (a^3 + a^2 - a)*q^257 + 1/2*(-3*a^3 - a^2 + a)*q^265 + (a^3 - 1)*q^268 -
        a^3*q^269 + 1/2*(-a^3 + a^2 - a)*q^275 - 2*q^276 + (a^3 - 2*a)*q^279 + 
        (-a^3 - a)*q^284 - a^3*q^289 + (-2*a^2 + 1)*q^291 + 1/2*(a^2 - a + 
        1)*q^295 + 1/2*(-a^3 - a^2 - a + 2)*q^300 + (-2*a^3 + a)*q^309 + (a^2 - 
        2)*q^311 + (-a^2 - a + 1)*q^313 + (-a^2 + a + 1)*q^317 + 1/2*(a^3 + a^2 
        - a - 2)*q^320 + a*q^324 + (a^2 + 1)*q^331 + (a^3 - 1)*q^333 + 
        1/2*(-2*a^3 + a^2 + 3*a - 1)*q^335 - a*q^339 + (-2*a^2 + 1)*q^341 + 
        (2*a^2 - 1)*q^345 + (a^2 + a - 1)*q^353 + 1/2*(3*a^3 + a^2 - 3*a - 
        2)*q^355 - q^361 + (-a^3 - a^2 + a)*q^367 + (-a^3 + 1)*q^368 + (-a^3 - 
        2*a^2 + 2*a + 1)*q^372 + (a^3 - a^2 - a)*q^375 + (a^3 - 1)*q^383 + (-a^3
        + a^2 + a)*q^388 + a*q^389 + (a^2 - 1)*q^396 + (-a^2 + a + 1)*q^397 + 
        1/2*(a^3 + a^2 + a)*q^400 + a^2*q^401 + O(q^402),
    q^2 + (a^3 - a)*q^8 + 1/2*(a^3 + a^2 + a)*q^10 - a*q^18 + (-a^2 + 1)*q^22 + 
        1/2*(a^2 + a - 1)*q^30 + (-a^2 + 1)*q^32 + 1/2*(-a^2 - a - 1)*q^40 + 
        (-a^3 + a^2 + a)*q^46 + 1/2*(2*a^3 + a^2 - a - 1)*q^50 + (-a^3 - 1)*q^54
        + (a^2 - 2)*q^62 + (-a^3 + 1)*q^66 + q^72 + (a^2 - a - 1)*q^74 + 
        a^3*q^88 + 1/2*(a^3 - 2*a^2 + 1)*q^90 + (-a^3 - a^2 + a)*q^94 + (-a^3 + 
        a)*q^98 + (a^3 - a^2 - a)*q^106 + 1/2*(-a^3 + 2*a - 1)*q^110 + (-a^3 + 
        a)*q^118 + 1/2*(-a^3 - 1)*q^120 + a^3*q^128 + (-a^2 + a + 1)*q^134 + 
        2*a*q^138 + (2*a^2 - 1)*q^142 + 1/2*(a^3 + 2*a^2 - 2*a - 1)*q^150 + 
        1/2*(-a^3 + 2*a + 1)*q^160 - a^2*q^162 + (a^2 - a - 1)*q^184 + (2*a^3 - 
        a^2 - a - 1)*q^186 + (-a^3 - 1)*q^194 + (-a^3 + a)*q^198 + 1/2*(-a^3 - 
        2*a^2 + 1)*q^200 + (-a^2 - a + 1)*q^206 + (-a^3 + a^2 + a)*q^216 + (a^2 
        - 2)*q^222 + (-a^2 - a + 1)*q^226 + (a^3 - a + 1)*q^230 + a^2*q^242 + 
        (-2*a^3 + a)*q^248 - q^250 + (a^3 + a^2 - a)*q^264 + 1/2*(-a^3 - a^2 - a
        + 2)*q^270 + (a^3 + a^2 - a)*q^274 + q^282 + (a^3 - a)*q^288 + (-a^3 + 
        1)*q^296 + 1/2*(a^2 - 3*a + 1)*q^310 + (a^3 + 1)*q^314 + (a^3 - a)*q^318
        + (a^2 + a - 1)*q^326 + 1/2*(a^3 - a^2 + a + 2)*q^330 + a*q^338 - 
        a^2*q^352 + (-a^2 + a + 1)*q^354 + (a^3 - 2*a)*q^358 + 1/2*(a^3 - a^2 + 
        a)*q^360 + (-2*a^2 + 1)*q^362 + 1/2*(a^3 - 3*a^2 - a + 2)*q^370 + (a^2 +
        a - 1)*q^376 + (-a^2 + 1)*q^382 + (a^2 - 1)*q^392 + (a^3 - 2*a)*q^398 + 
        O(q^402),
    q^3 + 1/2*(-a^3 - 1)*q^5 + (-a^3 + a^2 + a)*q^9 + (a^3 + a^2 - a)*q^11 + 
        (a^3 - a)*q^12 + 1/2*(a^3 - a^2 + a)*q^15 + 1/2*(-a^3 + a^2 + a)*q^20 - 
        2*q^23 + 1/2*(-a^3 - a^2 - a + 2)*q^25 + a*q^27 + (-a^3 - 2*a^2 + 2*a + 
        1)*q^31 + (a^2 - 1)*q^33 + (a^2 - a - 1)*q^36 + (-2*a^3 + a)*q^37 + 
        (-a^2 - a + 1)*q^44 + 1/2*(2*a^3 + a^2 - a + 1)*q^45 + (a^3 - a)*q^47 + 
        (-a^2 + 1)*q^48 + (-a^2 + 1)*q^53 + 1/2*(2*a^3 - a^2 - a - 1)*q^55 + 
        (a^3 - 1)*q^59 + 1/2*(-a^2 + a - 1)*q^60 + (a^3 - 2*a)*q^67 + (a^3 - a^2
        - a)*q^69 + 1/2*(-2*a^3 + a^2 + a - 1)*q^75 + 1/2*(a^2 - a - 1)*q^80 + 
        (-2*a^3 + 2*a)*q^92 + (-a^2 + 2)*q^93 + (a^3 + a)*q^97 + 1/2*(2*a^3 + 
        a^2 - a + 1)*q^100 + (2*a^2 - 1)*q^103 - q^108 + (-a^3 - a^2 + a)*q^111 
        + q^113 + (-a^3 - a)*q^115 + (a^3 + a^2 + a - 2)*q^124 + (-a^2 + a + 
        1)*q^125 - a^3*q^132 + 1/2*(a^3 + 2*a^2 - 1)*q^135 + (-a^3 + a)*q^137 + 
        (-a^3 - 1)*q^141 + (-a^3 + 1)*q^144 + (-a^3 + a)*q^147 + (2*a^2 - 
        1)*q^148 + 1/2*(-3*a^3 + 3*a^2 + 3*a)*q^155 + (a^3 - 2*a)*q^157 + (-a^2 
        - a + 1)*q^159 + (-a^2 - 1)*q^163 + 1/2*(a^3 - 2*a - 1)*q^165 + (a^3 + 
        1)*q^176 + (a^3 - a)*q^177 + 1/2*(a^3 - 2*a^2 - 2*a + 1)*q^180 + (2*a^3 
        + a^2 - a + 1)*q^181 + 1/2*(a^3 + 3)*q^185 + (-a^2 + 1)*q^188 + (a^3 + 
        a^2 - a)*q^191 + a^3*q^192 + (-2*a^3 + a^2 + a + 1)*q^199 + (-a^3 - 
        1)*q^201 + a^3*q^212 + (2*a^2 - 1)*q^213 + 1/2*(-a^3 - 2*a^2 + 2*a + 
        1)*q^220 + 1/2*(a^3 - 1)*q^225 + 1/2*(2*a^3 - a^2 - a - 1)*q^235 + (-a^3
        - a^2 + a)*q^236 + 1/2*(-a^3 + 2*a - 1)*q^240 - a^2*q^243 + 1/2*(a^3 - 
        a^2 - a)*q^245 - 2*a^3*q^257 + 1/2*(-a^3 + 2*a^2 + 2*a - 1)*q^265 + 
        (-a^2 + 2)*q^268 + (a^2 + a - 1)*q^269 + 1/2*(-a^3 - 1)*q^275 + (-a^2 + 
        a + 1)*q^276 + (a^3 + a^2 - a)*q^291 + 1/2*(-a^3 + a^2 - a - 2)*q^295 + 
        (-a^3 + a)*q^297 + 1/2*(-a^3 + 2*a^2 - 1)*q^300 + (a^3 - 1)*q^309 + 
        (2*a^3 - 2*a)*q^317 + 1/2*(-a^3 + 1)*q^320 + (-a^3 + a^2 - a - 2)*q^331 
        - a^2*q^333 + 1/2*(a^3 - 3*a^2 - a)*q^335 + (-a^3 + 1)*q^339 + (-a^3 - 
        a^2)*q^345 - 2*a^2*q^353 + 1/2*(-a^3 - 2*a^2 + 2*a + 1)*q^355 + 
        a^2*q^363 + (a^3 + a)*q^367 + (2*a^2 - 2)*q^368 + (2*a^3 - a)*q^372 + 
        q^375 + q^383 + (-a^2 - 1)*q^388 + (a^3 - a^2 - a)*q^389 + (2*a^3 - 
        a)*q^397 + 1/2*(a^3 - 2*a^2 - 2*a + 1)*q^400 + (-a^3 - 1)*q^401 + 
        O(q^402),
    q^6 + 1/2*(-a^3 - 1)*q^10 + (-a^3 + a^2 + a)*q^18 + (a^3 + a^2 - a)*q^22 + 
        (a^3 - a)*q^24 + 1/2*(a^3 - a^2 + a)*q^30 + 1/2*(-a^3 + a^2 + a)*q^40 - 
        2*q^46 + 1/2*(-a^3 - a^2 - a + 2)*q^50 + a*q^54 + (-a^3 - 2*a^2 + 2*a + 
        1)*q^62 + (a^2 - 1)*q^66 + (a^2 - a - 1)*q^72 + (-2*a^3 + a)*q^74 + 
        (-a^2 - a + 1)*q^88 + 1/2*(2*a^3 + a^2 - a + 1)*q^90 + (a^3 - a)*q^94 + 
        (-a^2 + 1)*q^96 + (-a^2 + 1)*q^106 + 1/2*(2*a^3 - a^2 - a - 1)*q^110 + 
        (a^3 - 1)*q^118 + 1/2*(-a^2 + a - 1)*q^120 + (a^3 - 2*a)*q^134 + (a^3 - 
        a^2 - a)*q^138 + 1/2*(-2*a^3 + a^2 + a - 1)*q^150 + 1/2*(a^2 - a - 
        1)*q^160 + (-2*a^3 + 2*a)*q^184 + (-a^2 + 2)*q^186 + (a^3 + a)*q^194 + 
        1/2*(2*a^3 + a^2 - a + 1)*q^200 + (2*a^2 - 1)*q^206 - q^216 + (-a^3 - 
        a^2 + a)*q^222 + q^226 + (-a^3 - a)*q^230 + (a^3 + a^2 + a - 2)*q^248 + 
        (-a^2 + a + 1)*q^250 - a^3*q^264 + 1/2*(a^3 + 2*a^2 - 1)*q^270 + (-a^3 +
        a)*q^274 + (-a^3 - 1)*q^282 + (-a^3 + 1)*q^288 + (-a^3 + a)*q^294 + 
        (2*a^2 - 1)*q^296 + 1/2*(-3*a^3 + 3*a^2 + 3*a)*q^310 + (a^3 - 2*a)*q^314
        + (-a^2 - a + 1)*q^318 + (-a^2 - 1)*q^326 + 1/2*(a^3 - 2*a - 1)*q^330 + 
        (a^3 + 1)*q^352 + (a^3 - a)*q^354 + 1/2*(a^3 - 2*a^2 - 2*a + 1)*q^360 + 
        (2*a^3 + a^2 - a + 1)*q^362 + 1/2*(a^3 + 3)*q^370 + (-a^2 + 1)*q^376 + 
        (a^3 + a^2 - a)*q^382 + a^3*q^384 + (-2*a^3 + a^2 + a + 1)*q^398 + 
        O(q^402)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 - q^16 - q^25 + (a + 1)*q^37 + a*q^49 + q^55 + a*q^64 + (-a - 
        1)*q^67 + (-a - 1)*q^97 + a*q^100 + (a - 1)*q^103 + (-a + 1)*q^115 - 
        q^121 + (-a + 1)*q^148 + (a + 1)*q^157 + (-a + 1)*q^163 - a*q^169 + 
        q^196 - a*q^220 + (-a + 1)*q^223 + (-a - 1)*q^235 + (a - 1)*q^253 + 
        q^256 + (a - 1)*q^265 + (a - 1)*q^268 - a*q^289 + 2*a*q^295 + (a - 
        1)*q^313 - q^361 + (a + 1)*q^367 + (a - 1)*q^388 + (-a - 1)*q^397 + 
        q^400 + O(q^402),
    q^2 - a*q^8 - q^32 - q^50 + (a + 1)*q^74 + a*q^98 + q^110 + a*q^128 + (-a - 
        1)*q^134 + (-a - 1)*q^194 + a*q^200 + (a - 1)*q^206 + (-a + 1)*q^230 - 
        q^242 + (-a + 1)*q^296 + (a + 1)*q^314 + (-a + 1)*q^326 - a*q^338 + 
        q^392 + O(q^402),
    q^3 - a*q^12 + q^15 + a*q^27 - q^33 + (a - 1)*q^45 - q^48 - a*q^60 + (a - 
        1)*q^69 - q^75 + (-a - 1)*q^81 + (-a + 1)*q^99 + q^108 + (a + 1)*q^111 +
        a*q^132 - a*q^135 + (a + 1)*q^141 + a*q^147 + (-a + 1)*q^159 + q^165 - 
        2*a*q^177 + (a + 1)*q^180 + a*q^192 + (-a - 1)*q^201 - 2*a*q^207 - q^240
        + q^243 + (a + 1)*q^276 + (-a - 1)*q^291 + a*q^297 + a*q^300 + (a - 
        1)*q^309 + (a - 1)*q^324 + (a - 1)*q^339 + (-a + 1)*q^345 - q^363 - 
        q^375 + (-a - 1)*q^396 + O(q^402),
    q^5 - q^11 - a*q^20 + (a - 1)*q^23 + a*q^44 + (a + 1)*q^47 + (-a + 1)*q^53 -
        2*a*q^59 - q^80 + (a + 1)*q^92 + (a - 1)*q^113 - q^125 + (-a - 1)*q^137 
        + q^176 + (a + 1)*q^185 + (-a + 1)*q^188 + 2*q^191 + (-a - 1)*q^212 - 
        2*q^236 + a*q^245 + (-a - 1)*q^257 + 2*a*q^269 + q^275 + (-a - 1)*q^317 
        + a*q^320 + (-a - 1)*q^335 + (-a + 1)*q^353 + (-a + 1)*q^368 + (a - 
        1)*q^383 + 2*a*q^389 + 2*q^401 + O(q^402),
    q^6 - a*q^24 + q^30 + a*q^54 - q^66 + (a - 1)*q^90 - q^96 - a*q^120 + (a - 
        1)*q^138 - q^150 + (-a - 1)*q^162 + (-a + 1)*q^198 + q^216 + (a + 
        1)*q^222 + a*q^264 - a*q^270 + (a + 1)*q^282 + a*q^294 + (-a + 1)*q^318 
        + q^330 - 2*a*q^354 + (a + 1)*q^360 + a*q^384 + O(q^402),
    q^9 + (a + 1)*q^15 + (a - 1)*q^27 + (-a - 1)*q^33 - a*q^36 - q^45 + (-a + 
        1)*q^60 - 2*q^69 - a*q^81 + q^99 + (a + 1)*q^108 + (a - 1)*q^132 + 
        2*a*q^141 - q^144 + 2*q^159 + (-2*a + 2)*q^177 + a*q^180 + (-a + 
        1)*q^207 - q^225 + (-a - 1)*q^240 + 2*a*q^276 - q^324 + (a + 1)*q^333 - 
        2*q^339 + (-a - 1)*q^375 - a*q^396 + O(q^402),
    q^10 - q^22 - a*q^40 + (a - 1)*q^46 + a*q^88 + (a + 1)*q^94 + (-a + 1)*q^106
        - 2*a*q^118 - q^160 + (a + 1)*q^184 + (a - 1)*q^226 - q^250 + (-a - 
        1)*q^274 + q^352 + (a + 1)*q^370 + (-a + 1)*q^376 + 2*q^382 + O(q^402),
    q^18 + (a + 1)*q^30 + (a - 1)*q^54 + (-a - 1)*q^66 - a*q^72 - q^90 + (-a + 
        1)*q^120 - 2*q^138 - a*q^162 + q^198 + (a + 1)*q^216 + (a - 1)*q^264 + 
        2*a*q^282 - q^288 + 2*q^318 + (-2*a + 2)*q^354 + a*q^360 + O(q^402)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^25 - q^31 - q^34 - q^64 - q^70 - q^91 + q^121 + q^124 + q^130 + q^154 
        + q^166 - q^181 + q^196 + q^214 - q^220 + q^256 - q^286 - q^295 - q^301 
        - q^331 + q^334 - q^346 - q^355 + q^361 - q^364 - q^394 + O(q^402),
    q^2 + q^50 - q^62 - q^68 - q^128 - q^140 - q^182 + q^242 + q^248 + q^260 + 
        q^308 + q^332 - q^362 + q^392 + O(q^402),
    q^3 - q^12 - q^15 + q^27 - q^33 + q^48 + q^60 + q^75 - 2*q^93 - q^108 + 
        q^132 - q^135 - q^147 + q^165 + 2*q^177 - q^192 + 2*q^213 - q^240 + 
        q^243 - 2*q^267 - q^297 - q^300 + q^363 + 2*q^372 - q^375 + O(q^402),
    q^4 - q^34 - q^64 - q^70 + q^100 + q^130 - q^136 + q^154 + q^166 + q^196 + 
        q^214 - q^220 - q^280 - q^286 + q^334 - q^346 - 2*q^364 - q^394 + 
        O(q^402),
    q^5 - q^20 + q^56 - q^59 - q^71 - q^104 + q^119 + q^125 - q^155 + q^176 + 
        2*q^179 - q^221 + q^236 - q^251 - q^269 + q^284 - q^311 - q^341 - q^344 
        - q^389 + 2*q^401 + O(q^402),
    q^6 - q^24 - q^30 + q^54 - q^66 + q^96 + q^120 + q^150 - 2*q^186 - q^216 + 
        q^264 - q^270 - q^294 + q^330 + 2*q^354 - q^384 + O(q^402),
    q^7 - q^13 - q^28 + q^40 - q^43 + q^52 + q^73 + q^85 - q^88 - q^112 - q^127 
        + q^172 + q^175 - q^187 - q^193 + q^208 + q^277 + q^283 - q^292 + q^307 
        - q^325 - q^337 - q^340 + q^373 - q^385 + O(q^402),
    q^8 - q^32 + q^62 - q^68 + q^98 - q^110 - q^140 - q^182 + q^200 - q^248 + 
        q^260 + q^308 + q^332 + q^338 + q^362 - 2*q^398 + O(q^402),
    q^9 - q^36 - q^45 + q^81 - q^99 + q^144 + q^180 + q^225 - 2*q^279 - q^324 + 
        q^396 + O(q^402),
    q^10 - q^28 + q^52 - q^88 - q^118 - q^142 + q^172 + q^238 + q^250 - q^292 - 
        q^310 - q^340 + q^352 + 2*q^358 + O(q^402),
    q^11 - q^44 - q^56 - q^59 - q^71 + q^80 + 2*q^89 + q^104 - q^119 - q^155 + 
        2*q^191 + q^221 + q^236 - q^245 - q^251 - q^269 + q^275 + q^284 - q^311 
        - q^320 - q^341 + q^344 - 2*q^356 - q^389 + O(q^402),
    q^14 - q^20 - q^26 + q^44 + q^56 - q^86 - q^104 + q^146 + q^170 - q^224 - 
        q^254 + q^320 - q^344 + q^350 + 2*q^356 - q^374 - q^386 + O(q^402),
    q^16 - q^31 - q^49 + q^55 - q^64 + q^91 + q^124 - q^136 - q^169 - q^181 + 
        q^196 + 2*q^199 - q^220 + 2*q^229 - q^280 - q^289 - q^295 + q^301 - 
        q^331 - q^355 - q^364 + 2*q^379 + q^400 + O(q^402),
    q^17 + q^32 + q^35 - q^62 - q^65 - q^77 - q^83 - q^98 - q^107 + q^110 - 
        q^128 + q^143 - q^167 + q^173 + q^182 + q^197 - q^215 + q^227 - q^233 + 
        q^248 + q^263 - q^272 - q^293 - q^338 + q^347 - q^362 + q^365 + q^392 + 
        2*q^398 + O(q^402),
    q^18 - q^72 - q^90 + q^162 - q^198 + q^288 + q^360 + O(q^402),
    q^22 + q^28 - q^40 - q^52 - q^118 - q^142 + q^160 - q^172 + 2*q^178 - q^238 
        + q^292 - q^310 + q^340 + 2*q^382 + O(q^402)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
990
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 2*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
402
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^4 + 1/2*(a - 1)*q^5 - a*q^9 + a*q^11 + 1/2*(a - 2)*q^15 - 
        a*q^16 + 1/2*a*q^20 + 1/2*a*q^25 + (a - 1)*q^31 - q^36 + q^44 + 1/2*q^45
        + (-a + 1)*q^49 - 1/2*q^55 + (-a + 1)*q^59 + 1/2*(2*a - 1)*q^60 - q^64 -
        q^71 + 1/2*(-2*a + 1)*q^75 + 1/2*q^80 + (a - 1)*q^81 - 2*q^89 + (-a + 
        1)*q^99 + 1/2*q^100 + (a + 1)*q^111 + (a - 1)*q^121 + a*q^124 - q^125 + 
        1/2*(a + 1)*q^135 + (-2*a + 1)*q^141 + (a - 1)*q^144 - 1/2*a*q^155 + (a 
        + 1)*q^159 + 1/2*(-a - 1)*q^165 + a*q^169 + (-a + 1)*q^176 + q^179 + 
        1/2*(-a + 1)*q^180 + q^181 + 1/2*(-3*a + 3)*q^185 - a*q^191 - a*q^196 - 
        q^199 + (-a + 2)*q^201 + 1/2*(a - 1)*q^220 + 1/2*(-a + 1)*q^225 + (2*a -
        2)*q^229 - 3/2*q^235 - a*q^236 + 1/2*(a + 1)*q^240 + 1/2*a*q^245 + 
        2*q^251 + (a - 1)*q^256 + 1/2*(-3*a + 3)*q^265 - q^269 + 1/2*(a - 
        1)*q^275 + q^279 + (a - 1)*q^284 - q^289 + (2*a - 1)*q^291 + 1/2*a*q^295
        + 1/2*(-a - 1)*q^300 + (a - 2)*q^309 + (-a + 1)*q^311 + 1/2*(-a + 
        1)*q^320 + a*q^324 - a*q^331 - 3/2*a*q^335 + (a - 2)*q^339 - q^341 + 
        1/2*(-a + 1)*q^355 + (2*a - 2)*q^356 + q^361 + 2*q^379 + a*q^389 - 
        a*q^396 + 1/2*(-a + 1)*q^400 + (a - 1)*q^401 + O(q^402),
    q^2 + (-a + 1)*q^8 + 1/2*(a - 1)*q^10 - a*q^18 + a*q^22 + 1/2*(a - 2)*q^30 -
        a*q^32 + 1/2*a*q^40 + 1/2*a*q^50 + (a - 1)*q^62 - q^72 + q^88 + 1/2*q^90
        + (-a + 1)*q^98 - 1/2*q^110 + (-a + 1)*q^118 + 1/2*(2*a - 1)*q^120 - 
        q^128 - q^142 + 1/2*(-2*a + 1)*q^150 + 1/2*q^160 + (a - 1)*q^162 - 
        2*q^178 + (-a + 1)*q^198 + 1/2*q^200 + (a + 1)*q^222 + (a - 1)*q^242 + 
        a*q^248 - q^250 + 1/2*(a + 1)*q^270 + (-2*a + 1)*q^282 + (a - 1)*q^288 -
        1/2*a*q^310 + (a + 1)*q^318 + 1/2*(-a - 1)*q^330 + a*q^338 + (-a + 
        1)*q^352 + q^358 + 1/2*(-a + 1)*q^360 + q^362 + 1/2*(-3*a + 3)*q^370 - 
        a*q^382 - a*q^392 - q^398 + O(q^402),
    q^3 + 1/2*(-2*a + 1)*q^5 + (-a + 1)*q^12 + 1/2*(a - 1)*q^15 + 1/2*(-a - 
        1)*q^20 + 1/2*(a + 1)*q^25 - a*q^27 + a*q^33 + (a - 2)*q^37 + 1/2*(a - 
        2)*q^45 + (a + 1)*q^47 - a*q^48 + (a - 2)*q^53 + 1/2*(-a + 2)*q^55 + 
        1/2*a*q^60 + (2*a - 1)*q^67 + 1/2*a*q^75 + 1/2*(a - 2)*q^80 + (a - 
        1)*q^93 + (-a - 1)*q^97 + 1/2*(-a + 2)*q^100 + (-2*a + 1)*q^103 - q^108 
        + (-2*a + 1)*q^113 + q^132 + 1/2*q^135 + (a + 1)*q^137 + (-a + 1)*q^147 
        + (2*a - 1)*q^148 + 1/2*(a + 1)*q^155 + (-2*a + 1)*q^157 + (-a + 
        2)*q^163 - 1/2*q^165 + (-a + 1)*q^177 + 1/2*(2*a - 1)*q^180 + 1/2*(-2*a 
        + 1)*q^185 + (-a + 2)*q^188 - q^192 + (2*a - 1)*q^212 - q^213 + 
        1/2*(-2*a + 1)*q^220 + 1/2*(-2*a + 1)*q^225 + 1/2*(a - 2)*q^235 + 
        1/2*q^240 + (a - 1)*q^243 + 1/2*(-a - 1)*q^245 + 1/2*(-2*a + 1)*q^265 - 
        2*q^267 + (a + 1)*q^268 + 1/2*(2*a - 1)*q^275 + 1/2*(-a - 1)*q^295 + (-a
        + 1)*q^297 + 1/2*q^300 + 1/2*(2*a - 1)*q^320 + (a + 1)*q^333 + 1/2*(-a -
        1)*q^335 + 1/2*(2*a - 1)*q^355 + (a - 1)*q^363 + (a + 1)*q^367 + a*q^372
        - q^375 + (2*a - 1)*q^383 + (a - 2)*q^388 + (a - 2)*q^397 + 1/2*(-2*a + 
        1)*q^400 + O(q^402),
    q^6 + 1/2*(-2*a + 1)*q^10 + (-a + 1)*q^24 + 1/2*(a - 1)*q^30 + 1/2*(-a - 
        1)*q^40 + 1/2*(a + 1)*q^50 - a*q^54 + a*q^66 + (a - 2)*q^74 + 1/2*(a - 
        2)*q^90 + (a + 1)*q^94 - a*q^96 + (a - 2)*q^106 + 1/2*(-a + 2)*q^110 + 
        1/2*a*q^120 + (2*a - 1)*q^134 + 1/2*a*q^150 + 1/2*(a - 2)*q^160 + (a - 
        1)*q^186 + (-a - 1)*q^194 + 1/2*(-a + 2)*q^200 + (-2*a + 1)*q^206 - 
        q^216 + (-2*a + 1)*q^226 + q^264 + 1/2*q^270 + (a + 1)*q^274 + (-a + 
        1)*q^294 + (2*a - 1)*q^296 + 1/2*(a + 1)*q^310 + (-2*a + 1)*q^314 + (-a 
        + 2)*q^326 - 1/2*q^330 + (-a + 1)*q^354 + 1/2*(2*a - 1)*q^360 + 
        1/2*(-2*a + 1)*q^370 + (-a + 2)*q^376 - q^384 + O(q^402)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
991
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
990
);
qprec:=
165
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
991
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
330
);
qprec:=
165
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
991
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
198
);
qprec:=
165
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
991
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
110
);
qprec:=
165
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
991
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
165
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
991
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
165
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
991
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
33*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
165
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
991
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
45*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
165
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
991
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
55*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
165
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
991
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
99*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
165
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
991
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
165*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
165
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
991
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
495*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
165
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^26 + q^29 - q^32 - q^38 + q^43 + q^49 + q^52 - q^59 - q^62 - 
        q^65 - q^67 - q^71 - q^76 + q^81 - q^101 - q^106 + q^121 - q^122 - q^124
        - q^130 + q^137 - q^157 + q^158 + O(q^165),
    q^2 + q^18 - q^31 - q^38 - q^40 + q^50 - q^61 - q^65 + q^98 - q^100 - q^106 
        + q^125 + q^127 + q^139 + q^145 - q^155 + q^162 - q^163 + O(q^165),
    q^4 - q^19 - q^20 + q^36 - q^50 - q^53 + q^65 + q^67 + q^95 + q^100 + q^101 
        - q^113 - q^118 - q^142 - q^145 + q^157 + O(q^165),
    q^5 - q^16 - q^19 + q^45 + q^52 - q^53 + q^58 - q^62 + q^86 + q^104 - q^113 
        - q^122 + q^125 - q^130 - q^144 - q^145 + q^160 + O(q^165),
    q^8 - q^16 - q^19 - q^20 + q^31 + q^32 + q^38 + q^40 - q^50 - q^53 + q^61 - 
        q^62 - q^64 + q^65 + q^72 - q^76 - q^80 + q^100 + q^106 - q^113 - q^118 
        - q^122 + q^124 + q^128 + q^134 - q^142 - q^144 - q^145 + q^152 + q^155 
        + q^160 + q^163 + O(q^165),
    q^10 - q^16 - q^19 - q^20 + q^26 + q^29 + q^40 + q^43 - q^50 + q^52 - q^53 -
        q^62 - q^64 - q^76 + q^90 + q^95 + q^100 + q^104 - q^113 + q^116 - q^118
        - q^122 + q^128 - q^130 + q^137 - q^142 - q^144 - q^145 + q^152 + q^158 
        + q^160 + O(q^165),
    q^13 - q^16 - q^19 + q^26 + q^40 - q^50 + q^52 - q^53 + q^58 - q^62 - q^64 -
        q^76 + q^79 + q^86 + q^104 + q^107 - q^113 + q^116 + q^117 - q^118 - 
        q^122 - q^130 - q^142 - q^144 - q^145 + q^155 + q^158 + q^160 + 
        O(q^165),
    q^25 - q^26 - q^29 + q^32 + q^38 - q^43 - q^52 + q^59 + q^71 - q^80 - q^95 +
        q^106 + q^124 - q^137 - q^158 + O(q^165)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
120
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
120
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 + a^2 + 1)*q^5 + (-a^2 + a - 1)*q^13 - a^2*q^17 + (a^3 - a^2 + a -
        1)*q^21 + (-a^3 + a^2 + 1)*q^25 + (a^3 - 1)*q^29 - q^37 + a^2*q^53 + 
        q^57 - a*q^65 + a^3*q^69 + (a - 1)*q^73 + (-a^3 + a^2 - a + 1)*q^81 + 
        (-a^3 - a)*q^85 + (-a + 1)*q^89 + q^93 - a^3*q^97 + (a^3 - 1)*q^105 - 
        a*q^109 + (a^3 + a - 1)*q^113 - a*q^121 + q^125 + (a^3 - a^2 - 1)*q^129 
        - a^2*q^133 + (-a^3 - a)*q^141 + (2*a^3 - a^2 + a - 2)*q^145 + (-a^3 + 
        a^2)*q^149 + q^161 + (-a^3 + a^2 - a)*q^169 + (a^2 + 1)*q^173 + 
        a^2*q^177 + q^181 + (a^3 - a^2 - 1)*q^185 - a*q^189 + (a - 1)*q^193 + 
        a^3*q^197 + a*q^201 + (-a + 1)*q^213 - a^2*q^217 + (a - 1)*q^221 + (-a^2
        - 1)*q^233 - a^3*q^241 + O(q^242),
    q^3 - a^2*q^7 + (-a^3 + a^2 + 1)*q^15 + a^3*q^19 - a*q^23 + a^2*q^27 + 
        a^3*q^31 + (-a^3 - a)*q^35 + (-a^2 + a - 1)*q^39 + (-a^3 - a + 1)*q^43 +
        (-a^3 + a^2 + 1)*q^47 - a^2*q^51 - q^59 + (a^3 - a^2 + a - 1)*q^67 + 
        (a^2 - a + 1)*q^71 + (-a^3 + a^2 + 1)*q^75 + (a - 1)*q^83 + (a^3 - 
        1)*q^87 + (a - 1)*q^91 + (a^3 + a - 1)*q^95 + (-a^3 - a + 1)*q^103 + 
        (a^2 + 1)*q^107 - q^111 + (-a^2 - 1)*q^115 + (a^3 - a^2 + a - 1)*q^119 -
        q^127 + (a^3 - a^2 + a)*q^131 + (a^3 + a)*q^135 + (a^3 - a^2 - 1)*q^139 
        + (a^3 - a^2 + a)*q^151 + (a^3 + a - 1)*q^155 + a^2*q^159 - a*q^163 + 
        (-a^3 - a)*q^175 + (-a^3 + a^2 - a)*q^179 + (-a^2 + a)*q^191 - a*q^195 -
        q^199 + (a^2 + 1)*q^203 + (-2*a^3 - a + 1)*q^215 + (a - 1)*q^219 + (-a^3
        + a^2 - a + 1)*q^223 + (-a + 1)*q^227 + (-a^3 + a^2 + 2)*q^235 + 
        O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^5 + (-a + 1)*q^13 - a*q^17 + (a - 1)*q^21 - q^33 - a*q^37 + (a
        - 1)*q^41 + (-a + 1)*q^53 + (-a + 1)*q^57 + a*q^65 + (a - 1)*q^73 + q^77
        + a*q^81 + q^85 + a*q^93 - a*q^105 + (-a + 1)*q^113 - q^125 + (-a + 
        1)*q^129 + (a - 1)*q^133 + (a - 1)*q^137 - a*q^149 + (-a + 1)*q^165 + (a
        - 1)*q^173 + (a - 1)*q^177 + (a - 1)*q^181 + q^185 - a*q^189 - a*q^193 +
        (-a + 1)*q^197 - q^201 - a*q^205 - q^209 + q^213 - a*q^217 - q^221 + 
        a*q^229 + (a - 1)*q^237 + a*q^241 + O(q^242),
    q^2 + (a - 1)*q^10 + (-a + 1)*q^26 - a*q^34 + (a - 1)*q^42 - q^66 - a*q^74 +
        (a - 1)*q^82 + (-a + 1)*q^106 + (-a + 1)*q^114 + a*q^130 + (a - 1)*q^146
        + q^154 + a*q^162 + q^170 + a*q^186 - a*q^210 + (-a + 1)*q^226 + 
        O(q^242),
    q^3 - q^7 - a*q^11 + (a - 1)*q^15 + q^19 + (a - 1)*q^27 + (a - 1)*q^31 + (-a
        + 1)*q^35 + (-a + 1)*q^39 + q^43 - a*q^51 + q^55 - q^59 - a*q^67 + 
        a*q^71 - q^79 + a*q^83 + (a - 1)*q^91 + (a - 1)*q^95 - a*q^103 + q^107 -
        a*q^111 + a*q^119 + (a - 1)*q^123 + q^127 + q^131 - a*q^135 - q^143 + 
        (-2*a + 2)*q^151 - a*q^155 + (-a + 1)*q^159 + q^167 - q^179 + (a - 
        1)*q^187 + a*q^191 + a*q^195 + a*q^199 - q^211 + (a - 1)*q^215 + (a - 
        1)*q^219 - q^223 - a*q^227 + q^231 - a*q^239 + O(q^242),
    q^4 + (a - 1)*q^20 + (-a + 1)*q^52 - a*q^68 + (a - 1)*q^84 - q^132 - a*q^148
        + (a - 1)*q^164 + (-a + 1)*q^212 + (-a + 1)*q^228 + O(q^242),
    q^6 - q^14 - a*q^22 + (a - 1)*q^30 + q^38 + (a - 1)*q^54 + (a - 1)*q^62 + 
        (-a + 1)*q^70 + (-a + 1)*q^78 + q^86 - a*q^102 + q^110 - q^118 - a*q^134
        + a*q^142 - q^158 + a*q^166 + (a - 1)*q^182 + (a - 1)*q^190 - a*q^206 + 
        q^214 - a*q^222 + a*q^238 + O(q^242),
    q^8 - q^32 + (a - 1)*q^40 - a*q^48 + (-a + 1)*q^104 + a*q^112 + q^128 - 
        a*q^136 + (-a + 1)*q^160 + (a - 1)*q^168 + (a - 1)*q^176 + a*q^192 + 
        q^240 + O(q^242),
    q^12 - q^28 - a*q^44 + (a - 1)*q^60 + q^76 + (a - 1)*q^108 + (a - 1)*q^124 +
        (-a + 1)*q^140 + (-a + 1)*q^156 + q^172 - a*q^204 + q^220 - q^236 + 
        O(q^242),
    q^16 + a*q^24 - a*q^56 - q^64 + (a - 1)*q^80 + (-a + 1)*q^88 - a*q^96 - 
        q^120 + a*q^152 + (-a + 1)*q^208 - q^216 + a*q^224 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 + q^9 - q^41 - q^45 + q^81 - q^97 - q^101 - q^109 - q^113 + q^121 + 
        q^125 + q^133 + 2*q^149 - q^157 + q^169 + 2*q^173 - q^193 + q^205 - 
        q^217 - q^233 + O(q^242),
    q^2 - q^10 + q^18 - q^82 - q^90 + q^162 - q^194 - q^202 - q^218 - q^226 + 
        O(q^242),
    q^4 - q^20 - q^28 + q^36 - q^76 + q^124 + q^140 - q^164 - q^180 + 2*q^188 - 
        q^236 + O(q^242),
    q^7 + q^19 - q^31 - q^35 - 2*q^47 + q^59 + q^63 - 2*q^67 + q^71 - q^95 + 
        q^103 + q^107 - 2*q^131 + q^155 + q^163 + q^171 + q^191 + q^211 - 
        2*q^227 + 2*q^235 + O(q^242),
    q^8 - q^40 - q^56 + q^72 - q^152 + O(q^242),
    q^14 + q^38 - q^62 - q^70 - 2*q^94 + q^118 + q^126 - 2*q^134 + q^142 - q^190
        + q^206 + q^214 + O(q^242),
    q^16 - q^64 - q^80 - q^112 + q^128 + q^144 + O(q^242),
    q^32 - q^64 - q^160 - q^224 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^8 + a^3*q^9 - a^2*q^10 + a*q^14 - a*q^20 + a*q^25 + a^3*q^28 - 
        q^31 + (-a^3 - 1)*q^35 - a^3*q^38 + (-a^3 - a)*q^47 + a^2*q^49 + q^50 - 
        q^64 + (-a^2 - a)*q^67 - a^2*q^70 - a*q^72 + a^2*q^76 + q^80 - a^2*q^81 
        - a^3*q^82 + a*q^90 - q^98 - q^100 + a^3*q^112 + a^3*q^118 - a*q^121 + 
        (a^3 + 1)*q^125 - q^126 + (a^2 + a)*q^131 + (a + 1)*q^133 - a^3*q^140 + 
        q^142 + (a^3 + a^2)*q^149 - a^3*q^160 + a*q^164 - a^3*q^169 + (-a^2 + 
        a)*q^173 + (a^3 + a)*q^175 + q^180 - a*q^190 + a*q^194 + a^2*q^196 + 
        a^3*q^200 - a*q^202 + (a^2 - a)*q^205 - a^2*q^206 + q^214 + a^2*q^218 - 
        a*q^224 - q^225 + a^3*q^226 + (a^3 + 1)*q^227 + q^236 + O(q^242),
    q^2 + a^3*q^5 + a*q^7 + a^2*q^16 + a^3*q^18 + q^19 - a^2*q^20 + a^2*q^25 + 
        a*q^28 - a*q^35 - a*q^40 - a^3*q^41 - a^2*q^45 + q^49 + a*q^50 + 
        a^3*q^56 - a^2*q^59 - q^62 - q^63 + (-a^3 - 1)*q^70 + a^2*q^71 - 
        a^3*q^76 + (-a^3 - a)*q^94 + a^3*q^95 - a^3*q^97 + a^2*q^98 + q^100 - 
        q^101 - q^103 - a*q^107 - a*q^109 + a*q^113 - q^125 - q^128 - a^2*q^133 
        + (-a^2 - a)*q^134 - a^2*q^140 - a*q^144 + a^2*q^152 - a^3*q^155 + 
        a*q^157 + q^160 - a^2*q^162 - a^3*q^163 - a^3*q^164 + a^3*q^171 + (-a^3 
        + a^2)*q^175 + a*q^180 + a*q^191 + a^2*q^193 - q^196 - q^200 + a^3*q^205
        - a^2*q^211 - a*q^217 + a^3*q^224 - a*q^225 + a*q^233 + (a^2 + 1)*q^235 
        + a^3*q^236 + O(q^242),
    q^4 - q^5 - a^3*q^7 + a^3*q^10 + a*q^14 - a*q^19 - a^2*q^25 + a^2*q^32 - 
        q^35 + a^3*q^36 + q^38 - a^2*q^40 - a*q^41 - a^3*q^45 + a^2*q^49 + 
        a^2*q^50 + a*q^56 + a*q^59 + a^2*q^63 - a*q^70 - a^2*q^71 - a*q^80 - 
        a^3*q^82 - a^2*q^90 + a^3*q^95 - a^3*q^97 + q^98 + a*q^100 + a^3*q^101 -
        q^103 - a^2*q^107 + q^109 + a^3*q^112 + a*q^113 - a^2*q^118 - q^124 - 
        a*q^125 - q^126 + a*q^133 + (-a^3 - 1)*q^140 + a^2*q^142 - a^3*q^152 + 
        q^155 + q^157 + a^2*q^163 + q^171 + (a^3 + 1)*q^175 + (-a^3 - a)*q^188 +
        a^3*q^190 - a*q^191 - q^193 - a^3*q^194 + a^2*q^196 + q^200 - q^202 + 
        a^2*q^205 - q^206 - a^3*q^211 - a*q^214 + a^3*q^217 - a*q^218 + a*q^225 
        + a*q^226 + a^3*q^233 + (a^3 + a)*q^235 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^9 + a*q^25 + q^31 + (-a + 1)*q^35 - q^49 + (a - 1)*q^67 - q^81 - 
        2*q^95 + a*q^121 + (-a + 1)*q^125 + (a - 1)*q^131 + (a + 1)*q^133 + (-a 
        - 1)*q^149 - a*q^169 + (a - 1)*q^173 + (a - 1)*q^205 + q^225 + (-a + 
        1)*q^227 + O(q^242),
    q^2 - q^16 - a*q^18 - q^20 + a*q^28 + a*q^40 + a*q^50 - a*q^56 + q^62 + (-a 
        + 1)*q^70 - a*q^76 - q^98 + q^100 + q^128 + (a - 1)*q^134 - q^140 + 
        a*q^144 - q^152 + q^160 - q^162 - a*q^164 + a*q^180 - 2*q^190 + q^196 + 
        q^200 - a*q^224 - a*q^236 + O(q^242),
    q^4 - a*q^10 + a*q^14 - q^32 - a*q^36 + q^38 - q^40 - q^50 + a*q^56 + a*q^70
        + a*q^80 - a*q^82 - q^90 + q^98 + a*q^100 - a*q^112 - q^118 + q^124 + 
        q^126 + (-a + 1)*q^140 - q^142 - a*q^152 - a*q^190 - a*q^194 - q^196 + 
        q^200 + q^202 + q^206 + a*q^214 + a*q^218 + a*q^226 + O(q^242),
    q^5 + a*q^19 + (-a - 1)*q^25 + a*q^35 - a*q^45 - q^59 + (-a - 1)*q^71 + (-a 
        + 1)*q^95 + (-a + 1)*q^97 + q^101 + (a + 1)*q^103 - q^107 + a*q^109 + (a
        - 1)*q^113 + a*q^125 - q^133 + q^155 + a*q^157 - a*q^163 + q^171 + (-a +
        1)*q^175 + (a - 1)*q^191 - a*q^205 - a*q^211 + (a - 1)*q^225 + O(q^242),
    q^7 - q^25 + (a + 1)*q^35 - q^41 - a*q^49 + (a - 1)*q^59 - a*q^63 - q^71 - 
        a*q^95 - a*q^97 + (-a + 1)*q^101 + q^103 + (a + 1)*q^109 + a*q^113 + (a 
        - 1)*q^133 + (a + 1)*q^157 + (-a - 1)*q^163 + a*q^191 + a*q^193 + (-a - 
        1)*q^205 + q^217 + a*q^225 + q^233 + O(q^242),
    q^8 + q^10 - a*q^14 - a*q^20 + a*q^28 + a*q^38 - q^50 - q^64 + q^70 - a*q^72
        + q^76 - q^80 + a*q^82 - a*q^90 - q^98 - q^100 + a*q^112 + a*q^118 - 
        q^126 + a*q^140 - q^142 + a*q^160 - a*q^164 - q^180 - a*q^190 - a*q^194 
        + q^196 + a*q^200 - a*q^202 + q^206 - q^214 + q^218 - a*q^224 + a*q^226 
        - q^236 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
992
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^33 + q^39 + q^47 - q^71 - q^87 - q^95 + q^103 - q^111 - q^129 - q^143 
        + q^159 + q^175 - q^183 - q^193 + q^225 + O(q^242),
    q^3 - q^11 + q^13 - q^29 - q^37 - q^43 + q^53 - q^61 + q^75 + q^83 + q^93 - 
        q^99 + q^117 + q^139 - q^147 + q^179 + q^181 - q^197 - 2*q^213 - q^229 +
        O(q^242),
    q^5 + q^19 - q^35 - q^45 + q^59 - q^101 - q^107 + q^109 - q^125 - q^133 - 
        q^155 + q^157 - q^163 - q^171 + q^205 + q^211 + 2*q^235 + O(q^242),
    q^7 + q^25 - q^41 + q^49 - q^63 - q^71 + q^95 - q^97 - q^103 - q^113 + q^191
        + q^193 - q^217 - q^225 - q^233 + O(q^242),
    q^9 + q^25 + q^31 - q^33 + q^39 - q^47 - q^49 - q^71 - q^81 - q^87 + q^95 + 
        q^103 - q^111 + q^121 - q^129 - q^143 + q^159 + q^169 - q^175 - q^183 - 
        q^193 + O(q^242)
]
;
Bo:=
[
    q - q^33 - q^39 - q^47 + q^71 + q^87 + q^95 - q^103 + q^111 - q^129 + q^143 
        - q^159 - q^175 + q^183 - q^193 + q^225 + O(q^242),
    q^2 - q^66 - q^78 - q^94 + q^142 + q^174 + q^190 - q^206 + q^222 + O(q^242),
    q^3 - q^11 - q^13 + q^29 + q^37 - q^43 - q^53 + q^61 + q^75 + q^83 - q^93 - 
        q^99 - q^117 + q^139 - q^147 + q^179 - q^181 + q^197 + 2*q^213 + q^229 +
        O(q^242),
    q^4 + q^32 - q^36 + q^40 - q^56 - q^80 - q^100 - q^112 + q^124 - q^152 - 
        2*q^188 + q^196 + q^200 + O(q^242),
    q^5 - q^19 + q^35 - q^45 - q^59 - q^101 + q^107 + q^109 - q^125 - q^133 + 
        q^155 + q^157 + q^163 + q^171 + q^205 - q^211 - 2*q^235 + O(q^242),
    q^6 - q^22 - q^26 + q^58 + q^74 - q^86 - q^106 + q^122 + q^150 + q^166 - 
        q^186 - q^198 - q^234 + O(q^242),
    q^7 - q^25 + q^41 - q^49 - q^63 - q^71 + q^95 + q^97 - q^103 + q^113 + q^191
        - q^193 + q^217 + q^225 + q^233 + O(q^242),
    q^8 - q^28 + q^32 - q^36 - q^56 - q^112 + q^124 + q^128 + q^132 - q^144 + 
        q^156 - q^164 - q^188 + 2*q^196 + q^200 - q^224 + O(q^242),
    q^9 + q^25 - q^31 - q^33 - q^39 + q^47 - q^49 + q^71 - q^81 + q^87 - q^95 - 
        q^103 + q^111 + q^121 - q^129 + q^143 - q^159 + q^169 + q^175 + q^183 - 
        q^193 + O(q^242),
    q^10 - q^38 + q^70 - q^90 - q^118 - q^202 + q^214 + q^218 + O(q^242),
    q^12 - q^24 - q^44 + q^48 - q^52 + q^88 - q^96 + q^104 + q^116 + q^148 - 
        q^172 - q^176 + q^192 - q^208 - q^212 - q^232 + O(q^242),
    q^14 - q^50 + q^82 - q^98 - q^126 - q^142 + q^190 + q^194 - q^206 + q^226 + 
        O(q^242),
    q^16 - q^28 - q^32 + q^36 - q^40 + q^64 - q^72 + q^80 + 2*q^100 - q^124 - 
        q^132 + q^152 - q^156 - q^164 + q^188 - q^200 - q^224 + O(q^242),
    q^18 + q^50 - q^62 - q^66 - q^78 + q^94 - q^98 + q^142 - q^162 + q^174 - 
        q^190 - q^206 + q^222 + O(q^242),
    q^20 + q^32 - q^36 - q^56 - q^64 + q^72 - q^76 - q^80 - q^100 + q^124 + 
        q^128 + q^132 + q^140 - q^144 + q^156 + q^160 - q^180 - q^188 + q^196 + 
        2*q^200 - q^236 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
993
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
219
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
993
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
330
);
qprec:=
219
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
993
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
330
);
qprec:=
219
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
993
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
110
);
qprec:=
219
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
993
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
219
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
993
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
110
);
qprec:=
219
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^3 + a^22*q^4 + (-a^36 + a^25 - a^14 - a^5 + a^3)*q^7 + a^2*q^9 - 
        a^23*q^12 + (-a^39 - a^36 + a^34 + a^31 - a^30 - 2*a^29 + a^28 - a^26 + 
        a^25 + a^24 - a^23 + a^21 - a^20 + a^18 - a^17 - a^16 + a^15 - a^13 + 
        a^12 + a^11 - a^10 - a^7 + a^5 + a^2 - 1)*q^13 + (a^33 - a^22 + a^11 - 
        1)*q^16 + (a^16 + a^12)*q^19 + (a^37 - a^26 + a^15 + a^6 - a^4)*q^21 + 
        a^32*q^25 - a^3*q^27 + (-a^27 + a^14)*q^28 + (-a^37 + a^18)*q^31 + 
        a^24*q^36 + (a^39 - a^37 - a^34 + a^32 + a^29 - a^28 - a^27 + a^26 - 
        a^24 + a^23 + a^22 - a^21 + a^20 + a^19 - a^18 + a^16 - a^15 - a^14 + 
        a^13 - a^11 + a^10 + a^9 - a^8 - a^5 + a^3 + 1)*q^37 + (-a^39 + a^37 + 
        a^34 - a^32 + a^31 + a^30 - a^29 + a^28 + a^27 - a^26 + a^24 - a^23 - 
        a^22 + a^21 - a^20 - a^19 + a^18 - a^16 + a^15 + a^14 - a^13 + a^11 - 
        a^10 + a^8 + a^5 - a^3 - 1)*q^39 + (a^39 - a^28 + a^17 - a^9 - a^6)*q^43
        + (-a^34 + a^23 - a^12 + a)*q^48 + (a^36 - a^34 - a^31 + a^29 - a^28 + 
        a^26 - a^25 - a^24 + a^23 - a^21 + a^20 + a^19 - a^18 + a^17 + a^16 - 
        a^15 + a^13 - a^12 - a^11 + 2*a^10 - a^8 + a^7 - a^5 - a^2 + 1)*q^49 + 
        (a^39 - a^35 - a^34 + a^30 + a^29 - a^28 - a^25 + a^23 + a^20 - a^18 + 
        a^17 - a^15 - a^12 + a^10 + a^8 + a^7 - a^6 - a^5 + a + 1)*q^52 + (-a^17
        - a^13)*q^57 + (-a^35 - a^25)*q^61 + (-a^38 + a^27 - a^16 - a^7 + 
        a^5)*q^63 - a^11*q^64 + (a^36 - a^31)*q^67 + (-2*a^39 - a^38 + a^35 + 
        2*a^34 + a^33 - a^32 - a^30 - a^29 + a^28 + a^27 + a^25 + a^24 - a^23 - 
        a^22 + a^21 - a^20 - a^19 - a^17 - a^16 + a^15 + a^14 + a^12 + a^11 - 
        2*a^10 - a^9 + a^6 + 2*a^5 + a^4 - a - 2)*q^73 - a^33*q^75 + (a^38 + 
        a^34)*q^76 + (a^26 - a^19)*q^79 + a^4*q^81 + (a^28 - a^15)*q^84 + (a^35 
        + a^34 - a^33 - a^24 - a^21 + a^13 - a^2)*q^91 + (a^38 - a^19)*q^93 + 
        (a^26 - a^15)*q^97 + (a^39 + a^38 - a^34 - a^33 + a^29 - a^27 - a^24 + 
        a^22 + a^19 + a^16 - a^14 - a^11 + a^9 - a^5 - a^4 + 1)*q^100 + (a^35 + 
        a^28 - a^24 + a^13 - a^2)*q^103 - a^25*q^108 + (-a^35 - a^7)*q^109 + 
        (a^39 + a^38 - a^34 - a^33 + a^29 - a^27 - a^24 + a^22 - a^21 + a^19 + 
        a^16 - a^14 - a^11 + a^9 - a^5 - a^4 + 1)*q^111 + (-a^38 + a^36 + a^27 -
        a^16 + a^5)*q^112 + (-a^39 - a^38 + a^34 + a^33 - a^32 - a^31 - a^29 + 
        a^27 + a^24 - a^22 + a^21 - a^19 - a^16 + a^14 + a^11 - a^10 - a^9 + a^5
        + a^4 - 1)*q^117 + (a^39 + a^38 - a^34 - a^33 + a^29 - a^27 - a^24 + 
        a^22 + a^19 + a^16 - a^14 - a^11 + a^9 - a^5 - a^4 + 1)*q^121 + (-a^39 +
        a^35 + a^34 - a^30 + a^28 + a^25 - a^23 - a^20 - a^17 + a^15 + a^12 - 
        a^10 + a^6 + a^5 + a^4 - a - 1)*q^124 + (-a^39 - a^34 + a^23 - a^12 + 
        a)*q^127 + (a^39 - a^35 - a^34 + a^30 + a^29 - a^28 - a^25 + a^23 + a^20
        - a^18 + a^17 - a^15 - a^12 + 2*a^10 + a^7 - a^6 - a^5 + a + 1)*q^129 + 
        (-a^21 - a^17 + a^8 + a^4)*q^133 + (-a^13 - a^11)*q^139 + (a^35 - a^24 +
        a^13 - a^2)*q^144 + (-a^37 + a^35 + a^32 - a^30 + a^29 - a^27 + a^26 + 
        a^25 - a^24 + a^22 - a^21 - a^20 + a^19 - a^18 - a^17 + a^16 - a^14 + 
        a^13 + a^12 - 2*a^11 + a^9 - a^8 + a^6 + a^3 - a)*q^147 + (-a^39 + a^37 
        + a^34 - a^32 + a^31 - a^29 + a^28 + a^27 - a^26 + a^24 - a^23 - a^22 + 
        a^21 - a^19 + a^18 - a^16 + a^15 + a^14 - a^13 + a^11 - a^10 + a^8 + a^5
        - a^3 - 1)*q^148 + (a^39 + a^30 - a^28 + a^17 - a^6)*q^151 + (a^39 + 
        a^36 - a^34 - a^31 + a^29 - a^28 + a^26 - a^25 - a^24 + a^23 - a^21 + 
        a^20 + a^19 - a^18 + a^17 + a^16 - a^15 + a^13 - a^12 - a^11 + a^10 - 
        a^9 - a^8 + a^7 - a^5 - a^2 + 1)*q^156 + (-a^39 - a^38 + a^34 + a^33 - 
        a^32 - a^29 + a^28 + a^27 + a^24 - a^22 + a^21 - a^19 - a^16 + a^14 + 
        a^11 - a^10 - a^9 + a^5 + a^4 - 1)*q^157 + (a^39 + a^36 - a^34 - a^31 + 
        a^29 - a^28 + a^26 - a^25 - a^24 + a^23 - a^21 + a^20 + a^19 - a^18 + 
        a^17 + a^16 - a^15 - a^12 - a^11 + a^10 - a^8 + a^7 - a^5 - a^2 + 
        1)*q^163 + (-a^27 - a^15 - a^3)*q^169 + (a^18 + a^14)*q^171 + (-a^31 - 
        a^17)*q^172 + (-a^37 + a^24)*q^175 + (a^24 - a^9)*q^181 + (a^36 + 
        a^26)*q^183 + (a^39 - a^28 + a^17 + a^8 - a^6)*q^189 + a^12*q^192 + 
        (a^37 - a^26 + a^16 + a^15 - a^4)*q^193 + (a^32 - a^19 + a^6)*q^196 + 
        (a^39 - a^38 - a^35 - a^34 + a^30 + a^29 - a^28 + a^27 - a^25 + a^23 + 
        a^20 - a^18 + a^17 - a^16 - a^15 - a^12 + a^10 + a^7 - a^6 + a + 
        1)*q^199 + (-a^37 + a^32)*q^201 + (a^30 + a^18)*q^208 + (a^38 - 
        a^7)*q^211 + (-a^39 + a^37 + a^34 - a^32 + a^31 - 2*a^29 + a^28 + a^27 -
        a^26 + a^24 - 2*a^23 - a^22 + a^21 - a^20 - a^19 + a^18 - a^16 + a^15 + 
        a^14 - a^13 + a^11 + a^8 + a^5 - a^3 - 1)*q^217 + O(q^219)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
993
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
219
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
993
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
219
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
993
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
219
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
993
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 22*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
219
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
993
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 30*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
219
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^3 + q^4 + (-a^5 - a^3)*q^7 + a^2*q^9 - a*q^12 + (a^8 - a^7)*q^13 + 
        q^16 + (-a^5 - a)*q^19 + (a^6 + a^4)*q^21 + (a^9 - a^8 + a^7 - a^6 + a^5
        - a^4 + a^3 - a^2 + a - 1)*q^25 - a^3*q^27 + (-a^5 - a^3)*q^28 + (-a^7 +
        a^4)*q^31 + a^2*q^36 - 2*a^9*q^37 + (-a^9 + a^8)*q^39 + (-a^9 + 
        a^6)*q^43 - a*q^48 + (a^9 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^49 + 
        (a^8 - a^7)*q^52 + (a^6 + a^2)*q^57 + (-a^3 + a^2)*q^61 + (-a^7 - 
        a^5)*q^63 + q^64 + (-a^9 - a^3)*q^67 + (a^9 - a^8 - a^6 + a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^73 + q^75 + (-a^5 - a)*q^76 + (a^8 + a^4)*q^79 + 
        a^4*q^81 + (a^6 + a^4)*q^84 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + 
        a^3)*q^91 + (a^8 - a^5)*q^93 + 2*a^4*q^97 + (a^9 - a^8 + a^7 - a^6 + a^5
        - a^4 + a^3 - a^2 + a - 1)*q^100 + (a^6 + a^2)*q^103 - a^3*q^108 + (-a^7
        + a^2)*q^109 + (2*a^9 - 2*a^8 + 2*a^7 - 2*a^6 + 2*a^5 - 2*a^4 + 2*a^3 - 
        2*a^2 + 2*a - 2)*q^111 + (-a^5 - a^3)*q^112 + (-a^8 + a^7 - a^6 + a^5 - 
        a^4 + a^3 - a^2 + a - 1)*q^117 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^121 + (-a^7 + a^4)*q^124 + (a^6 - a)*q^127 + (a^9 -
        a^8 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^129 + (a^9 + a^7 + a^5 + 
        a^3 - a^2 + a - 1)*q^133 + (a^2 + 1)*q^139 + a^2*q^144 + (-a^9 - a^7 + 
        1)*q^147 - 2*a^9*q^148 + (a^8 + a^6)*q^151 + (-a^9 + a^8)*q^156 + (a^9 -
        a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^157 + (a^8 + a^2)*q^163 + 
        (-a^5 + a^4 - a^3)*q^169 + (-a^7 - a^3)*q^171 + (-a^9 + a^6)*q^172 + 
        (a^4 + a^2)*q^175 + (-a^9 + a^2)*q^181 + (a^4 - a^3)*q^183 + (a^8 + 
        a^6)*q^189 - a*q^192 + (-a^5 + a^4)*q^193 + (a^9 + a^7 + a^5 - a^4 + a^3
        - a^2 + a - 1)*q^196 + (-a^7 - a^5)*q^199 + (a^9 - a^8 + a^7 - a^6 + a^5
        + a^3 - a^2 + a - 1)*q^201 + (a^8 - a^7)*q^208 + (-a^7 - a^5)*q^211 + 
        (-a^8 - a^6 + a^5 - a^4 + a^3 - a^2 - 1)*q^217 + O(q^219)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
993
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
33*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
219
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
993
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
55*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
219
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
993
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 66*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
219
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^3 + a^2*q^4 + (a^2 + 1)*q^7 + a^2*q^9 - a^3*q^12 + (a^3 - a^2 - 
        1)*q^13 + (a^3 - a^2 + a - 1)*q^16 + (a^2 - a)*q^19 + (-a^3 - a)*q^21 + 
        a^2*q^25 - a^3*q^27 + (a^3 + a - 1)*q^28 + (-a^3 + a^2)*q^31 + (a^3 - 
        a^2 + a - 1)*q^36 + (-a^3 + 1)*q^37 + (a^2 + 1)*q^39 + (a^3 - a^2 + 
        a)*q^43 + q^48 + (a^3 + a)*q^49 + (-a^3 - a)*q^52 + (-a^3 + a^2)*q^57 + 
        2*q^61 + (a^3 + a - 1)*q^63 - a*q^64 - 2*a*q^67 + (-a^3 + 1)*q^73 - 
        a^3*q^75 + (-a^2 + a - 1)*q^76 + (a^3 - a^2 - 1)*q^79 + (a^3 - a^2 + a -
        1)*q^81 + (-a^3 + 1)*q^84 + (-a^2 - a - 1)*q^91 + (-a^2 + a - 1)*q^93 + 
        (-a + 1)*q^97 + (a^3 - a^2 + a - 1)*q^100 + (-a^3 - a)*q^103 + q^108 + 
        (a^2 + 1)*q^109 + (a^3 - a^2 - 1)*q^111 + (a^3 - a^2 - 1)*q^112 + (-a^3 
        - a)*q^117 + (a^3 - a^2 + a - 1)*q^121 + (a^3 - a^2 + a)*q^124 + (a^3 - 
        a^2 + a)*q^127 + (-a + 1)*q^129 - q^133 + (-a^3 - a)*q^139 - a*q^144 + 
        (-a^3 - a + 1)*q^147 + (a^2 + 1)*q^148 + 2*q^151 + (a^3 + a - 1)*q^156 -
        2*a^3*q^157 + (-a^3 + a^2)*q^163 + (-a^3 + a^2 + 1)*q^169 + (-a^2 + a - 
        1)*q^171 + (a^2 - a)*q^172 + (a^3 + a - 1)*q^175 + (2*a^3 - 2*a^2 + 2*a 
        - 2)*q^181 - 2*a*q^183 + (-a^3 + 1)*q^189 + a^2*q^192 + (-a^3 - a)*q^193
        + (a^3 - 1)*q^196 + (a^3 - a^2 - 1)*q^199 + 2*a^2*q^201 + (-a^3 + 
        1)*q^208 + (-a^3 + a^2)*q^211 + a*q^217 + O(q^219)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
993
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 110*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
219
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
993
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
165*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
219
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 + q^9 + q^14 - q^22 - q^43 - q^45 - q^53 - q^54 + q^58 + q^64 - q^68
        - q^70 - q^74 - q^76 + q^77 + q^82 + q^83 + q^89 + q^103 - q^109 + q^110
        + q^122 - q^124 + q^125 + q^126 - q^127 + q^139 - q^149 - q^157 - q^167 
        + q^169 + q^173 - q^179 + q^189 - q^191 + q^193 + q^194 + q^196 - q^198 
        - q^203 + q^215 + O(q^219),
    q^2 - q^7 - q^10 + q^11 + q^18 + q^27 + q^28 - q^29 - q^32 + q^34 + q^35 + 
        q^37 + q^38 - q^41 - q^44 - q^55 - q^61 + q^62 - q^63 - q^86 - q^90 - 
        q^97 - q^98 + q^99 - q^106 - q^108 + q^112 + q^116 - q^119 - q^133 + 
        q^134 - q^135 + q^137 - q^140 + q^142 + q^145 - q^148 + 2*q^154 + q^158 
        + q^160 - q^162 + q^164 - q^170 - q^176 - q^181 - q^185 + q^187 - q^190 
        + q^199 + q^205 + q^209 - q^217 - q^218 + O(q^219),
    q^3 - q^15 - q^18 + q^42 + q^63 - q^66 + q^90 - q^99 + q^108 - q^129 - q^159
        + q^174 + q^192 - q^204 - q^210 + O(q^219),
    q^4 - q^14 + q^16 - q^17 - q^19 - q^20 + q^22 - q^31 + q^36 + q^49 + q^54 - 
        q^58 - q^67 + q^70 - q^71 + q^74 - q^77 - q^79 - q^80 + q^81 - q^82 + 
        q^83 + q^85 + q^89 + q^95 + q^103 - q^110 + 2*q^113 + q^121 - q^122 - 
        q^126 - q^131 + q^139 + q^144 - q^153 + q^155 - q^163 - q^171 - q^172 + 
        q^173 - q^180 - q^189 + q^193 - q^194 - q^197 + q^198 + q^203 - q^212 + 
        O(q^219),
    q^6 + q^9 - q^21 - q^30 + q^33 - q^36 - q^45 - q^54 + q^84 - q^87 - q^96 + 
        q^102 + q^105 + q^111 + q^114 - q^123 + 2*q^126 - q^132 - q^144 + q^153 
        - q^165 + q^171 + q^180 - q^183 + q^186 + q^189 - 2*q^198 + O(q^219),
    q^12 + q^18 + q^27 - q^42 + q^48 - q^51 - q^57 - q^60 - q^63 + q^66 - q^90 -
        q^93 + q^99 - q^135 + q^147 - q^174 - q^201 + q^210 - q^213 + O(q^219)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
994
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
282
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
994
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
282
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
994
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
282
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
994
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
210
);
qprec:=
282
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
994
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
210
);
qprec:=
282
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
994
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
282
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^12*q^4 - a*q^7 + (-a^23 - a^22 + a^18 + a^17 + a^16 + a^15 - a^13 - 
        a^12 - a^11 - a^10 - a^9 + a^7 + a^6 + a^5 + a^4 - a^2 - 1)*q^8 - 
        a^17*q^9 + (a^23 - a^22 - a^21 - a^18 + a^15 + a^14 + a^13 - 2*a^8 - a^7
        + a^3 + a + 1)*q^11 + (2*a^23 + a^22 + a^21 + a^20 - a^19 - 2*a^18 - 
        2*a^17 - 2*a^16 - a^15 + a^14 + a^13 + 2*a^12 + 2*a^11 + 2*a^10 + a^9 - 
        a^8 - 2*a^7 - a^6 - 2*a^5 - a^4 + a + 2)*q^16 + (-a^23 + a^19 + a^18 + 
        a^17 + a^16 - a^14 - a^13 - a^12 - a^11 - a^10 + a^8 + a^7 + 2*a^6 + a^5
        - a - 1)*q^23 - a^21*q^25 + a^13*q^28 + (a^21 - a^14 + a^7 - a^3 - 
        1)*q^29 + (a^17 - a^14 + a^11 - a^8)*q^32 + (a^22 - a^15 + a^8 - a)*q^36
        + (a^23 + a^20 - a^18 - a^16 - a^15 + a^11 + a^10 + a^9 + a^8 - a^5 - 
        a^4 - a^2 + 1)*q^37 + (a^14 + a^12)*q^43 + (-a^10 - a^6)*q^44 + a^2*q^49
        + (-a^23 - a^22 - a^20 - a^19 + a^18 + a^17 + a^16 + a^15 - a^12 - a^11 
        - a^10 - a^9 + a^7 + a^5 + a^4 - 1)*q^53 + (a^3 - 1)*q^56 + a^18*q^63 + 
        (-2*a^23 + a^21 + a^18 + a^16 - a^14 - a^13 - a^9 + a^8 + 2*a^7 - a^4 - 
        a^3 + a^2 + a - 1)*q^64 + (a^20 + a^4)*q^67 - a^13*q^71 + (a^19 - 
        a^16)*q^72 + (2*a^23 + a^22 - a^18 - a^17 - 2*a^16 - a^15 + a^13 + a^12 
        + a^11 + a^10 + 2*a^9 - a^7 - a^6 - a^5 - a^4 - a^2 + 1)*q^77 + (-a^23 +
        a^21 + a^19 + a^18 - a^14 - a^13 - a^12 + a^10 + a^8 + a^7 + a^5 - a^3 -
        1)*q^79 + (a^23 + a^22 - a^18 - a^17 - a^16 - a^15 + a^13 + a^12 + a^11 
        + a^10 + a^9 - a^7 - a^6 - a^5 - a^4 + 1)*q^81 + (-2*a^23 - a^21 - a^20 
        + a^19 + 2*a^18 + 2*a^16 + a^15 - a^13 - a^12 - 2*a^11 - a^10 - a^9 + 
        a^8 + a^6 + 2*a^5 + a^4 - a^3 + a^2 - a - 2)*q^88 + (-a^18 + a)*q^92 + 
        (-a^15 - a^11)*q^99 + (-a^23 + a^21 + a^18 - a^14 - a^13 + a^8 + a^7 - 
        a^3 - 1)*q^100 + (a^12 - a^11)*q^107 + (-a^7 + a^2)*q^109 + (a^23 - a^22
        - a^21 + a^20 - a^16 - a^15 + a^14 + a^10 + a^9 - a^7 - a^5 - a^2 + 
        2)*q^112 + (a^22 - a^9)*q^113 + (a^15 + a^5)*q^116 + (-a^23 - a^22 - 
        a^20 - a^19 + a^17 + a^15 + a^14 + a^13 - a^10 - a^9 - a^8 - a^6 + a^4 +
        a^3 + a)*q^121 + (-a^23 - a^20 + a^16 + a^15 - a^13 - a^10 - a^9 + a^5 +
        a^2 - 1)*q^127 + (a^23 + a^22 - a^21 - 2*a^20 - a^19 + a^17 + a^16 + 
        a^14 + a^13 + a^12 - a^11 - a^10 - a^9 - a^7 + a^4 + a^3 + a^2 - 
        a)*q^128 + (a^16 - a^5)*q^137 + (a^9 - a^6 + a^3)*q^144 + (-a^20 + 
        a^9)*q^148 + (-a^21 + a^16)*q^149 + (-a^23 + a^19 + a^18 + a^17 + a^16 -
        a^14 - a^13 - a^12 - a^11 + a^8 + a^7 + a^6 + a^5 - a - 1)*q^151 + 
        (-a^23 - a^20 + a^16 + a^15 - a^10 - a^9 - a^7 + a^5 + a^2 - 1)*q^161 + 
        (a^14 - a^5)*q^163 + a^8*q^169 + (2*a^23 - a^21 - 2*a^19 - 2*a^18 - a^17
        - a^16 + 2*a^14 + 2*a^13 + 2*a^12 + a^11 + a^10 - 2*a^8 - 2*a^7 - a^6 - 
        2*a^5 + a^3 + a + 2)*q^172 + a^22*q^175 + (a^23 - a^22 + a^21 + a^20 + 
        a^19 - a^18 - a^16 + a^10 + a^9 - a^5 - a^2 + 1)*q^176 + (a^23 - a^19 - 
        a^18 - a^16 + a^14 + a^13 + a^12 + a^11 - a^9 - a^8 - a^7 - a^6 - a^5 + 
        a^3 + a + 1)*q^179 + (2*a^23 - a^21 - a^19 - a^18 + a^14 + a^13 + a^12 -
        2*a^8 - a^7 + a^3 + 1)*q^184 + (-a^23 + a^16)*q^191 + (a^23 - a^16 - 
        a^15 + a^9 - a^2)*q^193 - a^14*q^196 + (a^23 - a^19 - a^18 - a^17 - a^16
        + a^14 + a^13 + a^12 + a^11 - a^8 - a^7 - a^6 - a^5 + a^3 + a + 1)*q^197
        + (a^23 - a^20)*q^200 + (-a^22 + a^15 - a^8 + a^4 + a)*q^203 + (-a^23 + 
        a^6)*q^207 + (-a^7 - a^5)*q^211 + (-a^23 + a^19 + a^18 + a^16 - a^14 - 
        a^13 - a^12 - a^11 + a^8 + a^7 + a^6 + a^5 - a^4 - a^3 - a - 1)*q^212 + 
        (-a^18 + a^15 - a^12 + a^9)*q^224 - a^3*q^225 + (a^22 + a^20 - a^18 - 
        a^17 - a^15 + a^12 + a^11 + a^10 - a^7 - a^4 + 1)*q^232 + (-a^23 + a^21 
        + a^18 - a^14 - a^13 - a^12 + a^8 + a^7 + a^5 - a^3 - 1)*q^233 + (-a^20 
        + a^15 - a^10 + a^5 - 1)*q^239 + (-a^23 + a^16 - a^9 + a^2)*q^252 + 
        (a^22 + a^18 + a^4 + 1)*q^253 + (-a^22 + a^19 - a^16 + a^13 - a^10 + a^7
        - a^4)*q^256 + (a^23 - a^21 - a^18 + a^14 + a^13 - a^9 - a^8 - a^7 + a^3
        + 1)*q^259 + (a^20 + a^10)*q^261 + (a^18 - a)*q^263 + (-a^23 - a^20 + 
        a^18 + a^15 - a^11 - a^10 - a^9 + a^5 + a^4 + a^2 - 1)*q^268 + (-a^19 - 
        a^15)*q^275 + (-a^23 + a^21 + a^19 + a^18 - a^14 - a^13 - a^12 - a^11 + 
        a^8 + a^7 + a^5 - a^3 - 1)*q^277 + (a^23 + 2*a^20 - a^18 - a^16 - a^15 +
        a^11 + a^10 + a^9 - a^5 - a^4 - a^2 + 1)*q^281 + O(q^282),
    q^2 + (-a^23 + a^22 - a^20 + a^16 + a^15 - a^10 - a^9 + a^5 + a^2 - 1)*q^4 +
        (-a^15 + a^12 - a^9)*q^8 - a*q^14 + (2*a^23 + a^22 - a^19 - 2*a^18 - 
        a^17 - 2*a^16 - a^15 + a^14 + 2*a^13 + 2*a^12 + 2*a^11 + a^10 + a^9 - 
        a^8 - 2*a^7 - 2*a^6 - 3*a^5 - a^4 + a^3 + a^2 + a + 2)*q^16 - a^17*q^18 
        + (a^23 - a^22 - a^21 - a^18 + a^15 + a^14 + a^13 - 2*a^8 - a^7 + a^3 + 
        a + 1)*q^22 + (-2*a^23 + a^21 + a^19 + a^18 - a^14 - a^13 - a^12 + a^8 +
        a^7 + a^5 - a^3 - 1)*q^28 + (-a^23 - a^22 - a^21 - a^20 + a^19 + 3*a^18 
        + 2*a^17 + a^16 + a^15 - a^14 - a^13 - 2*a^12 - 2*a^11 - 2*a^10 + a^8 + 
        2*a^7 + a^6 + 2*a^5 + a^4 - a^2 - a - 2)*q^32 + (-a^7 + a^4)*q^36 + 
        (-a^23 + a^20 - a^19 + a^16)*q^44 + (-a^23 + a^19 + a^18 + a^17 + a^16 -
        a^14 - a^13 - a^12 - a^11 - a^10 + a^8 + a^7 + 2*a^6 + a^5 - a - 1)*q^46
        - a^21*q^50 + (a^16 - a^13 + a^10)*q^56 + (a^21 - a^14 + a^7 - a^3 - 
        1)*q^58 + (a^20 - a^17 + a^14 - a^11 + a^8 - a^5)*q^64 + (-a^22 + a^21 +
        a^20 + a^19 - a^16 - a^14 - a^13 - a^12 + a^11 + a^10 + a^9 + a^7 - a^4 
        - a^3 - a^2 + a)*q^72 + (a^23 + a^20 - a^18 - a^16 - a^15 + a^11 + a^10 
        + a^9 + a^8 - a^5 - a^4 - a^2 + 1)*q^74 + (a^14 + a^12)*q^86 + (-a^13 + 
        a^10 - a^9 - a^7 + a^6 - a^3)*q^88 + (a^23 + a^21 - a^19 - a^18 - a^16 +
        a^14 + a^13 + a^12 - a^8 - a^6 - a^5 + a^3 + a)*q^92 + a^2*q^98 + (-a^11
        + a^8)*q^100 + (-a^23 - a^22 - a^20 - a^19 + a^18 + a^17 + a^16 + a^15 -
        a^12 - a^11 - a^10 - a^9 + a^7 + a^5 + a^4 - 1)*q^106 + (a^23 + a^20 - 
        a^18 - a^16 - a^15 + a^11 + a^10 + a^9 + a^6 - a^5 - a^4 - a^3 - a^2 + 
        2)*q^112 + (-a^23 + a^21 - a^20 + a^18 + a^16 - a^14 - a^10 - a^9 + a^7 
        + a^5 + a^2 - 2)*q^116 + a^18*q^126 + (a^23 - a^22 - a^21 - a^20 + a^17 
        + a^15 + a^14 + a^13 - a^12 - a^11 - a^8 - a^7 + a^5 + 2*a^4 + a^3 - a^2
        - a)*q^128 + (a^20 + a^4)*q^134 - a^13*q^142 + (a^22 - a^19 + a^16 - 
        a^13)*q^144 + (2*a^23 + a^22 - a^21 - a^19 - a^18 - a^16 + a^14 + a^13 +
        a^9 - a^8 - a^7 + a^3 - a^2 + 1)*q^148 + (2*a^23 + a^22 - a^18 - a^17 - 
        2*a^16 - a^15 + a^13 + a^12 + a^11 + a^10 + 2*a^9 - a^7 - a^6 - a^5 - 
        a^4 - a^2 + 1)*q^154 + (-a^23 + a^21 + a^19 + a^18 - a^14 - a^13 - a^12 
        + a^10 + a^8 + a^7 + a^5 - a^3 - 1)*q^158 + (a^23 + a^22 - a^18 - a^17 -
        a^16 - a^15 + a^13 + a^12 + a^11 + a^10 + a^9 - a^7 - a^6 - a^5 - a^4 + 
        1)*q^162 + (a^23 + a^22 - a^18 - a^17 - a^16 - a^15 + a^13 + a^12 + a^11
        + a^10 + a^9 - a^7 - a^6 - a^5 + a^2 - a + 1)*q^172 + (2*a^23 + a^21 - 
        a^19 - 3*a^18 - a^17 - 2*a^16 + 2*a^13 + 2*a^12 + 3*a^11 + a^10 + a^9 - 
        2*a^8 - a^7 - 2*a^6 - 2*a^5 - 2*a^4 + 2*a + 2)*q^176 + (a^23 - 2*a^21 - 
        a^15 + a^14 + a^13 - a^8 - a^7 + a^4 + a^3 - a + 1)*q^184 + (-2*a^23 - 
        a^22 - a^20 + a^19 + 2*a^18 + 2*a^17 + 2*a^16 + a^15 - a^14 - a^13 - 
        2*a^12 - 2*a^11 - 2*a^10 - a^9 + a^8 + 2*a^7 + a^6 + 2*a^5 + a^4 - a - 
        2)*q^196 + (-a^15 - a^11)*q^198 + (2*a^23 - a^21 - a^18 - a^16 + a^14 + 
        a^13 + a^9 - a^8 - a^7 + a^3 - a^2 - a + 1)*q^200 + (-a^17 + a^14 - a^9 
        + a^6)*q^212 + (a^12 - a^11)*q^214 + (-a^7 + a^2)*q^218 + (a^22 + a^21 -
        a^20 - 2*a^19 - a^18 + a^15 + a^13 + a^12 + a^11 - a^10 - a^9 - a^8 - 
        a^6 + a^3 + a^2 + a - 1)*q^224 + (a^22 - a^9)*q^226 + (a^18 - a^15 + 
        a^12 + a^8 - a^5 + a^2)*q^232 + (-a^23 - a^22 - a^20 - a^19 + a^17 + 
        a^15 + a^14 + a^13 - a^10 - a^9 - a^8 - a^6 + a^4 + a^3 + a)*q^242 + 
        (a^8 - a^5)*q^252 + (-a^23 - a^20 + a^16 + a^15 - a^13 - a^10 - a^9 + 
        a^5 + a^2 - 1)*q^254 + (-a^23 - a^22 + a^21 + 2*a^20 + a^19 - a^17 - 
        a^16 - a^13 - a^12 + a^11 + a^10 + a^9 + a^7 - a^4 - a^3 - a^2 + a + 
        1)*q^256 + (-a^23 - a^22 + a^21 + a^19 + a^18 + a^15 - a^14 - a^13 - 
        a^12 + a^10 + a^5 - a^3 + a - 1)*q^268 + (a^16 - a^5)*q^274 + O(q^282)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
994
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
282
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
994
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
282
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
994
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
282
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
994
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
282
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
994
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
282
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
994
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 10*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
282
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^5*q^4 - a*q^7 + (-a^5 + a^4 - a^3 - a + 1)*q^8 - a^3*q^9 + (-a^5 - 
        a)*q^11 + (-a^5 + a^4 + a^2 - a)*q^16 + (a^5 - a^4 - a^2 + a - 1)*q^23 +
        q^25 + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^28 + (-a^3 + 1)*q^29 + (-a^4 +
        a^3 + a - 1)*q^32 + a*q^36 + (a^4 - a)*q^37 + (-a^5 + 1)*q^43 + (-a^5 + 
        a^4 + a^2 - a + 1)*q^44 + a^2*q^49 + (-a^4 + a^3 - a^2 + a - 1)*q^53 + 
        (a^3 - 1)*q^56 + a^4*q^63 + (a^5 - a^4 - a^2 + a - 1)*q^64 + (a^5 + a^3 
        - a^2 + a - 1)*q^67 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^71 + (a^5 - 
        a^2)*q^72 + (a^5 - a^4 + a^3 + a - 1)*q^77 + (-a^5 - a^3)*q^79 + (a^5 - 
        a^4 + a^3 - a^2 + a - 1)*q^81 + (-a^4 + a^3 - 2)*q^88 + (-a^4 + a)*q^92 
        + (a^4 - a)*q^99 + a^5*q^100 + (-a^5 + a^4)*q^107 + (a^2 + 1)*q^109 + 
        (-a^4 + a - 1)*q^112 + (a^2 - a)*q^113 + (a^5 + a)*q^116 + (a^5 - a^4 + 
        a - 1)*q^121 + (a^5 + a^3 - a^2 + a - 1)*q^127 + q^128 + (-a^5 + 
        a^2)*q^137 + (-a^5 + a^4 - a + 1)*q^144 + (-a^5 + a^4 - a^3 - a + 
        1)*q^148 + (a^2 + 1)*q^149 - 2*a^3*q^151 + (a^4 + 1)*q^161 + (-a^5 + 
        1)*q^163 - a*q^169 + (a^5 + a^3)*q^172 - a*q^175 + (a^5 - 2*a^4 + 2*a - 
        1)*q^176 + (-a^3 + a^2)*q^179 + (2*a^5 - a^2 + a)*q^184 + 2*a^2*q^191 + 
        (a^2 - a)*q^193 - q^196 - 2*a^3*q^197 + (-a^5 + a^4 - a^3 - a + 1)*q^200
        + (a^4 - a)*q^203 + (a^5 - a^4 + a^3 + a - 1)*q^207 + (-a^5 + 1)*q^211 +
        (-a^4 + a^3)*q^212 + (a^5 - a^4 - a^2 + a)*q^224 - a^3*q^225 + (a^4 - 
        a^3 - a^2 - a + 1)*q^232 - 2*a^5*q^233 + (a^4 + a^2)*q^239 - a^2*q^252 +
        (2*a^4 - a + 1)*q^253 + (-a^5 + a^2)*q^259 + (a^5 - a^4 - a^2 + a - 
        1)*q^261 + (a^4 - a)*q^263 + (-a^4 - a^2)*q^268 + (-a^5 - a)*q^275 + 
        (-a^5 + a^4)*q^277 + (a^5 + a^3 - a^2 + a - 1)*q^281 + O(q^282),
    q^2 + (a^4 - a)*q^4 + (-a^5 + a^2 - a)*q^8 - a*q^14 + (-a^4 + a - 1)*q^16 - 
        a^3*q^18 + (-a^5 - a)*q^22 + (-a^5 + a^2)*q^28 + (a^5 + a)*q^32 + (a^4 +
        1)*q^36 + (-a^4 + a^3 + a^2 + a - 1)*q^44 + (a^5 - a^4 - a^2 + a - 
        1)*q^46 + q^50 + (a^5 - a^4 + a - 1)*q^56 + (-a^3 + 1)*q^58 - a^2*q^64 +
        (-a^5 + a^4 - a)*q^72 + (a^4 - a)*q^74 + (-a^5 + 1)*q^86 + (2*a^5 - 
        2*a^4 - a^2 + 2*a - 1)*q^88 + (a^4 - a^3 + 2)*q^92 + a^2*q^98 + (a^4 - 
        a)*q^100 + (-a^4 + a^3 - a^2 + a - 1)*q^106 + (a^5 - a^2 + a)*q^112 + 
        (2*a^4 - a + 1)*q^116 + a^4*q^126 + (a^5 + a^3 - a^2 + a - 1)*q^134 + 
        (a^5 - a^4 + a^3 - a^2 + a - 1)*q^142 + (-a^4 + a^3 - 1)*q^144 + (-2*a^5
        + a^2 - a)*q^148 + (a^5 - a^4 + a^3 + a - 1)*q^154 + (-a^5 - a^3)*q^158 
        + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^162 + (a^5 + a^3 - 1)*q^172 + (a^5 +
        a^4 - a^3 - a^2 + 1)*q^176 + (-a^5 + 2*a^4 - 2*a + 1)*q^184 + (a^5 - a^4
        - a^2 + a - 1)*q^196 + (a^4 - a)*q^198 + (-a^5 + a^2 - a)*q^200 + (a^5 -
        a^4 + a)*q^212 + (-a^5 + a^4)*q^214 + (a^2 + 1)*q^218 + (-a^5 + a^4 - 
        a^3 - a + 1)*q^224 + (a^2 - a)*q^226 + (-2*a^5 + a^4 + a^2 - 2*a)*q^232 
        + (a^5 - a^4 + a - 1)*q^242 + (-a^5 - a)*q^252 + (a^5 + a^3 - a^2 + a - 
        1)*q^254 + q^256 + (-a^5 - a^3 - a + 1)*q^268 + (-a^5 + a^2)*q^274 + 
        O(q^282)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
994
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
282
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
994
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
282
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^2*q^4 - a*q^7 + (-a^3 - a + 1)*q^8 + a^2*q^9 + (-a^2 + a - 1)*q^11 + 
        (-a^3 + 1)*q^16 + (a^3 - a^2 - 1)*q^23 - a*q^25 + a^3*q^28 - 2*a^3*q^29 
        + q^32 + (-a^3 + a^2 - a + 1)*q^36 + (-a^3 + a^2)*q^37 + (a^3 + a - 
        1)*q^43 + (a - 1)*q^44 + a^2*q^49 + (a^3 + a - 1)*q^53 + (a^3 - 1)*q^56 
        - a^3*q^63 + (a^3 - a^2 + a)*q^67 - a^3*q^71 + (-a^3 + a^2 + 1)*q^72 + 
        (a^3 - a^2 + a)*q^77 + (-a + 1)*q^79 + (a^3 - a^2 + a - 1)*q^81 + (a^3 -
        a^2 + a - 1)*q^88 + (a^3 + a)*q^92 + (-a + 1)*q^99 + a^3*q^100 + (a^2 - 
        a)*q^107 + 2*a^2*q^109 + (a^3 - a^2 - 1)*q^112 + (a^3 + a - 1)*q^113 - 
        2*q^116 + (-a^3 + a^2 - a)*q^121 + (-a^3 + 1)*q^127 - a^2*q^128 + (-a + 
        1)*q^137 + (a^2 + 1)*q^144 + (-a^3 + a^2 - a)*q^148 - 2*a*q^149 + (a^3 -
        a^2 + a)*q^151 + (a^2 + 1)*q^161 + (a^3 - a^2 + a)*q^163 - a^3*q^169 + 
        (-a^3 + a^2 + 1)*q^172 + a^2*q^175 - q^176 + (a^3 - a^2 - 1)*q^179 + 
        (2*a^3 + a - 1)*q^184 + (-a^3 - a)*q^191 + 2*q^193 + (-a^3 + a^2 - a + 
        1)*q^196 + (a^2 - a)*q^197 + (a^3 - 1)*q^200 + (2*a^3 - 2*a^2 + 2*a - 
        2)*q^203 + (-a^3 - a)*q^207 + (a^2 + 1)*q^211 + (-a^3 + a^2 + 1)*q^212 -
        a*q^224 - a^3*q^225 + (-2*a^2 - 2)*q^232 + (a^3 - a^2 - 1)*q^233 + 
        2*q^239 - q^252 + a*q^253 + (-a^3 - a + 1)*q^256 + (-a^2 + a - 1)*q^259 
        + 2*q^261 + (-a^3 - a)*q^263 + (-a^2 + a)*q^268 + (a^3 - a^2 + a)*q^275 
        - 2*a*q^277 + (a^2 + 1)*q^281 + O(q^282),
    q^2 + (a^2 + 1)*q^4 + (a^3 + a)*q^8 - a*q^14 + a^3*q^16 + a^2*q^18 + (-a^2 +
        a - 1)*q^22 + (-a^3 - a)*q^28 + (a^3 + a - 1)*q^36 - a^2*q^44 + (a^3 - 
        a^2 - 1)*q^46 - a*q^50 + (-a^3 - a + 1)*q^56 - 2*a^3*q^58 + q^64 + (a^3 
        - 1)*q^72 + (-a^3 + a^2)*q^74 + (a^3 + a - 1)*q^86 - a^3*q^88 + (-a^2 - 
        a - 1)*q^92 + a^2*q^98 + (-a^3 - a)*q^100 + (a^3 + a - 1)*q^106 + (-a^3 
        + a^2 - a + 1)*q^112 + (-2*a^3 + 2)*q^116 - a^3*q^126 + (a^2 + 1)*q^128 
        + (a^3 - a^2 + a)*q^134 - a^3*q^142 - q^144 + a*q^148 + (a^3 - a^2 + 
        a)*q^154 + (-a + 1)*q^158 + (a^3 - a^2 + a - 1)*q^162 + (2*a^3 - a^2 + a
        - 2)*q^172 + (-a^2 + a)*q^176 + (-a^3 - a^2 - a)*q^184 + (a^3 + a - 
        1)*q^196 + (-a + 1)*q^198 + (-a^3 - a + 1)*q^200 + (2*a^3 - a^2 + a - 
        2)*q^212 + (a^2 - a)*q^214 + 2*a^2*q^218 + (a^3 + a - 1)*q^226 + (-2*a^3
        + 2*a^2 + 2)*q^232 + (-a^3 + a^2 - a)*q^242 + (-a^3 + 1)*q^252 + (-a^3 +
        1)*q^254 + (a^3 + a)*q^256 + a^3*q^268 + (-a + 1)*q^274 + O(q^282)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
994
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
35*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
282
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^10 - q^12 - q^15 + q^18 - q^19 + q^20 + q^25 - q^37 + q^38 - q^45 + 
        q^48 + q^49 - q^54 + q^60 - q^64 + q^71 + q^74 + q^75 - q^80 - q^83 - 
        q^86 + q^87 - q^95 - q^100 - q^101 + 2*q^107 - q^114 - q^116 + q^121 - 
        q^125 + q^128 - q^129 + q^135 - q^145 - q^146 + q^150 - q^158 + q^160 + 
        q^166 + q^169 + q^171 + q^172 + q^174 - q^185 + q^190 - q^199 + q^202 + 
        2*q^215 - q^219 - q^222 - q^223 - q^233 - q^237 - q^240 - q^243 - q^251 
        - q^262 + q^267 - q^277 + O(q^282),
    q^2 - q^10 - q^12 + q^18 - q^24 - q^30 + q^36 + q^40 + q^48 + q^50 - q^54 + 
        q^60 - q^64 + q^76 - q^80 - q^86 - q^90 + q^96 + q^98 - q^100 - q^108 - 
        q^114 - q^116 + q^120 + q^142 - q^146 + q^148 + 2*q^150 - q^158 + 
        2*q^174 - q^200 + 2*q^214 - q^222 - q^228 - q^232 - q^240 + q^242 - 
        q^250 + q^256 - q^258 - q^262 + q^270 + O(q^282),
    q^3 + q^8 - q^9 - q^12 - q^15 - q^19 - q^24 + q^25 + q^27 + q^29 + q^36 - 
        q^37 + q^57 + q^60 - q^64 + q^72 + q^76 - q^80 - q^81 - q^83 - q^87 + 
        q^89 - q^100 - q^101 + q^103 - q^108 + q^109 + q^111 - q^116 - q^125 - 
        q^129 + q^144 - q^145 + q^147 + q^148 + q^151 + q^157 + q^160 - q^171 + 
        q^191 + q^192 - q^199 + q^213 + q^215 - q^216 - q^219 - q^223 + q^225 - 
        q^228 - q^232 - q^233 - q^237 + q^249 - q^251 + 2*q^261 - q^267 + q^271 
        - q^277 + O(q^282),
    q^4 - q^8 - q^10 - q^12 + q^16 + q^18 + q^20 - q^32 + q^38 - q^40 - q^54 + 
        q^72 + q^74 - q^76 + q^80 - q^86 + q^96 - q^114 - q^116 + q^120 - q^144 
        - q^146 - q^148 + q^150 + 2*q^152 - q^158 - q^160 + q^166 + q^172 + 
        q^174 - q^180 + q^190 + q^196 - q^200 + q^202 - q^216 - q^222 - q^240 - 
        q^262 + O(q^282),
    q^5 + q^8 - q^9 - q^16 - q^19 - q^20 - q^24 + q^27 + q^32 + q^36 - q^37 + 
        q^40 + q^43 + q^57 - q^64 + q^73 - q^75 + q^76 + q^79 - q^80 - q^83 - 
        q^87 - q^95 - q^101 - q^108 + q^111 + q^131 + q^144 + q^148 - q^152 + 
        q^160 + q^167 - q^172 + q^179 - q^185 + q^192 - q^199 - q^223 - q^228 + 
        q^229 - q^232 - q^233 + q^240 + q^245 + q^249 - q^251 + q^261 + q^263 - 
        q^267 - q^277 + O(q^282),
    q^6 - q^8 - q^10 + q^16 + q^20 - q^30 - q^36 + q^50 + q^58 - q^76 - q^86 + 
        q^108 + q^120 - q^146 - q^148 + q^150 + q^152 - q^158 - q^160 - q^162 + 
        q^172 + q^178 + q^190 - q^192 - q^200 + q^206 + q^218 + q^228 - q^240 - 
        q^250 - q^258 - q^262 + O(q^282),
    q^7 - q^70 - q^84 - q^105 + q^126 - q^133 + q^140 + q^175 - q^259 + q^266 + 
        O(q^282),
    q^14 - q^70 - q^84 + q^126 - q^168 - q^210 + q^252 + q^280 + O(q^282),
    q^21 + q^56 - q^63 - q^84 - q^105 - q^133 - q^168 + q^175 + q^189 + q^203 + 
        q^252 - q^259 + O(q^282),
    q^28 - q^56 - q^70 - q^84 + q^112 + q^126 + q^140 - q^224 + q^266 - q^280 + 
        O(q^282),
    q^35 + q^56 - q^63 - q^112 - q^133 - q^140 - q^168 + q^189 + q^224 + q^252 -
        q^259 + q^280 + O(q^282),
    q^42 - q^56 - q^70 + q^112 + q^140 - q^210 - q^252 + O(q^282)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
994
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 35*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
282
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^3 + a*q^4 + (a - 1)*q^5 - q^8 + (a - 1)*q^12 - q^15 + (-a + 1)*q^19 
        - q^20 - a*q^24 + q^27 - a*q^32 + (a - 1)*q^37 + (-a + 1)*q^40 - q^49 + 
        q^57 - a*q^60 + q^64 - a*q^73 + q^76 + a*q^77 + (-a + 1)*q^79 + a*q^81 +
        (-a + 1)*q^89 + 2*q^91 + a*q^95 + (-a + 1)*q^96 + a*q^101 + (a - 
        1)*q^103 + (-a + 1)*q^107 + a*q^108 - a*q^109 - q^111 - a*q^119 + q^120 
        - q^125 + (-a + 1)*q^131 + (a - 1)*q^135 - 2*a*q^143 - a*q^147 - q^148 -
        a*q^151 + (a - 1)*q^152 + a*q^157 + q^160 + (a - 1)*q^161 - 3*q^169 - 
        a*q^179 - a*q^185 + (a - 1)*q^187 + (-a + 1)*q^191 + a*q^192 - a*q^196 -
        a*q^199 - q^216 - a*q^217 + (-a + 1)*q^219 + 2*a*q^221 + a*q^228 + (a - 
        1)*q^229 + (a - 1)*q^231 + (a - 1)*q^233 + q^237 + (-a + 1)*q^245 + 
        q^253 + a*q^256 - a*q^263 + q^267 + (a - 1)*q^271 + 2*a*q^273 - a*q^277 
        + O(q^282),
    q^2 + (a - 1)*q^4 + a*q^6 + (a - 1)*q^10 - q^12 - q^16 - a*q^20 - q^30 + (-a
        + 1)*q^32 + (-a + 1)*q^38 - a*q^48 + q^54 + (-a + 1)*q^60 + (a - 1)*q^74
        + a*q^76 + (-a + 1)*q^80 + q^96 - q^98 + (a - 1)*q^108 + q^114 + q^128 -
        a*q^146 - a*q^148 + a*q^154 + (-a + 1)*q^158 + a*q^160 + a*q^162 + (-a +
        1)*q^178 + 2*q^182 + a*q^190 + (-a + 1)*q^196 + a*q^202 + (a - 1)*q^206 
        + (-a + 1)*q^214 - a*q^218 - q^222 + (a - 1)*q^228 - a*q^238 + q^240 - 
        q^250 + (a - 1)*q^256 + (-a + 1)*q^262 + (a - 1)*q^270 + O(q^282),
    q^7 - a*q^11 - 2*q^13 + a*q^17 + a*q^21 + (-a + 1)*q^23 + a*q^28 + a*q^31 + 
        (-a + 1)*q^33 + (a - 1)*q^35 - 2*a*q^39 + (-a + 1)*q^44 + (a - 1)*q^47 +
        (a - 1)*q^51 - 2*a*q^52 + a*q^53 + q^55 - q^56 + a*q^59 + (-a + 1)*q^61 
        + (-2*a + 2)*q^65 - a*q^67 + (a - 1)*q^68 + q^69 - q^71 + (a - 1)*q^84 -
        q^85 + a*q^88 + q^92 + (a - 1)*q^93 + 2*q^104 - q^105 + a*q^115 + (a - 
        1)*q^124 + q^132 + (-a + 1)*q^133 - a*q^136 - a*q^137 - q^140 - q^141 + 
        (-a + 1)*q^149 - q^155 + (-2*a + 2)*q^156 + (a - 1)*q^159 + (-a + 
        1)*q^163 + a*q^165 - a*q^168 + (a - 1)*q^173 + (a - 1)*q^177 + q^183 + 
        (a - 1)*q^184 - q^188 + q^189 + a*q^193 + 2*q^195 + (-a + 1)*q^201 - 
        q^204 - q^209 + 2*q^211 + (a - 1)*q^212 - a*q^213 + a*q^220 - a*q^224 - 
        a*q^227 - a*q^235 + (a - 1)*q^236 + a*q^241 + q^244 + (2*a - 2)*q^247 - 
        a*q^248 - a*q^255 + (a - 1)*q^257 + (a - 1)*q^259 + 2*q^260 + (a - 
        1)*q^264 - q^265 + (-a + 1)*q^268 - a*q^269 + a*q^276 + (-a + 1)*q^280 +
        2*q^281 + O(q^282),
    q^14 - a*q^22 - 2*q^26 + (a - 1)*q^28 + a*q^34 + a*q^42 + q^44 + (-a + 
        1)*q^46 + (-2*a + 2)*q^52 + a*q^62 + (-a + 1)*q^66 - q^68 + (a - 1)*q^70
        - 2*a*q^78 - q^84 + a*q^92 + (a - 1)*q^94 + (a - 1)*q^102 + a*q^106 + 
        q^110 - q^112 + a*q^118 + (-a + 1)*q^122 - q^124 + (-2*a + 2)*q^130 + 
        a*q^132 - a*q^134 + q^138 - a*q^140 - q^142 + 2*q^156 - q^170 + a*q^176 
        + (a - 1)*q^186 - a*q^188 - a*q^204 + 2*q^208 - q^210 - q^212 + (a - 
        1)*q^220 + (-a + 1)*q^224 + a*q^230 - q^236 + a*q^244 + 2*a*q^260 + (-a 
        + 1)*q^266 + q^268 - a*q^272 - a*q^274 + (a - 1)*q^276 + O(q^282)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
198
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
198
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
396
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
132
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^4 + a)*q^4 + (a^3 - 1)*q^5 + a*q^9 + (a^5 + a^4)*q^11 - a^5*q^16 + 
        (a^5 - 2*a^2)*q^19 + a^4*q^20 - a^3*q^25 + (-a^3 + a + 1)*q^29 + (-a^5 +
        a^3 + a^2)*q^31 + (-a^5 + a^2)*q^36 + (-a^3 - a^2)*q^41 + (a^3 + 
        a^2)*q^44 + (a^4 - a)*q^45 + (-a^4 + a)*q^49 + (-a^2 - a)*q^55 + (-a^4 +
        a^2)*q^59 + (a^5 - a^2 - a)*q^61 - a^3*q^64 + (2*a^5 - a^2)*q^71 + (a^3 
        - 2)*q^76 + (-a^4 + a^3)*q^79 + a^2*q^80 + a^2*q^81 + (-a^4 - a^3 + 
        1)*q^89 + (-2*a^5 + a^2)*q^95 + (a^5 + a^3 - 1)*q^99 - a*q^100 + (-a^5 +
        a^4 - a)*q^101 + (-a^5 + a^4 - a)*q^109 + (-a^5 - a^4 + a^2)*q^116 + 
        (a^5 - a^2 - a - 1)*q^121 + (-a^3 + a + 1)*q^124 + q^125 - a*q^131 + 
        q^139 + (-a^3 + 1)*q^144 + (a^4 + a^3 - a)*q^145 + (a^4 - 1)*q^149 + 
        a*q^151 + (a^5 - 1)*q^155 + (-a - 1)*q^164 - a*q^169 + (-a^3 - 1)*q^171 
        + (a + 1)*q^176 + (a^3 - a^2 - 1)*q^179 + a^5*q^180 + (a^4 + a^2 - 
        a)*q^181 + (-a^3 - 1)*q^191 - a^5*q^196 + O(q^198)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 22*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
33*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 33*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + q^5 + a*q^9 + (-2*a + 1)*q^11 + (a - 1)*q^16 - a*q^20 + q^25 + 
        (a - 1)*q^29 - a*q^31 + (-a + 1)*q^36 + (-a + 2)*q^41 + (a - 2)*q^44 + 
        a*q^45 - a*q^49 + (-2*a + 1)*q^55 + (2*a - 1)*q^59 - q^61 + q^64 + (a - 
        1)*q^79 + (a - 1)*q^80 + (a - 1)*q^81 + (a - 1)*q^89 + (-a + 2)*q^99 - 
        a*q^100 + (2*a - 1)*q^101 + (2*a - 1)*q^109 + q^116 - 2*q^121 + (a - 
        1)*q^124 + q^125 + 2*a*q^131 - 2*q^139 - q^144 + (a - 1)*q^145 + (-a - 
        1)*q^149 - 2*a*q^151 - a*q^155 + (-a - 1)*q^164 - a*q^169 + (a + 
        1)*q^176 + (-a + 2)*q^179 + (-a + 1)*q^180 + (2*a - 1)*q^181 + (a - 
        1)*q^196 + O(q^198)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 66*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 - q^5 + (-a^3 - a^2 + a)*q^7 - a*q^9 + q^11 + (-a^3 + a^2 + 
        a)*q^13 + a^2*q^16 + (-a^3 - 1)*q^17 - a*q^20 + q^25 + (-a^3 + 1)*q^28 +
        (-a^3 + a)*q^29 + (a^2 - 1)*q^31 + (a^3 + a^2 - a)*q^35 - a^2*q^36 + 
        (a^2 - 1)*q^41 + a*q^44 + a*q^45 - a*q^49 + (a^3 + 1)*q^52 - q^55 + 
        a^3*q^59 - q^61 + (a^3 - 1)*q^63 + a^3*q^64 + (a^3 - a^2 - a)*q^65 + 
        (-a^2 - a + 1)*q^68 + (a^3 - a^2 - a)*q^73 + (-a^3 - a^2 + a)*q^77 + 
        (a^3 - a)*q^79 - a^2*q^80 + a^2*q^81 + (-a^3 + 1)*q^83 + (a^3 + 1)*q^85 
        + (-a^3 + a)*q^89 + (-2*a^2 + 2)*q^91 - a*q^99 + a*q^100 - q^101 + (-a^3
        - 1)*q^107 - a^3*q^109 + (-a^2 + a + 1)*q^112 + (a^2 + a - 1)*q^113 + 
        q^116 + (-a^3 - 1)*q^117 + (2*a^3 - 2*a)*q^119 + (a^3 - a)*q^124 - q^125
        + (a^2 - a - 1)*q^127 + (2*a^2 - 2)*q^131 + (a^3 + 1)*q^137 + (a^3 - 
        1)*q^140 + (-a^3 + a^2 + a)*q^143 - a^3*q^144 + (a^3 - a)*q^145 + (a^3 -
        a)*q^149 + (-2*a^2 + 2)*q^151 + (a^2 + a - 1)*q^153 + (-a^2 + 1)*q^155 +
        (a^3 + 1)*q^157 + (a^3 - a^2 - a)*q^163 + (a^3 - a)*q^164 + (a^2 - a - 
        1)*q^167 + a*q^169 + (-a^3 - a^2 + a)*q^175 + a^2*q^176 + a*q^179 + 
        a^2*q^180 + q^181 + (-a^3 - 1)*q^187 + (a^2 + a - 1)*q^193 - a^2*q^196 +
        O(q^198)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
99*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^13 - q^14 - q^23 - q^35 - q^40 + q^49 + q^52 + q^56 - q^58 + 
        q^62 + q^70 + q^80 + q^81 - q^89 + q^92 - q^98 + q^106 - q^112 - q^117 +
        q^121 + q^122 - q^126 - q^128 - q^130 - q^139 - q^145 - q^151 + q^169 - 
        q^172 + q^182 - q^188 + O(q^198),
    q^2 + q^8 - q^14 - q^16 + q^18 + q^26 + q^31 - q^43 + q^46 - q^47 - q^50 - 
        q^52 + q^53 - q^56 - q^58 + q^61 - q^64 + q^72 - q^79 - q^86 - q^92 - 
        q^94 + q^103 + q^104 + q^112 + 2*q^124 + q^125 - q^126 - q^144 - q^158 +
        q^162 - q^169 - q^172 + q^178 - q^182 + q^184 - q^188 - q^193 + 
        O(q^198),
    q^4 + q^13 + q^23 - q^28 - q^32 + q^36 - q^43 - q^47 + q^62 - q^79 - q^86 + 
        q^89 - q^91 - q^94 - q^100 - q^104 + q^106 - q^116 + q^117 + q^122 + 
        q^125 + q^139 + q^151 - q^158 - q^161 - q^169 - q^184 - q^193 + 
        O(q^198),
    q^5 + q^45 - q^65 - q^70 - q^100 - q^115 + q^125 - q^175 + O(q^198),
    q^7 + q^8 - q^14 - q^16 + q^26 + q^29 - q^43 + q^46 - q^47 + q^49 - q^52 - 
        q^58 + q^63 + q^72 - q^79 - q^91 - q^92 - q^98 + q^124 + q^125 - q^126 +
        q^131 - q^144 + q^157 - q^161 - q^169 - q^175 + q^178 - q^193 + 
        O(q^198),
    q^10 - q^35 - q^50 + q^90 - q^100 + q^125 - q^145 + q^155 + q^175 + 
        O(q^198),
    q^20 - q^35 - q^40 - q^50 + q^65 + q^70 + q^80 + q^115 - q^130 - q^140 - 
        q^145 - q^160 + q^175 + q^180 + O(q^198),
    q^25 - q^35 - q^40 + q^70 + q^80 - q^130 - q^145 + O(q^198)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
995
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 99*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^16 - 3/2*q^20 - q^28 + q^29 + q^31 - q^32 + 1/2*q^35 + q^36 + 1/2*q^40
        + q^43 - q^45 + q^47 - q^49 + 1/2*q^50 - q^51 - q^52 - 2*q^56 - q^58 - 
        2*q^61 - q^64 + 1/2*q^65 + 1/2*q^70 + 1/2*q^80 + q^86 - q^91 + q^92 + 
        q^94 + q^98 - q^104 - q^106 - q^111 + q^112 - 1/2*q^115 + q^121 + q^124 
        - q^125 + q^128 - 1/2*q^130 + q^131 + 1/2*q^140 + 1/2*q^145 - q^151 + 
        q^155 + q^158 + 1/2*q^160 + q^161 - q^172 + 1/2*q^175 + 1/2*q^180 + 
        q^182 + q^184 - q^188 - q^193 + q^196 + O(q^198),
    q^2 - q^8 - q^18 + q^26 + q^28 - q^31 + q^32 - q^35 - q^40 - q^46 + q^53 + 
        q^61 + q^72 + q^91 - q^98 + q^100 + q^103 - 2*q^112 - q^116 - q^128 - 
        q^130 + q^140 - q^145 + q^160 - q^161 + q^162 + q^178 + q^196 + 
        O(q^198),
    q^3 + q^12 - q^15 - q^17 - q^37 + q^48 - q^60 - q^67 - q^68 - q^73 + q^75 + 
        q^83 + q^85 + q^97 + q^107 + q^113 + q^127 - q^137 + q^147 - q^148 - 
        q^153 + q^163 - q^167 - q^173 - 2*q^183 + q^185 + q^192 + q^197 + 
        O(q^198),
    q^4 + 3/2*q^20 - 2*q^26 + q^28 - 2*q^29 + q^32 + 1/2*q^35 - q^36 + 1/2*q^40 
        - q^43 + 2*q^46 - q^47 + 2*q^49 - 1/2*q^50 + q^52 + 2*q^56 + q^58 + 
        2*q^64 - 1/2*q^65 - 3/2*q^70 - q^79 - 3/2*q^80 - q^86 - q^89 - q^91 - 
        q^92 - q^94 - q^98 + q^100 + q^104 + q^106 - q^112 + 1/2*q^115 + q^116 -
        2*q^124 + q^125 - q^128 + 3/2*q^130 - 2*q^131 - q^139 - 1/2*q^140 - 
        1/2*q^145 + q^151 - 2*q^155 - q^158 - 1/2*q^160 + q^161 + q^169 + q^172 
        - 1/2*q^175 - 3/2*q^180 - q^182 - q^184 + q^188 + q^193 - 2*q^196 + 
        O(q^198),
    q^5 - 2*q^20 + 2*q^26 - 2*q^28 + 2*q^29 - 2*q^32 + 2*q^43 - q^45 - 2*q^46 + 
        2*q^47 - 2*q^49 - 2*q^52 - 2*q^56 - 2*q^58 - 2*q^64 + q^65 + q^70 + 
        2*q^80 + 2*q^86 + 2*q^92 + 2*q^94 + 2*q^98 - q^100 - 2*q^104 + 2*q^112 -
        q^115 - 2*q^116 + 2*q^124 - q^125 + 2*q^128 - 2*q^130 + 2*q^131 + 
        2*q^155 + 2*q^158 - 2*q^172 + q^175 + 2*q^180 + 2*q^182 + 2*q^184 - 
        2*q^188 - 2*q^193 + 2*q^196 + O(q^198),
    q^7 + q^8 - q^20 + q^26 - q^28 + q^29 - q^32 - q^46 - q^49 - q^56 - q^63 - 
        q^64 + q^65 + q^70 - q^72 + q^80 + q^86 + q^94 - q^100 - q^104 + q^112 -
        q^115 - q^116 + q^124 + q^128 + q^131 - q^157 + q^158 - q^172 - q^178 + 
        q^180 + q^182 + q^184 - q^188 + q^196 + O(q^198),
    q^9 - 3*q^20 + 2*q^26 - 2*q^28 + 3*q^29 + q^31 - 2*q^32 + q^36 + 2*q^43 - 
        q^45 - 2*q^46 + 2*q^47 - 2*q^49 - q^51 - 2*q^52 - 2*q^56 - 2*q^58 - 
        2*q^61 - 2*q^64 + q^65 + q^70 + q^79 + q^80 - q^81 + 2*q^86 + q^89 + 
        2*q^92 + 2*q^94 + 2*q^98 - q^100 - 2*q^104 - q^111 + 2*q^112 - q^115 - 
        q^116 + 3*q^124 - 2*q^125 + 2*q^128 - 2*q^130 + 3*q^131 + q^139 + q^144 
        + q^145 - 2*q^151 + 3*q^155 + 2*q^158 - 2*q^172 + q^175 + 2*q^180 + 
        2*q^182 + 2*q^184 - 2*q^188 - 2*q^193 + 2*q^196 + O(q^198),
    q^10 - q^20 + 2*q^26 + 2*q^29 - q^40 - 2*q^46 - 2*q^49 - 2*q^56 - 2*q^64 + 
        q^65 + q^70 + q^80 + 2*q^86 - q^90 + 2*q^94 - q^100 - 2*q^104 - q^115 - 
        2*q^116 + 2*q^124 - q^125 - q^130 + 2*q^131 + q^140 + q^155 + q^160 + 
        q^180 + 2*q^184 + 2*q^196 + O(q^198),
    q^13 - 1/2*q^20 - q^23 + 1/2*q^35 + 1/2*q^40 - 1/2*q^50 - q^52 - q^58 + q^62
        - 1/2*q^65 + 1/2*q^70 + 1/2*q^80 + q^92 + q^98 + q^112 + 1/2*q^115 - 
        q^117 - q^122 + q^128 - 1/2*q^130 - 1/2*q^140 - 1/2*q^145 - 1/2*q^160 - 
        q^172 - 1/2*q^175 + 1/2*q^180 - q^182 - q^188 + O(q^198),
    q^14 + q^16 + q^20 - 2*q^26 + q^28 - 2*q^29 + q^32 - q^43 + 2*q^46 - q^47 + 
        2*q^49 + q^52 + q^56 + q^58 + q^64 - q^65 - q^70 - q^79 - q^80 - q^86 - 
        q^91 - q^92 - q^94 - q^98 + q^100 + q^104 - q^112 + q^115 + q^116 - 
        2*q^124 + q^125 - q^126 - q^128 + 2*q^130 - 2*q^131 - q^144 - 2*q^155 - 
        q^158 + q^161 + q^169 + q^172 - q^175 - q^180 - q^182 - q^184 + q^188 + 
        q^193 - q^196 + O(q^198),
    q^25 + 2*q^26 - 2*q^31 - q^35 - q^40 - 2*q^46 + 2*q^61 + q^70 + q^80 + 
        2*q^91 - 2*q^116 - q^130 - q^145 - 2*q^161 + 2*q^196 + O(q^198)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
996
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
326
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
996
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
326
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
996
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
82
);
qprec:=
326
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
996
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
82
);
qprec:=
326
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
996
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
82
);
qprec:=
326
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
996
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
82
);
qprec:=
326
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
996
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
41*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
326
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^25 - q^29 - q^33 - q^61 + q^83 + q^87 - q^93 + q^99 - q^111 - q^113 + 
        q^119 + q^121 - q^127 + q^147 - q^151 - q^161 - q^167 + q^169 + q^183 - 
        q^189 - q^207 + 2*q^227 - q^231 - q^253 + q^279 - q^287 - q^319 + 
        O(q^326),
    q^2 + q^8 - q^14 - q^18 - q^22 + q^32 - q^34 + 2*q^46 + q^50 + q^54 - q^56 -
        q^58 - q^62 - q^72 - q^74 + 2*q^82 - q^88 - q^118 - q^122 + q^126 + 
        q^128 - q^136 + q^154 + q^166 + 2*q^184 + q^198 + q^200 + q^216 - q^218 
        - q^224 - q^226 - q^232 + q^238 - q^248 - q^254 + 2*q^262 - q^288 - 
        q^296 - q^302 + q^306 - 2*q^322 + O(q^326),
    q^3 - q^33 + q^75 - q^93 - q^111 + q^147 - q^189 - q^207 - q^231 + q^249 + 
        q^261 + q^297 + O(q^326),
    q^4 + q^16 - q^28 - q^36 - q^44 + q^64 - q^68 + 2*q^92 + q^100 + q^108 - 
        q^112 - q^116 - q^124 - q^144 - q^148 + 2*q^164 - q^176 - q^236 - q^244 
        + q^252 + q^256 - q^272 + q^308 + O(q^326),
    q^6 - q^18 + q^24 - q^42 - q^66 - q^72 + q^96 - q^102 + q^126 + 2*q^138 + 
        q^150 + q^162 - q^168 - q^174 - q^186 + q^198 - q^222 + 2*q^246 - q^264 
        - q^288 + q^306 + O(q^326),
    q^7 + q^17 - q^29 - q^33 - q^49 + q^59 - q^61 + q^69 + q^81 - q^93 + q^99 + 
        q^109 - q^111 - q^113 - q^119 + q^121 + q^123 - q^127 - q^151 - q^161 - 
        q^167 + q^175 - q^189 + q^191 + q^197 + q^203 - q^207 + q^279 - q^287 - 
        q^289 + q^313 + q^317 - q^319 + O(q^326),
    q^9 - q^63 - q^69 + q^87 - q^123 + q^147 - q^153 + q^183 - q^189 + q^225 - 
        q^231 + O(q^326),
    q^11 - q^29 + q^31 - q^33 + q^37 - q^49 - q^61 + q^63 + q^69 + q^77 - q^93 -
        q^111 - q^113 - q^119 + q^123 - q^127 - q^151 + q^153 - q^167 + q^173 + 
        q^187 - q^207 + q^217 + q^241 - q^253 + q^259 + q^275 - q^289 - q^319 + 
        O(q^326),
    q^12 - q^36 + q^48 - q^84 - q^132 - q^144 + q^192 - q^204 + q^252 + 2*q^276 
        + q^300 + q^324 + O(q^326),
    q^21 + q^51 - q^69 - q^81 - q^99 - q^123 + q^177 + q^207 - q^231 + q^243 - 
        q^279 + q^297 + O(q^326),
    q^23 - q^29 - q^33 + q^41 - q^49 - q^61 + q^63 + q^69 + q^77 + q^81 - q^93 +
        q^99 - q^111 - q^113 - q^119 + q^123 - q^127 + q^131 - q^151 + q^153 - 
        q^161 - q^167 + q^187 - q^189 + q^193 + q^199 + q^203 - 2*q^207 + q^217 
        + q^229 - q^243 - q^253 + q^259 + q^277 + q^279 - q^287 - q^289 + q^293 
        - q^297 + O(q^326),
    q^27 + q^33 - q^63 - q^69 - q^81 + q^93 - q^99 + q^111 - q^123 - q^153 + 
        q^207 + q^243 + q^261 - q^279 + q^297 + O(q^326)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
996
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 41*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
326
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^10 + q^16 - q^33 + q^36 - q^37 - q^40 + q^49 - q^61 + q^64
        - q^69 + q^81 - q^90 - q^106 - q^109 - q^114 - q^132 + q^144 - q^148 - 
        q^160 + q^169 - q^177 - q^178 - q^193 + q^196 - q^202 - q^229 - q^241 - 
        q^244 + q^249 + q^250 + q^253 + q^256 + 2*q^258 + q^265 + 2*q^274 - 
        q^276 - q^277 + q^285 + q^289 - q^297 + 2*q^298 + 2*q^313 + q^324 + 
        O(q^326),
    q^2 - q^5 + q^8 + q^18 - q^20 + q^32 - q^45 - q^53 - q^57 - q^66 + q^72 - 
        q^74 - q^80 - q^89 + q^98 - q^101 - q^122 + q^125 + q^128 + 2*q^129 + 
        2*q^137 - q^138 + 2*q^149 + q^162 + q^165 - q^180 + q^185 - q^201 + 
        q^209 - q^212 - q^218 - q^228 - q^233 + 2*q^237 - q^245 - q^257 - q^264 
        + 2*q^269 - q^281 + q^288 - q^296 + q^305 - q^309 - q^320 + O(q^326),
    q^3 - q^11 + q^12 - q^23 + q^27 - q^30 - q^38 - q^44 + q^48 - q^59 + q^83 + 
        2*q^86 - q^92 + q^95 - q^99 + q^108 + q^110 - q^111 - q^120 + 2*q^131 - 
        q^134 + q^147 - q^152 + 2*q^158 - q^167 - q^176 - q^183 + 2*q^191 + 
        q^192 - q^206 - q^207 - 2*q^215 - q^227 + q^230 - q^236 + q^243 - q^270 
        - q^278 - q^318 + O(q^326),
    q^6 - q^15 - q^19 - q^22 + q^24 + 2*q^43 - q^46 + q^54 + q^55 - q^60 - q^67 
        - q^76 + 2*q^79 - q^88 + q^96 - q^103 + q^115 - q^118 - q^135 - q^139 - 
        q^159 + 2*q^163 + q^166 - q^171 + 2*q^172 - q^184 + q^190 - q^198 - 
        q^211 + q^216 + q^220 - q^222 + 2*q^223 - q^240 + 2*q^262 - q^267 - 
        q^268 - q^271 - q^283 + q^294 + q^295 - q^303 - q^304 - q^307 + 2*q^316 
        + O(q^326)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
997
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
996
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
997
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
332
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
997
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
83*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
997
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
249*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
998
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
498
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
998
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
166
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
998
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
83*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
998
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
249*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
248
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^5 + q^9 + q^16 - q^20 - q^29 - q^31 + q^36 - q^43 - q^45 - q^47 
        + q^49 + q^64 - q^67 - q^73 - q^80 + q^81 - q^101 - q^103 - q^107 - 
        q^109 - q^116 + q^121 - q^124 + q^125 + 2*q^127 + 2*q^131 + 2*q^137 - 
        q^139 + q^144 + q^145 - q^151 + q^155 + 2*q^167 + q^169 - q^172 - q^180 
        + 2*q^181 - q^188 + q^196 + 2*q^197 - q^199 - q^211 + q^215 - q^227 - 
        q^233 + q^235 - q^239 - q^245 + O(q^248),
    q^2 + q^8 - q^10 + q^18 + q^32 - q^40 - q^58 - q^62 + q^72 - q^86 - q^90 - 
        q^94 + q^98 + q^128 - q^134 - q^146 - q^160 + q^162 - q^202 - q^206 - 
        q^214 - q^218 - q^232 + q^242 + O(q^248)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (a^9 - a^5)*q^7 + (a^8 + a^3)*q^13 + a^2*q^16 + (-a^10 + a^4 + 
        a)*q^19 + a^5*q^25 + (-a^10 + a^6)*q^28 + (-a^11 + a^10 - a^4)*q^31 + 
        (-a^6 + 1)*q^37 + (a^8 + a^7 - a^2 - a)*q^43 + (a^10 - a^8 + a^2 - 
        1)*q^49 + (-a^9 - a^4)*q^52 + (-a^7 + a^4)*q^61 - a^3*q^64 + (-a^11 + 
        a^9 + a^5 - a^3)*q^67 + (a^11 + a^7)*q^73 + (a^11 - a^5 - a^2)*q^76 + 
        (-a^9 - a^8 + a^3)*q^79 + (a^11 - a^8 - a^7 + a^6 - a^5 + a - 1)*q^91 + 
        (-a^7 - a^2 + a)*q^97 - a^6*q^100 + (-a^9 - a^6 + a^3)*q^103 + (a^9 + 
        a^4 - a^3)*q^109 + (a^11 - a^7)*q^112 + (a^6 - 1)*q^121 + (-a^11 + a^6 +
        a^5 - 1)*q^124 + (-a^4 - 1)*q^127 + (a^10 + a^7 - a^6 - a^3)*q^133 + 
        (-a^9 + a^7)*q^139 + (a^7 - a)*q^148 + (-a^8 - a^6 + a^2 + 1)*q^151 + 
        (-a^7 - a^3 + a)*q^157 + (-a^11 + a^8 + a^5 - a^2)*q^163 + (a^11 + a^10 
        + a^6 - a^4)*q^169 + (-a^9 - a^8 + a^3 + a^2)*q^172 + (-a^10 + a^8 - 
        a^2)*q^175 + (-a^11 - a^9)*q^181 + (-a^10 + a^5 + a^4)*q^193 + (-a^11 + 
        a^9 - a^3 + a)*q^196 + (a^7 - a^2 - a)*q^199 + (a^10 + a^5)*q^208 + 
        (-a^8 - a^4)*q^211 + (a^10 - a^7 - a^4 + a^3 + a^2)*q^217 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
14*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
16*H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + (a^5 - 1)*q^7 + (a^5 + a^3 - a^2)*q^13 + a^2*q^16 + (-a^4 + 
        2*a)*q^19 + a^5*q^25 + (a^3 - a - 1)*q^28 + (-a^4 - a^2 + a)*q^31 - 
        a^3*q^37 + (-a^5 - a^4)*q^43 + (-a^5 - a + 1)*q^49 + (a^4 - 1)*q^52 + 
        (2*a^4 - a)*q^61 + a^3*q^64 + (-a^5 - a^3 + a^2 + 1)*q^67 + (a^4 - a^2 -
        a)*q^73 + (-a^5 + 2*a^2)*q^76 + (a^5 - a^3 - a^2 + 1)*q^79 + (-a^4 - 
        a^3)*q^91 + (-a^4 + a^2)*q^97 + (a^3 - 1)*q^100 + (a^4 - a^3 + 1)*q^109 
        + (a^4 - a^2 - a)*q^112 - a^3*q^121 + (-a^5 - a^3 + a^2)*q^124 + (a^4 + 
        1)*q^127 + (a^4 + 2*a^3 - 2*a - 1)*q^133 + (a^4 - a - 1)*q^139 - 
        a^4*q^148 + (-a^5 - a^3)*q^151 + (-a^4 + a^3)*q^157 + (-2*a^5 + 
        a^2)*q^163 + (-a^4 + a^3 - a^2 + a - 1)*q^169 + (-a^5 - a^3 + 1)*q^172 +
        (-a^5 - a)*q^175 + (-a^2 - 1)*q^181 + (a^5 - a^4 + a)*q^193 + (-a^3 - 
        a^2 + a + 1)*q^196 + (-a^4 + a^2)*q^199 + (a^5 - a)*q^208 + (a^5 + a^4 -
        a^2)*q^211 + (a^3 + a^2)*q^217 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
17*H.1 + 2*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + (-2*a^3 + a)*q^7 + (a^3 - a^2)*q^13 + a^2*q^16 + (-a^2 + a + 
        1)*q^19 + (a^3 - a)*q^25 + (a^2 - 2)*q^28 + (a^3 + a^2 - a - 1)*q^31 - 
        q^37 + (a^2 + a)*q^43 - 2*a^2*q^49 + (a^3 - a^2 + 1)*q^52 + (a^2 + a - 
        1)*q^61 - a^3*q^64 + a*q^67 - a^3*q^73 + (a^3 - a^2 - a)*q^76 + (-a^3 + 
        a^2)*q^79 + (a^3 + a^2 - 2*a + 1)*q^91 + (-a^2 - a)*q^97 + q^100 + (-a^3
        + 1)*q^103 + (a^3 + a^2 - 1)*q^109 + (-a^3 + 2*a)*q^112 + q^121 + (-a^3 
        + a + 1)*q^124 - a^2*q^127 + (-a^3 - a^2 - a + 2)*q^133 + (a^3 - 
        a)*q^139 + a*q^148 + (-a^2 - 1)*q^151 + (-a^3 - a)*q^157 + (-a^3 + a^2 +
        a)*q^163 + (-a^3 + a^2 + a - 2)*q^169 + (-a^3 - a^2)*q^172 + (2*a^2 - 
        1)*q^175 + (2*a^3 - a)*q^181 + (a^3 - a^2 - a + 1)*q^193 + 2*a^3*q^196 +
        (-a^2 + a)*q^199 + (a^3 - a^2 - a + 1)*q^208 + q^211 + (a^3 + 2*a^2 + a 
        - 1)*q^217 + O(q^218),
    q^3 - a*q^12 + (-2*a^3 + a)*q^21 + (a^3 - a^2)*q^39 + a^2*q^48 + (-a^2 + a +
        1)*q^57 + (a^3 - a)*q^75 + (a^2 - 2)*q^84 + (a^3 + a^2 - a - 1)*q^93 - 
        q^111 + (a^2 + a)*q^129 - 2*a^2*q^147 + (a^3 - a^2 + 1)*q^156 + (a^2 + a
        - 1)*q^183 - a^3*q^192 + a*q^201 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^4 + (-a + 1)*q^7 + (-a^4 + a^3 + a - 1)*q^13 + a^4*q^16 + (-a^5 + 
        a^2)*q^19 - a*q^25 + (-a^3 + a^2)*q^28 + (-a^5 + a^4)*q^31 + (a^3 - 
        1)*q^37 + (a^5 - a^2 - a)*q^43 + (a^2 - a + 1)*q^49 + (a^5 - a^2 + 
        1)*q^52 - a^2*q^61 + (a^3 - 1)*q^64 + (-a^4 - a^3 + a)*q^67 + (-a^5 + 
        a^4)*q^73 + a*q^76 + (-a^4 - a^3 + a)*q^79 + (a^5 - 2*a^4 + a^3 - a^2 + 
        2*a - 1)*q^91 + (a^5 + a^4 - a^2)*q^97 - a^3*q^100 - 2*a^3*q^103 + (a^5 
        - a^3 - a^2)*q^109 + (-a^5 + a^4)*q^112 + (a^3 - 1)*q^121 + (-a^4 + a^3 
        + a - 1)*q^124 + (a^5 - a^2 + 1)*q^127 + (-a^5 + a^2 - 1)*q^133 + (-a^5 
        + 1)*q^139 + (a^5 - a^2)*q^148 + (a^3 - a - 1)*q^151 + (a^5 + a^3 - a^2 
        - 1)*q^157 - a^4*q^163 + (-a^5 + a^4 - a^3)*q^169 + (-a^3 - a)*q^172 + 
        (a^2 - a)*q^175 + (a^4 + 1)*q^181 + (-a^5 - a)*q^193 + (a^4 - a^3 + 
        a^2)*q^196 + (a^5 + a^4 - a^2)*q^199 + (a^2 - a)*q^208 + (a^5 - a^4 - 
        a^2 + a)*q^211 + (-2*a^5 + a^4 + a^3 - 1)*q^217 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
17*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^4 - a*q^7 + (a - 2)*q^13 + (a - 1)*q^16 + (-a + 1)*q^25 + (-a + 
        1)*q^28 + (-2*a + 1)*q^31 + q^37 + (2*a - 1)*q^43 + (-a - 1)*q^52 - q^64
        - a*q^67 + q^73 + (a - 2)*q^79 + (a + 1)*q^91 + (2*a - 1)*q^97 + q^100 +
        (-a - 1)*q^109 + q^112 + q^121 + (-a + 2)*q^124 + (-a + 1)*q^127 + (a - 
        1)*q^139 + a*q^148 + a*q^151 + (a - 1)*q^157 + (-2*a + 2)*q^169 + (a - 
        2)*q^172 - q^175 - a*q^181 + (-2*a + 1)*q^193 + (2*a - 1)*q^199 + (-2*a 
        + 1)*q^208 - q^211 + (a - 2)*q^217 + O(q^218),
    q^3 + a*q^12 - a*q^21 + (a - 2)*q^39 + (a - 1)*q^48 + (-a + 1)*q^75 + (-a + 
        1)*q^84 + (-2*a + 1)*q^93 + q^111 + (2*a - 1)*q^129 + (-a - 1)*q^156 - 
        q^192 - a*q^201 + O(q^218),
    q^9 - a*q^27 + a*q^36 - a*q^63 + (a - 1)*q^81 + (-a + 1)*q^108 + (a - 
        2)*q^117 + (a - 1)*q^144 + (a - 1)*q^189 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + (-a + 1)*q^13 - q^16 + (a - 1)*q^19 + a*q^25 + (a + 1)*q^31 - 
        q^37 + (a - 1)*q^43 - q^49 + (-a - 1)*q^52 + (a + 1)*q^61 + a*q^64 - 
        2*a*q^67 - 2*a*q^73 + (a + 1)*q^76 + (a - 1)*q^79 + (-a + 1)*q^97 + 
        q^100 + (a + 1)*q^103 + (-a + 1)*q^109 + q^121 + (-a + 1)*q^124 - 
        2*q^127 - 2*a*q^139 + a*q^148 + (-a - 1)*q^163 - a*q^169 + (a + 1)*q^172
        + (a - 1)*q^193 + a*q^196 + (a + 1)*q^199 + (a - 1)*q^208 - 2*q^211 + 
        O(q^218),
    q^3 - a*q^12 + (-a + 1)*q^39 - q^48 + (a - 1)*q^57 + a*q^75 + (a + 1)*q^93 -
        q^111 + (a - 1)*q^129 - q^147 + (-a - 1)*q^156 + (a + 1)*q^183 + a*q^192
        - 2*a*q^201 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^7 - q^10 + (a - 1)*q^19 + a*q^22 - q^31 - q^43 - a*q^46 + 
        a*q^52 + (-a + 1)*q^55 + q^64 + (-a + 1)*q^67 + (a - 1)*q^70 - q^73 - 
        a*q^76 + q^100 + q^103 + (-a + 1)*q^106 + a*q^109 + (a - 1)*q^115 + (a -
        1)*q^118 + (-a + 1)*q^130 + a*q^133 + (a - 1)*q^148 + q^154 + a*q^157 - 
        a*q^160 - a*q^163 + (-a + 1)*q^178 + (-a + 1)*q^181 - q^199 - q^208 - 
        q^211 + (a - 1)*q^217 + O(q^218),
    q^2 - a*q^5 + (a - 1)*q^11 + (-a + 1)*q^14 - q^20 + (-a + 1)*q^23 + (a - 
        1)*q^26 + a*q^32 - q^35 + a*q^44 + a*q^50 + q^53 - q^59 - q^62 + q^65 - 
        q^74 + a*q^77 + (-a + 1)*q^80 - q^86 + q^89 - a*q^92 + (-2*a + 2)*q^110 
        + (-2*a + 2)*q^122 + (-a + 1)*q^134 + (a - 1)*q^140 - a*q^143 - q^146 + 
        (a - 1)*q^149 + a*q^155 + (a - 1)*q^158 - a*q^161 - q^176 + a*q^182 + 
        a*q^185 + (-a + 1)*q^191 + q^194 + (-a + 1)*q^212 + a*q^215 + O(q^218),
    q^3 + (-a + 1)*q^21 - q^30 + (a - 1)*q^57 + a*q^66 - q^93 - q^129 - a*q^138 
        + a*q^156 + (-a + 1)*q^165 + q^192 + (-a + 1)*q^201 + (a - 1)*q^210 + 
        O(q^218),
    q^4 - a*q^10 - q^13 + (a - 1)*q^16 + q^19 + (a - 1)*q^22 + (a - 1)*q^25 + 
        (-a + 1)*q^28 - a*q^37 + (-a + 1)*q^46 + q^55 + 2*q^61 - q^70 + (a - 
        1)*q^76 - q^79 + (a - 1)*q^91 + a*q^97 - a*q^103 + q^106 + a*q^112 - 
        q^115 - q^118 - a*q^121 - q^124 + (-a + 1)*q^127 + q^130 + (-a + 
        1)*q^133 + (-a + 1)*q^139 - q^151 + a*q^154 + (-a + 1)*q^160 + (a - 
        1)*q^163 - q^172 + a*q^175 + q^178 + a*q^193 + O(q^218),
    q^6 - a*q^15 + (a - 1)*q^33 + (-a + 1)*q^42 - q^60 + (-a + 1)*q^69 + (a - 
        1)*q^78 + a*q^96 - q^105 + a*q^132 + a*q^150 + q^159 - q^177 - q^186 + 
        q^195 + O(q^218),
    q^9 + (a - 1)*q^27 + (a - 1)*q^36 + (-a + 1)*q^63 - a*q^81 - a*q^108 + (-a +
        1)*q^117 - a*q^144 + (2*a - 2)*q^171 + a*q^189 + O(q^218),
    q^12 - a*q^30 - q^39 + (a - 1)*q^48 + q^57 + (a - 1)*q^66 + (a - 1)*q^75 + 
        (-a + 1)*q^84 - a*q^111 + (-a + 1)*q^138 + q^165 + 2*q^183 - q^210 + 
        O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
999
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 2*q^16 + 2*q^25 - 2*q^28 + q^37 - q^40 - q^46 - q^58 + q^64 + q^67 - 
        q^73 - 2*q^85 - q^100 - 2*q^115 + q^121 - q^127 - q^136 - q^139 + 
        2*q^145 - q^151 - 2*q^160 + q^169 + q^175 + q^178 + q^181 - q^184 - 
        q^211 + O(q^218),
    q^2 + q^20 + q^23 - q^29 - q^32 - 2*q^35 + q^50 - q^68 - q^74 - q^80 - q^89 
        + 2*q^98 + q^113 - q^119 + q^125 + q^131 - q^140 + 2*q^161 - q^167 + 
        q^170 + q^179 - q^185 + q^191 + q^203 + O(q^218),
    q^4 - q^16 - q^25 + q^28 - q^34 - q^37 + q^46 + q^49 - q^67 - q^70 + q^73 + 
        2*q^85 + q^100 - q^112 + q^115 - q^118 + q^139 - 2*q^145 + q^151 - 
        2*q^175 - q^178 - q^181 + q^196 + O(q^218),
    q^5 - q^17 - q^20 - q^23 + q^29 + q^35 - q^59 + q^68 + q^80 + q^92 - q^113 -
        q^116 - q^119 + q^125 - q^140 - q^161 + q^167 - q^179 + q^185 + q^203 + 
        O(q^218),
    q^7 - 2*q^16 - q^25 + 2*q^28 - q^34 - q^37 + q^40 + 2*q^46 + q^49 + q^58 - 
        2*q^64 - q^67 - q^70 + q^85 - q^118 + q^136 - q^145 - q^148 + q^151 + 
        q^157 + 2*q^160 - q^175 - 2*q^178 - q^181 + q^184 + q^196 + O(q^218),
    q^8 - q^17 - 2*q^20 - q^23 + q^29 + 2*q^32 + 2*q^35 - q^50 - q^56 - q^59 + 
        q^74 + q^89 - q^98 - q^113 - q^116 + 2*q^128 - q^134 + q^140 + q^146 - 
        q^161 + q^167 - q^179 + q^185 + O(q^218),
    q^10 - 2*q^16 + q^28 - q^37 + q^40 + q^46 + q^49 - 2*q^64 - 2*q^70 + q^85 + 
        q^100 + q^112 + q^136 - 2*q^145 - q^148 + q^151 + q^160 - 2*q^175 - 
        2*q^178 + q^184 + q^196 + O(q^218),
    q^14 - q^17 - q^20 + q^29 + q^35 - q^50 - q^59 + q^80 + q^92 - q^119 - q^134
        + q^167 + q^185 + O(q^218)
]
;
Bo:=
[
    q - q^7 - q^10 + q^28 + q^34 - q^46 + q^49 + q^58 - q^64 - q^67 - q^73 - 
        q^85 + q^100 - q^112 + q^115 + q^118 + q^121 + 2*q^127 - q^139 - q^145 -
        q^148 - q^157 + q^160 + q^169 + q^175 - q^178 - q^181 - 2*q^196 + 
        2*q^211 + O(q^218),
    q^2 - q^5 + q^17 - q^20 - q^23 + q^29 - q^32 + q^50 + q^59 + q^68 - q^74 + 
        q^80 - q^89 - q^92 - q^98 - q^113 + q^116 + q^131 + q^167 - 2*q^170 - 
        q^179 + q^185 + q^191 + O(q^218),
    q^3 - q^21 - q^30 + q^84 + q^102 - q^138 + q^147 + q^174 - q^192 - q^201 + 
        O(q^218),
    q^4 + q^7 - q^10 - q^16 + q^25 - q^28 + q^34 - q^37 - q^46 - 2*q^49 + q^58 +
        q^67 + q^73 - q^85 + q^112 + q^115 + q^118 + q^139 - q^145 - 2*q^151 + 
        q^157 + q^160 - q^175 - q^178 + q^181 + q^196 + O(q^218),
    q^6 - q^15 + q^51 - q^60 - q^69 + q^87 - q^96 + q^150 + q^177 + q^204 + 
        O(q^218),
    q^9 - q^63 + q^81 - q^90 - q^108 - q^189 + O(q^218),
    q^12 + q^21 - q^30 - q^48 + q^75 - q^84 + q^102 - q^111 - q^138 - 2*q^147 + 
        q^174 + q^201 + O(q^218),
    q^18 - q^45 - q^54 + q^135 + q^153 + q^162 - q^180 - q^207 + O(q^218),
    q^27 - q^36 - q^63 + q^90 + q^144 - q^189 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^21 - q^49 - q^61 + q^69 + q^89 - q^101 + q^121 - q^129 + q^141 + q^149
        + 2*q^161 - q^169 - q^189 + q^229 - q^241 + q^249 - q^261 + O(q^262),
    q^2 - q^8 + q^28 + q^32 - q^42 - q^92 - q^98 + q^108 - q^112 - q^122 - q^128
        + q^138 + q^168 + q^178 - q^202 + q^242 + q^252 - q^258 + O(q^262),
    q^3 - q^27 + q^43 - q^47 - q^63 + 2*q^67 + 2*q^87 - 2*q^103 - q^107 - 
        2*q^123 - q^127 + q^147 - q^167 + q^183 + q^203 + q^207 + q^223 - q^243 
        + O(q^262),
    q^4 - q^14 - q^16 + q^46 - q^54 + q^56 + q^64 - q^84 - q^126 + 2*q^134 + 
        q^166 + q^174 - q^184 - q^196 - 2*q^206 + q^216 - q^224 - q^244 - q^246 
        - q^256 + O(q^262),
    q^6 + q^14 - q^24 - q^36 - q^46 - q^56 + q^86 - q^94 + q^96 + q^116 + q^144 
        - q^164 - q^166 + q^174 + q^184 + q^196 - q^214 + q^224 + q^244 - q^246 
        - q^254 + O(q^262),
    q^7 - q^23 + q^27 + q^63 - 2*q^67 - q^83 - q^87 + 2*q^103 + q^123 - q^147 - 
        q^163 - q^183 - q^203 - q^207 + q^227 + q^243 + O(q^262),
    q^9 - q^29 + q^41 - q^49 - q^61 + q^89 - q^101 - q^109 + q^129 - q^141 + 
        q^149 + q^161 + q^181 - q^189 + 2*q^201 + q^229 - q^241 + q^261 + 
        O(q^262),
    q^12 + q^18 + q^28 - q^48 - q^58 - q^72 + q^82 - q^92 - q^98 - q^112 - q^122
        + q^172 + q^178 - q^188 + q^192 - q^202 - q^218 + q^232 + q^258 + 
        O(q^262)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 - q^9 + q^14 + q^16 + q^19 + q^36 - q^41 - q^49 - q^56 + q^59 - q^64
        + q^74 - q^76 + q^81 - q^91 - q^106 - q^126 - q^144 + q^154 - q^161 + 
        q^164 - q^171 + q^179 + q^196 + q^209 - q^211 + q^224 - q^236 + 2*q^251 
        - 2*q^254 + q^256 - 2*q^259 + O(q^262),
    q^2 - q^8 + q^13 - q^18 - q^22 + q^23 + q^32 - q^47 - q^52 + q^72 - q^77 + 
        q^88 - q^92 + q^103 - q^117 + 2*q^127 - q^128 - q^133 - 2*q^143 + 
        2*q^157 + q^162 + q^178 - q^182 + q^188 + 2*q^197 + q^198 - q^207 + 
        q^208 - 2*q^223 + q^242 - q^247 - 2*q^253 + O(q^262),
    q^7 + q^13 - q^22 + q^23 - q^28 + q^37 - q^38 - q^47 - q^52 - q^53 - q^63 + 
        q^82 + q^88 - q^92 + q^98 + q^103 + q^112 - q^117 - q^118 + q^133 - 
        q^143 - q^148 + q^152 + q^167 - q^173 + q^178 + q^188 + q^198 - q^207 + 
        q^208 + q^212 + q^242 + q^252 - q^253 + O(q^262),
    q^11 + q^14 + q^19 + q^26 - q^41 - q^44 + q^46 - q^49 - q^56 + q^59 + q^74 -
        q^76 - q^89 - q^94 - q^99 - q^104 - q^106 - q^121 - q^126 + q^131 - 
        q^139 + q^164 + q^169 - q^171 + q^176 + q^179 - q^184 + q^196 + q^206 - 
        q^211 + q^224 - q^234 - q^236 + q^241 - q^259 + O(q^262)
]
;
Bo:=
[
    q + q^4 - q^6 - q^11 + q^16 - q^19 - q^24 - q^34 - q^41 - q^44 + q^49 + q^51
        + q^54 + 2*q^59 + q^64 + q^66 - q^76 - q^81 + 2*q^86 - q^89 - q^96 + 
        q^114 - 2*q^129 + 2*q^131 - q^134 - q^136 - q^139 - q^146 - q^164 - 
        q^166 + q^169 - q^176 - q^179 + 2*q^194 + q^196 + q^201 + q^204 + q^209 
        - q^211 - q^214 + q^216 + q^219 - q^226 + 2*q^236 - q^241 + q^246 + 
        q^249 - q^251 + q^256 + O(q^262),
    q^2 - q^3 + q^8 - q^12 - q^17 - q^22 + q^27 + q^32 + q^33 - q^38 + 2*q^43 - 
        q^48 + q^57 - q^67 - q^68 - q^73 - q^82 - q^83 - q^88 + 2*q^97 + q^98 + 
        q^102 - q^107 + q^108 - q^113 + 2*q^118 + q^123 + q^128 + q^132 - q^137 
        - q^147 - q^152 - q^162 - q^163 + 2*q^172 - 2*q^177 - q^178 + q^187 - 
        q^192 - q^193 + 2*q^227 + q^228 + 2*q^233 + 2*q^257 - 2*q^258 + 
        O(q^262),
    q^5 + q^20 - q^30 - q^55 + q^80 - q^95 - q^120 - q^170 - q^205 - q^220 + 
        q^245 + q^255 + O(q^262),
    q^10 - q^15 + q^40 - q^60 - q^85 - q^110 + q^135 + q^160 + q^165 - q^190 + 
        2*q^215 - q^240 + O(q^262)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
100
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
100
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
50
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
50
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
50
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^18*q^5 + a^14*q^9 + (a^17 - a^12 + a^7 + a^6 - a^2)*q^13 + (a^12 - 
        a^9)*q^17 - a^11*q^25 + (a^16 + a^8)*q^29 + (-a^18 + a^13 + a^10 - a^8 +
        a^3)*q^37 + (-a^17 - a^16 + a^11 - a^6 + a)*q^41 - a^7*q^45 + (a^15 - 
        a^10 + a^5 - 1)*q^49 + (-a^5 + a^4)*q^53 + (a^19 - a^14 - a^13 + a^9 - 
        a^4)*q^61 + (a^19 - a^15 - a^14 + a^9 - a^4)*q^65 + (-a^19 - a^13)*q^73 
        - a^3*q^81 + (-a^5 + a^2)*q^85 + (-a^17 - a^15)*q^89 + (-a^16 + a^11 - 
        a^6 - a^3 + a)*q^97 + (-a^19 - a)*q^101 + (-a^7 - a)*q^109 + (a^10 + 
        a^8)*q^113 + (a^15 - a^11 - a^10 + a^5 - 1)*q^117 + a^2*q^121 + 
        a^4*q^125 + (a^16 + a^2)*q^137 + (-a^9 - a)*q^145 + (-a^18 + a^17 + a^13
        - a^12 - a^8 + a^7 + a^3 - a^2)*q^149 + (-a^18 + a^13 - a^8 + a^3 - 
        a)*q^153 + (a^6 + a^4)*q^157 + (-a^19 + a^12 - a^3)*q^169 + (a^15 - a^10
        + a^5 + a^2 - 1)*q^173 + (a^14 + a^12)*q^181 + (a^16 - a^3)*q^185 + 
        (a^18 - a^7)*q^193 + (-a^19 - a^15)*q^197 + (a^14 + a^10)*q^205 + (a^18 
        - a^15 - a^9 + a^6)*q^221 + q^225 + (-a^5 + a^4)*q^229 + (-a^16 + a^11 -
        a^6 + a + 1)*q^233 + (a^15 - a^10 + a^8 + a^5 - 1)*q^241 - a^13*q^245 + 
        (-a^13 - a^7)*q^257 + (a^17 - a^12 + a^7 - a^5 - a^2)*q^261 + O(q^262),
    q^2 - a*q^4 + a^2*q^8 + a^18*q^10 - a^3*q^16 + a^14*q^18 - a^19*q^20 + (a^17
        - a^12 + a^7 + a^6 - a^2)*q^26 + a^4*q^32 + (a^12 - a^9)*q^34 - 
        a^15*q^36 + (a^15 - a^10 + a^5 - 1)*q^40 - a^11*q^50 + (-a^18 + a^13 - 
        a^8 - a^7 + a^3)*q^52 + (a^16 + a^8)*q^58 - a^5*q^64 + (-a^13 + 
        a^10)*q^68 + a^16*q^72 + (-a^18 + a^13 + a^10 - a^8 + a^3)*q^74 + (-a^16
        + a^11 - a^6 + a)*q^80 + (-a^17 - a^16 + a^11 - a^6 + a)*q^82 - a^7*q^90
        + (a^15 - a^10 + a^5 - 1)*q^98 + a^12*q^100 + (a^19 - a^14 + a^9 + a^8 -
        a^4)*q^104 + (-a^5 + a^4)*q^106 + (-a^17 - a^9)*q^116 + (a^19 - a^14 - 
        a^13 + a^9 - a^4)*q^122 + a^6*q^128 + (a^19 - a^15 - a^14 + a^9 - 
        a^4)*q^130 + (a^14 - a^11)*q^136 - a^17*q^144 + (-a^19 - a^13)*q^146 + 
        (a^19 - a^14 - a^11 + a^9 - a^4)*q^148 + (a^17 - a^12 + a^7 - a^2)*q^160
        - a^3*q^162 + (a^18 + a^17 - a^12 + a^7 - a^2)*q^164 + (-a^5 + 
        a^2)*q^170 + (-a^17 - a^15)*q^178 + a^8*q^180 + (-a^16 + a^11 - a^6 - 
        a^3 + a)*q^194 + (-a^16 + a^11 - a^6 + a)*q^196 - a^13*q^200 + (-a^19 - 
        a)*q^202 + (-a^9 + 1)*q^208 + (a^6 - a^5)*q^212 + (-a^7 - a)*q^218 + 
        (a^10 + a^8)*q^226 + (a^18 + a^10)*q^232 + (a^15 - a^11 - a^10 + a^5 - 
        1)*q^234 + a^2*q^242 + (a^14 + 1)*q^244 + a^4*q^250 - a^7*q^256 + (a^16 
        + 1)*q^260 + O(q^262)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 4*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
50
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^2*q^9 + (a^2 - a + 1)*q^29 + (-a^3 - a)*q^41 - q^49 + (a^3 + a - 
        1)*q^61 + (a^3 - a^2 + a - 1)*q^81 + (a - 1)*q^89 + (-a^3 + a^2)*q^101 +
        (a^3 + a)*q^109 - a*q^121 + (-a^3 + a^2 + 1)*q^149 + (-a^3 + 1)*q^169 + 
        (a^2 - a)*q^181 + a*q^221 + (-a^2 - 1)*q^229 + (a^3 - a^2 + a)*q^241 + 
        (-a + 1)*q^261 + O(q^262),
    q^2 + a*q^8 - a^2*q^18 + a^2*q^32 + (a^3 - a^2 - 1)*q^52 + (a^2 - a + 
        1)*q^58 + (-a^3 + a^2 - a)*q^68 - a^3*q^72 + (-a^3 - a)*q^82 - q^98 + 
        (a^3 + a - 1)*q^122 + a^3*q^128 + (a^3 - a^2)*q^148 + (a^3 - a^2 + a - 
        1)*q^162 + (a - 1)*q^178 + (-a^3 + a^2)*q^202 + (-a^2 - 1)*q^208 + (-a^3
        + 1)*q^212 + (a^3 + a)*q^218 + (a^3 - a^2 + a)*q^232 - a*q^242 + 
        O(q^262),
    q^4 + a*q^16 + (a^3 - 1)*q^26 + (-a^2 + a - 1)*q^34 - a^2*q^36 + a^2*q^64 + 
        (a^2 - a)*q^74 + (a^3 - a^2 - 1)*q^104 + (-a^3 - a + 1)*q^106 + (a^2 - a
        + 1)*q^116 + (-a^3 + a^2 - a)*q^136 - a^3*q^144 + (-a^3 + a^2 + 1)*q^146
        + (-a^3 - a)*q^164 + (-a + 1)*q^194 - q^196 + (-a^2 + a)*q^226 + (a^2 + 
        1)*q^234 + (a^3 + a - 1)*q^244 + a^3*q^256 + O(q^262),
    q^13 + (-a^3 + 2*a^2 - a)*q^17 + (a^3 - a^2 + 1)*q^37 + (a^3 - a^2 + a - 
        1)*q^53 - a*q^73 + (a^3 - 2*a^2 + 2*a - 1)*q^97 + (-a^3 + a^2 - 1)*q^113
        - a^2*q^117 - q^137 + (-a^3 + 2*a^2 - 2*a + 1)*q^153 + (-a^3 + a - 
        1)*q^157 + (-a^2 + 2*a - 1)*q^173 - a^3*q^193 + (-a^3 + a^2 - a + 
        1)*q^197 + a^2*q^233 + a^3*q^257 + O(q^262)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 10*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^3 - a^2 + a - 1)*q^9 + (-a^3 - a)*q^29 + (a^2 - a)*q^41 + q^49 + 
        (-a^2 + a - 1)*q^61 - a^3*q^81 + (a^2 + 1)*q^89 + (a^3 - a^2 - 1)*q^101 
        + (a^2 - a)*q^109 + a^2*q^121 + (-a^3 + a^2)*q^149 + (a - 1)*q^169 + 
        (a^3 + a - 1)*q^181 - a^2*q^221 + (a^3 - a^2 + a)*q^229 + (-a^3 + 
        1)*q^241 + (a^2 + 1)*q^261 + O(q^262),
    q^2 + a^2*q^8 + (a^3 - a^2 + a - 1)*q^18 + (a^3 - a^2 + a - 1)*q^32 + (-a^3 
        + a^2)*q^52 + (-a^3 - a)*q^58 + (-a^3 + 1)*q^68 - a*q^72 + (a^2 - 
        a)*q^82 + q^98 + (-a^2 + a - 1)*q^122 - a*q^128 + (a^3 - a^2 - 1)*q^148 
        - a^3*q^162 + (a^2 + 1)*q^178 + (a^3 - a^2 - 1)*q^202 + (a^3 - a^2 + 
        a)*q^208 + (-a + 1)*q^212 + (a^2 - a)*q^218 + (-a^3 + 1)*q^232 + 
        a^2*q^242 + O(q^262),
    q^4 + a^2*q^16 + (-a + 1)*q^26 + (-a^3 - a)*q^34 + (a^3 - a^2 + a - 1)*q^36 
        + (a^3 - a^2 + a - 1)*q^64 + (a^3 + a - 1)*q^74 + (-a^3 + a^2)*q^104 + 
        (-a^2 + a - 1)*q^106 + (-a^3 - a)*q^116 + (-a^3 + 1)*q^136 - a*q^144 + 
        (-a^3 + a^2)*q^146 + (a^2 - a)*q^164 + (a^2 + 1)*q^194 + q^196 + (a^3 + 
        a - 1)*q^226 + (a^3 - a^2 + a)*q^234 + (-a^2 + a - 1)*q^244 - a*q^256 + 
        O(q^262),
    q^5 - a^3*q^25 + (a^3 - a^2 + a - 1)*q^45 + (a^2 - a)*q^65 + (a^3 + a - 
        1)*q^85 - a*q^125 + (-a^3 - a)*q^145 + (-a^3 + 1)*q^185 + (a^2 - 
        a)*q^205 + a^2*q^225 + q^245 + O(q^262),
    q^10 - a*q^20 + a^2*q^40 - a^3*q^50 - a^3*q^80 + (a^3 - a^2 + a - 1)*q^90 + 
        (a^3 - a^2 + a - 1)*q^100 + (a^2 - a)*q^130 + (a^3 - a^2 + a - 1)*q^160 
        + (a^3 + a - 1)*q^170 + q^180 + q^200 - a*q^250 + (-a^3 + a^2)*q^260 + 
        O(q^262),
    q^13 + (-2*a^3 + a^2 - a + 2)*q^17 + (a^3 - a^2 - 2)*q^37 - a^3*q^53 + 
        a^2*q^73 + (2*a^3 + a - 1)*q^97 + (a^3 - a^2 - 2)*q^113 + (a^3 - a^2 + a
        - 1)*q^117 + q^137 + (2*a^3 + a - 1)*q^153 + (a^2 + a + 1)*q^157 + (-a^3
        - a^2 - a)*q^173 - a*q^193 - a^3*q^197 + (a^3 - a^2 + a - 1)*q^233 - 
        a*q^257 + O(q^262)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 20*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
25*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 25*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 50*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^21 + q^49 - q^61 - q^69 - q^89 - q^101 + q^121 + q^129 + q^141 - q^149
        + 2*q^161 + q^169 + q^189 - q^229 - q^241 - q^249 - q^261 + O(q^262),
    q^2 + q^8 - q^28 + q^32 - q^42 - q^92 + q^98 - q^108 - q^112 - q^122 + q^128
        - q^138 - q^168 - q^178 - q^202 + q^242 + q^252 + q^258 + O(q^262),
    q^3 + q^27 + q^43 + q^47 - q^63 - 2*q^67 - 2*q^87 - 2*q^103 + q^107 - 
        2*q^123 + q^127 - q^147 + q^167 + q^183 + q^203 - q^207 + q^223 - q^243 
        + O(q^262),
    q^4 - q^14 + q^16 - q^46 - q^54 - q^56 + q^64 - q^84 + q^126 + 2*q^134 - 
        q^166 + q^174 - q^184 + q^196 + 2*q^206 - q^216 - q^224 - q^244 + q^246 
        + q^256 + O(q^262),
    q^6 - q^14 + q^24 - q^36 - q^46 - q^56 + q^86 + q^94 + q^96 + q^116 - q^144 
        + q^164 - q^166 - q^174 - q^184 + q^196 + q^214 - q^224 - q^244 - q^246 
        + q^254 + O(q^262),
    q^7 + q^23 + q^27 - q^63 - 2*q^67 + q^83 - q^87 - 2*q^103 - q^123 - q^147 + 
        q^163 + q^183 + q^203 - q^207 + q^227 - q^243 + O(q^262),
    q^9 - q^29 - q^41 - q^49 + q^61 + q^89 + q^101 - q^109 + q^129 + q^141 + 
        q^149 - q^161 - q^181 - q^189 - 2*q^201 + q^229 + q^241 - q^261 + 
        O(q^262),
    q^12 - q^18 - q^28 + q^48 + q^58 - q^72 + q^82 - q^92 + q^98 - q^112 - q^122
        + q^172 - q^178 + q^188 + q^192 - q^202 + q^218 + q^232 - q^258 + 
        O(q^262)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
1000
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 50*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^14 + q^16 - q^19 + q^36 - q^41 + q^49 - q^56 - q^59 + q^64
        - q^74 - q^76 + q^81 - q^91 - q^106 - q^126 + q^144 - q^154 - q^161 - 
        q^164 - q^171 - q^179 + q^196 - q^209 - q^211 - q^224 - q^236 + 2*q^251 
        + 2*q^254 + q^256 + 2*q^259 + O(q^262),
    q^2 + q^8 - q^13 + q^18 - q^22 - q^23 + q^32 - q^47 - q^52 + q^72 - q^77 - 
        q^88 - q^92 - q^103 - q^117 + 2*q^127 + q^128 + q^133 + 2*q^143 + 
        2*q^157 + q^162 - q^178 - q^182 - q^188 + 2*q^197 - q^198 - q^207 - 
        q^208 + 2*q^223 + q^242 - q^247 + 2*q^253 + O(q^262),
    q^7 - q^13 - q^22 - q^23 + q^28 + q^37 + q^38 - q^47 - q^52 + q^53 + q^63 + 
        q^82 - q^88 - q^92 - q^98 - q^103 + q^112 - q^117 + q^118 - q^133 + 
        q^143 + q^148 + q^152 + q^167 + q^173 - q^178 - q^188 - q^198 - q^207 - 
        q^208 + q^212 + q^242 + q^252 + q^253 + O(q^262),
    q^11 - q^14 - q^19 + q^26 - q^41 + q^44 + q^46 + q^49 - q^56 - q^59 - q^74 -
        q^76 + q^89 + q^94 + q^99 + q^104 - q^106 - q^121 - q^126 + q^131 + 
        q^139 - q^164 - q^169 - q^171 + q^176 - q^179 + q^184 + q^196 + q^206 - 
        q^211 - q^224 + q^234 - q^236 + q^241 + q^259 + O(q^262)
]
;
Bo:=
[
    q - q^4 - q^6 - q^11 + q^16 + q^19 + q^24 + q^34 - q^41 + q^44 - q^49 + q^51
        - q^54 - 2*q^59 - q^64 + q^66 - q^76 - q^81 + 2*q^86 + q^89 - q^96 - 
        q^114 + 2*q^129 + 2*q^131 + q^134 - q^136 + q^139 - q^146 + q^164 - 
        q^166 - q^169 - q^176 + q^179 - 2*q^194 + q^196 + q^201 - q^204 - q^209 
        - q^211 + q^214 + q^216 - q^219 - q^226 + 2*q^236 - q^241 + q^246 - 
        q^249 - q^251 + q^256 + O(q^262),
    q^2 + q^3 - q^8 - q^12 - q^17 - q^22 + q^27 + q^32 - q^33 + q^38 - 2*q^43 + 
        q^48 + q^57 - q^67 + q^68 + q^73 - q^82 + q^83 + q^88 + 2*q^97 - q^98 + 
        q^102 - q^107 - q^108 + q^113 - 2*q^118 - q^123 - q^128 + q^132 - q^137 
        - q^147 - q^152 - q^162 + q^163 + 2*q^172 - 2*q^177 + q^178 + q^187 - 
        q^192 + q^193 + 2*q^227 - q^228 - 2*q^233 + 2*q^257 + 2*q^258 + 
        O(q^262),
    q^5 - q^20 - q^30 - q^55 + q^80 + q^95 + q^120 + q^170 - q^205 + q^220 - 
        q^245 + q^255 + O(q^262),
    q^10 + q^15 - q^40 - q^60 - q^85 - q^110 + q^135 + q^160 - q^165 + q^190 - 
        2*q^215 + q^240 + O(q^262)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
