Qx<x>:=PolynomialRing(Rationals());
basis_list:=[**];
G:=FullDirichletGroup(
601
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
600
);
qprec:=
100
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
601
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
200
);
qprec:=
100
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
601
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
120
);
qprec:=
100
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
601
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
100
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
601
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
25*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
100
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
601
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
75*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
100
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^11 - a^9 - a^8 + a^6 - a^4 - a^3 + a + 1)*q^4 + (a^7 - 1)*q^7 + (-a^8
        + a^7)*q^8 + a^2*q^9 + (-a^8 - a^3 + a)*q^11 + (-a^4 + a^3 - a^2)*q^16 +
        (a^10 + a^9 - a^7 - a^6 + a^5 + a^4 - a^2 - a)*q^23 + a^8*q^25 + 
        a^5*q^28 + (a^11 - a^4 - a)*q^29 + (-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 - 3)*q^32 + (-a^7 + 1)*q^36 + 
        (a^10 + a^4)*q^37 - a^5*q^43 + (a^8 - a^6 - a)*q^44 - a^7*q^49 + (-a^11 
        - a^10 + a^8 - a^6 - a^5 + a^3 + a^2 - 1)*q^53 + (a - 1)*q^56 + (a^9 - 
        a^2)*q^63 + (a^11 + 2*a^10 - a^9 - 2*a^7 + a^6 + a^5 - 2*a^3 - a + 
        2)*q^64 + (-a^11 + a^6)*q^67 + a^5*q^71 + (-a^10 + a^9)*q^72 + (-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^11 - a^10 - a^2 + a)*q^88 + (a^11 + a^3)*q^92 + 
        (-a^10 - a^5 + a^3)*q^99 + (-a^11 - a^10 + a^8 + a^7 - a^5 + a^3 + a^2 -
        1)*q^100 + (a^6 - a^3)*q^107 + (-a^9 + a^2)*q^109 + (-a^11 + a^10 - a^9 
        + a^4 - a^3 + a^2)*q^112 + (-a^11 + a^9 - a^2)*q^113 + (a^11 + a^10 + 
        a^9 - a^8 - a^7 + a^6 + a^5 - a^3 - a^2 + 1)*q^116 + (a^11 - a^9 + a^6 -
        a^4)*q^121 - 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 + 2)*q^128 + (a^11 - a^10 - a^9 - a^8 + a^6 + a^5 - a^4 
        + a + 1)*q^137 + (-a^6 + a^5 - a^4)*q^144 + (-a^9 + a^2 + a)*q^148 + 
        (-a^11 + 1)*q^149 + (a^9 + a^7 - a^2 - 1)*q^151 + (-a^11 - a^10 + a^8 + 
        a^7 - a^6 - 2*a^5 + a^3 + a^2 - 1)*q^161 + (a^10 - a^8 + a)*q^163 - 
        a*q^169 + O(q^170),
    q^2 + (-a^10 + a^9 + a^3 - a^2)*q^4 + (-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^8 + (a^7 - 1)*q^14 + (-a^9 + 
        a^8 - a^7 + a^6)*q^16 + a^2*q^18 + (-a^8 - a^3 + a)*q^22 + (a^10 - 
        a^9)*q^28 + (-a^5 + a^4 - a^3 + a^2 - a)*q^32 + (2*a^11 - a^9 - a^8 + 
        a^6 + a^5 - 2*a^4 - a^3 + a + 1)*q^36 + (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^44 + (a^10 + a^9 - a^7 
        - a^6 + a^5 + a^4 - a^2 - a)*q^46 + a^8*q^50 + (a^6 - a^5 + a^4)*q^56 + 
        (a^11 - a^4 - a)*q^58 + (3*a^11 - a^9 - 2*a^8 - a^7 + a^6 + 2*a^5 - 
        2*a^4 - a^3 - a^2 + 3)*q^64 + (-a^11 - a^10 + 2*a^7 - a^6 - a^5 + a^3 + 
        a^2 + a - 2)*q^72 + (a^10 + a^4)*q^74 - a^5*q^86 + (a^9 - a^8 + a^6 - 
        a^5 - a^2 + a - 1)*q^88 + (a^9 - a^7 - a^2 + a)*q^92 - a^7*q^98 + (a^4 -
        a^3)*q^100 + (-a^11 - a^10 + a^8 - a^6 - a^5 + a^3 + a^2 - 1)*q^106 + 
        (a^11 + a^10 - a^8 - a^7 + a^5 - a^3 - a + 2)*q^112 + (-2*a^10 + a^8 + 
        2*a^7 - a^6 - a^5 - a^4 + 2*a^3 + a^2 - 2)*q^116 + (a^9 - a^2)*q^126 + 
        (-a^11 - 2*a^10 + 2*a^9 + a^8 + 2*a^7 - 2*a^6 - a^5 + 3*a^3 - 3)*q^128 +
        (-a^11 + a^6)*q^134 + a^5*q^142 + (-a^11 + a^10 - a^9 + a^8)*q^144 + 
        (a^11 + a^10 - a^8 - a^7 + a^6 - a^3 - a^2 + 2)*q^148 + (-a^10 + a^8 + 
        a^3)*q^154 + (a^11 - 2*a^9 - a^8 + a^6 + a^5 - a^4 - a^3 + a + 1)*q^158 
        + a^4*q^162 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^5*q^4 + q^7 + (a - 1)*q^8 + a^2*q^9 + (-a^3 - a)*q^11 + (-a^4 + a^3 - 
        a^2)*q^16 + (-a^4 + a^3 - a^2 + a - 1)*q^23 - a*q^25 + a^5*q^28 + (a^4 -
        a)*q^29 + (-a^3 + a^2 - a)*q^32 - q^36 + (a^4 - a^3)*q^37 - a^5*q^43 + 
        (-a^5 + a^4 - a^3 + a^2 + 1)*q^44 + q^49 + (a^5 - a^4 + a^3 - a^2 + 
        a)*q^53 + (a - 1)*q^56 + a^2*q^63 + (-a^5 + a^4)*q^64 + (a^5 + a^3 - a^2
        + a - 1)*q^67 - 2*a^5*q^71 + (a^3 - a^2)*q^72 + (-a^3 - a)*q^77 + (-a^5 
        + a^2)*q^79 + a^4*q^81 + (-a^4 + a^3 - a^2 + a)*q^88 + (-a^4 + a^3)*q^92
        + (-a^5 - a^3)*q^99 + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^100 + (a^5 - 
        a^4 - a^2 + a - 1)*q^107 + 2*a^2*q^109 + (-a^4 + a^3 - a^2)*q^112 + (a^4
        + a^2)*q^113 + (-a^5 + a^4 - a^3 - a + 1)*q^116 + (a^5 + a^3 + a - 
        1)*q^121 + (2*a^5 - 2*a^4 + 2*a^3 - 2*a^2 + 2*a - 2)*q^127 + q^128 + 
        (-a^5 - a^3)*q^137 + (-a^3 + a^2 - a + 1)*q^144 + (-a^2 + a)*q^148 + 
        (a^4 + 1)*q^149 + (a^2 + 1)*q^151 + (-a^4 + a^3 - a^2 + a - 1)*q^161 + 
        (-a^3 - a)*q^163 - a*q^169 + O(q^170),
    q^2 + (-a^3 + a^2)*q^4 + (a^3 - a^2 + a - 1)*q^8 + q^14 + (a^5 - a^4 + 
        a^3)*q^16 + a^2*q^18 + (-a^3 - a)*q^22 + (-a^3 + a^2)*q^28 + (-a^5 + a^4
        - a^3 + a^2 - a)*q^32 + (-a^5 + a^4)*q^36 + (-a^2 + a - 1)*q^44 + (-a^4 
        + a^3 - a^2 + a - 1)*q^46 - a*q^50 + (a^3 - a^2 + a - 1)*q^56 + (a^4 - 
        a)*q^58 - a^2*q^64 + (a^5 - a^4 + a^3 - a^2)*q^72 + (a^4 - a^3)*q^74 - 
        a^5*q^86 + (-a^4 + a^3 + 1)*q^88 + (a^2 - 2*a + 1)*q^92 + q^98 + (a^4 - 
        a^3)*q^100 + (a^5 - a^4 + a^3 - a^2 + a)*q^106 + (a^5 - a^4 + a^3)*q^112
        + (a^5 - a^2 + a)*q^116 + a^2*q^126 + (a^5 + a^3 - a^2 + a - 1)*q^134 - 
        2*a^5*q^142 + (a^4 - a^3 + a^2 - a)*q^144 + (a^5 - 2*a^4 + 2*a^3 - 2*a^2
        + 2*a - 1)*q^148 + (-a^3 - a)*q^154 + (-a^5 + a^2)*q^158 + a^4*q^162 + 
        O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 + (a - 1)*q^7 + q^8 + (a - 1)*q^9 + 2*q^11 + a*q^23 + (a - 1)*q^25 +
        (-a + 1)*q^28 + (-a + 1)*q^29 - q^32 + (-a + 1)*q^36 - 2*a*q^37 + (a - 
        1)*q^43 - 2*q^44 - a*q^49 - 2*a*q^53 + (a - 1)*q^56 - a*q^63 + q^64 + 
        a*q^67 + (-a + 1)*q^71 + (a - 1)*q^72 + (2*a - 2)*q^77 + (-a + 1)*q^79 -
        a*q^81 + 2*q^88 - a*q^92 + (2*a - 2)*q^99 + (-a + 1)*q^100 + 2*q^107 + 
        a*q^109 - q^113 + (a - 1)*q^116 + 3*q^121 - q^127 - q^137 + 2*a*q^148 + 
        a*q^149 - q^151 - q^161 + (-a + 1)*q^163 - a*q^169 + O(q^170),
    q^2 - q^4 + (a - 1)*q^14 + q^16 + (a - 1)*q^18 + 2*q^22 + (-a + 1)*q^28 - 
        q^32 + (-a + 1)*q^36 - 2*q^44 + a*q^46 + (a - 1)*q^50 + (-a + 1)*q^58 - 
        2*a*q^74 + (a - 1)*q^86 - a*q^92 - a*q^98 + (-a + 1)*q^100 - 2*a*q^106 +
        (a - 1)*q^112 + (a - 1)*q^116 - a*q^126 + q^128 + a*q^134 + (-a + 
        1)*q^142 + (a - 1)*q^144 + 2*a*q^148 + (2*a - 2)*q^154 + (-a + 1)*q^158 
        - a*q^162 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
602
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^6 + a*q^10 - a*q^11 + (a - 1)*q^14 - q^15 + (-a + 1)*q^16 + a*q^17 - 
        a*q^21 + (-a + 1)*q^23 + a*q^24 - 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 + 
        q^57 + a*q^59 - q^64 + a*q^66 + a*q^67 - a*q^74 + (a - 1)*q^79 + a*q^81 
        - a*q^95 - 2*q^97 - a*q^101 - a*q^102 + (a - 1)*q^103 + (-a + 1)*q^107 -
        a*q^109 + (-a + 1)*q^110 + q^111 - a*q^122 + (-a + 1)*q^133 + (-a + 
        1)*q^135 + (a - 1)*q^138 + (2*a - 2)*q^142 + q^146 + (a - 1)*q^152 + 
        q^154 + a*q^165 + 2*q^167 - q^169 + O(q^170),
    q^2 - q^12 + a*q^20 - a*q^22 + (a - 1)*q^28 - q^30 + (-a + 1)*q^32 + a*q^34 
        - a*q^42 + (-a + 1)*q^46 + a*q^48 - a*q^62 + (a - 1)*q^70 - a*q^76 + (-a
        + 1)*q^80 + q^86 + (a - 1)*q^94 - q^98 + a*q^106 + (-a + 1)*q^108 + 
        q^112 + q^114 + a*q^118 - q^128 + a*q^132 + a*q^134 - a*q^148 + (a - 
        1)*q^158 + a*q^162 + O(q^170),
    q^3 - a*q^5 + (-a + 1)*q^7 + (a - 1)*q^8 - a*q^12 + a*q^19 + (a - 1)*q^20 + 
        (a - 1)*q^27 - q^28 + q^32 - a*q^33 + a*q^37 + a*q^51 + (a - 1)*q^55 + 
        a*q^61 + (-a + 1)*q^69 + (-2*a + 2)*q^71 - q^73 + (-a + 1)*q^76 - q^77 +
        (-a + 1)*q^85 + q^88 - a*q^89 - a*q^93 + (a - 1)*q^105 + q^108 - q^115 +
        q^119 + (-a + 1)*q^120 + (a - 1)*q^125 + q^129 + a*q^131 + (a - 1)*q^132
        - q^136 - q^137 + (a - 1)*q^141 - q^147 + (-a + 1)*q^148 - a*q^149 + 
        q^151 + (a - 1)*q^155 - q^157 + a*q^159 - a*q^161 - a*q^163 + q^168 + 
        O(q^170),
    q^4 + (a - 1)*q^6 + q^10 + a*q^14 - a*q^16 - q^38 - a*q^44 - a*q^54 - q^60 +
        q^66 + a*q^68 - q^74 - a*q^84 + (-a + 1)*q^92 + a*q^96 - q^102 - a*q^110
        - q^122 - a*q^124 + a*q^138 + (a - 1)*q^140 + 2*a*q^142 + (-a + 1)*q^146
        + (-a + 1)*q^154 + (-a + 1)*q^160 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (-a^7 + a^5)*q^7 + (-2*a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - a^3 +
        a^2 - a + 1)*q^13 + a^2*q^16 + (-a^8 - a^2)*q^19 + a^4*q^25 + (a^8 - 
        a^6)*q^28 + (a^9 - a^5)*q^31 + (a^7 - a^4)*q^37 + (a^6 + a^3)*q^43 + 
        (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + 2*a - 1)*q^49 + (a^9 - a^8 + 
        a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 2)*q^52 + (a^6 + a)*q^61 - 
        a^3*q^64 - a^4*q^67 + (a^7 - 1)*q^73 + (a^9 + a^3)*q^76 + (a^8 - 1)*q^79
        + (-a^6 - a^5 + a^4 + a^3)*q^91 + (-a^8 - a^3)*q^97 - a^5*q^100 + (-a^2 
        + a)*q^103 + (-a^6 + a^2)*q^109 + (-a^9 + a^7)*q^112 + a^4*q^121 + (-a^9
        + a^8 - a^7 + 2*a^6 - a^5 + a^4 - a^3 + a^2 - a + 1)*q^124 + (-a^9 + a^8
        - a^7 + a^6 - a^5 + a^4 - a^3 - a + 1)*q^127 + O(q^130)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^2*q^4 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^7 + (-a^9 
        - a^7)*q^13 + a^4*q^16 + (-a^5 + a^4)*q^19 + a^8*q^25 + (-a^5 - a)*q^28 
        + (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^6 - a)*q^43 + (-a^9 + a^6 + a^2)*q^49 + (-a^9 + 1)*q^52 +
        (a^2 - a)*q^61 + a^6*q^64 + a^8*q^67 + (-a^3 + 1)*q^73 + (-a^7 + 
        a^6)*q^76 + (-a^5 + 1)*q^79 + (a^9 + a^7 + a^5 - a^4 + a^3 - a^2 - 
        1)*q^91 + (a^6 - a^5)*q^97 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^100 + (a^4 + a^2)*q^103 + (a^4 - a)*q^109 + (-a^7 - 
        a^3)*q^112 + a^8*q^121 + (-a^9 - a)*q^124 + (-a^9 + a^4)*q^127 + 
        O(q^130),
    q^3 + a^6*q^9 + a^2*q^12 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a - 
        1)*q^21 - a*q^27 + a^8*q^36 + (-a^9 - a^7)*q^39 + a^4*q^48 + (-a^5 + 
        a^4)*q^57 + (-a^9 - a^5)*q^63 + a^8*q^75 - a^7*q^81 + (-a^5 - a)*q^84 + 
        (a^9 - a^8 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^93 - a^3*q^108 + 
        (a^8 - a^3)*q^111 + (a^4 + a^2)*q^117 + (a^6 - a)*q^129 + O(q^130)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^7 - a*q^13 + a*q^16 + a*q^19 - q^22 + q^25 + (-a + 1)*q^31 + 
        (-a + 1)*q^34 - a*q^37 + (a - 1)*q^46 - q^58 - a*q^61 - q^64 - q^67 + 
        a*q^73 + (a - 1)*q^79 + q^82 + (-a + 1)*q^88 + q^91 - q^94 - a*q^97 + 
        (-a + 1)*q^103 - q^112 + (-a + 1)*q^127 + O(q^130),
    q^2 + (a - 1)*q^8 - a*q^11 + (a - 1)*q^14 + q^17 - q^23 - a*q^26 - a*q^29 + 
        a*q^38 + a*q^41 - a*q^47 + q^50 - a*q^56 + (-a + 1)*q^62 + a*q^71 - 
        a*q^74 + q^77 + q^83 + (2*a - 2)*q^89 + a*q^101 + q^104 - a*q^113 + (a -
        1)*q^119 - a*q^122 - q^128 + O(q^130),
    q^3 - a*q^18 + (a - 1)*q^21 - q^27 - a*q^39 + a*q^48 + a*q^57 - q^66 + q^72 
        + q^75 + (-a + 1)*q^93 + (a - 1)*q^99 + (-a + 1)*q^102 - a*q^111 + q^126
        + O(q^130),
    q^6 + (-a + 1)*q^9 + (a - 1)*q^24 - a*q^33 + (a - 1)*q^42 + q^51 - q^54 + 
        a*q^63 - q^69 - a*q^78 + (a - 1)*q^81 - a*q^87 + a*q^114 - q^117 + 
        a*q^123 + O(q^130)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
33*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - 2*q^19 + q^25 - 2*q^37 + q^49 + q^64 - q^67 - 2*q^73 - 
        2*q^76 + q^100 - 2*q^103 + q^121 - 2*q^127 + O(q^130)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
603
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
604
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
604
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
150
);
qprec:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
604
);
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:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
604
);
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:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
604
);
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:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
604
);
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:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
604
);
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:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
604
);
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:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
604
);
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:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
604
);
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:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
604
);
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:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
604
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
75*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^19 - q^29 - q^47 + q^49 - q^55 + q^81 - q^85 - q^97 + q^121 - 
        q^139 + O(q^148),
    q^2 + q^18 - q^38 - q^40 - q^44 - q^58 - q^68 + q^76 + q^88 - q^94 + q^98 + 
        q^100 - q^110 + q^116 - q^128 + q^136 + O(q^148),
    q^4 + q^36 - q^40 - q^44 - q^68 - q^80 + q^100 - q^128 + O(q^148),
    q^5 - q^19 - q^25 - q^29 + q^31 + q^43 + q^45 - q^47 - q^55 + q^59 - q^85 + 
        q^95 - q^97 + q^121 + q^125 + q^127 + q^137 - q^139 + q^145 + O(q^148),
    q^8 + q^22 + q^34 - q^38 - q^40 - q^44 - q^50 - q^58 - q^68 + q^72 + q^74 + 
        q^76 - q^80 - q^94 + q^100 + q^116 - q^128 + O(q^148),
    q^10 - q^22 + q^32 - q^34 - q^40 + q^62 - q^64 - q^74 + q^86 + q^88 + q^90 -
        q^110 + q^118 + q^136 + O(q^148),
    q^11 + q^17 - q^19 - q^25 - q^29 + q^37 - q^47 + q^95 - q^97 + q^99 + q^103 
        + q^125 - q^139 + q^145 + O(q^148),
    q^16 + q^22 - q^32 + q^34 - q^38 - q^50 - q^58 + q^64 + q^74 - q^80 - q^88 -
        q^94 - q^128 - q^136 + q^144 + O(q^148),
    q^20 + q^22 + q^34 - q^38 - q^44 - q^50 - q^58 + q^64 - q^68 + q^74 - q^80 -
        q^94 + q^124 - q^128 + O(q^148)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
605
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^3 - a*q^4 + a*q^5 - a*q^9 + (-a - 1)*q^12 + (a + 1)*q^15 - 
        q^16 + q^20 + (a - 1)*q^23 - q^25 - q^36 + (-a - 1)*q^37 + q^45 + (a + 
        1)*q^47 + (a - 1)*q^48 - a*q^49 + (a - 1)*q^53 + (-a + 1)*q^60 + a*q^64 
        + (a + 1)*q^67 + 2*a*q^69 + 2*q^71 + (a - 1)*q^75 - a*q^80 + q^81 - 
        2*a*q^89 + (a + 1)*q^92 + (-a - 1)*q^97 + a*q^100 + (a - 1)*q^103 + 
        O(q^110)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
605
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
110
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
605
);
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(
110
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
605
);
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:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
605
);
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:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
605
);
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(
22
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
605
);
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:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
605
);
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:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
605
);
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(
10
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 - a^2*q^5 - a^3*q^9 + a^2*q^16 - a^3*q^20 + (a^3 - a^2 + a - 
        1)*q^25 + 2*a^3*q^31 + (-a^3 + a^2 - a + 1)*q^36 - q^45 - a^2*q^49 - 
        2*a*q^59 + a^3*q^64 + 2*a^2*q^71 + (-a^3 + a^2 - a + 1)*q^80 - a*q^81 - 
        2*q^89 - q^100 + O(q^110)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
605
);
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:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^6 - a)*q^3 + (-a^7 + a^5 - a^3 + a)*q^4 - a^3*q^5 + a^7*q^9 + (-a^5 
        - 1)*q^12 + (a^7 - a^5 + a^4 + a^3 - a)*q^15 + (-a^6 + a^4 - a^2 + 
        1)*q^16 - a^2*q^20 + (a^5 - 1)*q^23 + a^6*q^25 + a^6*q^36 + (-a^7 + a^5 
        - a^4 - a^3 + a)*q^37 + q^45 + (-a^6 + a)*q^47 + (a^7 - a^5 - a^4 + a^3 
        - a)*q^48 + a^3*q^49 + (-a^7 + a^2)*q^53 + (a^6 - a^4 + a^3 + a^2 - 
        1)*q^60 - a^7*q^64 + (a^5 + 1)*q^67 + 2*a*q^69 + (2*a^6 - 2*a^4 + 2*a^2 
        - 2)*q^71 + (-a^7 + a^2)*q^75 - a*q^80 + a^4*q^81 - 2*a^5*q^89 + (a^7 - 
        a^5 + a^4 + a^3 - a)*q^92 + (a^7 + a^2)*q^97 + a^5*q^100 + (a^7 - a^5 - 
        a^4 + a^3 - a)*q^103 + O(q^110)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
605
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
55*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
605
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 55*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 - q^5 + q^9 + q^16 + q^20 + q^25 - 2*q^31 - q^36 - q^45 - q^49 + 
        2*q^59 - q^64 + 2*q^71 - q^80 + q^81 - 2*q^89 - q^100 + O(q^110),
    q^11 - q^44 - q^55 + q^99 + O(q^110)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
606
);
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(
606
);
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(
606
);
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(
50
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
606
);
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(
50
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
606
);
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(
606
);
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(
10
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
606
);
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:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
606
);
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(
606
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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^9 - q^19 - q^22 - q^24 + q^25 - q^33 - q^37 + q^49 - q^52 - q^58 + 
        q^76 + q^78 - q^79 + q^81 + q^82 - q^87 + q^88 + q^96 + q^106 - q^114 + 
        q^118 + q^121 - q^124 + q^132 + q^148 - q^157 + q^166 - q^171 - q^172 - 
        q^178 - q^181 + q^186 - q^193 + O(q^198),
    q^2 + q^18 - q^38 - q^44 - q^48 + q^50 - q^66 - q^74 + q^98 - q^104 - q^116 
        + q^152 + q^156 - q^158 + q^162 + q^164 - q^174 + q^176 + q^192 + 
        O(q^198),
    q^3 + q^26 + q^27 + q^32 - q^38 - q^39 - q^41 - q^48 - q^53 - q^59 + q^62 - 
        q^66 - q^74 + q^75 - q^83 + q^86 - q^93 + q^101 - q^104 + 2*q^113 - 
        q^129 - q^143 + q^147 + 2*q^149 + q^152 - q^158 - q^174 - q^191 + q^194 
        + O(q^198),
    q^4 - q^22 - q^24 + q^36 - q^52 - q^58 + q^78 + q^82 + q^100 + q^106 - q^114
        + q^118 - q^124 + q^166 - q^172 - q^178 + q^186 + q^196 + O(q^198),
    q^6 - q^16 - q^22 + q^52 + q^54 - q^58 + q^64 - q^76 + q^88 - q^114 + q^124 
        - q^132 - q^144 - q^148 + q^150 + q^172 - q^178 + O(q^198),
    q^8 - q^12 - q^26 + q^38 - q^62 + q^66 + q^72 + q^74 - q^86 - q^104 - q^108 
        - q^128 + q^156 + q^158 + q^164 + q^174 - q^176 - q^194 + O(q^198),
    q^11 + q^12 + q^26 + q^29 - q^38 - q^39 - q^41 - q^44 - q^48 - q^53 + q^57 -
        q^59 + q^62 - q^66 - q^74 - q^83 + q^86 + q^89 - q^93 + q^99 + q^108 + 
        q^111 - q^116 + q^128 - q^129 - q^158 + q^167 + q^173 - q^174 + q^176 - 
        q^191 + q^194 + O(q^198),
    q^13 + q^16 - q^19 - q^24 + q^31 - q^33 - q^37 + q^43 - q^52 + q^76 - q^79 -
        q^87 + q^97 + q^117 + q^121 + q^123 - q^124 + q^132 + q^144 + q^148 - 
        q^157 + q^159 - q^169 - q^171 - q^172 + q^177 - q^181 - q^193 + O(q^198)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
607
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
606
);
qprec:=
101
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
607
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
202
);
qprec:=
101
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
607
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
101*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
101
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
607
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
303*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
101
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 - q^38 - q^41 - q^43 + q^49 - q^52 - q^56 - q^71 - q^77 + 
        q^81 - q^98 + O(q^101),
    q^2 + q^18 - q^19 - q^26 - q^28 - q^49 + q^50 - q^53 + q^77 + q^79 - q^88 + 
        q^91 - q^94 + q^97 + q^98 + O(q^101),
    q^4 - q^13 - q^14 + q^36 + q^41 + q^43 - q^44 - q^47 + q^71 + q^77 - q^88 - 
        q^91 + q^100 + O(q^101),
    q^7 - q^13 - q^14 - q^16 + q^22 + q^26 + q^28 + q^32 - q^38 - q^47 - q^52 + 
        q^63 - q^64 + q^76 + q^89 - q^91 + q^94 - q^98 + O(q^101),
    q^8 - q^13 - q^14 - q^16 + q^19 + q^26 + q^28 + q^32 - q^38 - q^44 - q^47 + 
        q^49 - q^52 + q^53 - q^56 - q^64 + q^72 + q^76 + q^82 + q^86 - q^91 + 
        q^94 - q^98 + O(q^101),
    q^11 - q^13 - q^16 + q^22 + q^28 - q^38 - q^47 + q^61 + q^73 - q^91 - q^98 +
        q^99 + O(q^101)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
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(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^5 + a^3)*q^3 + (a^5 + a^3 - a^2 - a - 1)*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^3 - a^2)*q^27 + (a^4 
        - a^3 + a^2 - a)*q^33 + (a^3 + a^2 - 1)*q^41 + (-a^4 + a)*q^43 - 
        a^3*q^49 + (a^4 + a^3 - 1)*q^51 + (-a^5 - a^4 + a)*q^57 + (a^5 - a^3 + 
        1)*q^59 + (-a^3 + a + 1)*q^67 + (a^5 - a^2 + 1)*q^73 + (-a^5 + a^2 + 
        a)*q^75 + (-a^5 - a^4 - a^3 + a^2 + 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^3 + a^2 - a)*q^99 + 
        (a^3 - 1)*q^107 + (-a^5 + a^4)*q^113 + (-a^5 - a^4 + a^3 + a - 1)*q^121 
        + (a^5 + a^4 - a^2 - a - 1)*q^123 + (a^3 + a)*q^129 + (-a^2 - 1)*q^131 +
        (-a^3 - a)*q^137 + (a^4 + a^3 - a)*q^139 + O(q^146)
]
;
Bo:=
[
    q + (-a^5 - a^3)*q^3 + (a^5 + a^3 - a^2 - a - 1)*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^3 + a^2)*q^27 + (a^4 -
        a^3 + a^2 - a)*q^33 + (a^3 + a^2 - 1)*q^41 + (a^4 - a)*q^43 - a^3*q^49 +
        (-a^4 - a^3 + 1)*q^51 + (-a^5 - a^4 + a)*q^57 + (-a^5 + a^3 - 1)*q^59 + 
        (a^3 - a - 1)*q^67 + (a^5 - a^2 + 1)*q^73 + (a^5 - a^2 - a)*q^75 + (-a^5
        - a^4 - a^3 + a^2 + 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^3 - a^2 + a)*q^99 + (-a^3 + 1)*q^107 + (-a^5
        + a^4)*q^113 + (-a^5 - a^4 + a^3 + a - 1)*q^121 + (-a^5 - a^4 + a^2 + a 
        + 1)*q^123 + (a^3 + a)*q^129 + (a^2 + 1)*q^131 + (-a^3 - a)*q^137 + 
        (-a^4 - a^3 + a)*q^139 + O(q^146),
    q^2 + (-a^5 - a^3)*q^6 + (a^5 + a^3 - a^2 - a - 1)*q^18 + (a^5 - a^4 - a^2 +
        a)*q^22 + a*q^34 + a^2*q^38 - a^5*q^50 + (a^4 + a^3 + a^2)*q^54 + (a^4 -
        a^3 + a^2 - a)*q^66 + (a^3 + a^2 - 1)*q^82 + (a^4 - a)*q^86 - a^3*q^98 +
        (-a^4 - a^3 + 1)*q^102 + (-a^5 - a^4 + a)*q^114 + (-a^5 + a^3 - 1)*q^118
        + (a^3 - a - 1)*q^134 + O(q^146),
    q^4 - a*q^8 + (-a^5 - a^3)*q^12 + a^2*q^16 + (a^4 + a^3 - 1)*q^24 - a^3*q^32
        + (a^5 + a^3 - a^2 - a - 1)*q^36 + (a^5 - a^4 - a^2 + a)*q^44 + (-a^5 - 
        a^4 + a)*q^48 + a^4*q^64 + a*q^68 + (-a^4 + a^2 + a + 1)*q^72 + a^2*q^76
        + (a^5 - a^2 + 1)*q^88 + (a^5 + a^3 - a^2 - 1)*q^96 - a^5*q^100 + (a^4 +
        a^3 + a^2)*q^108 - a^5*q^128 + (a^4 - a^3 + a^2 - a)*q^132 - a^2*q^136 +
        (a^5 - a^3 - a^2 - a)*q^144 + O(q^146)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^5 + (a - 1)*q^13 - a*q^17 + (a - 1)*q^29 - a*q^41 + q^49 + (-a + 
        1)*q^53 - a*q^57 + (-a + 1)*q^61 - q^65 - q^69 + a*q^73 + a*q^81 + (-a +
        1)*q^85 + (a - 1)*q^89 - 2*a*q^93 - a*q^97 + (a - 1)*q^101 - a*q^109 + 
        q^121 + q^125 + (a - 1)*q^129 + (a - 1)*q^137 + q^141 - q^145 + 
        O(q^146),
    q^3 + a*q^15 + (-a + 1)*q^19 - a*q^23 + (a - 1)*q^27 + (-2*a + 2)*q^31 + (a 
        - 1)*q^39 - q^43 + a*q^47 - a*q^51 - q^59 + a*q^67 - q^71 - q^79 + (2*a 
        - 2)*q^83 + (a - 1)*q^87 + q^95 + (-a + 1)*q^115 - a*q^123 - a*q^127 + 
        q^131 - q^135 - a*q^139 + O(q^146)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^3 + q^11 - 2*a*q^17 + (-a + 1)*q^19 + (a - 1)*q^25 - q^27 - a*q^33 +
        a*q^41 + 2*a*q^43 + q^49 + (2*a - 2)*q^51 - q^57 - a*q^59 + (a - 1)*q^67
        + a*q^73 + q^75 + a*q^81 + q^83 + (2*a - 2)*q^89 + a*q^97 - 2*q^107 - 
        q^113 + (-a + 1)*q^123 + (-2*a + 2)*q^129 - a*q^131 + (-a + 1)*q^137 + 
        (a - 1)*q^139 + O(q^146)
]
;
Bo:=
[
    q + a*q^3 - q^11 - 2*a*q^17 + (a - 1)*q^19 + (a - 1)*q^25 + q^27 - a*q^33 + 
        a*q^41 - 2*a*q^43 + q^49 + (-2*a + 2)*q^51 - q^57 + a*q^59 + (-a + 
        1)*q^67 + a*q^73 - q^75 + a*q^81 - q^83 + (2*a - 2)*q^89 + a*q^97 + 
        2*q^107 - q^113 + (a - 1)*q^123 + (-2*a + 2)*q^129 + a*q^131 + (-a + 
        1)*q^137 + (-a + 1)*q^139 + O(q^146),
    q^2 + a*q^6 - q^22 - 2*a*q^34 + (a - 1)*q^38 + (a - 1)*q^50 + q^54 - a*q^66 
        + a*q^82 - 2*a*q^86 + q^98 + (-2*a + 2)*q^102 - q^114 + a*q^118 + (-a + 
        1)*q^134 + O(q^146),
    q^4 - a*q^8 + a*q^12 + (a - 1)*q^16 + (-a + 1)*q^24 + q^32 - q^44 - q^48 - 
        a*q^64 - 2*a*q^68 + (a - 1)*q^76 + a*q^88 + a*q^96 + (a - 1)*q^100 + 
        q^108 + (a - 1)*q^128 - a*q^132 + (2*a - 2)*q^136 + O(q^146)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
146
;
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 + O(q^146),
    q^2 - q^10 + q^18 - q^34 - q^90 - q^122 + O(q^146),
    q^4 - q^20 - q^28 + q^36 - q^44 - q^68 + q^76 + 2*q^92 + q^140 + O(q^146),
    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 + O(q^146),
    q^8 - q^40 - q^56 + q^72 - q^88 - q^136 + O(q^146),
    q^14 + q^22 - q^38 - 2*q^46 - q^70 + q^86 + q^94 - q^110 + q^126 + O(q^146)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
608
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    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 + O(q^146),
    q^3 - q^13 - q^19 + q^21 - q^27 - q^29 + 2*q^37 - q^51 - q^53 + q^59 + q^67 
        + q^69 + q^75 - q^91 + q^107 - q^109 - q^133 - 2*q^141 + O(q^146)
]
;
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 + O(q^146),
    q^2 - q^14 - q^34 - q^46 + q^50 + q^78 + 2*q^94 - q^114 + O(q^146),
    q^3 + q^13 - q^19 - q^21 - q^27 + q^29 - 2*q^37 - q^51 + q^53 + q^59 + q^67 
        - q^69 + q^75 - q^91 + q^107 + q^109 + q^133 + 2*q^141 + O(q^146),
    q^4 + q^16 - q^24 - q^28 + q^64 - q^68 - q^92 - q^96 + q^100 - q^104 - q^112
        + O(q^146),
    q^6 + q^26 - q^38 - q^42 - q^54 + q^58 - 2*q^74 - q^102 + q^106 + q^118 + 
        q^134 - q^138 + O(q^146),
    q^8 - q^12 + q^32 - q^48 - q^52 - q^56 + q^76 + q^84 + q^108 - q^116 + q^128
        - q^136 + O(q^146)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
609
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*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(
609
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
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(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^5 + a^3)*q^2 + (a^5 - a^4 - a^2 + 2*a - 1)*q^4 + (-a^5 + a^4 - a^3 +
        a^2 - a + 1)*q^7 + (-a^5 + 2*a^4 - a^3 - 2*a + 1)*q^8 + a^5*q^9 + (a^4 -
        1)*q^11 + (-a^4 + a^2)*q^14 + (-2*a^4 + a^3 + a - 2)*q^16 + (a^3 - 
        a)*q^18 + (a^5 - a^3 + a^2 - 1)*q^22 + (-a^4 - a^2)*q^23 - a*q^25 + (a^5
        - a^2 + 1)*q^28 + a*q^29 + (a^5 + a^4 - a^3 - a^2 + a + 1)*q^32 + (a^5 -
        2*a^4 + a^3 - a^2 + 2*a - 1)*q^36 + (a^2 + a)*q^37 + (a^4 - a^3 + a^2 - 
        2*a + 2)*q^44 + (-a^5 - a^2)*q^46 - a^5*q^49 + (a^5 - 2*a^4 + a^3 - a^2 
        + a - 1)*q^50 + (a^5 - a^4 + a^3 + a - 1)*q^53 + (-a^5 + a^3 - a - 
        1)*q^56 + (-a^5 + 2*a^4 - a^3 + a^2 - a + 1)*q^58 + a^4*q^63 + (-2*a^5 +
        2*a^4 + 2*a^2 - 2*a)*q^64 + (-a^5 - a^3 + a^2 - a + 1)*q^67 + (-a^4 + 
        a^3 - a^2 + a - 1)*q^71 + (-a^5 + 2*a^4 - a^3 - a + 2)*q^72 + (2*a^4 - 
        a^3 + a^2 - a + 2)*q^74 + (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^4 + a^3 + a^2)*q^88 + (a - 1)*q^92 + 
        (-a^3 + a)*q^98 + (-a^5 - a^2)*q^99 + (a^4 - a^2 + 1)*q^100 + (a^5 + a^4
        - a^2 + 1)*q^106 + (a^2 - a)*q^107 + (a^3 - a^2)*q^109 + (2*a^5 - 2*a^4 
        - a^2 + 2*a - 1)*q^112 + (a^5 + 1)*q^113 + (-a^4 + a^2 - 1)*q^116 + 
        (-a^4 - a + 1)*q^121 + (a^2 - 1)*q^126 + (a^3 - a)*q^127 + (2*a^5 - 
        2*a^4 + 2*a - 1)*q^128 + (-a^4 + 1)*q^134 + (a^4 - a^3 - a^2 + a)*q^142 
        + (-a^5 - a^4 + a^3 + a^2 - 1)*q^144 + (-a^5 - a^4 + a^3 + a^2 - a - 
        1)*q^148 + (-a^2 - 1)*q^149 + (a^5 + a)*q^151 + O(q^154),
    q^3 + (-a^5 + a^3)*q^6 + (a^5 - a^4 - a^2 + 2*a - 1)*q^12 + (-a^5 + a^4 - 
        a^3 + a^2 - a + 1)*q^21 + (-a^5 + 2*a^4 - a^3 - 2*a + 1)*q^24 + a^5*q^27
        + (a^4 - 1)*q^33 + (-a^4 + a^2)*q^42 + (-2*a^4 + a^3 + a - 2)*q^48 + 
        (a^3 - a)*q^54 + (a^5 - a^3 + a^2 - 1)*q^66 + (-a^4 - a^2)*q^69 - a*q^75
        + (a^5 - a^2 + 1)*q^84 + a*q^87 + (a^5 + a^4 - a^3 - a^2 + a + 1)*q^96 +
        (a^5 - 2*a^4 + a^3 - a^2 + 2*a - 1)*q^108 + (a^2 + a)*q^111 + (a^4 - a^3
        + a^2 - 2*a + 2)*q^132 + (-a^5 - a^2)*q^138 - a^5*q^147 + (a^5 - 2*a^4 +
        a^3 - a^2 + a - 1)*q^150 + O(q^154)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^5 - a^4 - a^2 + a - 1)*q^2 + (-a^4 + a^3 + a - 1)*q^4 - a^5*q^7 + 
        (-a^5 + a^4 + a^2 - a)*q^8 - a^3*q^9 + (-a + 1)*q^11 + (a^4 - a)*q^14 + 
        (-a^5 + a^4 - a^3 - a + 1)*q^16 + (a^5 - a^4 + a^3 + a - 1)*q^18 + (a^5 
        - a^2 + a)*q^22 + (a^4 - a)*q^23 + a^2*q^25 + (a^4 - a^3 + 1)*q^28 + 
        a^2*q^29 + a^5*q^32 + (-a^5 + a^2 - a)*q^36 + (a^4 + a^2)*q^37 + (2*a^5 
        - 2*a^4 + 2*a^3 - 2*a^2 + 2*a - 2)*q^43 + (a^5 - 2*a^4 + a^3 - a^2 + 2*a
        - 1)*q^44 + (a^4 - a^3 + 2)*q^46 - a^3*q^49 + (-a^5 - a)*q^50 + (-a^5 + 
        a^4)*q^53 + (a^5 - a^4 + a)*q^56 + (-a^5 - a)*q^58 - a*q^63 + (-a^5 - 
        a)*q^67 + (-a^5 - a^3)*q^71 + (-a^5 + a^4 - a + 1)*q^72 + (-a^5 - a^3 - 
        a + 1)*q^74 + (-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 + (-2*a^5 + 2*a^2)*q^86 +
        (-a^5 + a^2 - 1)*q^88 + (2*a^5 - 2*a^4 - a^2 + 2*a - 1)*q^92 + (a^5 - 
        a^4 + a^3 + a - 1)*q^98 + (a^4 - a^3)*q^99 + (a^4 - a + 1)*q^100 + (a^4 
        - a^3 - a + 1)*q^106 + (a^4 + a^2)*q^107 + (a^5 + a^3 - a^2 + a - 
        1)*q^109 + (-a^4 - 1)*q^112 + (-a^3 + 1)*q^113 + (a^4 - a + 1)*q^116 + 
        (a^2 - a + 1)*q^121 + (a^4 + 1)*q^126 + (a^5 - a^4 + a^3 + a - 1)*q^127 
        + q^128 + (2*a^4 - a + 1)*q^134 - 2*a^3*q^137 + (a^5 + a^3 - 1)*q^142 + 
        (a^5 - a^2)*q^144 + a^5*q^148 + (a^4 + 1)*q^149 + (-a^3 + a^2)*q^151 + 
        O(q^154),
    q^3 + (a^5 - a^4 - a^2 + a - 1)*q^6 + (-a^4 + a^3 + a - 1)*q^12 - a^5*q^21 +
        (-a^5 + a^4 + a^2 - a)*q^24 - a^3*q^27 + (-a + 1)*q^33 + (a^4 - a)*q^42 
        + (-a^5 + a^4 - a^3 - a + 1)*q^48 + (a^5 - a^4 + a^3 + a - 1)*q^54 + 
        (a^5 - a^2 + a)*q^66 + (a^4 - a)*q^69 + a^2*q^75 + (a^4 - a^3 + 1)*q^84 
        + a^2*q^87 + a^5*q^96 + (-a^5 + a^2 - a)*q^108 + (a^4 + a^2)*q^111 + 
        (2*a^5 - 2*a^4 + 2*a^3 - 2*a^2 + 2*a - 2)*q^129 + (a^5 - 2*a^4 + a^3 - 
        a^2 + 2*a - 1)*q^132 + (a^4 - a^3 + 2)*q^138 - a^3*q^147 + (-a^5 - 
        a)*q^150 + O(q^154)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^6 + q^9 - q^13 - q^16 + q^22 + q^24 + q^25 - q^33 + q^34 - q^49 - q^51
        - q^54 - q^58 + q^64 - q^67 + q^78 + q^81 - 2*q^82 + q^87 - q^88 + q^94 
        + 2*q^103 - q^109 - q^117 + 2*q^123 - q^136 - q^139 - q^141 - q^144 - 
        q^150 + 2*q^151 + O(q^154),
    q^2 - q^3 - q^8 + q^11 + q^17 + q^18 - q^26 - q^27 - q^29 + q^39 - 2*q^41 + 
        q^47 + q^48 + q^50 - q^66 - q^72 - q^75 + q^89 - q^98 + q^99 + q^101 - 
        q^102 + q^104 + q^113 + q^128 + q^131 - q^134 - 2*q^137 - q^143 + q^147 
        + q^153 + O(q^154),
    q^7 - q^42 - q^49 + q^63 - q^91 - q^112 + O(q^154),
    q^14 - q^21 - q^56 + q^77 - q^98 + q^119 + q^126 + q^147 + O(q^154)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/3*(a - 2)*q^7 + (a - 1)*q^9 + q^13 + (a - 1)*q^16 - q^22 + a*q^24 - 
        a*q^25 - a*q^28 + (-a + 1)*q^33 + q^34 + 1/3*(-a - 1)*q^42 + 1/3*(-a + 
        2)*q^49 + a*q^52 + 1/3*(-2*a + 1)*q^63 - a*q^67 - a*q^81 - a*q^87 + 
        1/3*(2*a - 4)*q^91 + (-a + 1)*q^103 + 1/3*(-a - 1)*q^112 + (a - 1)*q^117
        + (2*a - 2)*q^121 + a*q^123 + 2*q^132 - a*q^136 - q^139 + q^141 - 
        a*q^144 + a*q^151 + O(q^154),
    q^2 - a*q^8 + 1/3*(-a + 2)*q^14 + (a - 1)*q^17 + (a - 1)*q^18 + 1/3*(a + 
        1)*q^21 - q^26 + (-a + 1)*q^39 - q^44 - q^47 + a*q^48 - a*q^50 + 
        1/3*(-2*a + 1)*q^56 + (a - 1)*q^66 + 2*q^68 + q^72 + 1/3*(-a + 2)*q^77 -
        a*q^84 + 1/3*(a - 2)*q^98 + (-a + 1)*q^101 + a*q^113 + 1/3*(2*a - 
        1)*q^119 + 1/3*(2*a - 1)*q^126 + a*q^134 + 1/3*(-a + 2)*q^147 - a*q^153 
        + O(q^154),
    q^3 + (-a + 1)*q^8 - a*q^12 + (a - 1)*q^14 + a*q^26 + (a - 1)*q^27 + (a - 
        1)*q^29 - q^32 + (-a + 1)*q^41 - 2*a*q^44 + (a - 1)*q^48 + q^56 - q^66 +
        a*q^68 + a*q^72 - a*q^75 + q^77 - a*q^84 + (a - 1)*q^98 + 2*q^102 + (-a 
        + 1)*q^104 + q^108 + q^116 - a*q^119 - a*q^126 + a*q^128 + (-a + 
        1)*q^134 - q^137 - q^143 + O(q^154),
    q^4 + 1/3*(2*a - 1)*q^7 + (-a + 1)*q^13 - a*q^33 + (a - 1)*q^34 + (a - 
        1)*q^36 + 1/3*(a + 1)*q^42 + 1/3*(-2*a + 1)*q^49 + 1/3*(-a - 1)*q^63 - 
        q^67 + (-a + 1)*q^78 - q^88 + 1/3*(a - 2)*q^91 - q^94 + a*q^96 - a*q^100
        + 1/3*(-2*a + 1)*q^112 + a*q^117 + a*q^121 + q^136 + (a - 1)*q^139 + (-a
        + 1)*q^141 + O(q^154),
    q^6 + 1/3*(-2*a + 1)*q^7 - q^13 + (-a + 1)*q^16 + q^22 - a*q^24 + (a - 
        1)*q^28 + 1/3*(-a + 2)*q^42 + 1/3*(-a - 1)*q^49 + (a - 1)*q^51 + a*q^52 
        + (a - 1)*q^54 + (a - 1)*q^58 + 1/3*(a + 1)*q^63 - q^64 + a*q^67 - q^78 
        + (-a + 1)*q^82 - a*q^88 + 1/3*(2*a - 1)*q^91 + a*q^94 - a*q^109 + 
        1/3*(-a + 2)*q^112 + (-a + 1)*q^117 + (-a + 1)*q^121 - q^132 + a*q^136 -
        q^141 + a*q^144 - a*q^150 + O(q^154),
    q^11 - a*q^12 + 1/3*(a - 2)*q^14 + 1/3*(-a + 2)*q^21 + a*q^26 - q^32 - q^39 
        + a*q^47 + 1/3*(-a + 2)*q^56 + 1/3*(a - 2)*q^77 - a*q^89 + 1/3*(2*a - 
        1)*q^98 + (a - 1)*q^99 - q^101 + q^102 + q^108 + (-a + 1)*q^113 + q^116 
        + 1/3*(-2*a + 1)*q^119 + 1/3*(-2*a + 1)*q^126 - a*q^131 + (-a + 1)*q^134
        + q^143 + 1/3*(a - 2)*q^147 + O(q^154)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
609
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^7 - q^9 + q^16 - 2*q^23 + q^25 - q^28 - q^29 - q^36 + q^49 + 
        2*q^53 + q^63 + q^64 - 2*q^67 + 2*q^71 + q^81 - 2*q^92 + q^100 + 2*q^107
        - 2*q^109 - q^112 - q^116 + q^121 - q^144 - 2*q^149 - 2*q^151 + 
        O(q^154),
    q^3 + q^12 - q^21 - q^27 + q^48 - 2*q^69 + q^75 - q^84 - q^87 - q^108 + 
        q^147 + O(q^154)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
610
);
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(
610
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
610
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
610
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
610
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
610
);
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(
20
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
610
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
610
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
610
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
610
);
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(
20
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
610
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
610
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
610
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
610
);
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(
4
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
610
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
610
);
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(
4
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
611
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
611
);
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:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
611
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
611
);
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:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
611
);
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:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
611
);
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(
46
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
611
);
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(
276
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
611
);
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(
92
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
611
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
23*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
110
;
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 + O(q^110),
    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 + O(q^110),
    q^13 - q^39 - q^78 - q^104 + O(q^110),
    q^26 - q^39 - q^52 + q^91 + O(q^110)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
611
);
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:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
611
);
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:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
611
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 23*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^17 - q^27 + q^49 - q^51 - q^55 + q^64 - q^68 - q^75 - 
        q^79 - q^95 - q^101 - q^108 + O(q^110),
    q^3 - q^9 + q^12 - q^17 - q^25 - q^36 + q^48 + q^53 + q^61 + q^65 - q^68 + 
        q^75 - q^79 - q^100 - q^101 + q^103 + O(q^110),
    q^5 - q^13 - 2*q^15 + q^20 + q^31 + q^33 + q^39 - 2*q^41 + 2*q^45 - q^47 - 
        q^52 + q^57 - 2*q^60 + q^67 + q^80 + q^85 - 2*q^93 - q^99 - 2*q^109 + 
        O(q^110),
    q^11 - q^13 - q^15 + q^19 + q^33 - 2*q^41 + q^44 + q^45 - q^47 - q^52 + q^57
        - q^60 + q^73 + q^76 + q^85 - q^93 - q^99 - 2*q^109 + O(q^110)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
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(
612
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
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(
612
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
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(
612
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^6*q^4 + (-a^7 + a^4)*q^10 + (a^3 + a)*q^13 - a^4*q^16 + (-a^5 + a^2 - 
        1)*q^25 - a^3*q^34 + (a^7 - a^2)*q^37 + (a^5 - a^2)*q^40 - a^3*q^49 + 
        (a^7 - a)*q^52 + (-a^6 - a^5)*q^58 + (-a^6 + a^5)*q^61 + a^2*q^64 + 
        (-a^4 - a)*q^73 + (a - 1)*q^82 + (a^4 - a)*q^85 + (-a^7 - a^6)*q^97 + 
        (-a^6 + a^3 - 1)*q^100 + (a^3 - a)*q^106 + (a^6 + a^5)*q^109 - a^7*q^121
        + (a^7 + a^5 + a^2 + 1)*q^130 + a*q^136 + (a^7 + a^6 - a^4 - a^3)*q^145 
        + (-a^5 + 1)*q^148 + (a^4 - 1)*q^157 + (-a^3 + 1)*q^160 + (a^6 + a^4 + 
        a^2)*q^169 + (-a^2 + 1)*q^178 + (-a^5 - a^2)*q^181 + (-a^4 + a^3)*q^193 
        + O(q^194),
    q^2 + (-a^6 - a)*q^5 + a^6*q^8 + a^5*q^17 + (-a^7 + a^4)*q^20 + (a^3 + 
        a)*q^26 + (a^7 - 1)*q^29 - a^4*q^32 + (-a^3 + a^2)*q^41 + (-a^5 + a^2 - 
        1)*q^50 + (-a^5 + a^3)*q^53 + (-a^7 - a^4 - a^2 + a)*q^65 - a^3*q^68 + 
        (a^7 - a^2)*q^74 + (a^5 - a^2)*q^80 + (a^4 - a^2)*q^89 - a^3*q^98 + (a^6
        + a^4)*q^101 + (a^7 - a)*q^104 + (-a^5 - a^4)*q^113 + (-a^6 - a^5)*q^116
        + (-a^6 + a^5)*q^122 + (a^6 - a^3 + a + 1)*q^125 + a^2*q^128 + (a^2 + 
        1)*q^137 + (-a^4 - a)*q^146 + (a - 1)*q^164 + (a^4 - a)*q^170 + (a^3 + 
        1)*q^173 + (a^5 + a^3)*q^185 + O(q^194)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^2*q^4 + (-a^3 - 1)*q^10 + (a^3 + a)*q^13 - q^16 + (a^2 - a + 1)*q^25 +
        a^3*q^34 + (-a^3 + a^2)*q^37 + (a^2 - a)*q^40 + a^3*q^49 + (-a^3 + 
        a)*q^52 + (-a^2 - a)*q^58 + (-a^2 - a)*q^61 + a^2*q^64 + (a - 1)*q^73 + 
        (a + 1)*q^82 + (a - 1)*q^85 + (-a^3 - a^2)*q^97 + (a^3 - a^2 + 1)*q^100 
        + (a^3 + a)*q^106 + (-a^2 - a)*q^109 - a^3*q^121 + (-a^3 + a^2 - a + 
        1)*q^130 + a*q^136 + (-a^2 - 1)*q^145 + (-a + 1)*q^148 + (a^3 + 1)*q^160
        - q^169 + (a^2 + 1)*q^178 + (a^2 - a)*q^181 + (a^3 - 1)*q^193 + 
        O(q^194),
    q^2 + (-a^2 + a)*q^5 - a^2*q^8 - a*q^17 + (-a^3 - 1)*q^20 + (a^3 + a)*q^26 +
        (-a^3 + 1)*q^29 - q^32 + (a^3 + a^2)*q^41 + (a^2 - a + 1)*q^50 + (a^3 - 
        a)*q^53 + (-a^3 + a^2 + a - 1)*q^65 + a^3*q^68 + (-a^3 + a^2)*q^74 + 
        (a^2 - a)*q^80 + (a^2 - 1)*q^89 + a^3*q^98 + (-a^2 - 1)*q^101 + (-a^3 + 
        a)*q^104 + (-a - 1)*q^113 + (-a^2 - a)*q^116 + (-a^2 - a)*q^122 + (a^3 -
        a^2 + a + 1)*q^125 + a^2*q^128 + (a^2 + 1)*q^137 + (a - 1)*q^146 - 
        2*a^3*q^149 + (a + 1)*q^164 + (a - 1)*q^170 + (a^3 + 1)*q^173 + (a^3 - a
        + 2)*q^185 + O(q^194)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 - q^4 + (a + 1)*q^5 + a*q^8 + (-a + 1)*q^10 + q^16 + q^17 + (-a - 
        1)*q^20 + a*q^25 + (-a - 1)*q^29 - a*q^32 - a*q^34 + (-a - 1)*q^37 + (a 
        - 1)*q^40 + (a - 1)*q^41 - a*q^49 + q^50 + (a - 1)*q^58 + (a - 1)*q^61 -
        q^64 - q^68 + (a + 1)*q^73 + (a - 1)*q^74 + (a + 1)*q^80 + (a + 1)*q^82 
        + (a + 1)*q^85 + (-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 -
        2*a*q^145 + (-a + 1)*q^146 + (a + 1)*q^148 - 2*q^149 + 2*q^157 + (-a + 
        1)*q^160 + (-a + 1)*q^164 - q^169 + (-a + 1)*q^170 + (-a - 1)*q^173 + (a
        - 1)*q^181 - 2*a*q^185 + (-a + 1)*q^193 + O(q^194)
]
;
Bo:=
[
    q + a*q^2 - q^4 + (-a - 1)*q^5 - a*q^8 + (-a + 1)*q^10 + q^16 - q^17 + (a + 
        1)*q^20 + a*q^25 + (a + 1)*q^29 + a*q^32 - a*q^34 + (-a - 1)*q^37 + (a -
        1)*q^40 + (-a + 1)*q^41 - a*q^49 - q^50 + (a - 1)*q^58 + (a - 1)*q^61 - 
        q^64 + q^68 + (a + 1)*q^73 + (-a + 1)*q^74 + (-a - 1)*q^80 + (a + 
        1)*q^82 + (a + 1)*q^85 + (-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 - 2*a*q^145 + (a - 1)*q^146 + (a + 1)*q^148 + 2*q^149 + 2*q^157 
        + (-a + 1)*q^160 + (a - 1)*q^164 - q^169 + (a - 1)*q^170 + (a + 1)*q^173
        + (a - 1)*q^181 + 2*a*q^185 + (-a + 1)*q^193 + O(q^194),
    q^3 + a*q^6 - q^12 + (-a - 1)*q^15 - a*q^24 + a*q^27 + (-a + 1)*q^30 + q^48 
        - q^51 - q^54 + (a + 1)*q^60 + a*q^75 + (a + 1)*q^87 + a*q^96 - a*q^102 
        - a*q^108 + (-a - 1)*q^111 + (a - 1)*q^120 + (-a + 1)*q^123 + (-a + 
        1)*q^135 - a*q^147 - q^150 + (a - 1)*q^174 + (a - 1)*q^183 - q^192 + 
        O(q^194),
    q^9 + a*q^18 - q^36 + (-a - 1)*q^45 - a*q^72 + a*q^81 + (-a + 1)*q^90 + 
        q^144 - q^153 - q^162 + (a + 1)*q^180 + O(q^194)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^13 + a*q^19 + (-a - 1)*q^31 - a*q^43 + a*q^49 - q^55 + (-a - 1)*q^73 +
        (a - 1)*q^79 - q^85 - q^103 + q^115 - a*q^127 + (a + 1)*q^139 + q^157 + 
        (-a + 1)*q^163 + (a - 1)*q^181 + a*q^187 + (-a + 1)*q^193 + O(q^194),
    q^5 - a*q^11 - a*q^17 + a*q^23 + a*q^41 + (a - 1)*q^47 + (-a - 1)*q^53 + (a 
        + 1)*q^59 + q^65 - 2*q^71 + (-a - 1)*q^83 + a*q^95 + q^107 - a*q^113 + 
        a*q^125 + q^131 + (a - 1)*q^137 - a*q^143 + (a - 1)*q^149 + (-a - 
        1)*q^155 + q^167 + q^173 + (a + 1)*q^179 + (-a + 1)*q^191 + O(q^194)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^2 + q^4 + q^8 - 2*q^13 + q^16 - q^17 + q^25 - 2*q^26 + q^32 - q^34 - 
        q^49 + q^50 - 2*q^52 - 2*q^53 + q^64 - q^68 + 2*q^89 - q^98 + q^100 + 
        2*q^101 - 2*q^104 - 2*q^106 - q^121 + q^128 - q^136 + 2*q^137 - 2*q^149 
        + 2*q^157 + 3*q^169 + 2*q^178 + O(q^194)
]
;
Bo:=
[
    q - q^2 + q^4 - q^8 - 2*q^13 + q^16 + q^17 + q^25 + 2*q^26 - q^32 - q^34 - 
        q^49 - q^50 - 2*q^52 + 2*q^53 + q^64 + q^68 - 2*q^89 + q^98 + q^100 - 
        2*q^101 + 2*q^104 - 2*q^106 - q^121 - q^128 - q^136 - 2*q^137 + 2*q^149 
        + 2*q^157 + 3*q^169 + 2*q^178 + O(q^194),
    q^3 - q^6 + q^12 - q^24 - q^27 - 2*q^39 + q^48 + q^51 + q^54 + q^75 + 2*q^78
        - q^96 - q^102 - q^108 - q^147 - q^150 - 2*q^156 + 2*q^159 + q^192 + 
        O(q^194),
    q^9 - q^18 + q^36 - q^72 - q^81 - 2*q^117 + q^144 + q^153 + q^162 + O(q^194)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
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(
6
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^4 - a*q^16 + q^17 + (a - 1)*q^18 + q^21 - a*q^25 - q^26 - 
        a*q^33 - a*q^42 + (a - 1)*q^49 - q^53 + q^64 + q^66 + (a - 1)*q^68 + 
        q^69 - a*q^72 + (-a + 1)*q^77 + (a - 1)*q^81 + (a - 1)*q^84 + (a - 
        1)*q^93 + 2*q^98 + q^100 + (-a + 1)*q^104 - q^117 + (a - 1)*q^121 + 
        q^132 + q^138 + (2*a - 2)*q^149 - q^154 + (-a + 1)*q^157 - q^161 + q^168
        + a*q^178 - a*q^186 - a*q^189 + O(q^194),
    q^2 + (a - 1)*q^8 + q^9 + a*q^13 + (a - 1)*q^21 - a*q^32 - a*q^33 + q^34 + 
        (a - 1)*q^36 + q^42 - 2*a*q^49 - a*q^50 - q^52 - a*q^66 - a*q^69 + 
        a*q^77 - a*q^84 + (-a + 1)*q^89 + (a - 1)*q^93 + (a - 1)*q^98 - q^101 - 
        q^106 + a*q^121 + q^128 + q^132 + (a - 1)*q^136 - q^137 + q^138 - 
        a*q^144 + q^153 + (-a + 1)*q^154 + (-a + 1)*q^161 + (a - 1)*q^162 + (a -
        1)*q^168 + (a - 1)*q^186 + q^189 + O(q^194),
    q^3 + (a - 1)*q^7 - a*q^11 + (a - 1)*q^12 + q^14 - a*q^22 - a*q^23 - a*q^28 
        + (a - 1)*q^31 + q^44 + q^46 - a*q^48 + q^51 + (a - 1)*q^54 + (a - 
        1)*q^56 + (a - 1)*q^62 + q^63 + (a - 1)*q^71 - a*q^75 - q^78 + q^79 + 
        q^88 + a*q^91 + q^92 - a*q^99 - a*q^107 + q^112 + (a - 1)*q^119 - 
        a*q^124 - a*q^126 + (a - 1)*q^131 - a*q^139 - a*q^142 + (-a + 1)*q^143 +
        (a - 1)*q^147 + (a - 1)*q^158 - q^159 + (a - 1)*q^163 + q^167 + q^175 + 
        (a - 1)*q^176 + (-a + 1)*q^182 + (a - 1)*q^184 - a*q^187 + q^192 + 
        O(q^194),
    q^6 - a*q^7 + (a - 1)*q^11 + (a - 1)*q^14 - a*q^22 - a*q^23 + (a - 1)*q^24 +
        q^27 + q^28 + q^31 + a*q^39 - a*q^44 - a*q^46 - a*q^56 + (a - 1)*q^62 + 
        (a - 1)*q^63 + (a - 1)*q^71 + q^79 + q^88 - q^91 + q^92 - a*q^96 - 
        a*q^99 + q^102 + q^107 + (a - 1)*q^108 + (a - 1)*q^112 - a*q^119 + (a - 
        1)*q^124 + q^126 + q^131 - a*q^139 + (a - 1)*q^142 + (-a + 1)*q^143 - 
        2*a*q^147 - a*q^150 - q^156 + q^158 + (a - 1)*q^163 + (a - 1)*q^167 + (a
        - 1)*q^175 + q^176 + a*q^182 + q^184 + (a - 1)*q^187 + O(q^194)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
612
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^13 - q^19 - q^43 + q^49 + q^55 + 2*q^67 - q^85 - q^103 + q^115 - q^127
        - 2*q^145 + 2*q^151 - q^157 - q^187 + O(q^194),
    q^3 + q^27 - q^39 - q^45 - q^57 - q^99 - q^129 + q^147 + q^153 + q^165 + 
        O(q^194),
    q^5 + q^11 - q^17 + q^23 - 2*q^29 + q^41 - q^65 - 2*q^71 - q^95 + q^107 + 
        q^113 - q^125 + q^131 - q^143 + q^167 + q^173 + O(q^194),
    q^9 - q^15 - q^33 + q^51 - q^69 + q^81 + 2*q^87 - q^117 - q^123 - q^135 - 
        q^171 + O(q^194)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
613
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
612
);
qprec:=
102
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
613
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
204
);
qprec:=
102
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
613
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
68
);
qprec:=
102
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
613
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
17*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
102
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
613
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
51*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
102
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
613
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
153*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
102
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
614
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
306
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
614
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
614
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
614
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
17*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
614
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
51*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
614
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
153*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
152
;
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 + O(q^152),
    q^2 + q^8 - q^14 + q^18 - q^22 + q^32 - q^34 - q^38 + q^50 - q^56 + q^72 - 
        q^74 - q^82 - q^88 - q^106 - q^126 + q^128 - q^136 - q^142 + O(q^152)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
615
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
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(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
615
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 - q^39 - q^40 - q^46 - q^61 - q^66 + q^81 - q^84 - q^91 - 
        q^115 + q^121 - q^124 + q^156 + q^160 + O(q^162),
    q^2 + q^18 - q^20 - q^23 - q^33 - q^42 + q^50 - q^62 + q^83 + q^87 + q^98 + 
        q^105 - q^107 + q^113 - q^128 + q^143 + q^155 + O(q^162),
    q^3 - q^13 - q^22 + q^27 - q^28 + q^52 - q^55 + q^58 - q^67 + q^70 + q^75 + 
        q^88 - q^117 - q^120 - q^130 - q^138 + q^142 + O(q^162),
    q^4 - q^10 - q^21 - q^31 + q^36 + q^39 + q^49 + q^61 - q^64 - q^84 - q^90 + 
        q^100 + q^115 - q^121 - q^124 - q^139 + q^154 + O(q^162),
    q^5 - q^8 - q^23 + q^32 - q^33 + q^42 + q^45 + q^62 - q^72 - q^77 - q^78 + 
        q^92 - q^98 - q^107 - q^122 + q^123 + q^125 + q^132 + 2*q^143 + 
        O(q^162),
    q^6 - 2*q^14 - q^15 + q^24 + q^26 + q^29 + q^35 - q^41 - q^44 + q^54 - q^56 
        - q^60 + q^71 + q^89 - q^96 - 2*q^101 + q^110 + 2*q^116 - 2*q^126 + 
        q^134 - q^135 + 2*q^140 + q^150 + q^161 + O(q^162),
    q^7 - q^12 - q^13 + q^28 + q^30 - q^55 - q^58 + q^63 - q^67 - q^70 + q^82 + 
        q^88 + q^93 + q^97 - q^108 - q^117 - q^142 + q^145 - q^147 + q^157 + 
        O(q^162),
    q^11 - q^14 - q^15 + q^24 + q^26 - q^41 - q^44 + q^65 + q^69 - q^96 + q^99 -
        2*q^101 - q^104 + q^110 + q^116 - q^126 + q^134 - q^135 + q^140 + q^149 
        + q^161 + O(q^162)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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(
616
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
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(
616
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
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(
616
);
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:=
178
;
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 + O(q^178),
    q^11 - q^22 + q^44 - q^77 - q^88 - q^99 + q^154 + q^176 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
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(
616
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4
;
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(
616
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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(
30
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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(
30
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^3*q^9 + (a^3 - a^2 + a - 1)*q^25 + (-2*a^3 + a^2 - a + 1)*q^29 + (-a^2
        - 1)*q^37 + a^2*q^49 + (a - 1)*q^53 - a^3*q^77 - a*q^81 + (-a^3 + a^2 - 
        2*a + 1)*q^109 + (a^2 - a)*q^113 + (a^3 - a^2 + a - 1)*q^121 + (a^3 + 
        a)*q^137 + (-a^2 + 1)*q^161 + a*q^169 + O(q^178),
    q^2 - a*q^8 + (2*a^3 - 2*a^2 + a)*q^14 + (-a^3 - 1)*q^16 + a^3*q^18 + (a^2 -
        2*a + 2)*q^22 + (2*a^2 - 2*a)*q^28 + (a^3 - 2*a^2 + a)*q^32 + (-2*a^3 + 
        2*a^2)*q^44 + (-3*a^3 + 3*a^2 - 1)*q^46 + (a^3 - a^2 + a - 1)*q^50 + 
        (-a^2 + 2*a - 2)*q^56 + (-2*a^3 + a^2 - a + 1)*q^58 + (2*a^2 - 2*a + 
        1)*q^64 + (-a^3 + a^2 - a + 1)*q^72 + (-a^2 - 1)*q^74 + (a^3 - 3*a^2 + 
        4*a - 2)*q^86 + (a^3 - 2*a^2 + 2*a)*q^88 + (2*a^3 - 4*a^2 + 4*a)*q^92 + 
        a^2*q^98 + (a - 1)*q^106 + (a^3 - a^2 + 1)*q^112 + (a^3 - a^2 - a + 
        1)*q^126 + (2*a - 2)*q^128 + (-a^3 + a^2 - 2)*q^134 + (a^3 - 3*a^2 + 
        a)*q^142 + (-a^3 + a)*q^144 - a^3*q^154 + (-2*a^3 + 4*a^2 - 3*a + 
        1)*q^158 - a*q^162 + (2*a^3 - 2*a + 2)*q^172 + (a^2 - 2*a + 1)*q^176 + 
        O(q^178),
    q^4 + (-a^3 + 2*a^2 - a + 1)*q^8 + (-2*a + 2)*q^14 + (-a^2 + 2*a - 1)*q^16 +
        (2*a^2 - 2*a)*q^22 + (-2*a^3 + 2*a^2 - a)*q^28 + (a^3 - a^2 - a + 
        1)*q^32 + a^3*q^36 + (-a^2 + 2*a - 2)*q^44 + (-2*a^2 + 4*a - 4)*q^46 + 
        (a^3 - 2*a^2 + 2*a - 1)*q^56 + (-2*a^3 + 2*a^2 - 2*a)*q^64 + (a^2 - 
        1)*q^72 + (2*a^3 - 4*a^2 + 2*a)*q^86 + (a^3 - a^2 + 1)*q^88 + (3*a^3 - 
        3*a^2 + 1)*q^92 + (a^3 - a^2 + a - 1)*q^100 + (a^3 - a)*q^112 + (-2*a^3 
        + a^2 - a + 1)*q^116 + (2*a^2 - 2*a + 2)*q^126 + (-2*a^2 + 2*a - 
        1)*q^128 + (-2*a^3 + 2*a)*q^134 + (2*a^3 + 2)*q^142 + (a^3 - 2*a^2 + 2*a
        - 1)*q^144 + (-a^2 - 1)*q^148 + (-2*a^3 + 2*a^2 - 2)*q^158 + (-a^3 + 
        3*a^2 - 4*a + 2)*q^172 + (-a^3 + 2*a^2 - a + 1)*q^176 + O(q^178),
    q^7 - a*q^11 + (-a^3 - 1)*q^23 + (-a^2 + a)*q^43 + a^3*q^63 + (a^2 + a)*q^67
        + (2*a^3 - a^2 + a - 1)*q^71 + (-a^3 + a^2 - a)*q^79 + (-a^3 + a^2 - a +
        1)*q^99 + (a^3 + a - 1)*q^107 + (a^2 + 1)*q^127 + (-a^3 - a + 1)*q^151 +
        (a^3 - a)*q^163 + (a^3 - a^2 + a - 1)*q^175 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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(
10
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (-2*a^3 + 2*a^2 - a)*q^7 + (a^3 + 1)*q^8 - a^3*q^9 - a^2*q^11 + 
        (2*a^2 - 2*a)*q^14 + (a^3 - 2*a^2 + a)*q^16 + (-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 - 3*a^2 + a 
        + 1)*q^29 + (-2*a^2 + 2*a - 1)*q^32 + (a^3 - a^2 + a - 1)*q^36 + (-3*a^2
        + 4*a - 3)*q^37 + (a^3 + a^2)*q^43 + a^3*q^44 + (-2*a^3 + 4*a^2 - 
        4*a)*q^46 + a^2*q^49 + (2*a^3 - a + 1)*q^53 + (a^3 - a^2 + 1)*q^56 + 
        (2*a^3 - 4*a^2 + 4*a - 2)*q^58 + (a^3 - a^2 - a + 1)*q^63 + (2*a - 
        2)*q^64 + (a^3 - a^2)*q^67 + (-a^3 + 3*a^2 - a)*q^71 + (-a^3 + a)*q^72 +
        (-2*a^3 + 2*a^2 + 2*a - 2)*q^74 + (-a^3 + 2*a^2 - 2*a)*q^77 + (2*a^3 - 
        4*a^2 + 3*a - 1)*q^79 - a*q^81 + (-a^2 + 1)*q^88 + (3*a^2 - 4*a + 
        3)*q^92 - q^99 - q^100 + (-2*a^2 + 2)*q^106 + (-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 + 3*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 + (a^3
        + a)*q^137 + (-2*a^3 + 2*a^2 - 4*a + 2)*q^142 + (-a^3 + a^2 - 1)*q^144 +
        (-3*a^3 + 4*a^2 - 3*a)*q^148 + (2*a^2 - 4*a + 4)*q^149 + (a^3 + 1)*q^151
        + (2*a^2 - 2*a + 2)*q^154 + (-2*a^2 + 4*a - 2)*q^158 + (a^2 - 1)*q^161 +
        (a^3 + a - 1)*q^163 - a*q^169 + (-2*a^3 + a^2 - a + 1)*q^172 + (-2*a^2 +
        2*a - 1)*q^175 + (a^3 - 2*a^2 + 2*a - 1)*q^176 + O(q^178),
    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^3 - 2*a^2 + a)*q^14 + (-a^3 + a^2 + a - 1)*q^16 - a^3*q^18 - 
        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)*q^29 + (-2*a^3 + 2*a^2 - 2*a)*q^32 + (a^2 - 1)*q^36 +
        (-2*a^3 + 4*a^2 - 4*a)*q^37 + (a^3 - a^2 + 2*a - 1)*q^44 + (3*a^3 - 
        3*a^2 + 1)*q^46 + (-a^3 + a^2 - a + 1)*q^50 + (2*a^3 - 2*a^2 + 4*a - 
        2)*q^53 + (-a^3 + a)*q^56 + (-2*a^3 + 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)*q^71 + (-a^3 + 
        2*a^2 - 2*a + 1)*q^72 + (3*a^2 - 4*a + 3)*q^74 + (2*a^3 - 2*a^2)*q^77 + 
        (-2*a^3 + 2*a^2 - 2)*q^79 + (a^3 + a^2)*q^86 + (-a^3 + a - 1)*q^88 + 
        (2*a^3 - 4*a^2 + 3*a - 1)*q^92 + a^2*q^98 + (a^3 - a)*q^100 + (-2*a^3 + 
        a - 1)*q^106 + 2*a^2*q^109 - q^112 + (-a^3 + 3*a^2 - 3*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)*q^134 + (a^3 - 3*a^2 + a)*q^142 + (a^2 - 2*a + 
        2)*q^144 + (2*a^3 - a^2 - a + 2)*q^148 + (-4*a^2 + 4*a)*q^149 + 
        2*a*q^151 + (a^3 - 2*a^2 + 2*a)*q^154 + (-2*a^3 + 4*a^2 - 3*a + 1)*q^158
        - a*q^162 + (-a^3 - 2*a + 2)*q^172 + (-2*a^3 + 2*a^2 - 2*a)*q^175 + 
        (-2*a^3 + 2*a^2 - a)*q^176 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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(
10
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
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*q^11 + (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^3 - a^2 + a - 
        1)*q^22 + (a^2 + 1)*q^24 - a^3*q^25 + (-a^3 + a^2 - a + 1)*q^27 + q^32 +
        (a^2 + 1)*q^33 + (-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 + q^44 + (-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)*q^66 + 
        (-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*q^88 + (a^3 - a^2 - 1)*q^89 + (a^3 + a - 
        1)*q^96 + (a^2 + 1)*q^97 + q^98 + (a^3 - 1)*q^99 + 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*q^121 + (-a^2 - a - 1)*q^123 + a^2*q^128 + (-2*a^3 - a + 
        1)*q^129 + (-a^3 + a^2)*q^131 + (a^3 + a - 1)*q^132 + (-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 + a^2*q^176 - q^177 + O(q^178),
    q^7 - a*q^14 + (a^3 + a - 1)*q^21 + a^2*q^28 + (-a^3 + 1)*q^42 - a^3*q^56 + 
        (-a^2 - 1)*q^63 - a^3*q^77 + (a^3 - a^2 - 1)*q^84 + (a^3 - a^2 + a - 
        1)*q^112 + (a^2 - a)*q^119 + (a^3 + a)*q^126 + (-a + 1)*q^133 + (a^3 - 
        a^2 + a - 1)*q^154 + (a^2 + 1)*q^168 - a^3*q^175 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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(
30
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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(
30
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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:=
178
;
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 + O(q^178),
    q^2 + a^2*q^14 - a*q^18 + (a^3 - a^2 + a - 1)*q^22 + (-a^3 + a^2)*q^46 - 
        a^3*q^50 + (-a^3 - a)*q^58 + (a^3 - a^2 + a)*q^74 + (a^3 - a^2 - 1)*q^86
        + (a^3 - a^2 + a - 1)*q^98 + (a^2 + 1)*q^106 - a^3*q^126 + (a^3 - a^2 - 
        1)*q^134 + (-a^3 + 1)*q^142 - a*q^154 + (a^2 + 1)*q^158 + a^2*q^162 + 
        O(q^178),
    q^4 - a^2*q^16 + a^2*q^28 + (a - 1)*q^32 - a*q^36 + (a^3 - a^2 + a - 1)*q^44
        + (a^2 - a)*q^64 + (-a^3 + a^2)*q^92 - a^3*q^100 + (-a^3 + a^2 - a + 
        1)*q^112 + (-a^3 - a)*q^116 + q^128 + a^3*q^144 + (a^3 - a^2 + a)*q^148 
        + (a^3 - a^2 - 1)*q^172 + a*q^176 + O(q^178),
    q^8 + (-a^2 + a - 1)*q^16 + (-a^3 + a^2 - a)*q^32 + a^2*q^56 + a^3*q^64 - 
        a*q^72 + (a^3 - a^2 + a - 1)*q^88 + (-a + 1)*q^112 + (a^3 - a^2 + 
        a)*q^144 + (-a^3 + a^2)*q^176 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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(
10
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^2*q^4 - a^2*q^7 + (-a + 1)*q^8 + a*q^9 + 1/5*(3*a^3 - a^2 - a + 
        3)*q^11 + (a^2 - a)*q^16 + 1/5*(2*a^3 + 6*a^2 - 4*a + 2)*q^22 + (-a^3 + 
        a^2)*q^23 + a^3*q^25 + (a^3 - a^2 + a - 1)*q^28 + (-a^3 + 2*a^2 - 
        a)*q^29 - q^32 - a^3*q^36 + (-a^3 + a^2 - a)*q^37 + (a^3 - a^2 + 1)*q^43
        + 1/5*(-2*a^3 + 4*a^2 - a - 2)*q^44 + (a^3 - a^2 + a - 1)*q^49 + (-a^2 +
        2*a - 1)*q^53 + (a^3 - a^2)*q^56 + (2*a - 2)*q^58 - a^3*q^63 + (-a^3 + 
        a^2 - 1)*q^67 + (a^3 - 1)*q^71 + (-a^2 + a)*q^72 - 2*a^3*q^74 + 
        1/5*(2*a^3 - 4*a^2 + a + 2)*q^77 + (-a^2 - 1)*q^79 + a^2*q^81 + (2*a^2 -
        2*a + 2)*q^86 + 1/5*(-3*a^3 + a^2 + a + 2)*q^88 + (-a^3 + a^2 - a)*q^92 
        + 1/5*(2*a^3 - 4*a^2 + 6*a - 3)*q^99 + q^100 + (2*a^3 - 2*a^2 + 
        2*a)*q^106 + (-a + 1)*q^107 + (a^3 - a^2)*q^109 + (a^2 - a + 1)*q^112 + 
        (-a^3 - a + 1)*q^113 + (a^3 - 2*a^2 + 2*a - 1)*q^116 - a^3*q^121 + (a^2 
        - a)*q^127 + a^2*q^128 + (-2*a^2 + 2*a - 2)*q^134 + (a^2 - a)*q^137 + 
        (a^3 - a^2)*q^144 + (-a^2 + a)*q^148 + (-a + 1)*q^151 + 1/5*(-2*a^3 + 
        4*a^2 - 6*a + 8)*q^154 + (-a^3 + a^2 - a)*q^161 + (-a^2 + a - 1)*q^163 -
        a^2*q^169 + (-a^3 + 2*a^2 - a)*q^172 + q^175 + 1/5*(-2*a^3 + 4*a^2 - a +
        3)*q^176 + O(q^178),
    q^2 + (a^2 - a + 1)*q^4 + (-a^3 + a^2 - a)*q^8 + 1/5*(-2*a^3 + 4*a^2 - 6*a -
        2)*q^11 - a^2*q^14 - a^3*q^16 + a*q^18 + 1/5*(-3*a^3 + a^2 + a - 3)*q^22
        + (-a + 1)*q^28 + (-2*a^2 + 2*a - 2)*q^29 + (a^3 - a^2 + a)*q^36 + 
        2*a*q^37 + (2*a^2 - 2*a)*q^43 + 1/5*(3*a^3 - a^2 + 4*a - 2)*q^44 + (-a^3
        + a^2)*q^46 + a^3*q^50 + (2*a^3 - 2*a^2)*q^53 + (a^2 - a)*q^56 + (a^3 - 
        2*a^2 + a)*q^58 - q^64 + (-2*a^2 + 2*a)*q^67 + (-a + 1)*q^72 + (a^3 - 
        a^2 + a)*q^74 + 1/5*(2*a^3 + 6*a^2 - 4*a + 2)*q^77 + (-a^3 + a^2 - 
        1)*q^86 + 1/5*(2*a^3 + a^2 + a - 3)*q^88 + (-a^2 + 2*a - 1)*q^92 + (a^3 
        - a^2 + a - 1)*q^98 + 1/5*(2*a^3 - 4*a^2 - 4*a + 2)*q^99 + (a^2 - 
        a)*q^100 + (a^2 - 2*a + 1)*q^106 + 2*a^2*q^107 + (-2*a^3 + 2*a^2 - 2*a +
        2)*q^109 - q^112 + a^3*q^116 - a^3*q^126 + (-a^2 + a - 1)*q^128 + (a^3 -
        a^2 + 1)*q^134 + (a^3 - 1)*q^142 + (-a^3 + a^2 - a + 1)*q^144 + (-a^3 - 
        a + 1)*q^148 + 1/5*(-2*a^3 + 4*a^2 - a - 2)*q^154 + (-a^2 - 1)*q^158 + 
        a^2*q^162 + 2*q^163 + a*q^172 + 1/5*(-2*a^3 - a^2 + 4*a - 2)*q^176 + 
        O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
178
;
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 + O(q^178),
    q^2 - q^6 - q^10 + q^22 + q^30 - q^46 + q^54 - q^62 - q^66 - q^74 + 2*q^94 +
        q^98 + 2*q^106 - q^110 - q^118 - q^134 + q^138 - q^142 - q^162 + 
        O(q^178),
    q^7 - q^21 - q^35 + q^77 + q^105 - q^161 + O(q^178),
    q^14 - q^42 - q^70 + q^154 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 5*H.4
;
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(
616
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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(
6
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a - 1)*q^3 + (a - 1)*q^4 + 2*a*q^9 + (-a + 1)*q^11 + (-a + 2)*q^12 + 
        (-a + 1)*q^14 - a*q^16 + (-a + 1)*q^25 + (-a + 2)*q^26 + (-2*a + 1)*q^27
        + (a - 2)*q^33 - 2*q^36 + (a - 2)*q^42 + a*q^44 + (2*a - 1)*q^48 + (a - 
        1)*q^49 + a*q^56 - a*q^58 + (a + 1)*q^59 + q^64 + (a - 1)*q^67 + (a - 
        2)*q^75 - 3*q^78 + (a - 1)*q^81 + (a - 2)*q^91 + (-2*a + 1)*q^97 + 
        2*q^99 + a*q^100 + (2*a - 1)*q^104 + (a + 1)*q^108 + q^113 - a*q^121 + 
        (-a - 1)*q^122 + 2*q^126 + (-2*a + 1)*q^132 + (a - 1)*q^137 + (-2*a + 
        2)*q^144 + (-a + 2)*q^147 - a*q^154 + (-a + 1)*q^158 + a*q^163 + (-2*a +
        1)*q^168 - 2*q^169 + (2*a - 1)*q^174 - q^176 - 3*a*q^177 + O(q^178),
    q^2 + (-a - 1)*q^6 - q^7 + (a - 1)*q^8 + (-a - 1)*q^13 + 2*a*q^18 + (a + 
        1)*q^21 + (-a + 1)*q^22 + (-a + 2)*q^24 + (-a + 1)*q^28 + (a - 1)*q^29 -
        a*q^32 + 3*a*q^39 + (-a + 1)*q^50 + (-a + 2)*q^52 + (-2*a + 1)*q^54 + 
        (2*a - 1)*q^61 - 2*a*q^63 + (a - 2)*q^66 - 2*q^72 + (a - 1)*q^77 - q^79 
        + (a - 2)*q^84 + (-a + 2)*q^87 + a*q^88 + (2*a - 1)*q^96 + (a - 1)*q^98 
        + (-a + 2)*q^101 - 2*a*q^109 + a*q^112 - a*q^116 + (-4*a + 2)*q^117 + (a
        + 1)*q^118 + (-a + 1)*q^127 + q^128 + (a - 1)*q^134 + (a - 2)*q^143 + 
        2*q^149 + (a - 2)*q^150 - a*q^151 - 3*q^156 + (a - 1)*q^162 + (a + 
        1)*q^167 + (-2*a + 1)*q^173 + (a - 1)*q^175 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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(
6
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^9 + q^25 - 2*q^37 + q^49 - 2*q^53 + q^77 + q^81 + 2*q^113 + q^121 - 
        2*q^137 - q^169 + O(q^178),
    q^2 + q^8 - q^18 - q^28 + q^32 - q^44 + q^50 - q^72 - 2*q^74 + q^98 - 
        2*q^106 - q^112 + q^128 + q^154 + q^162 + 2*q^172 - q^176 + O(q^178),
    q^4 - q^14 + q^16 - q^22 - q^36 - q^56 + q^64 + 2*q^86 - q^88 + q^100 + 
        q^126 - q^144 - 2*q^148 + 2*q^158 + O(q^178),
    q^7 + q^11 - 2*q^43 - q^63 - 2*q^79 - q^99 + 2*q^107 + 2*q^127 - 2*q^151 + 
        q^175 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
616
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3 + 5*H.4
;
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^14 + q^16 - q^25 + q^36 - q^44 + q^49 - q^56 - 
        2*q^58 + q^64 - 2*q^67 + q^81 - q^99 - q^100 - 2*q^113 + q^121 - q^126 -
        2*q^137 + q^144 + q^154 + 2*q^158 + 2*q^163 + q^169 - q^176 + O(q^178),
    q^2 - q^7 + q^8 + q^18 - q^22 - q^28 - 2*q^29 + q^32 - q^50 - q^63 + q^72 + 
        q^77 + 2*q^79 - q^88 + q^98 + 2*q^109 - q^112 - 2*q^116 + 2*q^127 + 
        q^128 - 2*q^134 + 2*q^149 - 2*q^151 + q^162 + q^175 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
617
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
616
);
qprec:=
103
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
617
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
88
);
qprec:=
103
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
617
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
56
);
qprec:=
103
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
617
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
77*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
103
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
618
);
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(
618
);
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(
618
);
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(
618
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
618
);
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(
34
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^5*q^3 - 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^10*q^9 + a^8*q^12 + (-a^7
        - a)*q^13 + a^6*q^16 + (-a^13 - a^11)*q^19 + (a^14 + a^4)*q^21 + 
        a^2*q^25 - a^15*q^27 + (a^12 + a^2)*q^28 + (-a^15 + a^14)*q^31 - 
        a^13*q^36 + (a^12 + a^4)*q^37 + (a^12 + a^6)*q^39 + (-a^11 - a^7)*q^43 -
        a^11*q^48 + (-a^15 + a^8 - a)*q^49 + (a^10 + a^4)*q^52 + (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^57 + (-a^13 + a^8)*q^61 + (-a^9 + a^2)*q^63 - a^9*q^64 + (a^6
        - a^3)*q^67 + (a^10 - a^5)*q^73 - a^7*q^75 + (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^3*q^81 + (-a^7 + 1)*q^84 + (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^3 
        + a^2)*q^93 + (-a^13 + 1)*q^97 - a^5*q^100 + a^8*q^103 - a*q^108 + (-a^9
        + a^4)*q^109 + (-a^9 + 1)*q^111 + (-a^15 - a^5)*q^112 + (-a^11 + 
        1)*q^117 - a^3*q^121 + (-a + 1)*q^124 + (-a^11 + a^8)*q^127 + (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^129 + (a^12 + a^10 - a^5 - a^3)*q^133 + (-a^5 + 
        a^4)*q^139 + (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^13 + a^6 - a^3)*q^147
        + (-a^15 - a^7)*q^148 + (a^12 + a^10)*q^151 + (-a^15 - a^9)*q^156 + 
        (-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^6 + a^4)*q^171 + (a^14 + a^10)*q^172 + (-a^11 - a)*q^175
        + (-a^13 + a^8)*q^181 + (-a^13 - a)*q^183 + (a^14 - a^7)*q^189 + 
        a^14*q^192 + (a^6 + a^2)*q^193 + (-a^11 + a^4 - a)*q^196 + (a^6 + 
        a^2)*q^199 + (-a^11 + a^8)*q^201 + O(q^202),
    q^2 - a^5*q^6 - a^3*q^8 + (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^14 + a^10*q^18 + a^8*q^24 +
        (-a^7 - a)*q^26 + a^6*q^32 + (-a^13 - a^11)*q^38 + (a^14 + a^4)*q^42 + 
        a^2*q^50 - a^15*q^54 + (a^12 + a^2)*q^56 + (-a^15 + a^14)*q^62 - 
        a^13*q^72 + (a^12 + a^4)*q^74 + (a^12 + a^6)*q^78 + (-a^11 - a^7)*q^86 -
        a^11*q^96 + (-a^15 + a^8 - a)*q^98 + (a^10 + a^4)*q^104 + (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^114 + (-a^13 + a^8)*q^122 + (-a^9 + a^2)*q^126 - a^9*q^128 + 
        (a^6 - a^3)*q^134 + (a^10 - a^5)*q^146 - a^7*q^150 + (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^152 + (a^14 - a^5)*q^158 - a^3*q^162 + (-a^7 + 1)*q^168 + (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^182 + (-a^3 + a^2)*q^186 + (-a^13 + 1)*q^194 - a^5*q^200 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
618
);
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(
618
);
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:=
[
    q - q^3 + a*q^7 + q^9 + q^10 + (-a + 1)*q^16 + (a - 1)*q^19 - a*q^21 - q^22 
        - q^27 - q^30 - q^34 - a*q^40 + (a - 1)*q^43 + (-2*a + 2)*q^46 + (a - 
        1)*q^48 + (a - 1)*q^55 + (-a + 1)*q^57 - a*q^58 + a*q^63 - q^64 + q^66 -
        a*q^67 + a*q^70 + 2*q^79 + q^81 + a*q^82 + (a - 1)*q^85 + a*q^88 + q^90 
        - q^94 + (-a + 1)*q^97 + q^102 - q^103 - q^106 + (-a + 1)*q^109 + q^112 
        - 2*a*q^115 + a*q^118 + a*q^120 + (-a + 1)*q^129 - q^133 + a*q^136 + 
        (2*a - 2)*q^138 + a*q^139 + q^142 + (-a + 1)*q^144 - q^145 + (-a + 
        1)*q^151 - a*q^154 + (a - 1)*q^157 + (-a + 1)*q^163 + (-a + 1)*q^165 + 
        a*q^166 - q^169 + (a - 1)*q^171 + a*q^174 + (-a + 1)*q^181 - 2*q^184 + 
        (-a + 1)*q^187 - a*q^189 + (a - 1)*q^190 + q^192 - q^198 + a*q^199 + 
        a*q^201 + O(q^202),
    q^2 - q^6 + a*q^14 + q^18 + q^20 + (-a + 1)*q^32 + (a - 1)*q^38 - a*q^42 - 
        q^44 - q^54 - q^60 - q^68 - a*q^80 + (a - 1)*q^86 + (-2*a + 2)*q^92 + (a
        - 1)*q^96 + (a - 1)*q^110 + (-a + 1)*q^114 - a*q^116 + a*q^126 - q^128 +
        q^132 - a*q^134 + a*q^140 + 2*q^158 + q^162 + a*q^164 + (a - 1)*q^170 + 
        a*q^176 + q^180 - q^188 + (-a + 1)*q^194 + O(q^202),
    q^4 + (-a + 1)*q^10 - q^12 - a*q^16 + (a - 1)*q^22 + a*q^28 + (a - 1)*q^30 +
        (a - 1)*q^34 + q^36 - 2*a*q^46 + a*q^48 - q^58 + (-a + 1)*q^66 + q^70 + 
        (a - 1)*q^76 + q^82 - a*q^84 + (-a + 1)*q^90 + (a - 1)*q^94 + (-a + 
        1)*q^102 + (a - 1)*q^106 - q^108 + (-a + 1)*q^112 + q^118 + 2*a*q^138 + 
        (-a + 1)*q^142 - a*q^144 - q^154 - a*q^160 + q^166 + (a - 1)*q^172 + 
        q^174 + a*q^190 + (a - 1)*q^198 + O(q^202),
    q^5 + (-a + 1)*q^8 - q^11 - q^15 - q^17 - a*q^20 + (-2*a + 2)*q^23 + (a - 
        1)*q^24 - a*q^29 - q^32 + q^33 + a*q^35 + a*q^41 + a*q^44 + q^45 - q^47 
        + q^51 - q^53 + q^56 + a*q^59 + a*q^60 + a*q^68 + (2*a - 2)*q^69 + q^71 
        + (-a + 1)*q^72 - a*q^77 + a*q^83 + a*q^87 - 2*q^92 + (a - 1)*q^95 + 
        q^96 - q^99 - a*q^101 - a*q^105 + q^107 + (a - 1)*q^116 - a*q^119 - 
        a*q^123 + (a - 1)*q^125 - a*q^131 - a*q^132 - q^135 + (-a + 1)*q^140 + 
        q^141 + a*q^149 + a*q^152 - q^153 + q^159 + 2*q^161 + (-a + 1)*q^164 - 
        q^168 + q^173 - a*q^177 - a*q^180 + a*q^188 + q^191 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
618
);
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:=
[]
;
Bo:=
[
    q + q^9 - q^13 - q^14 - q^16 - q^19 - q^23 + q^25 + q^26 + q^32 - q^34 + 
        q^38 - q^41 + q^46 + q^56 - q^58 - q^79 + q^81 + q^82 - q^91 + q^98 + 
        q^103 - q^104 + 2*q^107 - q^117 - q^118 + q^119 + q^121 - q^122 - q^126 
        - q^131 - q^133 + q^136 - q^137 + 2*q^139 - q^144 - q^149 - q^152 + 
        q^158 - q^161 - q^166 + 2*q^167 + q^169 - q^171 - q^184 - q^194 + 
        O(q^202),
    q^2 - q^14 - q^16 + q^18 - q^28 - q^34 + q^50 + q^52 + q^56 - q^58 + q^64 - 
        q^68 + q^76 + q^92 + q^98 - q^104 + q^112 - q^116 - q^118 - q^122 - 
        q^126 + q^136 - q^144 - q^152 + q^162 + q^164 - q^166 - q^182 - q^184 - 
        q^194 + q^196 + O(q^202),
    q^3 + q^27 - q^39 - q^42 - q^48 - q^57 - q^69 + q^75 + q^78 + q^96 - q^102 +
        q^114 - q^123 + q^138 + q^168 - q^174 + O(q^202),
    q^4 - q^8 - q^14 + q^26 - q^34 + q^36 + q^38 + q^46 - q^52 - q^58 - q^72 - 
        q^76 + q^82 - q^92 + q^98 + q^100 + q^104 + q^112 - q^118 - q^122 - 
        q^126 + q^128 + q^152 + q^158 - q^164 - q^166 + q^184 - q^194 - q^200 + 
        O(q^202),
    q^6 - q^42 - q^48 + q^54 - q^84 - q^102 + q^150 + q^156 + q^168 - q^174 + 
        q^192 + O(q^202),
    q^7 + q^8 - q^13 - q^16 + q^17 - q^19 - q^23 - q^28 + q^29 - q^41 - q^49 + 
        q^52 + q^59 + q^61 + q^63 - q^68 + q^72 + q^76 - q^79 + q^83 + q^92 + 
        q^97 - q^104 - q^116 - q^117 - q^119 - q^131 - q^137 - q^144 - q^149 - 
        q^152 + q^153 + q^163 + q^164 + q^169 - q^171 + q^175 + q^179 - q^184 + 
        q^196 + q^200 + O(q^202),
    q^12 - q^24 - q^42 + q^78 - q^102 + q^108 + q^114 + q^138 - q^156 - q^174 + 
        O(q^202),
    q^21 + q^24 - q^39 - q^48 + q^51 - q^57 - q^69 - q^84 + q^87 - q^123 - q^147
        + q^156 + q^177 + q^183 + q^189 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
619
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
618
);
qprec:=
103
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
619
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
206
);
qprec:=
103
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
619
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
103*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
103
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
619
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
309*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
103
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 - q^7 + q^9 + q^16 - q^23 - q^28 - q^35 + q^36 - q^41 + q^49 - q^61 
        - q^63 + q^64 - q^71 + q^81 - q^89 - q^92 - q^101 + O(q^103),
    q^5 - q^7 + q^20 - q^23 - q^25 - q^28 + q^31 + q^37 - q^41 + q^45 + q^49 + 
        q^53 - q^61 - q^63 - q^71 + q^73 + q^79 + q^80 - q^89 - q^92 - q^100 - 
        q^101 + O(q^103)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
620
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
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(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
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(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^5 + a*q^9 + (a - 2)*q^11 + (-2*a + 2)*q^19 + (a - 1)*q^25 + (-2*a + 
        1)*q^29 + a*q^31 + a*q^41 + (a - 1)*q^45 - a*q^49 + (-a - 1)*q^55 + (-a 
        + 1)*q^59 + (-2*a + 1)*q^61 - a*q^71 + (-a - 1)*q^79 + (a - 1)*q^81 + 
        (2*a - 1)*q^89 + 2*q^95 + (-a - 1)*q^99 - 2*q^101 + q^109 + (-2*a + 
        2)*q^121 - q^125 + (a - 1)*q^131 + (2*a - 1)*q^139 + (-a + 2)*q^145 + 
        (-a + 1)*q^149 + (a - 1)*q^155 + (-a + 1)*q^169 + 2*q^171 + (a + 
        1)*q^179 + O(q^182)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^4 - a*q^6 + (-a + 1)*q^13 + a*q^14 + q^16 - a*q^17 + (a - 1)*q^21 + (a
        - 1)*q^22 + a*q^24 + a*q^25 - q^33 - a*q^37 - a*q^38 + (a - 1)*q^41 + (a
        - 1)*q^52 + (-a + 1)*q^53 + q^54 - a*q^56 + (-a + 1)*q^57 + q^62 - q^64 
        + a*q^68 + (a - 1)*q^73 + q^77 - q^78 + a*q^81 + (-a + 1)*q^84 - a*q^86 
        + (-a + 1)*q^88 + a*q^93 - a*q^96 - a*q^100 + (a - 1)*q^102 + (-a + 
        1)*q^113 + a*q^118 - q^125 + (-a + 1)*q^129 + q^132 + (a - 1)*q^133 + (a
        - 1)*q^134 + (a - 1)*q^137 + (-a + 1)*q^142 + a*q^148 - a*q^149 + (-a + 
        1)*q^150 + a*q^152 + a*q^158 + (-a + 1)*q^164 + (-a + 1)*q^166 + (a - 
        1)*q^173 + (a - 1)*q^177 + (a - 1)*q^181 + O(q^182),
    q^2 + a*q^3 - a*q^7 - q^8 + (-a + 1)*q^11 - a*q^12 + a*q^19 + (-a + 1)*q^26 
        - q^27 + a*q^28 - q^31 + q^32 - a*q^34 + q^39 + (a - 1)*q^42 + a*q^43 + 
        (a - 1)*q^44 + a*q^48 + a*q^50 + (-a + 1)*q^51 - a*q^59 - q^66 + (-a + 
        1)*q^67 + (a - 1)*q^71 - a*q^74 + (a - 1)*q^75 - a*q^76 - a*q^79 + (a - 
        1)*q^82 + (a - 1)*q^83 - q^91 + (-a + 1)*q^103 + (a - 1)*q^104 + (-a + 
        1)*q^106 + a*q^107 + q^108 + (-a + 1)*q^111 - a*q^112 + (-a + 1)*q^114 +
        (a - 1)*q^119 - q^123 + q^124 + a*q^127 - q^128 + a*q^131 + a*q^136 - 
        a*q^143 + (a - 1)*q^146 + 2*q^151 + q^154 - q^156 + q^159 + a*q^162 + 
        a*q^167 + (-a + 1)*q^168 - a*q^172 + (-a + 1)*q^175 + (-a + 1)*q^176 - 
        a*q^179 + O(q^182),
    q^5 - q^20 + (a - 1)*q^25 - a*q^30 + (-a + 1)*q^65 + a*q^70 + q^80 - a*q^85 
        + (-a + 1)*q^100 + (a - 1)*q^105 + (a - 1)*q^110 + a*q^120 + q^150 - 
        q^165 + O(q^182),
    q^10 + a*q^15 - a*q^35 - q^40 + (a - 1)*q^50 + (-a + 1)*q^55 - a*q^60 - q^75
        + a*q^95 + (-a + 1)*q^130 - q^135 + a*q^140 - q^155 + q^160 - a*q^170 + 
        q^175 + O(q^182)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^7 + q^9 - q^19 - q^25 + q^31 - q^41 + 2*q^47 - q^59 - q^63 + 2*q^67 - 
        q^71 + q^81 - q^97 - q^101 - q^103 - q^107 - q^109 - q^113 + q^121 + 
        q^125 + 2*q^131 + q^133 + 2*q^149 - q^157 - q^163 + q^169 - q^171 + 
        2*q^173 + q^175 + O(q^182),
    q^2 - q^8 - q^14 + q^16 + q^18 - q^38 - q^50 + q^56 + q^62 - q^64 - q^72 - 
        q^82 + 2*q^94 - q^112 - q^118 - q^126 + q^128 + 2*q^134 - q^142 + q^144 
        + q^152 + q^162 + O(q^182),
    q^4 - q^8 - q^28 + q^32 + q^36 + q^56 - q^64 - q^72 - q^76 - q^100 + q^124 +
        q^152 - q^164 + O(q^182),
    q^5 - q^25 - q^35 + q^45 - q^95 + q^155 + q^175 + O(q^182),
    q^10 - q^40 - q^50 - q^70 + q^80 + q^90 + O(q^182),
    q^20 - q^40 - q^100 - q^140 + q^160 + q^180 + O(q^182)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^9 + 1/2*(-a + 1)*q^10 - a*q^14 + 1/2*(-a - 1)*q^20 + (-a + 1)*q^28 -
        q^31 + a*q^35 + (a - 1)*q^38 + (a + 1)*q^47 - a*q^49 + 1/2*(a + 1)*q^50 
        + a*q^64 + (-a - 1)*q^67 + 1/2*(a - 1)*q^70 - q^76 + 1/2*(a - 1)*q^80 - 
        q^81 + (-a - 1)*q^82 + 1/2*(a + 1)*q^90 - a*q^95 + 1/2*(-a - 1)*q^100 + 
        (a + 1)*q^112 - q^121 - a*q^125 + q^126 + 2*q^131 + (a - 1)*q^133 + 
        1/2*(a - 1)*q^140 + 1/2*(-a + 1)*q^160 + a*q^164 - a*q^169 + (-a + 
        1)*q^173 - a*q^175 + 1/2*(-a + 1)*q^180 + O(q^182),
    q^2 + 1/10*(-3*a - 1)*q^10 + 1/5*(-a + 3)*q^14 + 1/5*(a - 3)*q^16 + a*q^18 +
        1/5*(-2*a - 4)*q^19 + 1/10*(-7*a + 1)*q^20 + 1/5*(2*a + 4)*q^25 + 
        1/5*(-a - 2)*q^28 + 1/5*(2*a - 1)*q^32 + 1/5*(-3*a - 1)*q^35 + 1/5*(-a -
        2)*q^38 + 1/5*(-a - 2)*q^40 + 1/5*(-2*a - 4)*q^41 + 1/5*(-2*a - 4)*q^49 
        + 1/10*(-3*a - 1)*q^50 + 1/5*(-a + 3)*q^56 + 1/5*(2*a + 4)*q^59 + 
        1/5*(2*a - 1)*q^62 + 1/10*(3*a + 1)*q^70 + 1/5*(4*a - 2)*q^71 + 1/5*(4*a
        - 2)*q^76 + 1/10*(-a + 3)*q^80 + 1/5*(2*a - 1)*q^82 + 1/10*(-a + 3)*q^90
        + 1/5*(-a + 3)*q^94 + 1/5*(a - 3)*q^95 + 1/5*(2*a + 4)*q^97 + 1/5*(-4*a 
        + 2)*q^98 + 1/10*(3*a + 1)*q^100 + 1/5*(-4*a + 2)*q^101 + 1/5*(6*a + 
        2)*q^103 + 1/5*(-2*a + 6)*q^107 + 1/5*(4*a - 2)*q^109 + 1/5*(2*a - 
        1)*q^112 + 1/5*(2*a + 4)*q^113 + 1/5*(-a - 2)*q^118 + 1/5*(-a + 3)*q^124
        + 1/5*(3*a + 1)*q^126 + 1/5*(a + 2)*q^128 + 1/5*(4*a - 2)*q^133 + 1/5*(a
        - 3)*q^134 + 1/2*(-a - 1)*q^140 + 1/5*(-2*a + 1)*q^142 + 1/5*(-3*a - 
        1)*q^144 + 1/5*(3*a + 1)*q^155 + 1/5*(-4*a + 2)*q^157 + 1/10*(7*a - 
        1)*q^160 - q^162 + 1/5*(-6*a - 2)*q^163 + 1/5*(-2*a - 4)*q^164 + 
        1/5*(-4*a + 2)*q^171 + 1/5*(-a + 3)*q^175 + 1/10*(a + 7)*q^180 + 
        O(q^182),
    q^4 + 1/10*(3*a - 9)*q^10 + 1/5*(-4*a - 3)*q^14 + 1/5*(-a - 2)*q^16 + 
        1/5*(2*a + 4)*q^19 + 1/10*(-3*a - 1)*q^20 + 1/5*(-2*a + 6)*q^25 + 1/5*(a
        - 3)*q^28 + 1/5*(3*a + 1)*q^32 + 1/5*(3*a + 1)*q^35 + a*q^36 + 1/5*(a - 
        3)*q^38 + 1/5*(a + 2)*q^40 + 1/5*(2*a - 6)*q^41 + 1/5*(2*a - 6)*q^49 + 
        1/10*(3*a + 1)*q^50 + 1/5*(-4*a + 2)*q^56 + 1/5*(-2*a - 4)*q^59 + 
        1/5*(3*a + 1)*q^62 + 1/10*(-3*a + 9)*q^70 + 1/5*(-4*a + 2)*q^71 + 1/5*(a
        + 2)*q^76 + 1/10*(-9*a - 3)*q^80 + 1/5*(3*a + 1)*q^82 + 1/10*(-9*a - 
        3)*q^90 + 1/5*(-4*a + 2)*q^94 + 1/5*(-a + 3)*q^95 + 1/5*(-2*a + 6)*q^97 
        + 1/5*(-6*a - 2)*q^98 + 1/10*(-3*a - 1)*q^100 + 1/5*(-6*a - 2)*q^101 + 
        1/5*(-6*a - 2)*q^103 + 1/5*(2*a - 6)*q^107 + 1/5*(6*a + 2)*q^109 + 
        1/5*(-2*a + 6)*q^112 + 1/5*(-2*a + 6)*q^113 + 1/5*(6*a + 2)*q^118 + 
        1/5*(-4*a - 3)*q^124 + 1/5*(-3*a + 4)*q^126 + 1/5*(-a + 3)*q^128 + 
        1/5*(6*a + 2)*q^133 + 1/5*(4*a - 2)*q^134 + 1/2*(a - 1)*q^140 + 1/5*(2*a
        - 6)*q^142 + 1/5*(-2*a + 1)*q^144 + (a - 1)*q^152 + 1/5*(-3*a - 1)*q^155
        + 1/5*(-6*a - 2)*q^157 + 1/10*(3*a + 1)*q^160 + 1/5*(6*a + 2)*q^163 + 
        1/5*(2*a - 1)*q^164 + 1/5*(4*a - 2)*q^171 + 1/5*(a - 3)*q^175 + 1/10*(-a
        + 3)*q^180 + O(q^182),
    q^5 + 1/5*(-3*a - 1)*q^10 + 1/5*(-2*a + 6)*q^14 + 1/5*(-3*a - 1)*q^16 + 
        1/5*(a - 3)*q^19 + 1/5*(-2*a + 1)*q^20 + 1/5*(4*a + 3)*q^25 + 1/5*(-2*a 
        - 4)*q^28 + 1/5*(4*a - 2)*q^32 + 1/5*(-a - 2)*q^35 + 1/5*(-2*a - 4)*q^38
        + 1/5*(3*a - 4)*q^40 + 1/5*(-9*a - 3)*q^41 + a*q^45 + 1/5*(a - 3)*q^49 +
        1/5*(-3*a - 1)*q^50 + 1/5*(3*a + 1)*q^56 + 1/5*(-a + 3)*q^59 + 1/5*(4*a 
        - 2)*q^62 + 1/5*(3*a + 1)*q^70 + 1/5*(3*a + 1)*q^71 + 1/5*(3*a + 1)*q^76
        + 1/5*(-a + 3)*q^80 + 1/5*(4*a - 2)*q^82 + 1/5*(-a + 3)*q^90 + 1/5*(-2*a
        + 6)*q^94 + 1/5*(2*a - 1)*q^95 + 1/5*(4*a - 2)*q^97 + 1/5*(2*a + 4)*q^98
        + 1/5*(-2*a + 1)*q^100 + 1/5*(-3*a - 1)*q^101 + 1/5*(2*a + 4)*q^103 + 
        1/5*(-4*a + 2)*q^107 + 1/5*(3*a - 9)*q^109 + 1/5*(4*a - 2)*q^112 + 
        1/5*(4*a + 8)*q^113 + 1/5*(-2*a - 4)*q^118 + 1/5*(-2*a + 6)*q^124 + 
        1/5*(6*a + 2)*q^126 + 1/5*(2*a + 4)*q^128 + 1/5*(-2*a - 4)*q^133 + 
        1/5*(2*a - 6)*q^134 - a*q^140 + 1/5*(-4*a + 2)*q^142 + 1/5*(-a + 
        3)*q^144 + 1/5*(a + 2)*q^155 + 1/5*(-8*a + 4)*q^157 + 1/5*(2*a - 
        1)*q^160 + 1/5*(-2*a - 4)*q^163 + 1/5*(a - 3)*q^164 + 1/5*(-3*a - 
        1)*q^171 + 1/5*(-2*a + 1)*q^175 + 1/5*(a + 2)*q^180 + O(q^182),
    q^7 + 1/10*(-a + 3)*q^10 + 1/5*(3*a + 1)*q^14 + 1/5*(2*a - 1)*q^16 + 
        1/5*(-4*a - 3)*q^19 + 1/10*(a - 3)*q^20 + 1/5*(-a - 2)*q^25 + 1/5*(3*a +
        1)*q^28 + 1/5*(-a - 2)*q^32 + 1/5*(-a - 2)*q^35 + 1/5*(-2*a + 1)*q^38 + 
        1/5*(-2*a + 1)*q^40 + 1/5*(a + 2)*q^41 + 1/5*(a + 2)*q^49 + 1/10*(-a + 
        3)*q^50 + 1/5*(3*a - 4)*q^56 + 1/5*(-a - 2)*q^59 + 1/5*(-a + 3)*q^62 + 
        a*q^63 + 1/10*(-9*a - 3)*q^70 + 1/5*(-2*a + 1)*q^71 + 1/5*(-2*a + 
        1)*q^76 + 1/10*(3*a + 1)*q^80 + 1/5*(-a - 2)*q^82 + 1/10*(3*a + 1)*q^90 
        + 1/5*(-2*a - 4)*q^94 + 1/5*(2*a - 1)*q^95 + 1/5*(-a - 2)*q^97 + 
        1/5*(2*a - 1)*q^98 + 1/10*(a - 3)*q^100 + 1/5*(2*a - 1)*q^101 + 1/5*(2*a
        - 1)*q^103 + 1/5*(a + 2)*q^107 + 1/5*(-2*a + 1)*q^109 + 1/5*(-a - 
        2)*q^112 + 1/5*(-a - 2)*q^113 + 1/5*(-2*a + 1)*q^118 + 1/5*(3*a + 
        1)*q^124 + 1/5*(a - 3)*q^126 + 1/5*(-3*a - 1)*q^128 + 1/5*(-2*a + 
        1)*q^133 + 1/5*(2*a + 4)*q^134 + 1/2*(-a + 1)*q^140 + 1/5*(a + 2)*q^142 
        + 1/5*(-a - 2)*q^144 + q^152 + 1/5*(a - 3)*q^155 + 1/5*(2*a - 1)*q^157 +
        1/10*(-a + 3)*q^160 + 1/5*(-2*a + 1)*q^163 + 1/5*(a + 2)*q^164 + 
        1/5*(-3*a + 4)*q^171 + 1/5*(3*a + 1)*q^175 + 1/10*(-3*a - 1)*q^180 + 
        O(q^182),
    q^8 + 1/2*(a + 1)*q^10 + (-a + 1)*q^14 + 1/2*(-a - 1)*q^20 + q^28 + (-a - 
        1)*q^31 + (a - 1)*q^35 - q^38 + 2*a*q^47 + 1/2*(a + 1)*q^50 + (a - 
        1)*q^64 - 2*a*q^67 + 1/2*(a - 1)*q^70 + a*q^72 + (-a - 1)*q^76 + 1/2*(-a
        - 1)*q^80 - a*q^82 + 1/2*(a - 1)*q^90 + (-a + 1)*q^95 - q^98 + 1/2*(-a +
        1)*q^100 + a*q^112 - q^118 + (a + 1)*q^126 + (2*a + 2)*q^131 + 1/2*(-a -
        1)*q^140 - a*q^142 + 1/2*(-a + 1)*q^160 + (a - 1)*q^164 + (-a + 1)*q^175
        + 1/2*(-a + 1)*q^180 + O(q^182)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
620
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 - q^39 - q^41 - q^45 + q^49 - q^51 - q^59 - q^69 - q^95 - 
        q^111 + q^121 - q^129 - q^149 + q^155 + 2*q^159 + q^169 + q^171 + 
        O(q^182),
    q^3 - q^15 - q^17 + q^27 - q^37 - q^43 + q^53 + q^57 + q^73 + q^75 - q^83 + 
        q^85 - q^93 - q^123 - q^135 + q^137 + q^147 - 2*q^153 - q^167 - q^177 + 
        O(q^182),
    q^5 - q^9 - q^19 + q^31 - q^39 + q^45 + 2*q^51 - q^69 - q^71 - q^81 - q^101 
        - q^109 + 2*q^111 + q^125 + 2*q^129 - q^131 - q^159 + 2*q^169 - q^171 + 
        O(q^182),
    q^13 - q^15 - q^17 + q^23 + q^27 - q^37 - q^43 + q^57 + q^65 - q^83 - q^93 +
        q^115 + q^127 - q^153 - q^167 + O(q^182)
]
;
Bo:=
[
    q - q^9 - q^31 + q^35 - q^49 + q^81 + q^95 + q^121 - q^125 - 2*q^131 + 
        2*q^149 - q^169 + q^175 + O(q^182),
    q^2 - q^18 - 1/2*q^20 + q^28 - 1/2*q^40 - q^62 + q^70 - q^98 - 1/2*q^100 + 
        q^128 + 1/2*q^140 - q^152 - 1/2*q^160 + q^162 + 1/2*q^180 + O(q^182),
    q^4 - 1/2*q^20 - q^36 - 1/2*q^40 + q^56 + q^64 - q^76 - q^80 + 1/2*q^100 - 
        q^124 + 1/2*q^140 + 1/2*q^160 + q^164 + 1/2*q^180 + O(q^182),
    q^5 + 2*q^19 - q^25 + q^35 - 2*q^41 - q^45 - 2*q^49 - 2*q^59 + 2*q^71 - q^95
        + 2*q^101 + 2*q^109 - q^155 - 2*q^171 + q^175 + O(q^182),
    q^7 + q^19 - q^25 + q^35 - q^41 - q^49 - q^59 - q^63 + q^71 - q^95 - q^97 + 
        q^101 + q^103 - q^107 + q^109 - q^113 + q^133 + q^157 + q^163 - q^171 + 
        O(q^182),
    q^8 + 1/2*q^20 - q^28 - q^32 + 1/2*q^40 - q^72 - q^80 + 1/2*q^100 + 2*q^112 
        - 1/2*q^140 + q^152 - 1/2*q^160 - 1/2*q^180 + O(q^182),
    q^10 - 2*q^32 + 2*q^38 + q^40 - q^50 + q^70 - q^80 - 2*q^82 - q^90 - 2*q^98 
        + 2*q^112 - 2*q^118 + 2*q^142 + 2*q^152 + O(q^182),
    q^14 - 1/2*q^20 - q^32 + q^38 + 1/2*q^40 - q^50 + q^64 + q^70 - q^76 - q^80 
        - q^82 - q^98 + 1/2*q^100 + q^112 - q^118 - q^126 - 1/2*q^140 + q^142 + 
        q^152 + 1/2*q^160 + q^164 + 1/2*q^180 + O(q^182),
    q^16 - 1/2*q^20 + 1/2*q^40 - q^56 - q^76 + 1/2*q^100 - 1/2*q^140 - q^144 - 
        1/2*q^160 + q^164 + 1/2*q^180 + O(q^182)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
621
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
621
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
621
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
621
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
621
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
621
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
621
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
621
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
621
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
621
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^13 - q^16 + q^25 - q^31 - q^46 + q^49 + q^58 + q^64 - q^73 + q^82 + 
        q^94 - 2*q^118 + q^121 - q^127 + O(q^134),
    q^2 - q^8 - q^23 - q^26 + q^29 + q^41 + q^47 + q^50 - 2*q^59 - q^62 + q^71 +
        q^98 - 2*q^101 + q^104 + q^128 + q^131 + O(q^134),
    q^3 - q^39 - q^48 + q^75 - q^93 + O(q^134),
    q^6 - q^24 - q^69 - q^78 + q^87 + q^123 + O(q^134),
    q^9 - q^18 + q^72 - q^81 - q^117 + O(q^134),
    q^27 - q^54 - q^81 + O(q^134)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
621
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^4 + (-a^4 + a)*q^6 + (a^5 - a^4 - a^2 + a)*q^8 - a^3*q^12 + 
        a^4*q^16 + (a^5 - a^2)*q^18 + a^2*q^23 + q^24 - a*q^25 - q^26 + a^4*q^27
        + (-a + 1)*q^32 - a^5*q^36 + a^2*q^39 + (-a^5 + a^3 - 1)*q^48 - a^5*q^49
        + (a^5 - a^3 - a^2)*q^52 + (-a^4 + a^3 + a - 1)*q^58 + (a^4 + a^3 - 
        1)*q^59 + (-a^5 - a)*q^62 + (-a^5 - a^4 + a^3 + a - 1)*q^64 - a*q^72 + 
        a^4*q^78 + (a^5 - a^2 - a)*q^82 - a^3*q^87 + a^4*q^92 - a*q^93 + (a^4 - 
        a^3)*q^94 + (a^2 - a)*q^96 - a^3*q^100 + (-a^5 + 1)*q^101 - a^2*q^104 + 
        (a^3 - 1)*q^108 + (a^4 + a^2)*q^116 + q^117 + (a^5 - a^2)*q^121 + (a^3 -
        1)*q^123 + (a^3 + a^2 - 1)*q^124 + (-a^3 + a^2)*q^128 + O(q^134),
    q^2 - a^5*q^4 - a*q^6 + a^2*q^8 + (a^3 - 1)*q^9 + (-a^4 + a)*q^12 + a^4*q^13
        + (a^5 - a^4 - a^2 + a)*q^16 - a^3*q^24 + (a^3 - 1)*q^26 - a^5*q^29 - 
        a^3*q^31 + (a^4 - a^3)*q^32 + (a^5 - a^2)*q^36 + a^2*q^39 + (a^5 - 
        a^2)*q^41 + a^2*q^46 - a*q^47 + (a^5 - a^2 + 1)*q^48 - a*q^50 - q^52 + 
        a^4*q^54 + q^58 + a^4*q^62 + (-a + 1)*q^64 + (-a^4 + a)*q^71 + (-a^5 + 
        a^4)*q^72 - a*q^73 + a^2*q^78 + a^2*q^82 - a^5*q^87 + (-a^4 + a)*q^92 + 
        q^93 + (-a^4 + a)*q^94 + (-a^5 + a^3 - 1)*q^96 - a^5*q^98 + (a^3 - 
        1)*q^100 + (a^5 - a^3)*q^104 + q^108 + (-a^4 + a^3 + a - 1)*q^116 + (a^4
        + a^3 - 1)*q^118 + (-a^4 + a)*q^123 + (-a^5 - a)*q^124 + q^127 + (-a^5 -
        a^4 + a^3 + a - 1)*q^128 + q^131 + O(q^134),
    q^3 + (-a - 1)*q^4 + a^5*q^6 + a*q^9 + (-2*a^5 + a^2)*q^13 + (-a^4 + a)*q^18
        + (a^5 - a^2)*q^24 + (-a^5 + a)*q^26 + (a^5 - a^2 - 1)*q^29 + (a^4 - a^3
        - a)*q^31 + (a^4 - a + 1)*q^32 + (-a^3 + 1)*q^39 + (a^3 - a)*q^41 + (a^5
        + a^3 - 1)*q^47 + a^3*q^48 + (-a^4 + a^3 - 1)*q^58 + (-a^5 + a^4 + 
        a^2)*q^62 + a^2*q^69 + (-a^4 - a^2 + a)*q^71 + (-a^5 + a^2)*q^72 + (a^5 
        - a^4 + a)*q^73 - a*q^75 - a^3*q^78 + a^4*q^81 + (-a^3 + 2)*q^82 - q^87 
        + (-a^3 - a^2)*q^92 - a^4*q^93 + (a^2 + a)*q^100 + (a^4 - a^3 + 1)*q^104
        + (-a^5 - a^4)*q^108 + a^2*q^117 - a^2*q^123 + (a^5 - a^4 - a^2)*q^127 +
        (-a^4 + a^3 - 1)*q^131 + O(q^134)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
621
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^8 - a*q^16 + (-a + 1)*q^23 - a*q^25 - q^26 + a*q^29 + (a - 1)*q^31 + 
        (a - 1)*q^41 - a*q^47 + (a - 1)*q^49 + a*q^52 + (a - 1)*q^59 - q^71 + 
        q^73 - q^82 + (-a + 1)*q^94 - a*q^101 + (-a + 1)*q^104 + q^116 + (a - 
        1)*q^121 + a*q^124 - q^127 - a*q^128 + (-a + 1)*q^131 + O(q^134),
    q^2 + (a - 1)*q^8 + a*q^13 + q^16 - q^29 - a*q^31 + (-a + 1)*q^46 - a*q^50 -
        2*q^52 - a*q^58 + (-a + 1)*q^62 + (a - 1)*q^64 + (-a + 1)*q^71 + (a - 
        1)*q^73 + (-a + 1)*q^82 + a*q^94 + (a - 1)*q^98 + a*q^104 + (-a + 
        1)*q^116 + (a - 1)*q^118 + q^124 + a*q^131 + O(q^134),
    q^4 + a*q^26 + (a - 1)*q^29 - q^31 + q^32 - q^41 + (-a + 1)*q^47 - q^58 - 
        a*q^62 - a*q^71 + a*q^73 + (-a + 1)*q^92 - a*q^100 - q^104 - a*q^127 + 
        q^131 + O(q^134)
]
;
Bo:=
[
    q - q^8 - a*q^16 + (a - 1)*q^23 - a*q^25 + q^26 - a*q^29 + (a - 1)*q^31 + 
        (-a + 1)*q^41 + a*q^47 + (a - 1)*q^49 + a*q^52 + (-a + 1)*q^59 + q^71 + 
        q^73 - q^82 + (-a + 1)*q^94 + a*q^101 + (a - 1)*q^104 - q^116 + (a - 
        1)*q^121 + a*q^124 - q^127 + a*q^128 + (a - 1)*q^131 + O(q^134),
    q^2 + (a - 1)*q^8 - a*q^13 - q^16 - q^29 + a*q^31 + (a - 1)*q^46 - a*q^50 + 
        2*q^52 + a*q^58 + (-a + 1)*q^62 + (-a + 1)*q^64 + (-a + 1)*q^71 + (-a + 
        1)*q^73 + (a - 1)*q^82 - a*q^94 + (a - 1)*q^98 + a*q^104 + (-a + 
        1)*q^116 + (-a + 1)*q^118 - q^124 + a*q^131 + O(q^134),
    q^3 + (a - 1)*q^12 - a*q^18 - q^24 + q^36 - a*q^48 + (a - 1)*q^54 + (a - 
        1)*q^69 + q^72 - a*q^75 + 2*q^78 - a*q^81 + (-a + 1)*q^96 + (a - 
        1)*q^108 + (a - 1)*q^117 + O(q^134),
    q^4 - a*q^26 + (-a + 1)*q^29 - q^31 - q^32 + q^41 + (a - 1)*q^47 - q^58 + 
        a*q^62 + a*q^71 + a*q^73 + (a - 1)*q^92 - a*q^100 + q^104 - a*q^127 - 
        q^131 + O(q^134),
    q^6 + (a - 1)*q^12 - a*q^18 + (a - 1)*q^24 + q^27 - a*q^36 - a*q^39 - q^48 +
        q^72 + q^78 + (a - 1)*q^87 + q^93 + (-a + 1)*q^96 + (a - 1)*q^108 + (a -
        1)*q^117 + (a - 1)*q^123 + O(q^134),
    q^9 + (-a - 1)*q^12 + (-a + 1)*q^18 + a*q^27 - a*q^54 + (a - 1)*q^72 + (2*a 
        - 1)*q^78 + (a - 2)*q^87 + (a + 1)*q^93 + (a + 1)*q^96 - q^117 + (-a - 
        1)*q^123 + O(q^134)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
622
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
310
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
622
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
62
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
622
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
31*H.1
;
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(
622
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
155*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^18 - 2*q^24 + 2*q^25 + q^27 + q^30 + q^32 - q^35 + q^36 - q^39 + q^40 
        - q^45 + q^47 + q^48 - q^52 + q^53 - q^54 - q^56 - q^60 - q^63 - q^64 + 
        q^65 - q^67 - q^70 - q^73 - q^75 + q^78 - q^79 + q^83 + q^84 - q^89 + 
        q^90 - q^91 - q^94 - q^96 + q^98 - q^100 + q^104 - q^107 + q^108 - q^112
        + q^121 - q^126 + 2*q^128 - q^130 + q^134 + q^135 + q^139 - q^141 + 
        q^144 + q^146 + q^147 + q^150 + O(q^154),
    q^2 + q^18 - q^40 - q^42 + q^50 - q^54 - q^60 - q^84 - q^94 + q^98 - q^130 -
        q^144 + O(q^154),
    q^3 + q^27 + q^28 + q^30 - q^39 - q^40 - q^42 - q^45 - q^49 + q^50 - q^54 + 
        q^56 - q^60 - q^67 - q^84 - q^94 + q^96 + q^106 + q^109 - q^117 + q^125 
        - q^130 + q^137 - q^144 + q^147 + O(q^154),
    q^4 - q^24 + q^25 + q^27 + q^32 + q^36 - q^39 - q^42 - q^45 + q^47 - q^49 + 
        q^53 - q^54 - q^56 - q^60 + q^65 - q^67 - q^73 - q^75 + q^78 + q^83 - 
        q^89 + q^90 - q^91 - q^94 - q^96 + q^98 - q^107 - q^112 + q^128 - q^130 
        + q^134 + q^135 + q^139 + q^147 + q^150 + O(q^154),
    q^5 + q^18 + q^24 - q^39 - q^40 - q^42 - q^49 + q^52 - q^54 - q^60 + q^63 - 
        q^67 + q^70 - q^84 + q^91 - q^94 - q^105 - q^117 + q^125 + q^126 + q^127
        - q^130 + q^140 - q^144 + O(q^154),
    q^6 - q^18 - q^24 + q^25 + q^27 + q^30 + q^32 - q^39 - q^45 + q^47 - q^49 + 
        q^53 - q^64 + q^65 - q^67 - q^70 + q^72 - q^73 - q^75 + q^83 - q^89 - 
        q^91 - q^94 - q^107 - q^120 - q^126 + q^128 - q^130 + q^135 + q^139 + 
        q^146 + q^147 + q^150 + O(q^154),
    q^7 + q^18 + 2*q^24 - q^25 - q^27 - q^28 - q^30 - q^32 - q^40 - q^42 + q^45 
        - q^47 - q^48 + q^52 - q^53 + q^63 + q^64 + q^70 + q^73 + q^80 + q^81 - 
        q^83 - q^84 + q^89 + q^91 + q^100 - q^105 + q^107 - q^117 + q^126 - 
        q^128 - q^135 - q^139 + q^140 + q^141 - q^144 - q^146 - q^147 + 
        O(q^154),
    q^8 - q^18 - 2*q^24 + q^25 + q^27 + q^30 + 2*q^32 - q^39 + q^40 + q^42 - 
        q^45 + q^47 - q^49 - q^52 + q^53 - q^56 - q^64 + q^65 - q^67 - q^70 + 
        q^72 - q^73 - q^75 - q^80 + q^83 + q^84 - q^89 - q^91 - q^96 - q^100 - 
        q^107 - q^112 - q^120 - q^126 + 2*q^128 + q^135 + q^139 - q^140 + q^144 
        + q^146 + q^147 + O(q^154),
    q^9 + q^18 + 2*q^24 - q^25 - q^27 - q^30 - q^32 + q^35 - q^36 - 2*q^40 - 
        q^42 - q^47 - q^48 + q^52 - q^53 + q^56 + q^63 + q^64 - q^65 + q^70 + 
        q^73 + q^79 + q^80 + q^81 - q^83 - q^84 + q^89 + q^91 + q^96 + q^100 - 
        q^104 - q^105 + q^107 + q^112 - q^117 + q^120 + q^126 - 2*q^128 - q^135 
        - q^139 + q^141 - 2*q^144 - q^146 - q^147 + O(q^154),
    q^10 - q^18 - 2*q^24 + q^25 + q^27 + q^30 + 2*q^32 + q^36 - q^39 + q^40 - 
        q^45 + q^47 + q^48 - q^49 - q^52 + q^53 - q^54 - q^56 - q^64 + q^65 - 
        q^67 - q^70 - q^73 - q^75 - q^80 + q^83 + q^84 - q^89 + q^90 - q^91 - 
        q^94 - q^96 - q^100 + q^104 - q^107 - q^112 - q^120 + 2*q^128 - q^130 + 
        q^135 + q^139 + q^144 + q^146 + q^147 + q^150 + O(q^154),
    q^12 - q^18 - 2*q^24 + q^25 + q^27 + q^28 + 2*q^30 + q^32 - q^39 - q^45 + 
        q^47 + q^48 - q^49 + q^50 - q^52 + q^53 - q^54 - q^60 - q^64 + q^65 - 
        q^67 - q^70 - q^73 - q^75 - q^80 + q^83 - q^89 - q^91 - q^94 - q^100 + 
        q^104 + q^106 - q^107 + q^108 - q^126 + q^128 - q^130 + q^135 + q^139 - 
        q^140 + q^144 + q^146 + q^147 + O(q^154),
    q^13 + q^18 + q^24 - q^25 - q^27 - q^30 - q^32 + q^35 + q^39 - q^40 - q^42 -
        q^47 - q^53 + q^56 + q^64 - q^65 + q^70 - q^72 + q^73 - q^83 - q^84 + 
        q^89 + q^91 + q^100 + q^107 + q^112 + q^113 + q^120 + q^126 - q^128 - 
        q^139 - q^144 - q^146 + O(q^154),
    q^14 - q^18 - q^24 + q^25 + q^27 + q^28 + q^30 + q^32 - q^39 - q^45 + q^47 +
        q^48 - q^49 - q^52 + q^53 - q^54 - q^64 + q^65 - q^67 - q^70 - q^73 - 
        q^75 - q^80 + q^83 - q^89 + q^90 - q^91 - q^94 - q^107 + q^128 + q^135 +
        q^139 - q^140 + q^146 + q^147 + O(q^154),
    q^15 + q^18 + q^24 - q^27 - q^30 - q^32 - q^40 - q^42 - q^47 + q^52 - q^60 +
        q^64 - q^65 + q^70 + q^73 + q^80 - q^84 + q^89 + q^91 - q^105 + q^107 + 
        q^120 + q^126 - q^128 + q^140 - q^144 - q^146 + O(q^154),
    q^16 - q^18 - q^24 + q^30 + q^42 - q^52 - q^70 + q^84 + q^108 - q^126 - 
        q^140 + q^144 + q^146 + O(q^154),
    q^20 - q^24 + q^25 + q^27 + q^30 + q^32 - q^39 - q^45 + q^47 - q^49 + q^53 -
        q^54 - q^56 - q^60 + q^65 - q^67 + q^72 - q^73 - q^75 + q^83 - q^89 - 
        q^91 - q^94 - q^100 - q^107 - q^112 + q^128 - q^130 + q^135 + q^139 + 
        q^146 + q^147 + O(q^154),
    q^21 + q^24 - q^25 - q^32 - q^40 - q^53 + q^56 + q^73 - q^83 - q^84 + q^89 +
        q^91 + q^96 + q^100 + q^107 + q^112 - q^117 - q^128 - q^139 - q^144 - 
        q^147 + O(q^154),
    q^26 - q^28 - q^30 + q^36 + q^40 - q^50 - q^56 + q^70 + q^78 - q^96 - q^106 
        + q^128 + q^140 + O(q^154)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
623
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
623
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
623
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
88
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
623
);
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:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
623
);
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:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
623
);
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:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
623
);
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:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
623
);
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:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
623
);
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:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
623
);
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:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
623
);
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:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
623
);
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:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
623
);
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:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
623
);
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:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
623
);
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:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
623
);
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:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^11 + q^16 - q^22 + q^25 - q^32 - q^39 - q^44 + q^49 - q^53 - q^71 - 
        q^72 - q^84 - q^91 + q^93 - q^107 + q^109 - q^114 + O(q^118),
    q^2 + q^18 - q^21 - q^22 - q^36 - q^39 + q^50 - q^67 - q^72 + q^79 + q^81 + 
        q^93 + q^98 + q^99 - q^114 + O(q^118),
    q^3 - q^14 - q^19 + q^27 - q^33 - q^48 + q^52 + q^62 + q^66 + q^75 - q^76 + 
        q^96 - q^101 + q^104 - q^117 + O(q^118),
    q^4 - q^11 - q^18 + q^39 + q^53 - q^88 - q^93 + q^100 + q^107 - q^109 + 
        O(q^118),
    q^6 - q^12 - q^14 - q^19 + q^24 + q^27 + q^28 - q^33 + q^38 + q^41 - 2*q^48 
        - q^56 + q^61 + q^66 - 2*q^76 - q^82 + 2*q^96 - q^101 + q^103 + q^104 + 
        q^112 - q^117 + O(q^118),
    q^7 - q^12 - q^14 - q^19 + 2*q^24 + q^28 - q^33 + 2*q^38 - 2*q^48 - q^54 - 
        q^56 + q^63 + 2*q^66 - 2*q^76 - q^82 + q^89 + 2*q^96 - q^101 + q^108 + 
        q^112 + q^117 + O(q^118),
    q^8 - q^11 - q^16 - q^18 + q^21 + q^22 + q^32 + q^39 - q^42 - q^44 - q^57 - 
        q^64 + q^67 + q^72 + q^84 - q^93 - q^99 + q^106 - q^109 + 2*q^114 + 
        O(q^118),
    q^9 - q^11 - q^16 + q^22 + q^32 - q^42 - q^57 + q^71 - q^78 + q^81 + q^84 + 
        q^91 - q^93 - q^99 - q^109 + q^114 + O(q^118),
    q^13 - q^14 - q^19 + q^24 + q^27 + q^28 - q^31 - 2*q^33 + q^38 + q^41 - 
        2*q^48 - q^54 - q^56 + q^59 + q^61 + q^62 + q^63 + 2*q^66 - 2*q^76 - 
        q^77 - q^82 - q^83 + 2*q^96 - q^101 + q^103 + q^104 + O(q^118),
    q^26 - q^27 - q^28 + q^31 + q^33 - q^38 - q^41 + q^48 + q^52 - q^61 - q^66 +
        q^77 + q^83 - q^96 - q^103 + O(q^118)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
624
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
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(
624
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
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(
624
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
12
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
12
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^2 + 1)*q^9 - a*q^13 + (a^2 + a)*q^21 - a^3*q^25 + (-a^3 - a^2 + 
        a)*q^37 + (a^3 + a^2 - a - 2)*q^49 + (a^3 - 1)*q^57 + (2*a^3 - a)*q^61 +
        (-a^3 + a^2 + a - 1)*q^73 - a^2*q^81 + (-a^3 + a^2 - 1)*q^93 + (a^3 + 
        a^2)*q^97 + (-a^2 + a)*q^109 + (a^3 - a)*q^117 + a*q^121 - a^3*q^129 + 
        (-a^3 - a^2 - a)*q^133 + q^157 + a^2*q^169 + (-a^3 + a + 1)*q^189 + 
        (-a^3 - a^2 + 1)*q^193 + (a^3 - a + 1)*q^201 + O(q^202),
    q^3 + (a^3 + a^2 - 1)*q^7 + (a^3 - a^2 - a)*q^19 + (-a^2 + 1)*q^27 + (-a^3 +
        a - 1)*q^31 - a*q^39 + (-a^3 + a)*q^43 + (a^2 + a)*q^63 + (a^2 - a)*q^67
        - a^3*q^75 + (a^2 - 1)*q^79 + (-a^3 - a^2 + a + 1)*q^91 - a*q^103 + 
        (-a^3 - a^2 + a)*q^111 + (-2*a^2 + 1)*q^127 + (a^3 + a)*q^139 + (a^3 + 
        a^2 - a - 2)*q^147 + (a^2 - a - 1)*q^151 + (-a + 1)*q^163 + (a^3 - 
        1)*q^171 + (a + 1)*q^175 + (2*a^3 - a)*q^183 + (-a^2 + 2)*q^199 + 
        O(q^202)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
12
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
12
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
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^3 + (2*a - 1)*q^15 - a*q^27 + (-a + 1)*q^39 - a*q^51 - 2*q^75 + (a - 
        1)*q^87 + (-a - 1)*q^111 + (a + 1)*q^123 + (-a + 2)*q^135 + (-a + 
        1)*q^147 - q^159 + a*q^183 + (a + 1)*q^195 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
12
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^3 + (-a + 2)*q^7 - a*q^9 + a*q^13 + (2*a - 1)*q^21 - q^25 + 
        q^27 + (2*a - 1)*q^31 - q^39 - a*q^43 + (-2*a + 2)*q^49 - a*q^61 + (-a -
        1)*q^63 + (-a - 1)*q^67 + (-2*a + 1)*q^73 + (-a + 1)*q^75 - q^79 + (a - 
        1)*q^81 + (a + 1)*q^91 + (-a - 1)*q^93 + (a - 2)*q^97 + q^103 + (2*a - 
        1)*q^109 + (-a + 1)*q^117 + a*q^121 + (-a + 1)*q^127 + q^129 - a*q^139 +
        2*a*q^147 - q^157 + (a - 2)*q^163 + (a - 1)*q^169 + (a - 2)*q^175 + 
        2*q^181 + q^183 + (-a + 2)*q^189 + (-a - 1)*q^193 + a*q^199 + (-a + 
        2)*q^201 + O(q^202)
]
;
Bo:=
[
    q + (-a + 1)*q^3 + (a - 2)*q^7 - a*q^9 + a*q^13 + (2*a - 1)*q^21 - q^25 - 
        q^27 + (-2*a + 1)*q^31 + q^39 + a*q^43 + (-2*a + 2)*q^49 - a*q^61 + (a +
        1)*q^63 + (a + 1)*q^67 + (-2*a + 1)*q^73 + (a - 1)*q^75 + q^79 + (a - 
        1)*q^81 + (-a - 1)*q^91 + (-a - 1)*q^93 + (a - 2)*q^97 - q^103 + (2*a - 
        1)*q^109 + (-a + 1)*q^117 + a*q^121 + (a - 1)*q^127 + q^129 + a*q^139 - 
        2*a*q^147 - q^157 + (-a + 2)*q^163 + (a - 1)*q^169 + (-a + 2)*q^175 + 
        2*q^181 - q^183 + (-a + 2)*q^189 + (-a - 1)*q^193 - a*q^199 + (-a + 
        2)*q^201 + O(q^202),
    q^2 + (-a + 1)*q^6 + (a - 2)*q^14 - a*q^18 + a*q^26 + (2*a - 1)*q^42 - q^50 
        - q^54 + (-2*a + 1)*q^62 + q^78 + a*q^86 + (-2*a + 2)*q^98 - a*q^122 + 
        (a + 1)*q^126 + (a + 1)*q^134 + (-2*a + 1)*q^146 + (a - 1)*q^150 + q^158
        + (a - 1)*q^162 + (-a - 1)*q^182 + (-a - 1)*q^186 + (a - 2)*q^194 + 
        O(q^202),
    q^4 + (-a + 1)*q^12 + (a - 2)*q^28 - a*q^36 + a*q^52 + (2*a - 1)*q^84 - 
        q^100 - q^108 + (-2*a + 1)*q^124 + q^156 + a*q^172 + (-2*a + 2)*q^196 + 
        O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
12
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 3*H.4
;
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(
624
);
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(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^9 - a*q^13 + (a - 1)*q^21 + a*q^25 + (-a + 1)*q^37 + a*q^49 + (-a - 
        1)*q^57 + (-a + 1)*q^73 + q^81 + (a + 1)*q^93 + (-a - 1)*q^97 + (a + 
        1)*q^109 + a*q^117 + a*q^121 - 2*a*q^129 - 2*q^133 - 2*q^157 - q^169 + 
        (-a + 1)*q^189 + (a - 1)*q^193 + (a + 1)*q^201 + O(q^202),
    q^3 + (-a + 1)*q^7 + (a + 1)*q^19 - q^27 + (-a - 1)*q^31 - a*q^39 + 2*a*q^43
        + (a - 1)*q^63 + (-a - 1)*q^67 + a*q^75 - 2*q^79 + (-a - 1)*q^91 + 
        2*a*q^103 + (-a + 1)*q^111 + a*q^147 + (-a + 1)*q^151 + (-a + 1)*q^163 +
        (-a - 1)*q^171 + (a + 1)*q^175 + O(q^202)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + H.3 + 3*H.4
;
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(
624
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 + (a - 1)*q^9 - a*q^13 + (-a + 1)*q^17 + a*q^29 + a*q^37 + a*q^41 + 
        (-a + 1)*q^45 - a*q^49 - q^53 + (-a + 1)*q^61 + a*q^65 - q^73 - a*q^81 +
        (a - 1)*q^85 - 2*a*q^89 + (2*a - 2)*q^97 + a*q^101 + 2*q^109 + (-a + 
        1)*q^113 + q^117 + (a - 1)*q^121 + q^125 + (-a + 1)*q^137 - a*q^145 + 
        (-a + 1)*q^149 + a*q^153 - q^157 + (a - 1)*q^169 + (2*a - 2)*q^173 - 
        q^181 - a*q^185 + a*q^193 - 2*a*q^197 + O(q^202),
    q^2 - q^10 + (a - 1)*q^18 - a*q^26 + (-a + 1)*q^34 + a*q^58 + a*q^74 + 
        a*q^82 + (-a + 1)*q^90 - a*q^98 - q^106 + (-a + 1)*q^122 + a*q^130 - 
        q^146 - a*q^162 + (a - 1)*q^170 - 2*a*q^178 + (2*a - 2)*q^194 + 
        O(q^202),
    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 + 
        O(q^202),
    q^4 - a*q^8 + (a - 1)*q^16 - q^20 + q^32 + (a - 1)*q^36 + a*q^40 - a*q^52 - 
        a*q^64 + (-a + 1)*q^68 + q^72 + (-a + 1)*q^80 + (a - 1)*q^104 + a*q^116 
        + (a - 1)*q^128 - q^136 - a*q^144 + a*q^148 - q^160 + a*q^164 + (-a + 
        1)*q^180 - a*q^196 + O(q^202),
    q^6 - q^30 + (a - 1)*q^54 - a*q^78 + (-a + 1)*q^102 + a*q^174 + O(q^202),
    q^12 - a*q^24 + (a - 1)*q^48 - q^60 + q^96 + (a - 1)*q^108 + a*q^120 - 
        a*q^156 - a*q^192 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
12
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^3 + (a - 1)*q^7 + (a - 1)*q^9 + (a - 1)*q^13 + (-2*a + 2)*q^19 - 
        q^21 + q^25 - q^27 + q^31 - 2*a*q^37 - q^39 + (a - 1)*q^43 + 2*q^57 + 
        (-a + 1)*q^61 - a*q^63 - a*q^67 - q^73 + a*q^75 + q^79 - a*q^81 - a*q^91
        + a*q^93 + (-a + 1)*q^97 + q^103 - q^109 + (-2*a + 2)*q^111 - a*q^117 + 
        (a - 1)*q^121 - a*q^127 - q^129 + 2*a*q^133 + (a - 1)*q^139 - 2*q^151 - 
        q^157 + (a - 1)*q^163 - a*q^169 + 2*a*q^171 + (a - 1)*q^175 + 2*q^181 + 
        q^183 + (-a + 1)*q^189 + a*q^193 + (a - 1)*q^199 + (-a + 1)*q^201 + 
        O(q^202)
]
;
Bo:=
[
    q - a*q^3 + (-a + 1)*q^7 + (a - 1)*q^9 + (a - 1)*q^13 + (2*a - 2)*q^19 - 
        q^21 + q^25 + q^27 - q^31 - 2*a*q^37 + q^39 + (-a + 1)*q^43 + 2*q^57 + 
        (-a + 1)*q^61 + a*q^63 + a*q^67 - q^73 - a*q^75 - q^79 - a*q^81 + a*q^91
        + a*q^93 + (-a + 1)*q^97 - q^103 - q^109 + (2*a - 2)*q^111 - a*q^117 + 
        (a - 1)*q^121 + a*q^127 - q^129 + 2*a*q^133 + (-a + 1)*q^139 + 2*q^151 -
        q^157 + (-a + 1)*q^163 - a*q^169 - 2*a*q^171 + (-a + 1)*q^175 + 2*q^181 
        - q^183 + (-a + 1)*q^189 + a*q^193 + (-a + 1)*q^199 + (-a + 1)*q^201 + 
        O(q^202),
    q^2 - a*q^6 + (-a + 1)*q^14 + (a - 1)*q^18 + (a - 1)*q^26 + (2*a - 2)*q^38 -
        q^42 + q^50 + q^54 - q^62 - 2*a*q^74 + q^78 + (-a + 1)*q^86 + 2*q^114 + 
        (-a + 1)*q^122 + a*q^126 + a*q^134 - q^146 - a*q^150 - q^158 - a*q^162 +
        a*q^182 + a*q^186 + (-a + 1)*q^194 + O(q^202),
    q^4 - a*q^12 + (-a + 1)*q^28 + (a - 1)*q^36 + (a - 1)*q^52 + (2*a - 2)*q^76 
        - q^84 + q^100 + q^108 - q^124 - 2*a*q^148 + q^156 + (-a + 1)*q^172 + 
        O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
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^3 + q^27 - q^39 - 2*q^51 + q^75 - 2*q^87 - q^147 + 2*q^159 + 2*q^183 + 
        O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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:=Rationals();
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^9 - q^17 + q^27 + q^35 - q^43 - q^65 - q^91 + 2*q^107 + 2*q^113 + 
        q^121 - q^131 - q^139 + q^153 - 2*q^155 + q^169 - q^179 + q^185 + 
        O(q^202),
    q^2 + q^8 - q^18 - q^20 - q^28 + q^32 - q^34 + q^52 + q^54 + q^70 - q^72 - 
        q^80 - q^86 - q^112 + 2*q^124 + q^128 - q^130 - q^136 - q^148 + q^180 - 
        q^182 - q^188 + O(q^202),
    q^3 - q^9 - q^51 + q^81 + q^105 - q^129 + q^153 - q^195 + O(q^202),
    q^4 - q^10 - q^14 + q^16 + q^26 - q^36 - q^40 - q^56 + 2*q^62 + q^64 - q^68 
        - q^74 + q^90 - q^94 + q^104 + q^108 + q^126 + q^140 - q^142 - q^144 - 
        q^160 + q^170 - q^172 + O(q^202),
    q^5 + q^7 - q^13 - 2*q^31 + q^37 - q^45 + q^47 - q^63 + q^71 - q^85 + q^109 
        + q^117 - q^119 - q^125 + q^135 - 2*q^149 + q^151 - 2*q^167 + q^189 + 
        q^197 + O(q^202),
    q^6 - q^18 + q^24 - q^60 - q^72 - q^84 + q^96 - q^102 + q^156 + q^162 + 
        q^180 + O(q^202),
    q^12 - q^30 - q^36 - q^42 + q^48 + q^78 + q^90 - q^120 + q^126 - q^144 - 
        q^168 + 2*q^186 + q^192 + O(q^202),
    q^15 + q^21 - q^39 - q^45 - q^63 - 2*q^93 + q^111 + q^117 + q^141 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^3 + q^9 - q^13 - q^25 + q^27 - q^39 - 2*q^43 + q^49 - 2*q^61 - q^75 + 
        2*q^79 + q^81 - 2*q^103 - q^117 - q^121 + 2*q^127 - 2*q^129 - 2*q^139 + 
        q^147 + 2*q^157 + q^169 + 2*q^181 - 2*q^183 + 2*q^199 + O(q^202)
]
;
Bo:=
[
    q - q^3 + q^9 - q^13 - q^25 - q^27 + q^39 + 2*q^43 + q^49 - 2*q^61 + q^75 - 
        2*q^79 + q^81 + 2*q^103 - q^117 - q^121 - 2*q^127 - 2*q^129 + 2*q^139 - 
        q^147 + 2*q^157 + q^169 + 2*q^181 + 2*q^183 - 2*q^199 + O(q^202),
    q^2 - q^6 + q^18 - q^26 - q^50 - q^54 + q^78 + 2*q^86 + q^98 - 2*q^122 + 
        q^150 - 2*q^158 + q^162 + O(q^202),
    q^4 - q^12 + q^36 - q^52 - q^100 - q^108 + q^156 + 2*q^172 + q^196 + 
        O(q^202),
    q^8 - q^24 - q^32 + q^72 + q^96 - q^104 + q^128 - q^200 + O(q^202),
    q^16 - q^48 - q^64 + q^144 + q^192 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^9 - a*q^10 + q^12 + a*q^16 + q^22 + a*q^25 - q^30 + a*q^39 - a*q^40 
        + (-a - 1)*q^43 - q^49 - q^52 + a*q^66 + (a + 1)*q^75 - q^81 + a*q^82 - 
        q^88 - q^90 + a*q^94 + (a - 1)*q^100 - 2*a*q^103 - a*q^108 - a*q^118 - 
        a*q^120 + a*q^121 + q^130 + (a + 1)*q^139 - q^142 + q^144 + (a - 
        1)*q^157 + q^160 + (-a - 1)*q^165 + q^166 - a*q^169 + q^178 + (a + 
        1)*q^181 + a*q^192 - a*q^198 + O(q^202),
    q^2 + a*q^6 - q^8 + 2*a*q^11 + (-a - 1)*q^15 - a*q^18 + (-a + 1)*q^20 + q^24
        - a*q^26 + a*q^32 + (-a - 1)*q^33 + (a - 1)*q^41 + (-a + 1)*q^44 + (-a -
        1)*q^47 - q^50 + q^54 + (a + 1)*q^65 + (-a + 1)*q^71 + a*q^72 + a*q^78 +
        (-a - 1)*q^86 + (a - 1)*q^89 - q^96 - q^98 + 2*q^99 - q^104 + (a + 
        1)*q^110 + 2*q^125 - a*q^128 + 2*a*q^132 + (a - 1)*q^135 + (-a + 
        1)*q^137 + 2*q^141 + (a + 1)*q^143 - 2*a*q^149 + a*q^150 + (a - 1)*q^158
        - q^162 + (-a + 1)*q^167 - 2*q^176 + (-a - 1)*q^177 + (-a - 1)*q^180 + 
        2*a*q^188 - 2*a*q^197 - q^200 + O(q^202),
    q^3 + a*q^4 - a*q^10 - q^13 - q^22 + (a - 1)*q^25 - a*q^27 - a*q^30 + q^36 +
        q^40 + a*q^48 + (-a + 1)*q^55 - q^64 + q^66 + a*q^75 + (a + 1)*q^79 - 
        q^82 + a*q^88 - q^90 + q^94 - q^100 + a*q^117 - a*q^118 - a*q^120 + (-a 
        + 1)*q^121 + (-a - 1)*q^127 + (-a - 1)*q^129 + a*q^130 + a*q^142 - q^147
        - q^156 + q^160 + q^166 + (-a + 1)*q^172 - a*q^178 - a*q^196 + a*q^198 +
        (a - 1)*q^199 + O(q^202),
    q^5 + a*q^6 - q^8 + a*q^11 - a*q^15 + q^20 - a*q^26 - q^33 - q^41 - a*q^44 -
        a*q^45 - q^47 + (-a - 1)*q^50 + q^54 + q^59 + q^60 + a*q^65 - a*q^71 + 
        a*q^72 + a*q^80 + a*q^83 + a*q^89 - q^96 + q^99 + (a + 1)*q^110 - q^123 
        + (a + 1)*q^125 - a*q^128 + a*q^132 - q^135 - a*q^137 + q^141 + q^143 - 
        a*q^149 - q^150 + (a - 1)*q^158 - a*q^164 + q^167 - q^176 - a*q^177 - 
        a*q^180 + a*q^188 + a*q^195 - a*q^197 - a*q^200 + O(q^202)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
624
);
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:=Rationals();
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^9 - q^25 - q^39 + q^49 + 2*q^55 + q^81 - 2*q^103 - q^121 - q^169 + 
        2*q^183 + O(q^202),
    q^2 - q^18 - q^20 + q^24 - q^32 + q^44 - q^50 + q^60 - q^78 - q^80 + q^98 + 
        q^104 + 2*q^110 - q^132 + q^162 - q^164 + q^176 + q^180 - q^188 + 
        O(q^202),
    q^3 + q^13 - q^27 - 2*q^61 - q^75 - q^117 + q^147 + 2*q^165 + O(q^202),
    q^4 + q^12 - q^16 + 2*q^30 - q^36 - 2*q^40 + q^48 + q^52 - q^64 - 2*q^66 - 
        2*q^82 + 2*q^88 - 2*q^94 - q^100 - q^108 + 2*q^130 + 2*q^142 + q^144 - 
        q^156 + 2*q^178 - q^192 + q^196 + O(q^202),
    q^5 - q^11 - q^45 + q^59 - q^83 + q^99 + q^123 + q^141 - q^149 - q^195 - 
        q^197 + O(q^202),
    q^6 - q^8 - q^20 + q^26 + q^44 - q^54 - q^60 + q^72 + q^80 - q^96 - 2*q^122 
        + q^128 + q^132 - q^150 + q^164 - q^176 + q^180 + q^188 + q^200 + 
        O(q^202),
    q^10 - q^12 + q^16 - q^22 - q^30 + q^40 - q^52 + q^66 + q^82 - q^88 - q^90 +
        q^94 + q^108 + q^118 + q^120 - q^130 - q^142 - q^144 - q^160 - q^166 - 
        q^178 + q^192 + q^198 + O(q^202),
    q^15 - q^33 - q^41 - q^47 + q^65 + q^71 + q^89 - q^135 + q^137 - q^143 - 
        q^167 + q^177 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
625
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
500
);
qprec:=
97
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
625
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
100
);
qprec:=
97
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
625
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
25*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
97
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
625
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
125*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
97
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
626
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
312
);
qprec:=
155
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
626
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
104
);
qprec:=
155
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
626
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
24
);
qprec:=
155
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
626
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
39*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
155
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
627
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*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(
627
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
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 + O(q^154),
    q^11 - a*q^33 + (a - 1)*q^44 - q^77 + (a - 1)*q^99 + q^132 + (-a + 1)*q^143 
        + O(q^154)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^5 + (-a + 1)*q^9 + a*q^16 + a*q^22 + (a - 1)*q^23 + q^26 - q^27 + (a
        - 1)*q^34 - a*q^38 - q^45 + (a - 1)*q^47 + q^49 + (-a + 1)*q^53 - q^58 -
        a*q^59 - q^64 + (-a + 1)*q^67 + a*q^71 + (-a + 1)*q^80 + (-a + 1)*q^82 +
        (a - 1)*q^86 - q^88 + (-a + 1)*q^89 + a*q^97 + (a - 1)*q^104 + (-a + 
        1)*q^110 + q^115 - q^121 - q^122 - q^125 - a*q^130 + a*q^135 - a*q^136 +
        (a - 1)*q^137 + (a - 1)*q^143 + q^144 + (a - 1)*q^146 + q^152 + 
        O(q^154),
    q^2 + (a - 1)*q^8 - a*q^10 + (a - 1)*q^11 + a*q^13 - q^17 + (-a + 1)*q^18 + 
        (-a + 1)*q^19 - a*q^29 + q^40 + q^41 - q^43 + (a - 1)*q^46 - q^54 + q^55
        - a*q^61 + (-a + 1)*q^65 + a*q^72 - q^73 - q^79 + a*q^85 - q^90 + (a - 
        1)*q^94 - q^95 + q^98 + a*q^99 + a*q^101 + (-a + 1)*q^106 + (-2*a + 
        2)*q^107 + q^109 + q^117 - a*q^118 + a*q^127 - q^128 + q^131 + (-a + 
        1)*q^134 + a*q^139 + a*q^142 + (a - 1)*q^145 - q^149 + (a - 1)*q^153 + 
        O(q^154),
    q^3 - a*q^9 - a*q^15 + (a - 1)*q^45 + a*q^48 + a*q^66 + (a - 1)*q^69 + q^78 
        - q^81 + (a - 1)*q^102 - a*q^114 + (a - 1)*q^141 + (-a + 1)*q^144 + 
        q^147 + O(q^154),
    q^6 - a*q^18 + (a - 1)*q^24 - a*q^30 + (a - 1)*q^33 + a*q^39 - q^51 + (-a + 
        1)*q^57 + q^72 - a*q^87 + (a - 1)*q^90 + q^99 + (-a + 1)*q^117 + q^120 +
        q^123 - q^129 + (a - 1)*q^138 + a*q^153 + O(q^154)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.3
;
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(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^2*q^4 + (a^2 - a)*q^5 + (a^3 - a^2 + a)*q^7 - a*q^9 - a^3*q^11 + (a^3 
        - a^2 + a - 1)*q^16 + (-a^3 + 1)*q^17 - a^3*q^19 + (-a^2 + a - 1)*q^20 +
        (a^3 - a^2 - 1)*q^23 + (a - 1)*q^25 + (a^2 - a)*q^28 + (a^2 - 2*a + 
        1)*q^35 - a^3*q^36 + (a^3 - a^2 - 1)*q^43 + q^44 + (-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 - a*q^64 + (a^2 + 1)*q^68 + 2*a^2*q^73 + q^76 + 
        (-a^3 + a^2)*q^77 + (-a + 1)*q^80 + a^2*q^81 + (a^2 - a)*q^83 + a^3*q^85
        + (-a^3 - a)*q^92 + (a^3 - a^2 + a)*q^95 + (a^3 - a^2 + a - 1)*q^99 + 
        (a^3 - a^2)*q^100 + (-a^2 + a - 1)*q^101 + (-a^2 + a - 1)*q^112 + (-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 + 
        (-a^3 + a - 1)*q^140 + q^144 + (2*a^3 - 2*a^2 + 2*a - 2)*q^149 + (a^3 - 
        a^2 - 1)*q^153 + O(q^154),
    q^3 + a^2*q^12 + (a^2 - a)*q^15 + (a^3 - a^2 + a)*q^21 - a*q^27 - a^3*q^33 +
        (a^3 - a^2 + a - 1)*q^48 + (-a^3 + 1)*q^51 - a^3*q^57 + (-a^2 + a - 
        1)*q^60 + (a^3 - a^2 - 1)*q^69 + (a - 1)*q^75 + (a^2 - a)*q^84 + (a^2 - 
        2*a + 1)*q^105 - a^3*q^108 + (a^3 - a^2 - 1)*q^129 + q^132 + (-a^3 + 
        a^2)*q^135 + (a^3 + a - 1)*q^141 + (-a^2 + a)*q^147 + O(q^154)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
627
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
628
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
628
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
156
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
628
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
628
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
628
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^23 + a^21 + a^20 - a^18 - a^17 + a^15 + a^14 - a^12 + a^10 + a^9 - 
        a^7 - a^6 + a^4 + a^3 - a - 1)*q^2 - a^9*q^4 + (a^22 - a^19)*q^5 + 
        (-a^20 + a^7)*q^8 + a^8*q^9 + (-a^7 + a^4)*q^10 + (a^12 - a)*q^13 + 
        a^18*q^16 + (-a^22 + a^9 + a^6)*q^17 + (a^19 - a^6)*q^18 + (-a^18 + a^15
        + a^5 - a^2)*q^20 + (a^23 + a^22 - a^20 - a^19 + a^17 + a^16 - a^14 - 
        a^13 + a^11 - a^9 - a^8 + a^6 - a^3 + 1)*q^25 + (-a^22 + a^20 + a^19 - 
        a^17 - a^16 + a^14 + a^13 - a^12 - a^11 - a^10 + a^9 + a^8 - a^6 - a^5 +
        a^3 + a^2 - 1)*q^26 + (a^14 + a^10)*q^29 - a^3*q^32 + (a^20 + a^17 - 
        a^4)*q^34 - a^17*q^36 + (a^13 - a^11 - 1)*q^37 + (a^16 - a^13)*q^40 + 
        (-a^16 - a^13 + a^3)*q^41 + (a^17 - a^14 - a^4 + a)*q^45 - a^21*q^49 + 
        (-a^23 - a^16 + a^13 + a^3 - 1)*q^50 + (-a^21 + a^10)*q^52 + (a^23 - 
        a^21 - a^20 + a^18 + a^17 - a^15 - a^14 + a^12 + a^11 - a^10 - a^9 + a^7
        + a^6 - a^4 - 2*a^3 + a + 1)*q^53 + (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^58 + (a^23 - a^17 - a^10)*q^61 + (-a^14 + a)*q^64 + (-a^23 + a^21 +
        a^20 - a^18 - a^8 + a^5)*q^65 + (-a^15 - a^5)*q^68 + a^2*q^72 + (a^19 - 
        a^15 - a^6)*q^73 + (-a^22 - a^11 + a^9)*q^74 + (a^23 - a^21 - a^20 + 
        a^18 + a^17 - a^15 - a^14 + a^12 + a^11 - a^10 - a^9 + a^7 + a^6 - a^4 -
        a^3 + 1)*q^80 + a^16*q^81 + (a^23 - a^21 - a^20 + a^18 + a^17 - a^15 + 
        a^12 + a^11 - a^10 - a^9 + a^7 + a^6 - a^4 - a^3 + a + 1)*q^82 + (-a^23 
        - a^22 + a^20 + a^19 + a^18 - a^17 - a^16 + a^14 + a^13 - a^12 - a^11 + 
        a^9 + a^8 - a^6 - a^5 + a^3 - 1)*q^85 + (a^16 + a^4)*q^89 + (-a^15 + 
        a^12)*q^90 + (a^21 - a^20 - a^8 + a^7)*q^97 + a^6*q^98 + (a^14 - a^11 + 
        a^8)*q^100 + (-2*a^23 - a^22 + a^20 + a^19 - a^17 - a^16 + a^14 + a^13 -
        a^12 - a^11 + a^9 + a^8 - a^6 - a^5 + a^3 + a^2 - 1)*q^101 + (a^21 - a^8
        + a^6)*q^104 + (a^22 - a^14 + a)*q^106 + (a^23 - a^21 - a^20 + a^18 + 
        a^17 - a^15 - a^14 + a^12 + a^11 - a^10 - a^9 + a^6 - a^4 - a^3 + a + 
        1)*q^109 + (a^15 - a^7 - a^2)*q^113 + (-a^23 - a^19)*q^116 + (a^20 - 
        a^9)*q^117 - a^17*q^121 + (-a^21 + a^2)*q^122 + (-a^23 + a^20 - a^17 + 
        a^15 - a^12 + a^10 + a^9 - a^7 - a^6 + a^4 + a^3 - 1)*q^125 + a^12*q^128
        + (-a^19 + a^16 + a^8 - a^5)*q^130 + (-a^16 + a^3 + 1)*q^136 + (-a^11 - 
        a^9)*q^137 + (a^13 - 1)*q^144 + (a^23 - a^20 + a^19 - a^16 - a^10 + a^7 
        - a^6 + a^3)*q^145 + (-a^17 + 1)*q^146 + (-a^22 + a^20 + a^9)*q^148 + 
        (-a^23 + a^21 + a^20 - a^18 - a^17 + a^15 + a^14 - a^12 + a^10 + a^9 - 
        a^7 - a^6 + a^4 - a - 1)*q^149 + (a^14 + a^4)*q^153 + O(q^154)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
628
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
628
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^11*q^2 - a^9*q^4 + (-a^9 + a^6)*q^5 - a^7*q^8 + a^8*q^9 + (-a^7 + 
        a^4)*q^10 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2
        - 1)*q^13 - a^5*q^16 + (-a^9 + a^6)*q^17 + a^6*q^18 + (-a^5 + a^2)*q^20 
        + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 - a^4 + a^3 + a - 1)*q^25 + (a^11
        + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^26 + (a^10 - 
        a)*q^29 - a^3*q^32 + (-a^7 + a^4)*q^34 + a^4*q^36 + (-a^11 + 1)*q^37 + 
        (-a^3 + 1)*q^40 + (-a^3 + 1)*q^41 + (a^4 - a)*q^45 + a^8*q^49 + (a^10 - 
        a^3 + 1)*q^50 + (a^10 + a^8)*q^52 + (-a^11 - a^3)*q^53 + (a^11 - a^10 + 
        a^9 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^58 + (a^10 + 
        a^4)*q^61 - a*q^64 + (a^10 + a^8 - a^7 - a^5)*q^65 + (-a^5 + a^2)*q^68 +
        a^2*q^72 + (a^6 + a^2)*q^73 + (-a^11 - a^9)*q^74 + (-a^11 - a)*q^80 - 
        a^3*q^81 + (-a^11 - a)*q^82 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 - a^4
        + a^3 + a^2 + a - 1)*q^85 + (a^4 - a^3)*q^89 + (a^11 - a^10 + a^9 - a^8 
        + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^90 + (a^8 - a^7)*q^97 + 
        a^6*q^98 + (-a^11 + a^8 - a)*q^100 + (a^11 + a^9 - a^8 + a^7 - a^6 + a^5
        - a^4 + a^3 - a^2 + a - 1)*q^101 + (a^8 + a^6)*q^104 + (-a^9 - a)*q^106 
        + (-a^11 - a^7)*q^109 + (-a^7 + a^2)*q^113 + (a^10 + a^6)*q^116 + (-a^9 
        - a^7)*q^117 + a^4*q^121 + (a^8 + a^2)*q^122 + (-a^11 + a^8 - a^5 - 
        a)*q^125 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 
        + a - 1)*q^128 + (a^8 + a^6 - a^5 - a^3)*q^130 + (-a^3 + 1)*q^136 + 
        (-a^11 - a^9)*q^137 + q^144 + (a^10 - a^7 + a^6 - a^3)*q^145 + (a^4 + 
        1)*q^146 + (-a^9 - a^7)*q^148 + (-a^11 - a^3)*q^149 + (a^4 - a)*q^153 + 
        O(q^154)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
628
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
628
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
628
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
628
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^2 + q^4 - 2*a*q^5 + q^8 + (a - 1)*q^9 - 2*a*q^10 + (-a + 1)*q^13 + 
        q^16 + a*q^17 + (a - 1)*q^18 - 2*a*q^20 + (3*a - 3)*q^25 + (-a + 1)*q^26
        - q^29 + q^32 + a*q^34 + (a - 1)*q^36 + (2*a - 2)*q^37 - 2*a*q^40 - q^41
        + 2*q^45 + q^49 + (3*a - 3)*q^50 + (-a + 1)*q^52 + (-a + 1)*q^53 - q^58 
        + a*q^61 + q^64 - 2*q^65 + a*q^68 + (a - 1)*q^72 + a*q^73 + (2*a - 
        2)*q^74 - 2*a*q^80 - a*q^81 - q^82 + (-2*a + 2)*q^85 - 2*a*q^89 + 2*q^90
        + (-a + 1)*q^97 + q^98 + (3*a - 3)*q^100 - q^101 + (-a + 1)*q^104 + (-a 
        + 1)*q^106 - 2*a*q^109 - 2*a*q^113 - q^116 + a*q^117 + (a - 1)*q^121 + 
        a*q^122 + 4*q^125 + q^128 - 2*q^130 + a*q^136 + a*q^137 + (a - 1)*q^144 
        + 2*a*q^145 + a*q^146 + (2*a - 2)*q^148 + 2*q^149 - q^153 + O(q^154)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
628
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^13 - q^14 + q^16 - q^17 + q^25 + q^36 - q^37 - q^46 - q^52
        - q^56 + q^64 - q^68 + q^81 - q^86 - q^89 + q^100 - q^101 - q^109 - 
        q^113 - q^117 - q^118 + q^121 - q^126 + q^144 - q^148 - q^153 + 
        O(q^154),
    q^2 - q^7 + q^8 + q^18 - q^23 - q^26 - q^28 + q^32 - q^34 - q^43 + q^50 - 
        q^59 - q^63 + q^72 - q^74 + 2*q^79 + 2*q^83 + q^91 - q^92 + 2*q^103 - 
        q^104 - q^107 - q^112 + q^119 + q^128 - q^131 - q^136 + 2*q^139 - q^151 
        + O(q^154)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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(
144
);
qprec:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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(
144
);
qprec:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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(
8
);
qprec:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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(
4
);
qprec:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
12*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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(
48
);
qprec:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
629
);
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(
16
);
qprec:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
630
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*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(
630
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
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(
630
);
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(
6
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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(
6
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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(
6
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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(
6
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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(
12
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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(
12
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
258
;
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 
        + O(q^258),
    q^2 - q^8 - q^14 + q^32 + q^50 + q^56 - 2*q^74 - 2*q^86 + q^98 - q^128 + 
        2*q^134 + 2*q^158 - q^200 - 2*q^218 - q^224 - q^242 + 2*q^254 + 
        O(q^258),
    q^5 - q^20 - q^35 + q^80 + q^125 + q^140 - 2*q^185 - 2*q^215 + q^245 + 
        O(q^258),
    q^10 - q^40 - q^70 + q^160 + q^250 + O(q^258)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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(
4
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
630
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^4 + q^9 + a*q^11 + (a - 1)*q^15 - a*q^16 - a*q^21 - a*q^25 - 
        2*a*q^29 + q^35 + (a - 1)*q^36 + (-a + 1)*q^39 - q^44 + (a - 1)*q^49 - 
        q^51 - a*q^60 + q^64 + a*q^65 - q^71 + a*q^79 + q^81 + q^84 + (-a + 
        1)*q^85 - q^91 + a*q^99 + q^100 - q^109 + 2*q^116 + a*q^119 + (a - 
        1)*q^135 + (a - 1)*q^140 + a*q^141 - a*q^144 + (-a + 1)*q^149 + a*q^151 
        + a*q^156 - q^165 + (-a + 1)*q^176 - q^179 - a*q^189 - 2*a*q^191 - 
        a*q^196 + (-a + 1)*q^204 + (-a + 1)*q^211 - q^219 + (a - 1)*q^221 - 
        a*q^225 + (-a + 1)*q^231 - q^235 + (2*a - 2)*q^239 + q^240 + a*q^249 + 
        (a - 1)*q^256 + O(q^258),
    q^2 + (a - 1)*q^8 + q^18 + a*q^22 + (a - 1)*q^30 - a*q^32 - a*q^42 - a*q^50 
        - 2*a*q^58 + q^70 + (a - 1)*q^72 + (-a + 1)*q^78 - q^88 + (a - 1)*q^98 -
        q^102 - a*q^120 + q^128 + a*q^130 - q^142 + a*q^158 + q^162 + q^168 + 
        (-a + 1)*q^170 - q^182 + a*q^198 + q^200 - q^218 + 2*q^232 + a*q^238 + 
        O(q^258),
    q^3 + (a - 1)*q^5 - a*q^7 + (a - 1)*q^12 + (-a + 1)*q^13 - q^17 - a*q^20 + 
        q^27 + q^28 + a*q^33 + (a - 1)*q^45 + a*q^47 - a*q^48 + a*q^52 - q^55 - 
        a*q^63 + (-a + 1)*q^68 - q^73 - a*q^75 + (-a + 1)*q^77 + q^80 + a*q^83 -
        2*a*q^87 + a*q^97 + (2*a - 2)*q^103 + q^105 + (a - 1)*q^108 + (a - 
        1)*q^112 + (-a + 1)*q^117 + q^125 - q^132 + q^143 + 2*q^145 + (a - 
        1)*q^147 - q^153 + (-a + 1)*q^157 + (-a + 1)*q^167 - 2*a*q^173 + (a - 
        1)*q^175 - a*q^180 - a*q^187 - q^188 + q^192 + a*q^195 + (2*a - 2)*q^203
        - q^208 - q^213 + (-a + 1)*q^220 + a*q^223 + a*q^227 + a*q^237 + q^243 -
        a*q^245 + q^252 + (-a + 1)*q^255 + (-a + 1)*q^257 + O(q^258),
    q^6 + (a - 1)*q^10 - a*q^14 + (a - 1)*q^24 + (-a + 1)*q^26 - q^34 - a*q^40 +
        q^54 + q^56 + a*q^66 + (a - 1)*q^90 + a*q^94 - a*q^96 + a*q^104 - q^110 
        - a*q^126 + (-a + 1)*q^136 - q^146 - a*q^150 + (-a + 1)*q^154 + q^160 + 
        a*q^166 - 2*a*q^174 + a*q^194 + (2*a - 2)*q^206 + q^210 + (a - 1)*q^216 
        + (a - 1)*q^224 + (-a + 1)*q^234 + q^250 + O(q^258)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
631
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
630
);
qprec:=
105
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
631
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
210
);
qprec:=
105
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
631
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
105
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
631
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
90
);
qprec:=
105
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
631
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
105
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
631
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
105
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
631
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
105
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
631
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
35*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
105
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
631
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
45*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
105
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
631
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
63*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
105
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
631
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
105*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
105
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
631
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
315*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
105
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 - q^40 - q^41 - q^47 + q^49 - q^50 - q^62 - q^67 + q^81 - 
        q^85 - q^92 + O(q^105),
    q^2 + q^18 - q^20 - q^25 - q^31 - q^46 + q^50 - q^58 + q^79 - q^83 + q^85 + 
        q^89 + q^98 - q^101 + O(q^105),
    q^4 - q^10 - q^23 - q^29 + q^36 + q^41 + q^47 + q^67 - q^68 - q^80 + q^85 - 
        q^90 - q^97 + q^100 + O(q^105),
    q^5 - q^10 - q^17 + q^32 - q^43 + q^45 + q^46 + q^58 - q^64 - q^71 - q^90 - 
        q^92 + q^100 + O(q^105),
    q^8 - q^10 - q^17 + q^25 + q^31 + q^32 - q^34 - q^40 - q^43 + q^46 + q^58 - 
        q^64 - q^68 - q^71 + q^72 + q^82 + q^83 - q^86 - q^90 - q^92 + q^94 + 
        q^100 + q^101 + O(q^105),
    q^16 - q^17 - q^20 + q^23 + q^29 - q^34 - q^43 + q^50 + q^62 - q^71 - q^86 +
        q^97 + O(q^105)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
632
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
632
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 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(
632
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
632
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
632
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
632
);
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(
78
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
632
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
632
);
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(
26
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
632
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
632
);
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(
26
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
632
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
632
);
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(
6
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^2 - a*q^4 + (a - 2)*q^7 + q^8 + a*q^9 + (-2*a + 1)*q^14 + (a -
        1)*q^16 + (2*a - 1)*q^17 - q^18 - a*q^23 + (a - 1)*q^25 + (a + 1)*q^28 +
        2*a*q^31 - a*q^32 + (-a - 1)*q^34 + (-a + 1)*q^36 + (-2*a + 1)*q^41 + 
        q^46 + (-2*a + 2)*q^49 - a*q^50 + (a - 2)*q^56 - 2*q^62 + (-a - 1)*q^63 
        + q^64 + (-a + 2)*q^68 + (-2*a + 1)*q^71 + a*q^72 - a*q^73 + q^79 + (a -
        1)*q^81 + (a + 1)*q^82 + q^89 + (a - 1)*q^92 + 2*q^97 + 2*a*q^98 + q^100
        + (a + 1)*q^103 + (-2*a + 1)*q^112 - 3*a*q^119 + (a - 1)*q^121 + (-2*a +
        2)*q^124 + (-a + 2)*q^126 + (a - 2)*q^127 + (a - 1)*q^128 + (2*a - 
        1)*q^136 + (-2*a + 1)*q^137 + (a + 1)*q^142 - q^144 + q^146 + a*q^151 + 
        (a - 2)*q^153 + O(q^154)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
632
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
632
);
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(
6
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
632
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
39*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
154
;
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 + 
        O(q^154),
    q^2 + q^18 - q^22 - q^26 - q^62 + q^98 - q^110 - q^130 + O(q^154),
    q^4 + q^36 - q^40 - q^44 - q^52 - q^64 + q^88 + q^104 - q^124 + q^128 - 
        q^152 + O(q^154),
    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 + O(q^154),
    q^8 - q^40 - q^64 + q^72 - q^80 - q^152 + O(q^154),
    q^10 - q^22 - q^26 + q^38 + q^46 - q^50 - q^62 + q^90 + q^134 + q^146 + 
        O(q^154),
    q^16 - q^32 - q^40 + q^88 + q^104 + q^144 - q^152 + O(q^154),
    q^20 + q^32 - q^44 - q^52 - q^64 + q^76 - q^80 + q^92 - q^100 - q^124 + 
        O(q^154)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
632
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 39*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^9 - q^20 - q^22 - q^25 + q^26 + q^32 + q^40 + q^49 + q^50 - q^62 - 
        q^76 + q^79 + q^81 - q^92 - 2*q^95 - q^110 - q^121 + q^130 + 2*q^143 + 
        q^152 + O(q^154),
    q^2 + q^11 - q^13 - q^18 + q^25 - q^31 - q^40 - q^44 - q^50 + q^52 - q^55 + 
        q^64 + q^65 + q^80 - q^89 + q^95 + q^98 - q^99 + q^100 - q^101 + q^115 +
        q^117 - q^124 + q^125 - q^152 + O(q^154),
    q^3 - q^6 + q^12 - q^24 - q^29 - q^37 - q^43 + q^48 + q^53 + q^58 - q^59 + 
        q^61 + q^74 + q^75 + q^86 - q^96 - q^106 - q^107 + q^109 - q^116 + q^118
        - q^122 - q^139 + q^147 - q^148 + q^149 - q^150 + O(q^154),
    q^4 + q^9 + q^16 - q^18 + q^20 + q^22 - q^23 + 2*q^25 - q^26 - q^31 - q^32 -
        q^40 - q^46 - q^50 + q^64 - q^72 - q^73 + q^76 - q^79 - q^81 - q^87 - 
        q^89 + 2*q^95 + q^100 + q^110 - q^111 + 2*q^121 - q^124 - q^129 - q^130 
        - 2*q^143 - q^146 - q^152 + O(q^154),
    q^5 - q^9 - q^16 + q^18 + q^19 - q^20 - 2*q^25 + q^31 + q^32 - q^36 + q^40 -
        q^45 + q^46 + 2*q^50 + q^55 - q^62 - q^64 - q^65 - q^67 + q^72 - q^76 + 
        q^79 - q^80 + q^81 + q^87 - q^88 + q^89 - 2*q^95 + q^97 - 2*q^100 + 
        q^104 - 2*q^110 + q^111 - q^121 + q^124 - q^125 + q^128 + q^129 + 
        2*q^130 - q^131 + q^143 + q^146 + q^151 + q^152 + O(q^154),
    q^8 - q^9 - q^11 + q^13 + q^18 - q^23 - q^25 + q^32 - q^36 + q^40 + q^44 - 
        q^46 + 2*q^50 - q^52 + q^55 - q^62 - q^64 - q^65 - q^73 + q^79 - q^80 + 
        q^81 + q^87 - q^92 - q^95 + 2*q^97 + q^99 - q^100 + q^101 + q^111 - 
        q^115 - q^117 - q^125 + q^128 + q^129 - q^144 - q^146 + 2*q^151 + q^152 
        + O(q^154),
    q^10 + q^11 - q^13 - q^16 - q^20 - q^25 + q^31 + q^38 + q^46 + q^55 - q^65 -
        q^76 - q^88 + q^89 - q^90 + q^92 - q^95 - q^99 - q^101 + q^104 - q^110 +
        q^115 + q^117 + q^125 + q^130 - q^134 + q^144 + q^146 + O(q^154)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
633
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
139
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
633
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
210
);
qprec:=
139
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
633
);
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:=
139
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
633
);
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:=
139
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
633
);
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:=
139
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
633
);
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:=
139
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^8*q^3 + a^2*q^4 + (a^20 - a^13)*q^7 + a^16*q^9 + a^10*q^12 + (a^23 + 
        a^22 - a^18 - a^17 - a^16 - a^15 + a^13 + a^12 + a^11 + a^10 - a^7 - a^6
        - a^5 - a^4 + 1)*q^13 + a^4*q^16 + (-a^23 - a^20 + a^16 + a^15 - a^10 - 
        a^9 + a^5 - a^3 + a^2 - 1)*q^19 + (-a^14 + a^7 - 1)*q^21 - a^19*q^25 + 
        (-a^23 + a^19 + a^18 + a^17 + a^16 - a^14 - a^13 - a^12 - a^11 - a^10 + 
        a^8 + a^7 + a^6 + a^5 - a - 1)*q^27 + (a^22 - a^15)*q^28 + (a^20 - a^18 
        - a^16 - a^15 + a^11 + a^10 + a^9 - a^5 - a^4 - a^2 + 1)*q^31 + 
        a^18*q^36 + (2*a^23 - a^19 - a^18 - 2*a^16 + 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^37 + (-a^17 - 
        a^7)*q^39 + (a^14 + a^6)*q^43 + a^12*q^48 + (a^19 - a^12)*q^49 + (-a^11 
        - a)*q^52 + (a^23 - a^21 - a^18 + a^14 + a^13 - a^11 - a^8 - a^7 + a^3 +
        1)*q^57 + (-a^23 - 2*a^22 - a^20 + a^18 + a^17 + a^16 + 2*a^15 - a^12 - 
        a^11 - a^10 - a^9 - a^8 + a^7 + a^5 + a^4 + a - 1)*q^61 + (-a^22 + a^15 
        - a^8)*q^63 + a^6*q^64 + (-a^23 + a^21 + a^19 + a^18 - a^13 - a^12 + a^8
        + a^7 + a^5 - a^3 - 1)*q^67 + (a^18 - a^7)*q^73 + (-a^23 - a^22 - a^20 +
        a^18 + a^17 + a^16 + a^15 - a^12 - a^11 - a^10 - a^9 + a^7 + a^5 + a^4 -
        1)*q^75 + (-a^23 - a^22 - a^20 + a^18 + a^17 + a^16 + a^15 - a^12 - a^11
        - a^10 - a^9 + a^7 + a^4 - 1)*q^76 + (-a^17 + a^12)*q^79 + (a^23 + a^20 
        - a^18 - a^16 - a^15 + a^11 + a^10 + a^9 - a^5 - a^4 - a^2 + 1)*q^81 + 
        (-a^16 + a^9 - a^2)*q^84 + (-a^19 + a^15 + a^12 - a^8 + a)*q^91 + (a^23 
        - a^19 - a^18 - a^16 + a^14 + a^13 + a^12 + a^11 - a^8 - a^7 - a^6 - 
        2*a^5 + a^3 + a + 1)*q^93 + (a^23 - a^19 - a^18 - a^16 - a^15 + a^14 + 
        a^13 + a^12 + a^11 - a^8 - a^7 - a^6 - a^5 + a^3 + a + 1)*q^97 - 
        a^21*q^100 + (-a^23 + a^21 + a^19 + a^18 + a^17 + a^16 - 2*a^14 - a^13 -
        a^12 - a^11 - a^10 + a^8 + 2*a^7 + a^6 + a^5 - a - 2)*q^103 + (-a^23 + 
        a^21 + a^19 + a^18 - a^14 - a^13 - a^12 + a^8 + a^7 + a^5 - a^3 - 
        1)*q^108 + (a^23 - a^16 + a^9 - a^2 - a)*q^109 + (a^4 - a^3)*q^111 + 
        (-a^23 + a^19 + a^18 + a^16 - a^14 - a^13 - a^12 - a^11 - a^10 + a^8 + 
        a^7 + a^6 + a^5 - a - 1)*q^112 + (-a^23 - a^20 + a^16 - a^10 - a^9 + a^5
        + a^2 - 1)*q^117 - a^9*q^121 + (a^22 - a^20 - a^18 - a^17 + a^13 + a^12 
        + a^11 - a^7 - a^6 - a^4 + a^2)*q^124 + (-a^11 - a^7)*q^127 + (a^22 + 
        a^14)*q^129 + (-a^23 + a^16 + a^10 - a^3)*q^133 + O(q^139)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
633
);
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:=
139
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
633
);
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:=
139
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
633
);
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:=
139
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
633
);
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:=
139
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
633
);
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:=
139
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
633
);
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:=
139
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^3 + a^2*q^4 + (2*a^5 - 2*a^4 + 2*a^3 - 2*a^2 + 2*a - 2)*q^7 + 
        a^2*q^9 - a^3*q^12 + (a^5 - a^4 + a^3 + a - 1)*q^13 + a^4*q^16 + (a^4 - 
        a^3)*q^19 + 2*q^21 - a^5*q^25 - a^3*q^27 - 2*a*q^28 + (a^4 + a^2)*q^31 +
        a^4*q^36 + (-a^3 + a^2)*q^37 + (-a^3 + 1)*q^39 + (a^5 - a^4 + a^3 - a^2 
        + a)*q^43 - a^5*q^48 - 3*a^5*q^49 + (a^4 - a)*q^52 + (-a^5 + a^4)*q^57 +
        (a^5 - a^4 + a^3 - a^2 - 1)*q^61 - 2*a*q^63 + (a^5 - a^4 + a^3 - a^2 + a
        - 1)*q^64 + (-a^5 + 1)*q^67 + (a^4 + 1)*q^73 + (a^5 - a^4 + a^3 - a^2 + 
        a - 1)*q^75 + (-a^4 + a^3 - a^2 + a - 1)*q^76 + (-a^5 - a^3)*q^79 + 
        a^4*q^81 + 2*a^2*q^84 + (-2*a^5 - 2*a)*q^91 + (-a^5 - a^3)*q^93 + (-a^3 
        - a)*q^97 + q^100 + (-a^3 + 1)*q^103 - a^5*q^108 + (a^2 - a)*q^109 + 
        (a^4 - a^3)*q^111 - 2*a^3*q^112 + (a^4 - a)*q^117 + a^2*q^121 + (a^5 + 
        a^3 - a^2 + a - 1)*q^124 + (a^4 + 1)*q^127 + (-a + 1)*q^129 + (-2*a^3 + 
        2*a^2)*q^133 + O(q^139)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
633
);
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:=
139
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
633
);
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:=
139
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*(-a^3 + a^2 - a)*q^4 + 1/2*(-a^2 + a)*q^7 - a*q^9 + 1/2*(-a^3 - a + 
        1)*q^10 + 1/2*(-a^3 + a^2 + 2)*q^12 + 1/2*(a^3 - a^2 + a - 1)*q^13 + 
        1/2*(a^3 - a^2 + a - 1)*q^16 + 1/2*(-a^2 + a)*q^19 + 1/2*(-a^3 - a^2 - 
        a)*q^21 - 1/2*a^3*q^22 + 1/2*(a^3 - a^2 + a - 1)*q^25 + (a^2 + 1)*q^28 +
        1/2*(a^2 + 1)*q^30 - 1/2*q^31 - 1/2*q^34 + 1/2*(a - 1)*q^36 + 1/2*(-a + 
        1)*q^37 + 3/2*a^2*q^39 - 1/2*q^40 + 1/2*(a^3 - a^2 - 2)*q^43 + 1/2*(a^3 
        + a)*q^46 + 1/2*a^2*q^48 + 1/2*(-a^3 - a + 1)*q^49 + 1/2*(-a^2 - 2*a - 
        1)*q^52 + 1/2*(-a^2 + a)*q^55 + 1/2*(-a^3 - a^2 - a)*q^57 + 1/2*(-a^3 + 
        a^2 + 2)*q^58 + 1/2*(a^3 + 2*a - 2)*q^61 + 1/2*(a^3 - a^2)*q^63 + 
        1/2*(-a^2 - a - 1)*q^64 + 1/2*a*q^66 + 1/2*(a^3 - a^2 - 1)*q^67 + 
        1/2*(a^3 + a)*q^70 + 1/2*(-a^3 + a^2 - 1)*q^73 + 1/2*a^2*q^75 + (a^2 + 
        1)*q^76 + a^2*q^79 + a^2*q^81 + 1/2*a^3*q^82 + 1/2*(-a^2 + a - 1)*q^85 +
        1/2*(a^3 - a^2)*q^88 + 1/2*(a^3 - 1)*q^90 + 1/2*(3*a^3 + 2*a - 2)*q^91 +
        1/2*(-a^3 - 2*a + 2)*q^93 + 1/2*(a^3 - a^2 - 2)*q^94 + 1/2*(-a + 1)*q^97
        - 1/2*a*q^100 - 1/2*a^3*q^102 + 1/2*(-a^2 + a - 1)*q^103 + 1/2*(-a^2 - a
        - 1)*q^108 + 1/2*(-a^3 - a + 1)*q^109 + 1/2*(-a^2 + a - 1)*q^111 + 
        1/2*(a^3 + a - 1)*q^112 + 1/2*a^3*q^115 + 1/2*q^117 - 1/2*a^3*q^120 + 
        1/2*(a^3 - 1)*q^121 + (a^3 + a)*q^124 + 1/2*(-a^3 + 2*a^2 - 2*a + 
        1)*q^127 + 1/2*(a - 1)*q^129 + 1/2*(-a^3 - a)*q^130 + 1/2*(-3*a^3 - a + 
        1)*q^133 + 1/2*(a^3 - a^2 + a)*q^136 + 1/2*(a^3 - a^2 - 1)*q^138 + 
        O(q^139),
    q^2 + (a^2 - a + 1)*q^5 + a^3*q^6 + (-a^3 + a^2 - a)*q^8 + (-a^2 + 2*a - 
        1)*q^11 + (a^3 - a^2 + a - 1)*q^14 + (a^2 - a)*q^15 + (-a^3 + a - 
        1)*q^17 - a*q^18 - a^3*q^20 + (a^3 - a^2)*q^23 + (-a^3 + a^2)*q^24 + 
        (-a^3 + a^2 - a + 1)*q^26 + a^3*q^29 + (-a^2 + a)*q^32 + (a^3 - 2*a^2 + 
        2*a - 1)*q^33 + (a^3 - a^2)*q^35 + (a^3 - a^2 + a - 1)*q^38 + (a^2 - 2*a
        + 1)*q^41 - a^2*q^42 + (-a + 1)*q^44 + (-a^3 + a^2 - a)*q^45 - a^3*q^47 
        + (-a^2 + 2*a - 1)*q^51 + (-a^3 + a^2 - a + 1)*q^54 + (a^2 - a + 1)*q^56
        + a*q^60 + (a^3 - a^2 - 1)*q^62 + (-a^3 + a^2)*q^65 + (a^3 - a^2)*q^68 +
        (-a + 1)*q^69 + a^2*q^71 + (a - 1)*q^72 + (-a^3 + a^2 - 1)*q^77 + 
        a^2*q^78 + a*q^83 - q^86 - a*q^87 + (a - 1)*q^89 + a^2*q^92 + (a^3 - 
        a^2)*q^95 + (a^3 - a^2 + a)*q^96 + (a^3 - 2*a^2 + a)*q^99 + (-a^2 + a - 
        1)*q^104 + (-a + 1)*q^105 + (2*a^2 - 2*a + 2)*q^107 + (-a^2 + a)*q^110 +
        (-a + 1)*q^113 - a^2*q^114 + (-a^3 + a^2 + 1)*q^116 + (-a^3 + 2*a^2 - 
        a)*q^119 + (a - 1)*q^122 + (-a^3 + 2*a^2 - 2*a + 1)*q^123 + (a^3 - 
        a^2)*q^125 + q^126 - a*q^128 + (-a^3 + a^2 - 1)*q^131 + (a^2 - a + 
        1)*q^132 + (-a^3 + a^2)*q^135 + (-a + 1)*q^137 + O(q^139),
    q^3 + 1/2*(2*a^3 - a^2 + a - 2)*q^4 + 1/2*(a^2 + a + 1)*q^7 + 1/2*(a^3 - a^2
        - 1)*q^10 + 1/2*(-a^3 + a^2 - a)*q^12 - 3/2*a*q^13 - 1/2*a*q^16 + 
        1/2*(a^2 + a + 1)*q^19 + 1/2*(-a^2 + a)*q^21 - 1/2*q^22 - 1/2*a*q^25 - 
        a*q^27 + 1/2*(-a^3 - a + 1)*q^30 + 1/2*(2*a^3 - a^2 + 2*a)*q^31 + 
        1/2*a^2*q^34 + 1/2*(-a^3 + a^2 + 2)*q^36 + 1/2*(-a^3 + a^2)*q^37 + 
        1/2*(a^3 - a^2 + a - 1)*q^39 + 1/2*a^2*q^40 + 1/2*(-a^3 + a^2 - a)*q^43 
        + 1/2*(-a^3 + 1)*q^46 + 1/2*(a^3 - a^2 + a - 1)*q^48 + 1/2*(-a^3 + a^2 +
        1)*q^49 + 1/2*(-a^3 + a - 1)*q^52 + 1/2*(-a^2 + a - 1)*q^55 + 1/2*(-a^2 
        + a)*q^57 + 1/2*(-a^3 - a^2 - a)*q^58 - 1/2*q^61 + 1/2*(-a^3 - a^2 - 
        a)*q^63 + 1/2*(a - 1)*q^64 - 1/2*a^3*q^66 + 1/2*(-a^3 - a)*q^67 + 
        1/2*(-a^3 + 1)*q^70 + 1/2*(a^3 + a)*q^73 + 1/2*(a^3 - a^2 + a - 1)*q^75 
        + (a^3 - a^2 + a - 1)*q^79 + 1/2*q^82 + (a^2 + 1)*q^84 + 1/2*(a - 
        1)*q^85 + 1/2*(a^3 - a^2 + a)*q^88 + 1/2*(a^2 + 1)*q^90 + 1/2*(2*a^3 - 
        2*a^2 - 1)*q^91 - 1/2*q^93 + 1/2*(a^3 + a^2 + a)*q^94 + 1/2*(-a^3 + 
        a^2)*q^97 - 1/2*a^3*q^100 - 1/2*q^102 + 1/2*(-a + 1)*q^103 + 1/2*(a - 
        1)*q^108 + 1/2*(-a^3 + a^2 - 1)*q^109 + 1/2*(-a + 1)*q^111 + 1/2*(a^3 - 
        a^2 - 1)*q^112 + 1/2*q^115 + 3/2*a^2*q^117 - 1/2*q^120 + 1/2*(a^2 - 2*a 
        + 1)*q^121 + (-a^3 + a^2 - a + 1)*q^124 + 1/2*(-a^2 - 1)*q^127 + 
        1/2*(a^3 - a^2 - 2)*q^129 + 1/2*(a^3 - 1)*q^130 + 1/2*(-a^3 + a^2 + 
        1)*q^133 + 1/2*(-a^2 + a)*q^136 + 1/2*(a^3 + a)*q^138 + O(q^139)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
633
);
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:=
139
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
633
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
105*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
139
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^5 + q^9 - q^11 - q^13 + q^16 - q^19 - q^20 + q^36 - q^37 - q^43 
        - q^44 - q^45 - q^47 + q^49 - q^52 + 2*q^53 + q^55 + 2*q^59 + q^64 + 
        q^65 - q^71 + 2*q^73 - q^76 - q^79 - q^80 + 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 + 
        O(q^139),
    q^3 + q^12 - q^15 + q^27 - q^33 - q^39 + q^48 - q^57 - q^60 + q^108 - q^111 
        - q^129 - q^132 - q^135 + O(q^139)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
634
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
316
);
qprec:=
157
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
634
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
79*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(
635
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
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:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
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(
252
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
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:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
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:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
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(
84
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
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:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
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:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
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:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
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(
14
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
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(
36
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
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(
28
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
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:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
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:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
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(
12
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
63*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
126
;
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 + O(q^126),
    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 + O(q^126),
    q^5 - q^40 + q^45 - q^55 - q^65 - q^110 + q^125 + O(q^126),
    q^10 - q^20 - q^55 - q^65 + q^85 + q^90 + q^95 + O(q^126)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
635
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 63*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^19 - q^21 + q^25 - q^35 - q^41 + q^49 + q^64 - q^69 - 
        q^71 - q^76 - q^79 - q^84 - q^99 + q^100 - q^115 + O(q^126),
    q^3 - q^7 + q^12 - q^23 - q^28 - q^33 - q^45 + q^48 + q^53 + q^55 + q^67 + 
        q^75 + q^83 - q^92 - q^93 - q^95 + q^97 - q^112 + O(q^126),
    q^5 - q^7 + q^20 - q^23 - q^27 - q^28 + q^33 + 2*q^43 - q^57 + q^63 - q^77 +
        q^80 - q^92 + q^93 - q^95 - q^105 - q^108 - q^112 - q^123 + q^125 + 
        O(q^126),
    q^9 - q^11 - q^15 + q^19 - q^31 + q^35 + q^36 + q^41 - q^44 - q^49 - q^60 - 
        q^61 + q^71 + q^76 + q^79 - q^99 + q^115 + q^121 - q^124 + O(q^126)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
636
);
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(
636
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
636
);
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(
636
);
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(
52
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
636
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
636
);
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(
26
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
636
);
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*q^2 + a^2*q^4 + (a^10 + a^6)*q^5 - a^3*q^8 + a^8*q^9 + (-a^11 - 
        a^7)*q^10 + (-a^5 + a^4)*q^13 + a^4*q^16 + (-a^11 - a^9)*q^17 - a^9*q^18
        + (a^11 - a^10 + a^9 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^20 +
        (a^11 - a^10 + a^9 - a^8 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^25 + (a^6 - 
        a^5)*q^26 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a -
        1)*q^29 - a^5*q^32 + (a^11 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^34 + a^10*q^36 + (-a^7 - a)*q^37 + (-a^9 + 1)*q^40 + 
        (-a^9 - a^3)*q^41 + (-a^5 - a)*q^45 + a^2*q^49 + (a^8 + a^4 + 1)*q^50 + 
        (-a^7 + a^6)*q^52 + a^4*q^53 + (-a^3 + 1)*q^58 + (-a^11 + a^8)*q^61 + 
        a^6*q^64 + (-a^11 + a^10 + a^2 - a)*q^65 + (-a^11 + 1)*q^68 - a^11*q^72 
        + (a^6 - a)*q^73 + (a^8 + a^2)*q^74 + (a^10 - a)*q^80 - a^3*q^81 + (a^10
        + a^4)*q^82 + (a^8 + a^6 + a^4 + a^2)*q^85 + (-a^7 + 1)*q^89 + (a^6 + 
        a^2)*q^90 + (-a^3 + 1)*q^97 - a^3*q^98 + (-a^9 - a^5 - a)*q^100 + (-a^9 
        - a^7)*q^101 + (a^8 - a^7)*q^104 - a^5*q^106 + (-a^11 + a^10)*q^109 + 
        (a^10 - a^5)*q^113 + (a^4 - a)*q^116 + (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^11 - a^10 - a^8 + a^7 
        - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^122 + (-a^9 - a^5 + a^4 + 
        1)*q^125 - a^7*q^128 + (-a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a - 
        1)*q^130 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 
        - 1)*q^136 + (a^8 + a^6)*q^137 + (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^11 - a^10 + a^7 - a^6 - a^4 + 
        a^3 - a^2 + a - 1)*q^145 + (-a^7 + a^2)*q^146 + (-a^9 - a^3)*q^148 + 
        (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^11 + a^2)*q^160 + a^4*q^162
        + (-a^11 - a^5)*q^164 + (a^10 - a^9 + a^8)*q^169 + (-a^9 - a^7 - a^5 - 
        a^3)*q^170 + (a^10 - a^7)*q^173 + (a^8 - a)*q^178 + (-a^7 - a^3)*q^180 +
        (-a^11 - a^3)*q^181 + (-a^11 - a^7 + a^4 + 1)*q^185 + (-a^5 + a^4)*q^193
        + (a^4 - a)*q^194 + a^4*q^196 + (a^8 - a^3)*q^197 + (a^10 + a^6 + 
        a^2)*q^200 + (a^10 + a^8)*q^202 + (-a^9 + a^6 + a^2 + 1)*q^205 + 
        O(q^206),
    q^3 - a*q^6 + a^2*q^12 + (a^10 + a^6)*q^15 - a^3*q^24 + a^8*q^27 + (-a^11 - 
        a^7)*q^30 + (-a^5 + a^4)*q^39 + a^4*q^48 + (-a^11 - a^9)*q^51 - a^9*q^54
        + (a^11 - a^10 + a^9 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^60 +
        (a^11 - a^10 + a^9 - a^8 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^75 + (a^6 - 
        a^5)*q^78 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a -
        1)*q^87 - a^5*q^96 + (a^11 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^102 + a^10*q^108 + (-a^7 - a)*q^111 + (-a^9 + 1)*q^120 + 
        (-a^9 - a^3)*q^123 + (-a^5 - a)*q^135 + a^2*q^147 + (a^8 + a^4 + 
        1)*q^150 + (-a^7 + a^6)*q^156 + a^4*q^159 + (-a^3 + 1)*q^174 + (-a^11 + 
        a^8)*q^183 + a^6*q^192 + (-a^11 + a^10 + a^2 - a)*q^195 + (-a^11 + 
        1)*q^204 + O(q^206)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
636
);
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(
26
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
636
);
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(
636
);
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(
4
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
636
);
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:=
[]
;
Bo:=
[
    q + q^4 - q^9 - q^13 + q^16 - q^17 + q^25 - q^29 - q^36 - q^37 - q^38 - q^46
        + q^49 - q^52 + q^53 + q^54 + 2*q^62 + q^64 - q^68 + 2*q^89 - q^97 + 
        q^100 - q^113 - q^116 + q^117 + q^121 + 2*q^134 - q^142 - q^144 - q^148 
        - q^149 - q^152 + q^153 - q^158 - q^166 - q^184 + q^196 + 2*q^197 + 
        O(q^206),
    q^2 + q^8 - q^18 - q^19 - q^23 - q^26 + q^27 + 2*q^31 + q^32 - q^34 + q^50 -
        q^58 + 2*q^67 - q^71 - q^72 - q^74 - q^76 - q^79 - q^83 - q^92 + q^98 - 
        q^103 - q^104 + q^106 + q^108 + 2*q^124 - q^127 + q^128 - q^136 + 
        2*q^139 - q^151 - q^167 + q^171 + 2*q^178 - q^179 - q^191 - q^194 + 
        q^200 + O(q^206),
    q^3 + q^12 - q^18 - q^39 + q^48 - q^51 - q^72 + q^75 - q^87 - q^111 - q^114 
        - q^138 + q^147 - q^156 + q^159 + q^162 + q^171 + 2*q^186 + q^192 - 
        q^204 + O(q^206),
    q^6 - q^9 + q^24 - q^36 - q^57 - q^69 - q^78 + q^81 + 2*q^93 + q^96 - q^102 
        + q^117 - q^144 + q^150 + q^153 - q^174 + 2*q^201 + O(q^206)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
636
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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^13 - q^15 + q^25 - q^43 + q^81 - q^91 - q^97 - q^105 - q^115 - 
        q^117 + q^121 - q^135 + q^159 + 2*q^163 + q^169 + q^175 + 2*q^195 - 
        q^199 - q^205 + O(q^206),
    q^2 + q^18 - q^20 - q^26 - q^30 - q^48 + q^50 - q^56 + q^80 + q^84 - q^86 + 
        q^92 + q^104 + q^120 - q^156 + q^162 + q^164 - q^180 - q^182 + q^192 - 
        q^194 - q^200 + O(q^206),
    q^3 - q^21 - q^23 + q^27 - q^35 - q^41 + q^53 + q^65 + 2*q^101 - q^111 - 
        q^125 + q^147 + 2*q^161 - q^173 - q^179 - q^185 - q^189 - q^191 + 
        O(q^206),
    q^4 + q^36 - q^40 - q^52 - q^60 - q^96 + q^100 - q^112 + q^160 + q^168 - 
        q^172 + q^184 + O(q^206),
    q^5 - q^21 - q^23 + q^39 - q^41 + q^45 - q^65 + q^71 - q^75 + q^83 - q^111 +
        q^129 + q^137 + q^147 + q^161 + q^167 - q^173 - q^179 - q^189 - q^191 + 
        O(q^206),
    q^6 + q^28 - q^42 - q^46 - q^52 + q^54 - q^60 + q^64 - q^70 - q^82 - q^96 + 
        q^100 + q^106 - q^112 + q^130 + q^148 - q^172 - q^196 + 2*q^202 + 
        O(q^206),
    q^7 - q^13 - q^15 + q^25 + q^37 - q^43 - q^49 + q^63 + q^69 - q^97 - q^117 +
        q^123 - q^135 + q^169 + q^195 - q^199 + O(q^206),
    q^8 - q^20 - q^48 - q^56 + q^72 + q^84 + q^92 - q^156 + q^164 - q^180 + 
        O(q^206),
    q^10 + q^24 + q^28 - q^40 - q^42 - q^46 - q^52 - q^60 + q^78 - q^82 + q^90 -
        q^96 + q^100 - q^130 + q^142 + q^148 - q^150 + q^160 + q^166 - q^172 - 
        q^196 + O(q^206),
    q^12 - q^20 - q^32 + q^56 + q^80 - q^104 + q^108 - q^120 + q^128 - q^140 - 
        q^156 - q^180 + q^200 + O(q^206),
    q^14 - q^26 - q^30 + q^32 - q^48 + q^50 - q^56 + q^74 - q^86 - q^98 + q^104 
        + q^120 + q^126 + q^138 - q^194 - q^200 + O(q^206),
    q^16 - q^24 - q^28 + q^52 + q^60 - q^100 - q^112 + q^144 - q^148 - q^160 + 
        q^168 + q^172 + q^184 + q^196 + O(q^206)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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(
84
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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(
84
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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(
84
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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(
12
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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(
12
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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(
6
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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(
6
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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(
6
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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(
84
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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(
28
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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(
12
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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(
42
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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(
42
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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(
42
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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(
6
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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(
6
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
35*H.1 + 4*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
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:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
637
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
116
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
638
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
638
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*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(
638
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
638
);
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(
140
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
638
);
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(
70
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
638
);
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(
14
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
638
);
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:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
638
);
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(
14
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
638
);
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:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
638
);
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(
20
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
638
);
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(
10
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
638
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
174
;
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 + O(q^174),
    q^2 + q^18 - q^40 - q^46 - q^68 - q^76 + q^98 - q^106 - q^118 + q^162 + 
        q^164 + q^172 + O(q^174),
    q^4 - q^20 - q^34 + q^36 - q^38 - q^80 + q^82 + q^86 - q^88 + q^100 + q^110 
        + q^122 - q^158 + O(q^174),
    q^5 + q^22 - q^23 - q^25 - q^34 - q^38 + q^45 - q^53 + q^58 - q^59 + q^64 + 
        q^67 + q^71 - q^80 - q^88 + q^103 + q^136 + 2*q^146 + q^152 - q^158 - 
        q^170 + O(q^174),
    q^8 + q^17 + q^19 - q^40 - q^41 - q^43 - q^55 - q^61 - q^68 + q^72 - q^76 + 
        q^79 + q^101 - q^131 - q^145 + q^153 - q^160 + q^164 + q^171 + q^172 + 
        O(q^174),
    q^10 + q^17 + q^19 - q^41 - q^43 + q^44 - q^46 - q^50 - q^55 - q^61 - q^68 -
        q^76 + q^79 + q^90 + q^101 - q^106 + q^116 - q^118 + q^128 - q^131 + 
        q^134 + q^142 - q^145 + q^153 - q^160 + q^171 + O(q^174),
    q^11 - q^17 - q^19 + q^29 + q^32 - q^40 - q^44 + q^68 + 2*q^73 + q^76 - q^79
        - q^85 - q^95 + q^99 - q^101 - q^116 + 2*q^127 - q^128 - q^153 - q^171 +
        O(q^174),
    q^16 - q^20 - q^22 + q^34 + q^38 - q^58 - q^64 + q^92 + q^100 - q^136 + 
        q^144 - 2*q^146 - q^152 + q^158 + q^170 + O(q^174)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
639
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
639
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
639
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
639
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
639
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
639
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
639
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
639
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
639
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
639
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
639
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
639
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
639
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
639
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
639
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
35*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^5 - q^20 + q^25 + q^32 - q^38 - q^40 - q^43 + q^49 + q^50 - q^58 - 
        q^71 - q^73 - q^74 - q^79 - q^100 - 2*q^107 + q^116 + q^121 + q^125 - 
        q^128 + q^131 + O(q^138),
    q^2 + q^16 - q^19 - q^20 + q^25 - q^29 - q^37 - q^40 + q^58 - q^76 + q^83 - 
        q^89 + q^98 + q^101 + q^103 + q^109 + q^125 + O(q^138),
    q^4 - q^5 + q^8 - q^10 - q^25 + q^29 - q^38 + q^43 + q^73 - q^74 - q^76 + 
        q^79 - q^80 + q^86 + q^89 + q^95 + q^100 - q^103 - q^109 - q^125 - q^131
        + O(q^138)
]
;
Bo:=
[
    q - q^5 + q^20 + q^25 - q^32 + q^38 - q^40 - q^43 + q^49 - q^50 - q^58 + 
        q^71 - q^73 + q^74 - q^79 - q^100 + 2*q^107 - q^116 + q^121 - q^125 + 
        q^128 - q^131 + O(q^138),
    q^2 - q^16 + q^19 - q^20 - q^25 - q^29 + q^37 + q^40 - q^58 + q^76 + q^83 - 
        q^89 + q^98 + q^101 - q^103 - q^109 + q^125 + O(q^138),
    q^3 - q^15 - q^36 - q^45 + q^60 + q^72 + q^75 + q^90 - q^96 + q^114 - q^120 
        - q^129 + O(q^138),
    q^4 + q^5 - q^8 - q^10 - q^25 - q^29 + q^38 + q^43 + q^73 + q^74 - q^76 + 
        q^79 + q^80 - q^86 - q^89 - q^95 + q^100 - q^103 - q^109 + q^125 + q^131
        + O(q^138),
    q^6 - q^48 - q^54 + q^57 - q^60 - q^75 + q^81 - q^87 + q^111 + q^120 + 
        O(q^138),
    q^9 - q^45 - q^54 + q^81 - q^108 - q^135 + O(q^138),
    q^12 + q^15 - q^24 - q^30 - q^75 + q^81 - q^87 - q^108 + q^114 + q^129 - 
        q^135 + O(q^138),
    q^18 - q^36 - q^45 - q^54 + q^72 + q^81 + q^90 + O(q^138),
    q^27 - q^36 - q^45 + q^72 + q^90 - q^135 + O(q^138)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
639
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/3*(a - 2)*q^8 + 1/3*(-2*a + 1)*q^10 + 1/3*(-2*a + 1)*q^12 + 1/3*(a - 
        2)*q^15 + 1/3*(-2*a + 1)*q^16 + 1/3*(a + 1)*q^18 + 1/3*(4*a - 2)*q^20 + 
        (a - 1)*q^24 + 1/3*(-2*a + 1)*q^25 + 1/3*(2*a - 1)*q^27 + 1/3*(-2*a + 
        1)*q^29 + 1/3*(a - 2)*q^32 + 1/3*(a + 1)*q^36 - a*q^38 + 1/3*(a + 
        1)*q^40 - a*q^43 + 1/3*(a - 2)*q^45 + 1/3*(-2*a + 1)*q^48 + (a - 1)*q^49
        + 1/3*(-2*a + 1)*q^50 + 1/3*(a - 2)*q^58 + 1/3*(a - 2)*q^60 + 1/3*(a + 
        1)*q^64 + q^71 + q^75 + 1/3*(-2*a + 1)*q^76 + 1/3*(-2*a + 1)*q^80 + 
        1/3*(a + 1)*q^81 + 1/3*(a - 2)*q^86 - a*q^87 + 1/3*(-2*a + 1)*q^89 + 
        q^90 + 1/3*(a + 1)*q^95 + 1/3*(-2*a + 1)*q^96 + 1/3*(a + 1)*q^100 + 
        1/3*(a - 2)*q^103 - q^107 + q^108 + 1/3*(a + 1)*q^109 - a*q^111 + 1/3*(a
        + 1)*q^114 + 1/3*(a - 2)*q^116 + 1/3*(a + 1)*q^120 + (a - 1)*q^121 + 
        1/3*(a + 1)*q^128 + 1/3*(a - 2)*q^129 + (-a + 1)*q^131 + 1/3*(a - 
        2)*q^135 + O(q^138),
    q^2 + (a - 1)*q^8 + q^10 + q^12 + (a - 1)*q^15 + (a - 1)*q^19 - a*q^32 + 
        q^36 - a*q^37 + a*q^40 - a*q^45 + (a - 1)*q^48 - a*q^50 - a*q^54 - 
        a*q^60 - a*q^64 - 2*a*q^76 + q^80 + (a - 1)*q^83 + q^86 + (a - 1)*q^95 -
        a*q^96 + (a - 1)*q^98 + (a - 1)*q^100 - a*q^101 + (a - 1)*q^114 - 
        a*q^116 + (a - 1)*q^120 - a*q^125 + q^128 + q^129 + O(q^138),
    q^3 - a*q^8 + (a - 1)*q^10 + (a - 1)*q^12 - a*q^16 + q^20 + (a - 1)*q^25 - 
        a*q^29 + q^32 - a*q^40 - a*q^48 + (a - 1)*q^50 + q^54 + q^58 + a*q^60 + 
        q^64 + (a - 1)*q^72 - a*q^75 + q^76 + (a - 1)*q^80 + (a - 1)*q^86 + (a -
        1)*q^89 - a*q^90 - a*q^95 - a*q^100 + (a - 1)*q^103 + q^109 - 2*a*q^114 
        + q^116 + (a - 1)*q^128 + O(q^138),
    q^4 + 1/3*(-a - 1)*q^8 + 1/3*(-a + 2)*q^10 + 1/3*(-a + 2)*q^12 + 1/3*(-a - 
        1)*q^15 + 1/3*(2*a - 1)*q^16 + 1/3*(-a - 1)*q^18 + 1/3*(-a - 1)*q^20 + 
        1/3*(2*a - 1)*q^25 + 1/3*(a - 2)*q^27 + 1/3*(-a + 2)*q^29 + (a - 1)*q^30
        + 1/3*(-a - 1)*q^32 + 1/3*(2*a - 1)*q^36 + (a - 1)*q^38 + 1/3*(2*a - 
        1)*q^40 + (-a + 1)*q^43 + 1/3*(-a - 1)*q^45 + 1/3*(2*a - 1)*q^48 + 
        1/3*(-a + 2)*q^50 + 1/3*(-a - 1)*q^58 + 1/3*(-a + 2)*q^60 + 1/3*(-a - 
        1)*q^64 + q^72 + (-a + 1)*q^74 + 1/3*(-a + 2)*q^76 + 1/3*(2*a + 2)*q^80 
        + 1/3*(2*a - 1)*q^81 + 1/3*(-a - 1)*q^86 + 1/3*(-a + 2)*q^89 + 1/3*(2*a 
        - 1)*q^95 + 1/3*(2*a - 1)*q^96 + 1/3*(-a - 1)*q^100 + 1/3*(-a - 1)*q^103
        + 1/3*(2*a - 1)*q^109 + (-a + 1)*q^111 + 1/3*(2*a - 1)*q^114 + 1/3*(-a -
        1)*q^116 + 1/3*(-a - 1)*q^120 + 1/3*(-a + 2)*q^128 + 1/3*(-a - 1)*q^129 
        + q^131 + 1/3*(-a + 2)*q^135 + O(q^138),
    q^5 + 1/3*(-2*a + 1)*q^8 + 1/3*(a + 1)*q^10 + 1/3*(-2*a + 1)*q^12 + 1/3*(a -
        2)*q^15 + 1/3*(a + 1)*q^16 + 1/3*(a - 2)*q^18 + 1/3*(a - 2)*q^20 + 
        1/3*(a - 2)*q^25 + 1/3*(-a - 1)*q^27 + 1/3*(a + 1)*q^29 - q^30 + 1/3*(a 
        - 2)*q^32 + 1/3*(a - 2)*q^36 + 1/3*(a + 1)*q^40 + (-a + 1)*q^43 + 
        1/3*(-2*a + 1)*q^45 + 1/3*(a + 1)*q^48 + 1/3*(-2*a + 1)*q^50 + 1/3*(a - 
        2)*q^58 + 1/3*(-2*a + 1)*q^60 + 1/3*(a - 2)*q^64 - a*q^73 + (-a + 
        1)*q^74 + 1/3*(a + 1)*q^76 + (a - 1)*q^79 + 1/3*(a + 1)*q^80 + 1/3*(a + 
        1)*q^81 + 1/3*(-2*a + 1)*q^86 + 1/3*(a + 1)*q^89 + q^90 + 1/3*(a - 
        2)*q^95 + 1/3*(a + 1)*q^96 + 1/3*(a + 1)*q^100 + 1/3*(-2*a + 1)*q^103 + 
        1/3*(a - 2)*q^109 + q^111 + 1/3*(a + 1)*q^114 + 1/3*(a - 2)*q^116 + 
        1/3*(a - 2)*q^120 - a*q^125 + 1/3*(-2*a + 1)*q^128 + 1/3*(a - 2)*q^129 +
        1/3*(a + 1)*q^135 + O(q^138),
    q^6 + (a - 1)*q^8 - a*q^10 - a*q^16 + (a - 1)*q^20 + (a - 1)*q^24 + q^25 - 
        a*q^29 + q^30 - a*q^32 + q^36 + q^40 + (a - 1)*q^45 + (a - 1)*q^50 + (a 
        - 1)*q^57 - a*q^58 + q^64 - a*q^76 - a*q^80 + (a - 1)*q^86 - a*q^89 + 
        q^95 - a*q^96 + (a - 1)*q^100 + (a - 1)*q^103 + q^108 + q^109 - a*q^111 
        + q^116 + a*q^120 + q^128 - a*q^135 + O(q^138),
    q^9 + (-a + 2)*q^10 + (-a + 1)*q^12 + a*q^15 - a*q^24 + (a - 1)*q^30 + (a - 
        2)*q^37 - q^45 - q^54 + (a - 2)*q^64 + (a - 1)*q^75 + (-a + 2)*q^80 + (a
        + 1)*q^83 + (-2*a + 1)*q^86 - a*q^87 + (2*a - 1)*q^95 + (-a - 1)*q^101 +
        a*q^114 + (a - 2)*q^116 + (a - 2)*q^125 + (-a + 1)*q^129 + O(q^138)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
640
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
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:=
162
;
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 + O(q^162),
    q^5 - q^45 - 2*q^85 + q^125 + O(q^162)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
162
;
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 + O(q^162),
    q^2 + a*q^18 + (-a - 1)*q^34 - q^50 - a*q^98 + (a + 1)*q^130 + (-a + 
        1)*q^146 + O(q^162),
    q^4 - a*q^20 + a*q^36 + (a - 1)*q^52 + (-a - 1)*q^68 - q^100 + (a + 1)*q^148
        + O(q^162),
    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 
        + O(q^162),
    q^10 + (-a - 1)*q^26 + (a - 1)*q^74 + a*q^90 + (a + 1)*q^106 + O(q^162)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
32
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
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(
16
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
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(
32
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
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(
8
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
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(
4
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
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(
8
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
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(
4
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    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 - 2*a*q^145
        + (-a + 1)*q^153 + O(q^162),
    q^5 + (-a + 1)*q^13 + 2*a*q^29 + (-a - 1)*q^37 - a*q^45 + (a - 1)*q^53 - 
        2*q^61 + (a + 1)*q^85 + (-a - 1)*q^117 - q^125 + (a + 1)*q^157 + 
        O(q^162)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
24*H.2 + H.3
;
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(
640
);
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:=
162
;
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 + O(q^162),
    q^2 - q^18 + q^50 - 2*q^82 - q^98 + O(q^162),
    q^4 - q^20 - q^36 + q^100 + 2*q^116 + O(q^162),
    q^5 - 2*q^29 - q^45 + 2*q^61 - 2*q^101 + 2*q^109 + q^125 + 2*q^149 + 
        O(q^162),
    q^8 - q^40 - q^72 + O(q^162),
    q^10 - 2*q^58 - q^90 + 2*q^122 + O(q^162)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
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(
32
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
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(
16
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
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(
8
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
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(
4
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
640
);
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:=Rationals();
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^41 - q^65 + q^105 - q^121 - q^129 - q^161 + O(q^162),
    q^3 - q^35 + q^43 - q^67 - q^75 - q^83 - q^107 + q^115 + q^147 + O(q^162),
    q^5 - 2*q^21 - q^45 + 2*q^61 + 2*q^69 - 2*q^109 - q^125 + 2*q^141 - 2*q^149 
        + O(q^162),
    q^7 + q^15 - q^23 - q^47 - q^63 - q^103 + q^127 + O(q^162),
    q^9 + q^25 - q^41 - q^49 - q^65 + q^81 - 2*q^89 - q^105 + q^129 + q^161 + 
        O(q^162),
    q^13 - q^21 - q^37 - q^45 + q^53 + q^61 + q^69 - q^109 + q^117 - q^125 + 
        q^141 - q^149 - q^157 + O(q^162)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
641
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
640
);
qprec:=
107
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
641
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
128
);
qprec:=
107
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
642
);
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(
642
);
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(
642
);
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(
106
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
642
);
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:=
[]
;
Bo:=
[
    q + q^4 - q^9 - q^11 - q^13 + q^16 - q^19 - q^23 + q^25 + q^27 + 2*q^29 - 
        q^36 - 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^99 + q^100 - q^101 + q^107 + 
        q^108 + 2*q^116 + q^117 + 2*q^137 + q^143 - q^144 - q^148 - q^149 - 
        q^151 - q^163 - q^164 + q^171 - q^176 + 2*q^188 - q^193 + q^196 - q^197 
        - q^199 + q^207 - q^208 + q^209 + O(q^210),
    q^2 + q^8 - q^18 - q^22 - q^26 + q^32 - q^38 - q^46 + q^50 + q^54 + 2*q^58 -
        q^72 - q^74 - q^82 - q^88 + 2*q^94 + q^98 - q^104 - q^106 - q^122 + 
        q^128 - q^152 - q^158 + 2*q^166 - q^178 - q^184 + q^198 + q^200 - q^202 
        + O(q^210),
    q^3 - q^9 + q^12 - q^33 - q^36 - q^39 + q^48 - q^57 - q^69 + q^75 + q^81 + 
        2*q^87 + q^99 - q^111 + q^117 - q^123 - q^132 + 2*q^141 - q^144 + q^147 
        - q^156 - q^159 + q^171 - q^183 + q^192 + q^207 + O(q^210),
    q^6 - q^18 + q^24 - q^66 - q^72 - q^78 + q^96 - q^114 - q^138 + q^150 + 
        q^162 + 2*q^174 + q^198 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
643
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
642
);
qprec:=
107
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
643
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
214
);
qprec:=
107
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
643
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
107*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
107
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
643
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
321*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
107
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^6 - q^22 - q^23 + q^25 + q^26 - q^28 - q^31 - q^33 + q^34 + q^36 + 
        q^38 + q^39 - q^42 + q^51 - q^53 + q^57 - q^63 + q^64 + q^82 - q^83 + 
        q^96 - q^97 - q^101 + O(q^107),
    q^2 + q^3 + q^11 - q^12 - q^13 + q^14 - q^17 - q^18 - q^19 + q^21 - q^32 - 
        q^41 - q^44 - q^46 - q^48 + q^50 + q^52 + q^58 + q^59 - q^62 - 2*q^66 + 
        q^67 + q^68 - q^69 + q^73 + q^75 + q^76 + q^77 + 2*q^78 - q^79 - q^84 + 
        q^87 - q^91 - q^93 - q^99 + 2*q^102 - q^106 + O(q^107),
    q^4 + q^6 - q^7 + q^9 + q^16 + q^22 - q^26 - q^29 + q^33 - q^34 - q^38 - 
        q^39 + q^42 - q^51 - q^57 + q^81 - q^82 - q^89 - q^92 - q^96 + q^100 + 
        O(q^107)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
644
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
644
);
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(
644
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
644
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
644
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
644
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
644
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
644
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^2*q^4 + 1/11*(6*a^9 - 12*a^8 - 4*a^7 - 2*a^6 + 8*a^5 - 3*a^4 - 2*a^3 -
        4*a^2 + 10*a + 6)*q^7 + (a^5 + a)*q^8 + a^5*q^9 + 1/11*(10*a^9 + 2*a^8 -
        3*a^7 + 4*a^6 + 6*a^5 + 6*a^4 + 4*a^3 - 3*a^2 + 2*a + 10)*q^11 + 
        1/11*(6*a^9 - 12*a^8 + 18*a^7 - 2*a^6 + 8*a^5 - 14*a^4 - 2*a^3 - 4*a^2 +
        10*a - 16)*q^14 + (-a^8 - a^4 - 1)*q^16 + 1/11*(10*a^9 - 20*a^8 + 8*a^7 
        - 18*a^6 + 6*a^5 - 16*a^4 + 4*a^3 - 14*a^2 + 24*a - 12)*q^22 + 
        1/11*(-16*a^9 + 10*a^8 - 4*a^7 + 9*a^6 - 14*a^5 + 8*a^4 - 2*a^3 + 18*a^2
        - 12*a + 6)*q^23 + a*q^25 + 1/11*(-16*a^9 + 10*a^8 - 4*a^7 + 9*a^6 - 
        14*a^5 + 8*a^4 - 2*a^3 + 18*a^2 - 12*a + 6)*q^28 + (-a^9 - a^7 + a^6 - 
        a^5 + a^4 - a^3 + a^2 - a + 1)*q^29 + (-a^9 + a^8 + a^6 - a^5 + a^4 + 
        a^2 - a)*q^32 - a^7*q^36 + (a^9 - a)*q^37 + 1/11*(-10*a^9 - 2*a^8 + 
        14*a^7 - 4*a^6 - 6*a^5 - 6*a^4 + 7*a^3 + 3*a^2 - 2*a - 10)*q^43 + 
        1/11*(-a^9 + 2*a^8 + 8*a^7 + 4*a^6 + 6*a^5 - 5*a^4 + 4*a^3 + 8*a^2 + 2*a
        - 12)*q^44 + 1/11*(6*a^9 + 10*a^8 - 4*a^7 - 2*a^6 - 14*a^5 + 8*a^4 - 
        2*a^3 - 4*a^2 - 12*a + 6)*q^46 + a^8*q^49 + (-a^5 + a^3)*q^53 + 
        1/11*(-5*a^9 + 10*a^8 - 4*a^7 - 2*a^6 - 3*a^5 + 8*a^4 - 2*a^3 - 4*a^2 - 
        12*a + 6)*q^56 + 1/11*(5*a^9 - 10*a^8 + 4*a^7 + 2*a^6 + 14*a^5 - 8*a^4 +
        2*a^3 + 4*a^2 + 12*a - 6)*q^63 + (a^8 - a^7 - a^5 + a^4 - a + 1)*q^64 + 
        1/11*(-a^9 + 13*a^8 - 25*a^7 - 7*a^6 - 5*a^5 + 17*a^4 - 18*a^3 - 3*a^2 -
        9*a + 21)*q^67 + (-a^9 + 2*a^8 - 2*a^5 + a^4 - 2*a)*q^71 + (a^9 - a^8 + 
        a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^72 + (-a^6 - 1)*q^77 + 
        1/11*(10*a^9 - 9*a^8 + 8*a^7 - 7*a^6 + 6*a^5 - 16*a^4 + 4*a^3 - 14*a^2 +
        2*a - 12)*q^79 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^81 + 1/11*(-10*a^9 + 20*a^8 - 8*a^7 - 4*a^6 - 6*a^5 + 16*a^4 - 
        4*a^3 + 14*a^2 - 24*a + 12)*q^86 + 1/11*(-12*a^9 + 13*a^8 - 3*a^7 + 
        4*a^6 - 16*a^5 + 6*a^4 - 7*a^3 + 8*a^2 - 9*a + 10)*q^88 + 1/11*(6*a^9 - 
        a^8 - 4*a^7 - 2*a^6 + 8*a^5 + 8*a^4 - 2*a^3 - 4*a^2 + 10*a + 6)*q^92 + 
        1/11*(12*a^9 - 2*a^8 + 3*a^7 - 4*a^6 + 16*a^5 - 6*a^4 - 4*a^3 - 8*a^2 + 
        9*a - 10)*q^99 - a^3*q^100 + 1/11*(a^9 - 13*a^8 + 14*a^7 + 7*a^6 + 5*a^5
        - 17*a^4 + 7*a^3 + 3*a^2 + 9*a - 21)*q^107 + (-a^7 - 1)*q^109 + 
        1/11*(6*a^9 - a^8 - 4*a^7 - 2*a^6 + 8*a^5 - 3*a^4 - 2*a^3 - 4*a^2 - a + 
        6)*q^112 + (a^7 + a^6)*q^113 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 
        - a^2 - 1)*q^116 + (-a^9 + a^4 - a^3)*q^121 + 1/11*(-6*a^9 - 10*a^8 + 
        4*a^7 + 2*a^6 - 8*a^5 - 8*a^4 + 2*a^3 + 4*a^2 - 10*a - 6)*q^126 + (2*a^8
        - a^5 + a^4 - 2*a)*q^127 + (a^9 - a^8 - a^6 + a^5 - a^2 + a)*q^128 + 
        1/11*(32*a^9 - 20*a^8 + 8*a^7 + 4*a^6 + 28*a^5 - 16*a^4 + 4*a^3 - 14*a^2
        + 24*a - 12)*q^134 + (-a^9 - a^2)*q^137 + (2*a^8 - 2*a^7 + 2*a^4 + 
        2)*q^142 + (-a^9 - a^5 + a^2)*q^144 + (a^3 + 1)*q^148 + (-a^5 - 
        a^4)*q^149 + (2*a^9 - a^8 - a^6 + 2*a^5 - 2*a^2 + 2*a)*q^151 + 
        1/11*(-12*a^9 + 2*a^8 + 8*a^7 + 4*a^6 + 6*a^5 + 6*a^4 + 4*a^3 + 8*a^2 + 
        2*a + 10)*q^158 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^161 + (-2*a^9 + 2*a^8 - 2*a^5 + 2*a^4 + a^2 - 2*a + 1)*q^163 - 
        a^3*q^169 + 1/11*(12*a^9 - 2*a^8 - 8*a^7 - 4*a^6 + 5*a^5 + 5*a^4 - 4*a^3
        - 8*a^2 - 2*a + 12)*q^172 + 1/11*(-6*a^9 - 10*a^8 + 4*a^7 + 2*a^6 + 
        3*a^5 - 8*a^4 + 2*a^3 + 4*a^2 + 12*a - 6)*q^175 + 1/11*(-a^9 + 13*a^8 - 
        14*a^7 + 4*a^6 - 5*a^5 + 6*a^4 - 7*a^3 + 8*a^2 - 9*a + 10)*q^176 + 
        (-2*a^8 - 2*a^4 + a - 1)*q^179 + O(q^182),
    q^2 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^4 + 1/11*(-6*a^9 -
        10*a^8 + 4*a^7 + 2*a^6 - 8*a^5 - 8*a^4 + 2*a^3 + 4*a^2 + 12*a - 6)*q^7 +
        (-a^9 + a^6 + a^2)*q^8 + 1/11*(12*a^9 - 24*a^8 + 14*a^7 - 4*a^6 + 16*a^5
        - 6*a^4 + 18*a^3 - 8*a^2 + 20*a - 10)*q^11 + 1/11*(-6*a^9 + 12*a^8 + 
        4*a^7 + 2*a^6 - 8*a^5 + 3*a^4 + 2*a^3 + 4*a^2 - 10*a - 6)*q^14 + (-a^9 +
        a^8 - a^5 - a)*q^16 + a^5*q^18 + 1/11*(-10*a^9 - 2*a^8 + 3*a^7 - 4*a^6 -
        6*a^5 - 6*a^4 - 4*a^3 + 3*a^2 - 2*a - 10)*q^22 + 1/11*(-6*a^9 + 12*a^8 -
        18*a^7 + 2*a^6 - 8*a^5 + 14*a^4 + 2*a^3 + 4*a^2 - 10*a + 16)*q^23 + 
        1/11*(-6*a^9 + 12*a^8 - 7*a^7 + 2*a^6 - 8*a^5 + 14*a^4 - 9*a^3 + 4*a^2 -
        10*a + 16)*q^28 + (a^8 - a^7 + a^4 - a + 1)*q^32 + (-a^8 - a^4)*q^36 + 
        1/11*(-12*a^9 + 24*a^8 - 14*a^7 + 4*a^6 - 16*a^5 + 28*a^4 - 18*a^3 + 
        8*a^2 - 20*a + 10)*q^43 + 1/11*(a^9 + 9*a^8 + 3*a^7 - 4*a^6 - 6*a^5 + 
        5*a^4 + 7*a^3 + 3*a^2 - 2*a + 1)*q^44 + 1/11*(16*a^9 - 10*a^8 + 4*a^7 - 
        9*a^6 + 14*a^5 - 8*a^4 + 2*a^3 - 18*a^2 + 12*a - 6)*q^46 + a*q^50 + 
        1/11*(5*a^9 + a^8 - 7*a^7 + 2*a^6 + 3*a^5 + 3*a^4 - 9*a^3 + 4*a^2 + a + 
        5)*q^56 + (-a^9 - a^7 + a^6 - a^5 + a^4 - a^3 + a^2 - a + 1)*q^58 + 
        1/11*(-16*a^9 + 10*a^8 - 4*a^7 + 20*a^6 - 14*a^5 + 8*a^4 - 2*a^3 + 
        18*a^2 - 12*a + 6)*q^63 + (a^9 - a^8 + a^5 - a^2 + a)*q^64 + 
        1/11*(12*a^9 - 24*a^8 - 8*a^7 - 4*a^6 + 16*a^5 - 28*a^4 - 4*a^3 - 8*a^2 
        + 20*a - 10)*q^67 + (2*a^9 - 2*a^6 + 2*a^5 - 2*a^2)*q^71 + (a^7 + a^3 - 
        1)*q^72 + (a^9 - a)*q^74 + 1/11*(12*a^9 - 2*a^8 + 14*a^7 - 4*a^6 - 6*a^5
        - 6*a^4 - 4*a^3 - 8*a^2 - 2*a - 10)*q^79 + 1/11*(10*a^9 + 2*a^8 - 14*a^7
        + 4*a^6 + 6*a^5 + 6*a^4 - 7*a^3 - 3*a^2 + 2*a + 10)*q^86 + 1/11*(a^9 + 
        9*a^8 - 8*a^7 - 4*a^6 + 5*a^5 + 5*a^4 - 4*a^3 + 3*a^2 - 2*a + 1)*q^88 + 
        1/11*(5*a^9 - 10*a^8 + 4*a^7 + 2*a^6 + 3*a^5 - 8*a^4 + 2*a^3 + 4*a^2 + 
        12*a - 6)*q^92 + a^8*q^98 + 1/11*(10*a^9 + 2*a^8 + 8*a^7 + 4*a^6 + 6*a^5
        - 16*a^4 + 4*a^3 + 8*a^2 + 2*a - 12)*q^99 + (-a^4 - 1)*q^100 + (-a^5 + 
        a^3)*q^106 + 1/11*(-12*a^9 + 24*a^8 + 8*a^7 + 4*a^6 - 16*a^5 + 6*a^4 + 
        4*a^3 + 8*a^2 - 20*a + 10)*q^107 + 1/11*(5*a^9 - 10*a^8 + 4*a^7 + 2*a^6 
        + 3*a^5 - 8*a^4 + 2*a^3 - 7*a^2 + a - 6)*q^112 + (a^9 + a^7 - a^2 - 
        1)*q^116 + 1/11*(-5*a^9 + 10*a^8 - 4*a^7 - 2*a^6 - 14*a^5 + 8*a^4 - 
        2*a^3 - 4*a^2 - 12*a + 6)*q^126 + (2*a^9 + 2*a^5 - 2*a^2)*q^127 + (-a^8 
        - a^4 + a - 1)*q^128 + 1/11*(a^9 - 13*a^8 + 25*a^7 + 7*a^6 + 5*a^5 - 
        17*a^4 + 18*a^3 + 3*a^2 + 9*a - 21)*q^134 + (a^9 - 2*a^8 + 2*a^5 - a^4 +
        2*a)*q^142 + (-a^9 + a^8 - a^7 - a^5 + a^4 - a + 1)*q^144 + (-a^8 + a^4 
        + a + 1)*q^148 + (-2*a^8 + 2*a^7 + 2*a^5 - 2*a^4 + 2*a - 2)*q^151 + 
        (-a^6 - 1)*q^154 + 1/11*(-10*a^9 + 9*a^8 - 8*a^7 + 7*a^6 - 6*a^5 + 
        16*a^4 - 4*a^3 + 14*a^2 - 2*a + 12)*q^158 + (a^9 - a^8 + a^7 - a^6 + a^5
        - a^4 + a^3 - a^2 + a - 1)*q^162 + (2*a^8 - 2*a^7 + 2*a^4 - 2*a^3 + 
        2)*q^163 + 1/11*(10*a^9 - 20*a^8 + 8*a^7 - 7*a^6 + 17*a^5 - 16*a^4 + 
        4*a^3 - 3*a^2 + 13*a - 12)*q^172 + 1/11*(-16*a^9 + 10*a^8 - 4*a^7 - 
        2*a^6 - 14*a^5 + 8*a^4 - 2*a^3 + 18*a^2 - 12*a + 6)*q^175 + 1/11*(a^9 - 
        2*a^8 - 8*a^7 + 7*a^6 - 6*a^5 - 6*a^4 - 4*a^3 + 3*a^2 - 2*a + 12)*q^176 
        + (-2*a^9 - 2*a^5 - 2*a)*q^179 + O(q^182)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
644
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
644
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
644
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
644
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^8*q^7 + (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*q^23 + a^2*q^25 + (-a^9 - a^5)*q^29 + (-a^7 + 
        a^2)*q^37 + (a^6 + a^4)*q^43 - a^5*q^49 + (a^9 - a^8 + a^7 + a^5 - a^4 +
        a^3 - a^2 + a - 1)*q^53 - a^7*q^63 + (-a^9 + a^6)*q^67 + (a^8 - 
        a^7)*q^71 + (-a + 1)*q^77 + (-a^5 - a)*q^79 - a^9*q^81 + (-a^3 + 
        a^2)*q^99 + (-a^9 - a^3)*q^107 + (-a^3 + 1)*q^109 + (-a^3 - a)*q^113 + 
        (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^7 + a^4)*q^137 + (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^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^175 + (a^2 + 1)*q^179 + O(q^182),
    q^2 - a^4*q^8 + a^8*q^14 + (-a^9 + a^8 - a^7 + a^6 - a^5 + 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^8 + a^5 - 1)*q^32 - a*q^46 + a^2*q^50 + a*q^56 + 
        (-a^9 - a^5)*q^58 + (a^9 - a^6 + a^3 - 1)*q^64 + a^3*q^72 + (-a^7 + 
        a^2)*q^74 + (a^6 + a^4)*q^86 + (-a^8 + a^7)*q^88 - a^5*q^98 + (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^4 - a^3 + a^2 - a + 1)*q^112 - a^7*q^126 + (a^9 + a^7 - a^6 - a^4 + 
        a)*q^128 + (-a^9 + a^6)*q^134 + (a^8 - a^7)*q^142 + (a^9 + a)*q^144 + 
        (-a + 1)*q^154 + (-a^5 - a)*q^158 - a^9*q^162 + (-a^6 + a^5 + a^3 - 
        a^2)*q^176 + O(q^182),
    q^4 + (-a^9 + a^6)*q^8 + (-a^7 + a^4 - a)*q^16 + a^8*q^28 + (a^9 - a^8 - a^6
        - a^4 + a^3 + a - 1)*q^32 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^36 + (a^4 - a^3)*q^44 + (a^6 - a^3)*q^56 + (a^8 - a^5 - 
        a^3 + a^2 + 1)*q^64 + (a^8 - a^5)*q^72 + (-a^8 + a^7 - a^6 + a^5 - a^4 +
        a^3 - 1)*q^88 - a*q^92 + a^2*q^100 + (-a^9 + a^4 - a)*q^112 + (-a^9 - 
        a^5)*q^116 + (-a^9 + a^8 + a^6 - a^3 - a + 1)*q^128 + (a^6 - a^3 + 
        1)*q^144 + (-a^7 + a^2)*q^148 + (a^6 + a^4)*q^172 + (a^9 - a^6 + a^3 - 
        a^2 + a)*q^176 + O(q^182)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
644
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
182
;
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 + O(q^182),
    q^2 - q^6 - q^8 + q^16 + q^24 - q^26 + q^46 - q^48 + q^50 + q^54 - q^58 - 
        q^62 - q^64 + q^78 - q^82 - q^94 + q^98 + q^104 + 2*q^118 + q^128 - 
        q^138 - q^142 - q^146 - q^150 - q^162 + q^174 + O(q^182),
    q^4 - q^8 - q^12 + q^24 + q^32 - q^52 - q^64 + q^92 - q^96 + q^100 + q^104 +
        q^108 - q^116 - q^124 + q^156 - q^164 + O(q^182),
    q^7 - q^21 - q^91 + q^161 + q^175 + O(q^182),
    q^14 - q^42 - q^56 + q^112 + q^168 + O(q^182),
    q^28 - q^56 - q^84 + q^168 + O(q^182)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
644
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
644
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
644
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^18 - q^29 + q^49 - q^50 - q^58 + q^64 - q^72 - q^77 - 
        q^85 - q^93 - q^105 - q^116 + q^121 - q^141 - q^154 + q^161 + q^162 + 
        q^169 + q^170 + q^177 + O(q^182),
    q^2 + q^8 - q^9 - q^25 - q^29 + q^32 - q^36 - q^58 - q^77 + q^81 + q^85 + 
        q^93 + q^98 - q^100 + q^105 - q^116 + 2*q^121 + q^128 + q^141 - q^144 - 
        q^154 - q^170 - q^177 + O(q^182),
    q^3 - q^6 + q^12 - q^24 - q^31 - q^35 - q^47 + q^48 + q^59 + q^62 + q^70 + 
        q^75 + q^94 - q^96 - q^115 - q^118 + q^119 - q^124 - q^131 + q^139 - 
        q^140 + q^147 - q^150 - q^167 + O(q^182),
    q^5 - q^10 - q^17 + q^20 - q^21 + q^34 - q^40 + q^42 + q^45 + q^61 - q^68 - 
        q^69 + q^80 - q^84 - q^89 - q^90 + q^97 - q^122 + 2*q^129 + q^136 + 
        q^138 - q^153 - q^157 - q^160 + q^168 + q^178 + q^180 - q^181 + 
        O(q^182),
    q^7 - q^14 - 2*q^15 + q^23 + q^28 + 2*q^30 - 2*q^43 - q^46 + 2*q^51 - q^56 -
        2*q^60 + q^63 + 2*q^86 + q^92 - 2*q^102 - 2*q^107 + q^112 + 2*q^120 - 
        q^126 + 2*q^155 - 2*q^172 + q^175 + O(q^182),
    q^11 - q^14 - q^15 + q^22 + q^30 - 2*q^43 + q^44 - q^46 + q^51 - q^56 - q^60
        + q^63 + q^67 + q^79 + q^88 - q^99 - q^102 - 2*q^107 + q^120 + q^134 + 
        q^155 + q^158 - 2*q^172 + q^175 + q^176 + O(q^182)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 - a^5*q^4 + (a^4 - a^3)*q^7 + 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^5 + a^4)*q^21 - a*q^25 - a^3*q^27 + (a^2 - a)*q^28 +
        (-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 + (a^5 - a^4 + a^3 - a^2)*q^49 + (a^4 + 1)*q^52 + (-a^5 + 
        1)*q^57 + (a^5 - a^4 - a^2 + a - 1)*q^61 + (-a^4 + a^3 - a^2 + a - 
        1)*q^63 - 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^3 + a^2)*q^84 + (-a^4 + 
        a - 1)*q^91 + (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^5 - a^4
        + a^3 - a^2 + a)*q^112 + (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^3 + a^2 - a + 1)*q^133 +
        (-a^5 - a)*q^139 - a^5*q^144 + (a^2 - a + 1)*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 + O(q^170),
    q^5 - a*q^15 - a^5*q^20 + (a^4 - a^3)*q^35 + a^2*q^45 + (a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^60 + (a^5 - a^4 + a^3 + a - 1)*q^65 - a^3*q^80 + (a^5 + 
        a^3 - a^2 + a - 1)*q^95 + (-a^5 + a^4)*q^105 - a*q^125 - a^3*q^135 + 
        (a^2 - a)*q^140 + (-a^5 + 1)*q^155 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
645
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^14 - q^21 - q^24 + q^25 - q^41 + q^49 + q^56 - q^59 + q^60 + q^66 + 
        q^74 - q^90 - q^99 + q^110 - q^124 + q^126 - q^139 - q^140 + q^144 - 
        q^154 - q^160 + q^164 + q^169 + O(q^170),
    q^2 + q^8 - q^18 - q^20 - q^22 + q^30 + q^33 + q^37 - q^42 - q^48 + q^50 + 
        q^55 - q^62 + q^63 - q^70 - q^73 - q^77 - q^80 + q^82 - 2*q^88 - q^93 - 
        q^105 + q^108 + q^112 + q^118 + q^132 - q^137 + q^147 + 2*q^148 - q^157 
        - q^158 + q^163 + O(q^170),
    q^3 + q^30 + q^33 - 2*q^42 - q^45 - q^48 + q^75 - q^93 - q^105 - q^108 - 
        q^123 + q^132 + 2*q^147 + q^162 + q^168 + O(q^170),
    q^4 - q^31 - q^35 - q^36 - q^40 + q^41 - q^44 + q^54 + q^59 + q^74 + q^81 + 
        q^100 - q^101 - q^109 + q^110 + q^121 - q^135 + q^139 - q^146 - q^154 + 
        O(q^170),
    q^5 + q^22 - q^28 + q^30 - q^32 + q^33 - q^42 + q^43 - q^45 - q^48 - q^62 + 
        q^63 - q^70 + q^72 - q^73 - q^77 - q^93 + q^98 - q^105 - q^108 + q^112 +
        q^125 + q^128 + q^132 - q^137 + q^147 - q^157 + q^158 + q^162 + 
        O(q^170),
    q^6 - q^21 - q^36 + q^81 + q^111 - q^135 + q^150 + q^165 + O(q^170),
    q^7 + q^8 - q^20 - q^22 + q^30 + q^33 - q^42 - q^48 - q^73 + q^82 - q^88 - 
        q^93 - q^98 - q^105 + q^113 + q^118 + q^132 - q^137 + q^147 + q^148 + 
        q^155 - q^157 - q^158 + O(q^170),
    q^9 - q^21 - q^24 + q^60 + q^66 + q^81 - q^90 - q^99 - q^135 + q^144 + 
        O(q^170),
    q^10 + q^11 - q^14 - q^16 - q^31 - q^35 + q^44 + q^49 + q^79 + q^81 + q^86 -
        q^90 - q^99 - q^101 - q^109 + q^126 + q^144 - q^154 - q^164 + O(q^170),
    q^12 - q^18 - q^30 - q^33 + q^42 + q^45 + q^48 - q^72 + q^108 - q^120 + 
        q^123 - 2*q^132 - q^147 + O(q^170),
    q^15 - q^21 - q^24 + q^36 - q^54 + q^60 + 2*q^66 - q^84 - q^90 - q^96 - q^99
        + q^126 + q^129 + q^144 + O(q^170),
    q^27 - q^30 - q^33 + q^42 + q^48 - q^63 - q^72 + q^93 + q^105 - q^132 - 
        q^147 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
646
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
646
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
646
);
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:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
646
);
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:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
646
);
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(
18
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
646
);
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(
144
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
646
);
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:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
646
);
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:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
646
);
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:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
646
);
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(
6
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
646
);
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:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
646
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*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(
646
);
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(
8
);
qprec:=
174
;
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 + O(q^174),
    q^2 - a^2*q^8 + (a - 1)*q^10 + (-a^2 - a)*q^14 + a*q^18 + (-a^3 + 1)*q^22 - 
        q^32 + a^3*q^34 + a^3*q^38 + (-a^3 + a^2)*q^40 + (a^2 - a)*q^46 + (a^2 -
        a + 1)*q^50 + (a^3 - 1)*q^56 + (-a^3 + a)*q^70 - a^3*q^72 + (-a^2 - 
        a)*q^88 + (a^2 - a)*q^90 + (a^3 + a)*q^94 + (a^3 + a^2 - 1)*q^98 + (a^3 
        + a)*q^110 + (-a^3 - 1)*q^122 + (-a^3 - a^2)*q^126 + a^2*q^128 + a*q^136
        + (-a + 1)*q^146 + a*q^152 + (-a^2 - 2*a - 1)*q^154 + (-a + 1)*q^160 + 
        a^2*q^162 + (-a^2 + 1)*q^166 + (-a^3 - 1)*q^170 + O(q^174)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
646
);
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(
4
);
qprec:=
174
;
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 + O(q^174),
    q^2 - q^8 + (a + 1)*q^10 + (a - 1)*q^14 + a*q^18 + (-a + 1)*q^22 + q^32 - 
        a*q^34 - a*q^38 + (-a - 1)*q^40 + (a - 1)*q^46 + a*q^50 + (-a + 1)*q^56 
        - 2*q^70 - a*q^72 - 2*a*q^86 + (a - 1)*q^88 + (a - 1)*q^90 - a*q^98 + 
        2*q^110 + (-a + 1)*q^122 + (-a - 1)*q^126 - q^128 + a*q^136 + (a + 
        1)*q^146 + a*q^152 + 2*a*q^154 + (a + 1)*q^160 - q^162 + (-a + 1)*q^170 
        + O(q^174)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
646
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + 9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
174
;
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 + O(q^174),
    q^2 + q^8 - q^18 + q^32 - q^34 - q^38 + q^50 - q^72 - 2*q^86 - 2*q^94 + q^98
        + q^128 - q^136 - q^152 + q^162 + 2*q^166 + O(q^174)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
647
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
646
);
qprec:=
108
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
647
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
17*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
38
);
qprec:=
108
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
647
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
19*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
34
);
qprec:=
108
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
647
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
323*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
108
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^13 + q^16 + q^17 - q^21 + q^25 - q^26 - q^28 - q^31 + q^39 - q^41 + 
        q^49 - q^52 + q^54 - q^56 - q^58 - q^63 + q^64 - q^72 - q^78 - q^79 - 
        q^83 + q^87 + q^91 - q^93 - q^96 + q^98 - q^102 + q^106 - q^107 + 
        O(q^108),
    q^2 + q^18 - q^21 - q^24 - q^34 - q^43 + q^50 - q^63 - q^78 + q^81 + q^87 + 
        q^91 + q^98 + O(q^108),
    q^3 - q^16 - q^17 + q^28 + q^29 - q^32 - q^34 - q^49 - q^53 + q^56 + q^58 + 
        q^62 + q^67 + q^75 - q^86 - q^91 + q^97 + q^104 + O(q^108),
    q^4 - q^13 - q^17 - q^18 + q^21 + q^31 - q^39 + q^41 - q^54 + q^58 + q^63 + 
        q^78 - q^87 - q^91 + q^93 - q^98 + q^100 - q^104 - q^106 + q^107 + 
        O(q^108),
    q^6 - q^13 - q^16 - q^17 - q^18 + q^21 + q^24 + q^28 + q^29 + q^31 - q^36 - 
        q^48 - q^51 + q^58 + q^62 - q^64 + q^67 - q^68 + q^78 - q^86 - q^87 - 
        q^91 + q^96 + q^97 - q^98 - q^106 + q^107 + O(q^108),
    q^7 - q^13 - q^16 - q^17 - q^18 + q^21 + q^24 + q^26 + q^28 + q^31 - q^39 - 
        q^48 - q^51 - q^54 + q^58 + q^62 + q^63 - q^64 - q^68 + q^72 + q^78 - 
        q^86 - q^87 - q^91 + q^93 + q^96 - q^98 + q^102 - q^106 + q^107 + 
        O(q^108),
    q^8 - q^13 - q^16 - q^17 - q^18 + 2*q^21 + q^24 + q^31 + q^32 + q^34 - q^36 
        - q^39 - q^42 + q^43 - q^48 - q^51 - q^54 + q^58 + q^63 - q^64 - q^68 + 
        q^72 + 2*q^78 + q^82 + q^84 - q^86 - q^87 - q^91 + q^96 - q^98 + q^102 -
        q^104 - q^106 + q^107 + O(q^108),
    q^9 - q^13 - q^16 - q^17 + q^21 + q^26 + q^28 + q^31 - q^39 - q^42 - q^48 - 
        q^51 + q^52 - q^54 + q^56 + q^58 - q^64 - q^68 + q^72 + q^78 + q^79 + 
        q^81 + q^83 - q^86 - q^87 - q^91 + q^96 - q^98 + q^102 - q^106 + q^107 +
        O(q^108),
    q^12 - q^13 - q^18 + q^21 + q^31 - q^36 - q^51 + q^58 + q^78 - q^87 - q^104 
        + q^107 + O(q^108),
    q^14 - q^16 - q^17 + q^21 + q^31 - q^39 - q^42 + q^52 - q^54 + q^56 + q^58 -
        q^64 - q^68 + q^72 + q^78 + q^84 - q^86 - q^91 - q^98 - q^106 + q^107 + 
        O(q^108),
    q^27 - q^28 - q^29 + q^32 + q^34 - q^39 - q^42 + q^49 + q^53 - q^62 - q^67 +
        q^78 + q^84 - q^97 - q^104 + O(q^108)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
648
);
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:=
[]
;
Bo:=
[
    q - q^13 - q^37 + q^49 - q^61 - q^73 + q^85 + 2*q^97 - q^109 + q^121 + q^145
        - q^157 + O(q^170),
    q^2 + q^8 - q^20 - q^26 + q^32 - q^68 - q^74 - q^80 + q^98 - q^104 - q^116 -
        q^122 + q^128 - q^146 + 2*q^164 + O(q^170),
    q^4 - q^10 + q^16 - q^34 - q^40 - q^52 - q^58 + q^64 + 2*q^82 + 2*q^106 + 
        q^130 - q^136 - q^148 - q^160 + O(q^170),
    q^5 + q^17 + q^29 - 2*q^41 - 2*q^53 - q^65 + q^89 - 2*q^101 + q^113 - q^125 
        + q^137 + q^149 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
648
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^19 - q^22 + q^25 - q^34 - q^43 + q^49 + q^64 - q^67 - 
        q^73 - q^76 - q^82 - q^88 - q^97 + q^100 - q^118 - q^136 - q^139 + 
        2*q^163 + 2*q^166 + q^169 + O(q^170),
    q^2 + q^8 - q^11 - q^17 + q^32 - q^38 - q^41 - q^44 + q^50 - q^59 - q^68 + 
        2*q^83 - q^86 + 2*q^89 + q^98 - q^107 + 2*q^113 + q^128 + 2*q^131 - 
        q^134 - q^137 - q^146 - q^152 - q^164 + O(q^170)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
648
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
648
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
648
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
648
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + (a^13 - a^4)*q^3 + a^2*q^4 + (-a^14 + a^5)*q^6 - a^3*q^8 - 
        a^17*q^9 + (-a^15 - a^11)*q^11 + (a^15 - a^6)*q^12 + a^4*q^16 + (-a^16 +
        a^14 + a^7)*q^17 + (a^9 - 1)*q^18 + (a^8 - a^7)*q^19 + (a^16 + 
        a^12)*q^22 + (-a^16 + a^7)*q^24 + (-a^10 + a)*q^25 + a^12*q^27 - 
        a^5*q^32 + (a^10 + a^6)*q^33 + (a^17 - a^15 - a^8)*q^34 + (-a^10 + 
        a)*q^36 + (-a^9 + a^8)*q^38 + (-a^12 + a^4 + a^3)*q^41 + (-a^14 - a^12 +
        a^5 + a^3)*q^43 + (-a^17 - a^13)*q^44 + (a^17 - a^8)*q^48 - a^5*q^49 + 
        (a^11 - a^2)*q^50 + (a^11 - a^9 - a^2)*q^51 - a^13*q^54 + (-a^3 + 
        a^2)*q^57 + (a^10 + a^9 - 1)*q^59 + a^6*q^64 + (-a^11 - a^7)*q^66 + (a^6
        - a)*q^67 + (a^16 + 1)*q^68 + (a^11 - a^2)*q^72 + (-a^13 + a^11 - 
        a^2)*q^73 + a^14*q^75 + (a^10 - a^9)*q^76 - a^7*q^81 + (a^13 - a^5 - 
        a^4)*q^82 + (a^16 - a^13)*q^83 + (a^15 + a^13 - a^6 - a^4)*q^86 + (a^14 
        + a^9 - 1)*q^88 + (a^15 - a^9 - a^6)*q^89 + q^96 + (a^15 - a^11 - 
        a^6)*q^97 + a^6*q^98 + (-a^5 - a)*q^99 + (-a^12 + a^3)*q^100 + (-a^12 + 
        a^10 + a^3)*q^102 + (a^17 - a^10 - a^8 + a)*q^107 + a^14*q^108 + (a^8 + 
        a^2)*q^113 + (a^4 - a^3)*q^114 + (-a^11 - a^10 + a)*q^118 + (a^17 + a^13
        - a^8 - a^4 - a^3)*q^121 + (a^17 + a^16 - a^8)*q^123 - a^7*q^128 + (a^16
        + a^9 - 1)*q^129 + (-a^17 - a^14 + a^5)*q^131 + (a^12 + a^8)*q^132 + 
        (-a^7 + a^2)*q^134 + (-a^17 - a)*q^136 + (a^17 + a^12 - a^8)*q^137 + 
        (a^9 + a^4 - 1)*q^139 + (-a^12 + a^3)*q^144 + (a^14 - a^12 + a^3)*q^146 
        + q^147 - a^15*q^150 + (-a^11 + a^10)*q^152 + (-a^15 + a^4)*q^153 + 
        a^8*q^162 + (a^15 - a^6 - a^3)*q^163 + (-a^14 + a^6 + a^5)*q^164 + 
        (-a^17 + a^14)*q^166 + a^16*q^169 + O(q^170)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
648
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
648
);
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(
18
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
648
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
648
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^2 + a^2*q^4 + a^3*q^8 + (-a^3 - a^2 + 1)*q^11 + a^4*q^16 + (a^5 + 
        a^4 - a)*q^17 + (a^5 - a^4 - a^2 + a)*q^19 + (-a^4 - a^3 + a)*q^22 - 
        a*q^25 + a^5*q^32 + (a^5 + a^3 - a^2 - 1)*q^34 + (-a^5 + a^2 - 1)*q^38 +
        (-a^4 + a^3)*q^41 + (-a^5 - a^3)*q^43 + (-a^5 - a^4 + a^2)*q^44 - 
        a^5*q^49 - a^2*q^50 + (a - 1)*q^59 + (a^3 - 1)*q^64 + (a^3 - a - 1)*q^67
        + (a^4 - a - 1)*q^68 + (a^4 + a^2)*q^73 + (-a + 1)*q^76 + (-a^5 + 
        a^4)*q^82 - a*q^83 + (-a^4 - a^3 + 1)*q^86 + (-a^5 + 1)*q^88 - a^3*q^89 
        + (a^3 + a^2 - 1)*q^97 + (-a^3 + 1)*q^98 - a^3*q^100 + (-a^5 + a^2 + 
        a)*q^107 - a^5*q^113 + (a^2 - a)*q^118 + (a^5 + a^4 - a^3 - a^2)*q^121 +
        (a^4 - a)*q^128 + a^2*q^131 + (a^4 - a^2 - a)*q^134 + (a^5 - a^2 - 
        a)*q^136 + (-a^5 + a^3 + a^2)*q^137 + (a^4 + 1)*q^139 + (a^5 + 
        a^3)*q^146 + (-a^2 + a)*q^152 - q^163 + (a^5 - a^3 + 1)*q^164 - 
        a^2*q^166 + (-a^4 + a)*q^169 + O(q^170)
]
;
Bo:=
[
    q - a*q^2 + a^2*q^4 - a^3*q^8 + (a^3 + a^2 - 1)*q^11 + a^4*q^16 + (-a^5 - 
        a^4 + a)*q^17 + (a^5 - a^4 - a^2 + a)*q^19 + (-a^4 - a^3 + a)*q^22 - 
        a*q^25 - a^5*q^32 + (a^5 + a^3 - a^2 - 1)*q^34 + (a^5 - a^2 + 1)*q^38 + 
        (a^4 - a^3)*q^41 + (-a^5 - a^3)*q^43 + (a^5 + a^4 - a^2)*q^44 - a^5*q^49
        + a^2*q^50 + (-a + 1)*q^59 + (a^3 - 1)*q^64 + (a^3 - a - 1)*q^67 + (-a^4
        + a + 1)*q^68 + (a^4 + a^2)*q^73 + (-a + 1)*q^76 + (-a^5 + a^4)*q^82 + 
        a*q^83 + (a^4 + a^3 - 1)*q^86 + (-a^5 + 1)*q^88 + a^3*q^89 + (a^3 + a^2 
        - 1)*q^97 + (a^3 - 1)*q^98 - a^3*q^100 + (a^5 - a^2 - a)*q^107 + 
        a^5*q^113 + (a^2 - a)*q^118 + (a^5 + a^4 - a^3 - a^2)*q^121 + (-a^4 + 
        a)*q^128 - a^2*q^131 + (-a^4 + a^2 + a)*q^134 + (a^5 - a^2 - a)*q^136 + 
        (a^5 - a^3 - a^2)*q^137 + (a^4 + 1)*q^139 + (-a^5 - a^3)*q^146 + (a^2 - 
        a)*q^152 - q^163 + (-a^5 + a^3 - 1)*q^164 - a^2*q^166 + (-a^4 + a)*q^169
        + O(q^170),
    q^3 - a*q^6 + a^4*q^9 + a^2*q^12 - a^5*q^18 - a^3*q^24 + (a^5 - a^2)*q^27 + 
        (a^3 + a^2 - 1)*q^33 + (a^3 - 1)*q^36 + a^4*q^48 + (-a^5 - a^4 + a)*q^51
        + q^54 + (a^5 - a^4 - a^2 + a)*q^57 + (-a^4 - a^3 + a)*q^66 + (-a^4 + 
        a)*q^72 - a*q^75 - a^3*q^81 - a^5*q^96 + (a^3 - a - 1)*q^99 + (a^5 + a^3
        - a^2 - 1)*q^102 - a*q^108 + (a^5 - a^2 + 1)*q^114 + (a^4 - a^3)*q^123 +
        (-a^5 - a^3)*q^129 + (a^5 + a^4 - a^2)*q^132 + (a^5 - a^2)*q^144 - 
        a^5*q^147 + a^2*q^150 + (a^2 + 1)*q^153 + a^4*q^162 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
648
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^7 + a*q^13 - q^19 + (a - 1)*q^25 - 2*a*q^31 - q^37 + (2*a - 
        2)*q^43 + (-a + 1)*q^61 + a*q^67 - q^73 + (-a + 1)*q^79 + q^91 + (-a + 
        1)*q^97 + a*q^103 + 2*q^109 - a*q^121 + 2*q^127 + (a - 1)*q^133 + 
        a*q^139 + (-a + 1)*q^151 - 2*a*q^157 - q^163 + O(q^170),
    q^2 + (-a + 1)*q^14 + a*q^26 - q^38 + (a - 1)*q^50 - 2*a*q^62 - q^74 + (2*a 
        - 2)*q^86 + (-a + 1)*q^122 + a*q^134 - q^146 + (-a + 1)*q^158 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
648
);
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(
6
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (-a + 1)*q^7 - q^10 + (a - 1)*q^16 + a*q^22 - q^28 + a*q^31 + 
        a*q^40 + q^55 - 2*a*q^58 + q^64 + (a - 1)*q^70 - q^73 + (2*a - 2)*q^79 +
        (-a + 1)*q^88 + (-a + 1)*q^97 - 2*a*q^103 + (-a + 1)*q^106 + a*q^112 + 
        2*q^118 + (-a + 1)*q^124 - q^127 - 2*q^145 + (-a + 1)*q^151 + q^154 + 
        (-a + 1)*q^160 + a*q^166 + (a - 1)*q^169 + O(q^170),
    q^2 + (-a + 1)*q^5 - a*q^8 - q^11 + (-a + 1)*q^14 - q^20 + 2*q^29 + (a - 
        1)*q^32 - a*q^35 + a*q^44 + a*q^53 - q^56 + (2*a - 2)*q^59 + a*q^62 + (a
        - 1)*q^77 + a*q^80 - q^83 - q^101 + a*q^107 + q^110 - 2*a*q^116 - 
        a*q^125 + q^128 + (-a + 1)*q^131 + (a - 1)*q^140 - q^146 + (-a + 
        1)*q^149 + q^155 + (2*a - 2)*q^158 + O(q^170)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
648
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^13 - q^37 + (a - 1)*q^49 + a*q^61 - q^73 + (a - 1)*q^85 - 
        2*a*q^97 - q^109 + (a - 1)*q^121 + q^145 + (-a + 1)*q^157 + O(q^170),
    q^2 + (a - 1)*q^8 - q^20 + (-a + 1)*q^26 - a*q^32 + a*q^68 - q^74 + (-a + 
        1)*q^80 + (a - 1)*q^98 + a*q^104 + (-a + 1)*q^116 + a*q^122 + q^128 - 
        q^146 + 2*q^164 + O(q^170),
    q^4 + a*q^10 + (a - 1)*q^16 + (-a + 1)*q^34 - q^40 + (-a + 1)*q^52 - q^58 - 
        a*q^64 - 2*a*q^82 + (2*a - 2)*q^106 + q^130 + a*q^136 - q^148 + (-a + 
        1)*q^160 + O(q^170),
    q^5 - a*q^17 + (a - 1)*q^29 - 2*q^41 + 2*a*q^53 + (-a + 1)*q^65 - a*q^89 + 
        (-2*a + 2)*q^101 + q^113 + a*q^125 + (a - 1)*q^137 + q^149 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
648
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^4 - a*q^16 - q^19 + (-a + 1)*q^22 - a*q^25 + a*q^34 + a*q^43 +
        (a - 1)*q^49 + q^64 + (-a + 1)*q^67 - q^73 + (-a + 1)*q^76 - q^82 + 
        a*q^88 + a*q^97 + q^100 - q^118 - q^136 + (-a + 1)*q^139 + 2*q^163 + 
        (2*a - 2)*q^166 - a*q^169 + O(q^170),
    q^2 + (a - 1)*q^8 - q^11 + (-a + 1)*q^17 - a*q^32 - q^38 + a*q^41 + (-a + 
        1)*q^44 - a*q^50 + a*q^59 + a*q^68 + 2*q^83 + a*q^86 + (2*a - 2)*q^89 + 
        (a - 1)*q^98 + (-a + 1)*q^107 - 2*a*q^113 + q^128 - 2*a*q^131 + (-a + 
        1)*q^134 - q^137 - q^146 + (-a + 1)*q^152 - q^164 + O(q^170),
    q^3 + (a - 1)*q^12 - a*q^48 - q^57 + (-a + 1)*q^66 - a*q^75 + a*q^102 + 
        a*q^129 + (a - 1)*q^147 + O(q^170),
    q^6 + (a - 1)*q^24 - q^33 + (-a + 1)*q^51 - a*q^96 - q^114 + a*q^123 + (-a +
        1)*q^132 - a*q^150 + O(q^170),
    q^9 - a*q^18 - a*q^27 + (a - 1)*q^36 + (a - 1)*q^54 + q^72 + (a - 1)*q^81 + 
        a*q^99 + q^108 - a*q^144 - q^153 + q^162 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
648
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^7 - q^13 - q^19 + q^25 + 2*q^31 - q^37 + 2*q^43 - q^61 - q^67 - q^73 -
        q^79 + q^91 - q^97 - q^103 + 2*q^109 + q^121 + 2*q^127 + q^133 - q^139 -
        q^151 + 2*q^157 - q^163 + O(q^170),
    q^2 - q^14 - q^26 - q^38 + q^50 + 2*q^62 - q^74 + 2*q^86 - q^122 - q^134 - 
        q^146 - q^158 + O(q^170),
    q^3 - q^21 - q^39 - q^57 + q^75 + 2*q^93 - q^111 + 2*q^129 + O(q^170),
    q^6 - q^42 - q^78 - q^114 + q^150 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
648
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 27*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^7 - q^10 + q^16 - q^22 - q^28 - q^31 - q^40 + q^55 + 2*q^58 + 
        q^64 + q^70 - q^73 + 2*q^79 - q^88 - q^97 + 2*q^103 - q^106 - q^112 + 
        2*q^118 - q^124 - q^127 - 2*q^145 - q^151 + q^154 - q^160 - q^166 + 
        q^169 + O(q^170),
    q^2 - q^5 + q^8 - q^11 - q^14 - q^20 + 2*q^29 + q^32 + q^35 - q^44 - q^53 - 
        q^56 + 2*q^59 - q^62 + q^77 - q^80 - q^83 - q^101 - q^107 + q^110 + 
        2*q^116 + q^125 + q^128 - q^131 + q^140 - q^146 - q^149 + q^155 + 
        2*q^158 + O(q^170),
    q^3 + q^12 - q^21 - q^30 + q^48 - q^66 - q^84 - q^93 - q^120 + q^165 + 
        O(q^170),
    q^6 - q^15 + q^24 - q^33 - q^42 - q^60 + 2*q^87 + q^96 + q^105 - q^132 - 
        q^159 - q^168 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
649
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
649
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
649
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
58
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
649
);
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(
290
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
649
);
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(
290
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
649
);
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(
58
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^7 + a^6)*q^3 + a^2*q^4 + (a^26 - a^15)*q^5 + (a^14 - a^13 + 
        a^12)*q^9 - a^25*q^11 + (-a^9 + a^8)*q^12 + (a^22 - a^21 + a^4 - 
        a^3)*q^15 + a^4*q^16 + (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^20 + (-a^17 - 
        a^13)*q^23 + (-a^23 + a^12 - a)*q^25 + (-a^21 + a^20 - a^19 + a^18)*q^27
        + (a^24 + a^16)*q^31 + (-a^3 + a^2)*q^33 + (a^16 - a^15 + a^14)*q^36 + 
        (a^18 - a^5)*q^37 - a^27*q^44 + (-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^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a)*q^45 + (a^26 + a^20)*q^47 +
        (-a^11 + a^10)*q^48 - a^7*q^49 + (a^10 - a^5)*q^53 + (a^22 - a^11)*q^55 
        - a^25*q^59 + (a^24 - a^23 + a^6 - a^5)*q^60 + a^6*q^64 + (-a^27 + 
        a^8)*q^67 + (a^24 - a^23 + a^20 - a^19)*q^69 + (a^16 - a)*q^71 + (-a^19 
        + a^18 + a^8 - a^7 - a + 1)*q^75 + (-a^19 - a)*q^80 + (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^81 + (a^22 - a^5)*q^89 + (-a^19 - a^15)*q^92 + (-a^23 + a^22 + a^2 
        - a)*q^93 + (-a^11 - a^9)*q^97 + (a^10 - a^9 + a^8)*q^99 + (-a^25 + a^14
        - a^3)*q^100 + (-a^17 + a^8)*q^103 + (-a^23 + a^22 - a^21 + a^20)*q^108 
        + (-a^25 + a^24 + a^12 - a^11)*q^111 + (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^113 + (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^13 - a^12 + a^11 + a^9 - a^8 + a^7 - a^6
        + a^5 - a^4 - a^2 + a - 1)*q^115 + O(q^118)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
649
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
29*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 + q^4 - q^5 - q^7 - q^12 + q^15 + q^16 + 2*q^17 - q^19 - q^20 + q^21
        + q^27 - q^28 - q^29 + q^35 - q^41 - q^48 - 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 + q^84 - 
        2*q^85 + q^87 + q^95 - q^105 - q^107 + q^108 - q^112 - q^116 + O(q^118),
    q^11 - q^33 + q^44 - q^55 - q^77 + O(q^118)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
649
);
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(
10
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
650
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
650
);
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:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
650
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
650
);
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:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
650
);
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:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
650
);
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(
12
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
650
);
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:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
650
);
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(
12
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
650
);
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:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
650
);
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(
20
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
650
);
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(
20
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
650
);
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(
4
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
650
);
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:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
650
);
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(
12
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^2 - 1)*q^6 - a^2*q^11 - a^3*q^14 - a^2*q^16 + a*q^19 - q^21 + (a^3 - 
        a)*q^24 + a^2*q^26 + (a^3 - a)*q^29 + a^3*q^34 + (-a^3 + a)*q^39 + 
        a^2*q^41 + (-a^2 + 1)*q^46 + q^51 + (-a^3 + a)*q^54 + (-a^2 + 1)*q^56 - 
        a*q^59 + (a^2 - 1)*q^61 - a^3*q^64 + q^66 - a*q^69 + (a^2 - 1)*q^71 + 
        a*q^74 - a^2*q^81 - q^86 + (-a^3 + a)*q^89 + (a^2 - 1)*q^91 - a^2*q^101 
        + a^3*q^104 + (-a^2 + 1)*q^111 + (a^3 - a)*q^114 + (a^3 - a)*q^119 + 
        a^3*q^129 + a*q^134 + (a^2 - 1)*q^136 - a*q^139 + a*q^149 + (a^3 - 
        a)*q^154 + q^161 - a^3*q^169 - a^3*q^174 + (a^2 - 1)*q^176 + (-a^3 + 
        a)*q^179 + (-a^3 + a)*q^184 + O(q^188),
    q^2 + (a^2 - 1)*q^12 - a^2*q^22 - a^3*q^28 - a^2*q^32 + a*q^38 - q^42 + (a^3
        - a)*q^48 + a^2*q^52 + (a^3 - a)*q^58 + a^3*q^68 + (-a^3 + a)*q^78 + 
        a^2*q^82 + (-a^2 + 1)*q^92 + q^102 + (-a^3 + a)*q^108 + (-a^2 + 1)*q^112
        - a*q^118 + (a^2 - 1)*q^122 - a^3*q^128 + q^132 - a*q^138 + (a^2 - 
        1)*q^142 + a*q^148 - a^2*q^162 - q^172 + (-a^3 + a)*q^178 + (a^2 - 
        1)*q^182 + O(q^188),
    q^3 + (a^3 - a)*q^7 + (a^2 - 1)*q^8 + a*q^12 + (-a^2 + 1)*q^13 + (-a^3 + 
        a)*q^17 - q^23 - a*q^27 - q^28 + (a^3 - a)*q^32 - a^2*q^33 - a^3*q^37 + 
        a^2*q^43 + (-a^3 + a)*q^52 + a*q^57 - a^3*q^67 + q^68 + a*q^77 + (a^3 - 
        a)*q^87 + q^88 - a*q^92 + (a^3 - a)*q^97 + a^3*q^107 - a^2*q^108 + 
        a^2*q^113 + a^2*q^123 + a^3*q^127 - a^3*q^132 - q^133 + (-a^3 + a)*q^137
        - q^143 + (-a^2 + 1)*q^148 + (a^3 - a)*q^152 + 2*a*q^157 + a^2*q^163 + 
        a^3*q^167 + (-a^2 + 1)*q^168 + a^3*q^172 - a^2*q^173 - a*q^177 + (a^2 - 
        1)*q^183 - a*q^187 + O(q^188),
    q^4 - a^3*q^6 + a^2*q^14 + a*q^16 - a*q^26 - a^2*q^34 - a^2*q^44 + a^3*q^46 
        + (a^2 - 1)*q^54 + (a^3 - a)*q^66 - q^74 + a*q^76 - q^84 + (-a^3 + 
        a)*q^86 + (a^3 - a)*q^96 + (-a^2 + 1)*q^114 + (a^3 - a)*q^116 - q^134 + 
        (-a^2 + 1)*q^154 + (-a^3 + a)*q^156 + a^2*q^164 + a^2*q^174 - a^3*q^176 
        + O(q^188)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
650
);
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(
20
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
650
);
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(
4
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^3*q^3 + a^4*q^4 + a^7*q^7 + a^6*q^9 - a^7*q^12 + (a^7 + a^6 - a^3 - 
        2*a^2 + 1)*q^13 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^16 + (a^7 - a^5 - 
        a^4 + 2*a + 1)*q^19 + (-a^5 + 1)*q^21 - q^25 + (-a^7 - a^6 + a^3 + a^2 -
        1)*q^27 + (a^6 - a)*q^28 + (a^7 - a^5 - a^4 - a^3 + a + 1)*q^31 + (a^5 -
        1)*q^36 + (a^3 + a^2)*q^37 + (-a^7 + a^5 + a^2)*q^39 + (-a^7 - a^6 - a^5
        + a^4 + a^3 + a^2 - 1)*q^43 + (-a^6 + a)*q^48 + (a^7 + a^6 - a^4 - a^3 -
        a^2 + 1)*q^49 + (-a^7 - a^6 + a^5 + a^4 - a - 1)*q^52 + (-a^4 - a)*q^57 
        + (a^7 - a^4 - a^3 - a^2 + a + 1)*q^61 + (-a^7 + a^5 + a^4 - a - 1)*q^63
        + (a^7 - a^2)*q^64 + (-a^6 - a^4)*q^67 + (a^7 - a^2 - a)*q^73 + a^3*q^75
        + (a^5 + a^2)*q^76 + (-a^7 - a^5 + a^2)*q^79 + (a^7 - a^2)*q^81 + (-a^7 
        - a^6 + a^4 + a^3 + a^2 - 1)*q^84 + (-a^7 - a^6 + a^3 + a^2 - a - 
        1)*q^91 + (a^6 - a)*q^93 + (a^7 - a^4 - a^3 + a)*q^97 - a^4*q^100 + 
        (-a^7 - a^6 + a^5 + a^4 + a^3 + a^2 - 2)*q^103 + (a^7 - a^5 - a^4 + a + 
        1)*q^108 + (-a^5 + a + 1)*q^109 + (-a^6 - a^5)*q^111 - q^112 + (a^7 - 
        a^5 - a^4 - a^3 + a)*q^117 + (-a^7 + a^5 + a^4 - a - 1)*q^121 + (-a^7 + 
        a^2)*q^124 + (a^6 - a^3 - a^2 + 1)*q^127 + (-a^7 + a^5 + a^4 + a^3 - a^2
        - a - 1)*q^129 + (-a^7 + 2*a^5 + a^4 + a^3 - a - 1)*q^133 + (a^6 - a^5 -
        a + 1)*q^139 + (a^7 + a^6 - a^4 - a^3 - a^2 + 1)*q^144 + a^2*q^147 + 
        (a^7 + a^6)*q^148 + (a^6 - a^2)*q^151 + (a^7 + a^6 - a^3 - a^2 + a + 
        1)*q^156 + (-a^6 + a^3 + a)*q^157 + (-a^6 - a^5 - a^4 + a^3 + a^2 + 
        a)*q^163 + O(q^164)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^7 + a^5 + a^4 - a - 1)*q^3 + (a^7 + a^6 - a^4 - a^3 - a^2 + 1)*q^4 -
        a^6*q^7 + (-a^6 + a)*q^9 + (-a^7 + a^2)*q^12 + (-a^7 - a^6 + a^3 + 2*a^2
        - 1)*q^13 + (a^7 - a^5 - a^4 + a + 1)*q^16 + (a^6 + a^3)*q^19 + a^4*q^21
        + (-a^5 + 1)*q^25 + (a^7 + a^6 - a^3 - a^2 + 1)*q^27 + a^5*q^28 - 
        a^3*q^31 + (a^5 - 1)*q^36 + (-a^5 - a^4 - a^3 + a + 1)*q^37 + (a^7 - 
        1)*q^39 + (-a^7 - a^6 - a^5 + a^4 + a^3 + a^2 - 1)*q^43 + (a^6 - a)*q^48
        + (a^7 - a^2)*q^49 + (-a^7 + a^5 + a^4 + a^3 - 2*a - 1)*q^52 + (-a^4 - 
        a)*q^57 + (-a^4 + a)*q^61 - a^2*q^63 + (a^7 - a^2)*q^64 + (-a^7 - a^6 + 
        a^4 + a^3 + a^2 + a - 1)*q^67 + (a^7 + a^6 - a)*q^73 + (-a^7 + a^5 + a^4
        + a^3 - a - 1)*q^75 + (-a^5 - a^2)*q^76 + (a^5 - a^2 - 1)*q^79 - 
        a^7*q^81 - a^3*q^84 + (a^7 - a^5 - a^4 - a^3 + a)*q^91 + a*q^93 + (-a^7 
        + a^4 + a^3 - a)*q^97 + (a^7 + a^6 - a^3 - a^2 + 1)*q^100 + (a^4 - 
        1)*q^103 + (a^7 - a^5 - a^4 - a^3 + a + 1)*q^108 + (a^6 + a^5 - a)*q^109
        + (a^6 + a^5)*q^111 - a^4*q^112 + (a^7 - 2*a^5 - a^4 + a + 1)*q^117 + 
        a^3*q^121 + a^2*q^124 + (a^6 - a^3 - a^2 + 1)*q^127 + (a^7 + a^3 - 
        a^2)*q^129 + (-2*a^7 - a^6 + a^3 + 2*a^2 - 1)*q^133 + (-a^6 + a^5 + a - 
        1)*q^139 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^144 + (-a^5 + 1)*q^147 + (a^7 
        + a^6)*q^148 + (-a^7 + a^2 - a)*q^151 + (-a^7 - 2*a^6 + a^4 + a^3 + a^2 
        - 1)*q^156 + (a^7 - a^6 - a^5 - a^4 + a + 1)*q^157 + (a^7 + a^6 - a^4 - 
        2*a^3 - a^2 + 1)*q^163 + O(q^164)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^6*q^3 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^4 + (a^7 + a^6 - a^4 - a^3 
        - a^2 + 1)*q^7 + (a^7 - a^2)*q^9 + (a^7 + a^6 - a^4 - a^3 - a^2 + 
        1)*q^12 + (a^4 - a^3)*q^13 - a*q^16 + (-a^6 + a^2 + a)*q^19 - a^5*q^21 +
        q^25 - a^3*q^27 - a^7*q^28 - a*q^31 - a^5*q^36 + (a^6 + a^4)*q^37 + 
        (-a^7 - a^6 + a^5 + a^3 + a^2 - 2)*q^39 + (a^7 - a^4 + a)*q^43 - 
        a^7*q^48 + (a^7 - a^5 - a^4 + a + 1)*q^49 + (a^7 - a^6 - a^2 + a)*q^52 +
        (-a^7 + a^5 + a^4 + a^3 + a^2 - a - 1)*q^57 + (-a^5 - a^4 + a + 1)*q^61 
        + (-a^6 + a)*q^63 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^64 + (a^5 + a^4 + a^3
        - a^2 - a - 1)*q^67 + (-a^7 - a^6 + a^3 + 2*a^2 - 1)*q^73 + a^6*q^75 + 
        (a^5 + a^4 - 1)*q^76 + (-a^7 - a^6 + a^5 + a^3 + a^2 - 2)*q^79 + (-a^7 -
        a^6 + a^3 + a^2 - 1)*q^81 + (a^7 - a^5 - a^4 + a + 1)*q^84 + (-a^3 + 
        a^2)*q^91 - a^7*q^93 + (-a^5 - a)*q^97 + (-a^7 + a^5 + a^4 + a^3 - a - 
        1)*q^100 + (a^7 - 2*a^5 - a^4 + a + 1)*q^103 + (-a^6 + a)*q^108 + (-a^5 
        + a^2)*q^109 + (a^7 + a^5 - a^2 - 1)*q^111 + q^112 + (-a + 1)*q^117 + 
        (-a^6 + a)*q^121 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^124 + (a^7 + a^6 - a^4
        - 2*a^3 - a^2 + 1)*q^127 + (a^4 - a)*q^129 + (a^5 - a - 1)*q^133 + (-a^7
        - a^5)*q^139 + (a^7 - a^5 - a^4 + a + 1)*q^144 + a^4*q^147 + (2*a^7 + 
        a^6 - a^4 - a^3 - 2*a^2 + 1)*q^148 + (a^7 + a^4 - a^2)*q^151 + (-a^3 + 
        a^2)*q^156 + (-a^7 + a^6)*q^157 + (-a^6 - a^3 + a)*q^163 + O(q^164)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^6 + a)*q^3 + (a^7 - a^5 - a^4 + a + 1)*q^4 + (a^7 - a^2)*q^7 - 
        a^7*q^9 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^12 + (a^4 - a^3)*q^13 + (-a^6 +
        a)*q^16 + (a^7 + a^6 - a^2)*q^19 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^21
        - a^5*q^25 - a^3*q^27 + (a^5 - 1)*q^28 + a^6*q^31 - a^5*q^36 + (a^7 + 
        a^6 - a^4 - a^3 - a^2 - a + 1)*q^37 + (a^7 + a^6 - a^4 - a^3 - a^2 + 
        2)*q^39 + (a^7 - a^4 + a)*q^43 - a^7*q^48 + (-a^7 - a^6 + a^3 + a^2 - 
        1)*q^49 + (a^2 - a)*q^52 + (-a^7 + a^5 + a^4 + a^3 + a^2 - a - 1)*q^57 +
        (-a^7 + a^5 + a^4 + a^3 + a^2 - a - 1)*q^61 + a^4*q^63 + (-a^7 - a^6 + 
        a^3 + a^2 - 1)*q^64 + (a^7 - a^5 - a^4 + a^2 + a + 1)*q^67 + (a^6 - a^4 
        - a^3 - a^2 + 1)*q^73 - a*q^75 + (a^5 + a^4 - 1)*q^76 + (-a^5 + 
        a^4)*q^79 + (a^7 + a^6 - a^4 - a^3 - a^2 + 1)*q^81 + a^6*q^84 + (-a + 
        1)*q^91 + a^2*q^93 + (-a^5 - a)*q^97 - a^3*q^100 + (-a^7 + a^5 + a^4 + 
        a^3 - a)*q^103 - a*q^108 + (-a^7 + a^5 - 1)*q^109 + (a^7 + a^5 - a^2 - 
        1)*q^111 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^112 + (-a^6 + a^5 + a - 
        1)*q^117 + a^6*q^121 + a^4*q^124 + (a^7 + a^6 - a^4 - 2*a^3 - a^2 + 
        1)*q^127 + (-a^7 + a^3 + a^2 - 1)*q^129 + (-a^7 - a^6 + a^2 - 1)*q^133 +
        (-a^7 - a^5)*q^139 - a^3*q^144 - a^5*q^147 + (2*a^7 + a^6 - a^4 - a^3 - 
        2*a^2 + 1)*q^148 + (-a^7 - a^6 + a^3 + 2*a^2 - 1)*q^151 + (2*a^7 - a^5 -
        a^4 - a^2 + a + 1)*q^156 + (a^7 - a^6 - a^2 + a)*q^157 + (a^7 + a^6 - 
        a^5 - a^4 + a + 1)*q^163 + O(q^164)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^3 - a^2 + a - 1)*q^4 + 1/2*(-a^2 + a)*q^7 - a*q^9 - a^3*q^16 + 
        1/2*(a^3 - a^2 + a - 2)*q^21 - q^25 + 1/2*(a - 1)*q^28 + q^36 + (a^3 + 
        a^2)*q^37 + (-a^2 - 1)*q^39 + (-a^3 + a^2 - a + 2)*q^43 + 1/2*(a^3 + a -
        1)*q^49 + (-a^3 + a^2 - 2*a + 1)*q^57 + 1/2*(a^3 - a^2)*q^63 + a^2*q^64 
        + (-a^3 + a^2 + 1)*q^67 + (-a^2 + 1)*q^79 + a^2*q^81 + 1/2*(-2*a^3 + a^2
        - a + 1)*q^84 + 1/2*(2*a^3 - a^2 - 2)*q^91 + a*q^93 + (-a^3 + a^2 - a + 
        1)*q^100 + (a - 1)*q^109 + 1/2*(-a^3 + a^2 - a)*q^112 + a^3*q^121 + 
        (-a^3 + 2*a^2 - a + 1)*q^127 + 1/2*(-2*a^2 + a - 2)*q^133 + (a^3 - a^2 +
        a - 1)*q^144 + 1/2*(a^2 - 1)*q^147 + (-a^2 - a)*q^148 + (-a^2 - a)*q^151
        + (-a^3 + a^2 + 1)*q^156 + (-a^2 + a - 1)*q^163 + O(q^164),
    q^3 + 1/2*(-2*a^3 + a^2 - a + 1)*q^7 + (a^3 - a^2 + a - 1)*q^12 + (-a^3 + 
        a^2 + 1)*q^13 + (a^3 + 1)*q^19 + 1/2*(-a^2 + a)*q^21 - a*q^27 + 1/2*(a^3
        + a^2)*q^28 - q^31 - a^3*q^48 + 1/2*(-a^3 + a^2 - 2*a + 1)*q^49 + (a^3 -
        1)*q^52 + (-a^3 - a)*q^61 + 1/2*(a^3 - a^2 + a - 2)*q^63 + (-a^2 + a - 
        1)*q^73 - q^75 + (a^3 - 2*a^2 + a - 1)*q^76 + 1/2*(a - 1)*q^84 + 
        1/2*(-a^3 + a^2 - a + 1)*q^91 + (a^2 - 1)*q^97 + (a^2 + a)*q^103 + q^108
        + (a^3 + a^2)*q^111 + 1/2*(-a^2 - a)*q^112 + (-a^2 - 1)*q^117 + (-a^3 + 
        a^2 - a + 1)*q^124 + (-a^3 + a^2 - a + 2)*q^129 + 1/2*(a^3 - 2*a^2 + 
        2*a)*q^133 + (a^3 - a^2)*q^139 + 1/2*(a^3 + a - 1)*q^147 + (-a^3 - 
        1)*q^157 + O(q^164)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^3 + (a - 1)*q^4 - q^7 + (a - 1)*q^9 - q^12 + a*q^13 - a*q^16 - 
        a*q^21 + a*q^25 - q^27 + (-a + 1)*q^28 + q^31 - a*q^36 + (-2*a + 1)*q^37
        + (a - 1)*q^39 + (-a + 1)*q^48 + q^49 - q^52 + 2*a*q^61 + (-a + 1)*q^63 
        + q^64 + q^67 + q^73 + (a - 1)*q^75 + (-2*a + 1)*q^79 - a*q^81 + q^84 - 
        a*q^91 + a*q^93 + (2*a - 1)*q^97 - q^100 + (-a - 1)*q^103 + (-a + 
        1)*q^108 + (-2*a + 2)*q^109 + (-a + 2)*q^111 + a*q^112 - q^117 - q^121 +
        (a - 1)*q^124 + (-a - 1)*q^127 - q^139 + q^144 + a*q^147 + (a + 1)*q^148
        + (-a - 1)*q^151 - a*q^156 + (-a - 1)*q^157 + a*q^163 + O(q^164)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^3 - a*q^4 + a*q^7 + q^9 - a*q^12 - a*q^13 + (a - 1)*q^16 + a*q^21 - 
        q^25 + q^27 + (-a + 1)*q^28 + (-a + 1)*q^31 - a*q^36 + (a - 2)*q^37 - 
        a*q^39 + (a - 1)*q^48 + (a - 1)*q^49 + (a - 1)*q^52 + (2*a - 2)*q^61 + 
        a*q^63 + q^64 + (a - 1)*q^67 + (-a + 1)*q^73 - q^75 + (a - 2)*q^79 + 
        q^81 + (-a + 1)*q^84 + (-a + 1)*q^91 + (-a + 1)*q^93 + (-2*a + 1)*q^97 +
        a*q^100 + (-2*a + 1)*q^103 - a*q^108 + 2*a*q^109 + (a - 2)*q^111 - q^112
        - a*q^117 + a*q^121 - q^124 + (-a - 1)*q^127 + q^139 + (a - 1)*q^144 + 
        (a - 1)*q^147 + (a + 1)*q^148 + (-a + 2)*q^151 + (a - 1)*q^156 + (a - 
        2)*q^157 + (-a + 1)*q^163 + O(q^164)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 - a^3*q^4 + 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 + q^25 - a^3*q^27 - 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*q^49 + (a^2 - a)*q^52 + (-a^3 + a^2)*q^57 + (-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*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^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 + 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 + 
        1)*q^139 - a^3*q^144 - a^2*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 + 
        O(q^164),
    q^7 - a*q^21 - a^3*q^28 + (a^3 + a - 1)*q^49 + a^2*q^63 + (a^3 - a^2 + a - 
        1)*q^84 + (-a^2 + a - 1)*q^91 - a*q^112 + (a^2 - a)*q^133 + (-a^3 + 
        1)*q^147 + O(q^164)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^3 - a*q^4 + q^7 - a*q^9 + q^12 + (-a + 1)*q^13 + (a - 1)*q^16 
        + 2*q^19 + (a - 1)*q^21 + (a - 1)*q^25 + q^27 - a*q^28 + q^31 + (a - 
        1)*q^36 - q^37 + a*q^39 - 2*a*q^43 - a*q^48 + q^49 - q^52 + (2*a - 
        2)*q^57 + (2*a - 2)*q^61 - a*q^63 + q^64 - q^67 - q^73 - a*q^75 - 
        2*a*q^76 - q^79 + (a - 1)*q^81 + q^84 + (-a + 1)*q^91 + (a - 1)*q^93 - 
        q^97 + q^100 + a*q^103 - a*q^108 - 2*a*q^109 + (-a + 1)*q^111 + (a - 
        1)*q^112 - q^117 + q^121 - a*q^124 + a*q^127 + 2*q^129 + 2*q^133 - q^139
        + q^144 + (a - 1)*q^147 + a*q^148 + a*q^151 + (-a + 1)*q^156 + a*q^157 +
        (-a + 1)*q^163 + O(q^164)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^3 + (a - 1)*q^4 + (a - 1)*q^7 + q^9 + (a - 1)*q^12 + (-a + 1)*q^13 - 
        a*q^16 + (2*a - 2)*q^19 + (a - 1)*q^21 + q^25 + q^27 - a*q^28 - a*q^31 +
        (a - 1)*q^36 + (-a + 1)*q^37 + (-a + 1)*q^39 - 2*a*q^43 - a*q^48 - 
        a*q^49 + a*q^52 + (2*a - 2)*q^57 - 2*a*q^61 + (a - 1)*q^63 + q^64 + 
        a*q^67 + a*q^73 + q^75 - 2*a*q^76 + (-a + 1)*q^79 + q^81 - a*q^84 + 
        a*q^91 - a*q^93 - q^97 + (a - 1)*q^100 - q^103 + (a - 1)*q^108 + (2*a - 
        2)*q^109 + (-a + 1)*q^111 + q^112 + (-a + 1)*q^117 + (a - 1)*q^121 + 
        q^124 + a*q^127 - 2*a*q^129 - 2*a*q^133 - q^139 - a*q^144 - a*q^147 + 
        a*q^148 + (-a + 1)*q^151 + a*q^156 + (-a + 1)*q^157 + a*q^163 + O(q^164)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 - q^5 + q^8 + q^9 + q^10 - q^16 - q^18 - q^19 + q^31 + q^38 - q^40 -
        q^41 - q^45 + 2*q^47 - q^49 - q^59 - q^62 + q^64 + 2*q^67 - q^71 + q^72 
        + q^80 + q^81 + q^82 + q^90 - 2*q^94 + q^95 - q^97 + q^98 - q^101 - 
        q^103 - q^107 - q^109 - q^113 + q^118 + q^121 + q^125 - q^128 + 2*q^131 
        - 2*q^134 + q^142 - q^144 + 2*q^149 - q^152 - q^155 - q^157 - q^162 - 
        q^163 + O(q^164),
    q^3 - q^6 - q^15 + q^24 + q^27 + q^30 - q^48 - q^54 - q^57 + q^93 + q^114 - 
        q^120 - q^123 - q^135 + 2*q^141 - q^147 + O(q^164),
    q^7 - q^14 - q^35 - q^49 + q^56 + q^63 + q^70 + q^98 - q^112 - q^126 - q^133
        + O(q^164),
    q^21 - q^42 - q^105 - q^147 + O(q^164)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^5 + 1/3*(-a - 1)*q^7 - q^8 + (a - 1)*q^9 + a*q^10 + 1/3*(-2*a
        + 1)*q^14 + (a - 1)*q^16 + (a - 1)*q^19 + 2*q^20 - 2*a*q^25 - a*q^28 - 
        a*q^31 + 1/3*(4*a - 5)*q^35 + a*q^45 + (-a + 1)*q^47 + 1/3*(a + 1)*q^49 
        + 1/3*(2*a - 1)*q^56 + 1/3*(-a + 2)*q^63 + a*q^67 + 1/3*(-a + 2)*q^70 + 
        q^71 + (-a + 1)*q^72 - q^76 - a*q^81 + (a - 1)*q^82 - q^90 + 2*a*q^95 + 
        q^97 + 1/3*(-a - 1)*q^98 + (-a + 1)*q^100 - a*q^101 + (a - 1)*q^107 + 
        a*q^109 + 1/3*(a + 1)*q^112 - q^113 + q^118 + (a - 1)*q^121 - 2*q^125 + 
        1/3*(a + 1)*q^126 + (-a + 1)*q^128 + (-a + 1)*q^131 + 1/3*(-2*a + 
        4)*q^133 - a*q^140 - a*q^144 + (-a + 1)*q^149 + (-a + 1)*q^152 - q^155 -
        2*q^160 + (-a + 1)*q^163 + O(q^164),
    q^2 + 1/3*(-a + 2)*q^7 - a*q^8 + (a - 1)*q^10 + 1/3*(a + 1)*q^14 - q^16 + (a
        - 1)*q^18 - q^19 + a*q^20 + (-a + 1)*q^25 - a*q^28 + 1/3*(a - 2)*q^35 + 
        (-a + 1)*q^38 + q^40 - a*q^41 + 1/3*(a + 1)*q^49 + 1/3*(-a - 1)*q^56 + 
        (a - 1)*q^59 - a*q^62 + 1/3*(2*a - 1)*q^63 + a*q^64 + 1/3*(2*a - 1)*q^70
        + a*q^71 + q^72 + a*q^76 + (-a + 1)*q^80 - a*q^90 + (-a + 1)*q^94 + 
        a*q^97 + 1/3*(-a - 1)*q^98 - q^100 + (-a + 1)*q^101 + q^103 - q^107 + 
        1/3*(a - 2)*q^112 + 1/3*(a - 2)*q^126 + 1/3*(-2*a + 1)*q^133 + a*q^134 +
        q^140 - q^142 + (-a + 1)*q^144 + (a - 1)*q^157 - a*q^160 - a*q^162 + 
        O(q^164),
    q^3 + (-a + 1)*q^15 + 1/3*(-a - 1)*q^21 - q^24 + (a - 1)*q^27 + a*q^30 + 
        1/3*(-2*a + 1)*q^42 + (a - 1)*q^48 + (a - 1)*q^57 + 2*q^60 - 2*a*q^75 - 
        a*q^84 - a*q^93 + 1/3*(4*a - 5)*q^105 + a*q^135 + (-a + 1)*q^141 + 
        1/3*(a + 1)*q^147 + O(q^164),
    q^4 - a*q^5 + 1/3*(a - 2)*q^7 + 1/3*(-a + 2)*q^14 + a*q^19 - q^25 - q^32 + 
        1/3*(2*a - 1)*q^35 + (a - 1)*q^36 - q^38 + a*q^40 + q^45 + 1/3*(-a + 
        2)*q^49 + (-a + 1)*q^50 + 1/3*(-2*a + 1)*q^56 + 1/3*(-2*a + 1)*q^63 + 
        1/3*(a - 2)*q^70 + (-a + 1)*q^71 + q^80 - a*q^82 + q^95 + (-a + 1)*q^97 
        + 1/3*(a + 1)*q^98 - a*q^100 - q^101 + a*q^107 + q^109 + 1/3*(-a - 
        1)*q^112 + (a - 1)*q^113 + (a - 1)*q^118 - a*q^124 + (a - 1)*q^125 + 
        1/3*(2*a - 1)*q^126 + 1/3*(-a - 1)*q^133 + (a - 1)*q^140 + a*q^142 + (a 
        - 1)*q^155 - a*q^163 + O(q^164),
    q^6 + 1/3*(-a + 2)*q^21 - a*q^24 + (a - 1)*q^30 + 1/3*(a + 1)*q^42 - q^48 + 
        (a - 1)*q^54 - q^57 + a*q^60 + (-a + 1)*q^75 - a*q^84 + 1/3*(a - 
        2)*q^105 + (-a + 1)*q^114 + q^120 - a*q^123 + 1/3*(a + 1)*q^147 + 
        O(q^164),
    q^12 - a*q^15 + 1/3*(a - 2)*q^21 + 1/3*(-a + 2)*q^42 + a*q^57 - q^75 - q^96 
        + 1/3*(2*a - 1)*q^105 + (a - 1)*q^108 - q^114 + a*q^120 + q^135 + 
        1/3*(-a + 2)*q^147 + (-a + 1)*q^150 + O(q^164)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
651
);
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:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 - q^7 + q^9 + q^16 - q^25 - q^28 + q^36 - 2*q^39 + q^49 - q^63 + 
        q^64 - 2*q^67 + q^81 - q^93 - q^100 - 2*q^109 - q^112 - q^121 + q^144 - 
        2*q^156 + 2*q^163 + O(q^164),
    q^3 + q^12 - 2*q^13 - q^21 + q^27 - q^31 + q^48 - 2*q^52 + 2*q^61 + 2*q^73 -
        q^75 - q^84 + 2*q^91 + q^108 - 2*q^117 - q^124 - 2*q^139 + q^147 + 
        O(q^164)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
652
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
652
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
162
);
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
652
);
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:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
652
);
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:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
652
);
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:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
652
);
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:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
652
);
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:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
652
);
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:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
652
);
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:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
652
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
81*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
160
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 - q^41 - q^43 - q^47 + q^49 - q^53 - q^61 - q^71 + q^81 - 
        q^83 - q^97 - q^113 + q^121 - q^131 - q^151 + O(q^160)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
653
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
652
);
qprec:=
109
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
653
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
163*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
109
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
654
);
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(
654
);
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(
654
);
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(
654
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
654
);
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(
654
);
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:=
[
    q + (-a^5 + a^2)*q^3 + a^3*q^4 + (-a^3 - a)*q^7 + (-a^4 + a)*q^9 + a^2*q^12 
        + (2*a^5 - a^2)*q^13 + (a^3 - 1)*q^16 + (-a^5 + a^4 - a)*q^19 + (-a^2 - 
        1)*q^21 + a^4*q^25 + (-a^3 + 1)*q^27 + (-a^4 - a^3 + 1)*q^28 + (-a^4 + 
        a)*q^31 + a*q^36 + (-a^5 - 1)*q^37 + (2*a^4 - a)*q^39 + (-a^2 + a)*q^43 
        + a^5*q^48 + (a^4 + a^3 + a^2 - 1)*q^49 + (a^5 - 2*a^2)*q^52 + (-a^4 + 
        a^3 - 1)*q^57 + (-a^4 - a^3 + a)*q^61 + (a^5 - a^2 - a)*q^63 - q^64 + 
        (a^5 - a^3 + 1)*q^73 + a^3*q^75 + (-a^5 + a^2 - a)*q^76 + (a^3 + 
        a^2)*q^79 - a^5*q^81 + (-a^5 - a^3)*q^84 + (-a^5 - a^3 + 2*a^2 + 2)*q^91
        + (-a^3 + 1)*q^93 + a^2*q^97 + (a^4 - a)*q^100 + (-a - 1)*q^103 + q^108 
        + a^3*q^109 + (a^5 - a^4 - a^2)*q^111 + (-a^4 + a + 1)*q^112 + (2*a^3 - 
        1)*q^117 - a^2*q^121 + a*q^124 + (-a^5 + a^2 + 1)*q^127 + (-a + 1)*q^129
        + (a^3 + a - 1)*q^133 + (-a^3 - a^2)*q^139 + a^4*q^144 + (a^5 + a^3 + 
        a)*q^147 + (-a^5 - a^3 + a^2)*q^148 + (a^3 + a^2)*q^151 + (a^4 - 
        2*a)*q^156 + (a - 1)*q^157 + (-a^4 + a^2)*q^163 - 2*a^4*q^169 + (a^5 - 
        a^3)*q^171 + (-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^183 + (a^4 - a - 1)*q^189 + (a^5 - 
        a^2)*q^192 + (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^2 + (-a^5 + a^2)*q^6 + a^3*q^8 + (-a^3 - a)*q^14 + (-a^4 + a)*q^18 + 
        a^2*q^24 + (2*a^5 - a^2)*q^26 + (a^3 - 1)*q^32 + (-a^5 + a^4 - a)*q^38 +
        (-a^2 - 1)*q^42 + a^4*q^50 + (-a^3 + 1)*q^54 + (-a^4 - a^3 + 1)*q^56 + 
        (-a^4 + a)*q^62 + a*q^72 + (-a^5 - 1)*q^74 + (2*a^4 - a)*q^78 + (-a^2 + 
        a)*q^86 + a^5*q^96 + (a^4 + a^3 + a^2 - 1)*q^98 + (a^5 - 2*a^2)*q^104 + 
        (-a^4 + a^3 - 1)*q^114 + (-a^4 - a^3 + a)*q^122 + (a^5 - a^2 - a)*q^126 
        - q^128 + (a^5 - a^3 + 1)*q^146 + a^3*q^150 + (-a^5 + a^2 - a)*q^152 + 
        (a^3 + a^2)*q^158 - a^5*q^162 + (-a^5 - a^3)*q^168 + (-a^5 - a^3 + 2*a^2
        + 2)*q^182 + (-a^3 + 1)*q^186 + a^2*q^194 + (a^4 - a)*q^200 + (-a - 
        1)*q^206 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
654
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
654
);
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:=
[
    q + (-a^4 + a)*q^3 + (a^3 - 1)*q^4 + (a^3 + a^2 - 1)*q^7 - a^5*q^9 + 
        a^4*q^12 - a^4*q^13 - a^3*q^16 + (-a^5 - a)*q^19 + (a^4 + 1)*q^21 + (a^5
        - a^2)*q^25 - a^3*q^27 + (a^5 - a^3 - a^2)*q^28 + a^5*q^31 + a^2*q^36 + 
        (-a + 1)*q^37 - a^2*q^39 + (a^4 + a^2)*q^43 - a*q^48 + (a^5 + a^4 - a^3 
        - a^2)*q^49 + a*q^52 + (a^5 - a^3 - a^2)*q^57 + (-a^5 + a^3 - 1)*q^61 + 
        (-a^4 + a^2 + a)*q^63 + q^64 - 2*a^5*q^67 + (-a^3 - a)*q^73 + (a^3 - 
        1)*q^75 + (-a^4 + a^2 + a)*q^76 + (a^4 + a^3 - 1)*q^79 - a*q^81 + (a^3 -
        a - 1)*q^84 + (-a^3 + a + 1)*q^91 + a^3*q^93 - a^4*q^97 - a^5*q^100 + 
        (a^2 + 1)*q^103 + q^108 + (a^3 - 1)*q^109 + (a^5 - a^4 - a^2 + a)*q^111 
        + (-a^5 + 1)*q^112 - q^117 + a^4*q^121 - a^2*q^124 + (-a^4 + a + 
        1)*q^127 + (a^2 + 1)*q^129 + (-2*a^4 - a^3 + a^2 + 2*a)*q^133 + (a^4 + 
        a^3 - 1)*q^139 + (a^5 - a^2)*q^144 + (a^3 + a^2 - a - 1)*q^147 + (-a^4 +
        a^3 + a - 1)*q^148 + (a^4 + a^3 - 1)*q^151 + (-a^5 + a^2)*q^156 + (a^2 +
        1)*q^157 + (a^5 + a^4 - a^2)*q^163 + (a^3 - a - 1)*q^171 + (a^5 - a^2 - 
        a)*q^172 + (-a^5 - a)*q^175 + (-a^4 - a^3 + a)*q^181 + (a^4 - a^3)*q^183
        + (-a^5 + 1)*q^189 + (-a^4 + a)*q^192 + (a^4 - a^3)*q^193 + (-a^5 - a + 
        1)*q^196 - 2*a^3*q^199 - 2*a^3*q^201 + (a^4 - a)*q^208 - a^4*q^211 + 
        O(q^214),
    q^2 + (-a^4 + a)*q^6 + (a^3 - 1)*q^8 + (a^3 + a^2 - 1)*q^14 - a^5*q^18 + 
        a^4*q^24 - a^4*q^26 - a^3*q^32 + (-a^5 - a)*q^38 + (a^4 + 1)*q^42 + (a^5
        - a^2)*q^50 - a^3*q^54 + (a^5 - a^3 - a^2)*q^56 + a^5*q^62 + a^2*q^72 + 
        (-a + 1)*q^74 - a^2*q^78 + (a^4 + a^2)*q^86 - a*q^96 + (a^5 + a^4 - a^3 
        - a^2)*q^98 + a*q^104 + (a^5 - a^3 - a^2)*q^114 + (-a^5 + a^3 - 1)*q^122
        + (-a^4 + a^2 + a)*q^126 + q^128 - 2*a^5*q^134 + (-a^3 - a)*q^146 + (a^3
        - 1)*q^150 + (-a^4 + a^2 + a)*q^152 + (a^4 + a^3 - 1)*q^158 - a*q^162 + 
        (a^3 - a - 1)*q^168 + (-a^3 + a + 1)*q^182 + a^3*q^186 - a^4*q^194 - 
        a^5*q^200 + (a^2 + 1)*q^206 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
654
);
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:=
[
    q + (-a + 1)*q^3 - q^4 + (-a + 1)*q^7 - a*q^9 + (a - 1)*q^12 + q^16 + (2*a -
        1)*q^19 - a*q^21 - a*q^25 - q^27 + (a - 1)*q^28 + 2*a*q^31 + a*q^36 + (a
        - 2)*q^37 + q^43 + (-a + 1)*q^48 + (a + 1)*q^57 + (-a + 1)*q^61 - q^63 -
        q^64 - a*q^73 - q^75 + (-2*a + 1)*q^76 + (a - 2)*q^79 + (a - 1)*q^81 + 
        a*q^84 + 2*q^93 + (-2*a + 2)*q^97 + a*q^100 + (-a - 1)*q^103 + q^108 - 
        q^109 + (2*a - 1)*q^111 + (-a + 1)*q^112 + (-a + 1)*q^121 - 2*a*q^124 + 
        (-a + 2)*q^127 + (-a + 1)*q^129 + (a + 1)*q^133 + (-a + 2)*q^139 - 
        a*q^144 + (-a + 2)*q^148 + (a - 2)*q^151 + (a - 1)*q^157 + (2*a - 
        1)*q^163 - a*q^169 + (-a + 2)*q^171 - q^172 - q^175 + (a - 2)*q^181 - 
        a*q^183 + (a - 1)*q^189 + (a - 1)*q^192 + a*q^193 + (2*a - 2)*q^211 + 
        O(q^214),
    q^2 + (-a + 1)*q^6 - q^8 + (-a + 1)*q^14 - a*q^18 + (a - 1)*q^24 + q^32 + 
        (2*a - 1)*q^38 - a*q^42 - a*q^50 - q^54 + (a - 1)*q^56 + 2*a*q^62 + 
        a*q^72 + (a - 2)*q^74 + q^86 + (-a + 1)*q^96 + (a + 1)*q^114 + (-a + 
        1)*q^122 - q^126 - q^128 - a*q^146 - q^150 + (-2*a + 1)*q^152 + (a - 
        2)*q^158 + (a - 1)*q^162 + a*q^168 + 2*q^186 + (-2*a + 2)*q^194 + 
        a*q^200 + (-a - 1)*q^206 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
654
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
654
);
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:=
[
    q - a*q^3 + q^4 + a*q^7 + (a - 1)*q^9 - a*q^12 - 2*a*q^13 + q^16 - q^19 + 
        (-a + 1)*q^21 + (a - 1)*q^25 + q^27 + a*q^28 + (2*a - 2)*q^31 + (a - 
        1)*q^36 + (-a + 1)*q^37 + (2*a - 2)*q^39 - q^43 - a*q^48 - 2*a*q^52 + 
        a*q^57 + a*q^61 - q^63 + q^64 + (2*a - 2)*q^67 + (-a + 1)*q^73 + q^75 - 
        q^76 + (-a + 1)*q^79 - a*q^81 + (-a + 1)*q^84 + (-2*a + 2)*q^91 + 2*q^93
        - 2*a*q^97 + (a - 1)*q^100 + a*q^103 + q^108 + q^109 - q^111 + a*q^112 +
        2*q^117 - a*q^121 + (2*a - 2)*q^124 + (-a + 1)*q^127 + a*q^129 - a*q^133
        + (-a + 1)*q^139 + (a - 1)*q^144 + (-a + 1)*q^148 + (-a + 1)*q^151 + 
        (2*a - 2)*q^156 + a*q^157 - q^163 + (3*a - 3)*q^169 + (-a + 1)*q^171 - 
        q^172 - q^175 + (-a + 1)*q^181 + (-a + 1)*q^183 + a*q^189 - a*q^192 + 
        (-a + 1)*q^193 + 2*q^199 + 2*q^201 - 2*a*q^208 - 2*a*q^211 + O(q^214),
    q^2 - a*q^6 + q^8 + a*q^14 + (a - 1)*q^18 - a*q^24 - 2*a*q^26 + q^32 - q^38 
        + (-a + 1)*q^42 + (a - 1)*q^50 + q^54 + a*q^56 + (2*a - 2)*q^62 + (a - 
        1)*q^72 + (-a + 1)*q^74 + (2*a - 2)*q^78 - q^86 - a*q^96 - 2*a*q^104 + 
        a*q^114 + a*q^122 - q^126 + q^128 + (2*a - 2)*q^134 + (-a + 1)*q^146 + 
        q^150 - q^152 + (-a + 1)*q^158 - a*q^162 + (-a + 1)*q^168 + (-2*a + 
        2)*q^182 + 2*q^186 - 2*a*q^194 + (a - 1)*q^200 + a*q^206 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
654
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 54*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^21 - q^22 + q^25 - q^28 - q^31 - q^43 - q^48 + q^49 - q^66 - 
        q^73 + q^81 + q^82 + q^84 + q^88 + q^94 - q^97 + q^102 - q^106 + q^112 +
        q^121 + q^124 - q^136 + q^138 - q^147 + q^154 + q^169 + q^172 - q^183 - 
        q^184 - q^187 - q^189 + q^192 - q^196 - q^198 - q^202 + O(q^214),
    q^2 + q^18 - q^42 - q^44 + q^50 - q^56 - q^62 - q^86 - q^96 + q^98 - q^132 -
        q^146 + q^162 + q^164 + q^168 + q^176 + q^188 - q^194 + q^204 - q^212 + 
        O(q^214),
    q^3 - q^21 - q^22 + q^27 - q^31 + q^34 - q^43 + q^46 - q^48 + q^64 - q^66 - 
        q^73 + q^75 + q^88 - q^97 - q^106 + q^109 + q^118 + 2*q^121 - q^136 + 
        q^154 + 2*q^157 - q^183 - q^184 - q^187 - q^189 - q^198 - q^202 + 
        O(q^214),
    q^4 - q^22 - q^28 + q^36 - q^48 - q^66 + q^82 + q^94 + q^100 + q^102 - q^106
        - q^136 + q^138 + q^154 - q^184 - q^198 - q^202 + O(q^214),
    q^6 + q^17 + q^23 - q^41 - q^42 - q^44 - q^47 - q^51 + q^54 + q^59 - q^62 + 
        q^68 - q^69 - q^86 + q^92 - q^96 - q^107 - q^119 + q^123 + q^128 - q^132
        + q^141 - q^146 + q^149 + q^150 + q^153 - q^161 + q^176 - q^177 + q^179 
        - q^194 + q^207 - q^212 + O(q^214),
    q^7 + q^16 - q^21 - q^28 - q^31 - q^43 - q^48 + q^49 + q^61 + q^63 - q^73 + 
        q^84 + q^93 - q^97 + q^124 + q^129 - q^136 + q^144 - q^147 + q^172 + 
        q^175 - q^183 - q^184 - q^189 + q^193 - q^196 + q^211 + O(q^214),
    q^8 + q^17 + q^23 - q^24 + q^32 - q^41 - q^47 - q^51 - q^56 + q^59 - q^68 - 
        q^69 + q^72 - q^92 - q^96 - q^107 - q^119 + q^123 + q^141 + q^149 + 
        q^153 - q^161 + q^164 + q^168 - q^177 + q^179 + q^188 + q^200 + q^204 + 
        q^207 + O(q^214),
    q^11 - q^17 - q^23 + q^24 - q^32 + q^33 - q^44 + q^53 - q^59 + q^68 - q^77 +
        q^92 + q^99 + q^101 + q^119 - q^123 - q^132 - q^141 - q^149 - q^153 + 
        q^159 + q^161 + q^167 - q^168 - q^179 - q^207 - q^212 + O(q^214),
    q^12 - q^16 - q^22 + q^34 + q^46 - q^66 - q^84 - q^106 + q^108 + q^112 + 
        q^118 - q^124 + q^136 - q^144 + q^154 - q^172 + q^184 - q^198 - q^202 + 
        O(q^214),
    q^14 + q^17 + q^23 + q^32 - q^41 - q^42 - q^47 - q^51 - q^56 + q^59 - q^62 -
        q^69 - q^86 - q^96 + q^98 - q^107 - q^119 + q^122 + q^123 + q^126 + 
        q^141 - q^146 + q^149 + q^153 - q^161 + q^168 - q^177 + q^179 + q^186 - 
        q^194 + q^207 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
655
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
655
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
130
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
655
);
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(
130
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
655
);
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(
260
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
655
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
655
);
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(
26
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
655
);
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(
52
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
655
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
655
);
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(
10
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
655
);
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(
20
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
655
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
65*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^7 + q^16 - q^21 - q^25 - q^27 - q^28 + q^33 + q^39 - q^43 + q^49
        + 2*q^53 - q^59 - q^61 + q^63 + q^64 - q^77 - q^84 + 2*q^89 - q^91 - 
        q^99 - q^100 - q^101 - q^107 - q^108 - q^112 - q^117 + q^123 + q^125 - 
        q^129 + O(q^130),
    q^3 - q^7 - q^9 + q^11 + q^12 + q^13 - q^28 - q^33 - q^36 - q^39 + q^41 - 
        q^43 + q^44 + q^48 + q^49 + q^52 - q^59 - q^61 - q^75 + q^99 - q^101 - 
        q^107 + q^109 - q^112 + q^113 + q^117 - q^121 - q^123 + q^125 + 
        O(q^130),
    q^5 + q^20 - q^25 - q^35 - q^75 + q^80 - q^100 - q^105 + q^125 + O(q^130),
    q^15 - q^25 - q^35 - q^45 + q^55 + q^60 + q^65 - q^100 + q^125 + O(q^130)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
655
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 65*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - 1/4*q^15 + 1/2*q^16 - 1/2*q^20 - 1/2*q^21 + 3/4*q^25 - 1/2*q^34 - 
        1/4*q^35 + q^36 + q^39 - 1/2*q^41 - q^44 - 3/4*q^45 - 1/2*q^46 + 
        1/2*q^49 - 1/4*q^55 + 1/4*q^60 - 1/2*q^61 - 1/2*q^64 + 1/4*q^65 - 
        1/2*q^74 - 1/2*q^75 - 1/2*q^80 + 3/2*q^81 + 1/2*q^84 + 1/2*q^89 + 
        1/2*q^91 - 1/2*q^94 - 1/2*q^99 + 1/4*q^100 - 1/2*q^105 - 1/2*q^109 + 
        1/2*q^121 - 1/4*q^125 - 1/2*q^129 + O(q^130),
    q^2 + q^18 - q^22 - q^23 - q^37 - q^40 + q^50 - q^68 - q^73 + q^83 + q^85 + 
        q^97 + q^98 + q^103 - q^115 - q^122 + q^127 + O(q^130),
    q^3 - q^12 - q^13 + 1/2*q^15 + 1/2*q^25 - q^27 + 1/2*q^35 - 1/2*q^45 + q^48 
        + q^52 + 1/2*q^55 - 1/2*q^60 - q^63 - 1/2*q^65 + q^77 - 1/2*q^100 - 
        q^105 + q^108 - q^113 + 2*q^117 + 1/2*q^125 + O(q^130),
    q^4 - 1/2*q^15 - q^20 - q^21 + 1/2*q^25 - q^34 + 1/2*q^35 + q^36 - q^44 - 
        1/2*q^45 + q^49 + 1/2*q^55 + q^59 + 1/2*q^60 - q^61 + 1/2*q^65 + q^81 + 
        q^84 - q^89 + q^91 - q^94 - q^99 + 1/2*q^100 + q^101 - q^121 - 1/2*q^125
        - q^129 + O(q^130),
    q^5 - 1/2*q^15 - q^16 - q^21 + 1/2*q^25 + q^34 + 1/2*q^35 - q^41 + 1/2*q^45 
        - q^46 + q^49 - 1/2*q^55 + 1/2*q^60 - q^61 + q^64 + 1/2*q^65 - q^74 + 
        q^81 + q^84 - q^89 + q^91 + q^94 - q^99 - 1/2*q^100 - q^109 - q^121 + 
        1/2*q^125 - q^129 + O(q^130),
    q^7 + 3/4*q^15 + 1/2*q^16 - 1/2*q^20 + 1/2*q^21 - 1/4*q^25 - q^27 - q^28 + 
        q^33 - 1/2*q^34 - 1/4*q^35 + 1/2*q^41 + q^43 - 3/4*q^45 + 1/2*q^46 - 
        1/2*q^49 - 1/4*q^55 - 3/4*q^60 + 1/2*q^61 - q^63 - 1/2*q^64 - 3/4*q^65 +
        1/2*q^74 + 1/2*q^75 - q^77 + 1/2*q^80 - 1/2*q^81 - 1/2*q^84 + 1/2*q^89 -
        1/2*q^91 - 1/2*q^94 + 1/2*q^99 + 1/4*q^100 + 1/2*q^105 - q^107 + q^108 +
        1/2*q^109 + q^112 + q^117 + 1/2*q^121 - q^123 - 1/4*q^125 + 1/2*q^129 + 
        O(q^130),
    q^8 - q^10 - q^17 + q^23 + q^37 - q^47 - q^67 - q^68 + q^72 + q^73 + q^82 - 
        q^88 - q^90 + q^110 + q^115 + q^118 - q^128 + O(q^130),
    q^9 + 1/4*q^15 - 1/2*q^16 + 1/2*q^20 + 1/2*q^21 + 1/4*q^25 + 1/2*q^34 + 
        1/4*q^35 - q^36 - q^39 - 1/2*q^41 + 3/4*q^45 - 1/2*q^46 + 1/2*q^49 - 
        3/4*q^55 - q^59 - 1/4*q^60 + 1/2*q^61 + 1/2*q^64 - 1/4*q^65 - 1/2*q^74 +
        1/2*q^75 - 1/2*q^80 - 1/2*q^81 - 1/2*q^84 - 1/2*q^89 - 1/2*q^91 + 
        1/2*q^94 + 1/2*q^99 - 1/4*q^100 - q^101 + 1/2*q^105 - 1/2*q^109 + 
        1/2*q^121 + 1/4*q^125 + 1/2*q^129 + O(q^130),
    q^11 - 1/2*q^15 - q^21 + 1/2*q^25 + 1/2*q^35 - q^41 - q^44 - 1/2*q^45 + q^49
        - 1/2*q^55 + 1/2*q^60 + 1/2*q^65 + q^81 + q^84 + q^91 - 1/2*q^100 - 
        q^109 - 1/2*q^125 - q^129 + O(q^130)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
656
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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(
40
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^7 - a^5 - a)*q^5 - a^5*q^9 + (-a^7 - a^4)*q^13 + (-a^2 + a)*q^17 + 
        (a^4 + 1)*q^25 + (-a^6 - a)*q^29 + (a^7 + a^5)*q^37 + (a^6 - a^4 + a^2 -
        1)*q^41 + (a^6 + a^2 - 1)*q^45 + (-a^7 + a^5 - a^3 + a)*q^49 + (a^4 + 
        a^3)*q^53 + (-2*a^6 + a^4 - a^2 + 1)*q^61 + (a^7 + a^6 + a^3 - 1)*q^65 +
        (-a^7 + a^5 - a^3)*q^73 - q^81 + (a^5 - a^4 + a - 1)*q^85 + (-a^7 + 
        a^2)*q^89 + (a^5 - a^2)*q^97 + (-a^7 + a^5 - a^3 + a - 1)*q^101 + (a^3 +
        a^2)*q^109 + (-a^5 - a^3)*q^113 + (a^7 - a^5 + a^3 - a^2 - a)*q^117 + 
        a^3*q^121 - a^3*q^125 + (a^4 + a)*q^137 + (a^7 + a^4 + a^3 - a + 
        1)*q^145 + (-a^7 + 1)*q^149 + (a^7 - a^6)*q^153 + (a^6 - a^3)*q^157 + 
        O(q^158)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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(
20
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^7 + a^6 - a^4 + a^2 - 1)*q^3 + (-a^6 - a^5 - a^4)*q^9 + (-a^6 + a^5 +
        a^4 - a^2 + 1)*q^11 + (a^7 - a^5 + a^4 + a^3 - a)*q^17 + (-a^7 + a^5 - 
        a^3 + a - 1)*q^19 + a^2*q^25 + (a^4 + a^3 + a^2 + a)*q^27 + (a^6 + a^5 -
        a^3 - a^2)*q^33 + a*q^41 + (-a^5 - a)*q^43 + (-a^7 + a^5 - a^3 + a)*q^49
        + (-a^7 - a^6 - a^2 - a)*q^51 + (a^4 - a^2 + 1)*q^57 + (-a^7 + 1)*q^67 +
        (-a^7 - a^3)*q^73 + (a^7 - a^5 + a^3 - a - 1)*q^75 + (a^7 + a^6 - a^5 - 
        a^4 + a^3 - 2*a - 2)*q^81 + (a^6 - a^4)*q^83 + (a^6 - a^4 + a^2 - a - 
        1)*q^89 + (-a^4 + a^3)*q^97 + (-a^7 + a^5 - a^4 - 2*a^3 - a^2 + 2*a + 
        1)*q^99 + (a^4 - a^2 + 1)*q^107 + (a^7 + a)*q^113 + (-a^6 + a^3 - 
        1)*q^121 + (a^7 + a^6 - a^5 - a^4 + a^3 + a^2 - a - 1)*q^123 + (-a^7 - 
        a^6 + a^5 + a^4 + a + 1)*q^129 + (-a^6 + a^2)*q^131 + (-a^5 - 1)*q^137 +
        (a^7 - 2*a^5 + a^3 - a)*q^139 + (a^7 + a^6)*q^147 + (-a^7 - a^6 + 2*a^5 
        + 2*a^4 - a^2 + a + 2)*q^153 + O(q^158),
    q^2 + a^3*q^4 + (a^7 + a^6 - a^4 + a^2 - 1)*q^6 + a^6*q^8 + (-a - 1)*q^12 + 
        (a^7 - a^5 + a^3 - a)*q^16 + (-a^6 - a^5 - a^4)*q^18 + (-a^6 + a^5 + a^4
        - a^2 + 1)*q^22 + (-a^4 - a^3)*q^24 - a^2*q^32 + (a^7 - a^5 + a^4 + a^3 
        - a)*q^34 + (-2*a^7 - a^6 + a^5 + a^4 - a^3 - a^2 + a + 1)*q^36 + (-a^7 
        + a^5 - a^3 + a - 1)*q^38 + (a^6 - a^4 + a^2 + a - 1)*q^44 + (-a^7 - 
        a^6)*q^48 + a^2*q^50 + (a^4 + a^3 + a^2 + a)*q^54 - a^5*q^64 + (a^6 + 
        a^5 - a^3 - a^2)*q^66 + (a^7 - a^2)*q^68 + (a^2 + a + 1)*q^72 + (-a^3 + 
        a^2)*q^76 + a*q^82 + (-a^5 - a)*q^86 + (a^4 - a)*q^88 + (-a^7 + a^5 - 
        a^3 + a + 1)*q^96 + (-a^7 + a^5 - a^3 + a)*q^98 + a^5*q^100 + (-a^7 - 
        a^6 - a^2 - a)*q^102 + (a^7 + a^6 + a^5 + a^4)*q^108 + (a^4 - a^2 + 
        1)*q^114 + (-a^6 + a^4 - a^2 + 1)*q^128 + (a^7 - 2*a^5 - a^4 + a^3 + a^2
        - a - 1)*q^132 + (-a^7 + 1)*q^134 + (-a^5 - 1)*q^136 + (a^5 + a^4 + 
        a^3)*q^144 + (-a^7 - a^3)*q^146 + (a^7 - a^5 + a^3 - a - 1)*q^150 + 
        (-a^6 + a^5)*q^152 + O(q^158)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 2*H.3
;
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(
656
);
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:=
158
;
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 + O(q^158),
    q^2 + (a^2 - a + 1)*q^10 - q^18 + (a^3 - 2*a^2 + a - 1)*q^26 + (a^2 + 
        a)*q^34 + (-a^3 + a^2 - a)*q^50 + (-a^2 - 1)*q^74 - a^3*q^82 + (-a^2 + a
        - 1)*q^90 + (-a^3 + a^2 - a + 1)*q^98 + (2*a^3 - a^2 + a - 1)*q^106 + 
        (-a^3 - a)*q^122 + (a^3 - a^2 - a + 1)*q^130 + (-a^3 + a^2 + 1)*q^146 + 
        O(q^158),
    q^4 - a^3*q^8 - a*q^16 + (a^2 - a + 1)*q^20 + (a^3 - a^2 + a - 1)*q^32 - 
        q^36 + (-a^2 + a)*q^40 + (a^3 - 2*a^2 + a - 1)*q^52 + a^2*q^64 + (a^2 + 
        a)*q^68 + a^3*q^72 + (-a^3 + a^2 - a)*q^80 + (-a^3 + a^2 - a)*q^100 + 
        (a^2 - 1)*q^104 + q^128 + (-a^3 + a^2 - a + 2)*q^136 + a*q^144 + (-a^2 -
        1)*q^148 + O(q^158)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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(
20
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^3 - a^2)*q^3 + (a^3 - a^2 - 2)*q^9 + (-a^3 - 1)*q^11 + (-a^3 + a^2 -
        a + 2)*q^19 + a^2*q^25 + (2*a^3 + 2*a - 1)*q^27 + (a^3 + a^2 - a - 
        1)*q^33 + a*q^41 + (a - 1)*q^43 + (-a^3 + a^2 - a + 1)*q^49 + (-a^3 - 
        2*a^2 - a)*q^57 + 2*a^3*q^59 + (-a^2 + 1)*q^67 + (a^3 - a^2)*q^73 + 
        (-a^3 + a^2 - a + 2)*q^75 + (-2*a^3 + 2*a^2 + 2)*q^81 + (a^3 - a^2 - 
        1)*q^83 + (-a^3 + a)*q^89 + (2*a^3 - a^2 + a - 1)*q^97 + (a^3 + a^2 + a 
        + 1)*q^99 + (-a^3 - a)*q^107 + (-a^2 + a)*q^113 + (a^3 - a + 1)*q^121 + 
        (-2*a^3 + a^2 - a + 1)*q^123 + (-a^3 + 2*a^2 - a + 1)*q^129 + (a^2 - 
        a)*q^131 + (-a^3 + a^2 - a)*q^139 + (-a^2 - a)*q^147 + O(q^158),
    q^2 + a^3*q^4 + (-a^3 - a^2)*q^6 - a*q^8 + (a + 1)*q^12 + (-a^3 + a^2 - a + 
        1)*q^16 + (a^3 - a^2 - 2)*q^18 + (-a^3 - 1)*q^22 + (2*a^3 - a^2 + a - 
        1)*q^24 + a^2*q^32 + (-2*a^3 - a + 1)*q^36 + (-a^3 + a^2 - a + 2)*q^38 +
        (-a^3 + a)*q^44 + (-a^2 - a)*q^48 + a^2*q^50 + (2*a^3 + 2*a - 1)*q^54 - 
        q^64 + (a^3 + a^2 - a - 1)*q^66 + (a^2 + a + 1)*q^72 + (a^3 + a^2)*q^76 
        + a*q^82 + (a - 1)*q^86 + (a^3 - a^2 + 2*a - 1)*q^88 + (-a^3 + a^2 - a +
        2)*q^96 + (-a^3 + a^2 - a + 1)*q^98 - q^100 + (a^3 - 2*a^2 - 2)*q^108 + 
        (-a^3 - 2*a^2 - a)*q^114 + 2*a^3*q^118 - a^3*q^128 + (-2*a^3 + a^2 - 
        2*a)*q^132 + (-a^2 + 1)*q^134 + (2*a^3 - a^2 + a - 2)*q^144 + (a^3 - 
        a^2)*q^146 + (-a^3 + a^2 - a + 2)*q^150 + (-a - 1)*q^152 + O(q^158)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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(
8
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^2 - a)*q^7 - a^3*q^9 + (a^3 - a^2)*q^17 + (-a^3 - a)*q^23 - a^2*q^25 
        + (a^3 + a)*q^31 + a*q^41 + (-a - 1)*q^47 + (-a^3 + a^2 - 1)*q^49 + (a -
        1)*q^63 + (-a^2 + a)*q^71 + (a^2 + 1)*q^73 + (a^2 + a)*q^79 - a^2*q^81 +
        (a^3 - 1)*q^89 + (a^3 + a^2)*q^97 + (-a^2 + 1)*q^103 + (a^3 - a + 
        2)*q^119 + a^3*q^121 + (a^3 + a)*q^127 + (-a - 1)*q^137 + (-a^3 - 
        1)*q^151 + (a^2 - a)*q^153 + O(q^158),
    q^2 + a*q^4 + a^2*q^8 + (a^2 - a)*q^14 + a^3*q^16 - a^3*q^18 + (a^3 - 
        a^2)*q^28 - q^32 + (a^3 - a^2)*q^34 + q^36 + (-a^3 - a)*q^46 - a^2*q^50 
        + (-a^3 - 1)*q^56 + (a^3 + a)*q^62 - a*q^64 + (-a^3 - 1)*q^68 + a*q^72 +
        a*q^82 + (-a^2 + 1)*q^92 + (-a - 1)*q^94 + (-a^3 + a^2 - 1)*q^98 - 
        a^3*q^100 + (-a + 1)*q^112 + (a^2 - 1)*q^124 + (a - 1)*q^126 - a^2*q^128
        + (-a + 1)*q^136 + (-a^2 + a)*q^142 + a^2*q^144 + (a^2 + 1)*q^146 + 
        O(q^158)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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(
8
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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:=
158
;
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 + O(q^158),
    q^2 + (-a^3 - a)*q^10 + q^18 + (-a^2 + a - 1)*q^26 + (a^3 + a - 1)*q^34 + 
        (a^3 - 1)*q^50 + 2*a^2*q^58 + (a^3 - a^2 + a)*q^74 - a*q^82 + (-a^3 - 
        a)*q^90 - a^3*q^98 + (-a^3 - a)*q^106 + (a^2 - a)*q^122 + a^3*q^130 + 
        (-a^3 + a^2)*q^146 + O(q^158),
    q^4 - a*q^8 + a^2*q^16 + (-a^3 - a)*q^20 - a^3*q^32 + q^36 + (a^3 + a - 
        1)*q^40 + (-a^2 + a - 1)*q^52 + (a^3 - a^2 + a - 1)*q^64 + (a^3 + a - 
        1)*q^68 - a*q^72 + (-a^3 + 1)*q^80 + (a^3 - 1)*q^100 + (a^3 - a^2 + 
        a)*q^104 + 2*a^2*q^116 + q^128 + (-a^3 + 1)*q^136 + a^2*q^144 + (a^3 - 
        a^2 + a)*q^148 + O(q^158)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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(
20
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^3 - a^2 - 1)*q^3 + (-a^3 + a^2 + 1)*q^9 + (-a + 1)*q^11 - 2*a^3*q^17 
        + (-a^3 + 1)*q^19 + (a^3 - a^2 + a - 1)*q^25 - q^27 + a^3*q^33 + 
        a^2*q^41 + (a^2 + 1)*q^43 - a^3*q^49 + (2*a^3 + 2*a - 2)*q^51 + (2*a^3 -
        a^2 + a - 2)*q^57 - 2*a*q^59 + (a^3 - a^2 + a)*q^67 + (a^3 - a^2 - 
        1)*q^73 + (-a^3 + 1)*q^75 + (-a^3 + a^2)*q^83 + (a^2 - a)*q^89 + (-a^3 -
        a)*q^97 - a^3*q^99 + (a^2 - a)*q^107 + (a^3 + a - 1)*q^113 + (a^2 - a + 
        1)*q^121 + (-a^3 - a)*q^123 + (-a^2 - a - 1)*q^129 + (a^3 + a - 1)*q^131
        + 2*q^137 + (-a^3 + 1)*q^139 + (a^3 + a - 1)*q^147 + (-2*a^3 - 2*a + 
        2)*q^153 + O(q^158),
    q^2 - a*q^4 + (a^3 - a^2 - 1)*q^6 + a^2*q^8 + (a^2 + 1)*q^12 - a^3*q^16 + 
        (-a^3 + a^2 + 1)*q^18 + (-a + 1)*q^22 + (-a^3 - a)*q^24 + (a^3 - a^2 + a
        - 1)*q^32 - 2*a^3*q^34 + (-a^2 - 1)*q^36 + (-a^3 + 1)*q^38 + (a^2 - 
        a)*q^44 + (a^3 + a - 1)*q^48 + (a^3 - a^2 + a - 1)*q^50 - q^54 + q^64 + 
        a^3*q^66 + (2*a^3 - 2*a^2 + 2*a - 2)*q^68 + (a^3 + a)*q^72 + (a^3 - a^2 
        - 1)*q^76 + a^2*q^82 + (a^2 + 1)*q^86 + (-a^3 + a^2)*q^88 + (-a^3 + 
        1)*q^96 - a^3*q^98 + q^100 + (2*a^3 + 2*a - 2)*q^102 + a*q^108 + (2*a^3 
        - a^2 + a - 2)*q^114 - 2*a*q^118 - a*q^128 + (-a^3 + a^2 - a + 1)*q^132 
        + (a^3 - a^2 + a)*q^134 + 2*q^136 + (-a^3 - a + 1)*q^144 + (a^3 - a^2 - 
        1)*q^146 + (-a^3 + 1)*q^150 + (a^2 + 1)*q^152 + O(q^158)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 2*a*q^5 - a*q^9 + (a - 1)*q^13 + (a + 1)*q^17 - 3*q^25 + (-a + 1)*q^29 +
        q^41 + 2*q^45 - a*q^49 + (-a + 1)*q^53 + (-2*a - 2)*q^65 - 2*a*q^73 - 
        q^81 + (2*a - 2)*q^85 + (a - 1)*q^89 + (a + 1)*q^97 + (-a - 1)*q^101 + 
        (-a - 1)*q^109 + (a + 1)*q^117 - a*q^121 - 4*a*q^125 + (a + 1)*q^137 + 
        (2*a + 2)*q^145 + (a + 1)*q^149 + (-a + 1)*q^153 + (a - 1)*q^157 + 
        O(q^158)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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(
4
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^3 - a*q^9 + (a - 1)*q^11 + (a + 1)*q^17 + (-a - 1)*q^19 - 
        q^25 + 2*a*q^33 + a*q^41 - 2*a*q^43 - a*q^49 + 2*q^51 - 2*q^57 + (a + 
        1)*q^67 + 2*a*q^73 + (a - 1)*q^75 + q^81 - 2*q^83 + (-a + 1)*q^89 + (-a 
        - 1)*q^97 + (a + 1)*q^99 - 2*q^107 - a*q^121 + (a + 1)*q^123 + (-2*a - 
        2)*q^129 + (-a - 1)*q^137 + (-a - 1)*q^147 + (-a + 1)*q^153 + O(q^158),
    q^2 - a*q^4 + (-a + 1)*q^6 - q^8 + (-a - 1)*q^12 + a*q^16 - a*q^18 + (a - 
        1)*q^22 + (a - 1)*q^24 + q^32 + (a + 1)*q^34 - q^36 + (-a - 1)*q^38 + (a
        + 1)*q^44 + (a + 1)*q^48 - q^50 - a*q^64 + 2*a*q^66 + (-a + 1)*q^68 + 
        a*q^72 + (a - 1)*q^76 + a*q^82 - 2*a*q^86 + (-a + 1)*q^88 + (-a + 
        1)*q^96 - a*q^98 + a*q^100 + 2*q^102 - 2*q^114 - q^128 + 2*q^132 + (a + 
        1)*q^134 + (-a - 1)*q^136 + q^144 + 2*a*q^146 + (a - 1)*q^150 + (a + 
        1)*q^152 + O(q^158)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 10*H.3
;
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(
656
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 - q^41 - 2*q^45 + q^49 - 2*q^57 - 2*q^77 + q^81 - 2*q^105 + 
        q^121 - 2*q^141 + O(q^158),
    q^3 - q^15 - q^19 + q^27 - q^35 - q^47 + q^55 + q^63 + q^71 + q^75 - q^79 + 
        q^95 - q^99 + q^111 - q^123 - 2*q^135 + q^151 + O(q^158),
    q^5 - q^9 - q^21 + q^33 - q^37 + q^45 + q^49 + q^57 - q^73 - q^77 - q^81 - 
        q^113 + q^121 + q^133 + q^141 + O(q^158),
    q^7 - q^11 - q^15 + q^27 + q^35 - q^55 - q^67 + q^95 + q^111 - q^147 + 
        O(q^158)
]
;
Bo:=
[
    q + q^9 - 2*q^21 - q^25 - 2*q^33 + q^41 + q^49 + 2*q^57 - 2*q^61 + 2*q^77 - 
        q^81 + q^121 - 2*q^133 + 2*q^141 + O(q^158),
    q^2 + q^18 - 2*q^42 - q^50 - 2*q^66 + q^82 + q^98 + 2*q^114 - 2*q^122 + 
        2*q^154 + O(q^158),
    q^3 - q^7 - q^11 + q^19 + q^47 - q^63 - q^67 + q^71 - q^75 + q^79 - q^99 + 
        q^123 + q^147 + q^151 + O(q^158),
    q^4 + q^16 - q^20 - q^40 + q^64 - q^72 - q^80 - q^84 + q^100 - q^132 - q^148
        + O(q^158),
    q^5 + q^9 - q^21 - 2*q^25 - q^33 + q^37 - q^45 + q^49 + q^57 - 2*q^61 + q^73
        + q^77 - q^81 + q^113 + q^121 + 2*q^125 - q^133 + q^141 + O(q^158),
    q^6 - q^14 - q^22 + q^38 + q^94 - q^126 - q^134 + q^142 - q^150 + O(q^158),
    q^8 - q^20 + q^32 - q^36 - q^40 - q^80 + q^84 + 2*q^100 + q^128 + q^132 - 
        q^144 - q^148 + O(q^158),
    q^10 + q^18 - q^42 - 2*q^50 - q^66 + q^74 - q^90 + q^98 + q^114 - 2*q^122 + 
        q^146 + q^154 + O(q^158),
    q^12 - q^24 - q^28 - q^44 + q^48 + q^56 + q^76 + q^88 - q^96 - q^112 - q^152
        + O(q^158)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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(
4
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 - q^4 + (a + 1)*q^5 + a*q^8 + a*q^9 + (-a + 1)*q^10 + q^16 + q^18 
        + (-a - 1)*q^20 + a*q^25 - 2*a*q^31 - a*q^32 - a*q^36 + (-a - 1)*q^37 + 
        (a - 1)*q^40 - a*q^41 + (a - 1)*q^43 + (a - 1)*q^45 + q^49 + q^50 + (-a 
        + 1)*q^59 + (a - 1)*q^61 - 2*q^62 - q^64 - q^72 + (a - 1)*q^74 + (a + 
        1)*q^80 - q^81 - q^82 + (a + 1)*q^83 + (a + 1)*q^86 + (a + 1)*q^90 - 
        a*q^98 - a*q^100 - 2*q^103 + (a - 1)*q^107 + 2*q^113 + (-a - 1)*q^118 - 
        a*q^121 + (a + 1)*q^122 + 2*a*q^124 - 2*a*q^127 + a*q^128 + (a + 
        1)*q^131 + (a - 1)*q^139 + a*q^144 + (a + 1)*q^148 + (-2*a + 2)*q^155 + 
        O(q^158)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
656
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 + q^25 - q^41 - 2*q^43 - q^49 - 2*q^59 - 2*q^73 + q^81 + 2*q^83 + 
        2*q^107 - 2*q^113 + q^121 + 2*q^131 - 2*q^139 + O(q^158),
    q^2 - q^4 + q^8 - q^16 + q^18 + q^32 - q^36 + q^50 - q^64 + q^72 - q^82 - 
        2*q^86 - q^98 - q^100 - 2*q^118 + q^128 - q^144 - 2*q^146 + O(q^158)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^4 + 1)*q^4 + (a^7 + a^2)*q^7 + (a^6 - a^2 + a)*q^13 - a^4*q^16 - 
        a^7*q^19 - a*q^25 + (-a^6 + a^3 + a^2)*q^28 + (-a^6 - a^5)*q^31 + (a^7 +
        a^5 - a^3)*q^37 + (-a^7 + a^4 - 1)*q^43 + (a^5 + a^4 - a^2 - a)*q^49 + 
        (a^6 - a^5 + a)*q^52 + (a^6 + a^4)*q^61 - q^64 + (-a^2 - 1)*q^67 + (-a^5
        + a)*q^73 - a^3*q^76 + (2*a^5 - a)*q^79 + (-a^5 + a^4 + a^3 - 2)*q^91 + 
        (-a^6 + a^4 + a^2 - 1)*q^97 + (a^5 - a)*q^100 + (-a^6 - a^5 + a)*q^103 +
        (-a^3 - a)*q^109 + (-a^7 - a^6 + a^3)*q^112 - a^7*q^121 + (-a^2 - 
        a)*q^124 + (a^6 - a^4 - a^2)*q^127 + (-a^5 + a^2 + a)*q^133 + (a^5 - 
        a^4)*q^139 + O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^2*q^4 + (a^2 - a)*q^7 + (-a^2 + a + 1)*q^13 + (a^2 - 1)*q^16 + a*q^19 
        + a*q^25 + (a^3 - a^2 + 1)*q^28 + (a^3 - a - 1)*q^31 + (-a^2 - a)*q^43 +
        (-a^3 + 2*a^2 - 1)*q^49 + (-a^3 - 1)*q^52 + (a^2 - 2)*q^61 + q^64 + (a^2
        + 1)*q^67 - a^3*q^73 - a^3*q^76 - a*q^79 + (2*a^3 - a^2 - a + 1)*q^91 + 
        (-2*a^2 + 1)*q^97 - a^3*q^100 + (-a^3 - 1)*q^103 + (a^3 + a)*q^109 + 
        (-a^3 + a - 1)*q^112 - a*q^121 + (a^2 + a)*q^124 + (a^3 - a^2)*q^133 + 
        (a^3 + a^2 - a - 1)*q^139 + O(q^142),
    q^3 - a^3*q^9 - a^2*q^12 + (a^2 - a)*q^21 - q^27 + (a^3 - a)*q^36 + (-a^2 + 
        a + 1)*q^39 + (a^2 - 1)*q^48 + a*q^57 + (-a^3 + a^2 + a - 1)*q^63 + 
        a*q^75 + a^3*q^81 + (a^3 - a^2 + 1)*q^84 + (a^3 - a - 1)*q^93 + 
        a^2*q^108 + (-a^2 - a + 1)*q^117 + (-a^2 - a)*q^129 + O(q^142)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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(
18
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 + (-a^3 + a^2)*q^7 + (a^2 + a)*q^13 + q^16 - 2*a^3*q^19 - a*q^25 + 
        (a^3 - a^2)*q^28 + (a^2 + a)*q^31 + (a^3 - a)*q^37 + (a^3 + 1)*q^43 + 
        (-a^2 + a - 1)*q^49 + (-a^2 - a)*q^52 + (-a^2 - 1)*q^61 - q^64 + (-a^2 -
        1)*q^67 - a*q^73 + 2*a^3*q^76 + (a^3 + a)*q^91 + (-a^2 + 1)*q^97 + 
        a*q^100 + (a^2 - a)*q^103 + (-a^3 - a)*q^109 + (-a^3 + a^2)*q^112 + 
        a^3*q^121 + (-a^2 - a)*q^124 + (a^2 + 1)*q^127 + (-2*a^2 + 2*a)*q^133 + 
        (-a + 1)*q^139 + O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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(
6
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^4 + (2*a - 1)*q^7 - a*q^16 - a*q^19 + a*q^25 + (-a - 1)*q^28 +
        (-a + 2)*q^31 + (-2*a + 2)*q^37 + (2*a - 1)*q^43 - 2*q^49 + (-a + 
        1)*q^61 + q^64 + a*q^67 - q^73 + q^76 - a*q^79 - q^97 - q^100 + (a - 
        1)*q^109 + (-a + 2)*q^112 + a*q^121 + (2*a - 1)*q^124 - 2*a*q^127 + (-a 
        + 2)*q^133 + (-2*a + 1)*q^139 + O(q^142),
    q^3 - q^9 + (a - 1)*q^12 + (2*a - 1)*q^21 + q^27 + (-a + 1)*q^36 - a*q^48 - 
        a*q^57 + (-2*a + 1)*q^63 + a*q^75 - q^81 + (-a - 1)*q^84 + (-a + 2)*q^93
        + (a - 1)*q^108 + (-2*a + 2)*q^111 + (2*a - 1)*q^129 + O(q^142)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 + (-a - 1)*q^7 + (a - 1)*q^13 + q^16 - 2*a*q^19 + a*q^25 + (-a - 
        1)*q^28 + (a - 1)*q^31 + (-a + 1)*q^43 + a*q^49 + (a - 1)*q^52 + q^64 + 
        a*q^73 - 2*a*q^76 + 2*a*q^79 + 2*q^91 + a*q^100 + (a - 1)*q^103 + (-a - 
        1)*q^112 - a*q^121 + (a - 1)*q^124 + (2*a - 2)*q^133 + (a + 1)*q^139 + 
        O(q^142),
    q^3 + a*q^9 + q^12 + (-a - 1)*q^21 - q^27 + a*q^36 + (a - 1)*q^39 + q^48 - 
        2*a*q^57 + (-a + 1)*q^63 + a*q^75 - a*q^81 + (-a - 1)*q^84 + (a - 
        1)*q^93 - q^108 + (-a - 1)*q^117 + (-a + 1)*q^129 + O(q^142)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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(
6
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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(
6
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 - q^7 + 2*q^10 + (-a + 1)*q^16 + (-a + 1)*q^19 - 2*q^22 + (-a + 
        1)*q^25 - a*q^28 + (a - 1)*q^31 + (2*a - 2)*q^34 + q^43 - 2*q^46 + (2*a 
        - 2)*q^55 - 2*a*q^58 - a*q^61 + q^64 + (-a + 1)*q^67 - 2*q^70 + q^73 + 
        q^76 + (-a + 1)*q^79 + 2*a*q^85 - q^97 + q^100 + 2*a*q^106 - a*q^109 + 
        (a - 1)*q^112 + (2*a - 2)*q^115 + (-a + 1)*q^121 - q^124 + (a - 1)*q^133
        + q^139 + O(q^142),
    q^2 + (-a + 1)*q^5 + (a - 1)*q^11 - q^14 + a*q^17 + q^20 + (a - 1)*q^23 - 
        q^29 + (-a + 1)*q^32 + (a - 1)*q^35 + (-a + 1)*q^38 - q^44 + (-a + 
        1)*q^50 + q^53 + (a - 1)*q^62 + (a - 1)*q^68 + (-a + 1)*q^77 - a*q^80 - 
        a*q^83 + q^86 - q^92 - a*q^95 + (a - 1)*q^101 + (2*a - 2)*q^110 + (-a + 
        1)*q^113 - a*q^116 - a*q^119 - a*q^122 + (-a + 1)*q^134 - q^140 + 
        O(q^142)
]
;
Bo:=
[
    q - q^10 + (-a + 1)*q^13 + (-a + 1)*q^16 + (a - 1)*q^19 + q^22 + (a - 
        1)*q^31 - a*q^37 + a*q^40 + 2*q^43 - q^46 - q^49 + (a - 1)*q^55 - a*q^58
        + a*q^61 - q^64 + (-a + 1)*q^67 - q^73 + (a - 1)*q^79 - q^82 - a*q^88 + 
        q^94 - a*q^106 + a*q^109 + (-a + 1)*q^115 + a*q^118 + (a - 1)*q^127 + (a
        - 1)*q^130 + O(q^142),
    q^2 + (a - 1)*q^5 - a*q^8 + (-a + 1)*q^11 + (a - 1)*q^23 + (-a + 1)*q^26 - 
        q^29 + (a - 1)*q^38 + (a - 1)*q^41 + (-a + 1)*q^47 - q^53 + q^59 + (a - 
        1)*q^62 + a*q^65 + q^71 - a*q^74 + a*q^80 + 2*q^86 + q^89 - a*q^95 - 
        q^98 + (-a + 1)*q^101 - q^104 + q^107 + (a - 1)*q^110 + (-a + 1)*q^113 +
        a*q^122 - a*q^125 - q^128 + (a - 1)*q^131 + (-a + 1)*q^134 + O(q^142),
    q^3 + (a - 1)*q^18 - q^27 - q^30 + (-a + 1)*q^39 - a*q^45 + (-a + 1)*q^48 + 
        (a - 1)*q^57 + q^66 + q^72 + (a - 1)*q^93 + a*q^99 - a*q^111 + a*q^120 +
        2*q^129 - q^138 + O(q^142),
    q^4 + (-a + 1)*q^7 + (a - 1)*q^10 - 3*a*q^13 - 2*a*q^16 + 2*a*q^19 + (-a + 
        1)*q^22 - a*q^25 - q^28 + 2*a*q^31 + q^37 + q^40 + (-3*a + 3)*q^43 + (a 
        - 1)*q^46 + (a - 1)*q^49 + (2*a - 2)*q^52 + a*q^55 - q^58 + (2*a - 
        2)*q^64 + (2*a - 2)*q^73 + (-a + 1)*q^76 + 2*a*q^79 + (a - 1)*q^82 - 
        q^88 + 2*a*q^91 + (-a + 1)*q^94 + (-a + 1)*q^97 + (a - 1)*q^100 + (2*a -
        2)*q^103 - q^106 + a*q^112 - a*q^115 + q^118 - a*q^121 + (-a + 1)*q^124 
        - a*q^127 + a*q^130 - a*q^133 + (-a + 1)*q^139 + O(q^142),
    q^6 + (a - 1)*q^12 + (a - 1)*q^15 - q^18 + a*q^21 - a*q^24 - 2*a*q^27 - 
        a*q^30 + (-a + 1)*q^33 + (a - 1)*q^36 + 3*q^39 + (-a + 1)*q^45 + 2*q^48 
        - q^54 - 2*q^57 + a*q^63 + a*q^66 + (a - 1)*q^69 + a*q^72 + q^75 + (-a +
        1)*q^78 - 2*a*q^81 + (-a + 1)*q^84 - q^87 - a*q^90 - 2*q^93 + (a - 
        1)*q^99 + (a - 1)*q^108 + (a - 1)*q^111 + (a - 1)*q^114 + 3*q^117 + (a -
        1)*q^120 + (a - 1)*q^123 + 3*a*q^129 + (-a + 1)*q^135 - a*q^138 + (-a + 
        1)*q^141 + O(q^142),
    q^9 - a*q^12 + (-a + 1)*q^18 - q^21 + 2*q^27 + q^30 - a*q^36 + (3*a - 
        3)*q^39 + a*q^45 + (2*a - 2)*q^48 + (-2*a + 2)*q^57 - q^63 - q^66 - q^72
        + (a - 1)*q^75 + q^81 + a*q^84 + (-2*a + 2)*q^93 - a*q^99 - a*q^108 - 
        a*q^111 + (2*a - 2)*q^117 - a*q^120 - 3*q^129 + q^138 + O(q^142)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
657
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 36*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 + q^16 - 2*q^19 - q^25 - 2*q^37 + q^49 + 2*q^61 + q^64 + 2*q^67 - 
        q^73 - 2*q^76 - 2*q^79 + 2*q^97 - q^100 - 2*q^109 - q^121 + 2*q^127 + 
        O(q^142),
    q^3 - q^9 + q^12 + q^27 - q^36 + q^48 - 2*q^57 - q^75 - q^81 + q^108 - 
        2*q^111 + O(q^142)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
658
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
658
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*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(
658
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
658
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
658
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
658
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
658
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
23*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^6 - q^16 + q^18 + q^24 + q^25 - q^27 + q^32 - q^34 + q^47 - q^49 + 
        q^51 - q^53 - q^59 - q^61 - q^72 - q^74 + 2*q^83 - q^89 - q^97 + q^102 +
        q^106 + q^111 + q^118 + q^121 + q^122 - q^131 + q^136 - q^142 - q^150 - 
        q^153 - q^157 - q^158 - q^159 + q^169 - q^173 - q^177 + q^178 - q^183 + 
        O(q^186),
    q^2 - q^6 - q^12 - q^16 + q^18 + q^24 - q^34 + q^36 + q^48 + q^50 - q^54 + 
        q^64 - q^68 - q^72 - q^74 + q^94 - q^98 + 2*q^102 + q^136 - q^142 - 
        q^144 - q^148 - q^150 - q^158 + 2*q^166 + O(q^186),
    q^3 + q^8 - q^9 - q^12 - q^16 + q^17 + q^36 + q^37 - q^51 - q^53 - q^59 - 
        q^61 - q^68 + q^71 + q^75 + q^79 - q^89 + q^96 - q^97 + q^101 + q^103 - 
        q^111 - q^131 + q^141 - q^147 - q^148 + q^149 + q^153 - q^157 - q^173 + 
        O(q^186),
    q^4 - q^6 - q^8 + q^18 - q^34 + q^48 - q^74 + q^100 + q^102 + q^106 - q^108 
        + q^118 + q^122 + q^128 - q^142 - q^144 - q^150 - q^158 + q^178 + 
        O(q^186),
    q^7 - q^42 - q^49 + q^98 - q^112 + q^126 - q^147 + q^168 + q^175 + O(q^186),
    q^14 - q^42 - q^84 - q^112 + q^126 + q^168 + O(q^186),
    q^21 - q^49 + q^56 - q^63 - q^84 - q^112 + q^119 + O(q^186),
    q^28 - q^42 - q^56 + q^98 + q^126 + O(q^186)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
658
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^18 + (-a + 1)*q^21 - q^24 - a*q^25 - q^27 + 1/3*(-a - 1)*q^28 
        + q^32 + (a - 1)*q^34 + a*q^36 + 1/3*(a - 2)*q^42 + (a - 1)*q^47 - 
        a*q^51 + (-a + 1)*q^53 + q^54 + 1/3*(a + 1)*q^56 - q^59 + a*q^61 + q^63 
        - a*q^64 + (-a + 1)*q^68 - a*q^72 + q^74 - q^83 + a*q^84 + (-a + 1)*q^89
        + a*q^97 + 1/3*(2*a - 1)*q^98 + q^102 + (a - 1)*q^106 + (-a + 1)*q^108 +
        (a - 1)*q^111 - a*q^112 + q^118 + a*q^119 + (a - 1)*q^121 - a*q^122 + 
        1/3*(-a + 2)*q^126 - q^131 - a*q^142 + (a - 1)*q^144 - q^148 + (-a + 
        1)*q^153 + a*q^157 + a*q^159 - a*q^162 + q^169 - q^173 - q^177 + (a - 
        1)*q^178 + a*q^183 + O(q^186),
    q^2 + 1/3*(2*a - 1)*q^14 + (-a + 1)*q^24 + 1/3*(2*a - 1)*q^28 + (a - 1)*q^32
        - a*q^34 + 1/3*(-a + 2)*q^42 - a*q^48 - a*q^50 - q^54 + 1/3*(a - 2)*q^56
        + a*q^64 + q^72 + (a - 1)*q^74 + 1/3*(a - 2)*q^84 + (a - 1)*q^94 + 
        1/3*(-a - 1)*q^98 - a*q^106 + 1/3*(a + 1)*q^112 + 1/3*(a + 1)*q^126 + 
        (-a + 1)*q^136 + q^142 + (-a + 1)*q^144 - q^166 + 1/3*(2*a - 1)*q^168 + 
        (-a + 1)*q^178 + O(q^186),
    q^3 + 1/3*(-a + 2)*q^14 - q^17 - q^18 + 1/3*(-2*a + 1)*q^21 + (a - 1)*q^27 +
        a*q^37 + 1/3*(a - 2)*q^42 + (-a + 1)*q^48 + 1/3*(-a - 1)*q^49 + a*q^54 +
        1/3*(a + 1)*q^56 + 1/3*(2*a - 1)*q^63 + (-a + 1)*q^71 - a*q^72 - a*q^75 
        - a*q^79 + q^81 + q^102 + (a - 1)*q^106 + 1/3*(a - 2)*q^119 + 1/3*(2*a -
        1)*q^126 + a*q^128 + (a - 1)*q^141 + (-a + 1)*q^153 + a*q^159 + (-a + 
        1)*q^162 + 1/3*(-a - 1)*q^168 - q^178 + O(q^186),
    q^4 + 1/3*(-2*a + 1)*q^14 - q^17 - q^18 + 1/3*(-a + 2)*q^21 + (a - 1)*q^36 +
        a*q^37 + 1/3*(-a - 1)*q^42 + (-a + 1)*q^48 + 1/3*(a - 2)*q^49 + a*q^54 +
        1/3*(2*a - 1)*q^56 + 1/3*(a + 1)*q^63 + (-a + 1)*q^71 - a*q^96 - 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 - a*q^149 + a*q^159 + (-a + 1)*q^162 + 1/3*(a - 
        2)*q^168 - a*q^177 - q^178 + (a - 1)*q^183 + O(q^186),
    q^6 + a*q^17 + 1/3*(-a - 1)*q^21 + 1/3*(-a + 2)*q^28 - q^34 - q^36 + (-a + 
        1)*q^37 + 1/3*(-2*a + 1)*q^42 + 1/3*(a + 1)*q^49 + (a - 1)*q^54 + 
        1/3*(-2*a + 1)*q^63 - q^71 + a*q^74 + 1/3*(a - 2)*q^84 + (-a + 1)*q^96 +
        1/3*(-a - 1)*q^98 - a*q^101 + (a - 1)*q^103 + a*q^108 + 1/3*(a + 
        1)*q^112 + 1/3*(2*a - 1)*q^119 + 1/3*(2*a - 1)*q^126 + (-a + 1)*q^142 - 
        a*q^144 + (a - 1)*q^149 - a*q^150 - a*q^158 + (-a + 1)*q^159 + q^162 + 
        (a - 1)*q^177 + q^183 + O(q^186),
    q^7 + a*q^14 + (-2*a + 1)*q^18 + a*q^21 + (-2*a + 1)*q^24 + q^28 + (2*a - 
        1)*q^32 + (-a - 1)*q^34 + (-a - 1)*q^36 + (-a + 1)*q^42 + (-a + 2)*q^51 
        + (2*a - 1)*q^53 + (a - 2)*q^54 + (a - 1)*q^56 + (-2*a + 1)*q^59 + (a - 
        2)*q^61 + (a - 1)*q^63 + (a + 1)*q^64 + (-a + 2)*q^72 + (2*a - 1)*q^74 -
        q^84 + (-a - 1)*q^97 - q^98 + (2*a - 1)*q^102 + (-a - 1)*q^106 + (2*a - 
        1)*q^108 + (-a - 1)*q^111 + q^112 - q^119 + (a - 1)*q^126 + (-a + 
        2)*q^131 + (-a + 2)*q^142 + (-2*a + 1)*q^144 + (-a + 1)*q^147 + (a + 
        1)*q^153 + (a - 2)*q^159 + (a + 1)*q^162 + (-a + 2)*q^173 - a*q^175 + 
        (-a + 2)*q^177 + (-2*a + 1)*q^178 + (-a - 1)*q^183 + O(q^186),
    q^8 + 1/3*(a + 1)*q^14 - a*q^18 + 1/3*(-2*a + 1)*q^28 - q^34 - q^36 + 
        1/3*(-2*a + 1)*q^42 + q^48 + (a - 1)*q^54 + 1/3*(2*a - 1)*q^56 + a*q^74 
        + 1/3*(-a - 1)*q^84 + (-a + 1)*q^96 + 1/3*(a - 2)*q^98 + a*q^102 - q^106
        + a*q^108 + 1/3*(2*a - 1)*q^112 + 1/3*(2*a - 1)*q^126 + (a - 1)*q^128 + 
        (-a + 1)*q^142 + q^162 + 1/3*(-2*a + 1)*q^168 - a*q^178 + O(q^186),
    q^9 + 1/3*(a + 1)*q^14 - a*q^18 + q^21 - q^24 - a*q^27 + 1/3*(-2*a + 1)*q^28
        + a*q^32 - q^34 + (a - 1)*q^36 + 1/3*(-2*a + 1)*q^42 - a*q^51 + q^53 + 
        (a - 1)*q^54 + 1/3*(2*a - 1)*q^56 - a*q^59 + (a - 1)*q^61 + (-a + 
        1)*q^64 + (-a + 1)*q^72 + a*q^74 + (a - 1)*q^81 + 1/3*(2*a - 1)*q^84 + 
        q^89 + (a - 1)*q^97 + 1/3*(a - 2)*q^98 + a*q^102 - q^106 + q^108 + (a - 
        1)*q^111 + 1/3*(-a + 2)*q^112 + (a - 1)*q^119 + 1/3*(2*a - 1)*q^126 - 
        a*q^131 + (-a + 1)*q^136 + (-a + 1)*q^142 - a*q^144 - a*q^147 + q^153 + 
        (a - 1)*q^157 + (a - 1)*q^159 + q^162 + 1/3*(a + 1)*q^168 - a*q^173 - 
        a*q^177 - a*q^178 + (a - 1)*q^183 + O(q^186),
    q^12 + 1/3*(2*a - 1)*q^14 + (-a + 1)*q^18 + (a - 1)*q^32 + 1/3*(-2*a + 
        1)*q^42 - q^54 - q^68 + 1/3*(-2*a + 1)*q^84 + (a - 1)*q^102 - a*q^106 + 
        (a - 1)*q^108 + 1/3*(a + 1)*q^112 + 1/3*(-a - 1)*q^126 + (-a + 1)*q^136 
        + (-a + 1)*q^144 + a*q^148 + a*q^162 + 1/3*(2*a - 1)*q^168 + (-a + 
        1)*q^178 + O(q^186),
    q^16 + (a - 1)*q^17 + 1/3*(-2*a + 1)*q^21 + (a - 1)*q^24 + q^37 + 1/3*(2*a -
        1)*q^49 + 1/3*(-2*a + 1)*q^56 + 1/3*(-a + 2)*q^63 - a*q^64 - q^68 - 
        a*q^71 - q^72 + 1/3*(-a + 2)*q^84 + q^96 + (-a + 1)*q^101 - q^103 + 
        1/3*(2*a - 1)*q^112 + 1/3*(a - 2)*q^119 + (-a + 1)*q^136 + a*q^148 - 
        q^149 + q^159 - q^177 + a*q^183 + O(q^186)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
659
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
658
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
659
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
94
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
659
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
47*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
659
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
329*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^19 - q^23 + q^25 - q^33 - q^45 + q^49 + q^64 - q^65 - 
        q^75 - q^76 - q^85 - q^92 - q^95 + q^100 + O(q^110),
    q^3 + q^12 - q^13 - q^15 - q^17 + q^27 - q^39 - q^45 + q^48 - q^51 - q^52 + 
        q^55 + q^57 + q^59 - q^60 + q^65 - q^68 + q^69 + q^75 + q^79 + q^85 - 
        q^89 - q^95 + q^107 + q^108 + O(q^110),
    q^5 - q^13 - q^15 - q^17 + q^20 + q^33 + q^37 - q^52 + q^55 - q^60 - q^68 + 
        q^75 + q^80 + q^81 - q^89 - q^95 - q^99 + q^109 + O(q^110),
    q^9 - q^13 - q^15 - q^17 + q^19 + q^23 + q^33 + q^36 - q^39 - q^51 - q^52 - 
        q^60 + q^65 - q^68 + q^75 + q^76 + q^81 + q^85 - q^89 + q^92 - q^99 + 
        O(q^110),
    q^11 - q^13 - q^17 + q^25 + q^27 - q^39 + q^44 - q^45 - q^51 - q^52 + q^57 +
        q^61 - q^68 + q^69 + q^73 - q^89 - q^95 + q^100 + q^108 + O(q^110)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
660
);
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(
660
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
660
);
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(
660
);
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(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
660
);
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:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
660
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
660
);
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(
660
);
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:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
660
);
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(
660
);
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(
20
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
660
);
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(
660
);
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(
10
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
660
);
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(
660
);
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:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
660
);
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(
660
);
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(
20
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
660
);
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(
660
);
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(
10
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
660
);
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^9 + q^11 - q^23 - q^25 + q^27 - q^31 - q^37 + 2*q^47 + q^49 + 2*q^53 -
        q^59 - q^67 - q^71 - q^89 - q^97 - q^99 + 2*q^103 - q^113 + q^121 + 
        q^125 - q^137 - q^157 + 2*q^163 + q^169 - q^179 - q^181 - q^191 + 
        2*q^199 + q^207 - q^223 + q^225 - q^229 - q^243 - q^251 - q^253 + 
        2*q^257 + O(q^266),
    q^3 - q^9 + q^33 - q^69 - q^75 + q^81 - q^93 - q^99 - q^111 + 2*q^141 + 
        q^147 + 2*q^159 - q^177 - q^201 + q^207 - q^213 + q^225 - q^243 + 
        O(q^266),
    q^5 - q^25 - q^45 + q^55 - q^115 + q^135 - q^155 - q^185 + q^225 + 2*q^235 +
        q^245 + 2*q^265 + O(q^266),
    q^15 - q^45 - q^75 + q^165 + q^225 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
660
);
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:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
660
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
660
);
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(
4
);
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/5*(a - 2)*q^11 + 1/10*(-a - 3)*q^15 + 1/5*(-2*a - 1)*q^23 + 1/5*(-a + 
        2)*q^25 + 1/5*(-3*a - 4)*q^27 + 1/5*(-a + 2)*q^31 + 1/5*(3*a - 1)*q^33 +
        1/5*(-3*a - 4)*q^37 + 1/2*(-a + 1)*q^45 + 1/5*(a + 3)*q^47 + a*q^49 + 
        1/5*(-3*a + 1)*q^53 + 1/5*(-a - 3)*q^55 + 1/5*(2*a + 1)*q^59 + 1/5*(3*a 
        + 4)*q^67 + 1/5*(a - 2)*q^69 + 1/5*(2*a + 1)*q^71 + 1/2*(a + 1)*q^75 + 
        1/5*(a - 2)*q^81 + 1/5*(a - 2)*q^89 + (a - 1)*q^93 + 1/5*(2*a + 1)*q^97 
        + 1/5*(-3*a + 1)*q^99 + (a - 1)*q^103 + q^111 + 1/5*(-a + 2)*q^113 + 
        1/5*(-4*a - 2)*q^115 - q^121 + 1/5*(a - 2)*q^125 + 1/5*(-2*a - 1)*q^135 
        + 1/5*(-a + 2)*q^137 + 1/5*(-2*a + 4)*q^141 + 1/5*(-4*a - 2)*q^155 + 
        1/5*(-2*a - 1)*q^157 + 1/5*(-4*a - 2)*q^159 + (-a + 1)*q^163 + 1/2*(a + 
        1)*q^165 - a*q^169 + 1/5*(a + 3)*q^177 + 1/5*(-a + 2)*q^179 + 1/5*(a - 
        2)*q^181 + 1/5*(3*a - 1)*q^185 + 1/5*(a - 2)*q^191 - q^201 + 1/5*(a - 
        2)*q^207 + 1/5*(-2*a + 4)*q^213 + 1/5*(4*a - 3)*q^223 + 1/10*(-a + 
        7)*q^225 + 1/5*(2*a + 1)*q^229 + 1/5*(4*a + 2)*q^235 + 1/5*(-a + 
        2)*q^243 + 1/5*(-2*a - 1)*q^251 + 1/5*(-a + 2)*q^253 + 1/5*(-a - 
        3)*q^257 + 1/5*(-2*a + 4)*q^265 + O(q^266),
    q^3 + 1/5*(2*a + 6)*q^11 + 1/10*(-7*a - 1)*q^15 + 1/5*(6*a - 2)*q^23 + 
        1/5*(3*a - 1)*q^25 + 1/5*(4*a + 2)*q^27 + 1/5*(-2*a - 6)*q^31 + 
        1/5*(-4*a + 3)*q^33 + 1/5*(4*a + 2)*q^37 + 1/2*(-a - 3)*q^45 + 1/5*(-8*a
        - 4)*q^47 + 1/5*(4*a - 8)*q^53 + 1/5*(3*a - 1)*q^55 + 1/5*(-6*a + 
        2)*q^59 + 1/5*(-4*a - 2)*q^67 + 1/5*(7*a + 1)*q^69 + 1/5*(-6*a + 2)*q^71
        + 1/2*(-a + 1)*q^75 + 1/5*(-3*a + 1)*q^81 + 1/5*(2*a + 6)*q^89 + q^93 + 
        1/5*(4*a + 2)*q^97 + 1/5*(-a - 3)*q^99 + (-a - 1)*q^111 + 1/5*(-2*a - 
        6)*q^113 + 1/5*(-3*a + 1)*q^115 + 1/5*(2*a + 6)*q^125 + 1/5*(a - 
        2)*q^135 + 1/5*(-2*a - 6)*q^137 + 1/5*(a - 7)*q^141 + a*q^147 + 
        1/5*(12*a - 4)*q^155 + 1/5*(-4*a - 2)*q^157 + 1/5*(7*a + 1)*q^159 + 
        1/2*(-a - 1)*q^165 + 1/5*(-3*a - 4)*q^177 + 1/5*(-2*a - 6)*q^179 + 
        1/5*(2*a + 6)*q^181 + 1/5*(-4*a + 8)*q^185 + 1/5*(2*a + 6)*q^191 + (a + 
        1)*q^201 + 1/5*(7*a + 6)*q^207 + 1/5*(-4*a + 3)*q^213 + 1/5*(-2*a + 
        4)*q^223 + 1/10*(3*a - 1)*q^225 + 1/5*(-6*a + 2)*q^229 + 1/5*(-2*a + 
        4)*q^235 + 1/5*(-2*a - 1)*q^243 + 1/5*(6*a - 2)*q^251 + 1/5*(-2*a + 
        4)*q^253 + 1/5*(8*a + 4)*q^257 + 1/5*(-4*a - 2)*q^265 + O(q^266),
    q^5 + 1/5*(4*a + 2)*q^11 + 1/5*(-2*a + 4)*q^15 + 1/5*(-3*a - 9)*q^23 + 
        1/5*(a - 2)*q^25 + 1/5*(3*a - 1)*q^27 + 1/5*(-4*a - 2)*q^31 + 1/5*(2*a +
        6)*q^33 + 1/5*(3*a - 1)*q^37 - a*q^45 + 1/5*(-6*a + 2)*q^47 + 1/5*(-2*a 
        - 6)*q^53 + 1/5*(a - 2)*q^55 + 1/5*(-2*a + 4)*q^59 + 1/5*(-3*a + 1)*q^67
        + 1/5*(4*a - 8)*q^69 + 1/5*(8*a + 4)*q^71 + 1/5*(4*a + 2)*q^81 + 
        1/5*(4*a - 8)*q^89 + 1/5*(3*a - 1)*q^97 + 1/5*(-2*a + 4)*q^99 + 1/5*(a +
        3)*q^113 + 1/5*(-a + 2)*q^115 + 1/5*(4*a + 2)*q^125 + 1/5*(-3*a - 
        4)*q^135 + 1/5*(-9*a + 3)*q^137 + 1/5*(-8*a - 4)*q^141 + 1/5*(-a - 
        8)*q^155 + 1/5*(-3*a + 1)*q^157 + 1/5*(4*a - 8)*q^159 + 1/5*(-6*a + 
        2)*q^177 + 1/5*(-4*a + 8)*q^179 + 1/5*(4*a + 2)*q^181 + 1/5*(2*a + 
        1)*q^185 + 1/5*(4*a + 2)*q^191 + 1/5*(9*a - 3)*q^207 + 1/5*(2*a + 
        6)*q^213 + 1/5*(a + 3)*q^223 + 1/5*(-2*a - 1)*q^225 + 1/5*(-2*a + 
        4)*q^229 + 1/5*(a + 3)*q^235 + 1/5*(a + 3)*q^243 + a*q^245 + 1/5*(-8*a -
        4)*q^251 + 1/5*(a + 3)*q^253 + 1/5*(6*a - 2)*q^257 + 1/5*(-3*a + 
        1)*q^265 + O(q^266),
    q^9 + 1/5*(-4*a - 2)*q^11 + 1/10*(9*a - 3)*q^15 + 1/5*(-2*a + 4)*q^23 + 
        1/5*(-a - 3)*q^25 + 1/5*(-3*a + 1)*q^27 + 1/5*(-6*a + 2)*q^31 + 1/5*(3*a
        - 1)*q^33 + 1/5*(2*a - 4)*q^37 + 1/2*(a + 1)*q^45 + 1/5*(6*a - 2)*q^47 +
        1/5*(2*a + 6)*q^53 + 1/5*(-a - 3)*q^55 + 1/5*(2*a - 4)*q^59 + 1/5*(-2*a 
        + 4)*q^67 + 1/5*(-4*a + 3)*q^69 + 1/5*(2*a - 4)*q^71 + 1/2*(a - 1)*q^75 
        + 1/5*(a - 2)*q^81 + 1/5*(-4*a - 2)*q^89 + (-a - 1)*q^93 + 1/5*(2*a - 
        4)*q^97 + 1/5*(2*a + 1)*q^99 + a*q^111 + 1/5*(4*a + 2)*q^113 + 1/5*(a + 
        3)*q^115 + 1/5*(-4*a - 2)*q^125 + 1/5*(-2*a - 1)*q^135 + 1/5*(4*a + 
        2)*q^137 + 1/5*(-2*a + 4)*q^141 + 1/5*(-4*a + 8)*q^155 + 1/5*(-2*a + 
        4)*q^157 + 1/5*(-4*a - 2)*q^159 + 1/2*(a - 1)*q^165 + 1/5*(a + 3)*q^177 
        + 1/5*(4*a + 2)*q^179 + 1/5*(6*a - 2)*q^181 + 1/5*(-2*a - 6)*q^185 + 
        1/5*(-4*a - 2)*q^191 - a*q^201 + 1/5*(-4*a - 2)*q^207 + 1/5*(-2*a - 
        6)*q^213 + 1/5*(4*a + 2)*q^223 + 1/10*(-a + 7)*q^225 + 1/5*(2*a + 
        6)*q^229 + 1/5*(4*a + 2)*q^235 + 1/5*(-a - 3)*q^243 + 1/5*(-2*a + 
        4)*q^251 + 1/5*(4*a + 2)*q^253 + 1/5*(-6*a + 2)*q^257 + 1/5*(-2*a + 
        4)*q^265 + O(q^266)
]
;
Bo:=
[
    q + q^5 + a*q^9 - q^11 + (a - 1)*q^15 + (a - 1)*q^23 - q^25 + (-a - 1)*q^27 
        + (-a + 1)*q^33 + (a + 1)*q^37 - a*q^45 + (a + 1)*q^47 + a*q^49 + (-a + 
        1)*q^53 + q^55 - 2*a*q^59 + (-a - 1)*q^67 - 2*a*q^69 + q^81 + (-a - 
        1)*q^97 + a*q^99 + (a - 1)*q^103 + (a - 1)*q^113 + (-a + 1)*q^115 - 
        q^121 - q^125 + (-a - 1)*q^137 - 2*q^141 + (a + 1)*q^157 + 2*a*q^159 + 
        (-a + 1)*q^163 - a*q^169 + (2*a + 2)*q^177 + (a + 1)*q^185 + 2*q^191 + 
        (a + 1)*q^207 + (-a + 1)*q^223 - a*q^225 + (-a - 1)*q^235 + a*q^245 + (a
        - 1)*q^253 + (-a - 1)*q^257 + (a - 1)*q^265 + O(q^266),
    q^2 - a*q^8 + q^10 + a*q^18 - q^22 + (a - 1)*q^30 - q^32 - a*q^40 + (a - 
        1)*q^46 - q^50 + (-a - 1)*q^54 + (-a + 1)*q^66 + q^72 + (a + 1)*q^74 + 
        a*q^88 - a*q^90 + (a + 1)*q^94 + a*q^98 + (-a + 1)*q^106 + q^110 - 
        2*a*q^118 + (a + 1)*q^120 + a*q^128 + (-a - 1)*q^134 - 2*a*q^138 - q^160
        + q^162 + (a + 1)*q^184 + (-a - 1)*q^194 + a*q^198 + a*q^200 + (a - 
        1)*q^206 + (a - 1)*q^216 + (a - 1)*q^226 + (-a + 1)*q^230 - q^242 - 
        q^250 + (-a - 1)*q^264 + O(q^266),
    q^3 + (a + 1)*q^5 + (a - 1)*q^9 + (-a - 1)*q^11 - q^15 - 2*q^23 - a*q^27 + 
        q^33 + 2*a*q^47 + 2*q^53 + (-2*a + 2)*q^59 + (-a + 1)*q^69 - q^75 + (a +
        1)*q^111 - 2*q^113 + (-a - 1)*q^125 - a*q^135 - 2*a*q^137 + (-a - 
        1)*q^141 + a*q^147 + (a - 1)*q^159 + q^165 + 2*a*q^177 + 2*a*q^185 + 
        (2*a + 2)*q^191 + (-a - 1)*q^201 + (-a + 1)*q^225 + q^243 + (a - 
        1)*q^245 - 2*a*q^257 + O(q^266),
    q^4 - a*q^16 + q^20 + a*q^36 - q^44 + (a - 1)*q^60 - q^64 - a*q^80 + (a - 
        1)*q^92 - q^100 + (-a - 1)*q^108 + (-a + 1)*q^132 + q^144 + (a + 
        1)*q^148 + a*q^176 - a*q^180 + (a + 1)*q^188 + a*q^196 + (-a + 1)*q^212 
        + q^220 - 2*a*q^236 + (a + 1)*q^240 + a*q^256 + O(q^266),
    q^6 + (a + 1)*q^10 + (a - 1)*q^18 + (-a - 1)*q^22 - a*q^24 - q^30 + (-a + 
        1)*q^40 - 2*q^46 - a*q^54 + q^66 + (a + 1)*q^72 + (a - 1)*q^88 + 
        2*a*q^94 - q^96 + 2*q^106 + (-2*a + 2)*q^118 + a*q^120 + (-a + 1)*q^138 
        - q^150 + (-a - 1)*q^160 + 2*a*q^184 - q^216 + (a + 1)*q^222 - 2*q^226 +
        (-a - 1)*q^250 - a*q^264 + O(q^266),
    q^12 + (a + 1)*q^20 + (a - 1)*q^36 + (-a - 1)*q^44 - a*q^48 - q^60 + (-a + 
        1)*q^80 - 2*q^92 - a*q^108 + q^132 + (a + 1)*q^144 + (a - 1)*q^176 + 
        2*a*q^188 - q^192 + 2*q^212 + (-2*a + 2)*q^236 + a*q^240 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
660
);
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:=
[]
;
Bo:=
[
    q - q^11 + q^27 - q^45 - q^49 + q^69 + q^75 - q^93 - q^111 - q^115 + q^121 -
        q^125 + q^155 - q^169 + q^177 + q^185 + 2*q^199 - q^201 - q^207 + q^213 
        + O(q^266),
    q^2 - q^8 - q^10 + q^18 - q^22 + q^32 + q^40 + q^50 - 2*q^62 - q^72 + q^88 -
        q^90 - q^98 + q^110 + 2*q^118 - q^128 + 2*q^142 - q^160 + q^162 - 
        2*q^178 - q^198 - q^200 + q^242 + 2*q^248 - q^250 + O(q^266),
    q^3 - q^27 - q^33 + q^45 - q^135 - q^147 + 2*q^207 + q^225 + q^243 + 
        O(q^266),
    q^4 - q^16 - q^20 + q^36 - q^44 + q^64 + q^80 + q^100 - 2*q^124 - q^144 + 
        q^176 - q^180 - q^196 + q^220 + 2*q^236 - q^256 + O(q^266),
    q^5 - q^25 + 2*q^31 + q^45 - q^55 - 2*q^59 - 2*q^71 - 2*q^81 + 2*q^89 - 
        q^115 + q^135 - q^155 + 2*q^179 + 2*q^181 + q^185 + 2*q^191 - q^225 - 
        2*q^229 - q^245 - 2*q^251 + O(q^266),
    q^6 - q^24 - q^30 + q^54 - q^66 + q^96 + q^120 + q^150 - 2*q^186 - q^216 + 
        q^264 + O(q^266),
    q^9 - q^27 + q^45 - q^69 - q^75 - q^81 + q^93 - q^99 + q^111 + q^135 - q^177
        + q^201 + q^207 - q^213 + O(q^266),
    q^12 - q^48 - q^60 + q^108 - q^132 + q^192 + q^240 + O(q^266),
    q^15 - 2*q^27 + q^45 - q^75 + 2*q^93 - q^165 - 2*q^177 + 2*q^207 - 2*q^213 +
        q^225 + O(q^266),
    q^23 + q^25 - q^27 - q^31 - q^37 + q^59 - q^67 + q^71 + q^81 - q^89 + q^97 -
        q^113 + q^115 - q^135 - q^137 + q^155 + q^157 - q^179 - q^181 - q^185 - 
        q^191 + q^207 + q^223 + q^225 + q^229 + q^243 + q^251 - q^253 + O(q^266)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
660
);
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:=Rationals();
qprec:=
266
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
661
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
660
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
661
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
220
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
661
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
132
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
661
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
661
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
661
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
33*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
661
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
55*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
661
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
165*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
110
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
662
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
330
);
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
662
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
110
);
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
662
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
662
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
662
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
662
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
33*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
662
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
55*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
662
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
165*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 - q^6 + q^14 + q^21 - q^22 + q^30 - q^33 + q^36 - q^43 - q^53 + q^58
        + q^64 - q^68 - q^70 - q^74 - q^76 + q^77 + q^82 + q^83 - q^84 + q^87 + 
        q^89 + q^96 - q^102 + q^103 - q^105 - q^109 + q^110 - q^111 - q^114 + 
        q^122 + q^123 - q^124 + q^125 - q^126 - q^127 + q^132 + q^139 + q^144 - 
        q^149 - q^153 - q^157 + O(q^164),
    q^2 - q^10 - q^12 + q^28 + q^42 - q^44 + q^60 - q^66 + q^72 - q^86 - q^106 +
        q^116 + q^128 - q^136 - q^140 - q^148 - q^152 + q^154 + O(q^164),
    q^3 - q^7 + q^11 - q^15 - q^18 - q^29 - q^32 + q^34 + q^35 + q^37 + q^38 - 
        q^41 + q^42 - q^48 + q^51 - q^55 + q^57 - q^61 + q^62 + q^63 - q^66 - 
        q^72 + q^90 + q^93 - q^97 - q^98 - q^99 + q^112 - q^119 - q^128 - q^129 
        - q^133 + q^134 + q^136 + q^137 + q^142 + q^145 - q^147 + q^152 + q^154 
        + q^158 - q^159 + q^160 - q^162 + O(q^164),
    q^4 + q^6 - q^14 - q^20 + q^22 - q^24 - q^30 - q^36 + q^56 - q^58 - q^64 + 
        q^68 + q^70 + q^74 + q^76 - q^82 + 2*q^84 - q^88 - q^96 + q^102 - q^110 
        + q^114 + q^120 - q^122 + q^124 + q^126 - 2*q^132 + O(q^164),
    q^8 + q^12 + q^18 - q^28 + q^32 - q^34 - q^38 - q^40 - q^42 + q^44 - q^60 - 
        q^62 + q^66 - q^90 + q^98 - q^116 - q^134 + q^140 - q^142 + q^148 - 
        q^154 - q^158 - q^160 + q^162 + O(q^164),
    q^9 + q^16 - q^17 - q^19 - q^21 + q^24 - q^31 + q^33 + q^36 - q^45 + q^49 - 
        q^56 + q^64 - q^67 - q^68 - q^71 - q^76 - q^77 - q^79 - q^80 + q^81 + 
        q^83 - q^84 + q^85 - q^87 + q^88 + q^89 + q^95 + q^103 + q^105 + q^111 +
        2*q^113 - q^120 + q^121 - q^123 - q^124 - q^131 + q^132 + q^139 + q^155 
        - q^163 + O(q^164)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
663
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
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 + O(q^162),
    q^17 - q^51 - q^68 + q^153 + O(q^162)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 - a*q^9 + q^13 + (a + 1)*q^15 + (a - 1)*q^16 - 2*q^25 + (a - 
        2)*q^33 + (-a + 1)*q^36 - a*q^43 + (-a + 1)*q^49 + q^51 + a*q^52 + (-3*a
        + 3)*q^55 + (2*a - 1)*q^60 - q^64 + (-a - 1)*q^67 - a*q^69 + (a - 
        1)*q^81 + (a - 2)*q^85 - a*q^87 - 2*a*q^100 - q^103 + (a + 1)*q^115 - 
        a*q^117 + 2*a*q^121 + (a - 1)*q^127 + (-a - 1)*q^132 + (-2*a + 1)*q^135 
        + q^144 + (a + 1)*q^145 + (2*a - 1)*q^151 - 2*q^157 + O(q^162),
    q^3 + (a - 2)*q^5 + (-2*a + 1)*q^11 + a*q^12 + (a - 1)*q^17 + (-a - 1)*q^20 
        + q^23 - a*q^27 + q^29 + q^39 + (-a + 2)*q^44 + (a + 1)*q^45 + (a - 
        1)*q^48 + (a - 2)*q^65 - q^68 - 2*q^75 + (-2*a + 1)*q^80 + a*q^92 + (a -
        2)*q^99 - q^107 + (-a + 1)*q^108 + (a - 1)*q^113 + a*q^116 + (-a + 
        2)*q^125 - a*q^129 + 2*a*q^131 + (-2*a + 1)*q^143 + (-a + 1)*q^147 + 
        q^153 + a*q^156 + O(q^162)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^4 + (a - 1)*q^9 + q^13 + a*q^15 - a*q^16 + (2*a - 2)*q^19 + 
        (-a + 1)*q^33 - a*q^36 + (-a + 1)*q^43 - a*q^49 + q^51 + (a - 1)*q^52 - 
        a*q^55 - q^60 + q^64 + a*q^67 + (-a + 1)*q^69 - 2*a*q^76 - a*q^81 + (-a 
        + 1)*q^85 + (-a + 1)*q^87 - q^103 - a*q^115 + (a - 1)*q^117 + (2*a - 
        2)*q^123 + a*q^127 + a*q^132 - q^135 + q^144 - a*q^145 - q^151 + 2*q^157
        + O(q^162),
    q^3 + (-a + 1)*q^5 - q^11 + (a - 1)*q^12 - a*q^17 + a*q^20 - q^23 + (a - 
        1)*q^27 - q^29 + q^39 + 2*q^41 + (-a + 1)*q^44 + a*q^45 - a*q^48 + (2*a 
        - 2)*q^57 + (-a + 1)*q^65 + q^68 - 2*a*q^71 - q^80 + (-a + 1)*q^92 + 
        2*a*q^95 + (-a + 1)*q^99 - q^107 - a*q^108 + a*q^113 + (-a + 1)*q^116 + 
        (a - 1)*q^125 + (-a + 1)*q^129 + (2*a - 2)*q^131 - q^143 - a*q^147 + 
        q^153 + (a - 1)*q^156 + O(q^162)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
663
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 - q^42 - q^43 - q^52 - q^64 - q^69 + q^81 - q^87 - q^94 - 
        q^118 + q^121 - q^127 - q^157 + O(q^162),
    q^2 + q^18 - q^21 - q^26 - q^32 - q^47 + q^50 - q^59 + q^83 - q^84 + q^89 + 
        q^93 + q^98 - q^102 + q^111 + q^119 - q^137 + q^149 + O(q^162),
    q^3 - q^14 - q^23 + q^27 - q^29 + q^62 - q^68 + q^74 + q^75 + q^92 - q^113 +
        q^116 - q^126 - q^129 - q^131 + q^146 - q^156 + O(q^162),
    q^4 - q^13 - q^16 + q^36 - q^42 + q^43 + q^49 - q^51 + q^69 + q^87 - q^94 + 
        q^100 - 2*q^103 - q^117 - q^118 + q^127 - q^144 + q^157 + O(q^162),
    q^6 - q^7 - q^28 + q^31 - q^34 + q^37 + q^54 - q^63 + q^73 - q^78 + q^91 - 
        q^96 - q^97 - q^109 + q^112 + q^124 - q^141 + q^148 + q^150 + O(q^162),
    q^12 - q^14 - q^17 + q^23 + q^29 - q^39 - q^48 + q^62 + q^74 - q^92 - 
        2*q^107 + q^108 + q^113 - q^116 - q^126 + q^129 + q^131 + q^146 + q^147 
        - q^153 + O(q^162)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
664
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
664
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 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(
664
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
82
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
664
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
82
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
664
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
664
);
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(
82
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + (-a^15 + a^6)*q^3 + a^2*q^4 + (a^16 - a^7)*q^6 - a^3*q^8 + (a^30
        - a^21 + a^12)*q^9 + (-a^25 - a^23)*q^11 + (-a^17 + a^8)*q^12 + a^4*q^16
        + (-a^37 + a^34)*q^17 + (-a^31 + a^22 - a^13)*q^18 + (-a^33 + a^20)*q^19
        + (a^26 + a^24)*q^22 + (a^18 - a^9)*q^24 - a^13*q^25 + (a^36 - a^27 + 
        a^18 + a^4)*q^27 - a^5*q^32 + (a^39 + a^37 - a^36 + a^35 - a^34 + a^33 -
        a^32 - a^30 - 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^33 + 
        (a^38 - a^35)*q^34 + (a^32 - a^23 + a^14)*q^36 + (a^34 - a^21)*q^38 + 
        (a^28 - a^11)*q^41 + (a^10 - a^9)*q^43 + (-a^27 - a^25)*q^44 + (-a^19 + 
        a^10)*q^48 + a^16*q^49 + a^14*q^50 + (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^13 - a^12 - a^10 + a^9 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 
        1)*q^51 + (-a^37 + a^28 - a^19 - a^5)*q^54 + (-a^39 - a^35 + a^26 - 
        a^7)*q^57 + (-a^39 - a^29)*q^59 + a^6*q^64 + (-a^39 + a^32 + a^30 + 
        1)*q^66 + (a^32 - a^17)*q^67 + (-a^39 + a^36)*q^68 + (-a^33 + a^24 - 
        a^15)*q^72 + (a^36 + a^20)*q^73 + (a^28 - a^19)*q^75 + (-a^35 + 
        a^22)*q^76 + (-a^33 + a^24 - a^19 + a^10 - a)*q^81 + (-a^29 + a^12)*q^82
        - a^3*q^83 + (-a^11 + a^10)*q^86 + (a^28 + a^26)*q^88 + (a^22 - a)*q^89 
        + (a^20 - a^11)*q^96 + (a^32 - a^27)*q^97 - a^17*q^98 + (-a^37 - a^35 + 
        a^14 + a^12 - a^5 - a^3)*q^99 - a^15*q^100 + (a^12 - a^9 - a^3 + 
        1)*q^102 + (a^38 + a^30)*q^107 + (a^38 - a^29 + a^20 + a^6)*q^108 + 
        (a^22 + a^14)*q^113 + (a^39 - a^38 + a^37 + a^35 - a^34 + a^33 - a^32 + 
        a^31 - a^30 + a^29 - a^28 - 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^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^114 + (a^39 - 
        a^38 + a^37 - a^36 + a^35 - a^34 + a^33 - a^32 + a^31 + 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^118 + (-a^9 - a^7 - a^5)*q^121 
        + (a^34 + a^26 - a^17 + a^2)*q^123 - a^7*q^128 + (-a^25 + a^24 + a^16 - 
        a^15)*q^129 + (a^24 - a^5)*q^131 + (a^39 - a^38 + a^37 - a^36 + a^35 - 
        a^34 - a^32 - 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 - 
        1)*q^132 + (-a^33 + a^18)*q^134 + (a^39 - a^38 - 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^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^136 + (a^18 + a^6)*q^137 + (a^14 + a^8)*q^139 + (a^34 - 
        a^25 + a^16)*q^144 + (-a^37 - a^21)*q^146 + (-a^31 + a^22)*q^147 + 
        (-a^29 + a^20)*q^150 + (a^36 - a^23)*q^152 + (a^26 - a^23 - a^17 + a^14 
        + a^8 - a^5)*q^153 + O(q^162)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
664
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
41*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^11 + q^25 - q^31 - q^37 + q^49 - q^63 - q^69 - q^77 + q^83 + q^87 + 
        q^99 + 2*q^119 + q^121 - q^123 + q^147 - q^153 - q^161 + O(q^162),
    q^2 - q^22 + q^50 - q^62 - q^74 + q^98 - q^126 - q^138 - q^154 + O(q^162),
    q^3 - q^21 - q^23 + q^29 - q^41 + q^49 - q^51 + q^61 - q^63 + q^75 - q^77 + 
        q^113 + q^119 + q^127 - q^131 + q^147 + q^151 - q^153 + q^161 + 
        O(q^162),
    q^4 - q^12 + q^16 - q^28 - q^44 - q^48 + q^64 - q^68 + q^84 + 2*q^92 + q^100
        + q^108 - q^112 - q^116 - q^124 + q^132 - q^148 + O(q^162),
    q^6 - q^42 - q^46 + q^58 - q^82 + q^98 - q^102 + q^122 - q^126 + q^150 - 
        q^154 + O(q^162),
    q^7 + q^17 - q^23 - q^27 - q^33 - q^41 + q^59 + q^69 - q^77 + q^81 - q^93 + 
        q^99 + q^109 - q^111 + q^121 + q^123 - q^131 + O(q^162),
    q^8 - q^24 + q^32 - q^56 - q^88 - q^96 + q^128 - q^136 + O(q^162),
    q^9 + q^11 - q^21 - q^23 - q^27 + q^31 - q^33 + q^37 - q^41 - q^51 + q^69 + 
        q^81 + q^87 - q^93 + q^99 - q^111 + q^123 - q^131 + q^147 + q^161 + 
        O(q^162),
    q^14 + q^34 - q^46 - q^54 - q^66 - q^82 + q^118 + q^138 - q^154 + O(q^162),
    q^18 + q^22 - q^42 - q^46 - q^54 + q^62 - q^66 + q^74 - q^82 - q^102 + q^138
        + O(q^162)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
664
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 41*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^10 + q^16 - q^17 - q^23 + q^25 - q^31 + q^36 - q^40 + q^64
        - q^65 - q^68 - q^70 + q^81 - q^86 - q^90 - q^92 - q^95 + q^100 - q^119 
        + q^121 - q^124 - q^134 + q^144 - q^151 - q^153 - q^160 - q^161 + 
        O(q^162),
    q^2 + q^8 - q^13 - q^14 + q^18 - q^19 + q^32 - q^35 - q^52 - q^53 - q^56 + 
        q^72 - q^76 - q^82 + q^83 + q^85 + 2*q^91 + q^98 + 2*q^101 - q^107 + 
        q^115 - q^117 - q^125 - q^126 + q^128 - q^130 + 2*q^133 - q^140 + q^155 
        + O(q^162),
    q^5 - q^13 - q^14 - q^19 + q^20 + q^34 + q^43 + q^45 + q^46 - q^50 - q^52 - 
        q^53 - q^56 + q^62 + q^67 - q^76 + q^80 - q^82 - q^85 + q^91 + q^98 - 
        q^107 - q^115 - q^117 - q^126 + q^133 + q^136 + q^139 + q^149 - q^155 + 
        q^157 + O(q^162),
    q^7 - q^10 - q^17 - q^23 + q^25 + q^26 + q^28 - q^31 + q^38 - q^40 + q^41 - 
        q^49 + q^63 - q^68 - q^86 - q^90 - q^92 + q^100 + q^104 + q^106 + q^112 
        + q^113 - q^124 + q^127 - q^134 - q^151 + q^152 - q^153 - q^160 + 
        O(q^162)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
665
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*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(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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(
18
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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(
18
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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(
18
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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(
18
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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(
18
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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(
18
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 4*H.2 + 3*H.3
;
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(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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(
6
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 - q^8 + a*q^16 + a*q^21 + (a - 1)*q^23 + (a - 1)*q^25 + (-a + 
        1)*q^29 - q^39 + (-a + 1)*q^42 - a*q^43 + q^46 - q^49 + q^50 + (-a + 
        1)*q^51 + (-a + 1)*q^53 - a*q^57 - q^58 + q^64 + (a - 1)*q^67 + a*q^71 +
        a*q^78 - a*q^79 + a*q^81 + (a - 1)*q^86 + (-a + 1)*q^91 + a*q^98 - q^102
        - q^106 - a*q^109 + (a - 1)*q^114 + a*q^119 - q^121 + (-a + 1)*q^123 + 
        (a - 1)*q^127 - a*q^128 + q^133 + q^134 + (-a + 1)*q^137 - q^141 + (-a +
        1)*q^142 + a*q^149 + O(q^154),
    q^3 - a*q^6 + (a - 1)*q^7 - a*q^13 + q^14 + q^17 + (-a + 1)*q^19 - q^24 + (a
        - 1)*q^26 + (a - 1)*q^27 - a*q^34 - q^38 + q^41 - a*q^47 + a*q^48 + q^54
        + (-a + 1)*q^56 - q^59 + a*q^61 + (a - 1)*q^69 - q^73 + (a - 1)*q^75 - 
        a*q^82 + (-a + 1)*q^87 + a*q^89 + (a - 1)*q^94 + q^97 + a*q^101 + 
        a*q^104 - q^112 + a*q^118 + (-a + 1)*q^122 + (-a + 1)*q^125 - a*q^129 - 
        q^131 - q^136 + q^138 + a*q^139 + a*q^146 - q^147 + q^150 + (a - 
        1)*q^152 + O(q^154),
    q^5 - a*q^10 - q^40 + (a - 1)*q^75 + a*q^80 + a*q^105 + (a - 1)*q^115 + (-a 
        + 1)*q^145 + q^150 + O(q^154),
    q^15 - q^25 - a*q^30 + (a - 1)*q^35 + a*q^50 - a*q^65 + q^70 + q^85 + (-a + 
        1)*q^95 - q^120 + (a - 1)*q^130 + (a - 1)*q^135 + O(q^154)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2 + 6*H.3
;
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(
665
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.3
;
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(
665
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^6 - q^11 - q^20 + q^25 + q^26 + q^30 + q^36 - q^39 + q^44 - q^45 + 
        q^49 - q^55 - q^61 - q^64 - q^74 - q^76 + q^80 + q^95 + q^96 + q^99 - 
        q^101 - q^106 + q^111 + q^114 + q^121 - q^130 + 2*q^131 + q^134 - q^139 
        - q^144 - q^149 - q^150 + O(q^154),
    q^2 - q^3 - q^10 - q^12 + q^13 + q^15 + q^18 - q^32 - q^37 - q^38 + q^48 + 
        q^50 + q^52 - q^53 + q^57 + q^60 - q^65 + q^67 - q^75 - 2*q^78 - q^90 - 
        q^97 + q^98 + q^103 + q^107 + q^113 + q^117 - q^127 - q^147 - q^148 + 
        O(q^154),
    q^4 - q^5 - q^6 + q^9 + q^11 - q^16 - q^19 + q^26 + q^30 - q^39 - q^44 + 
        q^55 + q^61 - q^74 - q^81 + q^96 - q^99 + q^100 + q^101 - q^106 + q^111 
        + q^114 - 2*q^121 - q^125 - q^130 + q^134 + q^139 + q^149 - q^150 + 
        O(q^154),
    q^7 - q^42 - q^77 - q^140 + O(q^154),
    q^14 - q^21 - q^70 - q^84 + q^91 + q^105 + q^126 + O(q^154),
    q^28 - q^35 - q^42 + q^63 + q^77 - q^112 - q^133 + O(q^154)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (a^3 + a^2 - 1)*q^7 + (-a^3 + a)*q^9 + 3*a*q^11 + a^2*q^16 + 
        (-2*a^3 + a^2 + a + 1)*q^17 + (-a^2 + 2)*q^19 + (2*a^3 + a^2 - 2*a)*q^23
        + (a^2 - 1)*q^25 + (-a^3 - a^2 + a + 1)*q^28 + (-a^2 - a + 1)*q^35 - 
        q^36 + (-a^3 - 2)*q^43 - 3*a^2*q^44 + (a^3 + a)*q^47 + (-a^2 - 1)*q^49 +
        (2*a^3 - 4*a)*q^55 + (-a^3 - a)*q^61 + (a^3 + a^2)*q^63 - a^3*q^64 + 
        (-a^3 + a^2 - a - 2)*q^68 + (2*a^3 - a)*q^73 + (a^3 - 2*a)*q^76 + (a^3 -
        a^2 + a - 1)*q^77 + (-a^2 + 1)*q^81 + (-a^3 + 2*a)*q^83 + (2*a^3 - 
        2)*q^85 + (-a^3 + 2)*q^92 + (2*a^2 - 2)*q^95 + 3*q^99 + (-a^3 + a)*q^100
        + (-2*a^3 + a)*q^101 + (a^3 - a - 1)*q^112 + (-2*a^3 - a^2 + a - 
        1)*q^115 + (-a^3 + 2*a^2 - 1)*q^119 - 2*a^2*q^121 + (-2*a^2 + 1)*q^125 +
        (a^3 - a + 1)*q^133 + (-a^2 - 2*a + 1)*q^137 + (-a^3 + 2*a)*q^139 + (a^3
        + a^2 - a)*q^140 + a*q^144 + (a^3 - a)*q^149 + (-a^3 - 2*a^2 + 2*a + 
        1)*q^153 + O(q^154),
    q^5 + (a^3 - 1)*q^7 + (2*a^3 + 2*a)*q^11 + (-2*a^3 + 2*a^2 + 2*a)*q^17 + 
        2*q^19 - a*q^20 + (a^3 + 2*a^2 - 2*a - 1)*q^23 + (a^2 - 2)*q^25 + (-a^2 
        + a + 1)*q^28 + (-a + 1)*q^35 + (-2*a^3 - a^2 + a - 1)*q^43 + (-4*a^2 + 
        2)*q^44 + (-a^3 + a)*q^45 + (a^3 - 1)*q^47 - 2*a^2*q^49 - 3*a*q^55 - 
        2*a^3*q^61 + (a^3 + a^2 - a)*q^63 + (-2*a^3 - 2)*q^68 + (a^3 + a^2 - 
        a)*q^73 - 2*a*q^76 + (2*a^3 - a^2 - a - 1)*q^77 + a^2*q^80 + (-a^2 + a +
        1)*q^83 + (2*a^3 - a^2 - a - 1)*q^85 + (-2*a^3 + a^2 + a + 1)*q^92 + 
        (a^2 - 2)*q^95 + (2*a^2 + 2)*q^99 + (-a^3 + 2*a)*q^100 + (-2*a^3 + 
        2*a)*q^101 + (a^3 - a^2 - a)*q^112 + (-a^3 - 2*a^2 + a)*q^115 + (2*a^2 -
        2)*q^119 + (-2*a^2 + 2)*q^125 + (a^3 + a^2 - a)*q^133 + (-a^3 - a^2 - a 
        + 2)*q^137 + (a^2 - a)*q^140 + (-2*a^2 + 2*a + 2)*q^153 + O(q^154)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + (a - 1)*q^7 + (a - 1)*q^9 + a*q^11 + (a - 1)*q^16 - 2*a*q^17 + 
        (a - 1)*q^19 + (-a + 1)*q^23 + a*q^25 + q^28 + q^36 - q^43 + (-a + 
        1)*q^44 + (-a + 1)*q^47 - a*q^49 + (-a + 1)*q^61 - a*q^63 + q^64 + (2*a 
        - 2)*q^68 + a*q^73 + q^76 - q^77 - a*q^81 - q^83 - q^92 - q^99 + (-a + 
        1)*q^100 + a*q^101 - a*q^112 + 2*q^119 + q^125 + (2*a - 2)*q^131 - 
        a*q^133 + a*q^137 - q^139 - a*q^144 + (-a + 1)*q^149 + 2*q^153 + 
        O(q^154),
    q^5 - a*q^20 + (-a + 1)*q^25 + (a - 1)*q^35 + (a - 1)*q^45 + a*q^55 + (a - 
        1)*q^80 - 2*a*q^85 + (a - 1)*q^95 - q^100 + (-a + 1)*q^115 + q^140 + 
        O(q^154)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + 1/3*(-a - 1)*q^7 + (-a + 1)*q^9 - a*q^11 + (a - 1)*q^16 + (a - 
        1)*q^19 + (-a + 1)*q^23 + a*q^25 + 1/3*(-2*a + 1)*q^28 + 1/3*(2*a - 
        4)*q^35 + q^36 + q^43 + (-a + 1)*q^44 + (a - 1)*q^47 - a*q^49 + (a - 
        1)*q^61 + 1/3*(a - 2)*q^63 - q^64 - a*q^73 - q^76 + 1/3*(2*a - 1)*q^77 -
        a*q^81 + q^83 + q^92 - q^99 + (a - 1)*q^100 - a*q^101 + 1/3*(-a + 
        2)*q^112 - 2*a*q^115 + q^125 + (2*a - 2)*q^131 + 1/3*(-a + 2)*q^133 + 
        a*q^137 + q^139 + 1/3*(-2*a - 2)*q^140 + a*q^144 + (a - 1)*q^149 + 
        O(q^154),
    q^5 + 1/3*(4*a - 2)*q^7 + a*q^20 - 2*q^23 + (-a + 1)*q^25 + 1/3*(2*a - 
        4)*q^28 + 1/3*(a + 1)*q^35 - 2*a*q^43 + (-a + 1)*q^45 + 2*q^47 - a*q^55 
        + 1/3*(2*a + 2)*q^63 + (2*a - 2)*q^73 + 1/3*(-2*a + 4)*q^77 + (a - 
        1)*q^80 - 2*a*q^83 - 2*a*q^92 + (a - 1)*q^95 + q^100 + 1/3*(-2*a - 
        2)*q^112 + (a - 1)*q^115 + 1/3*(-2*a - 2)*q^133 + (-2*a + 2)*q^137 + 
        1/3*(2*a - 1)*q^140 + O(q^154)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
665
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + 1/2*(-a - 1)*q^7 + a*q^9 - q^16 + (a - 1)*q^23 + q^25 + 1/2*(-a 
        + 1)*q^28 + 1/2*(-a + 1)*q^35 - q^36 + (-a + 1)*q^43 + 1/2*(-a + 1)*q^63
        - a*q^64 - q^81 + (-a + 1)*q^85 + (-a - 1)*q^92 - q^95 + a*q^100 + 
        1/2*(a + 1)*q^112 - a*q^119 - q^121 + 1/2*(a - 1)*q^133 + (-a - 1)*q^137
        + 1/2*(a + 1)*q^140 - a*q^144 + 2*a*q^149 + O(q^154),
    q^5 + 1/2*(-a + 1)*q^7 + (-a + 1)*q^17 - q^19 + a*q^20 + 1/2*(a + 1)*q^28 + 
        1/2*(-a - 1)*q^35 + a*q^45 + (a - 1)*q^47 - q^49 - 2*a*q^61 + 1/2*(a + 
        1)*q^63 + (a + 1)*q^68 + (-a - 1)*q^73 - a*q^76 - q^80 + (-a - 1)*q^83 +
        2*a*q^101 + 1/2*(a - 1)*q^112 + (a - 1)*q^115 - q^119 + q^125 + 1/2*(a +
        1)*q^133 + 1/2*(-a + 1)*q^140 + (a + 1)*q^153 + O(q^154)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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(
666
);
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(
666
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
666
);
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:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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:=
214
;
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 + O(q^214),
    q^2 - a*q^8 + (-2*a^3 + a)*q^14 + (a^3 - a^2)*q^26 + a^2*q^32 + (-a^2 + a + 
        1)*q^38 + (a^3 - a)*q^50 + (a^2 - 2)*q^56 + (a^3 + a^2 - a - 1)*q^62 - 
        q^74 + (a^2 + a)*q^86 - 2*a^2*q^98 + (a^3 - a^2 + 1)*q^104 + (a^2 + a - 
        1)*q^122 - a^3*q^128 + a*q^134 - a^3*q^146 + (a^3 - a^2 - a)*q^152 + 
        (-a^3 + a^2)*q^158 + (a^3 + a^2 - 2*a + 1)*q^182 + (-a^2 - a)*q^194 + 
        q^200 + (-a^3 + 1)*q^206 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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(
6
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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:=
214
;
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 + O(q^214),
    q^2 + a*q^8 - a*q^14 + (a - 2)*q^26 + (a - 1)*q^32 + (-a + 1)*q^50 + (-a + 
        1)*q^56 + (-2*a + 1)*q^62 + q^74 + (2*a - 1)*q^86 + (-a - 1)*q^104 - 
        q^128 - a*q^134 + q^146 + (a - 2)*q^158 + (a + 1)*q^182 + (2*a - 
        1)*q^194 + q^200 + O(q^214),
    q^3 - a*q^9 + a*q^12 - a*q^21 + (a - 1)*q^27 + (-a + 1)*q^36 + (a - 2)*q^39 
        + (a - 1)*q^48 + (a - 1)*q^63 + (-a + 1)*q^75 + q^81 + (-a + 1)*q^84 + 
        (-2*a + 1)*q^93 - q^108 + q^111 + (a + 1)*q^117 + (2*a - 1)*q^129 + 
        q^144 + (-a - 1)*q^156 + q^189 - q^192 - a*q^201 + O(q^214),
    q^6 - a*q^18 + a*q^24 - a*q^42 + (a - 1)*q^54 + (-a + 1)*q^72 + (a - 2)*q^78
        + (a - 1)*q^96 + (a - 1)*q^126 + (-a + 1)*q^150 + q^162 + (-a + 1)*q^168
        + (-2*a + 1)*q^186 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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:=
214
;
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^214),
    q^2 - a*q^8 + (-a + 1)*q^26 - q^32 + (a - 1)*q^38 + a*q^50 + (a + 1)*q^62 - 
        q^74 + (a - 1)*q^86 - q^98 + (-a - 1)*q^104 + (a + 1)*q^122 + a*q^128 - 
        2*a*q^134 - 2*a*q^146 + (a + 1)*q^152 + (a - 1)*q^158 + (-a + 1)*q^194 +
        q^200 + (a + 1)*q^206 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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(
666
);
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(
6
);
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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:=
214
;
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 + O(q^214),
    q^2 + (-a + 1)*q^14 - q^20 + (a - 1)*q^38 + a*q^44 - q^62 - q^86 - a*q^92 + 
        a*q^104 + (-a + 1)*q^110 + q^128 + (-a + 1)*q^134 + (a - 1)*q^140 - 
        q^146 - a*q^152 + q^200 + q^206 + (-a + 1)*q^212 + O(q^214),
    q^3 + (a - 1)*q^9 + (a - 1)*q^12 + (-a + 1)*q^21 - a*q^27 - a*q^36 + (-a + 
        1)*q^39 - a*q^48 + (2*a - 2)*q^57 + a*q^63 - a*q^75 + q^81 + a*q^84 - 
        q^93 + q^108 + q^111 + a*q^117 - q^129 + q^144 + a*q^156 - 2*a*q^171 + 
        (2*a - 2)*q^183 - q^189 + q^192 + (-a + 1)*q^201 + O(q^214),
    q^4 - a*q^10 + (a - 1)*q^22 + (-a + 1)*q^28 - q^40 + (-a + 1)*q^46 + (a - 
        1)*q^52 + a*q^64 - q^70 + a*q^88 + a*q^100 + q^106 - q^118 - q^124 + 
        q^130 - q^148 + a*q^154 + (-a + 1)*q^160 - q^172 + q^178 - a*q^184 + 
        O(q^214),
    q^5 - a*q^11 + a*q^23 - a*q^26 - q^32 + (-a + 1)*q^35 + a*q^38 - q^50 + (a -
        1)*q^53 + (-a + 1)*q^59 + (a - 1)*q^65 + (-a + 1)*q^74 - q^77 + a*q^80 +
        (a - 1)*q^89 + q^104 + a*q^110 + 2*a*q^122 + (-a + 1)*q^128 + q^143 - 
        a*q^149 - q^152 - q^155 - a*q^158 + q^161 + (-a + 1)*q^176 - q^182 - 
        q^185 + a*q^191 + (a - 1)*q^194 + (-a + 1)*q^200 + (-a + 1)*q^206 + 
        O(q^214),
    q^6 + (a - 1)*q^18 + (a - 1)*q^24 + (-a + 1)*q^42 - a*q^54 - a*q^72 + (-a + 
        1)*q^78 - a*q^96 + (2*a - 2)*q^114 + a*q^126 - a*q^150 + q^162 + a*q^168
        - q^186 + O(q^214),
    q^8 - a*q^20 - q^26 + (a - 1)*q^32 + q^38 + (a - 1)*q^44 + (a - 1)*q^50 + 
        (-a + 1)*q^56 - a*q^74 + (-a + 1)*q^92 + q^110 + 2*q^122 - q^140 + (a - 
        1)*q^152 - q^158 + (a - 1)*q^182 + a*q^194 - a*q^206 + q^212 + O(q^214),
    q^13 + (-a + 1)*q^16 - q^19 + (-a + 1)*q^25 + a*q^37 - q^40 + (a - 1)*q^52 -
        q^55 - 2*q^61 + a*q^64 + (-a + 1)*q^76 + q^79 + a*q^88 + (-a + 1)*q^91 -
        a*q^97 + a*q^100 + a*q^103 - a*q^112 + q^115 + a*q^121 + (a - 1)*q^127 +
        (a - 1)*q^133 + (a - 1)*q^139 - q^148 + q^151 + (-a + 1)*q^163 - a*q^175
        - a*q^184 - a*q^193 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
666
);
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(
666
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 18*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
214
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^10 - q^16 + q^25 + q^34 - q^37 + q^40 - q^46 - q^49 + q^58 - 2*q^85 + 
        2*q^115 + q^118 + q^121 + 2*q^127 - q^136 - 2*q^145 - 2*q^151 + q^160 + 
        q^169 - q^178 + q^184 + 2*q^211 + O(q^214),
    q^2 - q^14 - q^20 + q^56 + q^68 - q^92 + q^98 + q^116 - q^128 - q^134 - 
        q^146 - q^170 + q^200 + O(q^214),
    q^3 - q^21 + q^27 - q^30 - q^36 - q^63 + q^84 + q^90 + q^102 - q^138 + q^144
        + q^147 + q^174 - q^189 - q^192 - q^201 + O(q^214),
    q^4 - q^10 + q^34 - q^40 - q^46 + q^58 - q^64 + q^100 + q^118 + q^136 - 
        q^148 + q^160 - q^178 - q^184 - q^196 + O(q^214),
    q^5 - q^14 - q^17 + q^23 - q^29 + q^32 - q^50 + q^56 - q^59 + q^74 - q^80 + 
        q^89 + 2*q^98 + q^113 - q^128 - q^131 - q^134 - q^146 - q^167 + q^170 + 
        q^179 - q^185 - q^191 + q^200 + O(q^214),
    q^6 - q^42 + q^54 - q^60 - q^72 - q^126 + q^168 + q^180 + q^204 + O(q^214),
    q^7 - q^16 + q^25 - q^28 - q^37 + q^40 - 2*q^49 + q^64 + q^67 + q^73 - q^85 
        - q^100 + q^112 + q^115 - q^136 + q^139 - q^145 + q^148 - 2*q^151 + 
        q^157 - q^175 + q^181 + q^184 + 2*q^196 + O(q^214),
    q^8 + q^14 - q^20 - q^32 + q^50 - q^56 + q^68 - q^74 - q^92 - 2*q^98 + q^116
        + q^134 + q^146 - q^170 + O(q^214),
    q^9 - q^21 - q^36 + q^48 - q^63 - q^75 + q^81 + q^84 + q^111 - q^120 + 
        2*q^147 - q^189 - q^192 - q^201 + O(q^214),
    q^12 - q^30 - q^36 + q^90 + q^102 + q^108 - q^120 - q^138 + q^174 - q^192 + 
        O(q^214),
    q^15 + q^24 - q^45 - q^51 - q^60 + q^69 - q^72 - q^87 + q^135 + q^153 - 
        q^177 + q^180 + q^204 - q^207 + O(q^214),
    q^18 - q^24 - q^42 + q^60 + q^96 - q^126 - q^150 + q^162 + q^168 - q^180 - 
        q^204 + O(q^214)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
667
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
667
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
118
;
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^31 + q^39 - q^41 - q^46 - q^47 + q^48 + q^49 - q^50 - q^54 + 2*q^59 + 
        q^62 + q^64 - q^69 - q^71 - q^73 - q^75 - q^78 - q^81 + q^82 + q^93 + 
        q^94 - q^98 + 2*q^101 - q^104 + O(q^118),
    q^29 - q^58 - q^87 + O(q^118)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
667
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
667
);
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(
308
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
667
);
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(
154
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
667
);
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(
14
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + (-a^4 - a^2)*q^6 + (-a^3 - 1)*q^8 + a^5*q^9 + (a^4 + a^3)*q^12 +
        a^2*q^16 + (-2*a^5 + a^4 - a^3 + a^2 - a + 1)*q^18 + a^3*q^23 + (-a^5 - 
        a^3)*q^24 - a*q^25 + (a^5 - a^4 + a^3 - 2*a^2 + a - 1)*q^27 + (-a^4 - 
        a)*q^32 + (a^5 + a^3 - a^2 - 1)*q^36 + (a^2 - 1)*q^39 + (a^5 + a^4 + a^2
        - 1)*q^48 - a^5*q^49 + (a^5 + a)*q^52 + (a^2 + 1)*q^54 - a*q^58 + (-a^5 
        + a^4 - a^3 + a^2 + 1)*q^59 + (a^5 - a^4)*q^62 + (a^5 - a^4 + 2*a^3 - 
        a^2 + a)*q^64 + (-2*a^5 + a^4 - a^3 + a^2 + 2)*q^72 + (-a^2 + a)*q^78 - 
        a^3*q^81 + (a^5 + a^3)*q^82 + a^4*q^87 + a^4*q^92 + (-a^5 + a^4 - a^3 + 
        a^2 - a)*q^93 + (-a^3 + a^2)*q^94 + (-a^5 - 2*a^3 + a^2 - a + 2)*q^96 - 
        a^2*q^100 + (a^4 - a^2)*q^101 + (-a^3 - a^2 - a - 1)*q^108 + a^3*q^116 +
        (-a^4 + a^3)*q^117 + O(q^118),
    q^2 + 1/7*(a^5 - 2*a^4 + 3*a^3 - 4*a^2 + 5*a + 1)*q^4 + 1/7*(a^5 - 2*a^4 + 
        3*a^3 + 3*a^2 - 2*a + 1)*q^6 + a*q^8 + 1/7*(-6*a^5 - 2*a^4 - 4*a^3 + 
        3*a^2 - 2*a + 1)*q^9 + (-a^4 - a^2)*q^12 + 1/7*(-a^5 + 2*a^4 + 4*a^3 + 
        4*a^2 + 2*a + 6)*q^13 + (-a^3 - 1)*q^16 + 1/7*(-a^5 + 2*a^4 + 4*a^3 - 
        3*a^2 + 2*a - 1)*q^24 + (a^4 + a^2 + 1)*q^26 + 1/7*(3*a^5 + a^4 + 2*a^3 
        + 2*a^2 + a - 4)*q^29 + (a^5 - a^2 - 1)*q^31 + (-a^3 + a^2 - a)*q^32 + 
        1/7*(-8*a^5 + 2*a^4 - 3*a^3 + 4*a^2 - 5*a + 6)*q^36 + (-a^5 - a^3 - a + 
        1)*q^39 + (a^4 + a^2)*q^41 + a^3*q^46 + (a^5 + a^3 - a^2 + a - 1)*q^47 +
        (-a^5 + a^4 - a^3)*q^48 - a*q^50 + 1/7*(6*a^5 - 5*a^4 + 4*a^3 - 10*a^2 +
        2*a - 8)*q^54 + 1/7*(3*a^5 + a^4 + 2*a^3 + 2*a^2 + a - 4)*q^58 + 
        1/7*(8*a^5 - 2*a^4 - 4*a^3 - 4*a^2 - 2*a - 6)*q^62 + (-a^4 - a)*q^64 + 
        1/7*(6*a^5 - 12*a^4 + 4*a^3 - 10*a^2 + 2*a - 8)*q^71 + (a^5 + a^3 - a^2 
        - 1)*q^72 + (-a^5 - a^3 + a^2 + 1)*q^73 + 1/7*(-6*a^5 - 2*a^4 - 4*a^3 + 
        3*a^2 - 2*a + 1)*q^78 + 1/7*(a^5 + 5*a^4 + 3*a^3 + 3*a^2 - 2*a + 1)*q^82
        + 1/7*(-4*a^5 + a^4 - 5*a^3 + 2*a^2 + a + 3)*q^87 + 1/7*(-a^5 + 2*a^4 + 
        4*a^3 - 3*a^2 + 2*a - 1)*q^92 + 1/7*(a^5 + 5*a^4 + 3*a^3 + 3*a^2 + 5*a +
        1)*q^93 + 1/7*(6*a^5 + 2*a^4 + 4*a^3 - 3*a^2 + 2*a - 8)*q^94 + (a^5 + 
        a^4 + a^2 - 1)*q^96 - a^5*q^98 + 1/7*(a^5 - 2*a^4 + 3*a^3 - 4*a^2 - 2*a 
        + 1)*q^100 - a^3*q^104 + a*q^108 - a*q^116 + O(q^118),
    q^3 + 1/7*(-8*a^5 + 2*a^4 - 3*a^3 + 4*a^2 - 5*a + 6)*q^4 + 1/7*(-a^5 + 2*a^4
        - 3*a^3 + 4*a^2 - 5*a - 1)*q^6 + 1/7*(-a^5 + 2*a^4 - 3*a^3 - 3*a^2 + 2*a
        - 1)*q^9 + 1/7*(-6*a^5 - 2*a^4 - 4*a^3 + 10*a^2 - 2*a + 8)*q^13 + (-a^4 
        - a^2)*q^18 + 1/7*(a^5 - 2*a^4 - 4*a^3 - 4*a^2 - 2*a - 6)*q^24 + (-a^5 +
        a^4 - a^3 + a^2 + 1)*q^26 + a^5*q^27 + 1/7*(-3*a^5 + 6*a^4 - 2*a^3 + 
        5*a^2 - a + 4)*q^29 + (a^5 + a^3 - 1)*q^31 + (a^5 - a^2 - 1)*q^32 + 
        1/7*(a^5 + 5*a^4 + 3*a^3 + 3*a^2 - 2*a + 1)*q^36 + (-a^4 - a^2 - 1)*q^39
        + a*q^41 + (a^5 + a^3 + a)*q^47 + (a^3 + a)*q^48 + 1/7*(-6*a^5 + 5*a^4 -
        4*a^3 + 3*a^2 - 2*a + 1)*q^54 + 1/7*(4*a^5 - a^4 + 5*a^3 - 2*a^2 + 6*a -
        3)*q^58 + 1/7*(6*a^5 + 2*a^4 + 4*a^3 - 3*a^2 + 2*a - 8)*q^62 + a^3*q^69 
        + 1/7*(8*a^5 - 2*a^4 + 3*a^3 - 4*a^2 - 2*a - 6)*q^71 - a^4*q^72 + (-a^5 
        - a^3)*q^73 - a*q^75 + 1/7*(-a^5 - 5*a^4 - 3*a^3 - 3*a^2 - 5*a - 1)*q^78
        + (a^5 - a^4 + a^3 - 2*a^2 + a - 1)*q^81 + 1/7*(-a^5 + 2*a^4 + 4*a^3 + 
        4*a^2 + 2*a + 6)*q^82 + 1/7*(-3*a^5 - a^4 - 2*a^3 - 2*a^2 - a + 4)*q^87 
        + 1/7*(a^5 - 2*a^4 + 3*a^3 + 3*a^2 + 5*a + 1)*q^92 + 1/7*(-8*a^5 + 2*a^4
        + 4*a^3 + 4*a^2 + 2*a + 6)*q^93 + 1/7*(a^5 + 5*a^4 + 3*a^3 + 3*a^2 - 2*a
        + 1)*q^94 + 1/7*(6*a^5 - 5*a^4 + 4*a^3 - 3*a^2 + 2*a - 8)*q^100 + (-a^2 
        - 1)*q^104 + (a^5 + a^3 - a^2 - 1)*q^108 + (a^2 - 1)*q^117 + O(q^118)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
667
);
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(
154
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
667
);
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(
14
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^4 + (a^4 - a)*q^6 + (a^5 - a^4 + a^3 - a^2 + a)*q^8 - a^3*q^9 + 
        (a^5 - a^4 + a^3 - a^2 - 1)*q^12 + a^4*q^16 + (-a^5 - a^3)*q^18 + (a^5 -
        a^4 + a^3 - a^2 + a - 1)*q^23 + (a^5 - a^4 - a^2 + a - 1)*q^24 + 
        a^2*q^25 - 2*a^5*q^26 + (-a^5 + a^4)*q^27 + (a^2 - a)*q^32 + (-a^5 + a^2
        - a)*q^36 + (a^4 + 1)*q^39 + (a^4 - a^3 - a + 1)*q^48 - a^3*q^49 + (-a^3
        + a^2)*q^52 + (a^4 + 1)*q^54 + a^2*q^58 + (-a^5 + a^2)*q^59 + (-a^3 - 
        a)*q^62 + (-a^4 + a^3 - a^2 + a)*q^64 + (-a^5 - a^3 + a^2 + 1)*q^72 + 
        (a^4 + a^2)*q^78 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^81 + (a^5 - a^4 - 
        a^2 + a - 1)*q^82 - a*q^87 - a*q^92 + (-a^5 + 1)*q^93 + (a^5 + a^3 - a^2
        + a - 1)*q^94 + (-a^4 + a^3 - a^2)*q^96 + a^4*q^100 + (a^4 - a)*q^101 + 
        2*q^104 + (a^5 + a^3 + a)*q^108 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^116 
        + (a^5 - a^4 + a^3 - a^2 - 1)*q^117 + O(q^118),
    q^2 + (-a^5 + a^4 - a)*q^4 + (a^5 - a^2 + a)*q^6 + a^2*q^8 + (-a^4 - 1)*q^9 
        + (a^4 - a)*q^12 - a^3*q^13 + (a^5 - a^4 + a^3 - a^2 + a)*q^16 + (-a^4 +
        a^3 - 1)*q^24 + (a^4 - a + 1)*q^26 + 1/7*(2*a^5 - 4*a^4 - a^3 - a^2 + 
        3*a + 2)*q^29 + (-a^4 + a^3 - 1)*q^31 + (-a^5 + 2*a^4 - a^3 - a + 
        1)*q^32 + (-a^5 + a^4 - a^3 - a + 1)*q^36 + (a^5 - a^4 + a)*q^39 + (a^4 
        - a)*q^41 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^46 + (a^5 + a)*q^47 + (a^5
        - a^4 - a^2 + 2*a - 1)*q^48 + a^2*q^50 - 2*a^5*q^52 + a*q^54 + 
        1/7*(-2*a^5 + 4*a^4 + a^3 + a^2 - 3*a - 2)*q^58 + (a^2 - a)*q^64 + (-a^5
        + a^2 - a)*q^72 + (-a^5 + a^2 - a)*q^73 + (a^4 + 1)*q^78 + (-a^5 + 
        a^2)*q^82 + 1/7*(5*a^5 - 3*a^4 + a^3 - 6*a^2 + 4*a - 2)*q^87 + (a^4 - 
        a^3 + 1)*q^92 - a^5*q^93 - a^4*q^94 + (a^4 - a^3 - a + 1)*q^96 - 
        a^3*q^98 + (a^5 - a^4 - a^2 + a)*q^100 + (a^5 - a^4 - a^3 + a^2 + a - 
        1)*q^104 + a^2*q^108 + a^2*q^116 + O(q^118),
    q^3 + (-a^5 + a^4 - a^3 - a + 1)*q^4 + (a^5 - a^4 + a)*q^6 + (-a^5 + a^2 - 
        a)*q^9 + (a^4 - a)*q^18 + a^3*q^24 + (a^5 - a^2)*q^26 - a^3*q^27 + 
        1/7*(-2*a^5 - 3*a^4 + a^3 + a^2 + 4*a - 2)*q^29 + (-a^5 + a^4 + a^2 - 
        a)*q^31 + (a^4 - a^3 + 1)*q^32 + (a^5 - a^2)*q^36 + (-a^4 + a - 1)*q^39 
        - a^2*q^41 + (a^5 - a^4 + a - 1)*q^47 + (a^5 - a^4 + a^3 + a - 1)*q^48 +
        (-a^4 + a - 1)*q^54 + 1/7*(-5*a^5 + 3*a^4 - a^3 - a^2 - 4*a + 2)*q^58 + 
        a^4*q^62 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^69 + (a^5 - a^4 + a^3 - a^2
        + a - 1)*q^71 - a*q^72 + (-a^5 + a^4 + a^2 - a + 1)*q^73 + a^2*q^75 - 
        a^5*q^78 + (-a^5 + a^4)*q^81 + a^3*q^82 + 1/7*(2*a^5 - 4*a^4 - a^3 - a^2
        + 3*a + 2)*q^87 + (a^5 + a)*q^92 + (-a^5 + a^2)*q^94 + (-a^4 + a)*q^100 
        + (-a^4 - 1)*q^104 + (-a^5 + a^2 - a)*q^108 + (a^4 + 1)*q^117 + O(q^118)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
667
);
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:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
667
);
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(
44
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
667
);
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(
22
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
667
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^6 - q^13 + q^16 - q^23 + q^24 + q^25 - 1/2*q^29 + 2*q^36 + q^49 - 
        2*q^52 + q^54 + 1/2*q^58 - 2*q^59 - q^62 + q^64 - q^71 - q^78 + q^81 - 
        q^82 + 1/2*q^87 - q^93 + q^94 - q^116 - 2*q^117 + O(q^118),
    q^2 + q^3 - q^8 - 2*q^12 - 2*q^18 + q^26 - q^27 - 1/2*q^29 + q^31 + q^39 + 
        q^41 - q^46 - q^47 + q^48 + q^50 + 1/2*q^58 - q^69 + 2*q^72 - q^73 + 
        q^75 + 1/2*q^87 + q^98 - q^104 + 2*q^108 + q^116 + O(q^118),
    q^4 + q^6 + q^9 - q^13 - q^24 - 1/2*q^29 - q^36 - q^54 - 1/2*q^58 + q^62 - 
        q^71 + q^78 + q^82 - 1/2*q^87 - q^92 + q^93 - q^94 + q^100 + O(q^118)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
668
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
668
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
166
);
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
668
);
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(
166
);
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
668
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
83*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
164
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^19 + q^25 - q^47 + q^49 - q^63 - q^77 - q^93 + q^121 - q^133 - q^147 +
        O(q^164),
    q^2 - q^24 - q^32 - q^36 - q^38 + q^48 + q^50 + q^64 + q^72 - q^76 + q^84 - 
        q^94 + q^98 + q^108 - q^112 + q^124 - q^126 - q^128 + q^152 - q^154 + 
        O(q^164),
    q^3 - q^21 - q^31 - q^49 + q^61 + q^75 + q^77 - q^87 + q^89 - q^99 + q^121 +
        q^147 - q^157 + O(q^164),
    q^4 + q^36 - q^44 - q^48 - q^72 - q^84 + q^100 - q^132 - q^152 + O(q^164),
    q^6 + q^32 + q^36 - q^42 - q^44 - q^48 - q^62 - q^72 + q^76 - q^84 + q^88 - 
        q^98 + q^122 - q^132 + q^150 - q^152 + q^154 + O(q^164),
    q^7 - q^21 - q^27 + q^29 - q^31 + q^33 - q^49 - q^57 + q^63 + q^81 - q^87 + 
        q^93 + q^107 - q^141 + q^147 - q^157 + O(q^164),
    q^8 - q^24 - q^36 + q^72 - q^76 + q^84 + q^108 - q^112 + q^124 + O(q^164),
    q^9 + q^19 - q^21 - q^27 - q^31 + q^47 - q^49 - q^57 + q^63 + q^77 + q^81 - 
        q^87 + q^93 - q^99 + q^133 - q^141 + q^147 - q^157 + O(q^164),
    q^11 - q^27 - q^31 + q^33 - q^49 - q^57 + q^63 + q^97 + q^127 + q^133 + 
        q^137 - q^141 - q^157 + O(q^164),
    q^12 - q^24 - q^32 - q^36 + q^48 + q^56 + q^64 + q^72 - q^76 - q^88 + q^108 
        - q^128 - q^144 + q^152 + O(q^164),
    q^14 + q^24 + q^32 + q^36 - q^42 - q^44 - 2*q^48 - q^54 - q^56 + q^58 - q^62
        + q^66 - q^72 + q^76 - q^84 + q^88 - q^98 - q^114 + q^126 + q^128 - 
        q^132 + q^144 - q^152 + q^162 + O(q^164),
    q^16 - q^24 - q^32 - q^36 + q^44 + q^48 + q^64 + q^72 - q^76 + q^84 - q^88 -
        q^96 - q^112 - q^128 + q^132 + q^152 + O(q^164),
    q^18 + q^24 + q^32 + q^36 + q^38 - q^42 - q^44 - 2*q^48 - q^54 - q^62 - q^64
        - 2*q^72 + q^76 - q^84 + q^88 + q^94 + q^96 - q^98 + q^112 - q^114 + 
        q^126 + q^128 - q^132 + q^144 - 2*q^152 + q^154 + q^162 + O(q^164),
    q^22 + q^24 + q^36 - q^44 - q^48 - q^54 - q^62 + q^66 - q^72 + q^76 - q^84 -
        q^98 + q^112 - q^114 + q^126 - q^132 - q^152 + O(q^164),
    q^28 - q^32 - q^36 + q^48 + q^56 - q^76 - q^88 + q^116 + q^132 + O(q^164)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
669
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
669
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
222
);
qprec:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
669
);
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:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
669
);
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:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
669
);
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:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^3 - a^27*q^4 + (a^8 - a^5)*q^7 + a^2*q^9 + a^28*q^12 + (-a^21 + 
        a^14)*q^13 - a^17*q^16 + (-a^25 - a^23)*q^19 + (-a^9 + a^6)*q^21 + 
        a^30*q^25 - a^3*q^27 + (-a^35 + a^32)*q^28 + (a^34 - a^19)*q^31 - 
        a^29*q^36 + (-a^33 + a^12)*q^37 + (a^22 - a^15)*q^39 + (-a^31 + 
        a^20)*q^43 + a^18*q^48 + (a^16 - a^13 + a^10)*q^49 + (-a^11 + a^4)*q^52 
        + (a^26 + a^24)*q^57 + (a^24 - a^11)*q^61 + (a^10 - a^7)*q^63 - a^7*q^64
        + (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^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^67 + (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^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^73 - a^31*q^75 + (-a^15 -
        a^13)*q^76 + (a^26 + a^12)*q^79 + a^4*q^81 + (a^35 - a^34 - 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^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^29 + a^26 + a^22 - a^19)*q^91 + (-a^35 + a^20)*q^93 + (a^4 - 
        a^3)*q^97 + a^20*q^100 + (a^32 - a^7)*q^103 + a^30*q^108 + (a^34 + 
        a^6)*q^109 + (a^34 - a^13)*q^111 + (-a^25 + a^22)*q^112 + (-a^23 + 
        a^16)*q^117 - a^29*q^121 + (a^24 - a^9)*q^124 + (-a^17 - a^9)*q^127 + 
        (a^32 - a^21)*q^129 + (-a^33 - a^31 + a^30 + a^28)*q^133 + (a^18 + 
        a^14)*q^139 - a^19*q^144 + O(q^147)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
669
);
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:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
669
);
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:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
669
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
111*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
147
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^14 - q^17 - q^19 + q^25 - q^28 - q^32 - q^47 + q^49 - q^53 + 
        q^56 + q^58 + q^62 + q^68 - q^74 + q^76 + q^81 - q^82 + q^86 + q^98 - 
        q^109 + q^112 - q^119 + q^121 - q^126 - q^127 + q^128 - q^133 - q^136 + 
        q^146 + O(q^147),
    q^2 - q^7 - q^14 - q^16 + q^18 + q^29 + q^31 - q^37 - q^41 + q^43 + q^49 + 
        q^50 - q^63 - q^68 + q^73 - q^74 - q^76 - q^82 + q^83 - q^89 + q^98 - 
        q^101 + q^112 + q^116 + q^119 + q^124 - q^126 - q^131 + q^133 + q^136 - 
        q^139 - q^144 + O(q^147),
    q^3 + q^27 - q^42 - q^51 - q^57 + q^75 - q^84 - q^96 - q^141 + O(q^147),
    q^4 - q^7 - q^8 + q^17 + q^19 - q^34 + q^36 - q^37 - q^38 - q^41 + q^47 + 
        q^53 + q^58 + q^62 - q^63 - q^72 + q^86 - q^89 - q^94 + q^98 + q^100 - 
        q^101 - q^106 + q^109 - q^116 + q^119 - q^124 + q^127 - q^131 + q^133 - 
        q^139 + q^146 + O(q^147),
    q^6 - q^21 - q^42 - q^48 + q^54 + q^87 + q^93 - q^111 - q^123 + q^129 + 
        O(q^147),
    q^12 - q^21 - q^24 + q^51 + q^57 - q^102 + q^108 - q^111 - q^114 - q^123 + 
        q^141 + O(q^147)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
670
);
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(
670
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
670
);
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:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
670
);
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:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
670
);
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:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
670
);
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(
22
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
670
);
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(
44
);
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
670
);
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:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
670
);
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:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
670
);
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:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
670
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
33*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(
670
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 33*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
198
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^19 - 2*q^24 + q^25 - q^26 - q^35 + q^36 - 2*q^39 + q^40 + q^49 - q^54 
        - q^59 - q^60 + q^65 + q^71 - q^76 - q^81 + q^86 - q^89 + q^90 - q^91 + 
        q^96 + q^104 + q^114 - q^116 + q^121 + q^129 + q^135 + q^140 + q^144 - 
        q^149 - q^151 + 2*q^156 + 2*q^169 + q^174 - q^181 - q^189 - q^190 + 
        q^194 - q^196 + O(q^198),
    q^2 + q^18 - q^42 - q^48 + q^50 - q^52 - q^70 - q^78 + q^98 - q^108 - q^120 
        + q^168 + q^172 - q^178 + q^180 + q^192 + O(q^198),
    q^3 + q^27 + q^30 + q^32 - q^42 - q^43 - q^45 - q^48 - q^57 + q^58 - q^63 - 
        q^70 + q^75 - q^78 - q^87 - q^97 + q^98 + q^113 + q^117 - q^120 + q^145 
        - q^162 + q^168 + q^177 - q^178 + q^182 - q^195 + q^197 + O(q^198),
    q^4 - q^24 - q^26 + q^36 - q^54 - q^60 + q^86 + q^90 + q^100 + q^114 - q^116
        + q^174 - q^190 + q^194 + O(q^198),
    q^5 + q^18 + q^30 + q^32 - q^38 - 2*q^42 - q^43 - q^57 + q^58 - q^63 + q^67 
        - q^70 - q^72 - q^80 + q^87 - q^97 + q^98 + q^118 - q^120 + q^125 - 
        q^130 - q^133 - q^142 + q^147 + q^152 + 2*q^168 - q^178 + 2*q^182 - 
        q^195 + O(q^198),
    q^6 + q^19 - q^24 - q^26 - q^35 - q^39 + q^64 + q^65 + q^71 - q^81 - q^89 + 
        q^104 - q^126 + q^129 + q^135 + q^150 + q^169 - q^190 + O(q^198),
    q^7 + q^18 + q^20 - q^42 - q^43 - q^45 - q^48 - q^52 + q^53 - q^70 + q^72 - 
        q^87 - q^97 + q^105 - q^108 + q^112 + q^117 + q^118 - q^120 - q^133 - 
        q^147 + q^175 - q^178 + q^180 + q^182 + q^192 + O(q^198),
    q^8 - q^18 - q^20 - q^30 + q^38 + 2*q^42 - q^58 + q^70 - q^98 - 2*q^112 - 
        q^118 + q^120 + q^128 + q^130 + q^142 - q^152 - q^168 + q^172 + q^178 - 
        2*q^182 - q^192 + O(q^198),
    q^9 - q^19 - q^21 + q^24 - q^36 + q^39 - q^40 + q^59 - q^65 - q^71 + q^76 + 
        q^81 + q^84 + q^91 - q^129 - q^135 - q^144 + q^149 + q^151 - q^156 - 
        q^159 - q^169 - q^171 + q^181 + O(q^198),
    q^10 + q^19 - 2*q^24 - q^26 - q^35 + 2*q^36 - q^39 + q^40 - q^54 + q^56 - 
        q^60 + q^65 + q^71 - q^76 - q^81 - q^84 - q^89 + q^90 + q^96 - q^116 - 
        q^126 + q^129 + q^134 + q^135 + q^144 + 2*q^156 + q^169 + 2*q^174 - 
        q^190 - q^196 + O(q^198),
    q^12 - q^18 - q^20 + q^38 + q^42 - q^72 - q^78 + q^108 - q^112 - q^118 + 
        q^120 + q^128 + q^130 + q^142 - q^162 - q^180 - q^182 - q^192 + 
        O(q^198),
    q^13 + q^18 + q^20 + q^27 + q^30 - q^38 - 2*q^42 - q^43 - q^45 - q^48 - q^52
        - q^57 + q^58 - q^70 + q^72 - q^87 + q^95 - q^97 + q^98 + q^105 - q^108 
        + 2*q^112 + q^117 + q^118 - 2*q^120 - q^128 - q^130 - q^133 + q^137 - 
        q^142 - q^147 + q^152 + q^168 + q^177 - q^178 + q^180 + 2*q^182 + q^192 
        - q^195 + O(q^198),
    q^14 + q^19 - q^24 - q^26 - q^35 + q^36 - q^39 + q^40 - q^54 - q^60 + q^65 +
        q^71 - q^81 - q^89 + q^106 + q^114 - q^116 + q^129 + q^135 + q^144 + 
        q^156 + q^169 - q^190 - q^196 + O(q^198),
    q^15 - q^19 - q^21 + q^29 + q^49 + q^56 - q^60 - q^64 - q^65 - q^71 + q^76 +
        q^84 + q^91 - q^104 - q^116 + q^131 + q^144 - q^159 + q^160 - q^169 - 
        q^196 + O(q^198),
    q^16 + q^19 - q^24 - q^35 - q^39 - q^56 + q^64 + q^65 + q^71 - q^76 - q^81 -
        q^89 + q^104 + q^129 + q^135 + q^140 + q^156 - q^160 + q^169 + O(q^198),
    q^28 - q^30 - q^32 + q^38 + q^42 - q^52 - q^58 + q^72 + q^80 - q^98 - q^108 
        + q^130 + q^142 - q^168 - q^182 + O(q^198)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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(
60
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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(
60
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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(
30
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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(
20
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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(
20
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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(
20
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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(
20
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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(
30
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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(
30
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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(
10
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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(
10
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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(
10
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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(
10
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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(
10
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 12*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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(
10
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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(
20
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^5 - q^9 - q^11 + (-a + 1)*q^14 + a*q^16 + (-a + 1)*q^26 + (-a + 
        1)*q^31 - q^34 - 2*q^37 + q^38 - a*q^45 + (a - 1)*q^47 - a*q^55 + a*q^56
        - q^58 + a*q^59 - q^64 + a*q^67 + q^70 + (-a + 1)*q^71 + (a - 1)*q^80 + 
        q^81 - 2*a*q^82 + (-a + 1)*q^86 + (-a + 1)*q^91 + (a - 1)*q^97 + q^99 + 
        (a - 1)*q^103 + a*q^104 - q^119 + q^121 + O(q^122),
    q^2 + q^7 + (a - 1)*q^8 + a*q^10 + q^13 - a*q^17 - q^18 + a*q^19 - q^22 - 
        a*q^29 + a*q^35 - q^40 + (-2*a + 2)*q^41 + q^43 + (a - 1)*q^61 + (-a + 
        1)*q^62 - q^63 + a*q^65 + (-a + 1)*q^72 - a*q^73 - 2*q^74 - q^77 - q^79 
        - q^83 + (-a + 1)*q^85 + (-a + 1)*q^88 - a*q^90 + (a - 1)*q^94 + (a - 
        1)*q^95 - q^101 + q^107 + q^109 - a*q^110 + a*q^112 - q^117 + a*q^118 + 
        O(q^122)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
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:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
671
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + 30*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 2*q^15 + q^16 - q^22 - q^27 + q^34 - 2*q^36 - q^42 - q^47 + q^48 + 
        2*q^49 - q^56 + q^58 - q^66 - 2*q^70 - 2*q^75 + q^77 - q^80 - q^81 + 
        q^86 - q^88 + q^97 + q^102 - q^103 + q^113 - 2*q^119 + q^121 + O(q^122),
    q^2 + q^18 - q^21 - q^29 - 2*q^30 + q^33 + q^35 - q^40 - q^43 + 2*q^50 - 
        q^51 + q^54 - q^55 - q^63 - q^68 + q^79 + 2*q^85 + q^87 - q^90 - q^96 + 
        q^99 + q^120 + O(q^122),
    q^3 - q^15 - q^20 + q^27 - q^34 - q^49 + q^56 + q^66 + q^70 + q^75 - q^77 + 
        q^100 - q^102 + q^108 + O(q^122),
    q^4 - 2*q^15 - q^20 + q^25 + q^27 - q^34 + q^36 + q^47 - q^48 - q^49 + q^56 
        - q^58 + q^64 + q^66 + q^70 + q^75 - q^77 - q^80 + q^81 - q^86 - q^97 + 
        q^100 - q^102 - q^113 + q^119 + O(q^122),
    q^5 - 2*q^15 - q^16 + q^25 + q^27 + q^36 - q^49 - q^58 + q^66 + 2*q^70 - 
        q^77 - q^86 + q^88 - q^97 - q^102 - q^110 - q^113 + q^119 + O(q^122),
    q^6 - q^11 - 2*q^18 + q^24 + q^29 + q^30 - q^40 + q^43 - q^44 + q^54 - q^61 
        + q^63 + q^68 - 2*q^72 - 2*q^84 + q^96 + q^98 - q^99 - q^105 + q^112 + 
        q^116 + q^120 + O(q^122),
    q^7 - q^11 - 2*q^18 + q^24 + q^29 + 2*q^30 + q^32 - q^33 - q^35 - q^40 + 
        q^43 - q^44 - q^61 + 2*q^63 + q^68 - 2*q^72 - q^79 - q^84 - q^85 + q^90 
        + q^96 + q^98 - q^99 + q^101 + q^112 + O(q^122),
    q^8 - q^11 - 2*q^18 + q^21 + q^29 + 2*q^30 + q^32 - q^33 - q^35 - q^40 + 
        q^43 - q^44 - q^50 + q^51 - q^54 + q^55 - q^61 + q^63 + q^68 - q^72 - 
        q^79 - q^84 - q^85 + 2*q^90 + q^94 + q^96 + q^98 - q^99 - q^105 + q^112 
        + O(q^122),
    q^9 - 2*q^15 - q^16 + q^22 + q^25 + q^27 - q^34 + 2*q^36 - q^45 - q^48 - 
        q^49 - q^58 - q^60 + q^66 + 2*q^70 + q^75 - q^77 + q^80 + q^81 - q^86 + 
        q^88 - q^97 - 2*q^102 + q^103 - q^110 - q^113 + 2*q^119 + O(q^122),
    q^10 - q^11 - q^18 + q^21 + q^35 - q^40 - q^61 + q^68 - q^84 + q^87 + q^90 +
        q^96 - q^99 - 2*q^105 + q^120 + O(q^122),
    q^12 - q^15 - q^16 + q^25 + q^27 - q^42 - q^45 + q^66 + q^70 - q^97 - q^102 
        + q^108 - q^110 - q^113 + q^119 + O(q^122),
    q^14 - q^15 - q^20 + q^25 + q^27 - q^34 - q^49 + q^56 - q^58 + q^64 + q^66 +
        q^70 - q^77 - q^80 - q^86 + q^100 - q^102 + q^108 + q^119 + O(q^122),
    q^17 - q^18 - q^21 + q^24 + q^30 - q^35 - q^44 + q^51 + q^63 - q^72 - q^87 +
        q^98 + q^116 + O(q^122),
    q^28 - q^29 - q^30 + q^33 + q^35 - q^40 - q^43 + q^50 + q^54 - q^63 - q^68 +
        q^79 + q^85 - q^98 - q^105 + q^120 + O(q^122)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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(
672
);
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(
672
);
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(
672
);
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(
672
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
672
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 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(
672
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 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(
672
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
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(
672
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4
;
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(
672
);
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(
12
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^9 + (2*a - 1)*q^13 - q^21 + (-a + 1)*q^25 - a*q^37 + (a - 1)*q^49 + 
        q^57 + (-a - 1)*q^73 + (a - 1)*q^81 + a*q^93 + (-a + 1)*q^109 + (-a + 
        2)*q^117 + a*q^121 + (a + 1)*q^129 + (-a + 1)*q^133 - 2*q^169 + (-2*a + 
        1)*q^181 + a*q^189 + (a - 1)*q^193 + (a - 2)*q^201 + q^217 - q^225 + 
        O(q^226),
    q^2 - a*q^18 + (2*a - 1)*q^26 - q^42 + (-a + 1)*q^50 - a*q^74 + (a - 1)*q^98
        + q^114 + (-a - 1)*q^146 + (a - 1)*q^162 + a*q^186 + (-a + 1)*q^218 + 
        O(q^226),
    q^3 + (-a + 1)*q^7 + (a - 1)*q^19 - a*q^27 - q^31 + (2*a - 1)*q^39 + (a - 
        2)*q^43 - q^63 + (-2*a + 1)*q^67 + (-a + 1)*q^75 + (a + 1)*q^79 + (a + 
        1)*q^91 + (-a + 1)*q^103 - a*q^111 + (-a + 2)*q^127 + a*q^139 + (a - 
        1)*q^147 + q^171 - a*q^175 - 2*q^199 + (-a - 1)*q^219 + 2*a*q^223 + 
        O(q^226),
    q^6 + (-a + 1)*q^14 + (a - 1)*q^38 - a*q^54 - q^62 + (2*a - 1)*q^78 + (a - 
        2)*q^86 - q^126 + (-2*a + 1)*q^134 + (-a + 1)*q^150 + (a + 1)*q^158 + (a
        + 1)*q^182 + (-a + 1)*q^206 - a*q^222 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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(
24
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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(
12
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^5 - a*q^17 - a*q^21 + (a - 1)*q^33 + (-a + 1)*q^37 - q^49 + 
        a*q^53 - q^57 + (-a + 1)*q^61 + q^69 + a*q^73 + a*q^77 + a*q^81 + q^85 +
        (-a + 1)*q^89 + (a - 1)*q^93 - a*q^101 + q^105 - a*q^109 - q^125 + (a - 
        1)*q^133 - a*q^137 - q^141 + (a - 1)*q^149 + a*q^157 + (-a + 1)*q^161 - 
        a*q^165 - q^169 + (-a + 1)*q^173 + (-a + 1)*q^177 - 2*q^181 + a*q^185 + 
        q^189 - a*q^193 + (-a + 1)*q^201 + q^209 + a*q^217 + O(q^226),
    q^3 + (a - 1)*q^15 - a*q^51 - a*q^63 + (a - 1)*q^99 + (-a + 1)*q^111 - q^147
        + a*q^159 - q^171 + (-a + 1)*q^183 + q^207 + a*q^219 + O(q^226),
    q^7 - a*q^11 + (-a + 1)*q^19 + (a - 1)*q^23 - q^27 - a*q^31 + (a - 1)*q^35 +
        (-a + 1)*q^47 + q^55 + a*q^59 + (a - 1)*q^63 + a*q^67 + (a - 1)*q^79 + 
        a*q^95 + q^99 + (a - 1)*q^103 + (-a + 1)*q^107 - a*q^115 - a*q^119 + (a 
        - 1)*q^131 + (-a + 1)*q^135 - a*q^151 + q^155 + (a - 1)*q^163 - 2*q^167 
        + a*q^171 - a*q^179 + (a - 1)*q^187 + (-a + 1)*q^191 - a*q^199 - a*q^207
        + O(q^226),
    q^9 + (-a + 1)*q^21 - q^33 + (a - 1)*q^45 - a*q^57 + a*q^69 + (a - 1)*q^81 -
        q^93 + a*q^105 - a*q^141 - a*q^153 + (-a + 1)*q^165 + q^177 + q^201 + 
        O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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(
24
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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(
12
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^9 - q^13 + q^21 - a*q^25 + (-a + 1)*q^37 - a*q^49 - q^57 + 
        (2*a - 2)*q^61 + a*q^73 - a*q^81 + (-a + 1)*q^93 + 2*q^97 + a*q^109 + 
        (-a + 1)*q^117 + (a - 1)*q^121 + a*q^129 + a*q^133 - 2*a*q^157 - q^181 +
        (a - 1)*q^189 + a*q^193 + (-a + 1)*q^201 - q^217 + q^225 + O(q^226),
    q^2 + (a - 1)*q^18 - q^26 + q^42 - a*q^50 + (-a + 1)*q^74 - a*q^98 - q^114 +
        (2*a - 2)*q^122 + a*q^146 - a*q^162 + (-a + 1)*q^186 + 2*q^194 + a*q^218
        + O(q^226),
    q^3 - a*q^7 + a*q^19 + (a - 1)*q^27 - q^31 - q^39 + (-a + 1)*q^43 + q^63 - 
        q^67 - a*q^75 + a*q^79 + a*q^91 + a*q^103 + (-a + 1)*q^111 + (-a + 
        1)*q^127 + (-a + 1)*q^139 - a*q^147 + 2*q^151 - 2*a*q^163 - q^171 + (a -
        1)*q^175 + (2*a - 2)*q^183 + 2*q^199 + (2*a - 2)*q^211 + a*q^219 + (2*a 
        - 2)*q^223 + O(q^226),
    q^4 - a*q^12 + (a - 1)*q^28 + (a - 1)*q^36 - q^52 + (-a + 1)*q^76 + q^84 - 
        a*q^100 + q^108 + a*q^124 + (-a + 1)*q^148 + a*q^156 - q^172 - a*q^196 +
        O(q^226),
    q^6 - a*q^14 + a*q^38 + (a - 1)*q^54 - q^62 - q^78 + (-a + 1)*q^86 + q^126 -
        q^134 - a*q^150 + a*q^158 + a*q^182 + a*q^206 + (-a + 1)*q^222 + 
        O(q^226),
    q^8 - a*q^24 + (a - 1)*q^56 + (a - 1)*q^72 - q^104 + (-a + 1)*q^152 + q^168 
        - a*q^200 + q^216 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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(
12
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^7 + (a - 1)*q^9 + q^15 - a*q^31 + (-a + 1)*q^33 + (a - 1)*q^49 - 
        q^55 - q^63 - 2*a*q^73 + (a - 1)*q^79 - a*q^81 - a*q^87 - q^97 + (-2*a +
        2)*q^103 + a*q^105 + q^127 + (a - 1)*q^135 + (a - 1)*q^145 - a*q^151 + 
        (a - 1)*q^159 + q^169 + (-a + 1)*q^177 + a*q^193 + 2*a*q^199 + (-a + 
        1)*q^217 + q^223 + O(q^226),
    q^3 - a*q^5 - q^11 + a*q^21 + (a - 1)*q^27 + (a - 1)*q^29 + (-a + 1)*q^35 + 
        q^45 + q^53 - q^59 - a*q^77 + (-a + 1)*q^83 - a*q^93 + (-a + 1)*q^99 - 
        2*q^101 + a*q^107 + (-a + 1)*q^125 + a*q^131 + (a - 1)*q^147 + 2*a*q^149
        + (a - 1)*q^155 - q^165 + 2*a*q^173 + 2*q^179 - q^189 + (-2*a + 2)*q^197
        - q^203 - 2*a*q^219 + O(q^226)
]
;
Bo:=
[
    q - a*q^7 + (a - 1)*q^9 - q^15 + a*q^31 + (-a + 1)*q^33 + (a - 1)*q^49 + 
        q^55 + q^63 - 2*a*q^73 + (-a + 1)*q^79 - a*q^81 + a*q^87 - q^97 + (2*a -
        2)*q^103 + a*q^105 - q^127 + (-a + 1)*q^135 + (a - 1)*q^145 + a*q^151 + 
        (-a + 1)*q^159 + q^169 + (-a + 1)*q^177 + a*q^193 - 2*a*q^199 + (-a + 
        1)*q^217 - q^223 + O(q^226),
    q^2 - a*q^14 + (a - 1)*q^18 - q^30 + a*q^62 + (-a + 1)*q^66 + (a - 1)*q^98 +
        q^110 + q^126 - 2*a*q^146 + (-a + 1)*q^158 - a*q^162 + a*q^174 - q^194 +
        (2*a - 2)*q^206 + a*q^210 + O(q^226),
    q^3 + a*q^5 - q^11 - a*q^21 + (a - 1)*q^27 + (-a + 1)*q^29 + (-a + 1)*q^35 -
        q^45 - q^53 - q^59 + a*q^77 + (-a + 1)*q^83 + a*q^93 + (-a + 1)*q^99 + 
        2*q^101 + a*q^107 + (a - 1)*q^125 + a*q^131 + (a - 1)*q^147 - 2*a*q^149 
        + (a - 1)*q^155 + q^165 - 2*a*q^173 + 2*q^179 + q^189 + (2*a - 2)*q^197 
        - q^203 - 2*a*q^219 + O(q^226),
    q^4 - a*q^16 + q^24 - a*q^28 + (a - 1)*q^36 + a*q^40 - q^60 + (a - 1)*q^64 -
        q^88 - a*q^96 + (a - 1)*q^112 + a*q^124 + (-a + 1)*q^132 + q^144 + (-a +
        1)*q^160 - a*q^168 + (a - 1)*q^196 + (a - 1)*q^216 + q^220 + O(q^226),
    q^6 + a*q^10 - q^22 - a*q^42 + (a - 1)*q^54 + (-a + 1)*q^58 + (-a + 1)*q^70 
        - q^90 - q^106 - q^118 + a*q^154 + (-a + 1)*q^166 + a*q^186 + (-a + 
        1)*q^198 + 2*q^202 + a*q^214 + O(q^226),
    q^8 + (a - 1)*q^12 - q^20 - a*q^32 + (-a + 1)*q^44 + q^48 - a*q^56 + (a - 
        1)*q^72 + a*q^80 + q^84 - a*q^108 + a*q^116 - q^120 + (a - 1)*q^128 + 
        a*q^140 - q^176 + (-a + 1)*q^180 - a*q^192 + (-a + 1)*q^212 + (a - 
        1)*q^224 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.4
;
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(
672
);
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(
8
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^2 + a^2*q^4 - a*q^7 + a^3*q^8 + a^3*q^9 + (-a^3 - a^2)*q^11 - 
        a^2*q^14 - q^16 - q^18 + (-a^3 + 1)*q^22 + (a^2 - 1)*q^23 + a*q^25 - 
        a^3*q^28 + (-a^2 - a)*q^29 - a*q^32 - a*q^36 + (-a^3 + a^2)*q^37 + (a - 
        1)*q^43 + (a + 1)*q^44 + (a^3 - a)*q^46 + a^2*q^49 + a^2*q^50 + (a - 
        1)*q^53 + q^56 + (-a^3 - a^2)*q^58 + q^63 - a^2*q^64 + (a^3 + 1)*q^67 - 
        a^2*q^72 + (a^3 + 1)*q^74 + (a^3 - 1)*q^77 + (a^3 + a)*q^79 - a^2*q^81 +
        (a^2 - a)*q^86 + (a^2 + a)*q^88 + (-a^2 - 1)*q^92 + a^3*q^98 + (a^2 + 
        a)*q^99 + a^3*q^100 + (a^2 - a)*q^106 + (-a + 1)*q^107 + (-a^3 + 
        1)*q^109 + a*q^112 + (-a^3 - a)*q^113 + (-a^3 + 1)*q^116 + (-a^2 - a - 
        1)*q^121 + a*q^126 - a^3*q^128 + (a - 1)*q^134 + (a^2 - 1)*q^137 - 
        a^3*q^144 + (a - 1)*q^148 + (-a + 1)*q^149 + (-a^2 + 1)*q^151 + (-a - 
        1)*q^154 + (a^2 - 1)*q^158 + (-a^3 + a)*q^161 - a^3*q^162 + (-a^2 - 
        a)*q^163 - a^3*q^169 + (a^3 - a^2)*q^172 - a^2*q^175 + (a^3 + a^2)*q^176
        + (a^2 - a)*q^179 + (-a^3 - a)*q^184 + (-a^3 + a)*q^191 + (a^3 - 
        a)*q^193 - q^196 + (a^3 - a^2)*q^197 + (a^3 + a^2)*q^198 - q^200 + (a^3 
        + a^2)*q^203 + (-a^3 - a)*q^207 + (a^3 - 1)*q^211 + (a^3 - a^2)*q^212 + 
        (-a^2 + a)*q^214 + (a + 1)*q^218 + a^2*q^224 - q^225 + O(q^226),
    q^3 + a*q^6 + a^2*q^12 - a*q^21 + a^3*q^24 + a^3*q^27 + (-a^3 - a^2)*q^33 - 
        a^2*q^42 - q^48 - q^54 + (-a^3 + 1)*q^66 + (a^2 - 1)*q^69 + a*q^75 - 
        a^3*q^84 + (-a^2 - a)*q^87 - a*q^96 - a*q^108 + (-a^3 + a^2)*q^111 + (a 
        - 1)*q^129 + (a + 1)*q^132 + (a^3 - a)*q^138 + a^2*q^147 + a^2*q^150 + 
        (a - 1)*q^159 + q^168 + (-a^3 - a^2)*q^174 + q^189 - a^2*q^192 + (a^3 + 
        1)*q^201 - a^2*q^216 + (a^3 + 1)*q^222 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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(
4
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^7 - a*q^9 + (-a - 1)*q^11 + a*q^25 + (a - 1)*q^29 + (-a - 1)*q^37 + 
        (a + 1)*q^43 - q^49 + (a + 1)*q^53 + q^63 + (-a + 1)*q^67 - 2*a*q^71 + 
        (-a + 1)*q^77 - q^81 + (a - 1)*q^99 + (a + 1)*q^107 + (-a + 1)*q^109 + 
        a*q^121 - 2*q^127 + (a + 1)*q^149 + (a - 1)*q^163 - a*q^169 - q^175 + (a
        - 1)*q^179 + (-a - 1)*q^197 + (-a - 1)*q^203 + (-a + 1)*q^211 + q^225 + 
        O(q^226),
    q^2 + a*q^4 - q^8 + a*q^14 - a*q^16 - a*q^18 + (-a - 1)*q^22 - q^28 + q^32 +
        q^36 + (-a + 1)*q^44 + a*q^50 - a*q^56 + (a - 1)*q^58 + a*q^64 + a*q^72 
        + (-a - 1)*q^74 + (a + 1)*q^86 + (a + 1)*q^88 - q^98 - q^100 + (a + 
        1)*q^106 + q^112 + (-a - 1)*q^116 + q^126 - q^128 + (-a + 1)*q^134 - 
        2*a*q^142 - q^144 + (-a + 1)*q^148 + (-a + 1)*q^154 - q^162 + (a - 
        1)*q^172 + (a - 1)*q^176 - a*q^196 + (a - 1)*q^198 - a*q^200 + (a - 
        1)*q^212 + (a + 1)*q^214 + (-a + 1)*q^218 + a*q^224 + O(q^226),
    q^3 + a*q^21 - a*q^27 + (-a - 1)*q^33 + a*q^75 + (a - 1)*q^87 + (-a - 
        1)*q^111 + (a + 1)*q^129 - q^147 + (a + 1)*q^159 + q^189 + (-a + 
        1)*q^201 - 2*a*q^213 + O(q^226),
    q^6 + a*q^12 - q^24 + a*q^42 - a*q^48 - a*q^54 + (-a - 1)*q^66 - q^84 + q^96
        + q^108 + (-a + 1)*q^132 + a*q^150 - a*q^168 + (a - 1)*q^174 + a*q^192 +
        a*q^216 + (-a - 1)*q^222 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
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^14 - q^18 + 2*q^46 - q^50 + q^98 + q^126 - 2*q^142 - 2*q^158 + q^162
        + O(q^226),
    q^3 - q^27 - q^75 + q^147 + O(q^226),
    q^4 - q^8 + q^16 - q^28 - q^32 - q^36 + q^56 + q^64 + q^72 + 2*q^92 - q^100 
        - q^112 - q^128 - q^144 - 2*q^184 + q^196 + q^200 + q^224 + O(q^226),
    q^6 - q^42 - q^54 + 2*q^138 - q^150 + 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^12 - q^24 + q^48 - q^84 - q^96 - q^108 + q^168 + q^192 + q^216 + O(q^226),
    q^21 - 2*q^69 - q^189 + 2*q^213 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^21 - q^25 - 2*q^37 + q^49 - 2*q^57 + q^81 + 2*q^93 + 2*q^109 - 
        q^121 + 2*q^133 + q^169 - q^189 - 2*q^193 - 2*q^217 - q^225 + O(q^226),
    q^2 + q^18 - q^42 - q^50 - 2*q^74 + q^98 - 2*q^114 + q^162 + 2*q^186 + 
        2*q^218 + O(q^226),
    q^3 - q^7 - 2*q^19 + q^27 + 2*q^31 - q^63 - q^75 + 2*q^103 - 2*q^111 + 
        2*q^139 + q^147 - 2*q^171 + q^175 - 2*q^199 - 2*q^223 + O(q^226),
    q^6 - q^14 - 2*q^38 + q^54 + 2*q^62 - q^126 - q^150 + 2*q^206 - 2*q^222 + 
        O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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(
8
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
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(
4
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
672
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + H.3 + 3*H.4
;
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(
673
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
672
);
qprec:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
673
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
224
);
qprec:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
673
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
96
);
qprec:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
673
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
32
);
qprec:=
112
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
674
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
336
);
qprec:=
167
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
674
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
112
);
qprec:=
167
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
674
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
48
);
qprec:=
167
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
674
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
167
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
675
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
675
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
675
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^16 + q^19 - q^31 - q^34 + q^46 - q^49 - q^61 - q^64 + q^79 + 2*q^94 + 
        q^106 + q^109 + q^121 - q^136 - 2*q^139 + O(q^146),
    q^2 + q^8 + q^17 - q^23 + q^38 - 2*q^47 - q^53 - q^62 - q^83 - q^98 - 
        2*q^107 + 2*q^113 - q^122 - q^128 + q^137 + O(q^146),
    q^4 + 2*q^16 - 2*q^19 + q^34 - q^46 + q^49 + 2*q^64 - q^76 - 2*q^79 - 2*q^91
        - 2*q^94 - q^106 - 2*q^109 - q^124 + q^136 + q^139 + O(q^146),
    q^7 - 2*q^13 + q^28 + q^37 + q^43 - 2*q^52 - 2*q^67 + q^73 + q^97 + q^103 + 
        q^112 - 2*q^127 - q^133 + O(q^146)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
675
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
675
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
675
);
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(
60
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
675
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
675
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
675
);
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(
10
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
675
);
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(
675
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
675
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 - a)*q^4 + (a^3 - a^2 - 1)*q^7 + (a^3 - a^2 - 1)*q^10 + a^3*q^19 +
        (-a^3 - a)*q^22 + a^3*q^25 + (a^3 + a^2 + a)*q^28 + (-a^3 + 1)*q^34 + 
        (-a^2 + a)*q^37 + a^2*q^40 + (-a^3 - a)*q^46 + (-a^3 + a^2 + 1)*q^49 - 
        q^55 - a^3*q^58 + a*q^61 + (-a^2 - 1)*q^64 + (a^3 + a - 1)*q^67 + (-a^3 
        + a^2 + 2)*q^70 + (-a^3 + a^2 + 1)*q^76 + (-a^3 + a^2 - a)*q^79 + (-a^3 
        + a^2 + 1)*q^82 - a^2*q^85 + (a^3 - a^2 + a - 1)*q^88 + a^3*q^94 + 
        a^2*q^97 + (-a^3 + a^2 + 1)*q^100 + (2*a^3 + a - 1)*q^106 + (a^3 - a^2 +
        a - 1)*q^109 - q^115 + (a^2 - a + 1)*q^127 + (-a^3 - a + 1)*q^133 - 
        a*q^136 + a*q^139 - a^3*q^142 + (-a^2 + a - 1)*q^145 + O(q^146),
    q^2 + (-a + 1)*q^5 + (-a^3 + a^2 - a)*q^8 + (-a^3 + a^2)*q^11 + (a^3 - a^2 -
        1)*q^14 + (a^3 - a^2 + a)*q^17 - q^20 + (-a^3 + a^2)*q^23 + (-a^2 + 2*a 
        - 1)*q^29 + (-a^2 + a)*q^32 + a^3*q^35 + a^3*q^38 + (a - 1)*q^41 - 
        a^2*q^44 + (a^2 - 2*a + 1)*q^47 + a^3*q^50 - a*q^53 + a^2*q^56 + (-a^3 +
        a^2 - a + 1)*q^68 + (-a^2 + 2*a - 1)*q^71 + (-a^2 + a)*q^74 - q^77 - 
        a^2*q^83 + (-a^3 + a^2)*q^89 - a^2*q^92 + (a^2 - a + 1)*q^95 + (-a^3 + 
        a^2 + 1)*q^98 + (a^2 - a)*q^101 - q^110 + (-a + 1)*q^116 - a^2*q^119 + 
        a*q^122 + (a^2 - a + 1)*q^125 - a*q^128 + (a^3 - 2*a^2 + a)*q^131 + (a^3
        + a - 1)*q^134 + (-a + 1)*q^137 + (-a^3 + a^2 + 1)*q^140 + O(q^146)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
675
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^16 - a*q^19 + q^31 - a*q^34 - q^46 + a*q^49 - q^61 + a*q^64 + a*q^79 +
        q^106 + a*q^109 - q^121 + q^136 + O(q^146),
    q^2 + a*q^8 - q^17 + a*q^23 - a*q^38 - a*q^53 + q^62 - 2*a*q^68 + a*q^83 - 
        2*q^92 - a*q^98 - q^122 + a*q^128 - q^137 + O(q^146),
    q^4 - q^34 + a*q^46 - q^49 - a*q^76 - a*q^106 + q^124 - a*q^136 + q^139 + 
        O(q^146),
    q^7 - a*q^28 - q^37 + a*q^43 + a*q^73 - q^97 - a*q^103 - q^112 - a*q^133 + 
        O(q^146)
]
;
Bo:=
[
    q - a*q^4 - q^16 + 2*a*q^19 - 2*q^31 - a*q^49 + 2*q^61 + a*q^64 + 2*q^76 - 
        2*a*q^79 - 2*a*q^109 - q^121 + 2*a*q^124 + 2*a*q^139 + O(q^146),
    q^3 - a*q^12 - q^48 + 2*a*q^57 - 2*q^93 + O(q^146)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
675
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
675
);
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(
12
);
qprec:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
675
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
675
);
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:=
146
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
675
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 10*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^19 - q^31 - q^61 - q^64 - q^76 + q^79 - 2*q^91 + q^109 + 
        q^121 + q^124 + q^139 + O(q^146),
    q^7 + 2*q^13 - q^28 + q^37 - q^43 - 2*q^52 - 2*q^67 - q^73 + q^97 - q^103 + 
        q^112 - 2*q^127 + q^133 + O(q^146)
]
;
Bo:=
[
    q - q^16 - q^19 - q^31 + q^34 + q^46 + q^49 - q^61 + q^64 - q^79 - 2*q^94 + 
        q^106 - q^109 + q^121 - q^136 + 2*q^139 + O(q^146),
    q^2 - q^8 + q^17 + q^23 - q^38 - 2*q^47 + q^53 - q^62 + q^83 + q^98 - 
        2*q^107 - 2*q^113 - q^122 + q^128 + q^137 + O(q^146),
    q^5 - q^50 - q^80 - q^95 + q^125 + O(q^146),
    q^10 - q^25 - q^40 + q^85 + q^115 + O(q^146)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
676
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^10 + q^16 - q^17 - q^29 + q^36 - q^40 + q^49 - q^53 - q^61
        + q^64 - q^68 - q^74 + q^81 - q^82 - q^90 - q^101 - q^113 - q^116 + 
        q^121 + O(q^142),
    q^2 - q^5 + q^8 + q^18 - q^20 + q^32 - q^34 - q^37 - q^41 - q^45 - q^58 + 
        q^72 - q^73 - q^80 + q^85 + 2*q^89 + 2*q^97 + q^98 - q^106 + 2*q^109 - 
        q^122 + q^125 + q^128 - q^136 - q^137 + O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
676
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
156
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
676
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
676
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
676
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + a^2*q^4 + (-a^23 + a^21 - a^8)*q^5 - a^3*q^8 + a^14*q^9 + (-a^23
        - a^22 + a^21 + a^20 - a^18 - a^17 + a^15 + a^14 - a^12 + a^10 + 2*a^9 -
        a^7 - a^6 + a^4 + a^3 - a - 1)*q^10 + a^10*q^13 + a^4*q^16 + (-a^18 - 
        a^14 + a^5 + a)*q^17 - a^15*q^18 + (-a^22 + a^20 + a^19 - a^17 - a^16 + 
        a^14 + a^13 - a^12 - a^11 - a^10 + a^9 + a^8 - a^6 - a^5 + a^3 + a^2 - 
        1)*q^20 + (a^18 - a^16 - a^7 + a^3)*q^25 - a^11*q^26 + (-a^21 + 
        a^20)*q^29 - a^5*q^32 + (a^19 + a^15 - a^6 - a^2)*q^34 + a^16*q^36 + 
        (-a^17 + a^12)*q^37 + (a^23 - a^21 - a^20 + a^18 + a^17 - a^15 - a^14 + 
        a^13 + a^12 + a^11 - a^10 - a^9 + a^7 + a^6 - a^4 - a^3 + a)*q^40 + (a^8
        + a^6)*q^41 + (a^23 - a^21 - a^20 + a^18 + a^17 - a^15 - a^14 + a^12 + 
        a^11 - a^10 - 2*a^9 + a^7 + a^6 - a^4 - a^3 + a + 1)*q^45 - a^19*q^49 + 
        (-a^19 + a^17 + a^8 - a^4)*q^50 + a^12*q^52 + (a^19 - a^13 - a^6)*q^53 +
        (a^22 - a^21)*q^58 + (a^17 + a^16 - a^4)*q^61 + a^6*q^64 + (-a^20 + a^7 
        - a^5)*q^65 + (-a^20 - a^16 + a^7 + a^3)*q^68 - a^17*q^72 - a^12*q^73 + 
        (a^18 - a^13)*q^74 + (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^80 + (a^15 - 
        a^2)*q^81 + (-a^9 - a^7)*q^82 + (a^22 - a^15 + a^13 - a^11 - 1)*q^85 + 
        (a^22 + a^4)*q^89 + (a^23 + a^22 - a^20 - a^19 + a^17 + a^16 - a^14 - 
        a^13 + a^11 + a^10 - a^9 - a^8 + a^6 + a^5 - a^3 - a^2 + 1)*q^90 + (a^23
        - a^20 - a^19 + a^17 + a^16 - a^14 - a^13 + a^11 - a^8 + a^6 + a^5 - a^3
        - a^2 + 1)*q^97 + a^20*q^98 + (a^20 - a^18 - a^9 + a^5)*q^100 + (a^23 + 
        a^13 - a^10 - 1)*q^101 - a^13*q^104 + (-a^20 + a^14 + a^7)*q^106 + 
        (-a^20 + a^7 - a^3)*q^109 + (a^23 + a^15 - a^10 - a^2)*q^113 + (-a^23 + 
        a^22)*q^116 + (-a^23 + a^21 + a^20 - a^18 - a^17 + a^15 + a^14 - a^12 + 
        a^10 + a^9 - a^7 - a^6 + a^4 + a^3 - a - 1)*q^117 - a^11*q^121 + (-a^18 
        - a^17 + a^5)*q^122 + (-a^23 + a^21 + a^20 - a^18 + a^15 + a^14 - a^13 -
        a^12 + a^10 + a^9 - a^7 - a^6 + a^3 + a^2 - a - 1)*q^125 - a^7*q^128 + 
        (a^21 - a^8 + a^6)*q^130 + (a^21 + a^17 - a^8 - a^4)*q^136 + (-a^9 - 
        a)*q^137 + O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
676
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
676
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + a^2*q^4 + (a^10 + a^8)*q^5 - a^3*q^8 - a*q^9 + (-a^11 - 
        a^9)*q^10 + a^10*q^13 + a^4*q^16 + (-a^5 - a)*q^17 + a^2*q^18 + (a^11 + 
        a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^20 + (-a^7 - 
        a^5 - a^3)*q^25 - a^11*q^26 + (a^8 - a^7)*q^29 - a^5*q^32 + (a^6 + 
        a^2)*q^34 - a^3*q^36 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 + a^3 
        - a^2 + a - 1)*q^37 + (-a^11 + 1)*q^40 + (a^8 + a^6)*q^41 + (-a^11 - 
        a^9)*q^45 + a^6*q^49 + (a^8 + a^6 + a^4)*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^52 + (a^6 + 1)*q^53 + 
        (-a^9 + a^8)*q^58 + (a^4 - a^3)*q^61 + a^6*q^64 + (-a^7 - a^5)*q^65 + 
        (-a^7 - a^3)*q^68 + a^4*q^72 + (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^73 + (-a^5 + 
        1)*q^74 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 -
        1)*q^80 + a^2*q^81 + (-a^9 - a^7)*q^82 + (-a^11 - a^9 + a^2 + 1)*q^85 + 
        (-a^9 + a^4)*q^89 + (a^11 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^90 + (a^11 - a^10 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^97 - a^7*q^98 + (-a^9 - a^7 - a^5)*q^100 + (a^10 + 
        1)*q^101 + q^104 + (-a^7 - a)*q^106 + (-a^7 - a^3)*q^109 + (a^10 + 
        a^2)*q^113 + (a^10 - a^9)*q^116 - a^11*q^117 - a^11*q^121 + (-a^5 + 
        a^4)*q^122 + (-a^11 + a^4 + a^2 + 1)*q^125 - a^7*q^128 + (a^8 + 
        a^6)*q^130 + (a^8 + a^4)*q^136 + (-a^9 - a)*q^137 + O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
676
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
676
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 - a*q^9 + (a - 1)*q^10 + (a - 1)*q^16 - a*q^17 + (-a + 1)*q^29 + 
        (-a + 1)*q^36 - q^40 + (-a + 1)*q^49 - q^53 + a*q^61 - q^64 + (-a + 
        1)*q^68 + a*q^74 + (a - 1)*q^81 - a*q^82 + q^90 + (a - 1)*q^101 + 
        a*q^113 + q^116 + a*q^121 + O(q^142),
    q^2 + a*q^5 + a*q^8 - a*q^18 + (a - 1)*q^20 + (a - 1)*q^32 - a*q^34 + q^37 -
        q^41 + (-a + 1)*q^45 + (-a + 1)*q^58 + (-a + 1)*q^72 - a*q^73 - q^80 + 
        (-a + 1)*q^85 - 2*q^89 + (2*a - 2)*q^97 + (-a + 1)*q^98 - q^106 - 
        2*a*q^109 + a*q^122 + a*q^125 - q^128 + (-a + 1)*q^136 + (a - 1)*q^137 +
        O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
676
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
676
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^2 + (a - 1)*q^4 + q^5 - q^8 + (a - 1)*q^9 + a*q^10 - a*q^16 + (-a + 
        1)*q^17 - q^18 + (a - 1)*q^20 + 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^53 + (a - 1)*q^58 + 
        (-a + 1)*q^61 + q^64 + 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^106 - 2*q^109 + (-a + 
        1)*q^113 - q^116 + (a - 1)*q^121 + q^122 - q^125 + a*q^128 + (a - 
        1)*q^136 + (a - 1)*q^137 + O(q^142)
]
;
Bo:=
[
    q - a*q^2 + (a - 1)*q^4 - q^5 + q^8 + (a - 1)*q^9 + a*q^10 - a*q^16 + (-a + 
        1)*q^17 + q^18 + (-a + 1)*q^20 + 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^53 + (-a + 1)*q^58 +
        (-a + 1)*q^61 + q^64 + 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^106 + 2*q^109 + (-a + 1)*q^113 
        - q^116 + (a - 1)*q^121 - q^122 + q^125 - a*q^128 + (-a + 1)*q^136 + (-a
        + 1)*q^137 + O(q^142),
    q^13 - a*q^26 + (a - 1)*q^52 - q^65 + q^104 + (a - 1)*q^117 + a*q^130 + 
        O(q^142)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
676
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 + q^9 + q^10 + q^16 + q^17 - q^29 - q^36 - q^40 - q^49 - q^53 - q^61
        - q^64 - q^68 - q^74 + q^81 + q^82 + q^90 + q^101 - q^113 + q^116 - 
        q^121 + O(q^142),
    q^2 - q^5 - q^8 + q^18 + q^20 + q^32 + q^34 + q^37 - q^41 - q^45 - q^58 - 
        q^72 + q^73 - q^80 - q^85 - 2*q^89 + 2*q^97 - q^98 - q^106 + 2*q^109 - 
        q^122 - q^125 - q^128 - q^136 + q^137 + O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
677
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
676
);
qprec:=
113
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
677
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
13*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
113
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
677
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
169*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
113
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
678
);
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(
678
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
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(
678
);
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(
56
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
678
);
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(
28
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
678
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2
;
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(
678
);
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(
14
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
678
);
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(
8
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
678
);
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(
14
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
678
);
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(
4
);
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
678
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 56*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
222
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^7 + q^9 - q^13 - q^15 + q^16 - q^28 - q^31 + q^36 - q^51 - q^52 
        - q^60 - q^61 - q^63 + q^64 - q^69 + q^81 + q^85 + 2*q^87 + q^91 + 
        2*q^97 + q^105 - q^109 - q^112 + q^115 - q^117 + q^121 - q^124 + 2*q^127
        - q^135 - q^139 + 2*q^141 + q^144 - 2*q^145 + 2*q^157 - q^163 - q^177 + 
        q^195 - q^204 - q^208 - q^211 - q^213 + q^217 + O(q^222),
    q^2 + q^8 - q^14 + q^18 - q^26 - q^30 + q^32 - q^56 - q^62 + q^72 - q^102 - 
        q^104 - q^120 - q^122 - q^126 + q^128 - q^138 + q^162 + q^170 + 2*q^174 
        + q^182 + 2*q^194 + q^210 - q^218 + O(q^222),
    q^3 - q^5 + q^12 - q^17 - q^20 - q^21 - q^23 + q^27 + 2*q^29 + q^35 - q^39 -
        q^45 + 2*q^47 + q^48 - q^59 + q^65 - q^68 - q^71 - q^80 - q^84 + 2*q^89 
        - q^92 - q^93 - q^101 - q^107 + q^108 + q^113 + 2*q^116 + q^119 + q^125 
        - q^137 + q^140 - q^153 + q^155 - q^156 + q^161 - q^167 - q^179 - q^180 
        - q^183 + 2*q^188 - q^189 - q^191 + q^192 + 2*q^197 - 2*q^203 - q^207 + 
        q^221 + O(q^222),
    q^6 - q^10 + q^24 - q^34 - q^40 - q^42 - q^46 + q^54 + 2*q^58 + q^70 - q^78 
        - q^90 + 2*q^94 + q^96 - q^118 + q^130 - q^136 - q^142 - q^160 - q^168 +
        2*q^178 - q^184 - q^186 - q^202 - q^214 + q^216 + O(q^222)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
96
);
qprec:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 - a*q^8 + q^9 + a*q^11 - q^16 - a*q^18 + (-a - 1)*q^21 + q^22 + 
        a*q^25 + (-a - 1)*q^29 + (-a + 1)*q^37 + (a - 1)*q^39 + (a - 1)*q^42 + 
        q^43 + a*q^49 + q^50 + (a - 1)*q^51 - a*q^53 + (a - 1)*q^57 + (a - 
        1)*q^58 - q^64 - a*q^72 + (-a - 1)*q^74 + (a + 1)*q^78 + 2*a*q^79 - q^81
        - a*q^86 + q^88 + q^91 + 2*q^93 + q^98 + a*q^99 + (a + 1)*q^102 - q^106 
        + (a - 1)*q^107 - q^113 + (a + 1)*q^114 + q^119 + (-a + 1)*q^123 + (-a -
        1)*q^127 + O(q^128),
    q^3 - a*q^6 + 1/2*(-a - 1)*q^7 + 1/2*(a - 1)*q^13 + 1/2*(a - 1)*q^14 + 
        1/2*(a - 1)*q^17 + 1/2*(a - 1)*q^19 - a*q^24 + 1/2*(a + 1)*q^26 + q^31 +
        a*q^33 + 1/2*(a + 1)*q^34 + 1/2*(a + 1)*q^38 + 1/2*(-a + 1)*q^41 - q^48 
        + 1/2*(a - 1)*q^56 + 1/2*(-a - 1)*q^59 - a*q^62 + 1/2*(-a - 1)*q^63 + 
        q^66 - a*q^73 + a*q^75 + 1/2*(-a + 1)*q^77 + 1/2*(-a - 1)*q^82 + 1/2*(-a
        + 1)*q^83 + (-a - 1)*q^87 - q^89 + 1/2*(a + 1)*q^97 + 1/2*(a + 1)*q^104 
        + (-a + 1)*q^111 + 1/2*(a + 1)*q^112 + 1/2*(a - 1)*q^117 + 1/2*(a - 
        1)*q^118 + 1/2*(a - 1)*q^126 + O(q^128)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
679
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 - q^43 - q^44 + q^49 - q^50 - q^53 - q^65 - q^70 + q^81 - 
        q^88 - q^95 - q^119 + q^121 + O(q^128),
    q^2 + q^18 - q^22 - q^25 - q^35 - q^44 + q^50 - q^64 - q^79 + q^85 + q^91 + 
        q^95 + q^98 - q^109 + q^113 + q^121 + O(q^128),
    q^4 - q^11 - q^22 - q^32 + q^36 + q^43 + q^53 - q^85 + q^95 - q^99 + q^119 +
        O(q^128),
    q^5 - q^13 - q^14 + q^38 + q^40 + q^45 - q^52 - q^55 + q^76 - q^80 + q^82 - 
        q^83 - q^117 + q^125 - q^126 + O(q^128),
    q^7 - q^13 - q^14 - q^20 + 2*q^26 + q^28 - q^34 + 2*q^40 - 2*q^52 - q^55 - 
        q^56 + q^63 + 2*q^68 - 2*q^80 - q^83 + q^97 + 2*q^104 + q^110 + q^112 - 
        q^117 - q^118 + 2*q^125 - q^126 + O(q^128),
    q^8 - q^11 - q^16 + q^25 + q^35 - q^50 - q^65 - q^70 + q^72 + q^79 - q^85 + 
        q^86 - q^99 + q^106 + q^109 + O(q^128),
    q^10 - q^13 - q^14 + q^19 - q^34 + q^38 + q^40 + q^41 - 2*q^52 - q^55 - q^56
        + q^68 + q^76 + q^77 - q^80 + q^82 - q^83 + q^90 + q^104 - q^110 + q^112
        - q^117 - q^118 - q^126 + O(q^128),
    q^17 - q^19 - q^20 + q^26 + q^28 - q^38 - q^41 + q^55 + q^59 - q^77 - q^82 +
        q^104 + q^110 + O(q^128)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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(
680
);
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(
680
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
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(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^7*q^5 - a^5*q^9 + (a^5 - a^3)*q^13 - a^2*q^17 - a^6*q^25 + (-a^4 - 
        a)*q^29 + (-a^7 + a^6)*q^37 + (a^3 - 1)*q^41 + a^4*q^45 - a^7*q^49 + 
        (a^6 + a^4)*q^53 + (a^2 + a)*q^61 + (-a^4 + a^2)*q^65 + (-a - 1)*q^73 - 
        a^2*q^81 + a*q^85 + (a^3 + a)*q^89 + (-a^6 + a^3)*q^97 + (-a^5 - 
        a^3)*q^101 + (-a^6 + a^5)*q^109 + (a^2 + a)*q^113 + (a^2 - 1)*q^117 + 
        a^7*q^121 + a^5*q^125 + (-a^3 - a)*q^137 + (a^3 + 1)*q^145 + (a^4 - 
        1)*q^149 + a^7*q^153 + (a^6 - a^2 + 1)*q^169 + (-a^5 + 1)*q^173 + (-a^6 
        - a)*q^181 + (a^6 - a^5)*q^185 + (-a^7 - a^4)*q^193 + (a^7 + 1)*q^197 + 
        O(q^202),
    q^2 + a*q^4 + a^2*q^8 + a^7*q^10 + a^3*q^16 - a^5*q^18 - q^20 + (a^5 - 
        a^3)*q^26 + a^4*q^32 - a^2*q^34 - a^6*q^36 - a*q^40 - a^6*q^50 + (a^6 - 
        a^4)*q^52 + (-a^4 - a)*q^58 + a^5*q^64 - a^3*q^68 - a^7*q^72 + (-a^7 + 
        a^6)*q^74 - a^2*q^80 + (a^3 - 1)*q^82 + a^4*q^90 - a^7*q^98 - a^7*q^100 
        + (a^7 - a^5)*q^104 + (a^6 + a^4)*q^106 + (-a^5 - a^2)*q^116 + (a^2 + 
        a)*q^122 + a^6*q^128 + (-a^4 + a^2)*q^130 - a^4*q^136 + q^144 + (-a - 
        1)*q^146 + (a^7 + 1)*q^148 - a^3*q^160 - a^2*q^162 + (a^4 - a)*q^164 + 
        a*q^170 + (a^3 + a)*q^178 + a^5*q^180 + (-a^6 + a^3)*q^194 + q^196 + 
        q^200 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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(
16
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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(
16
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^6*q^5 + a^5*q^9 + (-a^7 - a)*q^13 + a^6*q^17 - a^4*q^25 + (a^4 + 
        a)*q^29 + (-a^3 + a^2)*q^37 + (a^3 - 1)*q^41 + a^3*q^45 + a^7*q^49 + 
        (-a^2 - 1)*q^53 + (a^2 + a)*q^61 + (a^7 - a^5)*q^65 + (-a^5 - a^4)*q^73 
        - a^2*q^81 + a^4*q^85 + (-a^3 - a)*q^89 + (-a^7 - a^2)*q^97 + (-a^5 - 
        a^3)*q^101 + (a^6 - a^5)*q^109 + (a^6 + a^5)*q^113 + (-a^6 + a^4)*q^117 
        + a^7*q^121 - a^2*q^125 + (a^7 + a^5)*q^137 + (-a^7 + a^2)*q^145 + (-a^4
        + 1)*q^149 - a^3*q^153 + (-a^6 + a^2 - 1)*q^169 + (a^4 + a)*q^173 + 
        (-a^6 - a)*q^181 + (-a + 1)*q^185 + (a^3 + 1)*q^193 + (-a^4 + a^3)*q^197
        + O(q^202),
    q^2 - a^5*q^4 - a^2*q^8 - a^6*q^10 + a^7*q^16 + a^5*q^18 - a^3*q^20 + (-a^7 
        - a)*q^26 + a^4*q^32 + a^6*q^34 + a^2*q^36 - q^40 - a^4*q^50 + (a^6 - 
        a^4)*q^52 + (a^4 + a)*q^58 + a*q^64 + a^3*q^68 - a^7*q^72 + (-a^3 + 
        a^2)*q^74 + a^5*q^80 + (a^3 - 1)*q^82 + a^3*q^90 + a^7*q^98 - a*q^100 + 
        (a^3 - a)*q^104 + (-a^2 - 1)*q^106 + (-a^6 + a)*q^116 + (a^2 + a)*q^122 
        - a^6*q^128 + (a^7 - a^5)*q^130 + q^136 - a^4*q^144 + (-a^5 - a^4)*q^146
        + (-a^7 - 1)*q^148 + a^2*q^160 - a^2*q^162 + (a^5 + 1)*q^164 + a^4*q^170
        + (-a^3 - a)*q^178 + q^180 + (-a^7 - a^2)*q^194 + a^4*q^196 + a^6*q^200 
        + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
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 + 
        O(q^202),
    q^5 + a^3*q^10 + (-a^3 + a^2)*q^15 - a^2*q^20 + (a^2 - a)*q^30 + a*q^40 + 
        (-a^2 + a - 1)*q^45 + (a^3 - 1)*q^55 + (-a + 1)*q^60 - q^80 - a^3*q^85 +
        (-a^3 + a - 1)*q^90 + (-a^3 - a^2)*q^110 + (a^3 + 1)*q^120 - a*q^125 + 
        (a^3 - a^2 - a + 1)*q^135 - a^3*q^160 + (a^3 - a)*q^165 + a^2*q^170 + 
        (-a^3 + a^2 - 1)*q^180 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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(
8
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^9 + (-a^3 - 2*a^2 - a)*q^13 + (a^3 - a - 1)*q^17 + a*q^25 + (a - 
        1)*q^29 + (-a^3 + a^2 + 2*a + 2)*q^37 + (a^3 + 1)*q^41 - a^3*q^49 + 
        (-2*a^3 - a^2 + 1)*q^53 + (a^2 + a)*q^61 + (-2*a - 2)*q^65 + (2*a^3 + 
        2*a^2 + a - 1)*q^73 + a^2*q^81 + (a^3 + a^2 + 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 + 
        (2*a^3 + a^2 - a - 2)*q^113 + (2*a^3 + a^2 - 1)*q^117 - a^3*q^121 + 
        (-a^3 + 1)*q^125 + (a^3 - a - 2)*q^137 + (a^2 + a + 1)*q^153 + (-2*a^3 -
        2*a^2 - 2*a)*q^157 + q^169 + (a + 1)*q^173 + (-a^2 + a)*q^181 + (-2*a^3 
        - 2*a^2 + 2)*q^185 + (-a^3 + 1)*q^193 + (a^3 + 2*a^2 + 2*a + 1)*q^197 + 
        O(q^202),
    q^2 + a^2*q^8 + 1/2*(-a^3 - a^2)*q^10 - a*q^18 + 1/2*(a^3 + 1)*q^20 - q^32 +
        1/2*(a + 1)*q^40 + 1/2*(-a^2 - 1)*q^50 + (-a^2 - 1)*q^52 + (a - 1)*q^58 
        + a^3*q^68 - a^3*q^72 + 1/2*(a^2 - a)*q^80 + (a^3 + 1)*q^82 + 1/2*(a^3 -
        1)*q^90 - a^3*q^98 + 1/2*(-a^3 + a)*q^100 + (a^2 + a)*q^122 - a^2*q^128 
        + 1/2*(-a^3 + a^2 - a - 1)*q^130 + (-a^3 + 1)*q^148 + 1/2*(a^3 + 
        a^2)*q^160 + a^2*q^162 + 1/2*(a - 1)*q^170 + (a^3 + a)*q^178 + 1/2*(-a +
        1)*q^180 + 1/2*(-a^2 + 1)*q^200 + O(q^202),
    q^4 + 1/2*(-a^2 + a)*q^10 + a^2*q^16 + 1/2*(-a^3 - a^2)*q^20 + (a^2 - 
        1)*q^26 + a*q^34 - a*q^36 + 1/2*(a^3 + 1)*q^40 + 1/2*(-a^3 - a)*q^50 - 
        q^64 + (-a^2 - a)*q^74 + 1/2*(a + 1)*q^80 + 1/2*(a^3 - a^2)*q^90 + 
        1/2*(-a^2 - 1)*q^100 + (-a^2 - 1)*q^104 + (a^3 - a)*q^106 + (a - 
        1)*q^116 + 1/2*(a^3 + a^2 + a + 1)*q^130 + a^3*q^136 - a^3*q^144 + (-a^3
        + 1)*q^146 + 1/2*(a^2 - a)*q^160 + (a^3 + 1)*q^164 + 1/2*(-a^3 + 
        1)*q^170 + 1/2*(a^3 - 1)*q^180 + (a^2 - a)*q^194 - a^3*q^196 + 1/2*(-a^3
        + a)*q^200 + O(q^202),
    q^5 + (2*a^3 - 2)*q^13 + (a^3 + a^2 + a + 1)*q^17 + (-a^3 - a^2)*q^25 + 
        (-2*a^3 - 2*a^2 - 2*a)*q^37 - a*q^45 + (-2*a - 2)*q^53 + (a^3 + 2*a^2 + 
        a)*q^65 + (-2*a^3 + 2*a + 2)*q^73 + (-a^3 + a + 1)*q^85 - 2*q^97 + 
        (2*a^2 + 2*a + 2)*q^113 + (2*a + 2)*q^117 + (-a^2 - a - 1)*q^125 + 
        (2*a^2 + 2*a)*q^137 + (a - 1)*q^145 + (-a^3 - a^2 - a + 1)*q^153 + 
        (2*a^3 + 2*a^2 - 2*a - 2)*q^157 - 2*a^2*q^173 + (a^3 - a^2 - 2*a - 
        2)*q^185 - 2*a*q^193 + (-2*a^3 - 2*a^2 + 2)*q^197 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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(
8
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^9 - q^17 - a*q^25 + (a + 1)*q^29 + (-a - 1)*q^37 + (-a + 1)*q^41 - 
        a*q^49 + (a - 1)*q^61 + (a + 1)*q^73 - q^81 + (-a - 1)*q^97 + (a - 
        1)*q^109 + (a - 1)*q^113 - a*q^121 + (a - 1)*q^125 + 2*q^149 - a*q^153 +
        2*q^157 - q^169 + (a + 1)*q^173 + (a - 1)*q^181 + (-a + 1)*q^193 + (-a +
        1)*q^197 + O(q^202),
    q^2 + a*q^4 - q^8 - a*q^16 + a*q^18 + q^32 - q^34 - q^36 - a*q^50 + (a + 
        1)*q^58 + a*q^64 - a*q^68 - a*q^72 + (-a - 1)*q^74 + (-a + 1)*q^82 - 
        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 - q^162 + (a + 1)*q^164 + (-a - 1)*q^194 
        + q^196 + a*q^200 + O(q^202),
    q^5 + (-a - 1)*q^25 + a*q^45 - q^85 + a*q^125 + (a + 1)*q^145 + (-a - 
        1)*q^185 + O(q^202),
    q^10 + a*q^20 - q^40 + (-a - 1)*q^50 - a*q^80 + a*q^90 + (-a + 1)*q^100 + 
        q^160 - q^170 - q^180 + (a + 1)*q^200 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
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 + O(q^202),
    q^5 - a*q^10 + (-a - 1)*q^15 - q^20 + (a - 1)*q^30 + a*q^40 + a*q^45 + (-a +
        1)*q^55 + (a + 1)*q^60 + q^80 - a*q^85 + q^90 + 2*a*q^95 + (-a - 
        1)*q^110 + (-a + 1)*q^120 + a*q^125 - a*q^160 - 2*q^165 - q^170 - 
        a*q^180 + 2*q^190 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
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 + 
        O(q^202),
    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 + O(q^202),
    q^5 - q^45 - 2*q^65 + q^85 + q^125 + O(q^202),
    q^10 - q^20 + q^40 - q^80 - q^90 - 2*q^130 + q^160 + q^170 + q^180 + 
        O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
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 + O(q^202),
    q^5 - q^10 + q^20 - q^40 + q^45 + q^80 - q^85 - q^90 - 2*q^95 - q^125 - 
        q^160 + q^170 + q^180 + 2*q^190 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=Rationals();
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
680
);
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:=Rationals();
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - 1/2*q^9 + q^16 - 1/2*q^19 + 1/2*q^25 - 1/2*q^26 - 1/2*q^30 + 1/2*q^34 - 
        1/2*q^35 + 1/2*q^36 - 1/2*q^50 - 1/2*q^51 + 1/2*q^59 - 1/2*q^70 - 
        1/2*q^76 - 1/2*q^89 - 1/2*q^94 + 1/2*q^100 - 1/2*q^104 - 1/2*q^106 - 
        1/2*q^115 - 1/2*q^120 + q^121 + q^134 - 1/2*q^136 + 1/2*q^140 - 
        1/2*q^144 - q^155 - q^161 - 1/2*q^169 + 1/2*q^170 + 1/2*q^174 + q^179 + 
        1/2*q^185 + 1/2*q^186 + 1/2*q^195 + q^196 + 1/2*q^200 + O(q^202),
    q^2 - 1/2*q^13 - 1/2*q^15 - 1/2*q^17 - 1/2*q^18 + 1/2*q^25 + q^32 + 1/2*q^35
        - 1/2*q^38 - 1/2*q^47 + 1/2*q^50 - 1/2*q^52 - 1/2*q^53 - 1/2*q^60 - q^67
        + 1/2*q^68 - 1/2*q^70 + 1/2*q^72 + 1/2*q^85 + 1/2*q^87 + 1/2*q^93 - 
        1/2*q^100 - 1/2*q^102 + q^103 + 1/2*q^115 + 1/2*q^118 - 1/2*q^127 + 
        1/2*q^135 - 1/2*q^140 + 1/2*q^145 - 1/2*q^152 + 1/2*q^153 - 1/2*q^155 + 
        q^157 - 1/2*q^178 + 1/2*q^183 - 1/2*q^185 - 1/2*q^188 + 1/2*q^200 + 
        O(q^202),
    q^3 - q^10 + q^12 - q^17 - q^27 - q^40 + q^48 - q^57 + q^58 + q^62 + q^65 - 
        q^68 + q^73 + q^75 - q^78 + q^97 - 2*q^107 - q^108 + q^113 + q^122 + 
        q^142 + q^147 - 2*q^158 - q^160 - 2*q^163 - q^177 + q^190 + q^192 - 
        2*q^193 + O(q^202),
    q^4 + 1/2*q^9 - 1/2*q^19 + 1/2*q^25 - 1/2*q^26 - 1/2*q^30 - 1/2*q^34 + 
        1/2*q^35 - 1/2*q^36 + q^49 + 1/2*q^50 - 1/2*q^51 - 3/2*q^59 + q^64 + 
        1/2*q^70 - 1/2*q^76 - q^81 - 1/2*q^89 - 1/2*q^94 + 1/2*q^100 - 1/2*q^104
        - 1/2*q^106 + 1/2*q^115 - 1/2*q^120 - q^134 + 1/2*q^136 - 1/2*q^140 + 
        1/2*q^144 - q^145 + q^161 + 1/2*q^169 + 1/2*q^170 + 1/2*q^174 + q^179 - 
        1/2*q^185 + 1/2*q^186 + 1/2*q^195 - 1/2*q^200 + O(q^202),
    q^5 - q^10 - 2*q^14 - q^20 + 2*q^29 - 2*q^31 + q^40 - q^45 - 2*q^46 + 2*q^56
        + 2*q^61 + 2*q^71 + 2*q^74 - 2*q^79 + q^80 + q^85 + q^90 - 2*q^109 - 
        2*q^116 + 2*q^119 + 2*q^124 - q^125 + 2*q^126 - q^160 + q^170 - 2*q^175 
        + q^180 - 2*q^181 + 2*q^184 - 2*q^199 + O(q^202),
    q^6 - q^10 - 2*q^14 - 2*q^20 + q^24 + 3*q^29 - q^31 - q^34 - q^39 + q^40 - 
        q^45 - 2*q^46 - q^54 + 2*q^56 + 3*q^61 + 3*q^71 + 2*q^74 - 4*q^79 + q^85
        + q^90 + q^95 + q^96 - q^109 - q^114 - q^116 + 2*q^119 + 3*q^124 - 
        2*q^125 + 2*q^126 + q^130 - q^136 - q^141 + q^146 + q^150 - q^156 - 
        q^159 - q^160 + q^170 - 2*q^175 + q^180 - 4*q^181 + 2*q^184 + q^194 - 
        q^199 + O(q^202),
    q^7 + q^10 + q^14 + q^23 - q^28 - q^29 + q^31 - q^37 - q^40 + q^46 - q^56 + 
        q^58 - q^61 - q^62 - q^63 - q^71 - q^74 + q^79 - q^85 - q^90 - q^92 + 
        q^109 + q^112 + q^116 - q^119 + q^122 - q^124 + q^125 - q^126 + q^142 + 
        q^148 - q^158 + q^160 - q^167 - q^173 + q^175 + q^181 - q^184 + q^197 + 
        q^199 + O(q^202),
    q^8 - 1/2*q^13 - 1/2*q^15 + 1/2*q^17 + 1/2*q^18 - 1/2*q^25 - 1/2*q^35 - 
        1/2*q^38 - 1/2*q^47 + 1/2*q^50 - 1/2*q^52 - 1/2*q^53 - 1/2*q^60 + q^67 -
        1/2*q^68 + 1/2*q^70 - 1/2*q^72 + 1/2*q^85 + 1/2*q^87 + 1/2*q^93 + q^98 +
        1/2*q^100 - 1/2*q^102 + q^103 - 1/2*q^115 - 3/2*q^118 - 1/2*q^127 + 
        q^128 + 1/2*q^135 + 1/2*q^140 - 1/2*q^145 - 1/2*q^152 - 1/2*q^153 + 
        1/2*q^155 + q^157 - q^162 - 1/2*q^178 + 1/2*q^183 + 1/2*q^185 - 
        1/2*q^188 + 1/2*q^200 + O(q^202)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
681
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
681
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
226
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
681
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
681
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
113*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 + q^16 - q^19 - q^21 - q^23 + q^25 - q^29 - q^33 - q^43 + q^57 + 
        2*q^59 + q^64 + q^69 - q^71 - q^76 + q^77 - q^81 - q^84 + q^87 - q^89 - 
        q^92 - q^97 + q^100 - q^109 + 2*q^113 - q^116 + q^129 - q^132 - q^133 - 
        q^141 + q^147 + O(q^150),
    q^3 + q^12 - q^21 - q^33 + q^48 - q^63 + q^75 - q^81 - q^84 - q^99 - q^132 -
        q^141 + q^147 + O(q^150),
    q^7 + q^11 - q^19 - q^23 + q^27 + q^28 - q^29 - q^43 + q^44 + q^47 - q^49 + 
        q^53 - q^63 - q^71 + q^73 - q^76 - q^77 + q^79 - q^81 - q^89 - q^92 - 
        q^97 - q^99 + q^101 + q^103 + q^108 - q^109 + q^112 - q^116 - q^121 + 
        q^131 + q^139 + O(q^150),
    q^9 - q^21 - q^27 - q^33 + q^36 + q^57 + q^69 - q^84 + q^87 - q^108 + q^129 
        - q^132 - q^141 + q^144 + q^147 + O(q^150)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
682
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*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(
682
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^7 - a^5 + a + 1)*q^3 - a^3*q^4 + (-a^7 - a^6 + a^3 + a^2 - a - 1)*q^5
        + (-a^7 - a^6 + a^5 + a^4 + a^3 + a^2 - 1)*q^9 + (-a^7 + a^5 + a^4 + a^3
        - a - 1)*q^11 + (-a^7 - a)*q^12 + (a^7 + a^6 - 2*a^5 - 2*a^4 - a^3 - a^2
        + a + 2)*q^15 + a^6*q^16 + (a^7 + a^4 - a^2)*q^20 + (a^7 + a^6 + a^5 - 
        a^4 - a^3 - a^2)*q^23 + (a^5 - a^3 + a^2 - 1)*q^25 + a^3*q^27 + (a^5 - 
        1)*q^31 + (a^7 + a^6 - a^2)*q^33 + (a^7 - a^5 - a^4 - a^3 - a^2 + a + 
        1)*q^36 + (-a^5 + 1)*q^37 + (-a^6 + a)*q^44 + (-2*a^6 - a^5 + a^2 + a - 
        1)*q^45 + (-a^7 - a^5)*q^47 + (a^5 + a^4 - 1)*q^48 + (-a^6 + a)*q^49 + 
        (a^7 + a^6 - a^5 - a^4 + a + 1)*q^53 + (-a^7 - a^6 + a^3 + 2*a^2 - 
        1)*q^55 + (a^7 + a^6 - a^4 - 2*a^3 - a^2 + 1)*q^59 + (-a^7 + 2*a^5 + a^4
        + a^3 + a^2 - 2*a - 2)*q^60 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^64 + (a^6 +
        a^4)*q^67 + (a^7 + a^6 + a^5 - a^3 - 2*a^2 - a)*q^69 - a^2*q^71 + (-a^7 
        + 2*a^6 + a^5 - a^2 - 2*a + 1)*q^75 + (-a^7 + 1)*q^80 + a^3*q^89 + (a^7 
        - a^5 - a^4 + a^2 + a + 1)*q^92 + (a^6 + a^5 - a^2 - a)*q^93 + (-a^5 - 
        a)*q^97 + (a^5 + a^4 - a - 1)*q^99 + (a^7 + a^6 - 2*a^5 - a^4 + a + 
        1)*q^100 + (-a^6 + a^2 + a)*q^103 - a^6*q^108 + (-a^6 - a^5 + a^2 + 
        a)*q^111 + (-a + 1)*q^113 + (-a^7 - a^6 + a^5 + 2*a^4 + a^3)*q^115 - 
        a*q^121 + (a^7 - a^5 - a^4 + a + 1)*q^124 + (a^7 - a^6 + a^4 - a^3 - a^2
        + a)*q^125 + (-a^7 - a^6 + a^3 + a^2)*q^132 + (-a^7 - a^4 + a^2)*q^135 +
        (-a^5 + a^2)*q^137 + (-a^7 - 2*a^6 - a^5 + a^2 + a - 1)*q^141 + (a^6 + 
        a^5 - a)*q^144 + (-a^7 - a^6 + a^3 + a^2)*q^147 + (-a^7 + a^5 + a^4 - a 
        - 1)*q^148 + (-a^6 + a^4 + a)*q^155 + (a^7 + a^6 - a^3 - a^2 + 1)*q^157 
        + (-a^6 + a^5 + a^4 + a^2 + a - 1)*q^159 + (-a^7 + a^2)*q^163 + (a^6 - 
        a^5 - a^4 + a + 2)*q^165 - a^7*q^169 + (a^7 + a^6 - a^4 - a^3 - a^2 + 
        1)*q^176 + (-a^3 - a^2 - a)*q^177 + (a^6 - a^5)*q^179 + (a^7 + 2*a^6 - 
        2*a^2 - a + 1)*q^180 + (2*a^7 - a^5 - a^4 - a^2 + a + 1)*q^181 + (a^6 - 
        a^4 - a)*q^185 + O(q^186),
    q^2 + (a^7 - a^5 + a + 1)*q^6 - a^3*q^8 + (-a^7 - a^6 + a^3 + a^2 - a - 
        1)*q^10 + (-a^7 - a^6 + a^5 + a^4 + a^3 + a^2 - 1)*q^18 + (-a^7 + a^5 + 
        a^4 + a^3 - a - 1)*q^22 + (-a^7 - a)*q^24 + (a^7 + a^6 - 2*a^5 - 2*a^4 -
        a^3 - a^2 + a + 2)*q^30 + a^6*q^32 + (a^7 + a^4 - a^2)*q^40 + (a^7 + a^6
        + a^5 - a^4 - a^3 - a^2)*q^46 + (a^5 - a^3 + a^2 - 1)*q^50 + a^3*q^54 + 
        (a^5 - 1)*q^62 + (a^7 + a^6 - a^2)*q^66 + (a^7 - a^5 - a^4 - a^3 - a^2 +
        a + 1)*q^72 + (-a^5 + 1)*q^74 + (-a^6 + a)*q^88 + (-2*a^6 - a^5 + a^2 + 
        a - 1)*q^90 + (-a^7 - a^5)*q^94 + (a^5 + a^4 - 1)*q^96 + (-a^6 + a)*q^98
        + (a^7 + a^6 - a^5 - a^4 + a + 1)*q^106 + (-a^7 - a^6 + a^3 + 2*a^2 - 
        1)*q^110 + (a^7 + a^6 - a^4 - 2*a^3 - a^2 + 1)*q^118 + (-a^7 + 2*a^5 + 
        a^4 + a^3 + a^2 - 2*a - 2)*q^120 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^128 + 
        (a^6 + a^4)*q^134 + (a^7 + a^6 + a^5 - a^3 - 2*a^2 - a)*q^138 - 
        a^2*q^142 + (-a^7 + 2*a^6 + a^5 - a^2 - 2*a + 1)*q^150 + (-a^7 + 
        1)*q^160 + a^3*q^178 + (a^7 - a^5 - a^4 + a^2 + a + 1)*q^184 + O(q^186)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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(
30
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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(
10
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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(
10
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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(
10
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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(
30
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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(
10
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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(
10
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^2 + a - 1)*q^3 - a^3*q^4 + (a^3 - a^2 - 1)*q^5 + (-a^3 + a^2 - 
        a)*q^9 - a^3*q^11 + (a^2 - a)*q^12 + a*q^15 - a*q^16 + (a^3 + a - 
        1)*q^20 + (a^3 - a^2 + a)*q^23 + (-a^3 + a^2 + 1)*q^25 + a^3*q^27 + q^31
        + (a^2 - a)*q^33 + (a^3 - a^2)*q^36 + 2*q^37 - a*q^44 + a^2*q^45 + (a^2 
        + 1)*q^47 + (a^3 - a^2 + a)*q^48 - a*q^49 + (-a^3 - a)*q^53 + (a^3 + a -
        1)*q^55 + (-a^2 + a - 1)*q^59 + (-a^3 + a^2 - a + 1)*q^60 + (a^3 - a^2 +
        a - 1)*q^64 + (a^3 - a^2 - 1)*q^67 + (-a^3 + a - 1)*q^69 + 2*a^2*q^71 - 
        a*q^75 + (a^2 + 1)*q^80 - 2*a^3*q^89 + (-a^3 + a^2)*q^92 + (-a^2 + a - 
        1)*q^93 + (-a + 1)*q^97 + (a^3 - a^2)*q^99 + (-a^3 - a + 1)*q^100 + (a^2
        - a)*q^103 + a*q^108 + (-2*a^2 + 2*a - 2)*q^111 + (-a + 1)*q^113 - 
        a^2*q^115 - a*q^121 - a^3*q^124 - q^125 + (a^3 - a^2 + a)*q^132 + (-a^3 
        - a + 1)*q^135 + (a^2 + 1)*q^137 - a^2*q^141 + (a - 1)*q^144 + (a^3 - 
        a^2 + a)*q^147 - 2*a^3*q^148 + (a^3 - a^2 - 1)*q^155 + (2*a^3 - 2*a^2 + 
        2*a - 2)*q^157 + a^3*q^159 + 2*a^2*q^163 + (-a^3 + a^2 - a + 1)*q^165 + 
        a^2*q^169 + (a^3 - a^2 + a - 1)*q^176 + (-a^3 + 2*a^2 - a)*q^177 + (-a +
        1)*q^179 + q^180 + (-a^3 + a^2)*q^181 + (2*a^3 - 2*a^2 - 2)*q^185 + 
        O(q^186),
    q^2 + (-a^2 + a - 1)*q^6 - a^3*q^8 + (a^3 - a^2 - 1)*q^10 + (-a^3 + a^2 - 
        a)*q^18 - a^3*q^22 + (a^2 - a)*q^24 + a*q^30 - a*q^32 + (a^3 + a - 
        1)*q^40 + (a^3 - a^2 + a)*q^46 + (-a^3 + a^2 + 1)*q^50 + a^3*q^54 + q^62
        + (a^2 - a)*q^66 + (a^3 - a^2)*q^72 + 2*q^74 - a*q^88 + a^2*q^90 + (a^2 
        + 1)*q^94 + (a^3 - a^2 + a)*q^96 - a*q^98 + (-a^3 - a)*q^106 + (a^3 + a 
        - 1)*q^110 + (-a^2 + a - 1)*q^118 + (-a^3 + a^2 - a + 1)*q^120 + (a^3 - 
        a^2 + a - 1)*q^128 + (a^3 - a^2 - 1)*q^134 + (-a^3 + a - 1)*q^138 + 
        2*a^2*q^142 - a*q^150 + (a^2 + 1)*q^160 - 2*a^3*q^178 + (-a^3 + 
        a^2)*q^184 + O(q^186)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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(
10
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - 2*a*q^3 + q^4 + (-a + 1)*q^5 + (3*a - 3)*q^9 + (a - 1)*q^11 - 2*a*q^12 -
        2*q^15 + q^16 + (-a + 1)*q^20 - q^23 + 4*q^27 - a*q^31 + 2*q^33 + (3*a -
        3)*q^36 + a*q^37 + (a - 1)*q^44 + 3*a*q^45 - q^47 - 2*a*q^48 + (a - 
        1)*q^49 + (-a + 1)*q^53 + a*q^55 + a*q^59 - 2*q^60 + q^64 + (-a + 
        1)*q^67 + 2*a*q^69 + (-a + 1)*q^71 + (-a + 1)*q^80 - 5*a*q^81 - q^89 - 
        q^92 + (2*a - 2)*q^93 - q^97 - 3*a*q^99 + (2*a - 2)*q^103 + 4*q^108 + 
        (-2*a + 2)*q^111 + (-a + 1)*q^113 + (a - 1)*q^115 - a*q^121 - a*q^124 + 
        q^125 + 2*q^132 + (-4*a + 4)*q^135 + (2*a - 2)*q^137 + 2*a*q^141 + (3*a 
        - 3)*q^144 + 2*q^147 + a*q^148 - q^155 - q^157 - 2*q^159 - q^163 + (-2*a
        + 2)*q^165 - a*q^169 + (a - 1)*q^176 + (-2*a + 2)*q^177 + a*q^179 + 
        3*a*q^180 + (-a + 1)*q^181 + q^185 + O(q^186),
    q^2 - 2*a*q^6 + q^8 + (-a + 1)*q^10 + (3*a - 3)*q^18 + (a - 1)*q^22 - 
        2*a*q^24 - 2*q^30 + q^32 + (-a + 1)*q^40 - q^46 + 4*q^54 - a*q^62 + 
        2*q^66 + (3*a - 3)*q^72 + a*q^74 + (a - 1)*q^88 + 3*a*q^90 - q^94 - 
        2*a*q^96 + (a - 1)*q^98 + (-a + 1)*q^106 + a*q^110 + a*q^118 - 2*q^120 +
        q^128 + (-a + 1)*q^134 + 2*a*q^138 + (-a + 1)*q^142 + (-a + 1)*q^160 - 
        5*a*q^162 - q^178 - q^184 + O(q^186)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
186
;
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 + O(q^186),
    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 + O(q^186),
    q^11 - q^44 - q^55 - q^77 + q^88 + q^99 + O(q^186),
    q^22 - q^44 - q^110 - q^154 + q^176 + O(q^186)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
682
);
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(
10
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
683
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
682
);
qprec:=
114
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
683
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
62
);
qprec:=
114
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
683
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
31*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
114
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
683
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
341*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
114
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^19 + q^25 - q^27 - q^29 + q^49 - q^53 - q^57 + q^64 - 
        q^76 - q^83 - q^87 - q^97 + q^100 - q^103 - q^108 + O(q^114),
    q^3 - q^9 + q^12 - q^19 - q^29 - q^36 + q^48 - q^53 + q^59 + q^61 + q^67 + 
        q^71 + q^75 - q^76 - q^83 - q^97 + q^101 - q^103 + q^109 + O(q^114)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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(
684
);
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(
684
);
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(
684
);
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(
684
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^5 + a)*q^7 + (a^5 - a^3 - a^2 + 1)*q^13 + a^3*q^19 + (a^4 - a)*q^25 +
        (-a^5 - a^4 + a^2 + a)*q^31 + (-a^5 - a^4)*q^37 + (a^4 - a^3)*q^43 + 
        (a^3 + a^2 - a - 1)*q^49 + (-a^2 - 1)*q^61 + (a^3 - a^2 - 1)*q^67 + 
        (-a^3 - a)*q^73 + (a^4 - 1)*q^79 + (-2*a^4 + a^2 + a - 1)*q^91 + (-a^5 +
        2*a^2)*q^97 + (-a^5 + a^4 - a)*q^103 + (-a^5 - a^2)*q^109 + a^3*q^121 + 
        (-a^4 - a)*q^127 + (a^5 + a^4 - a^2)*q^133 + (-a^5 - a^3 + a^2 + 
        1)*q^139 + (2*a^3 - 1)*q^151 + (-a^3 + a + 1)*q^157 + (a^5 + a^4 - 
        a)*q^163 + (a^5 - a^4 - a^3 + a)*q^169 + (a^5 - a^3 - a^2)*q^175 + (-a^4
        + 2*a)*q^181 + (a^4 + a^3 - a - 1)*q^193 + (a^5 - a^2 + 1)*q^199 + (a + 
        1)*q^211 + (-a^5 + a^4 + a^3 + a^2 + 1)*q^217 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^2 - a)*q^7 + (-a^4 - a^3 + a)*q^13 + (a^3 - 1)*q^19 - a^5*q^25 + 
        (-a^5 - a^4 + a)*q^31 + (a^5 - a^2 - a)*q^37 + (a^5 + a^3 - a^2 - 
        1)*q^43 + (a^4 - a^3 + a^2)*q^49 + (a^4 + 1)*q^61 + (a^4 - a^3)*q^67 + 
        (a^3 + a^2 - 1)*q^73 + (a^5 - a^2 + 1)*q^79 + (a^4 - a^2 + 1)*q^91 + 
        a*q^97 + (-a^5 - a)*q^103 + (a^4 - a)*q^109 + (a^3 - 1)*q^121 + 
        a^5*q^127 + (a^5 - a^4 - a^2 + a)*q^133 + (-a^4 - a^3 + a)*q^139 - q^151
        + (-a^3 + a^2)*q^157 + (-a^5 - a)*q^163 + (-a^5 + a^3 - a - 1)*q^169 + 
        (-a^4 + a^3 + a - 1)*q^175 + (-a^5 + a^2)*q^181 + (-a^5 - a^3)*q^193 + 
        (-a^4 + a + 1)*q^199 + (a^2 + 1)*q^211 + (a^5 - a^4 + a^3 - a^2 + 
        a)*q^217 + O(q^218),
    q^3 + a^4*q^9 + (a^2 - a)*q^21 + (a^5 - a^2)*q^27 + (-a^4 - a^3 + a)*q^39 + 
        (a^3 - 1)*q^57 + (-a^5 + a^3 - 1)*q^63 - a^5*q^75 - a^3*q^81 + (-a^5 - 
        a^4 + a)*q^93 + (a^5 - a^2 - a)*q^111 + (-a^4 + a^2 + a)*q^117 + (a^5 + 
        a^3 - a^2 - 1)*q^129 + (a^4 - a^3 + a^2)*q^147 - a*q^171 + (a^4 + 
        1)*q^183 + (-a + 1)*q^189 + (a^4 - a^3)*q^201 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^7 + (a - 2)*q^13 - q^19 + a*q^25 + (-2*a + 1)*q^31 + (2*a - 1)*q^37 + 
        (-a + 1)*q^43 - a*q^61 + (-a + 2)*q^67 + (-a + 1)*q^73 + (-a - 1)*q^79 +
        (a - 2)*q^91 + (2*a - 1)*q^103 - q^121 - q^133 - a*q^139 + (a - 1)*q^157
        + q^163 + (-2*a + 2)*q^169 + a*q^175 + (a + 1)*q^193 + a*q^199 + (a + 
        1)*q^211 + (-2*a + 1)*q^217 + O(q^218),
    q^2 - a*q^8 + q^14 + (a - 2)*q^26 + (a - 1)*q^32 - q^38 + a*q^50 - a*q^56 + 
        (-2*a + 1)*q^62 + (2*a - 1)*q^74 + (-a + 1)*q^86 + (a + 1)*q^104 - 
        a*q^122 + q^128 + (-a + 2)*q^134 + (-a + 1)*q^146 + a*q^152 + (-a - 
        1)*q^158 + (a - 2)*q^182 + (-a + 1)*q^200 + (2*a - 1)*q^206 + O(q^218),
    q^4 - a*q^16 + q^28 + (a - 2)*q^52 + (a - 1)*q^64 - q^76 + a*q^100 - a*q^112
        + (-2*a + 1)*q^124 + (2*a - 1)*q^148 + (-a + 1)*q^172 + (a + 1)*q^208 + 
        O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^10 + (-a + 1)*q^13 + a*q^16 + a*q^22 + (a - 1)*q^25 + (-a + 
        1)*q^28 - q^37 - a*q^40 - q^46 + (a - 1)*q^61 + (a - 1)*q^70 - a*q^73 + 
        (a - 1)*q^76 - q^88 - q^106 + (-a + 1)*q^118 - q^121 + (a - 1)*q^124 - 
        a*q^130 + q^133 + a*q^154 + a*q^157 + q^160 - q^172 + q^178 + (-a + 
        1)*q^184 + (-a + 1)*q^190 - a*q^193 + q^208 + q^217 + O(q^218),
    q^2 + (a - 1)*q^8 + (2*a - 2)*q^11 + q^14 + (-2*a + 2)*q^20 - 2*a*q^23 + (-a
        + 1)*q^26 + a*q^32 - 2*q^35 - q^38 + (a - 1)*q^50 + (-a + 1)*q^56 + 
        2*q^59 - q^62 - q^74 - a*q^86 + 2*q^95 + a*q^104 + 2*a*q^110 + (a - 
        1)*q^122 - q^128 + (-a + 1)*q^134 + 2*a*q^143 - a*q^146 + (a - 1)*q^152 
        + 2*q^155 + a*q^158 - 2*a*q^167 - 2*q^176 + (-2*a + 2)*q^179 + (-a + 
        1)*q^182 + (2*a - 2)*q^191 - a*q^200 + q^206 - 2*q^212 + 2*a*q^215 + 
        O(q^218),
    q^4 - a*q^7 - q^10 + a*q^19 + (a - 1)*q^22 + a*q^31 + (-a + 1)*q^40 + (a - 
        1)*q^43 - a*q^46 + (-a + 1)*q^52 + (-2*a + 2)*q^55 + a*q^64 - q^67 - 
        q^70 + (-a + 1)*q^79 + a*q^88 - q^91 + (a - 1)*q^100 - a*q^103 + a*q^106
        + (-a + 1)*q^112 + 2*a*q^115 + q^118 + (a - 1)*q^130 - q^139 - q^148 + 
        (-a + 1)*q^154 - a*q^160 + a*q^163 + q^175 - a*q^178 - q^184 + q^190 - 
        q^199 + (-a + 1)*q^211 + O(q^218),
    q^5 + (a - 1)*q^8 + (a - 1)*q^11 + q^14 + (-a + 1)*q^20 - a*q^23 - q^35 - 
        q^38 - a*q^44 - a*q^53 + q^59 - q^62 + (-a + 1)*q^65 + (a - 1)*q^77 + 
        a*q^80 - a*q^86 + a*q^89 + q^92 + q^95 + a*q^104 + 2*a*q^110 + (a - 
        1)*q^113 - q^128 + (-a + 1)*q^134 + (-a + 1)*q^140 + a*q^143 - q^149 + 
        q^155 + a*q^158 - a*q^161 - a*q^167 - q^176 + (-a + 1)*q^179 + (-a + 
        1)*q^182 - q^185 + (a - 1)*q^191 + (a - 1)*q^197 - a*q^200 + q^206 + (-a
        + 1)*q^209 - q^212 + a*q^215 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^2 - a*q^4 - q^5 - q^8 + a*q^9 + (a - 1)*q^10 + (a - 1)*q^16 -
        a*q^17 + q^18 + a*q^20 + q^21 - q^29 + a*q^32 + q^33 - q^34 + (-a + 
        1)*q^36 + q^40 - q^41 + (-a + 1)*q^42 - a*q^45 + (a - 1)*q^53 + (a - 
        1)*q^57 + (a - 1)*q^58 + q^61 + q^64 + (-a + 1)*q^66 + (a - 1)*q^68 - 
        a*q^72 - a*q^73 + (-a + 1)*q^77 + (-a + 1)*q^80 + (a - 1)*q^81 + (a - 
        1)*q^82 - a*q^84 + a*q^85 + (-a + 1)*q^89 - q^90 - a*q^93 - q^101 - 
        q^105 + a*q^106 - a*q^109 + (-a + 1)*q^113 + a*q^114 + a*q^116 + (-a + 
        1)*q^122 + q^125 + (-a + 1)*q^128 + 2*a*q^129 - a*q^132 + a*q^133 + 
        a*q^136 + q^137 + (a - 1)*q^141 - q^144 + q^145 - q^146 + q^149 + (-a + 
        1)*q^153 - a*q^154 - q^157 - a*q^160 + a*q^162 + a*q^164 - q^165 - q^168
        + (-a + 1)*q^169 + q^170 + (a - 1)*q^177 - a*q^178 + (a - 1)*q^180 + (a 
        - 1)*q^181 - q^186 + a*q^189 - q^193 + (a - 1)*q^202 + q^205 + a*q^209 +
        (a - 1)*q^210 + q^212 + q^213 - q^217 + O(q^218),
    q^3 + (-a + 1)*q^6 + (-a + 1)*q^7 + (-a + 1)*q^11 - a*q^12 - a*q^14 - q^15 +
        a*q^19 - a*q^22 - q^24 + a*q^27 - q^28 + (a - 1)*q^30 - q^31 + (a - 
        1)*q^35 + q^38 + 2*q^43 - q^44 + a*q^47 + (a - 1)*q^48 - a*q^51 + q^54 +
        (a - 1)*q^55 + (a - 1)*q^56 + a*q^59 + a*q^60 + (a - 1)*q^62 + q^63 + 
        a*q^70 + (-a + 1)*q^71 + (-a + 1)*q^76 - 2*q^79 + (a - 1)*q^83 + (-2*a +
        2)*q^86 - q^87 + (a - 1)*q^88 + q^94 - a*q^95 + a*q^96 + q^99 - q^102 - 
        q^103 + (-a + 1)*q^108 + a*q^110 + a*q^112 + q^118 - q^119 + q^120 - 
        q^123 + a*q^124 + (-a + 1)*q^126 + q^127 - a*q^131 - a*q^135 + q^140 - 
        a*q^142 + (-a + 1)*q^151 - a*q^152 + q^155 + (2*a - 2)*q^158 + (a - 
        1)*q^159 + a*q^166 + (-2*a + 2)*q^167 + (a - 1)*q^171 - 2*a*q^172 + (a -
        1)*q^174 + a*q^176 + q^183 - q^187 + (-a + 1)*q^188 - q^190 + (a - 
        1)*q^191 + q^192 + (-a + 1)*q^198 + q^199 + (a - 1)*q^203 + (a - 
        1)*q^204 + (a - 1)*q^206 - a*q^211 - 2*q^215 - a*q^216 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^7 + (-a + 1)*q^13 + q^19 + (a - 1)*q^25 - q^31 - q^37 + a*q^43 + (-a +
        1)*q^61 + (-a + 1)*q^67 + a*q^73 + a*q^79 + (a - 1)*q^91 - 2*a*q^97 - 
        q^103 - 2*a*q^109 + q^121 + (2*a - 2)*q^127 - q^133 + (-a + 1)*q^139 + 
        2*q^151 + a*q^157 - q^163 + (-a + 1)*q^175 + (2*a - 2)*q^181 + a*q^193 +
        (-a + 1)*q^199 + a*q^211 + q^217 + O(q^218),
    q^2 + (a - 1)*q^8 - q^14 + (-a + 1)*q^26 - a*q^32 + q^38 + (a - 1)*q^50 + 
        (-a + 1)*q^56 - q^62 - q^74 + a*q^86 + a*q^104 + (-a + 1)*q^122 + q^128 
        + (-a + 1)*q^134 + a*q^146 + (a - 1)*q^152 + a*q^158 + (a - 1)*q^182 - 
        2*a*q^194 - a*q^200 - q^206 + O(q^218),
    q^3 - a*q^9 - q^21 + (a - 1)*q^27 + (-a + 1)*q^39 + q^57 + a*q^63 + (a - 
        1)*q^75 + q^81 - q^93 - q^111 - q^117 + a*q^129 - a*q^171 + (-a + 
        1)*q^183 + (-a + 1)*q^189 + (-a + 1)*q^201 + O(q^218),
    q^4 + (a - 1)*q^16 - q^28 + (-a + 1)*q^52 - a*q^64 + q^76 + (a - 1)*q^100 + 
        (-a + 1)*q^112 - q^124 - q^148 + a*q^172 + a*q^208 + O(q^218),
    q^6 - a*q^18 + (a - 1)*q^24 - q^42 + (a - 1)*q^54 + q^72 + (-a + 1)*q^78 - 
        a*q^96 + q^114 + a*q^126 + (a - 1)*q^150 + q^162 + (-a + 1)*q^168 - 
        q^186 - a*q^216 + O(q^218),
    q^12 - a*q^36 + (a - 1)*q^48 - q^84 + (a - 1)*q^108 + q^144 + (-a + 1)*q^156
        - a*q^192 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^2 + q^4 + (-a + 1)*q^5 - q^8 - q^9 + (a - 1)*q^10 + q^16 - a*q^17 + 
        q^18 + (-a + 1)*q^20 + (a - 1)*q^21 + a*q^29 - q^32 + (a - 1)*q^33 + 
        a*q^34 - q^36 + (a - 1)*q^40 + (-a + 1)*q^41 + (-a + 1)*q^42 + (a - 
        1)*q^45 + (a - 1)*q^53 + q^57 - a*q^58 - a*q^61 + q^64 + (-a + 1)*q^66 -
        a*q^68 + q^72 - a*q^73 + a*q^77 + (-a + 1)*q^80 + q^81 + (a - 1)*q^82 + 
        (a - 1)*q^84 - q^85 + (-a + 1)*q^89 + (-a + 1)*q^90 - a*q^93 + a*q^101 +
        a*q^105 + (-a + 1)*q^106 - a*q^109 + a*q^113 - q^114 + a*q^116 + a*q^122
        + q^125 - q^128 - 2*q^129 + (a - 1)*q^132 + (-a + 1)*q^133 + a*q^136 - 
        a*q^137 - a*q^141 - q^144 + q^145 + a*q^146 + (a - 1)*q^149 + a*q^153 - 
        a*q^154 + (-a + 1)*q^157 + (a - 1)*q^160 - q^162 + (-a + 1)*q^164 + 
        a*q^165 + (-a + 1)*q^168 - q^169 + q^170 + (a - 1)*q^177 + (a - 1)*q^178
        + (a - 1)*q^180 + (a - 1)*q^181 + a*q^186 + (-a + 1)*q^189 + (-a + 
        1)*q^193 - a*q^202 - a*q^205 + (-a + 1)*q^209 - a*q^210 + (a - 1)*q^212 
        - a*q^213 - q^217 + O(q^218),
    q^3 - q^6 + (-a + 1)*q^7 + (-a + 1)*q^11 + q^12 + (a - 1)*q^14 + (-a + 
        1)*q^15 - q^19 + (a - 1)*q^22 - q^24 - q^27 + (-a + 1)*q^28 + (a - 
        1)*q^30 + a*q^31 - a*q^35 + q^38 + 2*q^43 + (-a + 1)*q^44 + a*q^47 + 
        q^48 - a*q^51 + q^54 - a*q^55 + (a - 1)*q^56 + (-a + 1)*q^59 + (-a + 
        1)*q^60 - a*q^62 + (a - 1)*q^63 + a*q^70 + a*q^71 - q^76 - 2*q^79 + (a -
        1)*q^83 - 2*q^86 + a*q^87 + (a - 1)*q^88 - a*q^94 + (a - 1)*q^95 - q^96 
        + (a - 1)*q^99 + a*q^102 + a*q^103 - q^108 + a*q^110 + (-a + 1)*q^112 + 
        (a - 1)*q^118 - q^119 + (a - 1)*q^120 + (-a + 1)*q^123 + a*q^124 + (-a +
        1)*q^126 + (a - 1)*q^127 + (a - 1)*q^131 + (a - 1)*q^135 - a*q^140 - 
        a*q^142 + (-a + 1)*q^151 + q^152 + q^155 + 2*q^158 + (a - 1)*q^159 + (-a
        + 1)*q^166 - 2*q^167 + q^171 + 2*q^172 - a*q^174 + (-a + 1)*q^176 - 
        a*q^183 - q^187 + a*q^188 + (-a + 1)*q^190 + (a - 1)*q^191 + q^192 + (-a
        + 1)*q^198 + (a - 1)*q^199 + q^203 - a*q^204 - a*q^206 + (a - 1)*q^211 +
        (-2*a + 2)*q^215 + q^216 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^11 + q^17 - q^23 + q^25 - q^35 - q^43 - q^55 - q^73 - q^83 - q^85 + 
        q^95 - q^101 - q^115 + q^121 - q^125 - q^133 + q^149 + q^161 + q^169 + 
        q^175 + 2*q^187 - q^197 - q^199 + O(q^218),
    q^5 - q^11 - q^17 + q^35 + q^47 - q^77 - q^95 - q^119 + q^125 + q^131 + 
        q^137 - q^149 + q^191 + q^209 - q^215 + O(q^218),
    q^7 - q^11 - q^17 - q^19 + q^23 + q^25 + q^35 - 2*q^55 + q^61 + q^83 - 
        2*q^85 - q^95 + q^101 + q^115 + q^121 + q^125 + q^139 - q^149 - 2*q^157 
        - q^161 - 2*q^163 + q^175 + q^187 + q^197 + O(q^218)
]
;
Bo:=
[
    q - 2*q^7 - q^19 - q^25 + 2*q^43 + 3*q^49 - 2*q^61 + 2*q^73 - q^121 + 
        2*q^133 - 2*q^139 - 2*q^157 - 2*q^163 + q^169 + 2*q^175 + 2*q^199 + 
        O(q^218),
    q^2 + q^8 - 2*q^14 + q^32 - q^38 - q^50 - 2*q^56 + 2*q^86 + 3*q^98 - 2*q^122
        + q^128 + 2*q^146 - q^152 - q^200 + O(q^218),
    q^3 - q^15 - q^21 + q^27 - q^33 - q^51 + q^57 + 2*q^69 + q^105 - q^129 - 
        q^135 - q^141 + q^165 - q^183 - q^189 + O(q^218),
    q^4 + q^16 - 2*q^28 + q^64 - q^76 - q^100 - 2*q^112 + 2*q^172 + 3*q^196 + 
        O(q^218),
    q^5 - q^7 + q^11 + q^17 - 2*q^19 - 2*q^23 - q^25 - q^35 + 3*q^43 + q^47 + 
        3*q^49 - q^55 - q^61 + 3*q^73 - q^77 - 2*q^83 - q^85 + q^95 - 2*q^101 + 
        2*q^115 - q^119 - q^121 - q^125 + q^131 + 3*q^133 + q^137 - q^139 + 
        q^149 - 4*q^157 + 2*q^161 - 4*q^163 + 2*q^175 - q^187 + q^191 - 2*q^197 
        + 3*q^199 + q^209 - q^215 + O(q^218),
    q^9 - q^45 - q^63 + q^81 - q^99 - q^153 + q^171 + 2*q^207 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^5 - a*q^7 - q^9 + a*q^11 + (-a + 1)*q^23 + q^35 + (a - 1)*q^39
        - a*q^43 + (-a + 1)*q^45 - a*q^47 - q^55 - q^57 + a*q^61 + a*q^63 + (-a 
        + 1)*q^77 + q^81 + a*q^83 + a*q^87 + (-a + 1)*q^93 - a*q^99 - a*q^101 + 
        a*q^115 + (a - 1)*q^123 - q^125 + (a - 1)*q^131 + a*q^137 + (-a + 
        1)*q^139 + (a - 1)*q^149 + (a - 1)*q^157 - q^161 + (-a + 1)*q^177 - 
        a*q^191 - a*q^195 + (-a + 1)*q^201 + (a - 1)*q^207 + q^215 + O(q^218),
    q^2 + (a - 1)*q^10 - a*q^12 - a*q^14 - q^18 + a*q^22 + a*q^32 + (-a + 
        1)*q^46 + q^48 - q^52 + q^60 + q^70 - a*q^76 + (a - 1)*q^78 + (a - 
        1)*q^84 - a*q^86 + (-a + 1)*q^90 - a*q^94 + a*q^108 - q^110 - q^114 + (a
        - 1)*q^116 + a*q^122 + q^124 + a*q^126 - q^128 + (-a + 1)*q^132 + (-a + 
        1)*q^154 - q^160 + q^162 - q^164 + a*q^166 + a*q^174 + (-a + 1)*q^186 - 
        a*q^198 - a*q^202 + (-a + 1)*q^208 + O(q^218),
    q^3 + (-a + 1)*q^13 + (a - 1)*q^15 + q^19 - a*q^21 - q^27 - a*q^29 + (a - 
        1)*q^31 + a*q^33 + (-a + 1)*q^41 + (a - 1)*q^59 + a*q^65 + (a - 1)*q^67 
        + (-a + 1)*q^69 - a*q^79 - q^91 + (a - 1)*q^95 + a*q^97 + (-a + 1)*q^103
        + q^105 - 2*q^109 + (a - 1)*q^113 + (a - 1)*q^117 - a*q^129 - a*q^133 + 
        (-a + 1)*q^135 - a*q^141 + q^143 + q^145 + a*q^151 - a*q^155 - q^165 + 
        (-a + 1)*q^167 - q^171 - a*q^173 + 2*q^179 + a*q^183 + a*q^189 + (a - 
        1)*q^193 + (a - 1)*q^203 + a*q^205 + a*q^209 + (-a + 1)*q^211 + q^217 + 
        O(q^218),
    q^4 + (a - 1)*q^20 - a*q^24 - a*q^28 - q^36 + a*q^44 + a*q^64 + (-a + 
        1)*q^92 + q^96 - q^104 + q^120 + q^140 - a*q^152 + (a - 1)*q^156 + (a - 
        1)*q^168 - a*q^172 + (-a + 1)*q^180 - a*q^188 + a*q^216 + O(q^218),
    q^6 - q^16 + (a - 1)*q^24 + (-a + 1)*q^26 + (a - 1)*q^30 + q^38 - a*q^42 - 
        q^54 - a*q^58 + (a - 1)*q^62 + (-a + 1)*q^64 + a*q^66 + (-a + 1)*q^80 + 
        (-a + 1)*q^82 + a*q^104 + a*q^112 + (a - 1)*q^118 - a*q^120 + a*q^130 + 
        (a - 1)*q^134 + (-a + 1)*q^138 + q^144 + (a - 1)*q^152 - a*q^158 + q^168
        - a*q^176 - q^182 + (a - 1)*q^190 + a*q^194 + (-a + 1)*q^206 + q^210 + 
        (-a + 1)*q^216 + O(q^218),
    q^8 + (-a + 1)*q^12 + (a - 1)*q^32 + (a - 1)*q^40 - a*q^52 - a*q^56 + a*q^60
        - q^72 + (-a + 1)*q^76 - q^84 + a*q^88 + (a - 1)*q^108 - q^116 + a*q^124
        + q^132 - a*q^160 - a*q^164 + (-a + 1)*q^184 + q^192 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
684
);
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:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
685
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
685
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
136
);
qprec:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
685
);
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(
136
);
qprec:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
685
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
685
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
685
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
685
);
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(
68
);
qprec:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
685
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
685
);
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(
8
);
qprec:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
685
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
685
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
685
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
686
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
294
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
686
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
98
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
686
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
686
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
686
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
49*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^9 + (a - 1)*q^25 - q^43 + a*q^44 + (-a + 1)*q^46 + (-a + 1)*q^53 + 
        a*q^58 - q^64 - q^71 + a*q^79 + (a - 1)*q^81 - a*q^86 + q^92 + q^106 + 
        (-a + 1)*q^109 + (a - 1)*q^116 - a*q^128 - q^134 - a*q^142 - q^148 + (a 
        - 1)*q^158 + a*q^163 + q^169 + O(q^170),
    q^2 - a*q^18 - q^44 + a*q^46 + (a - 1)*q^50 - q^58 + (-a + 1)*q^64 + a*q^88 
        + (-a + 1)*q^134 + (-a + 1)*q^148 + (a - 1)*q^162 + O(q^170),
    q^4 + (a - 1)*q^23 - a*q^29 - a*q^36 + a*q^43 + (-a + 1)*q^44 - q^46 - q^53 
        + (-a + 1)*q^58 + a*q^64 + q^67 + a*q^71 + (-a + 1)*q^79 + (a - 1)*q^86 
        - q^88 + (a - 1)*q^100 - a*q^106 + (a - 1)*q^107 - q^109 + (-a + 
        1)*q^121 + a*q^134 + q^137 + (a - 1)*q^142 + a*q^148 + q^158 + (-a + 
        1)*q^163 + O(q^170),
    q^8 + a*q^16 - a*q^23 + q^29 + (a - 1)*q^32 - q^43 + (-a + 1)*q^53 - q^64 + 
        (a - 1)*q^67 - q^71 - a*q^72 + a*q^79 + (-a + 1)*q^88 - q^92 - a*q^107 +
        (-a + 1)*q^109 + (-a + 1)*q^116 + a*q^121 + (a - 1)*q^137 + (-a + 
        1)*q^144 + a*q^163 + O(q^170),
    q^11 + (a - 1)*q^16 + (-a + 1)*q^23 + a*q^29 - q^32 + (a - 1)*q^37 + (-a + 
        1)*q^44 - q^67 - a*q^92 - a*q^99 + (-a + 1)*q^107 - a*q^113 + q^116 - 
        a*q^127 - q^137 + q^144 + a*q^148 + (a - 1)*q^149 + q^151 + O(q^170),
    q^22 - a*q^23 + q^29 + (a - 1)*q^32 - q^43 + (-a + 1)*q^46 + (-a + 1)*q^53 +
        a*q^58 - q^64 + (a - 1)*q^67 - q^71 + (a - 1)*q^74 + a*q^79 + (-a + 
        1)*q^88 - a*q^107 + (-a + 1)*q^109 + a*q^121 - q^134 + (a - 1)*q^137 + 
        a*q^163 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
686
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
147*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 + q^25 - q^43 - q^44 - q^46 - q^53 - q^58 - q^64 - q^71 - q^79 + 
        q^81 + q^86 + q^92 + q^106 - q^109 + q^116 + q^128 - q^134 + q^142 - 
        q^148 + q^158 - q^163 + q^169 + O(q^170),
    q^2 + q^18 - q^44 - q^46 + q^50 - q^58 - q^64 - q^88 - q^134 - q^148 + q^162
        + O(q^170),
    q^4 + q^23 + q^29 + q^36 - q^43 - q^44 - q^46 - q^53 - q^58 - q^64 + q^67 - 
        q^71 - q^79 + q^86 - q^88 + q^100 + q^106 + q^107 - q^109 - q^121 - 
        q^134 + q^137 + q^142 - q^148 + q^158 - q^163 + O(q^170),
    q^8 - q^16 + q^23 + q^29 + q^32 - q^43 - q^53 - q^64 + q^67 - q^71 + q^72 - 
        q^79 - q^88 - q^92 + q^107 - q^109 - q^116 - q^121 + q^137 - q^144 - 
        q^163 + O(q^170),
    q^11 + q^16 - q^23 - q^29 - q^32 + q^37 - q^44 - q^67 + q^92 + q^99 - q^107 
        + q^113 + q^116 + q^127 - q^137 + q^144 - q^148 + q^149 + q^151 + 
        O(q^170),
    q^22 + q^23 + q^29 + q^32 - q^43 - q^46 - q^53 - q^58 - q^64 + q^67 - q^71 +
        q^74 - q^79 - q^88 + q^107 - q^109 - q^121 - q^134 + q^137 - q^163 + 
        O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
687
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
151
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
687
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
228
);
qprec:=
151
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
687
);
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:=
151
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
687
);
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:=
151
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
687
);
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:=
151
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
687
);
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:=
151
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^9*q^3 - a^2*q^4 + (-a^17 + a^16 - a^15 + a^14 - 2*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^7 + 
        (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^9 - a^11*q^12 + (-a^15 + 
        a^7)*q^13 + a^4*q^16 + (a^14 + a^2)*q^19 + (a^8 + a^3)*q^21 - a^3*q^25 -
        a^8*q^27 + (a^15 - a)*q^28 + (a^10 - 1)*q^31 + a*q^36 + (a^6 - a^5)*q^37
        + (a^16 + a^5)*q^39 + (-a^16 - a^14)*q^43 + a^13*q^48 + (-a^17 - a^12 - 
        a^7)*q^49 + (a^17 - a^9)*q^52 + (a^11 - a^4)*q^57 + (a^11 - a^6)*q^61 + 
        (a^17 + a^12)*q^63 - a^6*q^64 + (-a^10 - a^7)*q^67 + (a^13 + a^12)*q^73 
        - a^12*q^75 + (-a^16 - a^4)*q^76 + (a^16 - a^10)*q^79 - a^17*q^81 + 
        (-a^10 - a^5)*q^84 + (-a^14 - a^9 + a^6 + a)*q^91 + (-a^9 - 1)*q^93 + 
        (a^12 - a)*q^97 + a^5*q^100 + (-a^8 - a^4)*q^103 + a^10*q^108 + (a^5 - 
        a^3)*q^109 + (a^15 - a^14)*q^111 + (-a^17 + a^3)*q^112 + (a^14 - 
        a^6)*q^117 + a^10*q^121 + (-a^12 + a^2)*q^124 + (a^15 + a^8)*q^127 + 
        (a^6 + a^4)*q^129 + (-a^15 + a^13 + a^8 + a)*q^133 - a^3*q^144 + (-a^16 
        + a^7 + a^2)*q^147 + (-a^8 + a^7)*q^148 + O(q^151)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
687
);
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:=
151
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (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^3 + a^4*q^4 + (-a^17 - a^7)*q^7
        - a^17*q^9 - a^3*q^12 + (a^14 - a^11)*q^13 + a^8*q^16 + (-a^9 + 
        a^4)*q^19 + (a^16 + a^6)*q^21 + a^6*q^25 + a^16*q^27 + (-a^11 + 
        a^2)*q^28 + (-a + 1)*q^31 + a^2*q^36 + (a^12 + a^10)*q^37 + (-a^13 + 
        a^10)*q^39 + (-a^13 - a^9)*q^43 - a^7*q^48 + (-a^15 + a^14 - a^5)*q^49 +
        (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^52 + (a^8 - a^3)*q^57 + (a^12 - 
        a^3)*q^61 + (-a^15 - a^5)*q^63 + a^12*q^64 + (a^14 - a)*q^67 + (-a^7 - 
        a^5)*q^73 - a^5*q^75 + (-a^13 + a^8)*q^76 + (-a^13 - a)*q^79 - a^15*q^81
        + (a^10 - a)*q^84 + (a^17 - a^16 + a^15 - a^14 + a^13 + a^11 - a^10 - 
        a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^91 + (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)*q^93 + (-a^5 + a^2)*q^97 + a^10*q^100 + (a^16 + 
        a^8)*q^103 - a*q^108 + (a^10 + a^6)*q^109 + (-a^11 - a^9)*q^111 + (-a^15
        + a^6)*q^112 + (a^12 - a^9)*q^117 - a*q^121 + (-a^5 + a^4)*q^124 + (a^16
        - a^11)*q^127 + (a^12 + a^8)*q^129 + (a^16 - a^11 - a^7 + a^2)*q^133 - 
        2*a^3*q^139 + a^6*q^144 + (a^14 - a^13 + a^4)*q^147 + (a^16 + 
        a^14)*q^148 + O(q^151)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
687
);
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:=
151
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
687
);
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:=
151
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
687
);
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:=
151
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + a*q^5 + (a - 1)*q^7 - q^9 - a*q^11 + (-a - 1)*q^13 - q^16 + q^17
        - q^19 + q^20 + (a + 1)*q^23 - q^27 + (a + 1)*q^28 + (-a - 1)*q^35 + 
        a*q^36 + q^43 - q^44 - a*q^45 + (a - 1)*q^47 - a*q^49 + (a - 1)*q^52 + 
        2*q^53 + q^55 - q^61 + (-a + 1)*q^63 + a*q^64 + (-a + 1)*q^65 - a*q^68 -
        a*q^71 + a*q^76 + (a + 1)*q^77 - a*q^80 - q^83 + a*q^85 + (a + 1)*q^89 +
        2*q^91 + (-a + 1)*q^92 - a*q^95 - a*q^97 + a*q^99 - a*q^103 + a*q^108 + 
        (-a + 1)*q^109 + (-a + 1)*q^112 + (a - 1)*q^115 + (a + 1)*q^117 + (a - 
        1)*q^119 + a*q^125 + (a - 1)*q^127 + (-a - 1)*q^131 + (-a + 1)*q^133 - 
        a*q^135 + (a - 1)*q^140 + (a - 1)*q^143 + q^144 - q^149 + O(q^151),
    q^2 + (a + 1)*q^4 - a*q^7 + a*q^10 + q^13 + (-a + 1)*q^16 + (a - 1)*q^17 - 
        q^18 + (-a + 1)*q^19 + (a - 1)*q^20 - a*q^22 - 2*q^23 + (-a + 1)*q^27 - 
        q^28 - q^31 + q^32 - q^34 + q^35 + (-a - 1)*q^36 + q^38 + a*q^41 + (a - 
        1)*q^43 + (-a + 1)*q^44 + (-a - 1)*q^46 + (a + 1)*q^49 - a*q^52 + (a - 
        1)*q^53 + q^54 + q^59 + (-a + 1)*q^61 + (-a - 1)*q^62 + a*q^63 + a*q^65 
        + a*q^67 - q^77 + (a + 1)*q^80 + (a - 1)*q^82 + (-a + 1)*q^83 + (-a - 
        1)*q^85 - q^86 - 2*q^89 - a*q^90 + (a - 1)*q^91 + (a - 1)*q^94 + (a + 
        1)*q^95 + a*q^98 - q^101 + q^110 + a*q^112 + q^113 - 2*a*q^115 - q^117 +
        (a + 1)*q^118 - a*q^119 + q^122 - a*q^124 + q^131 + a*q^133 + (a - 
        1)*q^134 + (a + 1)*q^135 + q^137 - a*q^140 - a*q^142 - a*q^143 + (a - 
        1)*q^144 + (-a + 1)*q^149 + O(q^151),
    q^3 + q^9 - a*q^12 + a*q^15 + (a - 1)*q^21 - a*q^33 - a*q^36 + (-a - 1)*q^39
        + a*q^45 - q^48 + q^51 - q^57 + q^60 + (a - 1)*q^63 + (a + 1)*q^69 - 
        q^81 + (a + 1)*q^84 - a*q^99 + (-a - 1)*q^105 + (-a - 1)*q^117 + q^129 -
        q^132 + (a - 1)*q^141 - q^144 - a*q^147 + O(q^151),
    q^6 + (a - 1)*q^9 + (a + 1)*q^12 - q^18 - a*q^21 + a*q^30 + q^39 + (-a - 
        1)*q^45 + (-a + 1)*q^48 + (a - 1)*q^51 + (-a + 1)*q^57 + (a - 1)*q^60 - 
        a*q^63 - a*q^66 - 2*q^69 + (-a + 1)*q^81 - q^84 - a*q^90 - q^93 + q^96 +
        (a + 1)*q^99 - q^102 + q^105 + q^114 + q^117 + a*q^123 + (a - 1)*q^129 +
        (-a + 1)*q^132 + (-a - 1)*q^138 + (a + 1)*q^147 + O(q^151)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
687
);
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:=
151
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
687
);
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:=
151
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^12 - q^15 + q^16 - q^19 - q^25 - q^27 + q^33 + q^36 + q^37 + q^43 - 
        q^45 + q^49 - q^51 + 2*q^55 - q^58 + q^60 + q^61 - q^64 - q^75 - 2*q^85 
        - q^94 - q^97 + q^99 + 2*q^100 + q^103 + q^111 - q^118 - q^121 - q^132 -
        2*q^148 + O(q^151),
    q^2 + q^18 - q^23 - q^24 - q^38 - q^41 + q^50 - q^69 - q^74 + q^87 + q^89 + 
        q^98 + q^101 + q^107 - q^116 - q^123 + q^131 + q^141 + O(q^151),
    q^3 - q^16 - q^19 + q^27 - q^37 - q^46 + q^58 + q^64 + q^75 + q^76 - q^82 + 
        q^94 - q^97 + q^118 - q^129 - q^138 - q^144 + q^147 + q^148 + O(q^151),
    q^4 - q^12 - q^19 + q^36 - q^37 + q^43 + q^57 - q^58 + q^61 - q^94 - q^97 + 
        q^100 + q^103 - q^108 + q^111 - q^118 - q^129 + O(q^151),
    q^5 - q^11 - q^12 + q^16 + q^17 - q^20 - q^25 - q^27 + q^37 + q^43 + q^44 - 
        q^45 + q^46 + q^48 + q^55 - q^58 + q^61 - q^64 - q^68 - q^71 - 2*q^75 + 
        q^80 - q^81 + q^82 + q^83 - q^85 - q^94 - q^95 + q^99 + q^100 + q^103 + 
        2*q^111 - q^118 - q^121 - q^125 + q^129 - q^135 + q^138 + q^144 - q^148 
        - q^149 + O(q^151),
    q^6 - q^8 - q^23 + q^29 - q^41 + q^47 + q^54 + q^59 - q^69 - q^72 - q^86 + 
        q^113 - q^114 + q^116 - q^122 - q^123 + q^128 + q^137 + q^150 + 
        O(q^151),
    q^9 + q^12 + q^15 - q^16 + q^19 + 2*q^25 + q^27 - q^33 - q^36 - q^37 - 
        2*q^43 + q^45 - q^46 - q^48 + q^51 - 2*q^55 - q^57 + q^58 - q^60 - 
        2*q^61 + q^64 + q^75 - q^76 + q^81 - q^82 + 2*q^85 + q^94 + q^97 - q^99 
        - 2*q^100 - 2*q^103 - 2*q^111 + q^118 + 2*q^121 + q^132 - q^138 + q^148 
        + O(q^151)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
688
);
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:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
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:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
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(
688
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
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(
688
);
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:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
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:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
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(
84
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
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:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^11 + a^8 + a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^3 + (a^11 + a^10 - a^8
        - a^7 - a^3 + 1)*q^9 + (-a^10 + a^3 - a)*q^11 + (a^11 - a^9 - 2*a^8 + 
        a^6 + a^5 - a^4 - a^3 + 2*a + 1)*q^17 + (a^7 - a^3 - 1)*q^19 + a^8*q^25 
        + (-a^6 + a^3 - 1)*q^27 + (-a^11 - a^9 + a^7 + a^6 - 1)*q^33 + (-a^10 + 
        a^9 + a^3 - a^2)*q^41 + (a^11 + a^10 - a^8 - a^7 + a^5 - a^3 - a^2 + 
        1)*q^43 - a^7*q^49 + (-a^11 + a^8 - a^7 + a^4)*q^51 + (-a^11 - a^10 + 
        a^9 + a^8 + a^7 - a^5 - 1)*q^57 + (a^4 + a^2)*q^59 + (-a^11 + a^9 + a^8 
        - a^6 - a^5 + a^4 + a^3 - a - 1)*q^67 + a^11*q^73 + (a^11 - a^4 + 
        1)*q^75 + (a^11 + a^10 - a^9 - a^8 - a^7 + a^6 + a^5 - a^3 + 1)*q^81 + 
        (a^9 - a^7 - a^2)*q^83 + (-2*a^11 + a^9 + a^8 - a^6 + a^4 + a^3 - a - 
        1)*q^89 + (a^10 + a^8)*q^97 + (a^11 - a^8 + 2*a^6 + a^5 - a^4 - 2*a^3 - 
        a^2 + 2)*q^99 + (-a^9 - a^8 + a^6 + a^5 - a^4 - a^3 + a + 1)*q^107 + 
        (-a^5 - a)*q^113 + (-a^10 + a^8 + a^7 - a^6 - a^5 - a^4 + a^3 + 2*a^2 - 
        1)*q^121 + (-a^9 + a^8 + a^6 - a^5)*q^123 + (-a^11 + a^8 - a^6 + a^4 + 
        a^3 - a - 1)*q^129 + (a^10 + a^2)*q^131 + (-a^11 + a^9 + a^8 - a^6 + a^4
        - a - 1)*q^137 + (a^7 + a^6 - 1)*q^139 + (a^11 - a^8 - a^7 + a^5 - a^2 +
        1)*q^147 + (2*a^11 - a^8 + a^5 - a^4 - a^3 - a^2 + 1)*q^153 + (a^11 - 
        a^9 - a^8 + 2*a^6 + a^5 - a^4 - a^3 + a + 1)*q^163 + O(q^166),
    q^2 + a^6*q^4 + (-a^11 + a^8 + a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^6 + (-a^11
        + a^9 + a^8 - a^6 + a^4 + a^3 - a - 1)*q^8 + (a^11 - a^8 + a^6 + a^5 - 
        a^4 - a^3 - a^2 + a + 1)*q^12 + (a^11 - a^4)*q^16 + (a^11 + a^10 - a^8 -
        a^7 - a^3 + 1)*q^18 + (-a^10 + a^3 - a)*q^22 + (a^4 - a)*q^24 - a^3*q^32
        + (a^11 - a^9 - 2*a^8 + a^6 + a^5 - a^4 - a^3 + 2*a + 1)*q^34 + (-a^11 +
        a^8 - a^5)*q^36 + (a^7 - a^3 - 1)*q^38 + (-a^7 + a^2)*q^44 + (a^10 - 
        a^7)*q^48 + a^8*q^50 + (-a^6 + a^3 - 1)*q^54 - a^9*q^64 + (-a^11 - a^9 +
        a^7 + a^6 - 1)*q^66 + (a^4 + 1)*q^68 + (-a^11 - a^10 + a^7 + a^3 - 
        1)*q^72 + (a^11 + a^10 - a^9 - a^8 - a^7 + a^5 - a^3 - a^2 + 1)*q^76 + 
        (-a^10 + a^9 + a^3 - a^2)*q^82 + (a^11 + a^10 - a^8 - a^7 + a^5 - a^3 - 
        a^2 + 1)*q^86 + (-a^11 - a^10 + 2*a^8 + a^7 - a^6 - a^5 + a^3 + a^2 - 
        1)*q^88 + (-a^11 - a^10 + a^9 + a^8 + a^7 - a^6 - a^5 + a^3 - 1)*q^96 - 
        a^7*q^98 + (a^7 - 1)*q^100 + (-a^11 + a^8 - a^7 + a^4)*q^102 + (a^11 - 
        a^8 - a^4 - a^3 + a + 1)*q^108 + (-a^11 - a^10 + a^9 + a^8 + a^7 - a^5 -
        1)*q^114 + (a^4 + a^2)*q^118 + (-a^8 + a)*q^128 + (a^9 - a^8 - a^7 - a^6
        + a^5 + a^4 + a^3 - a^2)*q^132 + (-a^11 + a^9 + a^8 - a^6 - a^5 + a^4 + 
        a^3 - a - 1)*q^134 + (a^10 + a^6)*q^136 + (a^11 - a^8 - a^7 + a^5 + 
        1)*q^144 + a^11*q^146 + (a^11 - a^4 + 1)*q^150 + (-a^8 - a^5 + a)*q^152 
        + (a^11 + a^10 - a^9 - a^8 - a^7 + a^6 + a^5 - a^3 + 1)*q^162 + (a^2 - 
        a)*q^164 + O(q^166)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
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:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
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(
28
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
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:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
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:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
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(
28
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
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:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^5 - a^4 - a^2 + a - 1)*q^3 + (-a^4 + a^3 + a - 1)*q^9 + (-a^3 - 
        a)*q^11 + (-a^5 - a)*q^17 + (-a^3 + 1)*q^19 - a*q^25 + (-a^5 + a^4 + a^2
        - a)*q^27 + (a^5 + a^3 + a)*q^33 + (-a^3 + a^2)*q^41 + (a^5 - a^4 + a^3 
        - a^2 + a - 1)*q^43 + q^49 + (2*a^4 - a + 1)*q^51 + (2*a^5 - 2*a^4 + a^3
        - a^2 + 2*a - 2)*q^57 + (a^4 + a^2)*q^59 - 2*a^5*q^67 + 2*a^4*q^73 + 
        (a^4 + 1)*q^75 + (-a^5 + a^4 - a^3 - a + 1)*q^81 + (a^2 + 1)*q^83 + 
        (-a^5 + a^4)*q^89 + (-a^3 - a)*q^97 - a^4*q^99 + (-a^5 + a^4)*q^107 + 
        (-a^5 - a)*q^113 + (a^5 + a^3 + a - 1)*q^121 + (-a^4 + a^3 - 1)*q^123 + 
        (-a^5 + a^2)*q^129 + (-a^3 + a^2)*q^131 + (-a^5 - a^3)*q^137 + (a^5 - 
        a^4 + a^3 - a^2 + a)*q^139 + (a^5 - a^4 - a^2 + a - 1)*q^147 + (a^5 - 
        a^3 - a^2 + a + 1)*q^153 + (-a^4 + a^3 - a^2 + a - 1)*q^163 + O(q^166),
    q^2 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^4 + (a^5 - a^4 - a^2 + a - 1)*q^6 - 
        a^5*q^8 + (-a^5 + a^2)*q^12 + a^4*q^16 + (-a^4 + a^3 + a - 1)*q^18 + 
        (-a^3 - a)*q^22 + (a^4 - a)*q^24 - a^3*q^32 + (-a^5 - a)*q^34 + (-a^5 + 
        a^4 - a)*q^36 + (-a^3 + 1)*q^38 + (a^2 + 1)*q^44 + (-a^3 + 1)*q^48 - 
        a*q^50 + (-a^5 + a^4 + a^2 - a)*q^54 + a^2*q^64 + (a^5 + a^3 + a)*q^66 +
        (a^4 + 1)*q^68 + (a^4 - a^3 + 1)*q^72 + (a^5 - a^4 + a^3 + a - 1)*q^76 +
        (-a^3 + a^2)*q^82 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^86 + (a^5 - a^4 + 
        a^3 - a^2 - 1)*q^88 + (a^5 - a^4 + a^3 + a - 1)*q^96 + q^98 + q^100 + 
        (2*a^4 - a + 1)*q^102 + (a^4 - a^3 - a + 1)*q^108 + (2*a^5 - 2*a^4 + a^3
        - a^2 + 2*a - 2)*q^114 + (a^4 + a^2)*q^118 - a*q^128 + (-a^4 - a^2 - 
        1)*q^132 - 2*a^5*q^134 + (a^5 - a^4 - a^2 + a - 1)*q^136 + (a^5 - a^4 + 
        a - 1)*q^144 + 2*a^4*q^146 + (a^4 + 1)*q^150 + (-a^5 - a)*q^152 + (-a^5 
        + a^4 - a^3 - a + 1)*q^162 + (a^2 - a)*q^164 + O(q^166)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
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:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
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(
12
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
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:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
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:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^5 + (a - 1)*q^13 + (a - 1)*q^17 + q^21 + (a - 1)*q^29 - 2*a*q^33 - 
        a*q^37 + a*q^53 + (-a + 1)*q^57 + (a - 1)*q^61 + q^65 + (a - 1)*q^69 + 
        (a - 1)*q^73 + (-2*a + 2)*q^77 + a*q^81 + q^85 + a*q^89 + (-a + 1)*q^93 
        + (-a + 1)*q^101 - a*q^105 - a*q^109 - 3*q^121 - q^125 + a*q^129 + q^133
        + q^145 + a*q^149 + (-a + 1)*q^157 - q^161 + (2*a - 2)*q^165 + O(q^166),
    q^3 + a*q^7 + (-2*a + 2)*q^11 - a*q^15 + q^19 - q^23 + (a - 1)*q^27 + q^31 +
        (-a + 1)*q^35 + (a - 1)*q^39 + (a - 1)*q^43 + (a - 1)*q^51 - 2*q^55 - 
        q^67 - a*q^71 + a*q^79 + q^83 + (a - 1)*q^87 - q^91 - a*q^95 - a*q^103 -
        a*q^111 + a*q^115 - q^119 + q^135 - q^139 + 2*a*q^143 - a*q^155 + 
        a*q^159 - a*q^163 + O(q^166)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
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(
12
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
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:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^9 - 1/3*q^11 + 1/3*(a - 1)*q^17 - 1/3*a*q^19 + 1/3*(a - 
        1)*q^25 + 2*q^27 + 2/3*a*q^33 - 2/3*q^35 - 5/3*q^41 + 1/3*(a + 1)*q^43 -
        1/3*a*q^49 - 4/3*q^51 + 1/3*(-4*a + 4)*q^57 - 1/3*q^59 + 2/3*q^65 + 
        a*q^67 + (-a + 1)*q^73 + 2/3*q^75 - a*q^81 - 4/3*a*q^83 - 1/3*a*q^89 - 
        2/3*a*q^91 - 1/3*q^97 + (-a + 1)*q^99 - 2/3*a*q^105 - 1/3*q^107 - 
        1/3*q^113 + 1/3*(2*a - 2)*q^115 - 2/3*q^121 - 2/3*a*q^123 + 1/3*(2*a + 
        2)*q^129 - 1/3*q^131 + 2/3*q^137 + a*q^139 - 2/3*q^145 + 1/3*(2*a - 
        2)*q^147 + a*q^153 + 1/3*(2*a - 2)*q^155 + 2/3*q^161 + (-a + 1)*q^163 + 
        O(q^166),
    q^2 - 1/3*q^8 - 1/3*a*q^10 - a*q^12 + 1/3*(a - 1)*q^14 + 2/3*q^16 + (a - 
        1)*q^18 - 2/3*a*q^20 - 1/3*q^22 - 4/3*a*q^24 + 1/3*(-a + 1)*q^26 + 
        1/3*(2*a - 2)*q^28 + 1/3*(-a + 1)*q^30 + q^32 + 1/3*(a - 1)*q^34 + (a - 
        1)*q^36 - 1/3*a*q^38 + 1/3*a*q^40 - 1/3*q^42 - 1/3*q^44 + 1/3*a*q^46 - 
        1/3*a*q^48 + 1/3*(a - 1)*q^50 + 1/3*(-2*a + 2)*q^52 + 2*q^54 + 1/3*(-a +
        1)*q^56 + 1/3*(a - 1)*q^58 + 1/3*(-2*a + 2)*q^60 + 1/3*a*q^62 + 
        2/3*a*q^66 + 1/3*(-2*a + 2)*q^68 - 2/3*q^70 + (a - 1)*q^72 + 1/3*a*q^74 
        + 2/3*a*q^76 + 1/3*q^78 + 2/3*a*q^80 - 5/3*q^82 - 2/3*q^84 + 1/3*(a + 
        1)*q^86 - 1/3*q^88 + 2/3*a*q^92 - 1/3*a*q^98 + 1/3*(a - 1)*q^100 - 
        4/3*q^102 + 1/3*(a - 1)*q^104 - 1/3*a*q^106 + q^108 + 1/3*(-2*a + 
        2)*q^112 + 1/3*(-4*a + 4)*q^114 + 1/3*(2*a - 2)*q^116 - 1/3*q^118 + 
        1/3*(a - 1)*q^120 + 1/3*(-a + 1)*q^122 + 2/3*a*q^124 - 1/3*q^128 + 
        2/3*q^130 + 2/3*a*q^132 + a*q^134 + (-a + 1)*q^136 + 1/3*(a - 1)*q^138 +
        1/3*q^140 + 1/3*(-a + 1)*q^142 + (a - 1)*q^144 + (-a + 1)*q^146 + 
        2/3*a*q^148 + 2/3*q^150 + a*q^152 + 2/3*q^156 + 1/3*(-a + 1)*q^158 - 
        1/3*a*q^160 - a*q^162 + 1/3*q^164 + O(q^166),
    q^3 - a*q^9 + 1/3*(-a + 1)*q^11 + 2/3*a*q^17 - 2/3*q^19 - 1/3*a*q^25 + (a - 
        1)*q^27 - 2/3*q^33 + 1/3*(a - 1)*q^35 + 1/3*(a - 1)*q^41 + 1/3*(-2*a + 
        1)*q^43 + 1/3*q^49 + 1/3*(-a + 1)*q^51 + 1/3*a*q^57 + 1/3*(-a + 1)*q^59 
        + 1/3*(-a + 1)*q^65 + 1/3*(2*a - 2)*q^75 + 2*q^81 + 1/3*q^83 - 2/3*q^89 
        - 1/3*q^91 + 1/3*(-a + 1)*q^97 + a*q^99 - 1/3*q^105 + 1/3*(-a + 1)*q^107
        + 1/3*(-a + 1)*q^113 + 1/3*a*q^115 + 1/3*(a - 1)*q^121 - 4/3*q^123 + 
        1/3*(2*a - 1)*q^129 + 1/3*(-a + 1)*q^131 + 1/3*(2*a - 2)*q^137 + 1/3*(a 
        - 1)*q^145 - 2/3*a*q^147 - q^153 + 1/3*a*q^155 + 1/3*(-a + 1)*q^161 + 
        O(q^166),
    q^4 + a*q^10 + a*q^12 + (-a + 1)*q^14 - q^16 + (a - 1)*q^26 + (a - 1)*q^30 -
        a*q^40 + q^42 - a*q^46 - a*q^48 + (a - 1)*q^56 + (-a + 1)*q^58 - a*q^62 
        + q^64 + (a - 1)*q^68 - a*q^74 - a*q^76 - q^78 + (-a + 1)*q^104 + 
        a*q^106 + q^108 + (-a + 1)*q^120 + (a - 1)*q^122 + (-a + 1)*q^138 - 
        q^140 + (a - 1)*q^142 + (a - 1)*q^158 + a*q^160 - 2*q^164 + O(q^166),
    q^5 - a*q^7 + a*q^13 + a*q^15 + (-a + 1)*q^21 - q^23 - a*q^29 - q^31 - q^37 
        + (a - 1)*q^39 + q^53 + a*q^61 - a*q^69 + a*q^71 + a*q^79 + (a - 1)*q^85
        + (-a + 1)*q^87 - a*q^93 - a*q^95 - a*q^101 + a*q^103 + q^109 - a*q^111 
        + q^119 + (a - 1)*q^125 + (-2*a + 2)*q^127 + (a - 1)*q^133 + q^135 - 
        q^149 + (-2*a + 2)*q^151 + a*q^157 + a*q^159 + O(q^166),
    q^6 + 1/3*(2*a - 2)*q^8 + 1/3*q^10 + q^12 - 1/3*a*q^14 + 1/3*(2*a - 2)*q^16 
        - a*q^18 - 1/3*q^20 + 1/3*(-a + 1)*q^22 + 1/3*q^24 + 1/3*a*q^26 + 
        1/3*a*q^28 + 1/3*a*q^30 + 2/3*a*q^34 - a*q^36 - 2/3*q^38 - 1/3*q^40 + 
        1/3*(-a + 1)*q^42 + 1/3*(-a + 1)*q^44 - 1/3*q^46 + 1/3*q^48 - 1/3*a*q^50
        - 1/3*a*q^52 + (a - 1)*q^54 + 1/3*a*q^56 - 1/3*a*q^58 - 1/3*a*q^60 - 
        1/3*q^62 - 2/3*q^66 + 2/3*a*q^68 + 1/3*(a - 1)*q^70 - a*q^72 - 1/3*q^74 
        - 2/3*q^76 + 1/3*(a - 1)*q^78 + 1/3*q^80 + 1/3*(a - 1)*q^82 + 1/3*(a - 
        1)*q^84 + 1/3*(-2*a + 1)*q^86 + 1/3*(-a + 1)*q^88 + 1/3*q^92 + q^96 + 
        1/3*q^98 - 1/3*a*q^100 + 1/3*(-a + 1)*q^102 - 1/3*a*q^104 + 1/3*q^106 + 
        (a - 1)*q^108 - 1/3*a*q^112 + 1/3*a*q^114 + 1/3*a*q^116 + 1/3*(-a + 
        1)*q^118 - 1/3*a*q^120 + 1/3*a*q^122 + 1/3*q^124 + 1/3*(2*a - 2)*q^128 +
        1/3*(-a + 1)*q^130 - 2/3*q^132 - 1/3*a*q^138 + 1/3*(a - 1)*q^140 + 
        1/3*a*q^142 - a*q^144 + 1/3*q^148 + 1/3*(2*a - 2)*q^150 + 1/3*(-a + 
        1)*q^156 + 1/3*a*q^158 + 1/3*q^160 + 2*q^162 + 1/3*(a - 1)*q^164 + 
        O(q^166)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^11 + q^15 - q^17 + q^21 - q^35 - q^47 - q^53 - q^59 + q^67 - q^79 - 
        q^87 - q^97 - q^101 + q^103 - q^107 - q^117 + q^127 + q^145 + q^165 + 
        O(q^166),
    q^3 - q^5 - q^7 + q^29 + q^33 + q^39 + q^45 - q^51 - q^55 + q^61 + q^63 - 
        q^65 - q^69 - q^73 - q^75 - q^77 + q^85 + q^89 - q^91 - q^93 - 2*q^105 +
        q^115 + q^119 + q^123 + q^129 - q^147 + q^151 + q^155 - q^159 + q^161 + 
        q^163 + O(q^166),
    q^9 - q^13 - q^15 - q^21 + q^23 + q^25 + q^31 + q^35 - q^41 - q^43 - q^47 + 
        q^49 - q^59 - q^79 + q^81 + q^83 + q^87 + q^99 - q^107 - q^109 + q^139 -
        q^143 - q^145 - q^153 - q^165 + O(q^166)
]
;
Bo:=
[
    q - q^11 - q^15 - q^17 + q^21 + q^35 + q^47 - q^53 + q^59 - q^67 + q^79 + 
        q^87 - q^97 - q^101 - q^103 + q^107 - q^117 - q^127 + q^145 + q^165 + 
        O(q^166),
    q^2 - q^22 - q^30 - q^34 + q^42 + q^70 + q^94 - q^106 + q^118 - q^134 + 
        q^158 + O(q^166),
    q^3 + q^5 - q^7 - q^29 - q^33 + q^39 - q^45 - q^51 - q^55 - q^61 + q^63 + 
        q^65 + q^69 + q^73 - q^75 + q^77 - q^85 - q^89 - q^91 + q^93 + 2*q^105 +
        q^115 + q^119 + q^123 - q^129 - q^147 + q^151 + q^155 - q^159 - q^161 + 
        q^163 + O(q^166),
    q^4 + q^36 - q^44 - q^52 - q^68 - q^92 + q^100 - q^124 - q^164 + O(q^166),
    q^6 + q^10 - q^14 - q^58 - q^66 + q^78 - q^90 - q^102 - q^110 - q^122 + 
        q^126 + q^130 + q^138 + q^146 - q^150 + q^154 + O(q^166),
    q^9 - q^13 + q^15 - q^21 - q^23 + q^25 - q^31 - q^35 - q^41 + q^43 + q^47 + 
        q^49 + q^59 + q^79 + q^81 - q^83 - q^87 - q^99 + q^107 - q^109 - q^139 +
        q^143 - q^145 - q^153 - q^165 + O(q^166),
    q^18 - q^26 + q^30 - q^42 - q^46 + q^50 - q^62 - q^70 - q^82 + q^86 + q^94 +
        q^98 + q^118 + q^158 + q^162 + O(q^166)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
688
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 21*H.3
;
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(
688
);
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:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^15 - q^23 + q^25 - q^41 + q^49 - q^57 - q^79 + q^87 + 2*q^95 - q^97 - 
        q^103 + q^111 + q^121 + q^135 - q^145 - q^153 + O(q^166),
    q^2 + q^8 - q^20 - q^30 + q^32 - q^46 + q^50 - q^76 - q^80 - q^82 + q^98 - 
        q^108 - q^114 - q^120 + q^128 - q^158 + O(q^166),
    q^3 + q^27 + q^29 + q^37 - q^43 - q^45 - 2*q^51 - 2*q^61 + q^69 - q^75 + 
        q^85 - 2*q^93 - q^115 + q^123 + q^125 + q^131 - 2*q^141 + q^147 + q^149 
        + q^155 + O(q^166),
    q^4 - q^10 + q^16 - q^38 - q^40 - q^54 - q^60 + q^64 + q^86 + q^90 - q^92 + 
        q^100 + q^102 + 2*q^122 - q^138 + q^150 - q^152 - q^160 - q^164 + 
        O(q^166),
    q^5 + q^19 + q^27 - q^43 - q^45 - q^51 - 2*q^61 + q^69 - q^75 + q^85 - q^93 
        - 2*q^115 + q^123 + q^125 - q^141 + q^155 + q^157 + q^163 + O(q^166),
    q^6 - q^10 + q^24 - q^36 - q^38 - q^40 + q^58 + q^68 + q^74 - q^92 + q^96 + 
        q^100 - q^102 + q^124 - q^144 - q^152 - q^160 - q^164 + O(q^166),
    q^9 - q^17 + q^23 - q^25 - q^31 + q^41 - q^47 + q^79 + q^87 - q^95 + q^97 + 
        q^103 + q^111 - q^127 - q^129 - q^135 - q^153 + O(q^166),
    q^12 - q^18 - q^20 + q^34 - q^46 + q^48 + q^50 + q^62 - q^72 - q^76 - q^80 -
        q^82 + q^94 + q^116 + q^136 + q^148 - q^158 + O(q^166)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
689
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
689
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
689
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
689
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
689
);
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(
156
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
689
);
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(
52
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
689
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
689
);
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(
52
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
689
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
689
);
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(
52
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
689
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
689
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
689
);
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(
12
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
689
);
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(
4
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a + 1)*q^3 + a*q^4 + a*q^9 + (a - 1)*q^12 - q^13 - q^16 - 2*a*q^17 + 
        (-a + 1)*q^23 - a*q^25 + 2*a*q^29 - q^36 + (-a - 1)*q^39 + 2*a*q^43 + 
        (-a - 1)*q^48 - q^49 + (-2*a + 2)*q^51 - a*q^52 + q^53 + (a - 1)*q^61 - 
        a*q^64 + 2*q^68 + 2*q^69 + (-a + 1)*q^75 + (-a - 1)*q^79 + q^81 + (2*a -
        2)*q^87 + (a + 1)*q^92 + q^100 + (-a - 1)*q^101 + (-a + 1)*q^103 - 
        2*q^116 - a*q^117 - q^121 + O(q^124)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
689
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
689
);
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(
4
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + (a - 1)*q^7 + q^9 + (-a + 1)*q^11 - q^13 - q^16 + 2*a*q^17 + 
        a*q^25 + (-a - 1)*q^28 + a*q^36 + (-a + 1)*q^37 - 2*a*q^43 + (a + 
        1)*q^44 + (-a + 1)*q^47 - a*q^49 - a*q^52 - q^53 + (-a + 1)*q^59 + (a - 
        1)*q^63 - a*q^64 - 2*q^68 + 2*a*q^77 + q^81 + (a - 1)*q^89 + (-a + 
        1)*q^91 + (-a - 1)*q^97 + (-a + 1)*q^99 - q^100 + (-a + 1)*q^112 + 
        2*q^113 - q^117 + (-2*a - 2)*q^119 - a*q^121 + O(q^124)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
690
);
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(
690
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
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(
690
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
690
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
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(
690
);
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(
44
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
690
);
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(
22
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
690
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
690
);
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(
44
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
690
);
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(
22
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^9 + a^7 + a^5 + a^3 - 1)*q^6 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^9 + (-a^9 + a^8 + a^6 + a^4 + a^2 + 1)*q^10 + 
        a^6*q^15 - a^8*q^16 + (-a^7 - a)*q^19 + (-a^9 - a^7 + a^4 + a^2 + 
        1)*q^24 + a^2*q^25 + (-a^9 - a^3)*q^31 + (2*a^9 + a^7 - a^6 + a^5 - a^4 
        + a^3 - a^2 + a - 1)*q^34 + (-a^9 - a^7 - a^5 - a^3 + 1)*q^40 + (a^9 + 
        a^7 - a^4 - a^2 - 1)*q^46 - a^5*q^49 + (a^8 - a^5)*q^51 + (-a^9 - a^7 - 
        a^5 - a^3 - a + 1)*q^54 + (a^8 + a^4)*q^61 + (-a^2 - 1)*q^64 - a^3*q^69 
        + (a^4 + a^2)*q^79 - a^9*q^81 + (a^4 - a)*q^85 + (a^9 - a^6 - a^4 - a^2 
        - 1)*q^90 + (a^9 - a^8 + a^7 - a^6 - 2*a^4 - 2*a^2 - 2)*q^94 + (-a^7 - 
        a^5 - a^3 - a)*q^96 + (-2*a^9 - 2*a^7 + a^6 - a^5 + a^4 - a^3 + 2*a^2 + 
        2)*q^106 + (a^8 + a^6)*q^109 + (-2*a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - 
        a^3 + 2*a^2 + 2)*q^114 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 
        + a - 1)*q^115 - a^7*q^121 - a^5*q^135 + (a^3 + a^2 + a)*q^136 + (-a^9 +
        a^2)*q^139 + (-a^7 - a^3)*q^141 + a^7*q^144 + (a^9 + a^7 + a^5 - a^2 - 
        1)*q^150 + (a^9 - a^8 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^151 + 
        (a^4 + 1)*q^159 + (a^9 + a^7 - a^6 + a^5 - a^4 - a^2 - 1)*q^160 - 
        a*q^166 + a^6*q^169 + (a^6 + 1)*q^171 + (-a^9 - a)*q^181 + (a^8 + a^6 + 
        a^4 + a^2 + 1)*q^184 + (a^4 + a^3 + a^2 + a + 1)*q^186 + (-a^9 - a^8 - 
        a^7 - a^6 - a^5)*q^190 + (-a + 1)*q^199 + (a^8 + 1)*q^211 + (2*a^9 + 
        2*a^7 + 2*a^5 + a^3 - a^2 - 2)*q^214 + (a^9 + a^7 + a^5 - a^4 - a^2 - 
        1)*q^216 - a*q^225 + a^4*q^226 + (a^6 - a^5)*q^229 + (a^9 - a^8 + a^7 - 
        a^6 + a^5 - a^4 - a^2 + a - 1)*q^235 + a^3*q^240 + (-a^5 + a^2)*q^241 + 
        (-a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^249 + (a^9 + a^7 + 
        a^5 + a^3 + a)*q^250 + (a^7 + a^5 + a^3)*q^256 + (-a^7 + 1)*q^265 + (a^9
        - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^271 + O(q^274),
    q^2 + (-a^5 + a^4 - a^3)*q^8 + (a^2 - a)*q^12 + (a^9 - a^8 + a^7 - a^6 + a^5
        - a^4 + a^3 - a^2 + a - 1)*q^18 + (-a^9 + a^8)*q^20 + a^6*q^30 + (a^5 - 
        a^4 + a^3 - a^2 + a - 1)*q^32 + (-a^7 - a)*q^38 + (-a^7 + a^6 - a^5 + 
        a^4)*q^48 + a^2*q^50 + (-a^9 - a^3)*q^62 + (a^9 - a^6 + a^5 - a^4 + a^3 
        - a^2 + a)*q^68 + (a^4 - a^3 + a^2)*q^72 + (-a^3 + a^2 - a + 1)*q^80 + 
        (a^6 - a^5)*q^92 - a^5*q^98 + (a^8 - a^5)*q^102 + (-a + 1)*q^108 + (-a^8
        + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a)*q^120 + (a^8 + a^4)*q^122 + 
        (-a^8 + a^7 - a^6 + a^5)*q^128 - a^3*q^138 + (a^9 - a^8 + a^7 + a^3 - 
        a^2)*q^152 + (a^4 + a^2)*q^158 - a^9*q^162 + (a^4 - a)*q^170 + (a^8 - 
        a^7)*q^180 + (-a^8 + a^7 - a^4 + a^3 - a^2 + a - 1)*q^188 + (-a^6 + a^5 
        - a^4 + a^3 - a^2)*q^192 + (-a^7 + a^6 - a^5)*q^200 + (-a^7 + a^6 - a^3 
        + a^2)*q^212 + (a^8 + a^6)*q^218 + (-a^9 + a^8 - a^3 + a^2)*q^228 + (a^9
        - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^230 - a^7*q^242 + 
        (a^8 - a^7 + a^6 - a^3 + a^2 - a)*q^248 - a^5*q^270 + (a^9 - a^8 + a^7 -
        a^6 + a^2)*q^272 + O(q^274),
    q^3 - a^7*q^5 + (a^7 - a^6)*q^8 - a^4*q^12 + (-a^9 + a^6)*q^17 - q^20 + 
        a^4*q^23 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^27 
        + (a^8 - a^7 + a^6 - a^5 + a^4 - a^3 + a^2)*q^32 + a^6*q^45 + (a^8 + 
        a^4)*q^47 + (a^9 - a^8 + a^7)*q^48 + (-a^5 - a)*q^53 + (-a^7 - a)*q^57 +
        (-a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - a^3 - a + 1)*q^68 + (-a^6 + 
        a^5)*q^72 + a^2*q^75 + (a^5 - a^4 + a^3)*q^80 + (a^9 - a^8 + a^7 - a^6 +
        a^5 - a^4 + a^3 - a^2 + a)*q^83 - a^8*q^92 + (-a^9 - a^3)*q^93 + (a^8 - 
        a^3)*q^95 + (a^2 + 1)*q^107 + a^3*q^108 + (-a^3 + a^2)*q^113 + (-a^2 + 
        a)*q^120 - a^9*q^125 + (-a^6 + a^5 - a^4 + a^3 - a^2 + a)*q^128 + (-a^7 
        - a^5)*q^137 - a^5*q^147 + (-a^8 + a^7 + a^3 - a^2)*q^152 + (a^8 - 
        a^5)*q^153 + (a^9 - a^8 + a^7 - a^6 - a^4 + a^3 - a^2 + a - 1)*q^155 + 
        (-a^3 - a)*q^167 + (a^6 + a^2)*q^173 + (-a^9 + a^8 - a^7 + a^6 - a^5 + 
        a^4 - a^3 + a^2 - a + 1)*q^180 + (a^8 + a^4)*q^183 + (-a^8 + a)*q^188 + 
        (-a^9 + a^8 - a^7 + a^6 - a^5 + a^4)*q^192 + (a^9 + a^7 - a^6 + a^5 - 
        a^4 + a^3 - a^2 + a - 1)*q^197 + (a^9 - a^8)*q^200 - a^3*q^207 + (a^9 + 
        a^5)*q^212 + (-a^9 + a^2)*q^227 + (a^5 - 1)*q^228 + (a^9 - a^8 + a^7 - 
        a^6 + a^5 - a^4 + a^3 - a^2 - 1)*q^233 + (a^4 + a^2)*q^237 - a^9*q^243 -
        a*q^245 + (a^8 - a^7 + a^6 - a^3 + a^2 - a + 1)*q^248 + (a^4 - a)*q^255 
        + (a^6 - a^3)*q^257 + (a^6 - a)*q^263 + (a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2)*q^272 + O(q^274),
    q^4 + (-a^9 + a^8 + a^6 + a^4 + a^2 + 1)*q^6 + (-a^9 - a^7 - a^5 + a^4 + a^2
        + 1)*q^10 + (-a^5 - a^3)*q^16 + (-a^9 - a^7 - a^5 - a^3 + a^2 - a + 
        1)*q^24 + (a^6 + a^5 + a^4)*q^34 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^36 + (-a^6 - a^4 - a^2 - 1)*q^40 + (a^9 + a^7 + a^5
        + a^3 - 1)*q^46 + (a^9 - a^6 - a^4 - a^2 - 1)*q^54 + a^6*q^60 + (a^9 + 
        a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^64 + (-a^7 - a)*q^76 + (a^9 + a^7
        + a^5 - a^2 - 1)*q^90 + (2*a^9 + 2*a^7 + a^5 - a^4 + a^3 - a^2 - 2)*q^94
        + (a^9 - a^2 - 1)*q^96 + a^2*q^100 + (-a^9 - a^8 - a^7 - a^6 - a^5 - a^4
        - a^3)*q^106 + (-a^9 - a^8 - a^7 - a^6 - a^5)*q^114 + (-a^9 - a^3)*q^124
        + (-a^9 - a^7 + 1)*q^136 + (a^4 + a^2)*q^144 + (a^9 + a^7 + a^5 + a^3 + 
        a)*q^150 + (a^9 + a^7 + a^5)*q^160 + a^8*q^166 + (-a^9 - a^7 + a^6 - a^5
        + a^4 + a^2 + 1)*q^184 + (-2*a^9 - 2*a^7 + a^6 - a^5 + a^4 - a^3 + a^2 -
        a + 2)*q^186 + (-a^5 - a^4 - a^3 - a^2 - a)*q^190 - a^5*q^196 + (a^8 - 
        a^5)*q^204 + (a^8 + a^7 + a^6 + a^5 + a^4 + a^3 + a^2 + a + 1)*q^214 + 
        (a^9 + a^7 + a^5 + a^3)*q^216 + q^226 + (-a^9 + 1)*q^240 + (a^8 + 
        a^4)*q^244 + (-a^9 - a^7 + a^6 + a^4 + a^2 + 1)*q^250 + (-a^9 + a^4 + 
        a^2 + 1)*q^256 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
690
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
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 + O(q^274),
    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 + 
        O(q^274),
    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 + O(q^274),
    q^5 - q^20 + q^40 - q^45 - q^65 + q^115 + q^125 + q^135 - q^145 - q^155 - 
        q^160 + q^180 - q^205 - q^235 + q^245 + q^260 + O(q^274),
    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 + O(q^274),
    q^10 - q^20 + q^80 - q^90 - q^130 - q^160 + q^180 + q^230 + q^250 + q^260 + 
        q^270 + O(q^274),
    q^15 - q^45 - q^60 + q^120 + q^180 - q^195 + O(q^274),
    q^30 - q^60 - q^90 + q^180 + q^240 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
690
);
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(
4
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
690
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 11*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(
691
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
690
);
qprec:=
115
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
691
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
230
);
qprec:=
115
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
691
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
115
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
691
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
115
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
691
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
23*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
115
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
691
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
69*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
115
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
691
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
115*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
115
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
691
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
345*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
115
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 - q^7 + q^9 + q^16 - q^28 - q^29 - q^35 + q^36 - q^47 + q^49 - q^59 
        - q^63 + q^64 - q^79 + q^81 - q^97 - q^101 - q^112 - q^113 + O(q^115),
    q^5 - q^7 + q^20 - q^25 - q^28 - q^29 + q^37 + q^43 + q^45 - q^47 + q^49 - 
        q^59 + q^61 - q^63 + q^71 - q^79 + q^80 + q^89 - q^97 - q^100 - q^101 + 
        q^103 - q^112 - q^113 + O(q^115)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
692
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
692
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
172
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
692
);
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(
86
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
692
);
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(
86
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + a^2*q^4 + (a^20 - a^15)*q^5 - a^3*q^8 - a^11*q^9 + (-a^21 + 
        a^16)*q^10 + (-a^37 + a^8)*q^13 + a^4*q^16 + (-a^33 - a^27)*q^17 + 
        a^12*q^18 + (a^22 - a^17)*q^20 + (a^40 - a^35 + a^30)*q^25 + (a^38 - 
        a^9)*q^26 + (a^24 + a^6)*q^29 - a^5*q^32 + (a^34 + a^28)*q^34 - 
        a^13*q^36 + (-a^41 - a^25)*q^37 + (-a^23 + a^18)*q^40 + (a^32 - 
        a^29)*q^41 + (-a^31 + a^26)*q^45 + a^18*q^49 + (-a^41 + a^36 - 
        a^31)*q^50 + (-a^39 + a^10)*q^52 + (-a^39 - a^13)*q^53 + (-a^25 - 
        a^7)*q^58 + (-a^19 - a^7)*q^61 + a^6*q^64 + (a^28 - a^23 + a^14 - 
        a^9)*q^65 + (-a^35 - a^29)*q^68 + a^14*q^72 + (a^38 + a^36)*q^73 + (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^74 + (a^24 - 
        a^19)*q^80 + a^22*q^81 + (-a^33 + a^30)*q^82 + (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^13 - a^12 + a^11 + a^9 - a^8 + a^7 
        - a^6 + a^3 - a^2 + a - 1)*q^85 + (a^41 - a^40 + a^39 - a^38 + a^37 - 
        a^36 + a^35 + 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^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^89 + (a^32 - a^27)*q^90 + (-a^17 + a^10)*q^97
        - a^19*q^98 + (a^41 - a^40 + a^39 - a^38 - 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^100 + (a^16 + a^12)*q^101 + (a^40 - a^11)*q^104 + (a^40 + 
        a^14)*q^106 + (a^34 - a^21)*q^109 + (a^36 + a^14)*q^113 + (a^26 + 
        a^8)*q^116 + (-a^19 - a^5)*q^117 - a^3*q^121 + (a^20 + a^8)*q^122 + 
        (-a^17 + a^12 - a^7 + a^2)*q^125 - a^7*q^128 + (-a^29 + a^24 - a^15 + 
        a^10)*q^130 + (a^36 + a^30)*q^136 + (-a^23 - a^3)*q^137 - a^15*q^144 + 
        (-a^39 + a^26 - a^21 - a)*q^145 + (-a^39 - a^37)*q^146 + (-a^27 + 
        1)*q^148 + (a^32 + a^28)*q^149 + (a^38 - a)*q^153 + (-a^29 + a^22)*q^157
        + (-a^25 + a^20)*q^160 - a^23*q^162 + (a^34 - a^31)*q^164 + (-a^31 + 
        a^16 + a^2)*q^169 + O(q^170)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
692
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
692
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 86*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^21 - q^22 + q^25 - q^38 - q^41 + q^49 + q^64 - q^73 - 
        q^77 - q^78 - q^84 - q^88 + q^100 - q^109 - q^117 + q^121 - q^126 - 
        q^133 - q^152 - q^164 + q^169 + O(q^170),
    q^2 + q^8 - q^11 - q^19 + q^32 - q^39 - q^42 - q^44 + q^50 - q^63 - q^76 - 
        q^82 + q^87 + 2*q^91 + q^98 + q^99 - q^103 + q^111 + 2*q^127 + q^128 - 
        q^143 - q^146 + q^147 - q^154 - q^156 - q^168 + O(q^170),
    q^3 - q^11 + q^12 - q^18 - q^19 + q^27 - q^39 - q^42 - q^44 + q^48 + q^58 + 
        q^59 + q^66 - q^72 + q^74 + q^75 - q^76 + q^79 - q^82 - q^87 + q^91 + 
        q^98 - q^99 - q^103 + q^108 - q^111 + q^114 + q^123 - q^146 - q^156 - 
        q^162 - q^168 + O(q^170),
    q^6 - q^13 - q^14 - q^21 + q^24 + q^29 + q^37 + q^49 - q^52 - q^56 + q^77 - 
        q^78 - q^81 - q^84 + q^89 + q^96 - q^113 + q^116 + q^118 - q^121 + q^133
        - q^137 - q^142 + q^148 - q^149 + q^150 - q^157 + q^158 + q^169 + 
        O(q^170),
    q^7 - q^11 - q^18 - q^19 + q^26 + q^27 + q^28 - q^44 + q^66 + q^71 - q^72 - 
        q^76 - q^82 - q^87 - q^103 + q^104 + q^107 + q^108 - q^111 + q^112 + 
        q^114 + q^123 + q^131 - q^143 - q^146 - q^147 - q^154 + O(q^170),
    q^9 - q^13 - q^14 + q^22 - q^33 + q^36 + q^38 + q^41 - q^52 - q^54 - q^56 - 
        q^57 + q^73 + q^77 + q^88 + q^109 - q^113 - q^121 - q^132 + q^133 - 
        q^137 - q^142 + q^144 - q^149 + q^152 - q^157 + q^164 + O(q^170)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*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(
693
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
178
;
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 + O(q^178),
    q^11 - q^44 - q^77 + q^176 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
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(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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(
30
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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(
30
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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(
30
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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(
10
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/5*(4*a^3 - 3*a^2 + 2*a - 1)*q^7 + (a^3 + a)*q^16 + 1/5*(a^3 - 2*a^2 + 
        3*a - 4)*q^22 + (-a^3 + a^2 - a + 1)*q^25 + 1/5*(4*a^3 - 3*a^2 + 2*a - 
        6)*q^28 + (-a^2 + a - 1)*q^37 + 1/5*(-2*a^3 + 4*a^2 - 6*a + 3)*q^43 + 
        1/5*(-3*a^3 + 6*a^2 - 4*a + 2)*q^46 - a^2*q^49 - a^3*q^64 + (-a^3 + 
        a^2)*q^67 + (-a - 1)*q^79 + (-a^3 + a^2 - a + 1)*q^88 + 1/5*(2*a^3 + a^2
        + a - 3)*q^106 + 1/5*(-3*a^3 + a^2 - 4*a + 2)*q^109 + 1/5*(a^3 - 2*a^2 +
        3*a + 1)*q^112 + 1/5*(a^3 - 2*a^2 - 2*a + 1)*q^121 + (a^3 - a)*q^127 + 
        1/5*(-2*a^3 - 6*a^2 + 4*a - 2)*q^142 + (-a^3 - a)*q^148 + 1/5*(2*a^3 + 
        a^2 + a + 2)*q^151 + 1/5*(-a^3 + 2*a^2 + 2*a - 1)*q^154 + (a^3 + a - 
        1)*q^163 + a*q^169 + 1/5*(-2*a^3 - a^2 - a + 3)*q^172 + 1/5*(a^3 + 3*a^2
        - 2*a + 1)*q^175 + O(q^178),
    q^2 + (-a^3 + a^2 + 1)*q^11 + (2*a^3 - a^2 - 2)*q^23 + (-2*a^3 - a + 1)*q^29
        + (a^3 + a^2 + a)*q^32 + (a^3 + a)*q^44 + (-a^3 + a^2 - a + 1)*q^50 + 
        (-2*a^3 - 2*a + 1)*q^53 + (a^3 - a^2 + a - 2)*q^56 + (a^2 + a)*q^71 + 
        (a^3 - 1)*q^77 + (a^3 - 2*a^2 - 2)*q^92 - a^2*q^98 + (-2*a^2 - 2)*q^107 
        + (2*a^3 - a^2 + a - 1)*q^113 + (-2*a^3 + 2)*q^116 + (-a^3 + a^2)*q^134 
        + (2*a^3 - a^2 + a - 2)*q^149 + (-a - 1)*q^158 + (-2*a^3 - 2*a + 
        2)*q^161 + (a^2 + 1)*q^176 + O(q^178),
    q^4 + 1/5*(a^3 + 3*a^2 - 2*a + 1)*q^7 - a*q^16 + 1/5*(-a^3 - 3*a^2 + 2*a - 
        1)*q^22 + 1/5*(-4*a^3 + 3*a^2 - 2*a + 1)*q^28 + (a^3 - a^2)*q^37 + 
        1/5*(-3*a^3 + a^2 + a - 3)*q^43 + 1/5*(-2*a^3 - a^2 + 4*a - 2)*q^46 + (a
        - 1)*q^58 + (a^3 + a)*q^64 + (a^3 - a^2 + a - 1)*q^88 + (-a^3 + a^2 - a 
        + 1)*q^100 + 1/5*(-2*a^3 + 4*a^2 - 6*a + 3)*q^106 + 1/5*(-2*a^3 - a^2 - 
        a - 2)*q^109 + 1/5*(4*a^3 - 3*a^2 + 2*a - 6)*q^112 + 1/5*(-a^3 + 2*a^2 -
        3*a - 1)*q^121 + 1/5*(2*a^3 + a^2 + a + 2)*q^142 + (a^2 - a + 1)*q^148 +
        1/5*(-2*a^3 + 4*a^2 - a + 3)*q^151 + 1/5*(a^3 - 2*a^2 - 2*a + 1)*q^154 +
        1/5*(2*a^3 - 4*a^2 + 6*a - 3)*q^172 + 1/5*(-a^3 + 2*a^2 + 2*a - 1)*q^175
        + O(q^178),
    q^8 + 1/5*(-3*a^3 + a^2 + a + 2)*q^11 + 1/5*(a^3 + 3*a^2 - 2*a + 1)*q^14 + 
        1/5*(4*a^3 + 2*a^2 + 2*a - 6)*q^23 + (-a^3 - a)*q^29 + 1/5*(-3*a^3 + a^2
        + a + 2)*q^44 + 1/5*(-a^3 - 3*a^2 - 3*a - 1)*q^53 + 1/5*(a^3 - 2*a^2 + 
        3*a + 1)*q^71 + (a^3 - a^2)*q^74 + 1/5*(3*a^3 - a^2 + 4*a - 2)*q^77 + 
        1/5*(-3*a^3 + a^2 + a - 3)*q^86 + 1/5*(4*a^3 - 3*a^2 + 2*a - 6)*q^92 + 
        (a^3 - a^2 - 1)*q^107 + 1/5*(a^3 + 3*a^2 - 2*a + 1)*q^113 - a^3*q^116 + 
        (a^3 + a)*q^128 + 1/5*(a^3 - 2*a^2 + 3*a + 1)*q^137 + a^3*q^149 + (-a^3 
        - a)*q^161 + 1/5*(3*a^3 - a^2 + 4*a - 2)*q^176 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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(
30
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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(
30
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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(
30
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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(
30
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^3 - a^2 + a)*q^7 + (-a^3 - a + 1)*q^8 + 1/5*(-3*a^3 + a^2 + a + 
        2)*q^11 + a^3*q^14 + (a^2 - a)*q^16 + (-a^2 + a)*q^22 - a^3*q^25 + (-a^3
        + a^2 - a + 1)*q^28 + a^2*q^29 + (-a^3 + 2*a^2 - a)*q^37 - q^43 + 
        1/5*(3*a^3 - a^2 - a - 2)*q^44 - a*q^46 + (a^3 - a^2 + a - 1)*q^49 + 
        (-a^2 - 1)*q^53 + (2*a - 2)*q^58 - a*q^64 + (a^3 - a^2 - 1)*q^67 + (a^3 
        - a^2 + a - 1)*q^71 + (a - 1)*q^74 + 1/5*(-2*a^3 + 4*a^2 - a + 3)*q^77 +
        (a^2 + 1)*q^79 + (-a^2 - 1)*q^86 - a^3*q^88 + (a^3 + a)*q^92 + (a^3 - 
        2*a^2 + a)*q^106 + a^3*q^107 + (a^3 - a^2 + 1)*q^109 + (a^2 - a + 
        1)*q^112 - a^3*q^113 + (-a^3 + 1)*q^116 + (-a + 1)*q^121 + (a^2 - 
        a)*q^127 + a^2*q^128 + (-a^3 + a^2 - a + 1)*q^137 + (2*a^3 - 
        2*a^2)*q^142 + (-a^2 + a)*q^148 + (-a^3 + 1)*q^149 + (-a^3 + a - 
        1)*q^151 + (a - 1)*q^154 - a^2*q^161 + (-a^2 + a - 1)*q^163 + a^2*q^169 
        + (a^3 + a)*q^172 + (-a^3 + a^2)*q^175 + 1/5*(2*a^3 - 4*a^2 + a - 
        3)*q^176 + O(q^178),
    q^2 + (a^3 + a)*q^8 + 1/5*(-a^3 + 2*a^2 - 3*a - 1)*q^11 - a^2*q^14 + (a^3 - 
        a^2 + a - 1)*q^23 + (a^2 - a + 1)*q^29 + (a^3 - 1)*q^32 + 1/5*(-4*a^3 - 
        2*a^2 - 2*a + 1)*q^44 - a^3*q^50 + (-a^3 + a^2)*q^53 + (-a^3 + 1)*q^56 +
        (a - 1)*q^71 + (-a^3 + a^2 - a)*q^74 + 1/5*(a^3 + 3*a^2 - 2*a + 1)*q^77 
        + (-a^3 + a^2 + 1)*q^86 + (-a^2 - a - 1)*q^92 + (a^3 - a^2 + a - 1)*q^98
        - a^2*q^107 + (-a^3 + a^2 - a)*q^113 + (a^3 + a - 1)*q^116 - a*q^128 + 
        (a^3 - a^2 - 1)*q^134 + a^3*q^137 + (a^2 + 1)*q^158 + a*q^161 + 
        1/5*(-6*a^3 + 2*a^2 + 2*a + 4)*q^176 + O(q^178),
    q^4 + (a^3 - a^2)*q^7 + (a^2 - a + 1)*q^8 + 1/5*(2*a^3 - 4*a^2 + 6*a - 
        3)*q^11 + (a^2 - 2*a + 1)*q^14 + a^2*q^16 + (a^3 - a^2)*q^22 + (-a^3 + 
        a^2 - a)*q^28 + (-a^3 + a^2 - 1)*q^29 + (-a^3 + a^2 - 1)*q^37 - a^3*q^43
        + 1/5*(-2*a^3 + 4*a^2 - 6*a + 3)*q^44 + (a^3 - a^2 + a - 1)*q^46 + (-a^2
        + a)*q^53 + (-a^2 + 2*a - 1)*q^58 + (a^2 - a)*q^64 + (a^3 - 2*a^2 + 
        a)*q^71 + (-2*a^2 + 3*a - 2)*q^74 + 1/5*(-2*a^3 + 4*a^2 - a - 2)*q^77 + 
        (-a^2 + a)*q^86 - a^3*q^88 + (a^3 - a^2)*q^92 - a^3*q^100 + q^106 + (a^2
        - 2*a + 1)*q^107 + (a^3 - a + 1)*q^109 + (-a^3 + a^2 - a + 1)*q^112 + 
        (-a^2 + 2*a - 1)*q^113 + (a^3 - a^2 + a)*q^116 + (a^2 - a + 1)*q^121 + 
        (-a^3 + a^2 - 1)*q^128 + (-a^3 + 2*a^2 - a)*q^137 + (a^3 - a + 1)*q^142 
        + (a^3 - 2*a^2 + a)*q^148 + (a^3 - a^2 + a)*q^149 + (-a^2 + 2*a - 
        1)*q^151 + (a - 1)*q^154 + (a^3 - a^2 + 1)*q^161 + q^172 + (a - 1)*q^175
        + 1/5*(2*a^3 - 4*a^2 + a + 2)*q^176 + O(q^178)
]
;
Bo:=
[
    q + (-a^2 + a - 1)*q^2 + (-a^3 + a^2 - a)*q^4 + a^2*q^7 + a^3*q^8 + (a^3 - 
        a^2 + a - 1)*q^11 + (-a + 1)*q^14 + (-a^3 + a^2)*q^22 + (-a^3 + 
        a^2)*q^23 - a^3*q^25 + (-a^2 + a)*q^28 + (-a^3 - a)*q^29 + q^32 + (a^3 -
        a^2 + a)*q^37 + (a^3 - a^2 - 1)*q^43 + (a^2 - a + 1)*q^44 + (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^2 + a - 1)*q^64 + (a^3 - a^2 - 1)*q^67 + (-a^3 + 
        1)*q^71 + (-a^3 + a - 1)*q^74 - a*q^77 + (a^2 + 1)*q^79 + a*q^86 - 
        a^2*q^88 + (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^3*q^121 + (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 + (a^3 - a^2 + a)*q^154 - a^2*q^158 + (a^3 - a^2 + a)*q^161 + 
        (-a^2 + a - 1)*q^163 + a^2*q^169 + a^2*q^172 + q^175 + O(q^178),
    q^3 + (-a^2 + a - 1)*q^6 + (-a^3 + a^2 - a)*q^12 + a^2*q^21 + a^3*q^24 - 
        a*q^27 + (a^3 - a^2 + a - 1)*q^33 + (-a + 1)*q^42 + (a^3 - a^2 + a)*q^54
        + (-a^3 + a^2)*q^66 + (-a^3 + a^2)*q^69 - a^3*q^75 + (-a^2 + a)*q^84 + 
        (-a^3 - a)*q^87 + q^96 + (a - 1)*q^108 + (a^3 - a^2 + a)*q^111 + (a^3 - 
        a^2 - 1)*q^129 + (a^2 - a + 1)*q^132 + (a^2 - 2*a + 1)*q^138 + (a^3 - 
        a^2 + a - 1)*q^147 + (a^2 - a)*q^150 + (a^2 + 1)*q^159 - q^168 + 
        a^3*q^174 + O(q^178),
    q^9 + (-a^2 + a - 1)*q^18 + (-a^3 + a^2 - a)*q^36 + a^2*q^63 + a^3*q^72 - 
        a*q^81 + (a^3 - a^2 + a - 1)*q^99 + (-a + 1)*q^126 + (a^3 - a^2 + 
        a)*q^162 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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(
30
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3
;
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(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^3 + (a - 1)*q^4 + (-a + 1)*q^5 - a*q^9 - a*q^11 - a*q^12 + 
        a*q^15 - a*q^16 + a*q^20 + (2*a - 2)*q^23 + q^27 + (-a + 1)*q^31 + q^33 
        + q^36 - q^37 + q^44 - q^45 + a*q^47 + q^48 + (a - 1)*q^49 - q^53 - q^55
        + (-a + 1)*q^59 - q^60 + q^64 + (-a + 1)*q^67 - 2*a*q^69 - q^71 - q^80 +
        (a - 1)*q^81 + 2*q^89 - 2*a*q^92 + a*q^93 + a*q^97 + (a - 1)*q^99 + (-a 
        + 1)*q^103 + (a - 1)*q^108 + (-a + 1)*q^111 + (-a + 1)*q^113 + 2*a*q^115
        + (a - 1)*q^121 + a*q^124 + q^125 + (a - 1)*q^132 + (-a + 1)*q^135 + 
        a*q^137 - q^141 + (a - 1)*q^144 - a*q^147 + (-a + 1)*q^148 - a*q^155 + 
        (-a + 1)*q^157 + (-a + 1)*q^159 - q^163 + (-a + 1)*q^165 - a*q^169 + (a 
        - 1)*q^176 + a*q^177 + O(q^178),
    q^7 + (a - 1)*q^21 + (a - 1)*q^28 + (-a + 1)*q^35 - a*q^63 - a*q^77 - a*q^84
        + a*q^105 - a*q^112 + a*q^140 + (2*a - 2)*q^161 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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(
6
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1 + H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^3 - a*q^9 + (a - 1)*q^11 + (a - 1)*q^14 - q^16 + (-a + 
        1)*q^25 + (-a + 1)*q^26 - q^27 + q^31 + a*q^33 + a*q^34 + (a - 1)*q^37 +
        (-a + 1)*q^38 + a*q^42 - q^47 + (a - 1)*q^48 + a*q^49 - a*q^53 + (a - 
        1)*q^56 - a*q^58 + q^59 - q^64 - q^67 - a*q^75 - a*q^78 + (a - 1)*q^81 +
        (-a + 1)*q^82 + a*q^86 + (a - 1)*q^89 - a*q^91 + (-a + 1)*q^93 + a*q^97 
        + q^99 + q^102 + (-a + 1)*q^104 + a*q^111 + (-a + 1)*q^113 - a*q^114 + 
        q^119 - a*q^121 + q^122 + q^126 - a*q^133 + a*q^136 + (a - 1)*q^141 + 
        a*q^144 - a*q^146 + q^147 + (-a + 1)*q^152 - a*q^154 - q^157 - q^158 - 
        q^159 + (a - 1)*q^163 + a*q^166 + a*q^168 - q^174 + (-a + 1)*q^176 + (-a
        + 1)*q^177 + O(q^178),
    q^2 + (-a + 1)*q^6 + (-a + 1)*q^7 + q^8 + (a - 1)*q^13 - a*q^17 - a*q^18 + 
        (a - 1)*q^19 - a*q^21 + (a - 1)*q^22 + (-a + 1)*q^24 + a*q^29 + a*q^39 +
        (a - 1)*q^41 - a*q^43 + (-a + 1)*q^50 - q^51 - q^54 + a*q^57 - q^61 + 
        q^62 - q^63 + a*q^66 - a*q^72 + a*q^73 + (a - 1)*q^74 + a*q^77 + q^79 - 
        a*q^83 + q^87 + (a - 1)*q^88 - q^94 + a*q^98 - a*q^106 + (a - 1)*q^107 +
        a*q^109 + (a - 1)*q^112 + q^117 + q^118 + a*q^123 - q^128 - q^129 - 
        2*a*q^131 - q^134 + (-a + 1)*q^139 - a*q^143 - a*q^150 + (-2*a + 
        2)*q^151 + (a - 1)*q^153 + (a - 1)*q^162 + (a - 1)*q^167 + q^171 + q^173
        - a*q^175 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 2*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^3 + q^9 + q^11 - a*q^14 + a*q^16 - q^25 + (-a + 1)*q^26 - q^27 + (a - 
        1)*q^31 - q^33 + (-a + 1)*q^34 + (a - 1)*q^37 - q^38 + a*q^42 + a*q^47 -
        a*q^48 - q^49 - a*q^53 + q^56 + q^58 + (a - 1)*q^59 - q^64 + (-a + 
        1)*q^67 + q^75 + (a - 1)*q^78 + q^81 + (-a + 1)*q^82 - q^86 + (a - 
        1)*q^89 - a*q^91 + (-a + 1)*q^93 + (-a + 1)*q^97 + q^99 + (a - 1)*q^102 
        + a*q^104 + (-a + 1)*q^111 + a*q^113 + q^114 - a*q^119 + q^121 + (a - 
        1)*q^122 - a*q^126 + (a - 1)*q^133 + a*q^136 - a*q^141 + a*q^144 + (a - 
        1)*q^146 + q^147 + (-a + 1)*q^152 - a*q^154 + (-a + 1)*q^157 + (-a + 
        1)*q^158 + a*q^159 + (a - 1)*q^163 - q^166 - q^168 - q^174 + a*q^176 + 
        (-a + 1)*q^177 + O(q^178),
    q^2 - q^6 + (-a + 1)*q^7 + (a - 1)*q^8 + q^13 + q^17 + q^18 - a*q^19 + (a - 
        1)*q^21 + q^22 + (-a + 1)*q^24 + a*q^29 - q^39 + q^41 - a*q^43 - q^50 - 
        q^51 - q^54 + a*q^57 - q^61 + (a - 1)*q^62 + (-a + 1)*q^63 - q^66 + (a -
        1)*q^72 - q^73 + (a - 1)*q^74 + (-a + 1)*q^77 + q^79 - a*q^83 - a*q^87 +
        (a - 1)*q^88 + a*q^94 - q^98 - a*q^106 - a*q^107 - q^109 + q^112 + q^117
        + (a - 1)*q^118 - q^123 - q^128 + a*q^129 + (2*a - 2)*q^131 + (-a + 
        1)*q^134 - q^139 + q^143 + q^150 + (-2*a + 2)*q^151 + q^153 + q^162 + 
        q^167 - a*q^171 + q^173 + (a - 1)*q^175 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
693
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 3*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 - q^16 + q^22 - q^25 - q^49 - 2*q^58 - q^64 + 2*q^67 - q^100 + q^154
        + 2*q^163 - q^169 + O(q^178),
    q^2 + q^14 - q^23 - q^29 - q^32 - q^50 - q^53 + q^71 + q^77 + 2*q^86 - q^92 
        - q^98 + q^107 + q^113 - q^116 + 2*q^134 + q^137 - q^149 + q^161 + 
        O(q^178),
    q^7 - q^22 + q^28 + 2*q^43 - 2*q^46 - 2*q^106 - 2*q^109 - q^112 - q^121 + 
        2*q^142 - 2*q^151 + q^154 + 2*q^172 - q^175 + O(q^178),
    q^11 - 2*q^14 + 2*q^23 + q^44 + 2*q^53 - 2*q^71 - q^77 - 4*q^86 + 2*q^92 - 
        2*q^113 - 2*q^137 - q^176 + O(q^178)
]
;
Bo:=
[
    q - q^16 - q^22 - q^37 + q^49 + q^58 + q^64 - q^67 + q^70 + q^88 - q^91 + 
        q^121 - q^130 - q^133 - q^163 + O(q^178),
    q^2 - q^8 - q^11 + q^29 + q^35 - q^65 - q^74 - q^95 + q^98 + q^107 + q^128 -
        q^134 + q^149 + q^176 + O(q^178),
    q^3 + q^27 - q^45 - q^48 - q^66 - q^111 - q^126 + q^147 + q^174 + O(q^178),
    q^5 + q^14 - q^26 - q^38 + q^47 - q^56 + q^59 - q^77 - q^80 - 2*q^89 + q^104
        - q^110 + 2*q^122 - q^125 + q^143 - q^146 + q^152 + O(q^178),
    q^6 - q^24 - q^33 + q^54 - q^63 + q^87 - q^90 + q^105 + q^117 + q^171 + 
        O(q^178),
    q^7 + q^10 - q^13 - q^19 - q^40 - q^55 + 2*q^61 - q^73 + q^94 - q^112 + 
        q^118 + 2*q^139 + q^145 - q^154 + O(q^178),
    q^9 - q^15 - q^42 + q^78 + q^81 + q^114 - q^135 - q^141 - q^144 + q^168 - 
        q^177 + O(q^178),
    q^18 - q^21 - q^30 + q^39 + q^57 - q^72 - q^99 + q^120 + q^162 + q^165 + 
        O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
694
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
346
);
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
694
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
173*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
172
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^11 - q^13 + q^16 + q^25 - q^27 - q^33 - q^39 - q^44 + q^49 - 
        q^52 - q^61 + q^64 - q^67 - q^71 - q^83 + q^87 + 2*q^89 + q^93 + q^99 + 
        q^100 + 2*q^107 - q^108 - q^113 + q^117 + q^121 - q^127 + q^129 - q^132 
        + 2*q^143 - q^156 - q^157 + q^159 - q^167 + q^169 + O(q^172),
    q^2 + q^8 - q^22 - q^26 + q^32 + q^50 - q^54 - q^66 - q^78 - q^88 + q^98 - 
        q^104 - q^122 + q^128 - q^134 - q^142 - q^166 + O(q^172),
    q^3 - q^9 - q^11 + q^12 - q^13 + q^29 + q^31 - q^36 + q^43 - q^44 + q^48 - 
        q^52 + q^53 + q^59 - q^61 - q^67 - q^71 + q^73 + q^75 - q^83 - q^87 - 
        q^93 + q^109 - q^113 + q^116 + q^121 + q^124 - q^127 - q^129 + q^131 + 
        q^137 + q^143 - q^144 + q^147 + q^149 - q^157 - q^159 - q^167 + q^169 + 
        O(q^172),
    q^6 - q^18 - q^22 + q^24 - q^26 + q^58 + q^62 - q^72 + q^86 - q^88 + q^96 - 
        q^104 + q^106 + q^118 - q^122 - q^134 - q^142 + q^146 + q^150 - q^166 + 
        O(q^172)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
695
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
695
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
138
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
695
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
695
);
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(
276
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
695
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
695
);
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(
46
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
695
);
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(
92
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
695
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
695
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 - a*q^5 + (-a + 1)*q^9 + (-a + 1)*q^11 + (a - 1)*q^16 + (a + 
        1)*q^19 + (-a + 1)*q^20 + (a - 1)*q^25 + (2*a - 2)*q^29 - a*q^31 + q^36 
        - a*q^41 + q^44 - q^45 + (a - 1)*q^49 - q^55 + (-2*a + 1)*q^59 + (-a - 
        1)*q^61 - q^64 + (a - 1)*q^71 + (2*a - 1)*q^76 + q^79 + q^80 - a*q^81 + 
        2*a*q^89 + (-2*a + 1)*q^95 - a*q^99 - q^100 + (a - 2)*q^109 - 2*q^116 + 
        (-a + 1)*q^124 + q^125 - 2*q^131 + O(q^138)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
695
);
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(
12
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^3 + a^2 - a)*q^2 - a*q^4 - a*q^5 + (-a^2 + a + 1)*q^7 + (-a^3 + 
        a)*q^9 + (-a^3 + 1)*q^10 + a^2*q^11 + 2*a^3*q^14 - a^2*q^16 + (a^2 + a -
        1)*q^18 + (-a^3 + a)*q^19 + a^2*q^20 + (a^2 - a - 1)*q^22 + (a^3 - 
        1)*q^23 + a^2*q^25 + (a^3 - a^2 - a)*q^28 + (a^2 - 1)*q^31 + (-a^2 + a +
        1)*q^32 + (a^3 - a^2 - a)*q^35 - q^36 + (a^2 - a - 1)*q^37 + (a^2 + a - 
        1)*q^38 + (-a^2 + 1)*q^41 - a^3*q^44 - q^45 - 2*a^2*q^46 + (-a^2 + a + 
        1)*q^47 + (-a^3 + a)*q^49 + (a^2 - a - 1)*q^50 - a^3*q^55 - a^3*q^59 - 
        a^2*q^61 + (-a^3 - 1)*q^62 + (-a^3 + 1)*q^63 + a^3*q^64 + (a^3 + a^2 - 
        a)*q^67 + (-2*a^2 + 2)*q^70 - a^2*q^71 - 2*a^3*q^74 - q^76 + (a^3 + 
        1)*q^77 + a^3*q^79 + a^3*q^80 + (-a^2 + 1)*q^81 + (a^3 + 1)*q^82 + (-a^2
        - a + 1)*q^83 + (-a^3 - a^2 + a)*q^90 + (-a^2 + a + 1)*q^92 + 2*a^3*q^94
        - q^95 + (a^2 - a - 1)*q^97 + (a^2 + a - 1)*q^98 + a*q^99 - a^3*q^100 + 
        (2*a^2 - 2)*q^101 - a*q^109 + (-a^3 + a^2 + a)*q^110 + (-a^3 - 1)*q^112 
        + (-a^2 + a + 1)*q^115 + (-a^3 + a^2 + a)*q^118 + (-a^2 + a + 1)*q^122 +
        (-a^3 + a)*q^124 - a^3*q^125 + 2*a^2*q^126 + (-a^3 - a^2 + a)*q^127 + 
        (-a^3 + 1)*q^133 - 2*a*q^134 + O(q^138)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
695
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
69*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^7 + q^9 - q^11 - q^13 + q^16 - q^25 - q^28 - q^29 - q^31 + q^36 
        + 2*q^37 + 2*q^41 - q^44 + 2*q^47 - q^52 - q^63 + q^64 - q^67 - q^71 + 
        q^77 - q^79 + q^81 - q^83 - q^89 + q^91 - q^99 - q^100 + 2*q^107 - q^112
        - q^113 - q^116 - q^117 - q^124 + q^125 - q^127 - q^131 - q^137 + 
        O(q^138),
    q^5 + q^20 - q^25 - q^35 + q^45 - q^55 - q^65 + q^80 - q^100 + O(q^138)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
695
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 69*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 2/3*q^16 - 1/3*q^20 - 1/3*q^24 + 2/3*q^25 - 1/3*q^34 + 1/3*q^35 + 
        1/3*q^36 - 2/3*q^41 - 1/3*q^44 - 1/3*q^45 - 1/3*q^46 + 1/3*q^49 - 
        1/3*q^51 - 1/3*q^54 + 1/3*q^55 + 1/3*q^65 - 2/3*q^66 - 1/3*q^71 - 
        1/3*q^79 - 1/3*q^80 + 2/3*q^81 - 1/3*q^86 - 1/3*q^89 - 2/3*q^91 - 
        2/3*q^96 - 1/3*q^99 + 1/3*q^100 - 1/3*q^116 - 1/3*q^120 + q^121 + 
        1/3*q^125 - 1/3*q^129 - 1/3*q^131 - 1/3*q^136 + O(q^138),
    q^2 + q^18 - q^22 - q^27 - q^33 - q^48 + q^50 - q^60 - q^85 + q^87 + q^93 + 
        q^97 + q^98 - q^103 + q^115 + q^123 + O(q^138),
    q^3 - q^17 - q^18 + q^27 - q^40 - q^43 + q^60 + q^62 + q^75 + q^82 - q^87 + 
        q^88 - q^92 + q^128 - q^132 - q^135 + O(q^138),
    q^4 + 1/3*q^16 - 2/3*q^20 - 2/3*q^24 + 1/3*q^25 - 2/3*q^34 - 1/3*q^35 - 
        1/3*q^36 + 2/3*q^41 + 1/3*q^44 + 1/3*q^45 - 2/3*q^46 + 2/3*q^49 + 
        1/3*q^51 + 1/3*q^54 - 1/3*q^55 + q^64 - 1/3*q^65 - 1/3*q^66 + 1/3*q^71 -
        2/3*q^79 - 2/3*q^80 - 2/3*q^81 - 2/3*q^86 + 1/3*q^89 + 2/3*q^91 - 
        1/3*q^96 - 2/3*q^99 + 2/3*q^100 - 2/3*q^116 + 1/3*q^120 - 1/3*q^125 + 
        1/3*q^129 - 2/3*q^131 - 2/3*q^136 + O(q^138),
    q^5 - 2/3*q^16 + 1/3*q^20 - 2/3*q^24 + 1/3*q^25 - 2/3*q^34 - 1/3*q^35 + 
        2/3*q^36 + 2/3*q^41 - 2/3*q^44 + 1/3*q^45 + 4/3*q^46 + 2/3*q^49 - 
        2/3*q^51 - 2/3*q^54 - 1/3*q^55 - 1/3*q^65 + 2/3*q^66 - 2/3*q^71 - 
        2/3*q^79 + 1/3*q^80 - 2/3*q^81 - 2/3*q^86 - 2/3*q^89 + 2/3*q^91 + 
        2/3*q^96 - 2/3*q^99 - 1/3*q^100 - 2/3*q^116 - 2/3*q^120 + 2/3*q^125 - 
        2/3*q^129 - 2/3*q^131 + 4/3*q^136 + O(q^138),
    q^6 - 2/3*q^16 - 2/3*q^20 + 1/3*q^24 + 1/3*q^25 + q^30 + q^31 - 2/3*q^34 - 
        1/3*q^35 - 4/3*q^36 + 5/3*q^41 + 1/3*q^44 - 2/3*q^45 - 2/3*q^46 + 
        2/3*q^49 - 2/3*q^51 + 1/3*q^54 - 1/3*q^55 + q^64 - 1/3*q^65 - 4/3*q^66 +
        q^69 - 2/3*q^71 - 2/3*q^79 - 2/3*q^80 - 2/3*q^81 - 2/3*q^86 - 2/3*q^89 +
        2/3*q^91 - 1/3*q^96 + 1/3*q^99 - 1/3*q^100 + q^106 + 1/3*q^116 + 
        1/3*q^120 + q^124 - 1/3*q^125 - 2/3*q^129 - 2/3*q^131 + 1/3*q^136 + 
        O(q^138),
    q^7 + q^13 - 1/3*q^16 + 2/3*q^20 - 1/3*q^24 + 2/3*q^25 - q^28 - 1/3*q^34 - 
        2/3*q^35 + 1/3*q^36 + 1/3*q^41 - 1/3*q^44 + 2/3*q^45 + 2/3*q^46 + 
        1/3*q^49 - 1/3*q^51 - q^52 - 1/3*q^54 + 1/3*q^55 - q^63 - 2/3*q^65 + 
        1/3*q^66 - q^67 - 1/3*q^71 - q^77 - 1/3*q^79 - 1/3*q^80 - 1/3*q^81 + 
        q^83 - 1/3*q^86 - 1/3*q^89 + 1/3*q^91 + 1/3*q^96 - 1/3*q^99 - 2/3*q^100 
        + q^112 + q^113 - 1/3*q^116 - q^117 - 1/3*q^120 + 1/3*q^125 + q^127 - 
        1/3*q^129 - 1/3*q^131 + 2/3*q^136 + q^137 + O(q^138),
    q^8 - q^12 - q^17 - q^18 + q^22 + q^27 + q^32 + q^33 - q^40 - q^43 - q^58 + 
        q^60 - q^68 + q^85 - q^87 + q^88 + q^90 - q^92 + q^103 - q^110 + q^128 -
        q^135 + O(q^138),
    q^9 - 2/3*q^16 + 1/3*q^20 + 1/3*q^24 + 1/3*q^25 + 1/3*q^34 - 1/3*q^35 - 
        1/3*q^36 + 2/3*q^41 - 2/3*q^44 - 2/3*q^45 + 1/3*q^46 + 2/3*q^49 - 
        2/3*q^51 - 2/3*q^54 - 1/3*q^55 - 1/3*q^65 - 1/3*q^66 - 2/3*q^71 + 
        1/3*q^79 + 1/3*q^80 + 1/3*q^81 + 1/3*q^86 - 2/3*q^89 + 2/3*q^91 - 
        1/3*q^96 + 1/3*q^99 - 1/3*q^100 + 1/3*q^116 - 2/3*q^120 - 1/3*q^125 - 
        2/3*q^129 + 1/3*q^131 + 1/3*q^136 + O(q^138),
    q^10 - q^12 - q^17 + q^23 + q^33 - q^43 - q^58 + q^72 - q^87 + q^90 + q^92 +
        q^93 - q^102 - q^108 - q^110 + q^123 + q^132 - q^135 + O(q^138),
    q^11 + 1/3*q^16 - 2/3*q^20 + 1/3*q^24 + 1/3*q^25 + q^30 - 2/3*q^34 - 
        1/3*q^35 - 4/3*q^36 + 2/3*q^41 + 1/3*q^44 - 2/3*q^45 - 2/3*q^46 + 
        2/3*q^49 - 2/3*q^51 + 1/3*q^54 - 1/3*q^55 + q^64 - 1/3*q^65 - 1/3*q^66 +
        q^69 - 2/3*q^71 - 2/3*q^79 - 2/3*q^80 + 1/3*q^81 - 2/3*q^86 - 2/3*q^89 +
        2/3*q^91 - 1/3*q^96 + 1/3*q^99 - 1/3*q^100 + q^106 - 2/3*q^116 + 
        1/3*q^120 + q^124 - 1/3*q^125 - 2/3*q^129 - 2/3*q^131 - 2/3*q^136 + 
        O(q^138),
    q^15 - q^17 - q^18 + q^22 + q^32 - q^40 - q^43 + q^53 - q^58 + q^60 + q^62 -
        q^68 - q^72 + q^73 + q^82 - q^87 + q^88 - q^92 - q^102 + q^108 - q^110 +
        q^128 + O(q^138),
    q^29 - q^30 - q^31 + q^34 + q^36 - q^41 - q^44 + q^51 + q^55 - q^64 - q^69 +
        q^80 + q^86 - q^99 - q^106 + q^121 + q^129 + O(q^138)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
696
);
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(
696
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 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(
696
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
696
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 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(
696
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
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(
696
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4
;
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(
696
);
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(
28
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
696
);
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(
28
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
696
);
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(
14
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
696
);
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(
14
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
696
);
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(
14
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
696
);
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(
14
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 - a^3*q^6 + (a^3 - a^2)*q^7 + a^5*q^9 + (-a^5 - a^4)*q^10 + (a^5 -
        a^4 + a^3 - a^2 + a - 2)*q^15 + a^2*q^16 + (a^4 - a)*q^22 - a^4*q^24 + 
        (-a^2 - a - 1)*q^25 + (a^4 - a^3)*q^28 + (-a^5 + a^4 - a^3 + 2*a^2 - a +
        1)*q^31 + (-a^5 + a^4 + a^2 - a + 1)*q^33 + (a^5 - a^4 + a^3 - a^2 + a -
        1)*q^36 + (-2*a^5 + a^4 - a^3 + a^2 - a + 1)*q^40 + (a^4 - a^3 + a^2 - a
        + 1)*q^42 + (a^3 - a^2 + a - 1)*q^49 + a*q^54 + (a^5 + a^4 + a + 1)*q^55
        + a^2*q^58 + (-a - 1)*q^60 + (-a + 1)*q^63 + a^3*q^64 + (a^5 - a^4 + a^3
        - a^2 + 2*a - 1)*q^70 + (-a^4 + a^2)*q^73 - a^3*q^81 - a^4*q^87 + (a^5 -
        a^2)*q^88 + (a^3 + a^2)*q^90 - a^5*q^96 + (a^5 - a^4 + 2*a^3 - a^2 + a -
        1)*q^97 + (-a^3 - a^2 - a)*q^100 + (-a^3 - a)*q^103 + (-a^3 + a)*q^105 +
        (-a^2 + 1)*q^106 + (a^5 - a^4)*q^112 + (a^5 - a^4 + a^3 - 2*a^2 + a - 
        1)*q^118 + (-a^4 + a - 1)*q^121 + (a^3 + 1)*q^124 + (-a^3 + a)*q^127 + 
        (a^4 + 1)*q^132 + (-a^5 - a^4)*q^135 - q^144 + (-2*a^5 + a^4 - a^3 + a^2
        - a + 1)*q^145 + (a^5 + a^4 + a^3)*q^150 + (-a^5 + a^4 - a^3 + a^2 - 
        a)*q^151 + (-a^5 + a^2 - a)*q^154 + (a^4 - a^2)*q^159 + (-a^5 + a^4 - 
        a^3 + a^2 - a + 2)*q^160 + (-a^3 - 1)*q^166 + (a^5 - a^4 + a^3 - a^2 + 
        a)*q^168 + a^4*q^169 + (-a^5 + a^2)*q^175 + (a^4 + a)*q^177 + (-a^5 - 
        a^2)*q^186 + (a^4 - a^3 + a^2 - a)*q^196 + (-a^5 + a^4 - a^3 - a + 
        1)*q^198 + (a^5 - a^4 - a^2 + a - 1)*q^199 + (a^5 - a^4 + a^3 - a^2 - 
        1)*q^202 + (a^3 - a)*q^214 + a^2*q^216 + (a^5 - a^4 + a^2 - a)*q^217 + 
        (2*a^5 - a^4 + a^3 + 2*a - 1)*q^220 + (-a^5 - a^3 + a^2 - a + 1)*q^223 +
        (-2*a^5 + a^4 - a^3 + a^2 - a + 2)*q^225 + O(q^226),
    q^2 - a^2*q^3 + (-a^4 - a^3)*q^5 + a*q^8 + (a^3 - 1)*q^11 - a^3*q^12 + (a^3 
        - a^2)*q^14 + a^5*q^18 + (-a^5 - a^4)*q^20 + (-a^5 + a^4)*q^21 + q^27 + 
        a*q^29 + (a^5 - a^4 + a^3 - a^2 + a - 2)*q^30 + a^2*q^32 + (a^5 + 
        1)*q^35 + (a^4 - a)*q^44 + (a^2 + a)*q^45 - a^4*q^48 + (-a^2 - a - 
        1)*q^50 + (-a^5 + a^4 - a^3 + a^2 - 2*a + 1)*q^53 + (a^4 - a^3)*q^56 + 
        (a^5 - a)*q^59 + (-a^5 + a^4 - a^3 + 2*a^2 - a + 1)*q^62 + (-a^5 + a^4 +
        a^2 - a + 1)*q^66 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^72 + (a^4 + a^3 + 
        a^2)*q^75 + (-a^4 + a - 1)*q^77 + (-2*a^5 + a^4 - a^3 + a^2 - a + 
        1)*q^80 + (a^5 - a^4 + a^3 - 2*a^2 + a - 1)*q^83 + (a^4 - a^3 + a^2 - a 
        + 1)*q^84 + (-a^4 - a)*q^93 + (a^3 - a^2 + a - 1)*q^98 + (-a^5 - a)*q^99
        + (a^5 - 1)*q^101 + (a^2 - 1)*q^107 + a*q^108 + (a^5 + a^4 + a + 
        1)*q^110 + a^2*q^116 + (-a - 1)*q^120 + (2*a^5 + 2*a^3 - a^2 + a - 
        1)*q^125 + (-a + 1)*q^126 + a^3*q^128 + (-a^4 + a)*q^131 + (a^5 - a^4 + 
        a^3 - a^2 + 2*a - 1)*q^140 + (-a^4 + a^2)*q^146 + (-a^5 + a^4 - a^3 + 
        a^2)*q^147 + (-2*a^5 + a^4 - 2*a^3 - a + 1)*q^155 - a^3*q^162 + (-a^5 + 
        a^4 - 2*a^3 - a + 2)*q^165 + (-a^5 + a^4 - a^3 + a^2 - a + 2)*q^173 - 
        a^4*q^174 + (a^5 - a^2)*q^176 + (a^4 + a^3)*q^179 + (a^3 + a^2)*q^180 + 
        (a^3 - a^2)*q^189 - a^5*q^192 + (a^5 - a^4 + 2*a^3 - a^2 + a - 1)*q^194 
        + (-a^5 - 1)*q^197 + (-a^3 - a^2 - a)*q^200 + (a^4 - a^3)*q^203 + (-a^3 
        - a)*q^206 + (-a^3 + a)*q^210 + (-a^2 + 1)*q^212 + (a^5 - 2*a^4 + a^3 - 
        a^2 + a - 1)*q^219 + (a^5 - a^4)*q^224 + O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
696
);
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(
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*q^4 + a^2*q^8 + (-a^5 + a^4)*q^10 - a^3*q^16 - a^3*q^18 + (-a^4 + 
        a^3 - a^2 + a - 1)*q^20 + (a^5 - a^4 + a^3 + a - 1)*q^26 + a^4*q^32 + 
        (a^5 - a^4 + a^3 - a^2 - 1)*q^34 + a^4*q^36 + (a^5 - a^4 + a^3 - a^2 + 
        a)*q^40 + (-a^3 + a^2 - a)*q^50 + (-a^3 + 1)*q^52 + a^4*q^58 - a^5*q^64 
        + (a^2 + 1)*q^68 - a^5*q^72 + (-a^5 - a)*q^74 + (-a + 1)*q^80 + (-a^5 + 
        a^2)*q^82 + (-a + 1)*q^90 - a^3*q^98 + (a^4 - a^3 + a^2)*q^100 + (a^4 - 
        a)*q^104 + (a^2 + 1)*q^106 - a^5*q^116 + (a^5 + a^3 - a^2 + a - 1)*q^122
        + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^128 + (a^5 - a^2 + a)*q^130 + (-a^3 
        - a)*q^136 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^144 + (-a^5 + 1)*q^146 + 
        (a^5 - a^4 + a^3 + a - 1)*q^148 + (a^2 - a)*q^160 + (a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^162 + (a^5 - a^4 - a^2 + a - 1)*q^164 + (-a^2 + a - 
        1)*q^170 + (-a^5 + a^4)*q^178 + (a^2 - a)*q^180 + (a^4 + 1)*q^194 + 
        a^4*q^196 + (-a^5 + a^4 - a^3)*q^200 + (-a^3 + a^2)*q^202 + (-a^5 + 
        a^2)*q^208 + (-a^3 - a)*q^212 + (-a^3 + 1)*q^218 + O(q^226),
    q^3 + (-a^5 + a^4)*q^15 - a^3*q^27 + (a^5 - a^4 + a^3 + a - 1)*q^39 + (a^5 -
        a^4 + a^3 - a^2 - 1)*q^51 + (-a^3 + a^2 - a)*q^75 + a^4*q^87 + (-a^5 - 
        a)*q^111 + (-a^5 + a^2)*q^123 + (-a + 1)*q^135 - a^3*q^147 + (a^2 + 
        1)*q^159 + (a^5 + a^3 - a^2 + a - 1)*q^183 + (a^5 - a^2 + a)*q^195 + 
        (-a^5 + 1)*q^219 + O(q^226),
    q^6 - a*q^12 + a^2*q^24 + (-a^5 + a^4)*q^30 - a^3*q^48 - a^3*q^54 + (-a^4 + 
        a^3 - a^2 + a - 1)*q^60 + (a^5 - a^4 + a^3 + a - 1)*q^78 + a^4*q^96 + 
        (a^5 - a^4 + a^3 - a^2 - 1)*q^102 + a^4*q^108 + (a^5 - a^4 + a^3 - a^2 +
        a)*q^120 + (-a^3 + a^2 - a)*q^150 + (-a^3 + 1)*q^156 + a^4*q^174 - 
        a^5*q^192 + (a^2 + 1)*q^204 - a^5*q^216 + (-a^5 - a)*q^222 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
696
);
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(
14
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
696
);
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(
14
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
696
);
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(
14
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^4 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^6 + (a^5 + a^3 - a^2 + a - 
        1)*q^7 - a^3*q^9 + (-a^3 - a)*q^10 + (-a^5 + 1)*q^15 + a^4*q^16 + (a^2 -
        a)*q^22 - a*q^24 + (a^4 + a^2 + 1)*q^25 + (a^5 - a^4 + a^3 - a^2 - 
        1)*q^28 + (-a^5 + a^4)*q^31 + (-a^4 + a^3 - a^2 + a - 1)*q^33 - a^5*q^36
        + (-a^5 - a^3)*q^40 + (-a^5 - a^3)*q^42 + (-a^5 - a^3 - a)*q^49 + 
        a^2*q^54 + (-a^3 + a^2 - a + 1)*q^55 + a^4*q^58 + (a^2 + 1)*q^60 + (a^2 
        + 1)*q^63 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^64 + (-a^5 + a^2 + 2)*q^70
        + (a^4 - a)*q^73 - 2*a^3*q^79 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^81 - 
        a*q^87 + (a^4 - a^3)*q^88 + (a^5 + a^3 - a^2 + a - 1)*q^90 - a^3*q^96 + 
        (-a^4 + a^3 - a^2 + a - 1)*q^97 + (a^5 + a^3 + a - 1)*q^100 + (a^5 - a^4
        + a^3 + a - 1)*q^103 + (a^5 + a^4 + a^3 + a - 1)*q^105 + (a^4 + 1)*q^106
        + (-a^3 - a)*q^112 + (-a^5 + a^4)*q^118 + (a^2 - a + 1)*q^121 + (a^5 - 
        a^4 + a^3 - a^2 + a)*q^124 + (a^5 - a^4 + a^3 + a - 1)*q^127 + (-a + 
        1)*q^132 + (-a^3 - a)*q^135 + q^144 + (-a^5 - a^3)*q^145 + (a^5 - a^4 - 
        a^2 - 1)*q^150 + (-a^5 + 1)*q^151 + (-a^4 + a^3 - a^2)*q^154 + (a^4 - 
        a)*q^159 + (-a^5 + 1)*q^160 + (a^5 - a^4 + a^3 - a^2 + a)*q^166 + (-a^5 
        + 1)*q^168 - a*q^169 + (2*a^5 - a^4 + a^3 - 2*a^2 - 2)*q^175 + (a^2 - 
        a)*q^177 + (a^4 - a^3)*q^186 + 2*a^2*q^193 + (-a^5 - a^3 + 1)*q^196 + 
        (-a^5 + a^4)*q^198 + (-a^4 + a^3 - a^2 + a - 1)*q^199 + (-a^5 + 
        a^2)*q^202 + (a^5 - a^4 + a^3 + a - 1)*q^214 + a^4*q^216 + (a^4 - a^3 + 
        a^2 - a)*q^217 + (-a^5 + a^4 - a^3 + a^2)*q^220 + (-a^5 - a)*q^223 + 
        (-a^5 - a^3 + 1)*q^225 + O(q^226),
    q^2 + a^4*q^3 + (a^5 - a^4 + a^3 - a^2 - 1)*q^5 + a^2*q^8 + (a^5 - a^4 + a^3
        - a^2 + a)*q^11 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^12 + (a^5 + a^3 - 
        a^2 + a - 1)*q^14 - a^3*q^18 + (-a^3 - a)*q^20 + (-a^3 - a)*q^21 + q^27 
        + a^2*q^29 + (-a^5 + 1)*q^30 + a^4*q^32 + (-2*a^5 - a^3 + 1)*q^35 + (a^2
        - a)*q^44 + (a^4 + a^2)*q^45 - a*q^48 + (a^4 + a^2 + 1)*q^50 + (-a^5 + 
        a^2)*q^53 + (a^5 - a^4 + a^3 - a^2 - 1)*q^56 + (-a^3 + a^2)*q^59 + (-a^5
        + a^4)*q^62 + (-a^4 + a^3 - a^2 + a - 1)*q^66 - a^5*q^72 + (a^5 + a^3 - 
        a^2 - 1)*q^75 + (-a^2 + a - 1)*q^77 + (-a^5 - a^3)*q^80 + (-a^5 + 
        a^4)*q^83 + (-a^5 - a^3)*q^84 + (a^2 - a)*q^93 + (-a^5 - a^3 - a)*q^98 +
        (-a^3 + a^2)*q^99 + (-a^3 + 1)*q^101 + (a^4 + 1)*q^107 + a^2*q^108 + 
        (-a^3 + a^2 - a + 1)*q^110 + a^4*q^116 + (a^2 + 1)*q^120 + (-a^4 - a^2 -
        1)*q^125 + (a^2 + 1)*q^126 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^128 + 
        (a^2 - a)*q^131 + (-a^5 + a^2 + 2)*q^140 + (a^4 - a)*q^146 + (-a^5 + a^2
        + 1)*q^147 - 2*a*q^149 + (-a^2 + a - 1)*q^155 - 2*a^3*q^158 + (a^5 - a^4
        + a^3 - a^2 + a - 1)*q^162 + (a^3 - a^2 + a)*q^165 + (-a^5 + 1)*q^173 - 
        a*q^174 + (a^4 - a^3)*q^176 + (a^5 - a^4 + a^3 - a^2 - 1)*q^179 + (a^5 +
        a^3 - a^2 + a - 1)*q^180 + (a^5 + a^3 - a^2 + a - 1)*q^189 - a^3*q^192 +
        (-a^4 + a^3 - a^2 + a - 1)*q^194 + (-a^3 + 1)*q^197 + (a^5 + a^3 + a - 
        1)*q^200 + (a^5 - a^4 + a^3 - a^2 - 1)*q^203 + (a^5 - a^4 + a^3 + a - 
        1)*q^206 + (a^5 + a^4 + a^3 + a - 1)*q^210 + (a^4 + 1)*q^212 + (-a^5 - 
        a)*q^219 + (-a^3 - a)*q^224 + O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
696
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.4
;
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(
696
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 7*H.4
;
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(
696
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + 7*H.4
;
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(
696
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + 7*H.4
;
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(
696
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 14*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 - q^13 + q^29 + q^33 + q^49 - q^53 - 2*q^57 + q^65 - q^81 + q^93 - 
        q^109 + q^125 + q^129 + q^141 - q^145 - q^149 - q^165 + 2*q^173 - q^181 
        + 2*q^197 - 2*q^209 + O(q^226),
    q^2 + q^8 - q^10 - q^18 - q^26 + q^32 - q^40 - q^44 + q^58 - q^72 + 2*q^76 +
        q^90 + q^98 - q^104 - q^106 + q^108 - q^124 + q^128 + q^130 - q^160 - 
        q^172 - q^176 - q^188 - q^218 + q^220 + O(q^226),
    q^3 - q^15 - q^39 + q^87 + q^99 + q^147 - q^159 - 2*q^171 + q^195 + 
        O(q^226),
    q^4 + q^16 - q^20 - q^22 - q^36 + 2*q^38 - q^52 + q^54 - q^62 + q^64 - q^80 
        - q^86 - q^88 - q^94 + q^110 + q^116 - q^144 + 2*q^152 - q^158 + q^180 -
        2*q^190 + q^196 + q^198 - q^208 - q^212 + q^216 + O(q^226),
    q^6 + q^24 - q^30 - q^36 - q^78 + q^96 - q^120 - q^132 - q^144 + q^174 + 
        q^180 + q^198 + O(q^226),
    q^9 + q^33 - q^45 - 2*q^57 - q^81 + q^93 - q^117 + q^129 + q^141 - q^165 + 
        O(q^226),
    q^11 - 2*q^19 - q^27 + q^31 + q^43 + q^47 - q^55 + q^79 + 2*q^95 - q^99 - 
        2*q^127 - 2*q^131 + q^135 - q^143 - q^155 + q^163 + 2*q^171 - 2*q^191 + 
        q^211 - q^215 + O(q^226),
    q^12 - q^18 + q^48 - q^60 - q^66 - q^72 + q^90 + 2*q^114 - q^156 + q^162 - 
        q^186 + q^192 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
696
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 14*H.4
;
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(
696
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3 + 14*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^7 + q^9 - q^13 + q^25 - q^33 - q^51 - q^63 - q^67 + q^81 + q^87 + q^91
        + 2*q^103 - q^109 - q^117 + 2*q^123 - q^139 - q^141 + 2*q^151 - q^175 - 
        q^181 + q^187 - q^199 - q^223 + q^225 + O(q^226),
    q^2 - q^14 + q^18 - q^26 + q^50 - q^66 - q^102 - q^126 - q^134 + q^162 + 
        q^174 + q^182 + 2*q^206 - q^218 + O(q^226),
    q^3 - q^11 - q^17 - q^21 + q^27 + q^29 - q^39 + 2*q^41 - q^47 + q^75 + q^77 
        - q^89 - q^99 - q^101 - q^113 + q^119 - q^131 + 2*q^137 + q^143 - q^153 
        - q^189 + 2*q^191 - q^201 - q^203 + q^221 + O(q^226),
    q^4 - q^24 - q^28 + q^36 - q^52 - q^64 + q^88 + q^96 + q^100 - q^132 + q^136
        + q^168 - q^204 - q^216 + O(q^226),
    q^6 - q^22 - q^34 - q^42 + q^54 + q^58 - q^78 + 2*q^82 - q^94 + q^150 + 
        q^154 - q^178 - q^198 - q^202 + O(q^226),
    q^8 - q^48 - q^56 + q^72 - q^104 - q^128 + q^176 + q^192 + q^200 + O(q^226),
    q^12 + q^32 - q^44 - q^48 - q^68 - q^84 + q^108 + q^116 - q^128 - q^156 + 
        2*q^164 + q^176 - q^188 - q^224 + O(q^226),
    q^16 - q^24 - q^64 + q^88 - q^112 + q^136 + q^144 + q^168 - q^208 - q^216 + 
        O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
696
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 14*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^9 + q^22 - q^24 - q^25 + q^28 - q^34 - q^42 + q^49 + q^52 - q^64 + 
        q^78 + q^81 - q^87 + q^94 + 2*q^103 - q^112 - q^121 + q^132 - 2*q^151 - 
        q^154 - q^169 - q^178 - q^196 - q^198 + q^202 + q^204 + q^208 + q^216 + 
        q^225 + O(q^226),
    q^2 - q^12 + q^14 - 2*q^17 - q^18 + q^26 - q^32 + 2*q^39 + q^44 + 2*q^47 - 
        q^48 - q^50 + q^66 - q^68 - q^84 - 2*q^89 + q^102 + 2*q^104 + q^108 + 
        2*q^113 - q^116 - 2*q^119 - q^126 - q^128 - q^134 - 2*q^143 + 2*q^153 + 
        q^156 + q^162 - q^174 + q^176 + q^182 + q^188 - 2*q^201 + 2*q^206 - 
        q^218 - q^224 + O(q^226),
    q^3 - q^12 + 3*q^14 + q^15 - q^17 - 2*q^18 - q^27 + q^29 - 2*q^32 + 2*q^39 +
        q^41 + 3*q^47 - q^48 - q^50 + q^56 + q^60 + 2*q^66 - q^68 - 2*q^72 - 
        q^75 - 2*q^77 - q^87 - 4*q^89 - q^95 - q^98 + 2*q^104 - q^105 + q^108 + 
        3*q^113 + q^114 - q^116 - 3*q^119 - q^126 - 2*q^128 + q^135 - 2*q^137 - 
        2*q^143 + q^147 + 3*q^153 + 2*q^156 - 2*q^159 + q^164 - q^174 + 2*q^176 
        + q^177 - q^185 + 3*q^188 + q^191 - q^192 - q^200 - 2*q^201 + 3*q^206 - 
        q^215 + 2*q^221 + q^222 + q^224 + O(q^226),
    q^4 + q^9 - 1/2*q^13 + 1/2*q^16 - q^22 + 1/2*q^24 + 1/2*q^25 - q^28 - 
        1/2*q^30 + 1/2*q^33 - 1/2*q^34 + q^42 - q^49 - 1/2*q^51 - 1/2*q^52 - 
        1/2*q^57 - q^63 + q^64 + 1/2*q^67 - 1/2*q^82 + 1/2*q^87 + 1/2*q^88 - 
        1/2*q^91 - 1/2*q^94 - 1/2*q^96 - 1/2*q^100 - 3/2*q^103 + 1/2*q^109 - 
        1/2*q^111 + 1/2*q^112 + 1/2*q^117 - 1/2*q^120 + 3/2*q^121 - 1/2*q^129 - 
        1/2*q^132 - q^136 + 1/2*q^139 + 1/2*q^141 + 1/2*q^144 - 1/2*q^145 + 
        1/2*q^151 + q^154 - 1/2*q^168 + 1/2*q^169 + 1/2*q^174 - 1/2*q^175 + 
        q^178 - 1/2*q^181 + q^183 + 1/2*q^187 + 1/2*q^190 + q^196 + q^198 + 
        1/2*q^199 - q^202 - 1/2*q^204 + 1/2*q^210 - 1/2*q^216 + 3/2*q^223 - 
        1/2*q^225 + O(q^226),
    q^5 - q^9 - 3/2*q^13 + 1/2*q^16 + q^20 - 3/2*q^24 - 1/2*q^25 + 2*q^28 - q^29
        + 1/2*q^30 - 1/2*q^33 - 1/2*q^34 - q^35 - q^36 + q^38 + q^42 + q^45 + 
        q^49 - 1/2*q^51 - 1/2*q^52 - 2*q^53 - 2*q^54 + 1/2*q^57 + q^58 + q^59 + 
        q^63 - q^64 + 3/2*q^67 + q^74 + q^78 + q^80 + 1/2*q^82 - 2*q^83 + q^86 -
        1/2*q^87 - 1/2*q^88 - 3/2*q^91 + 3/2*q^94 - 3/2*q^96 - 1/2*q^100 + 
        3/2*q^103 + q^107 + 3/2*q^109 + 1/2*q^111 + 1/2*q^112 - q^116 + 
        3/2*q^117 + 1/2*q^120 - 3/2*q^121 - 2*q^122 + q^123 - q^125 + 1/2*q^129 
        + 3/2*q^132 - q^136 + 3/2*q^139 - q^140 + 5/2*q^141 - 3/2*q^144 + 
        1/2*q^145 + q^149 - q^150 - 1/2*q^151 + q^152 - 2*q^154 + 3/2*q^168 - 
        1/2*q^169 - q^170 + q^173 - 1/2*q^174 + 1/2*q^175 - 2*q^178 - 2*q^179 + 
        q^180 - 3/2*q^181 - q^183 + 3/2*q^187 - 1/2*q^190 - q^196 + q^197 - 
        1/2*q^199 + q^203 + 1/2*q^204 + q^208 - 1/2*q^210 - 2*q^212 - 1/2*q^216 
        - 3/2*q^223 + 1/2*q^225 + O(q^226),
    q^6 - q^9 - 3/2*q^13 + 1/2*q^16 - 1/2*q^24 - 1/2*q^25 + 2*q^28 + 1/2*q^30 - 
        1/2*q^33 - 1/2*q^34 - q^36 + q^49 - 3/2*q^51 - 1/2*q^52 - q^54 + 
        1/2*q^57 + q^58 + q^63 - q^64 + 3/2*q^67 + q^78 + 1/2*q^82 - 1/2*q^87 - 
        1/2*q^88 - 3/2*q^91 + 3/2*q^94 - 1/2*q^96 - 1/2*q^100 + 3/2*q^103 + 
        3/2*q^109 + 1/2*q^111 + 1/2*q^112 + 3/2*q^117 + 1/2*q^120 - 3/2*q^121 + 
        1/2*q^129 + 3/2*q^132 - q^136 + 3/2*q^139 + 3/2*q^141 - 3/2*q^144 + 
        1/2*q^145 - q^150 - 1/2*q^151 - 2*q^154 + 1/2*q^168 - 1/2*q^169 - 
        1/2*q^174 + 1/2*q^175 - 2*q^178 - 3/2*q^181 - q^183 + 3/2*q^187 - 
        1/2*q^190 - q^196 - 1/2*q^199 - 1/2*q^204 + q^208 - 1/2*q^210 + 
        1/2*q^216 - 3/2*q^223 + 1/2*q^225 + O(q^226),
    q^7 - q^9 - 1/2*q^13 - 1/2*q^16 - 1/2*q^24 - 1/2*q^25 + q^28 + 1/2*q^30 + 
        1/2*q^33 - 1/2*q^34 - q^36 - 1/2*q^51 + 1/2*q^52 + 1/2*q^57 - q^64 + 
        1/2*q^67 + q^78 + 1/2*q^82 - 1/2*q^87 + 1/2*q^88 - 1/2*q^91 + 3/2*q^94 -
        1/2*q^96 - 1/2*q^100 + 3/2*q^103 + 1/2*q^109 + 1/2*q^111 + 1/2*q^112 + 
        1/2*q^117 + 1/2*q^120 - 1/2*q^121 + 1/2*q^129 + 1/2*q^132 + 1/2*q^139 + 
        1/2*q^141 - 1/2*q^144 + 1/2*q^145 - 1/2*q^151 - 1/2*q^168 - 3/2*q^169 - 
        1/2*q^174 - 1/2*q^175 - 2*q^178 - 1/2*q^181 - q^183 + 1/2*q^187 - 
        1/2*q^190 - 3/2*q^199 + 1/2*q^204 + q^208 - 1/2*q^210 + 1/2*q^216 - 
        1/2*q^223 + 1/2*q^225 + O(q^226),
    q^8 + q^12 - 2*q^14 - q^15 + q^17 + 2*q^18 - q^26 + 2*q^32 - 2*q^39 - q^41 -
        q^44 - 3*q^47 + q^48 + q^50 - q^56 - q^60 - q^66 + q^72 + q^84 + q^87 + 
        4*q^89 + q^95 - q^102 - 2*q^104 + q^105 - q^108 - 3*q^113 - q^114 + 
        q^116 + 3*q^119 + 2*q^128 + q^134 - q^135 + 2*q^137 + 2*q^143 - 3*q^153 
        - q^156 + 2*q^159 - q^164 + q^174 - q^176 - q^177 - q^182 + q^185 - 
        2*q^188 - q^191 + 2*q^201 - 3*q^206 + q^215 + q^218 - q^222 + O(q^226),
    q^10 - 2*q^12 + 3*q^14 + q^15 - q^17 - 2*q^18 + q^19 + q^21 - 2*q^27 + q^29 
        - 2*q^32 + q^37 + 2*q^39 + q^40 + q^41 + q^43 + 3*q^47 - 2*q^48 - q^50 +
        q^56 - q^58 + q^60 - 2*q^61 + 2*q^66 - q^68 - q^70 - 2*q^72 - q^75 + 
        q^76 - 2*q^77 + q^84 - q^85 - q^87 - 4*q^89 + q^90 - q^95 - q^98 + q^102
        + 2*q^104 - q^105 - 2*q^106 + 3*q^113 + q^114 - q^116 + q^118 - 3*q^119 
        - q^126 - 2*q^128 - q^133 + q^135 - 2*q^137 - 2*q^143 + q^147 + q^148 + 
        3*q^153 + 2*q^156 + q^157 - 2*q^159 + q^160 + q^163 + q^164 - 2*q^166 + 
        q^171 + q^172 - q^174 + 2*q^176 + q^177 - q^185 + 3*q^188 + q^189 + 
        q^191 - 2*q^192 - q^200 - 2*q^201 - q^205 + 3*q^206 + q^211 + q^214 - 
        q^215 + 2*q^221 + q^222 + q^224 + O(q^226),
    q^11 - q^12 + q^14 - q^17 - q^21 + q^26 - q^32 + q^39 + q^47 - q^56 + q^66 -
        q^77 - q^89 - q^98 - q^99 + q^101 + q^102 + q^104 + q^108 + q^113 - 
        q^116 - q^119 - q^126 + q^131 - q^134 - q^143 + q^147 + q^153 + q^176 + 
        q^182 + q^189 - q^201 - q^203 - q^218 - q^221 + O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
40
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
40
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
40
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
80
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
80
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
80
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
8
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
8
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
8
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
8
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
8
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
8
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
8
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
80
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
16
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
16
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
697
);
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(
16
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
698
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
348
);
qprec:=
173
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
698
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
116
);
qprec:=
173
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
698
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
29*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
173
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
698
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
87*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
173
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
699
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
699
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
232
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
699
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
699
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
699
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
699
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
699
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
699
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^13 - q^15 + q^16 - q^19 + q^25 + q^36 - q^37 - q^52 - q^55
        - q^60 + q^64 - q^76 + q^81 - q^85 - q^91 + q^100 - q^105 - q^117 - 
        q^123 - q^133 - q^135 + q^144 - q^148 + O(q^154),
    q^3 - q^11 + q^12 - q^17 - q^21 + q^27 - q^35 - q^44 - q^47 + q^48 + 2*q^59 
        + q^65 - q^68 + 2*q^77 - q^84 - q^93 + q^95 - q^99 + q^108 + 2*q^119 - 
        q^125 - q^137 - q^140 - q^143 + q^147 + 2*q^149 - q^153 + O(q^154),
    q^5 - q^11 - q^17 + q^20 - q^21 + q^39 + q^41 - q^44 + q^45 - q^47 + q^53 + 
        q^57 - q^65 - q^68 - q^75 + q^77 + q^80 + q^83 - q^84 - q^93 - q^95 - 
        q^99 + q^111 + q^119 - q^137 + q^147 - q^153 + O(q^154),
    q^7 - q^13 - q^15 - q^19 + q^25 + q^28 + q^31 + q^33 - q^37 - q^49 + q^51 - 
        q^52 - q^60 + q^63 - q^76 + q^100 + q^109 + q^112 - q^117 - q^121 - 
        q^123 + q^124 + q^132 - q^135 + q^141 - q^148 + O(q^154)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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(
700
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 + a^2*q^4 - a^3*q^5 - a^3*q^8 + (a^3 - a^2 + a - 1)*q^9 + (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^18 + q^20 - a*q^25 + (-a^3 + a^2)*q^26 + (-a^3 - a)*q^29 +
        q^32 + (-a^3 + 1)*q^34 - a*q^36 + (-a^3 + 1)*q^37 - a*q^40 + (a^2 - 
        a)*q^41 + a^2*q^45 + 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*q^72 + (-a^2 + a - 1)*q^73 + 
        (a^3 - a^2 - 1)*q^74 + a^2*q^80 - a^3*q^81 + (-a^3 + a^2)*q^82 + (a^2 + 
        1)*q^85 + (a^2 + 1)*q^89 - a^3*q^90 + (-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 +
        1)*q^117 + 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*q^144 + (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)*q^153 + (a^3 - a^2 - 1)*q^157
        - a^3*q^160 + (a^3 - a^2 + a - 1)*q^162 + (-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^2 + a - 1)*q^180 + (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 + 
        O(q^206),
    q^7 - a*q^14 + a^2*q^28 - a^3*q^35 - a^3*q^56 + (a^3 - a^2 + a - 1)*q^63 + 
        (a^3 - a^2 + a - 1)*q^70 + (a^2 - a)*q^91 + (a^3 - a^2 + a - 1)*q^112 + 
        (a^3 + a - 1)*q^119 + q^126 + q^140 - a*q^175 + (-a^3 + a^2)*q^182 + 
        (-a^3 - a)*q^203 + O(q^206)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + (-2*a^2 + 1)*q^6 + (2*a^3 - 2*a)*q^9 - a^3*q^14 + a^2*q^16 + 
        (a^2 - 2)*q^21 + (-2*a^3 + a)*q^24 - a^3*q^29 - 2*q^36 + (2*a^2 - 
        1)*q^41 + (a^2 - 1)*q^46 + (a^3 - a)*q^49 + (a^3 + a)*q^54 + (-a^2 + 
        1)*q^56 + (-a^2 + 2)*q^61 + a^3*q^64 + (-a^3 + 2*a)*q^69 + (-a^2 + 
        1)*q^81 + (a^3 - 2*a)*q^84 + a^2*q^86 + (a^3 + a)*q^89 + (-a^2 + 2)*q^96
        + (-a^2 - 1)*q^101 - a*q^109 + (-a^2 + 1)*q^116 - a^2*q^121 + 
        2*a^2*q^126 + (-2*a^3 + a)*q^129 - a^3*q^134 - 2*a*q^144 + (-a^3 + 
        a)*q^149 + q^161 + (2*a^3 - a)*q^164 + (a^2 - 2)*q^166 - a^3*q^169 + 
        (a^3 - 2*a)*q^174 + (-2*a^2 + 1)*q^181 + (a^3 - a)*q^184 + (-2*a^3 + 
        a)*q^189 - q^196 + (a^2 - 2)*q^201 + O(q^206),
    q^2 + (-a^3 - a)*q^3 - a^2*q^7 + a*q^8 + (-2*a^2 + 1)*q^12 + (2*a^3 - 
        2*a)*q^18 + a^3*q^23 + (a^2 + 1)*q^27 - a^3*q^28 + a^2*q^32 + (a^2 - 
        2)*q^42 + a*q^43 + (-2*a^3 + a)*q^48 - a^3*q^58 + 2*a*q^63 - a^2*q^67 - 
        2*q^72 + (2*a^2 - 1)*q^82 + (2*a^3 - a)*q^83 + (a^2 - 2)*q^87 + (a^2 - 
        1)*q^92 + (a^3 - a)*q^98 + (a^3 - 2*a)*q^103 + q^107 + (a^3 + a)*q^108 +
        (-a^2 + 1)*q^112 + (-a^2 + 2)*q^122 + (-3*a^3 + 3*a)*q^123 + (2*a^2 - 
        2)*q^127 + a^3*q^128 + (-a^3 + 2*a)*q^138 + (a^2 + 1)*q^147 + (-a^2 + 
        1)*q^162 - 2*a^3*q^163 + (-a^2 - 1)*q^167 + (a^3 - 2*a)*q^168 + 
        a^2*q^172 + (a^3 + a)*q^178 - 3*a*q^183 + (-a^2 + 2)*q^192 + (-a^2 - 
        1)*q^202 + (a^3 - a)*q^203 + O(q^206)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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(
6
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 - q^6 - q^14 + (a - 1)*q^16 + (-a + 1)*q^21 - a*q^24 + q^29 - q^41
        + a*q^46 + (-a + 1)*q^49 + (-a + 1)*q^54 - a*q^56 + (-a + 1)*q^61 - q^64
        - q^69 + a*q^81 + q^84 + (-a + 1)*q^86 + (a - 1)*q^89 + 2*a*q^94 + (-a +
        1)*q^96 + a*q^101 - a*q^109 + a*q^116 + (a - 1)*q^121 + a*q^129 + q^134 
        - 2*q^141 + (a - 1)*q^149 - q^161 - a*q^164 + (-a + 1)*q^166 - q^169 - 
        q^174 - q^181 + (a - 1)*q^184 + a*q^189 + q^196 + (a - 1)*q^201 + 
        O(q^206),
    q^2 + (a - 1)*q^3 + (a - 1)*q^7 + a*q^8 - q^12 + q^23 - a*q^27 - q^28 + (a -
        1)*q^32 + (-a + 1)*q^42 - a*q^43 + 2*q^47 - a*q^48 + q^58 + (-a + 
        1)*q^67 - q^82 - a*q^83 + (a - 1)*q^87 + a*q^92 + (-a + 1)*q^98 + q^103 
        - q^107 + (-a + 1)*q^108 - a*q^112 + (-a + 1)*q^122 + (-a + 1)*q^123 - 
        2*a*q^127 - q^128 - q^138 + a*q^147 + a*q^162 - 2*q^163 + a*q^167 + 
        q^168 + (-a + 1)*q^172 + (a - 1)*q^178 + a*q^183 + 2*a*q^188 + (-a + 
        1)*q^192 + a*q^202 + (a - 1)*q^203 + O(q^206)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 - q^6 + q^14 + (a - 1)*q^16 + (-a + 1)*q^21 + a*q^24 - q^29 - q^41
        + a*q^46 + (a - 1)*q^49 + (a - 1)*q^54 - a*q^56 + (-a + 1)*q^61 + q^64 +
        q^69 + a*q^81 - q^84 + (-a + 1)*q^86 + (-a + 1)*q^89 - 2*a*q^94 + (-a + 
        1)*q^96 + a*q^101 + a*q^109 + a*q^116 + (a - 1)*q^121 - a*q^129 - q^134 
        - 2*q^141 + (-a + 1)*q^149 - q^161 + a*q^164 + (-a + 1)*q^166 + q^169 + 
        q^174 - q^181 + (-a + 1)*q^184 - a*q^189 + q^196 + (a - 1)*q^201 + 
        O(q^206),
    q^2 + (-a + 1)*q^3 + (a - 1)*q^7 - a*q^8 - q^12 - q^23 - a*q^27 + q^28 + (a 
        - 1)*q^32 + (-a + 1)*q^42 + a*q^43 + 2*q^47 + a*q^48 - q^58 + (-a + 
        1)*q^67 - q^82 + a*q^83 + (a - 1)*q^87 + a*q^92 + (a - 1)*q^98 - q^103 -
        q^107 + (a - 1)*q^108 - a*q^112 + (-a + 1)*q^122 + (a - 1)*q^123 - 
        2*a*q^127 + q^128 + q^138 + a*q^147 + a*q^162 + 2*q^163 + a*q^167 - 
        q^168 + (-a + 1)*q^172 + (-a + 1)*q^178 - a*q^183 - 2*a*q^188 + (-a + 
        1)*q^192 + a*q^202 + (-a + 1)*q^203 + O(q^206),
    q^5 - a*q^20 + (a - 1)*q^25 - q^30 + q^70 + (a - 1)*q^80 + q^100 + (-a + 
        1)*q^105 + a*q^120 - a*q^125 - q^145 + (-a + 1)*q^150 - q^205 + 
        O(q^206),
    q^10 + (-a + 1)*q^15 + (a - 1)*q^35 - a*q^40 + (a - 1)*q^50 - q^60 + a*q^75 
        - q^115 - a*q^135 + q^140 + (a - 1)*q^160 - a*q^175 + q^200 + O(q^206)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^11 - q^21 + q^29 - q^39 - q^49 + q^51 + 2*q^71 + q^79 - q^81 - q^91 + 
        q^109 + q^119 + q^141 - 2*q^149 - q^151 - 2*q^179 - q^189 - q^191 + 
        O(q^206),
    q^3 + q^7 + q^13 - q^17 + q^27 - q^33 - q^47 - 2*q^73 - q^77 - 2*q^83 + q^87
        - q^97 + q^103 - q^143 - q^147 + 2*q^157 - q^167 + q^173 + q^187 + q^203
        + O(q^206)
]
;
Bo:=
[
    q + q^9 - q^11 - q^29 + q^49 - q^71 - q^79 + q^81 - q^99 - q^109 - q^149 - 
        q^151 - q^161 + q^169 + 2*q^179 + 2*q^191 + O(q^206),
    q^2 + q^18 - q^22 - q^28 - q^32 - q^58 + q^92 + q^98 + q^112 + q^128 - q^142
        + q^148 - q^158 + q^162 + q^172 - q^198 + O(q^206),
    q^4 + q^36 - q^44 - q^56 - q^64 - q^116 + q^184 + q^196 + O(q^206),
    q^7 - q^23 - q^37 - q^43 + 2*q^53 + q^63 - q^67 - q^77 + 2*q^107 - q^113 - 
        q^127 + 2*q^137 + 2*q^163 - q^193 - q^197 - q^203 + O(q^206),
    q^8 - q^28 - q^32 + q^72 - q^88 + q^92 + q^148 + q^172 + O(q^206),
    q^14 + q^16 - q^46 - q^56 - q^64 - q^74 - q^86 + 2*q^106 + q^126 - q^134 + 
        q^144 - q^154 - q^176 + q^184 + O(q^206)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^9 - a*q^44 - q^46 - a*q^49 - q^56 + a*q^64 - a*q^74 - q^81 + q^86 + 
        q^116 - q^121 + a*q^134 + a*q^154 - a*q^169 + q^176 + O(q^206),
    q^2 + a*q^18 - a*q^23 - q^37 + a*q^43 - q^67 + q^77 - a*q^88 - q^92 - a*q^98
        - q^112 - a*q^113 + q^127 + a*q^128 - a*q^148 - q^162 + q^172 + a*q^193 
        + q^197 + a*q^203 + O(q^206),
    q^4 + q^14 - a*q^16 - 2*q^29 + a*q^36 - q^44 - a*q^46 - q^74 + a*q^86 + 
        2*q^109 + a*q^116 + 2*a*q^121 + a*q^126 - q^134 + q^144 + 2*q^149 + 
        q^154 - 2*a*q^161 - a*q^176 - 2*q^184 - a*q^196 + O(q^206),
    q^7 - a*q^8 - a*q^23 - a*q^28 - q^32 + q^37 + a*q^43 + 2*a*q^58 + a*q^63 - 
        q^67 + q^72 - q^77 + a*q^88 - q^92 - 2*q^107 + a*q^113 + q^127 + a*q^148
        - 2*a*q^163 + q^172 - a*q^193 - q^197 + a*q^203 + O(q^206),
    q^11 - a*q^14 - q^16 + a*q^29 + a*q^44 - q^71 - a*q^79 + a*q^99 - a*q^109 + 
        q^116 + q^121 + q^126 - a*q^144 - a*q^149 - q^151 - q^161 + a*q^184 + 
        O(q^206),
    q^22 - a*q^23 - a*q^28 - q^32 + q^37 + a*q^43 + a*q^58 - q^67 - q^77 + 
        a*q^88 + a*q^113 + q^127 - q^142 - a*q^158 - a*q^193 - q^197 + a*q^198 +
        a*q^203 + O(q^206)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
700
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^11 - q^21 - q^29 + q^39 + q^49 + q^51 + 2*q^71 - q^79 - q^81 - q^91 - 
        q^109 - q^119 + q^141 + 2*q^149 - q^151 + 2*q^179 + q^189 - q^191 + 
        O(q^206),
    q^2 - q^18 - q^22 + q^28 - q^32 + q^58 + q^92 - q^98 + q^112 - q^128 - q^142
        - q^148 + q^158 + q^162 + q^172 + q^198 + O(q^206),
    q^3 + q^13 + q^17 + q^23 - q^27 - q^33 - q^37 + q^43 + q^47 - 2*q^53 - q^63 
        - q^67 - 2*q^73 - 2*q^83 - q^87 + q^97 + q^103 + 2*q^107 + q^113 - q^127
        + 2*q^137 - q^143 + q^147 - 2*q^157 - 2*q^163 + q^167 + q^173 - q^187 + 
        q^193 - q^197 + 2*q^203 + O(q^206),
    q^4 - q^36 - q^44 + q^56 - q^64 + q^116 + q^184 - q^196 + O(q^206),
    q^5 - q^55 - q^75 - q^105 + q^125 - q^145 + q^175 + q^195 + O(q^206),
    q^7 + q^23 - q^37 + q^43 - 2*q^53 - q^63 - q^67 - q^77 + 2*q^107 + q^113 - 
        q^127 + 2*q^137 - 2*q^163 + q^193 - q^197 + q^203 + O(q^206),
    q^8 - q^28 + q^32 - q^72 - q^88 - q^92 + q^148 - q^172 + O(q^206),
    q^9 - q^21 - 2*q^29 + q^39 + 2*q^49 + q^51 + 3*q^71 - 2*q^79 - 2*q^81 - q^91
        - q^99 - 2*q^109 - q^119 + q^141 + q^149 + q^161 + q^169 + 4*q^179 + 
        q^189 - 3*q^191 + O(q^206),
    q^14 - q^16 + q^46 + q^56 - q^64 - q^74 + q^86 - 2*q^106 - q^126 - q^134 + 
        q^144 - q^154 + q^176 + q^184 + O(q^206),
    q^15 - q^25 - q^35 + q^65 + q^85 - q^135 - q^165 + O(q^206)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
701
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
700
);
qprec:=
117
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
701
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
140
);
qprec:=
117
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
701
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
100
);
qprec:=
117
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
701
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
25*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(
701
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
35*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
117
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
701
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
175*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(
702
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
702
);
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:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*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(
702
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + (-a^2 + a + 1)*q^7 - a^3*q^13 + a^2*q^16 + (-a^3 + a - 1)*q^19 +
        a^3*q^25 + (a^3 - a^2 - a)*q^28 + (a^3 + a^2 - a - 1)*q^31 + (a^3 + a^2 
        - 1)*q^37 + (-a^2 - 1)*q^43 + (-a^3 + a)*q^49 + (a^2 - 1)*q^52 + (-2*a^3
        + a)*q^61 - a^3*q^64 + (a^3 - a^2 + 1)*q^67 + (a^2 + a)*q^73 + (a - 
        1)*q^76 + (a^3 - 2*a)*q^79 + (-a^2 - a + 1)*q^91 + (a^3 - a + 1)*q^97 + 
        (-a^2 + 1)*q^100 + (a^2 - a)*q^109 + (a^3 + 1)*q^112 + a*q^121 + (-a^3 +
        a + 1)*q^124 + (-a^3 + a)*q^127 + (-a^3 + a^2 - a)*q^133 + (-a^2 + 
        1)*q^139 + (-a^3 - a^2 + a + 1)*q^148 + (-a^2 - a)*q^151 + q^157 + (a^2 
        - a - 1)*q^163 - q^169 + (a^3 + a)*q^172 + (a^2 + a - 1)*q^175 + (-2*a^2
        + 1)*q^181 + (a^3 + a^2 - a)*q^193 - q^196 - a*q^199 + (-a^3 + a)*q^208 
        + (2*a^3 + a^2 - a - 1)*q^217 + (-a^3 + a^2 + a)*q^223 + (-a^3 - 
        1)*q^229 + O(q^230),
    q^2 - a*q^8 + (-a^2 + a + 1)*q^14 - a^3*q^26 + a^2*q^32 + (-a^3 + a - 
        1)*q^38 + a^3*q^50 + (a^3 - a^2 - a)*q^56 + (a^3 + a^2 - a - 1)*q^62 + 
        (a^3 + a^2 - 1)*q^74 + (-a^2 - 1)*q^86 + (-a^3 + a)*q^98 + (a^2 - 
        1)*q^104 + (-2*a^3 + a)*q^122 - a^3*q^128 + (a^3 - a^2 + 1)*q^134 + (a^2
        + a)*q^146 + (a - 1)*q^152 + (a^3 - 2*a)*q^158 + (-a^2 - a + 1)*q^182 + 
        (a^3 - a + 1)*q^194 + (-a^2 + 1)*q^200 + (a^2 - a)*q^218 + (a^3 + 
        1)*q^224 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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(
12
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^4 - q^13 + (a - 1)*q^16 + (-a + 2)*q^19 - q^25 + (-2*a + 1)*q^31 + 
        (-a - 1)*q^37 + a*q^43 + (a - 1)*q^49 - a*q^52 - a*q^61 - q^64 + (-a - 
        1)*q^67 + (2*a - 1)*q^73 + (a + 1)*q^76 + q^79 + (-a + 2)*q^97 - a*q^100
        + 2*q^103 + (2*a - 1)*q^109 + a*q^121 + (-a + 2)*q^124 + (a - 1)*q^127 +
        a*q^139 + (-2*a + 1)*q^148 + (2*a - 1)*q^151 - q^157 + q^169 + (a - 
        1)*q^172 - q^181 - q^196 - a*q^199 + (-a + 1)*q^208 + (-2*a + 2)*q^211 +
        O(q^230),
    q^2 + a*q^8 - q^26 + (a - 1)*q^32 + (-a + 2)*q^38 - q^50 + (-2*a + 1)*q^62 +
        (-a - 1)*q^74 + a*q^86 + (a - 1)*q^98 - a*q^104 - a*q^122 - q^128 + (-a 
        - 1)*q^134 + (2*a - 1)*q^146 + (a + 1)*q^152 + q^158 + (-a + 2)*q^194 - 
        a*q^200 + 2*q^206 + (2*a - 1)*q^218 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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(
6
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + (a - 1)*q^7 + a*q^13 - q^16 + (-a - 1)*q^19 - a*q^25 + (a + 
        1)*q^28 + (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^91 + (a + 1)*q^97 - 
        q^100 + (-a - 1)*q^109 + (-a + 1)*q^112 + a*q^121 + (-a + 1)*q^124 + 
        2*a*q^127 + 2*q^133 + 2*q^139 + (-a - 1)*q^148 + (-a + 1)*q^151 - 
        2*q^157 + (-a + 1)*q^163 - q^169 + (a + 1)*q^175 + (a - 1)*q^193 - q^196
        + 2*a*q^199 - a*q^208 - 2*q^217 + (-a - 1)*q^223 + (a - 1)*q^229 + 
        O(q^230),
    q^2 - a*q^8 + (a - 1)*q^14 + a*q^26 - q^32 + (-a - 1)*q^38 - a*q^50 + (a + 
        1)*q^56 + (a + 1)*q^62 + (-a + 1)*q^74 - a*q^98 + q^104 + a*q^128 + (-a 
        - 1)*q^134 + (a - 1)*q^146 + (a - 1)*q^152 + (-a - 1)*q^182 + (a + 
        1)*q^194 - q^200 + (-a - 1)*q^218 + (-a + 1)*q^224 + O(q^230),
    q^3 - a*q^12 + (a - 1)*q^21 + a*q^39 - q^48 + (-a - 1)*q^57 - a*q^75 + (a + 
        1)*q^84 + (a + 1)*q^93 + (-a + 1)*q^111 - a*q^147 + q^156 + a*q^192 + 
        (-a - 1)*q^201 + (a - 1)*q^219 + (a - 1)*q^228 + O(q^230),
    q^6 - a*q^24 + (a - 1)*q^42 + a*q^78 - q^96 + (-a - 1)*q^114 - a*q^150 + (a 
        + 1)*q^168 + (a + 1)*q^186 + (-a + 1)*q^222 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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(
6
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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(
6
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^4 + (2*a - 2)*q^7 + q^13 - a*q^16 + (-a + 1)*q^19 + q^25 - 
        2*a*q^28 - q^31 + a*q^37 + (-a + 1)*q^43 - 3*a*q^49 + (a - 1)*q^52 + (-a
        + 1)*q^61 + q^64 + a*q^67 - q^73 + a*q^76 - q^79 + (2*a - 2)*q^91 + (-a 
        + 1)*q^97 + (a - 1)*q^100 + 2*q^103 - q^109 + 2*q^112 + (a - 1)*q^121 + 
        (-a + 1)*q^124 + a*q^127 + 2*a*q^133 + (-a + 1)*q^139 - q^148 - q^151 - 
        q^157 + (2*a - 2)*q^163 + q^169 + a*q^172 + (2*a - 2)*q^175 - q^181 - 
        2*a*q^193 + 3*q^196 + (-a + 1)*q^199 - a*q^208 - 2*a*q^211 + (-2*a + 
        2)*q^217 - 2*a*q^223 + 2*q^229 + O(q^230),
    q^2 + (a - 1)*q^8 + (2*a - 2)*q^14 + q^26 - a*q^32 + (-a + 1)*q^38 + q^50 - 
        2*a*q^56 - q^62 + a*q^74 + (-a + 1)*q^86 - 3*a*q^98 + (a - 1)*q^104 + 
        (-a + 1)*q^122 + q^128 + a*q^134 - q^146 + a*q^152 - q^158 + (2*a - 
        2)*q^182 + (-a + 1)*q^194 + (a - 1)*q^200 + 2*q^206 - q^218 + 2*q^224 + 
        O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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(
6
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
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:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
702
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 6*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^22 - q^40 + q^49 - q^55 - q^61 - q^82 + q^88 + q^94 + q^100 + q^118 + 
        q^121 - q^127 + q^130 + q^169 - q^172 + q^178 - q^199 - q^205 - q^208 - 
        q^211 + O(q^230),
    q^2 - q^44 - q^80 + q^98 - q^110 - q^122 - q^164 + q^176 + q^188 + q^200 + 
        O(q^230),
    q^3 - q^12 - q^39 + q^48 - q^75 + 2*q^129 + q^147 + q^156 - 2*q^183 - q^192 
        + O(q^230),
    q^4 - q^22 - q^40 - q^82 + q^94 + q^100 + q^118 + q^130 - q^160 - q^172 + 
        q^178 + q^196 - q^208 - q^220 + O(q^230),
    q^5 + q^32 - q^47 - q^50 - q^59 - q^65 + q^71 - q^80 + q^83 + q^86 - q^89 - 
        q^122 + q^125 - q^149 + q^167 - q^197 + q^200 + q^206 - q^215 + q^227 + 
        O(q^230),
    q^6 - q^24 - q^78 + q^96 - q^150 + O(q^230),
    q^8 + q^26 - q^32 - q^44 + q^50 - q^80 - 2*q^86 - q^104 - q^110 + q^122 + 
        q^128 + 2*q^158 - q^164 + q^176 + q^188 - 2*q^206 + O(q^230),
    q^9 - q^27 - q^36 + q^81 + q^108 - q^117 + q^144 - q^225 + O(q^230),
    q^10 - q^22 - q^25 + q^43 + q^52 - q^61 - q^82 + q^103 - q^127 + q^139 + 
        q^142 + q^157 - q^160 + q^166 - q^172 + q^181 - q^199 - q^208 - q^211 - 
        q^220 + O(q^230),
    q^11 - q^26 + q^32 + q^41 - q^47 - q^50 - q^59 - q^65 + 2*q^86 - q^89 + 
        q^104 + q^110 - q^122 + q^125 - q^128 + q^137 + q^143 - q^149 - 2*q^158 
        - q^176 - q^197 + q^200 + 2*q^206 + O(q^230),
    q^13 - q^40 - q^43 - q^52 - q^55 + q^64 + 2*q^79 + q^88 - q^103 + 2*q^121 - 
        q^139 - q^157 + q^172 - q^181 - q^205 + q^220 + O(q^230),
    q^16 - q^25 - q^40 + q^43 - q^61 + q^100 + q^103 - q^127 + q^139 + q^157 - 
        q^160 - q^172 + q^181 - q^199 - q^208 - q^211 + O(q^230),
    q^18 - q^54 - q^72 + q^162 + q^216 + O(q^230),
    q^20 + q^26 - q^32 - q^44 - q^86 - q^110 + q^128 + 2*q^158 - q^164 + q^176 -
        q^200 - q^206 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
703
);
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:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 - q^44 - q^47 - q^58 - q^62 - q^77 + q^81 - q^83 - q^104 - 
        q^112 + q^121 + O(q^124),
    q^2 + q^18 - q^22 - q^29 - q^31 + q^50 - q^52 - q^56 + q^89 - q^97 + q^98 + 
        q^103 + q^109 + O(q^124),
    q^4 - q^11 - q^26 - q^28 + q^36 + q^47 + q^49 - q^73 + q^83 - q^99 + q^100 -
        q^112 - q^118 + O(q^124),
    q^7 - q^11 - q^16 + q^28 + q^38 - q^58 - q^62 + q^63 - q^73 + q^74 - q^77 - 
        q^99 + q^101 + q^104 + q^121 + O(q^124),
    q^8 - 2*q^14 - q^19 + q^22 + q^29 + q^31 + q^32 - q^37 - q^52 - q^56 + q^72 
        - q^76 - q^88 + q^91 + q^94 + q^97 + q^98 - 2*q^113 + q^116 + O(q^124),
    q^13 - q^14 - q^19 + q^22 + q^32 - q^37 - q^52 + q^59 + q^79 - q^88 - 
        2*q^113 + q^116 + q^117 + O(q^124)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
80
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
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(
20
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^9 + (-a^3 + a)*q^17 + (a^3 - a^2 + a - 1)*q^25 + (a - 1)*q^33
        + (-a^2 - a)*q^41 + a^2*q^49 + (-a^3 + 2*a^2 - 2*a)*q^57 + (2*a^3 - a^2 
        + a - 1)*q^73 + (-a^3 + a^2)*q^89 + (-a + 1)*q^97 + (a^3 - 1)*q^113 + 
        a^3*q^121 + (-a^3 - 1)*q^129 + (-a^3 + a^2 - a)*q^137 + (-2*a^2 + 2*a - 
        1)*q^153 + a*q^169 + O(q^170),
    q^3 + (-a^3 + a^2 + 1)*q^11 + (a^3 + a^2)*q^19 + (-a^3 - a + 1)*q^27 + 
        (2*a^3 + a - 2)*q^43 + (-a^3 + a)*q^51 + (-a^3 - a^2 - a)*q^59 + (-a^2 -
        a - 1)*q^67 + (a^3 - a^2 + a - 1)*q^75 + (a^3 - 2*a^2 - 2)*q^83 - 
        a^3*q^99 + (2*a^3 + 2*a - 1)*q^107 + (-a^2 - a)*q^123 + (-2*a^3 + a^2 - 
        a + 1)*q^131 + a^2*q^147 + (2*a^3 - a^2 + a - 2)*q^163 + O(q^170)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
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(
80
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
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(
20
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^2 - 1)*q^9 + (a^2 - a)*q^17 - a^3*q^25 + (a^2 + 1)*q^33 + (a^3 + a -
        1)*q^41 + (a^3 - a^2 + a - 1)*q^49 + a*q^57 + (-a^3 - a)*q^73 + (a^3 - 
        a^2 - 1)*q^89 + (a^2 + 1)*q^97 + (-a + 1)*q^113 - a*q^121 + (-2*a^3 - a 
        + 1)*q^129 + (-a^3 + 1)*q^137 + q^153 + a^2*q^169 + O(q^170),
    q^2 + (-a^2 - 1)*q^18 + (a^2 - a)*q^34 - a^3*q^50 + (a^2 + 1)*q^66 + (a^3 + 
        a - 1)*q^82 + (a^3 - a^2 + a - 1)*q^98 + a*q^114 + (-a^3 - a)*q^146 + 
        O(q^170),
    q^3 + (a^3 - a^2)*q^11 + (-a^3 + a^2 - 1)*q^19 + (-a^2 + a - 1)*q^27 + 
        a^2*q^43 + (a^2 - a)*q^51 + (-a^3 + 2*a^2 - 2*a + 1)*q^59 + (a^3 - 2*a^2
        + a)*q^67 - a^3*q^75 - a*q^83 + a*q^99 + q^107 + (a^3 + a - 1)*q^123 + 
        (a^3 - 2*a^2 + a)*q^131 + (-2*a^2 + 2*a)*q^139 + (a^3 - a^2 + a - 
        1)*q^147 + (a^3 - a + 1)*q^163 + O(q^170),
    q^4 + (a^3 + a - 1)*q^12 + (-a^2 - 1)*q^36 - a^3*q^44 + (a^2 - a)*q^68 + (-a
        + 1)*q^76 - a^3*q^100 + (-a^3 + a^2 - a + 1)*q^108 + (a^2 + 1)*q^132 + 
        (a^3 + a - 1)*q^164 + O(q^170),
    q^6 + (a^3 - a^2)*q^22 + (-a^3 + a^2 - 1)*q^38 + (-a^2 + a - 1)*q^54 + 
        a^2*q^86 + (a^2 - a)*q^102 + (-a^3 + 2*a^2 - 2*a + 1)*q^118 + (a^3 - 
        2*a^2 + a)*q^134 - a^3*q^150 - a*q^166 + O(q^170),
    q^8 - a*q^16 + (a^3 + a - 1)*q^24 + a^2*q^32 + (-a^3 + 1)*q^48 - a^3*q^64 + 
        (-a^2 - 1)*q^72 - a^3*q^88 + (a^3 - a^2 - 1)*q^96 + (a^3 - a^2 + a - 
        1)*q^128 + (a^2 - a)*q^136 + (a^3 + a)*q^144 + (-a + 1)*q^152 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^5 - 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^165 + q^169 + 
        O(q^170),
    q^3 - q^11 + q^15 - q^23 - q^27 - q^31 + 2*q^47 - q^55 + q^59 + q^67 - q^71 
        + 2*q^103 + q^111 - q^115 - q^135 + q^147 - q^155 - 2*q^159 - 2*q^163 + 
        O(q^170)
]
;
Bo:=
[
    q - q^5 - 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^165 + q^169 + 
        O(q^170),
    q^2 - q^10 - q^66 - q^74 + q^98 + 2*q^106 + q^138 - q^162 + O(q^170),
    q^3 - q^11 - q^15 + q^23 - q^27 + q^31 - 2*q^47 + q^55 + q^59 + q^67 + q^71 
        - 2*q^103 - q^111 - q^115 + q^135 + q^147 - q^155 + 2*q^159 - 2*q^163 + 
        O(q^170),
    q^4 - q^20 - q^132 - q^148 + O(q^170),
    q^6 - q^22 - q^30 + q^46 - q^54 + q^62 - 2*q^94 + q^110 + q^118 + q^134 + 
        q^142 + O(q^170),
    q^8 - q^24 - q^40 + q^88 + q^120 + O(q^170),
    q^12 - q^44 - q^60 + q^92 - q^108 + q^124 + O(q^170),
    q^16 - q^48 - q^80 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
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(
16
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
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(
4
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
704
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.2 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - 2*q^25 + q^33 + q^49 - q^81 - q^89 - q^97 + q^113 - q^121 + q^137 - 
        q^169 + O(q^170),
    q^3 - q^27 + q^59 - q^67 - q^99 - q^115 + q^147 + q^155 + O(q^170),
    q^5 - q^37 - q^69 + q^93 - q^125 - q^157 + q^165 + O(q^170),
    q^9 - q^25 + q^33 - 2*q^81 - q^89 - q^97 + q^113 + q^137 + O(q^170),
    q^11 - 2*q^27 + 2*q^75 - q^99 + 2*q^115 - 2*q^155 - 2*q^163 + O(q^170),
    q^15 + q^23 - q^31 - q^55 - q^71 - q^111 + q^135 + O(q^170)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
705
);
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(
705
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
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(
705
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
705
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
705
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
705
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
705
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
705
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
705
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^15 - a^13 - a^11)*q^4 + (a^16 + a^14)*q^6 - a^17*q^9 + (a^20 + 
        a^18)*q^10 - a^21*q^15 + (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^6 - a^4 - a^2 - 
        1)*q^16 + (a^12 - a^9)*q^19 + (a^8 + a^6 + a^4 + a^2)*q^24 + a^2*q^25 + 
        (-a^19 + a^10)*q^31 + (-a^21 - a^19 - a^3 - a)*q^34 + (-a^9 - a^7 - 
        a^5)*q^36 + (a^12 + a^10 + a^8 + a^6)*q^40 + (-a^19 - a^17 + a^6 + 
        a^4)*q^46 + a^18*q^49 + (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^3 -
        a^2 + a - 1)*q^51 + (a^10 + a^8)*q^54 + (-a^13 - a^11 - a^9)*q^60 + 
        (a^16 - a^15)*q^61 + (a^21 + a^19 + a^17 + a^15 + a^13 + a^11 + a^9 - 
        a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^64 + (a^20 - 
        a^7)*q^69 + (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^3)*q^76 + (a^14 - 
        a^5)*q^79 - a^11*q^81 + (a^8 - a^3)*q^85 + (a^14 + a^12)*q^90 + (-a^21 +
        1)*q^94 + (-a^21 - a^19 - a^17 - a^15 - a^13 + 1)*q^96 + (-a^17 - a^15 -
        a^13)*q^100 + (-a^17 - a^15 - a^5 - a^3)*q^106 + (-a^13 + a^6)*q^109 + 
        (-a^5 - a^3 + a^2 + 1)*q^114 + (-a^11 - a)*q^115 + a^14*q^121 + (-a^21 -
        a^11 - a^9 - a^7 + a^2 + 1)*q^124 - a^15*q^135 + (a^18 + a^16 + a^14 - 
        a^13 + a^12 - a^11 - a^9 - a^7)*q^136 + (a^20 + a^16)*q^139 - a*q^141 + 
        (a^21 + a^19 + 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 - 1)*q^144 + (a^18 + a^16)*q^150
        + (a^8 - a^7)*q^151 + (a^18 + a^6)*q^159 + (-a^21 - a^19 - a^17 + a^4 + 
        a^2 + 1)*q^160 + (a^18 + a^16 - a^11 - a^9)*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^6 - 
        a^3)*q^171 + (-a^13 - a^5)*q^181 + (-a^21 - a^19 - a^17 - a^15 - a^11 - 
        a^9 - a^7 - a^5)*q^184 + O(q^186),
    q^2 + (a^20 - a^19 + a^16 - a^15 + a^12 - a^11 + a^8 - a^7 + a^4 - a^3 - a +
        1)*q^3 + (a^20 - a^19 + a^16 - a^15 + a^12 - a^11 + a^8 - a^7 - a^5 + 
        a^4 - a + 1)*q^5 + (-a^15 - a^11)*q^8 + (a^21 - a^20 + a^17 + a^13 - 
        a^10 + a^9 - a^6 + a^5 - a^2 + a)*q^12 + (-a^21 + a^19 - a^17 + a^15 - 
        a^13 + a^6 - a^4 + a^2 - 1)*q^17 - a^17*q^18 + (a^21 + a^17 - a^14 + 
        a^13 - a^10 + a^9 - a^6 + a^5 - a^2 + a)*q^20 + (a^14 - a^12 + a^10 - 
        a^8 + a^6)*q^23 + (-a^21 + a^20 + a^18 - a^17 + a^14 - a^13 + a^10 - a^9
        + a^6 - a^5 + a^2 - a)*q^27 - a^21*q^30 + (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^6 
        + a^5 - a^4 - a^2 + a - 1)*q^32 + (a^12 - a^9)*q^38 + (-a^20 + a^19 - 
        a^16 + a^15 - a^12 + a^11 - a^8 + a^7 - a^4 + a^3 - 1)*q^45 + (a^21 - 
        a^20 + a^17 - a^16 + a^13 - a^12 + a^9 - a^6 + a^5 - a^2 + a)*q^47 + 
        (a^21 - a^20 + a^17 - a^16 + a^13 - a^12 + a^9 + a^5 + a)*q^48 + 
        a^2*q^50 + (-a^21 + 2*a^20 - a^19 - a^17 + 2*a^16 - a^15 - 2*a^13 + 
        2*a^12 - 2*a^9 + 2*a^8 - 2*a^5 + 2*a^4 + a^2 - 2*a + 1)*q^53 + (-a^21 + 
        2*a^20 - a^19 - a^17 + 2*a^16 - a^15 - 2*a^13 + 2*a^12 + a^10 - 2*a^9 + 
        a^8 + a^6 - 2*a^5 + a^4 + a^2 - 2*a + 1)*q^57 + (-a^19 + a^10)*q^62 + 
        (-a^21 - a^17 + a^15 - a^13 + a^11 - a^9 + a^7 - a^5 - a)*q^68 + (-a^9 -
        a^5)*q^72 + (-a^20 + a^19 - a^16 + a^15 - a^12 + a^11 - a^8 + a^7 - a^4 
        + a - 1)*q^75 + (a^21 - a^20 + a^17 - a^16 + a^13 + a^9 + a^5 - a^2 + 
        a)*q^80 + (-2*a^20 + a^19 + a^17 - 2*a^16 + a^15 + a^13 - 2*a^12 + a^11 
        + a^9 - 2*a^8 + a^7 + a^5 - 2*a^4 + 2*a - 2)*q^83 + (-a^21 - a^17 + a^6 
        + a^2 - 1)*q^92 + (a^21 - a^20 + a^19 - a^18 + a^17 - a^16 + a^15 - a^14
        + a^13 - a^12 - a^10 + 2*a^9 - a^8 - a^6 + 2*a^5 - a^4 - a^2 + 2*a - 
        1)*q^93 + (-a^21 + 2*a^20 - a^19 - 2*a^17 + 2*a^16 + a^14 - 2*a^13 + 
        a^12 + a^10 - 2*a^9 + a^8 + a^6 - 2*a^5 + a^4 + a^2 - 2*a + 1)*q^95 + 
        a^18*q^98 + (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^3 - a^2 + a 
        - 1)*q^102 + (a^18 - a^16 + a^14)*q^107 + (-a^21 + a^20 - a^17 + a^16 - 
        a^13 + a^12 + a^10 - a^9 + a^8 + a^6 - a^5 + a^2 - a)*q^108 + (-2*a^20 +
        2*a^19 - 2*a^16 + 2*a^15 - 2*a^12 + 2*a^11 - 2*a^8 + a^7 + a^5 - 2*a^4 +
        a^3 + a - 2)*q^113 + (-a^13 - a^9)*q^120 + (a^16 - a^15)*q^122 + (-a^20 
        + a^19 - a^16 + a^15 - a^12 + a^11 - a^8 + a^5 - a^4 + a - 1)*q^125 + 
        (a^21 - a^20 + a^19 + a^17 - a^16 + a^15 + 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^128 + (-a^21 + 2*a^20
        - a^19 - a^17 + 2*a^16 - a^15 - a^13 + 2*a^12 - a^11 - 2*a^9 + 2*a^8 - 
        2*a^5 + 2*a^4 + a^2 - 2*a + 1)*q^137 + (a^20 - a^7)*q^138 + (-a^20 + 
        a^17 - a^16 + a^13 - a^12 + a^9 - a^8 + a^5 - a^4 + a - 1)*q^147 + (a^20
        + a^4 - a + 1)*q^152 + (a^21 - a^19 + a^17 - a^15 + a^13 - a^11 + a^9 - 
        a^7 + 1)*q^153 + (-a^15 + a^13 - a^11 + a^9 - a^7 + a^5 - a^3)*q^155 + 
        (a^14 - a^5)*q^158 - a^11*q^162 + (2*a^21 - 2*a^20 + 2*a^17 - a^16 - 
        a^14 + 2*a^13 - a^12 - a^10 + 2*a^9 - a^8 - a^6 + 2*a^5 - 2*a^2 + 
        2*a)*q^167 + (a^8 - a^3)*q^170 + (-2*a^21 + 2*a^20 - 2*a^17 + 2*a^16 - 
        2*a^13 + 2*a^12 - 2*a^9 + 2*a^8 + a^6 - 2*a^5 + a^4 + a^2 - 2*a + 
        1)*q^173 + (-a^21 + a^20 - a^17 + a^16 + a^14 - a^13 + a^12 + a^10 - a^9
        + a^6 - a^5 + a^2 - a)*q^180 + (a^21 - a^19 + a^16 - a^14 + a^12 - a^10 
        + a^8 - a^6 + a^4 - a^2 + 1)*q^183 + O(q^186)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
705
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
23*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^8 - q^9 + q^14 - q^17 + q^25 + q^27 - q^28 + q^32 - q^34 - q^37 + q^47
        + q^54 + q^68 - q^71 + q^72 - q^74 - q^79 - q^81 + 2*q^83 - q^98 - q^101
        - q^103 + q^106 - q^108 + q^118 - q^119 + q^121 + q^122 - q^126 + q^136 
        - q^142 + q^148 - q^149 + q^153 - q^158 - q^162 + q^169 + q^178 + 
        O(q^186),
    q^2 - q^4 + q^7 - q^14 - q^17 - q^18 + q^27 + q^28 + q^36 - q^37 - q^49 + 
        q^50 + q^53 - q^56 + q^59 + q^61 - q^63 + 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^126 - q^128 + q^131 + q^136 - q^149 + q^153 + q^157 + 2*q^166 
        + q^173 + q^175 - q^178 + O(q^186),
    q^3 - q^9 - q^18 - q^24 + q^27 + q^36 + q^42 - q^51 + q^54 - q^63 + q^72 + 
        q^75 - q^81 - q^84 + q^96 - q^102 - q^108 - q^111 + q^141 + 2*q^153 + 
        O(q^186),
    q^5 - q^40 - q^45 + q^70 - q^85 + q^125 + q^135 - q^140 + q^160 - q^170 - 
        q^185 + O(q^186),
    q^6 - q^9 - q^12 + q^21 + q^27 - q^42 - q^51 + q^72 + q^84 - q^111 - q^126 -
        q^147 + q^150 + q^153 + q^159 - q^162 - q^168 + q^177 + q^183 + 
        O(q^186),
    q^10 - q^20 + q^35 - q^70 - q^85 - q^90 + q^135 + q^140 + q^180 - q^185 + 
        O(q^186),
    q^15 - q^45 - q^90 - q^120 + q^135 + q^180 + O(q^186),
    q^30 - q^45 - q^60 + q^105 + q^135 + O(q^186)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
705
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
705
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
706
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
352
);
qprec:=
175
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
706
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
32
);
qprec:=
175
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
100
);
qprec:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^2 - a + 1)*q^2 + (-a^3 + a^2 - a)*q^4 - a^3*q^8 + (-a + 1)*q^9 - 
        a^3*q^15 + (-a^3 + 2*a^2 - 2*a + 1)*q^18 + (a - 1)*q^21 + a*q^23 + (a^3 
        + a - 1)*q^25 + (a^2 - a + 1)*q^29 + (-a^2 + a)*q^30 - q^32 + (-a^3 - a 
        + 1)*q^35 + (-a^3 + a^2 - 1)*q^36 + (-a^2 - 1)*q^37 + (a^3 - 2*a^2 + 2*a
        - 1)*q^42 + (a^3 + a)*q^43 + (a^3 - a^2 + a)*q^46 + a^3*q^49 + (a^3 - 
        a^2 + a - 1)*q^50 + (-a^2 + a)*q^51 + a^3*q^53 + (a^3 - a^2)*q^57 + 
        (-a^3 + 2*a^2 - a)*q^58 + (a^3 - a^2)*q^60 + (-a^2 + a - 1)*q^64 + (-a^2
        + a - 1)*q^67 + (-a^3 + a^2 - a + 1)*q^70 + (a^2 - a)*q^71 + (-a^2 + a -
        1)*q^72 - a^2*q^74 + (a^3 - a^2 + a - 1)*q^79 + (a^3 - a^2 + 1)*q^84 + 
        (a^3 - 1)*q^85 + a^3*q^86 + (-a + 1)*q^92 + (a - 1)*q^93 + (-a^3 + a^2 +
        1)*q^95 + (a^2 - a)*q^98 + q^100 + (a^3 - a^2 + 1)*q^102 + (a^2 - 
        a)*q^106 - q^107 - a^3*q^109 + (a^2 - 2*a + 1)*q^114 + (-a^3 + a - 
        1)*q^116 + (-a^3 + a^2 - a + 1)*q^119 - a*q^120 + a*q^121 + (a^3 - a^2 +
        a)*q^127 + (a^3 - a^2 + a)*q^128 - q^133 + O(q^134),
    q^3 + (a^3 - a^2 - 2)*q^5 + (a^2 - a + 1)*q^6 + (-a^3 + a^2 + 1)*q^7 + (-a^2
        - 1)*q^10 + (-a^3 + a^2 - a)*q^12 + a*q^14 + (-a^2 - 1)*q^17 + (a^3 + 
        a)*q^19 + (a^3 + a)*q^20 - a^3*q^24 + (-a^3 - a + 1)*q^27 - a^2*q^28 + 
        (-a^3 + a^2 + 1)*q^31 - a^2*q^34 + a^3*q^38 + (2*a^3 + a - 1)*q^40 + 
        (a^3 + a - 1)*q^45 + (a^3 - 1)*q^47 + (-a^3 + a^2 - a + 1)*q^54 + (-a^3 
        - a + 1)*q^56 + q^59 + a*q^62 - a^3*q^63 + a^3*q^68 + a*q^69 + (-a^3 - 
        a)*q^73 + (a^3 + a - 1)*q^75 + (-a^3 + a^2 - a + 1)*q^76 + (a^2 - a + 
        1)*q^87 + (-2*a^3 - 2*a)*q^89 + (a^3 - a^2 + a - 1)*q^90 - q^94 - q^96 +
        a^3*q^97 + (-a^3 + a^2 + 1)*q^101 + (-a^3 - a + 1)*q^105 - q^108 + (-a^2
        - 1)*q^111 + (-a^2 - a - 1)*q^115 + (a^2 - a + 1)*q^118 - a^2*q^124 + 
        (-a^3 - a + 1)*q^125 + (-a^2 + a)*q^126 + (a^3 + a)*q^129 + O(q^134)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
707
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^21 - q^23 + q^25 - q^37 - q^43 + q^49 + q^64 - q^71 - 
        q^79 - q^81 - q^84 - q^92 + q^100 - q^107 + q^121 - 2*q^123 + O(q^134),
    q^3 - q^7 + q^12 - q^27 - q^28 - 2*q^41 + q^48 + q^59 + q^61 - q^69 + q^73 +
        q^75 + q^83 + q^89 - q^101 + q^103 - q^108 - q^111 - q^112 - q^129 + 
        O(q^134)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
708
);
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(
708
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
708
);
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(
708
);
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(
58
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
708
);
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(
708
);
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(
58
);
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
708
);
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:=
[]
;
Bo:=
[
    q + q^27 - q^41 - q^45 + q^49 - q^51 - q^53 + q^59 + q^75 - q^79 - q^81 - 
        q^85 + q^95 - q^105 - q^119 + q^121 + q^123 - q^135 + q^159 + q^169 - 
        q^171 - q^175 - q^181 + q^189 - q^199 + 2*q^203 - q^213 + q^225 + 
        O(q^230),
    q^2 + q^8 - q^10 - q^14 - q^18 + q^32 + 2*q^34 - q^38 - q^40 + q^54 - q^56 -
        q^58 + q^70 - q^72 - q^82 + q^90 - q^106 + q^118 + q^126 + q^128 + 
        2*q^136 + 2*q^142 - q^152 - q^158 - q^160 - 2*q^170 + q^190 - q^214 + 
        q^216 - q^224 + O(q^230),
    q^3 + q^27 - q^45 - q^51 - q^63 + q^75 - q^81 - q^105 - q^135 + q^147 - 
        q^171 + q^177 + 2*q^189 - q^213 + 2*q^225 + O(q^230),
    q^4 + q^16 - q^20 - q^28 - q^36 + q^64 + 2*q^68 - q^76 - q^80 + q^108 - 
        q^112 - q^116 + q^140 - q^144 - q^164 + q^180 - q^212 + O(q^230),
    q^5 + q^19 - q^25 + q^27 - q^41 - q^45 + q^49 - q^53 - q^79 - q^85 - q^95 + 
        q^107 + q^125 + q^127 - q^135 - q^171 - q^175 - q^181 + q^189 + q^193 - 
        q^199 + q^203 + q^205 + q^225 + O(q^230),
    q^6 - q^18 + q^24 - q^30 - q^42 - q^72 + q^90 + q^96 + 2*q^102 - q^114 - 
        q^120 + q^126 + q^162 - q^168 - q^174 + q^210 + O(q^230),
    q^7 - q^25 + q^27 + q^29 + q^35 - q^41 - q^53 - q^63 - q^79 - q^81 - q^95 - 
        q^119 + q^133 + q^137 + q^145 + q^167 - q^181 + q^189 - q^199 + q^225 + 
        O(q^230),
    q^9 - q^45 - q^51 + q^75 - q^105 + q^123 - q^135 + q^159 - q^171 - q^213 + 
        q^225 + O(q^230),
    q^12 - q^36 + q^48 - q^60 - q^84 - q^144 + q^180 + q^192 + 2*q^204 - q^228 +
        O(q^230),
    q^15 - q^51 + q^57 - q^63 - q^81 - q^105 + q^147 + q^153 + q^189 - q^213 + 
        O(q^230),
    q^17 - q^25 + q^27 + q^35 - q^41 - q^53 + q^71 - q^79 - q^85 - q^95 - q^119 
        + q^125 + q^133 - q^135 + q^139 + q^145 - q^153 + q^163 - q^181 + q^197 
        - q^199 + q^205 + q^223 + q^225 + O(q^230),
    q^21 + q^27 - q^45 - q^51 - q^63 - q^81 + q^87 + q^153 - q^171 + q^189 - 
        q^213 + q^225 + O(q^230)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
708
);
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:=Rationals();
qprec:=
230
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
709
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
708
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
709
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
236
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
709
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
59*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
709
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
177*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
118
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
710
);
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(
710
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
710
);
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(
70
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
710
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
710
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
710
);
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(
14
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
710
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
710
);
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(
10
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
710
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
710
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
710
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
35*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^12 + q^18 - q^19 - q^37 + q^38 + q^40 - q^45 + q^48 + q^49 - q^54 - 
        q^64 + q^71 + q^74 - q^80 - q^83 - q^86 + q^87 - q^95 - q^100 - q^101 + 
        2*q^107 - q^114 - q^116 - q^120 + q^121 + q^128 - q^129 + q^135 - q^146 
        - q^158 + q^160 + q^166 + q^169 + q^171 + q^172 + q^174 + q^180 - q^185 
        - q^199 + q^200 + q^202 + O(q^210),
    q^2 - q^12 + q^18 - q^24 + q^36 + q^48 - q^50 - q^54 - q^64 + q^76 - q^86 + 
        q^96 + q^98 - q^108 - q^114 - q^116 + q^142 - q^146 + q^148 - q^158 + 
        2*q^174 + O(q^210),
    q^3 - q^12 + q^16 + q^29 - q^32 - q^43 + q^72 - q^73 - q^75 - q^79 - q^81 + 
        q^89 + q^103 + q^109 - q^116 + q^125 - q^129 - q^131 + q^147 + q^151 + 
        q^152 + q^157 - q^167 - q^171 + q^172 - q^179 + q^191 + O(q^210),
    q^4 - q^9 - q^12 + q^18 - q^19 - q^24 + q^27 + q^36 - q^37 + q^38 + q^43 - 
        q^54 + q^57 - q^64 + q^72 + q^73 + q^74 + q^79 - q^83 - q^86 - q^87 + 
        q^96 - q^100 - q^101 - q^108 + q^111 - q^114 - q^116 - q^125 + q^131 - 
        q^146 + q^152 - q^158 + q^166 + q^167 + q^174 + q^179 + q^192 + q^196 - 
        q^199 + q^202 + O(q^210),
    q^5 - q^50 - q^60 - q^75 + q^90 - q^95 + q^100 + q^125 - q^185 + q^190 + 
        O(q^210),
    q^6 - q^9 - q^19 - q^24 + q^27 + q^32 - q^37 + q^43 + q^57 + q^58 - q^64 + 
        q^73 + q^79 - q^83 - q^86 - q^87 - q^101 + q^111 - q^125 + q^131 + q^144
        - q^146 - q^150 - q^158 - q^162 + q^167 + q^178 + q^179 - q^199 + q^206 
        + O(q^210),
    q^8 - q^9 - q^16 - q^19 - q^24 + q^27 + q^32 + q^36 - q^37 + q^43 + q^57 - 
        q^64 + q^73 + q^76 + q^79 - q^83 - q^87 - q^101 - q^108 + q^111 - q^125 
        + q^131 + q^144 + q^148 - q^152 + q^167 - q^172 + q^179 + q^192 - q^199 
        - q^200 + O(q^210),
    q^10 - q^50 - q^60 + q^90 - q^120 - q^150 + q^180 + q^200 + O(q^210),
    q^15 + q^40 - q^45 - q^60 - q^75 - q^95 - q^120 + q^125 + q^135 + q^145 + 
        q^180 - q^185 + O(q^210),
    q^20 - q^40 - q^50 - q^60 + q^80 + q^90 + q^100 - q^160 + q^190 - q^200 + 
        O(q^210),
    q^25 + q^40 - q^45 - q^80 - q^95 - q^100 - q^120 + q^135 + q^160 + q^180 - 
        q^185 + q^200 + O(q^210),
    q^30 - q^40 - q^50 + q^80 + q^100 - q^150 - q^180 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
710
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 35*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^19 + q^25 - 2*q^29 - 3/2*q^30 + q^32 + 2*q^36 + q^37 - 1/2*q^40 - 
        2*q^45 + q^48 - q^49 + 1/2*q^50 - q^54 - q^58 + q^64 - q^71 + q^72 + 
        q^74 - 2*q^76 - 1/2*q^80 - q^83 - q^86 + q^87 + 2*q^89 - q^90 + 2*q^95 +
        1/2*q^100 + q^101 - q^108 + 2*q^109 + 2*q^111 + q^114 - q^116 + q^121 - 
        q^128 - q^129 + 2*q^144 + q^146 - 1/2*q^150 - 2*q^151 - q^152 - q^158 + 
        q^162 - q^166 - q^169 - q^171 - q^172 + q^174 + q^178 - 3/2*q^180 + 
        q^190 - 2*q^191 - q^192 + q^199 + O(q^210),
    q^2 + 1/2*q^25 - q^29 - 1/2*q^30 + q^32 + q^36 - q^38 - q^40 - 1/2*q^45 + 
        q^48 + 1/2*q^50 - q^54 - q^58 + q^72 - q^76 - q^86 + q^89 - q^90 + 
        1/2*q^95 - q^98 + q^109 + q^111 + q^114 - 1/2*q^120 - 1/2*q^135 - q^142 
        + q^144 + q^146 + q^148 + 1/2*q^150 - q^151 - q^152 - q^158 - 1/2*q^160 
        + q^162 + q^178 - q^180 - 1/2*q^185 + q^190 - q^191 - q^192 + 1/2*q^200 
        + q^202 + O(q^210),
    q^3 + 1/2*q^20 - 1/2*q^25 - q^27 - 1/2*q^45 + 1/2*q^50 + q^57 - q^58 - 
        1/2*q^60 + q^72 - 1/2*q^90 + 1/2*q^95 - q^103 - q^108 + 1/2*q^120 + 
        1/2*q^135 - q^147 - q^152 + q^157 - q^172 + q^178 - 1/2*q^180 - 
        1/2*q^185 + 1/2*q^190 + O(q^210),
    q^4 - 1/2*q^20 - q^25 - q^27 + 2*q^29 + 5/2*q^30 - 2*q^32 - 3*q^36 - 2*q^37 
        + q^40 - q^43 + 2*q^45 - q^48 - q^50 + 2*q^54 + q^57 + 2*q^58 - 1/2*q^60
        - q^72 + q^73 - q^74 + q^75 + 2*q^76 - q^79 - q^80 + q^81 + 2*q^83 + 
        2*q^86 - 2*q^87 - 2*q^89 + 3/2*q^90 - 2*q^95 + q^96 + q^108 - 2*q^109 - 
        3*q^111 - 2*q^114 - q^125 + q^128 + q^129 + q^131 + q^135 - 2*q^144 + 
        2*q^145 - 2*q^146 + 1/2*q^150 + 2*q^151 + q^152 + 2*q^158 + 1/2*q^160 - 
        2*q^162 + q^166 + q^167 - q^171 + q^172 - q^174 - 2*q^178 + q^179 + 
        3/2*q^180 - 3/2*q^190 + 2*q^191 + q^192 - q^196 - 1/2*q^200 + O(q^210),
    q^5 - q^25 - 2*q^27 + 2*q^29 + 2*q^30 - 2*q^32 - 2*q^36 - 2*q^37 + q^40 - 
        2*q^43 + q^45 - q^50 + 2*q^54 + 2*q^57 + 2*q^58 - q^60 + 2*q^73 + q^75 +
        2*q^76 - q^80 + 2*q^83 + 2*q^86 - 2*q^87 - 2*q^89 + q^90 - 2*q^95 - 
        2*q^109 - 2*q^111 - 2*q^114 + q^120 - q^125 + q^135 - 2*q^144 + 2*q^145 
        - 2*q^146 + 2*q^151 + 2*q^158 + q^160 - 2*q^162 + 2*q^167 - 2*q^178 + 
        q^180 - q^190 + 2*q^191 - q^200 + O(q^210),
    q^6 - 1/2*q^20 - q^25 - q^27 + 2*q^29 + 2*q^30 - 2*q^32 - 2*q^36 - 2*q^37 + 
        3/2*q^40 - q^43 + 2*q^45 - q^48 - 3/2*q^50 + q^54 + q^57 + 2*q^58 - 
        1/2*q^60 - q^72 + q^73 + q^75 + 2*q^76 - q^79 - 1/2*q^80 + q^81 + 2*q^83
        + 2*q^86 - 2*q^87 - 2*q^89 + 1/2*q^90 - 2*q^95 + 1/2*q^100 + q^108 - 
        2*q^109 - 3*q^111 - q^114 - q^116 - q^125 + q^128 + q^129 + q^131 + 
        q^135 - q^144 + 2*q^145 - 2*q^146 + 2*q^151 + q^152 + 2*q^158 + 
        1/2*q^160 - 2*q^162 + q^167 - q^171 + q^172 - 2*q^178 + q^179 + q^180 - 
        1/2*q^190 + 2*q^191 + q^192 - 1/2*q^200 - q^206 + O(q^210),
    q^8 + 1/2*q^20 + 1/2*q^25 - q^29 - q^30 + q^36 - 1/2*q^45 + 1/2*q^50 - q^54 
        - q^58 + 1/2*q^60 - q^76 - q^86 + q^89 - 1/2*q^90 + 1/2*q^95 - q^108 + 
        q^109 + q^111 + q^114 + 1/2*q^120 - 1/2*q^135 + q^144 + q^146 - q^148 - 
        q^151 - q^152 - q^158 - q^160 + q^162 - q^172 + q^178 - 1/2*q^180 - 
        1/2*q^185 + 1/2*q^190 - q^191 + q^192 + O(q^210),
    q^9 - q^19 + 1/2*q^20 + 1/2*q^25 - q^29 - q^30 + q^32 + 2*q^36 + q^37 - q^40
        - 3/2*q^45 + q^48 + 1/2*q^50 - q^54 - q^58 + 1/2*q^60 + q^72 - q^75 - 
        2*q^76 - q^81 - q^83 - q^86 + q^87 + q^89 - 1/2*q^90 + 3/2*q^95 - q^96 +
        q^101 - q^108 + q^109 + q^111 + q^114 + 1/2*q^120 - q^128 - q^129 - 
        1/2*q^135 + q^144 + q^146 - q^151 - q^152 - q^158 + q^162 + q^171 - 
        q^172 + q^178 - 3/2*q^180 + 1/2*q^185 + 1/2*q^190 - q^191 - q^192 + 
        q^199 + O(q^210),
    q^10 + q^25 - 2*q^29 - q^30 + 2*q^36 - q^45 - 2*q^54 + q^60 - 2*q^76 - 
        2*q^86 + 2*q^89 - q^90 + q^95 + 2*q^109 + 2*q^111 + 2*q^114 - q^135 + 
        2*q^144 + 2*q^146 - 2*q^151 - q^160 - q^180 - q^185 - 2*q^191 + 
        O(q^210),
    q^12 - 1/2*q^20 - q^32 + 1/2*q^40 - q^48 - 1/2*q^50 + q^58 + 1/2*q^60 - q^72
        + 1/2*q^80 + 1/2*q^90 - 1/2*q^100 + q^128 + q^152 - 1/2*q^160 + q^172 - 
        q^178 - 1/2*q^190 + q^192 + 1/2*q^200 + O(q^210),
    q^15 - q^20 - q^25 + 2*q^29 + 2*q^30 - 2*q^32 - 2*q^36 - 2*q^37 + q^40 + 
        2*q^45 - 2*q^48 - q^50 + 2*q^54 + 2*q^58 - 2*q^72 + q^75 + 2*q^76 + 
        2*q^83 + 2*q^86 - 2*q^87 - 2*q^89 + q^90 - 2*q^95 + 2*q^108 - 2*q^109 - 
        2*q^111 - 2*q^114 - q^125 + 2*q^128 - 2*q^144 + q^145 - 2*q^146 + 
        2*q^151 + 2*q^152 + 2*q^158 - 2*q^162 + 2*q^172 - 2*q^178 + 2*q^180 - 
        q^190 + 2*q^191 + 2*q^192 + O(q^210),
    q^16 - q^20 - 1/2*q^25 - q^27 + q^29 + 2*q^30 - 2*q^32 - 2*q^36 - 2*q^37 + 
        3/2*q^40 - q^43 + 3/2*q^45 - q^48 - q^50 + 2*q^54 + q^57 + 2*q^58 - q^60
        - q^72 + q^73 + q^75 + 2*q^76 - q^79 - 1/2*q^80 + q^81 + 2*q^83 + 2*q^86
        - 2*q^87 - q^89 + q^90 - 3/2*q^95 + 1/2*q^100 + q^108 - q^109 - 2*q^111 
        - 2*q^114 - q^116 + 1/2*q^120 - q^125 + q^128 + q^129 + q^131 + 
        1/2*q^135 - 2*q^144 + 2*q^145 - 2*q^146 + q^151 + q^152 + 2*q^158 + 
        1/2*q^160 - 2*q^162 + q^167 - q^171 + q^172 - 2*q^178 + q^179 + 
        3/2*q^180 - 1/2*q^185 - q^190 + q^191 + q^192 - 1/2*q^200 + O(q^210),
    q^18 - 1/2*q^20 + 1/2*q^30 - q^38 - q^48 + 1/2*q^60 - 1/2*q^90 + q^108 + 
        q^128 - 1/2*q^150 - 1/2*q^160 - q^162 + q^172 + 1/2*q^180 + 1/2*q^190 + 
        1/2*q^200 + q^202 + O(q^210),
    q^24 - 1/2*q^25 + q^29 - 1/2*q^40 + 1/2*q^45 - q^64 + 1/2*q^80 - q^89 - 
        1/2*q^95 - q^96 - 1/2*q^100 - q^109 - q^111 + q^116 + 1/2*q^120 + 
        1/2*q^135 - q^144 + q^151 + 1/2*q^160 + 1/2*q^180 + 1/2*q^185 + q^191 - 
        1/2*q^200 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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(
711
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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(
78
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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(
78
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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(
78
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^4*q^4 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 2*a^2
        + a - 1)*q^7 + (-a^5 - a^3)*q^13 + a^8*q^16 + (a^10 - a^9)*q^19 - 
        a^10*q^25 + (a^6 + a^3)*q^28 + (a^11 - a^6)*q^31 + (a^5 - a)*q^37 + 
        (-a^8 + a^2)*q^43 + (-a^11 + a^4 + a)*q^49 + (a^9 + a^7)*q^52 + (-a^11 +
        a^10 - a^9 + a^8 - 2*a^7 + a^6 - a^5 + a^4 - a^3 + a^2 - a + 1)*q^61 + 
        (-a^11 + a^10 - a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - a^3 + a^2 - a + 
        1)*q^64 + (a^9 - 1)*q^67 + (-a^11 - a^7)*q^73 + (a - 1)*q^76 - a^8*q^79 
        + (a^7 + a^5 + a^4 + a^2)*q^91 + (-a^6 - 1)*q^97 - a*q^100 + (a^7 + 
        a^6)*q^103 + (a^11 + a^4)*q^109 + (-a^10 - a^7)*q^112 + a^3*q^121 + 
        (a^10 + a^2)*q^124 + (a^3 - a)*q^127 + (a^10 - 2*a^9 + 2*a^8 - a^7 + a^6
        - a^5 + a^4 - a^3 + a^2 - a + 1)*q^133 + (-a^5 + a)*q^139 + (-a^9 + 
        a^5)*q^148 + (-a^11 - a^3)*q^151 + O(q^154)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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(
78
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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(
78
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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(
26
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^8*q^4 + (-a^11 + a^4)*q^7 + (a^10 + a^6)*q^13 - a^3*q^16 + (-a^7 - 
        a^5)*q^19 - a^7*q^25 + (a^11 - a^10 + a^9 - a^8 + a^7 + a^5 - a^4 + a^3 
        - a^2 + a - 1)*q^28 + (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^4 - a^3)*q^43 + (-a^9 + a^8 +
        a^2)*q^49 + (-a^5 - a)*q^52 + (-a^11 - a)*q^61 - a^11*q^64 + (-a^5 + 
        1)*q^67 + (-a^9 - a)*q^73 + (a^2 + 1)*q^76 - a^3*q^79 + (a^10 + a^8 + 
        a^4 - a)*q^91 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 -
        a^2 + a)*q^97 + a^2*q^100 + (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^7 - a)*q^112 + 
        a^6*q^121 + (-a^7 + a^4)*q^124 + (a^6 + a^2)*q^127 + (-a^11 - a^9 - a^5 
        - a^3)*q^133 + (a^10 + a^2)*q^139 + (a^10 - a^5)*q^148 + (-a^9 + 
        a^6)*q^151 + O(q^154),
    q^3 - a*q^9 + a^8*q^12 + (-a^11 + a^4)*q^21 + a^2*q^27 - a^9*q^36 + (a^10 + 
        a^6)*q^39 - a^3*q^48 + (-a^7 - a^5)*q^57 + (a^11 - a^10 + a^9 - a^8 + 
        a^7 - a^6 - a^4 + a^3 - a^2 + a - 1)*q^63 - a^7*q^75 - a^3*q^81 + (a^11 
        - a^10 + a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^84 + (a^11 -
        a^10 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^93 + 
        a^10*q^108 + (a^10 + a^2)*q^111 + (-a^11 - a^7)*q^117 + (a^4 - 
        a^3)*q^129 + a^4*q^144 + (-a^9 + a^8 + a^2)*q^147 + O(q^154)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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(
6
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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(
6
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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(
6
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
39*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^13 + q^16 + q^19 - q^22 - q^31 - q^40 + q^49 - q^52 - q^67 + q^73 - 
        2*q^76 - q^79 - q^88 - q^97 + q^100 - q^115 + q^124 - q^130 + q^151 + 
        O(q^154),
    q^2 + q^19 + q^22 - q^23 - q^25 - q^26 - q^31 + q^50 - q^52 - q^64 - q^65 + 
        q^73 - q^80 + q^88 + q^89 + q^95 + q^98 - q^110 + q^125 + q^130 - q^131 
        + q^151 + O(q^154),
    q^4 - q^13 - q^19 - q^22 + q^25 + q^31 - q^40 + q^52 + q^64 + q^67 - q^73 - 
        q^88 + q^97 - q^115 + q^121 - q^124 - q^130 - q^151 + O(q^154),
    q^5 - q^13 - q^16 - q^19 + q^22 + q^25 - q^26 + q^31 - q^32 + q^38 + q^40 + 
        q^44 - q^46 - q^55 - q^73 + 2*q^76 + q^79 - q^83 + q^88 - q^92 - q^95 - 
        q^100 - q^110 + q^115 - q^124 + q^125 + q^146 - q^151 + O(q^154),
    q^8 - q^13 - q^16 - q^19 - q^20 + q^22 + q^23 + q^25 + q^31 + q^40 - q^46 - 
        q^50 - q^55 - q^62 + q^65 - q^73 + 2*q^76 + q^79 - q^83 + q^88 - q^95 - 
        q^100 + q^110 + q^115 - q^124 + q^131 + q^134 - q^143 - q^151 - q^152 + 
        O(q^154),
    q^10 - q^13 - q^16 + q^25 + q^31 - q^46 - q^55 + q^76 + q^88 - q^115 - q^130
        + O(q^154),
    q^11 - q^13 - q^16 + 2*q^22 - q^26 - q^32 + q^38 + q^40 + 2*q^44 - q^46 - 
        q^50 - q^52 - q^55 - q^62 - q^64 + q^65 + 2*q^76 + q^79 + q^80 - q^83 + 
        2*q^88 - q^92 - q^95 - q^100 + q^101 - q^104 - q^110 + q^115 - q^124 - 
        q^128 + q^130 - q^143 + q^146 + q^152 + O(q^154)
]
;
Bo:=
[
    q - q^5 - q^8 - q^10 - q^19 + q^20 + q^22 - q^23 + q^25 + q^26 + q^32 - q^38
        + q^40 - q^44 - q^46 + q^49 + q^50 - q^52 - q^55 + q^62 - q^65 - q^67 - 
        q^73 + q^76 + q^79 + 2*q^83 + q^92 + 2*q^95 - q^97 - q^100 + 2*q^115 - 
        q^124 - q^125 - q^131 - q^134 + q^143 - q^146 - q^151 + q^152 + 
        O(q^154),
    q^2 - q^4 - q^5 + q^11 + q^13 - q^19 - q^22 - q^23 + q^25 - q^26 + q^31 + 
        q^40 + q^44 + q^52 - q^62 + q^64 - q^67 - q^73 - q^88 + q^89 + q^95 - 
        q^97 + q^98 + q^101 - q^104 - q^110 + q^115 - q^121 + q^124 - q^128 - 
        q^130 - q^131 - q^143 - q^151 + q^152 + O(q^154),
    q^3 - q^15 - q^24 + q^27 - q^30 - q^57 + q^60 + q^66 - q^69 + q^75 + q^78 + 
        q^96 - q^114 + q^120 - q^132 - q^135 - q^138 + q^147 + q^150 + O(q^154),
    q^6 - q^12 - q^15 + q^33 + q^39 + q^54 - q^57 - q^66 - q^69 + q^75 - q^78 + 
        q^93 - q^108 + q^120 + q^132 - q^135 + O(q^154),
    q^9 - q^45 - q^72 + q^81 - q^90 + O(q^154),
    q^18 - q^36 - q^45 + q^99 + q^117 + O(q^154)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
711
);
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(
6
);
qprec:=
154
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
712
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
712
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 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(
712
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
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(
712
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
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(
712
);
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:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
712
);
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(
44
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^8*q^2 + (a^19 - a^17 + a^15 - a^13 + a^11 - a^9 + a^7 - a^5 + a^3 - 
        a^2 - a)*q^3 + a^16*q^4 + (a^10 + a^7)*q^6 + a^2*q^8 + (-a^18 + a^16 - 
        a^14 + a^12 - a^10 + a^8 - a^6 + 2*a^4 - a^2 + a + 1)*q^9 + (a^11 - 
        a^7)*q^11 + (-a^18 - a^15)*q^12 - a^10*q^16 + (a^17 - a^11)*q^17 + 
        (-a^12 - a^9 - a^6)*q^18 + (-a^19 + a^17 - a^15 - a^14 + a^13 - a^11 + 
        a^9 - a^7 + a^5 - a^3 + a)*q^19 + (-a^19 + a^15)*q^22 + (-a^4 - a)*q^24 
        - a^4*q^25 + (a^19 - a^6 - a^3 - 1)*q^27 + a^18*q^32 + (-a^13 - a^10 + 
        a^9 + a^6)*q^33 + (a^19 + a^3)*q^34 + (a^18 + a^17 - a^16 + 2*a^14 - 
        a^12 + a^10 - a^8 + a^6 - a^4 + a^2 - 1)*q^36 + (-a^7 - 1)*q^38 + (-a^16
        - a^5)*q^41 + (-a^17 - a^12)*q^43 + (-a^5 + a)*q^44 + (a^12 + a^9)*q^48 
        - a^15*q^49 + a^12*q^50 + (-a^19 - a^16 + a^13 + a^10)*q^51 + (a^14 + 
        a^11 + a^8 + a^5)*q^54 + (a^18 + a^14 + a^13 - a^12 + a^10 - a^8 + a^6 -
        a^4 + a^2 - a - 1)*q^57 + (-a^13 + a^8)*q^59 + a^4*q^64 + (a^19 + a^18 -
        2*a^17 + a^15 - a^14 - a^13 + a^11 - a^9 + a^7 - a^5 + a^3 - a)*q^66 + 
        (a^7 + a^5)*q^67 + (-a^11 + a^5)*q^68 + (a^6 + a^3 + 1)*q^72 + (-a^17 - 
        a^3)*q^73 + (a^6 + a^3)*q^75 + (a^15 + a^8)*q^76 + (-a^19 - a^18 + a^17 
        - a^15 + a^13 - a^11 + a^9 + a^8 - a^7 + 2*a^5 - a^3 + a^2 + a)*q^81 + 
        (a^13 - a^2)*q^82 + (-a^9 - a^8)*q^83 + (a^18 - a^16 + a^14 - a^12 + 
        a^10 - a^8 + a^6 - a^4 - a^3 + a^2 - 1)*q^86 + (a^13 - a^9)*q^88 + 
        a^18*q^89 + (-a^18 - a^17 + a^16 - a^14 + a^12 - a^10 + a^8 - a^6 + a^4 
        - a^2 + 1)*q^96 + (-a^14 + a^12)*q^97 - a*q^98 + (a^15 + a^12 - a^11 + 
        a^9 - a^8 - a^5)*q^99 + (-a^18 + a^16 - a^14 + a^12 - a^10 + a^8 - a^6 +
        a^4 - a^2 + 1)*q^100 + (-a^19 - a^18 + a^17 - a^15 + a^13 - a^11 + a^9 -
        a^7 - a^3 - a^2 + a)*q^102 + (-a^19 - a^16 - a^13 + 1)*q^108 + (a^3 + 
        a^2)*q^113 + (-a^19 + a^17 - a^15 + a^13 - a^11 + 2*a^9 - a^7 + a^6 + 
        a^5 - a^3 + a^2 + a)*q^114 + (a^19 - a^17 - a^16 + a^15 - a^13 + a^11 - 
        a^9 + a^7 - a^5 + a^3 - a)*q^118 + (-a^18 + a^14 - 1)*q^121 + (a^18 + 
        a^15 + a^7 + a^4)*q^123 - a^12*q^128 + (a^19 + a^16 + a^14 + a^11)*q^129
        + (-a^9 - a)*q^131 + (a^7 + a^4 - a^3 - 1)*q^132 + (-a^15 - a^13)*q^134 
        + (a^19 - a^13)*q^136 + (-a^19 - a^2)*q^137 + (a^14 + a^10)*q^139 + 
        (-a^14 - a^11 - a^8)*q^144 + (a^11 - a^3)*q^146 + (a^17 + a^14)*q^147 + 
        (-a^14 - a^11)*q^150 + (-a^16 + a)*q^152 + (a^19 + a^18 - a^17 + a^15 - 
        a^13 - a^12 + a^11 - 2*a^9 + a^7 - a^5 + a^3 - a)*q^153 + (-a^16 - a^13 
        - a^10 - a^7 - a^4)*q^162 + (-a^4 + a)*q^163 + (-a^19 + a^17 - a^15 + 
        a^13 - a^11 + a^10 + a^9 - a^7 + a^5 - a^3 + a)*q^164 + (a^17 + 
        a^16)*q^166 - a*q^169 + (-a^19 - a^18 - a^15 - a^12 + a^3 + 1)*q^171 + 
        (a^11 + a^6)*q^172 + O(q^174)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
712
);
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(
22
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^3 - a)*q^5 + a*q^9 + (-a^7 + a^5)*q^13 + (-a^9 + a^8 + a^6 - a^5 + 
        a^4 - a^3 + a^2 - a + 1)*q^17 + (a^6 + a^4 + a^2)*q^25 + (-a^9 - 
        a^6)*q^29 + (a^8 + a^3)*q^37 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 
        - a^2 + a - 2)*q^41 + (-a^4 - a^2)*q^45 - a^4*q^49 + (a^9 + a^3)*q^53 + 
        (a^9 - a^5)*q^61 + (a^9 - a^8 + a^7 - 2*a^6 + a^5 - a^4 + a^3 - a^2 + a 
        - 1)*q^65 + (-a^5 + a^4)*q^73 + a^2*q^81 + (-a^9 - a^7 + a^6 - a^5 + a^4
        - a^3 - a)*q^85 - a^9*q^89 + (-a^8 + a^7)*q^97 + (a^6 + a^5)*q^101 + 
        (-a^2 + a)*q^109 + (-a^5 - 1)*q^113 + (-a^8 + a^6)*q^117 - a^7*q^121 + 
        (-a^9 - a^7 - a^5 - a^3)*q^125 + (a^9 - a)*q^137 + (2*a^9 - a^8 + 2*a^7 
        - a^6 + a^5 - a^4 + a^3 - a^2 - 1)*q^145 + (a^8 + 1)*q^153 + (a^5 - 
        1)*q^157 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + 2*a - 1)*q^169 + 
        (a^4 + 1)*q^173 + O(q^174),
    q^2 - a^8*q^4 - a^5*q^8 + (-a^3 - a)*q^10 - a^2*q^16 + a*q^18 + (a^9 - 
        1)*q^20 + (-a^7 + a^5)*q^26 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 -
        a^2 + a - 1)*q^32 + (-a^9 + a^8 + a^6 - a^5 + a^4 - a^3 + a^2 - a + 
        1)*q^34 - a^9*q^36 + (a^8 + a^6)*q^40 + (a^6 + a^4 + a^2)*q^50 + (-a^4 +
        a^2)*q^52 + (-a^9 - a^6)*q^58 + a^7*q^64 + (-a^7 + a^4)*q^68 - a^6*q^72 
        + (a^8 + a^3)*q^74 + (a^5 + a^3)*q^80 + (a^9 - a^8 + a^7 - a^6 + a^5 - 
        a^4 + a^3 - a^2 + a - 2)*q^82 + (-a^4 - a^2)*q^90 - a^4*q^98 + (-a^9 + 
        a^8 - a^7 + a^6 - a^5 + a^4 + a^2 + 1)*q^100 + (-a^9 + a^8 - a^7 + a^6 -
        a^5 + a^4 - a^3 + a^2 - 2*a + 1)*q^104 + (a^9 + a^3)*q^106 + (-a^6 - 
        a^3)*q^116 + (a^9 - a^5)*q^122 + a^4*q^128 + (a^9 - a^8 + a^7 - 2*a^6 + 
        a^5 - a^4 + a^3 - a^2 + a - 1)*q^130 + (-a^4 + a)*q^136 - a^3*q^144 + 
        (-a^5 + a^4)*q^146 + (a^5 + 1)*q^148 + (a^2 + 1)*q^160 + a^2*q^162 + 
        (a^8 + a^7)*q^164 + (-a^9 - a^7 + a^6 - a^5 + a^4 - a^3 - a)*q^170 + 
        O(q^174)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
712
);
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(
22
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^8*q^2 + (-a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - a^3 + 2*a^2 - a + 1)*q^3
        - a^5*q^4 + (a^9 - a^8 + 2*a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^6 + a^2*q^8 + (-a^9 + a^4 + a)*q^9 + (a^7 - 1)*q^11 + (-a^7 - 
        a^4)*q^12 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^16
        + (-a^6 - 1)*q^17 + (a^9 + a^6 - a)*q^18 + (-a^9 + a^8 - a^7 + a^6 - a^5
        + a^4 - 2*a^3 + a^2 - a + 1)*q^19 + (-a^8 - a^4)*q^22 + (a^4 + a)*q^24 +
        a^4*q^25 + (-a^8 + a^6 + a^3 + 1)*q^27 - a^7*q^32 + (2*a^9 - a^8 + a^7 +
        a^5 - a^4 + a^3 - 2*a^2 + a - 1)*q^33 + (-a^8 + a^3)*q^34 + (-a^9 - a^6 
        - a^3)*q^36 + (a^7 + 1)*q^38 + (-a^6 - a)*q^43 + (a^5 + a)*q^44 + (a^9 -
        a)*q^48 - a^4*q^49 - a*q^50 + (a^9 - 2*a^8 + a^7 - a^6 - a^4 + a^3 - 
        2*a^2 + a - 1)*q^51 + (a^8 + a^5 - a^3 - 1)*q^54 + (-a^9 - a^5 - a^2 + 
        a)*q^57 + (a^8 - a^2)*q^59 + a^4*q^64 + (-a^9 + a^8 - 2*a^7 - a^5 + a^4 
        - 2*a^3 + a^2 - a + 1)*q^66 + (a^7 + a^5)*q^67 + (a^5 - 1)*q^68 + (a^6 +
        a^3 + 1)*q^72 + (-a^6 + a^3)*q^73 + (a^6 + a^3)*q^75 + (a^8 - a^4)*q^76 
        + (-a^9 + 2*a^8 - 2*a^7 + a^6 + a^4 - a^3 + 2*a^2 - a + 1)*q^81 + (a^9 +
        a^8)*q^83 + (-a^9 + a^3)*q^86 + (a^9 - a^2)*q^88 - a^7*q^89 + (-a^9 - 
        a^6)*q^96 + (-a^3 - a)*q^97 + a*q^98 + (a^9 + a^8 + a^5 - a^4 - a - 
        1)*q^99 - a^9*q^100 + (-a^9 + a^8 - 2*a^7 + a^6 + a^4 - a^3 + 2*a^2 - a 
        + 1)*q^102 - 2*a^9*q^107 + (-a^8 - a^5 - a^2 + 1)*q^108 + (a^3 + 
        a^2)*q^113 + (a^8 - a^7 + 2*a^6 - a^5 + a^4 - a^3 + 2*a^2 - a + 1)*q^114
        + (-a^9 + a^8 - a^7 + a^6 - 2*a^5 + a^4 - a^3 + a^2 - a + 1)*q^118 + 
        (-a^7 - a^3 + 1)*q^121 - a*q^128 + (-a^8 - a^5 - a^3 - 1)*q^129 + (a^9 +
        a)*q^131 + (a^7 + a^4 + a^3 + 1)*q^132 + (-a^4 - a^2)*q^134 + (-a^8 - 
        a^2)*q^136 + (-a^8 + a^2)*q^137 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - 
        a^2 + a - 1)*q^139 + (a^8 - a^3 - 1)*q^144 + (a^3 - 1)*q^146 + (-a^6 - 
        a^3)*q^147 + (-a^3 - 1)*q^150 + (-a^5 + a)*q^152 + (a^8 - 2*a^7 + a^6 - 
        a^5 - a^4 - a^3 + a^2 - 2*a + 1)*q^153 + (a^9 - a^8 + 2*a^7 - a^6 + a^3 
        - 2*a^2 + a - 1)*q^162 + (a^4 + a)*q^163 + (-a^6 - a^5)*q^166 + a*q^169 
        + (-a^8 - a^7 - a^4 + a^3 - a + 1)*q^171 + (a^6 - 1)*q^172 + O(q^174)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
712
);
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(
22
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^6 + a^2)*q^5 + a^2*q^9 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a
        - 1)*q^13 + (-a^9 - a^3)*q^17 + (a^8 + a^4 - a)*q^25 + (-a^7 - a)*q^29 +
        (a^6 - a^5)*q^37 + (-a^9 + 1)*q^41 + (a^8 + a^4)*q^45 + a^8*q^49 + (-a^7
        + a^6)*q^53 + (a^9 - a^8 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^61 + 
        (-a^9 - 2*a^5 - a)*q^65 + (a^9 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a -
        1)*q^73 + a^4*q^81 + (-a^9 - a^5 + a^4 + 1)*q^85 - a^7*q^89 + (-a^5 - 
        a^3)*q^97 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 - 1)*q^101 + 
        (a^4 + a^2)*q^109 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + 
        a)*q^113 + (-a^5 - a)*q^117 - a^3*q^121 + (a^9 - a^8 + a^5 - a^4 - a^2 +
        a - 1)*q^125 + (-a^7 + a^2)*q^137 + (-a^9 - a^7 - a^3 + a^2)*q^145 + 
        2*a^4*q^149 + (-a^5 + 1)*q^153 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + 
        a^3 - a^2 + a)*q^157 + (-a^9 + a^6 + a^2)*q^169 + (a^8 + 1)*q^173 + 
        O(q^174),
    q^2 - a^5*q^4 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^8 
        + (a^6 + a^2)*q^10 + a^4*q^16 + a^2*q^18 + (-a^7 + 1)*q^20 + (a^9 - a^8 
        + a^7 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^26 - a^9*q^32 + (-a^9 - 
        a^3)*q^34 - a^7*q^36 + (-a^5 - a)*q^40 + (a^8 + a^4 - a)*q^50 + (a^8 + 
        a^4)*q^52 + (-a^7 - a)*q^58 - a^3*q^64 + (a^8 - a^3)*q^68 - a*q^72 + 
        (a^6 - a^5)*q^74 + (a^9 - a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^80 + (-a^9 + 1)*q^82 + (a^8 + a^4)*q^90 + a^8*q^98 + (-a^9 + a^6 + 
        a^2)*q^100 + (-a^9 + a^2)*q^104 + (-a^7 + a^6)*q^106 + (a^6 - a)*q^116 +
        (a^9 - a^8 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^122 + a^8*q^128 + 
        (-a^9 - 2*a^5 - a)*q^130 + (a^8 + a^2)*q^136 + a^6*q^144 + (a^9 + a^7 - 
        a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^146 + (a^9 - a^8 + a^7 - a^6 + 
        a^5 - a^4 + a^3 - a^2 + a)*q^148 + (a^4 + 1)*q^160 + a^4*q^162 + (-a^5 -
        a^3)*q^164 + (-a^9 - a^5 + a^4 + 1)*q^170 + O(q^174)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
712
);
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(
22
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^5*q^2 + (-a^9 + a^4)*q^3 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^4 + (-a^9 - a^3)*q^6 + a^4*q^8 + (a^8 - a^7 + a^2)*q^9 + 
        (-a^3 + 1)*q^11 + (a^8 - a^3)*q^12 - a^9*q^16 + (-a + 1)*q^17 + (-a^7 + 
        a^2 - a)*q^18 + (-a^9 + a^6)*q^19 + (a^8 - a^5)*q^22 + (a^8 + a^2)*q^24 
        + a^8*q^25 + (a^6 - a^5 - a + 1)*q^27 - a^3*q^32 + (-a^9 - a^7 + a^4 - 
        a)*q^33 + (a^6 - a^5)*q^34 + (-a^7 + a^6 - a)*q^36 + (-a^3 + 1)*q^38 + 
        (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^41 + (a^2 - a)*q^43 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a 
        - 1)*q^44 + (-a^7 + a^2)*q^48 + a^8*q^49 + a^2*q^50 + (-a^8 + a^7 - a^6 
        + a^3 - a^2 + a - 1)*q^51 + (a^9 - a^8 + a^7 - a^4 + a^3 - a^2 + a)*q^54
        + (a^9 - a^8 - a^6 + a^5 + a^3 + a - 1)*q^57 + (-a^5 + a^4)*q^59 + 
        a^8*q^64 + (-a^9 + a^6 - a^3 - a)*q^66 + (a^9 - a^8 + a^7 - a^6 + a^5 - 
        a^4 - a^2 + a - 1)*q^67 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2
        + a)*q^68 + (a^6 - a + 1)*q^72 + (a^6 - a)*q^73 + (a^6 - a)*q^75 + (a^8 
        - a^5)*q^76 + (-a^8 + a^7 - a^6 - a^2 + a - 1)*q^81 + 2*a^4*q^82 + (-a^7
        - a^5)*q^83 + (-a^7 + a^6)*q^86 + (-a^7 + a^4)*q^88 - a^3*q^89 + (-a^7 -
        a)*q^96 + (a^6 + a^2)*q^97 + a^2*q^98 + (a^9 - a^6 - a^4 + a^3 + a)*q^99
        - a^7*q^100 + (-a^8 + a^7 - a^6 + a^5 - a^2 + a - 1)*q^102 - 2*a^7*q^107
        + (a^9 - a^8 + a^7 - a^6 + a^3 - a^2 + a)*q^108 + (a^6 + a^4)*q^113 + 
        (-a^9 - a^7 + a^4 - a)*q^114 + (-a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2
        + a - 1)*q^118 + (a^6 - a^3 + 1)*q^121 + (2*a^8 - 2*a^3)*q^123 + 
        a^2*q^128 + (a^9 - a^8 + a^7 - a^4 + a^3 - a^2 + a)*q^129 + (-a^7 + 
        a^2)*q^131 + (a^8 + a^6 - a^3 + 1)*q^132 + (a^8 + a^4)*q^134 + (-a^5 + 
        a^4)*q^136 + (-a^5 + a^4)*q^137 + (-a^9 + a^6)*q^139 + (a^6 - a^5 + 
        1)*q^144 + (a^6 + 1)*q^146 + (a^6 - a)*q^147 + (a^6 + 1)*q^150 + (a^9 - 
        a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^152 + (-a^9 + 2*a^8 - a^7 -
        a^3 + a^2)*q^153 + (a^7 - a^6 + a^5 - a^2 + a - 1)*q^162 + (a^8 + 
        a^2)*q^163 - 2*a^9*q^164 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 
        a^2 - 1)*q^166 + a^2*q^169 + (a^8 + a^6 - a^5 - a^3 + a^2 + 1)*q^171 + 
        (-a + 1)*q^172 + O(q^174)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
712
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.3
;
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(
712
);
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(
8
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
712
);
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(
4
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
712
);
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(
4
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^2 + (a + 1)*q^3 + q^4 + (-a - 1)*q^6 - q^8 + a*q^9 + (a + 1)*q^12 + 
        q^16 + 2*a*q^17 - a*q^18 + (-a + 1)*q^19 + (-a - 1)*q^24 - q^25 - q^32 -
        2*a*q^34 + a*q^36 + (a - 1)*q^38 + (-a - 1)*q^41 + (-a - 1)*q^43 + (a + 
        1)*q^48 + a*q^49 + q^50 + (2*a - 2)*q^51 + 2*q^57 + (-a + 1)*q^59 + q^64
        + 2*a*q^68 - a*q^72 + (-a - 1)*q^75 + (-a + 1)*q^76 + q^81 + (a + 
        1)*q^82 + (-a - 1)*q^83 + (a + 1)*q^86 - q^89 + (-a - 1)*q^96 + 2*q^97 -
        a*q^98 - q^100 + (-2*a + 2)*q^102 + (-a - 1)*q^113 - 2*q^114 + (a - 
        1)*q^118 - q^121 - 2*a*q^123 - q^128 - 2*a*q^129 - 2*a*q^131 - 2*a*q^136
        + (a + 1)*q^137 - 2*q^139 + a*q^144 + (a - 1)*q^147 + (a + 1)*q^150 + (a
        - 1)*q^152 - 2*q^153 - q^162 + (a - 1)*q^163 + (-a - 1)*q^164 + (a + 
        1)*q^166 - a*q^169 + (a + 1)*q^171 + (-a - 1)*q^172 + O(q^174)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
712
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 44*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^17 - q^21 + q^25 - q^45 + q^49 - q^53 - q^85 + q^89 + q^93 - q^97 + 
        q^105 - q^109 + q^121 + 2*q^125 - q^133 + q^153 - q^161 + q^169 + 
        O(q^174),
    q^2 + q^8 - q^20 + q^32 - q^34 - q^42 + q^50 - q^80 - q^84 - q^90 + q^98 - 
        q^100 - q^106 + q^128 - q^136 - q^168 - q^170 + O(q^174),
    q^3 - q^15 - q^19 - q^23 + q^27 + q^31 - q^43 + q^51 + q^95 - q^103 + q^115 
        + q^127 - q^135 - q^147 - q^155 + q^159 + q^163 - 2*q^171 + O(q^174),
    q^4 + q^16 - q^18 - q^20 - q^34 + q^36 - q^42 + q^64 - q^72 - q^80 - q^84 + 
        q^90 + 2*q^98 - q^106 + 2*q^114 - q^136 + 2*q^138 + q^144 - q^162 - 
        q^168 + q^170 + O(q^174),
    q^5 + q^21 + q^25 - q^45 - 2*q^49 - q^57 - q^69 + q^73 + q^81 - 2*q^85 - 
        q^105 + q^125 - q^129 + q^133 + q^153 - 2*q^157 + q^161 + q^173 + 
        O(q^174),
    q^6 - q^14 + q^24 - q^28 - q^30 - q^56 + q^62 + q^70 + q^76 + q^92 + q^96 - 
        q^108 - q^112 - q^118 - q^120 + q^140 - q^166 + q^172 + O(q^174),
    q^7 - q^19 - q^23 + q^27 - q^35 - q^43 + q^51 + q^59 + q^83 + q^95 - q^103 +
        q^115 - q^119 - q^135 - 2*q^147 + q^151 + q^159 - q^171 + O(q^174),
    q^9 + q^17 + q^21 - q^45 - 2*q^49 + q^53 - 2*q^57 - 2*q^69 + q^81 - q^85 + 
        q^93 + q^97 - q^105 + q^109 - 2*q^129 + q^133 + q^153 - 2*q^157 + q^161 
        + O(q^174),
    q^10 - q^18 - q^20 - q^34 + q^36 + q^40 + q^50 + q^68 - q^72 - q^80 - q^100 
        - q^106 + q^114 - q^136 + q^138 + q^144 + q^146 + q^160 - q^170 + 
        O(q^174),
    q^12 - q^14 - q^28 + q^38 + q^46 + q^48 - q^54 - q^56 - q^60 + q^70 + q^86 -
        q^102 - q^112 - q^118 + q^124 + q^140 + q^152 - q^166 + O(q^174)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
712
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 44*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^11 + q^16 - q^17 - q^22 + q^25 - q^34 + q^36 - q^44 + q^64
        - q^67 - q^68 - q^73 + q^81 - q^88 - q^91 - q^98 - q^99 + q^100 + q^121 
        - q^131 - q^134 - q^136 + q^144 - q^146 - q^153 - q^161 + O(q^174),
    q^2 + q^8 - q^11 - q^17 + q^18 - q^22 + q^32 - q^34 - q^44 - q^49 + q^50 - 
        q^67 - q^68 + q^72 - q^73 - q^88 + q^89 + q^91 + 2*q^97 - q^99 + 2*q^107
        + 2*q^121 + q^128 - q^131 - q^134 - q^136 + 2*q^139 - q^146 - q^153 + 
        q^161 + q^162 - q^169 + O(q^174),
    q^7 - q^13 - q^14 - q^23 + q^26 + q^28 + q^29 - q^31 + q^37 + q^46 - q^52 - 
        q^56 - q^58 - q^61 + q^62 + q^63 - q^74 - q^92 + q^101 + q^103 + q^104 +
        q^112 + q^116 - q^117 + q^122 - q^124 - q^126 - q^127 + q^148 - q^149 - 
        q^151 + O(q^174)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
713
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
713
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
126
;
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^39 - q^41 - q^46 - q^47 + q^48 + q^49 - q^50 - q^54 + q^58 + 
        2*q^59 + q^64 - q^69 - q^71 - q^73 - q^75 - q^78 - q^81 + q^82 + q^87 + 
        q^94 - q^98 + 2*q^101 - q^104 - 2*q^118 + q^121 + q^123 + O(q^126),
    q^31 - q^62 - q^93 + O(q^126)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
713
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
713
);
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:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
713
);
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:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
713
);
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(
30
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^3*q^4 + (-a^7 - 2*a^6 + a^3 + a^2 + a - 1)*q^6 + (-a^5 + a^4)*q^8 + 
        a^2*q^9 + (a^7 - a^4 + a)*q^12 + a^6*q^16 + (a^6 - a)*q^18 + (a^7 - 
        a^2)*q^23 + (2*a^7 + a^6 - a^4 - a^3 - 2*a^2 + 1)*q^24 + (a^5 - 1)*q^25 
        + (-a^7 + a^5 + a^4 + a^3 + a^2 - a - 1)*q^26 + (a^6 - a^4 - a^3 - a^2 +
        1)*q^27 + (-2*a^7 + a^5 + a^4 + a^3 - a - 1)*q^32 + (-a^7 - a^5 - 
        a^3)*q^36 + (-a^7 + a^5 + a^4 + a^3 - 2*a - 1)*q^39 + (2*a^7 + a^6 - a^5
        - 2*a^4 - a^3 - a^2 + 3)*q^48 + (-a^6 + a)*q^49 + (-a^7 - a^6 + a^4 + 
        a^3 + a^2 - 1)*q^52 + (a^7 - a^6 - a^5 - a^4 + 2*a + 1)*q^54 + (-a^5 - 
        a)*q^58 + (a^7 - a^5 + a + 1)*q^59 + (a^7 - a^2)*q^62 + (-2*a^7 - a^6 + 
        2*a^5 + a^4 + 2*a^3 + a^2 - a - 3)*q^64 + (-2*a^7 + a^4 + a^3 + a^2 - 
        1)*q^72 + (a^7 - a^2 + 1)*q^78 + a^4*q^81 + (a^7 + a^6 - a^4 - a^3 + 
        1)*q^82 + (-a^7 - 2*a^6 + a^3 + a^2 + a - 1)*q^87 + q^92 - a^3*q^93 + 
        (a^7 - a^3 - a^2)*q^94 + (a^7 + a^6 - a^4 - 2*a^3 + 2)*q^96 + (a^7 - a^5
        - a^4 + a + 1)*q^100 + (a^6 - a^3)*q^101 + (-a^6 - a^5 + a)*q^104 + (a^7
        + a^5)*q^108 + (-a^7 + a^2)*q^116 + (a^6 - a^5)*q^117 - a*q^121 - q^123 
        + (a^7 + a^6 - a^4 - a^3 - a^2 + 1)*q^124 + O(q^126),
    q^2 + (-a^7 - 2*a^6 - 2*a^5 - a^4 + 2*a^2 + a + 1)*q^4 + (-2*a^7 - a^6 + a^5
        + a^4 + 2*a^3 + 2*a^2 + a - 1)*q^6 - a^3*q^8 + (2*a^7 + 2*a^6 + a^5 - 
        a^3 - a^2 - a + 1)*q^9 + (-a^7 - 2*a^6 + a^3 + a^2 + a - 1)*q^12 + (a^7 
        + a^6 - a^5 - a^4 - 2*a^3 - a^2 - a + 1)*q^13 + (-a^5 + a^4)*q^16 + (a^7
        - a^6 - a^5 - 2*a^4 - a^3 - a^2 + a)*q^24 + (a^7 + 2*a^6 + 2*a^5 - 2*a^2
        - 2*a - 1)*q^26 - q^29 + (-a^6 + a^3 + a^2 + a)*q^31 + (-a^7 + a^6 - 
        a^5)*q^32 + (-a^7 - a^6 - 2*a^5 + 2*a^2 + a + 1)*q^36 + (-a^5 - a^4 - 
        a^3 - a^2 - a)*q^39 + (2*a^7 + a^6 + a^5 - a^2 + a + 1)*q^41 + (a^7 - 
        a^2)*q^46 + (-a^7 + a^6 + a^5 + a^4 - 2*a - 1)*q^47 + (3*a^7 - a^5 - 
        2*a^4 - a^3 - 2*a^2 + 2*a + 3)*q^48 + (a^5 - 1)*q^50 + (-a^7 + a^5 + a^4
        + a^3 + a^2 - a - 1)*q^52 + (a^5 + a^3 + a)*q^54 + (-a^6 - 2*a^5 - a^4 -
        a^3 + a^2 + a + 2)*q^58 + (-a^7 - a^6 - 1)*q^62 + (-2*a^7 + a^5 + a^4 + 
        a^3 - a - 1)*q^64 + (a^6 + 2*a^5 + 2*a^4 + a^3 - a^2 - a - 2)*q^71 + 
        (-2*a^7 + a^6 + 2*a^4 + a^2 - a - 1)*q^72 + (2*a^6 + a^5 - a^3 - 2*a^2 -
        2*a - 1)*q^73 + (a^7 + a^6 + 2*a^5 - 2*a^2 - 2*a - 1)*q^78 + (-a^7 - a^6
        + a^4 + 2*a^3 + a^2 + a - 1)*q^87 + (2*a^7 + 2*a^6 + a^5 - a^2 + 1)*q^92
        + (-a^6 - a^5 + a^2 + a + 1)*q^93 + (a^7 - a^6 - a^5 - 2*a^4 - a^3 + a +
        1)*q^94 + (2*a^7 + a^6 - a^5 - 2*a^4 - a^3 - a^2 + 3)*q^96 + (-a^6 + 
        a)*q^98 + (a^7 + a^5 + a^4 + a^3 + a)*q^100 + (-3*a^7 - 2*a^6 + 2*a^4 + 
        2*a^3 + 3*a^2 + a - 2)*q^104 + (a^7 + a^6 + 2*a^5 - 2*a^2 - 2*a - 
        1)*q^108 + (-a^5 - a)*q^116 + (a^7 - a^5 + a + 1)*q^118 + a^6*q^123 + 
        (a^7 - a^2)*q^124 + O(q^126),
    q^3 + (a^4 + a^3 + a^2 + a + 1)*q^4 + (a^7 + 2*a^6 + 2*a^5 + a^4 - 2*a^2 - a
        - 1)*q^6 + (2*a^7 + a^6 - a^5 - a^4 - 2*a^3 - 2*a^2 - a + 1)*q^9 + 
        (-2*a^5 - a^4 - a^3 + a^2 + a + 2)*q^13 + (-a^7 - 2*a^6 + a^3 + a^2 + a 
        - 1)*q^18 + (-a^7 - 2*a^6 - 2*a^5 + a^3 + 2*a^2 + 2*a + 1)*q^24 + (a^7 -
        a^6 - a^5 - 2*a^4 - a^3 - a^2 + a)*q^26 + a^2*q^27 + (-2*a^7 - a^6 + a^3
        + a^2 - 1)*q^29 + (a^7 + a^6 + a^5 - a^2 - a)*q^31 + (-a^7 - a^6 + a^4 +
        a^3 + a^2 - 1)*q^32 + (a^6 + a^5 + a^4 + a^3 + a^2)*q^36 + (-a^7 - 2*a^6
        - 2*a^5 + 2*a^2 + 2*a + 1)*q^39 + (a^7 + a^6 + 2*a^5 - a^3 - 2*a^2 - 2*a
        - 1)*q^41 + (-a^7 - a^5 - a^3)*q^47 + (a^7 + a^5)*q^48 + (a^7 + 2*a^6 + 
        2*a^5 - 2*a^2 - 2*a - 1)*q^54 + (a^7 + a^6 - a^5 + a^2 + a + 2)*q^58 + 
        (-a^7 - a^6 - a^5 + a^3 + a^2 + a)*q^62 + (a^7 - a^2)*q^69 + (-a^7 + a^5
        - a^2 - a - 2)*q^71 + (-a^7 + a^6 + a^5 + a^4 - 2*a - 2)*q^72 + (-a^7 - 
        2*a^6 - 2*a^5 - a^4 + a^2 + a)*q^73 + (a^5 - 1)*q^75 + (-a^6 - a^4)*q^78
        + (a^6 - a^4 - a^3 - a^2 + 1)*q^81 - a^7*q^82 + (a^6 + 2*a^5 + a^4 + a^3
        - a^2 - a - 2)*q^87 + (a^7 + a^6 + a^5 - a^3 - 2*a^2 - 2*a - 1)*q^92 + 
        (a^7 + a^6 + 1)*q^93 + (a^7 - a^6 - a^5 - a^4 + a^2 + 2*a + 2)*q^94 + 
        (a^7 + 2*a^6 + 2*a^5 - a^3 - 2*a^2 - 2*a - 1)*q^100 + (-a^7 + a^6 + 
        2*a^5 + 2*a^4 + a^3 - a - 2)*q^104 + (-a^6 - 2*a^5 - 2*a^4 - 2*a^3 - a^2
        + a + 1)*q^108 + (-a^7 + a^5 + a^4 + a^3 - 2*a - 1)*q^117 + O(q^126)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
713
);
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:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
713
);
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(
110
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
713
);
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:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
713
);
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:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
713
);
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:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
713
);
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(
10
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^3*q^4 + (a^3 - a^2 - 1)*q^6 + (a^3 - a^2 + a)*q^8 + a^2*q^9 + (-a^3 + 
        1)*q^12 - a*q^16 - 2*a*q^18 + a^2*q^23 + (a^3 + a - 1)*q^24 + q^25 + 
        (-a^3 + a^2)*q^26 + (a^3 + a - 1)*q^27 + (-a^3 + a^2)*q^32 + (-a^3 + a^2
        + 1)*q^36 + (-a^3 - a)*q^39 - a^2*q^48 - a*q^49 + (2*a^3 - 2*a^2 + 2*a -
        2)*q^52 + (-a^3 - a)*q^54 + (-a + 1)*q^58 + (-a^2 + a - 1)*q^59 + 
        a^2*q^62 + (-a^2 + a)*q^64 + (2*a^3 - a^2 + a - 2)*q^72 + (a^2 + 1)*q^78
        + (a^3 - a^2 + a - 1)*q^81 + (a^3 + a - 1)*q^82 + (a^3 - a^2 - 1)*q^87 +
        q^92 - a^3*q^93 + (-a^3 + a^2)*q^94 + a*q^96 - a^3*q^100 + (-a^3 - 
        a)*q^101 + (-a + 1)*q^104 + (2*a^2 + 2)*q^108 + 2*a^2*q^116 + (-a + 
        1)*q^117 - a*q^121 + 2*q^123 + (a^3 - a^2 + a - 1)*q^124 + O(q^126),
    q^2 + (-a^3 + a^2 - a + 1)*q^4 - a^3*q^8 - a^3*q^9 + (a^3 - a^2 - 1)*q^12 - 
        a^2*q^13 + (a^3 - a^2 + a)*q^16 - a*q^26 - q^29 + 1/5*(2*a^3 - 4*a^2 + a
        - 3)*q^31 + (a^2 - a + 1)*q^32 - a*q^36 + (a^3 + a - 1)*q^39 + a^2*q^46 
        + (a^3 + a)*q^47 + q^50 + (-a^3 + a^2)*q^52 + (a^3 + a - 1)*q^54 + (a^3 
        - a^2 + a - 1)*q^58 + 1/5*(3*a^3 - a^2 - a - 2)*q^62 + (-a^3 + a^2)*q^64
        + (-a^3 + a^2)*q^72 + (-a^3 + a^2 - a + 1)*q^73 + (a^2 + 1)*q^87 + 
        a*q^92 + 1/5*(3*a^3 - a^2 + 4*a - 2)*q^93 + (a^2 + 1)*q^94 - a^2*q^96 - 
        a*q^98 + (-a^3 + a^2 - a + 1)*q^100 + (a^3 - 2*a^2 + 2*a - 1)*q^104 + 
        (-a + 1)*q^116 + (-a^2 + a - 1)*q^118 - a*q^123 + a^2*q^124 + O(q^126),
    q^3 + (-a^3 - a)*q^4 + (a^3 - a^2 + a - 1)*q^6 + (a^3 - a^2 - 1)*q^13 + (a^3
        - a^2 - 1)*q^18 + (a^3 + a)*q^24 + a^2*q^27 + (a^3 + a - 1)*q^29 + 
        1/5*(3*a^3 - a^2 - a - 2)*q^31 + (-a^3 + a^2 - a + 1)*q^32 + (-a^3 + 
        1)*q^36 + a*q^39 - a^3*q^41 + (-a^3 + a^2 + 1)*q^47 + (-a^2 - 1)*q^48 - 
        a*q^54 + 1/5*(2*a^3 + a^2 + a + 2)*q^62 + a^2*q^69 - a*q^71 + (a^3 + a -
        1)*q^72 + (-a^3 - a)*q^73 + q^75 + (-a^3 + a^2 + 1)*q^78 + (a^3 + a - 
        1)*q^81 + a^2*q^82 + (-a^3 + a^2 - a + 1)*q^87 + (-a^3 + 1)*q^92 + 
        1/5*(-3*a^3 + a^2 + a + 2)*q^93 + (-a^3 + a^2 - a + 1)*q^94 + (-a^3 - 
        a)*q^100 - a^2*q^104 + (-a^3 + a^2 + 2)*q^108 + (-a^3 - a)*q^117 + 
        O(q^126)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
713
);
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:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
713
);
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(
6
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 2/3*a*q^6 - 2/3*q^8 + (a - 1)*q^9 - a*q^12 + 1/3*(a - 1)*q^13 + q^16 + 
        1/3*(-a + 1)*q^18 + 2/3*q^23 + 1/3*a*q^24 - 2/3*a*q^25 + (a - 1)*q^26 - 
        4/3*q^27 + 1/3*q^29 + 1/9*(-2*a - 2)*q^31 - 1/3*q^32 + 1/3*q^35 + 
        1/3*(-a + 1)*q^36 - 1/3*q^39 + 1/3*(-a + 1)*q^41 - 2/3*a*q^48 + 1/3*(2*a
        - 2)*q^49 + (-a + 1)*q^52 - 2/3*q^54 - 1/3*a*q^55 - 1/3*q^58 - a*q^59 + 
        1/9*(-a + 5)*q^62 - 1/3*q^64 + 1/3*a*q^69 + 1/3*(2*a - 2)*q^71 + 
        1/3*(-4*a + 4)*q^72 + 1/3*(-a + 1)*q^75 - 1/3*q^77 + q^78 - 2/3*a*q^81 +
        (a - 1)*q^82 + 1/3*q^85 + a*q^87 + 1/3*q^92 + 1/9*(2*a + 8)*q^93 + q^94 
        + 1/3*q^95 + 4/3*a*q^96 - 1/3*a*q^100 + 2/3*q^101 + (a - 1)*q^104 - 
        1/3*a*q^105 + 4/3*q^108 + 1/3*(-a + 1)*q^115 - 2/3*q^116 + 1/3*a*q^117 +
        1/3*(-a + 1)*q^119 - 2/3*a*q^121 - q^123 + 1/3*(2*a - 1)*q^124 + 
        O(q^126),
    q^2 - a*q^6 + q^8 + (-a + 1)*q^9 + a*q^12 + (a - 1)*q^13 - q^16 - a*q^24 - 
        q^29 + 1/3*(a + 1)*q^31 + (-a + 1)*q^36 + q^39 + (a - 1)*q^41 + q^46 + 
        q^47 + a*q^48 - a*q^50 + (2*a - 2)*q^52 - q^58 + 1/3*(2*a - 1)*q^62 - 
        q^64 + (-a + 1)*q^71 + (a - 1)*q^72 - q^78 + 1/3*(-a - 1)*q^93 - a*q^96 
        + (a - 1)*q^98 + (-a + 1)*q^104 - q^108 - q^116 - 2*a*q^118 + q^123 + 
        q^124 + O(q^126),
    q^3 + 1/3*q^6 + 1/3*(a - 1)*q^8 + a*q^9 - q^12 - 1/3*a*q^13 + 1/3*a*q^18 + 
        1/3*(-a + 1)*q^23 - 1/3*q^24 - 1/3*q^25 + 1/3*(2*a - 2)*q^27 + 1/3*(-2*a
        + 2)*q^29 + 1/9*(-5*a + 1)*q^31 + 1/3*(-a + 1)*q^32 + 1/3*(a - 1)*q^35 -
        2/3*a*q^36 + 1/3*(2*a - 2)*q^39 + 1/3*a*q^41 + 2/3*q^48 + 1/3*a*q^49 + 
        1/3*(a - 1)*q^54 + 1/3*q^55 + 1/3*(-a + 1)*q^58 - q^59 + 1/9*(-a - 
        1)*q^62 + 1/3*(-a + 1)*q^64 + 2/3*q^69 + 1/3*a*q^71 - 2/3*a*q^72 - 
        a*q^73 - 2/3*a*q^75 + 1/3*(-a + 1)*q^77 - 4/3*q^81 + 1/3*(a - 1)*q^85 + 
        q^87 + 1/3*(a - 1)*q^92 + 1/9*(-7*a + 2)*q^93 + 1/3*(a - 1)*q^95 + 
        2/3*q^96 + 1/3*q^100 + 1/3*(-4*a + 4)*q^101 + 1/3*q^105 + 1/3*(-2*a + 
        2)*q^108 + 1/3*a*q^115 + 1/3*(a - 1)*q^116 - 1/3*q^117 + 1/3*a*q^119 - 
        1/3*q^121 + 1/3*(2*a - 1)*q^124 + O(q^126),
    q^4 + 1/3*a*q^6 - 1/3*q^8 - a*q^12 + 1/3*(-a + 1)*q^13 + 1/3*(-2*a + 2)*q^18
        + 1/3*q^23 + 2/3*a*q^24 - 1/3*a*q^25 + (a - 1)*q^26 + 1/3*q^27 - 
        1/3*q^29 + 1/9*(2*a + 2)*q^31 - 2/3*q^32 - 1/3*q^35 + 1/3*(a - 1)*q^36 -
        2/3*q^39 + 1/3*(a - 1)*q^41 - 1/3*a*q^48 + 1/3*(a - 1)*q^49 - 1/3*q^54 +
        1/3*a*q^55 - 2/3*q^58 - a*q^59 + 1/9*(a + 4)*q^62 + 1/3*q^64 - 
        1/3*a*q^69 + 1/3*(-2*a + 2)*q^71 + 1/3*(-2*a + 2)*q^72 + 1/3*(a - 
        1)*q^75 + 1/3*q^77 + q^78 - 1/3*a*q^81 + (a - 1)*q^82 - 1/3*q^85 + 
        2/3*q^92 + 1/9*(-2*a + 1)*q^93 + q^94 - 1/3*q^95 + 2/3*a*q^96 - 
        2/3*a*q^100 + 4/3*q^101 + (a - 1)*q^104 + 1/3*a*q^105 - 1/3*q^108 + 
        1/3*(a - 1)*q^115 - 1/3*q^116 + 2/3*a*q^117 + 1/3*(a - 1)*q^119 - 
        1/3*a*q^121 + 1/3*(a - 2)*q^124 + O(q^126),
    q^5 + (-a + 1)*q^7 - q^11 - a*q^15 + (-a + 1)*q^17 + (-a + 1)*q^19 - q^20 - 
        q^21 - a*q^23 + (a - 1)*q^28 + a*q^33 + (-a + 1)*q^37 + (a - 1)*q^43 + 
        q^44 - q^51 + q^53 - q^57 + a*q^60 + 2*a*q^61 + (a - 1)*q^65 + q^67 + (a
        - 1)*q^68 + (a - 1)*q^69 + (a - 1)*q^76 + (-a + 1)*q^79 + q^80 - q^83 + 
        q^84 + a*q^91 + a*q^92 + q^103 + (-a + 1)*q^107 + 2*a*q^109 - q^111 + 
        (-a + 1)*q^112 - q^113 - a*q^125 + O(q^126)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
713
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
126
;
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 + O(q^126),
    q^23 - q^46 - q^115 + O(q^126)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
713
);
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(
22
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
714
);
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(
714
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
714
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
714
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*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(
714
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
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(
714
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
714
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
714
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
714
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
714
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
714
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
714
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
714
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
714
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
714
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
714
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
714
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
714
);
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(
6
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
714
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
714
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^16 - q^21 + q^32 - q^36 - q^43 + q^49 + q^50 - q^51 - q^70 + 2*q^72 + 
        q^84 + q^86 - q^106 + q^119 - q^120 + q^121 + q^123 - q^134 - q^137 - 
        q^144 - q^149 - q^151 + q^155 + q^162 - q^168 + q^169 - q^170 - q^179 + 
        q^183 - q^200 + q^204 - q^205 + q^219 - q^225 - q^239 + q^240 - q^254 + 
        2*q^263 + O(q^274),
    q^2 - q^16 - 2*q^36 - q^42 + q^50 + q^60 + q^64 - q^70 + 2*q^72 + q^84 + 
        q^98 + q^100 - q^102 - q^106 - q^120 - q^134 - q^140 + q^162 - q^168 - 
        q^170 + q^172 - q^200 + q^204 - q^212 + q^238 + q^242 + q^246 - q^254 - 
        q^268 + O(q^274),
    q^3 + q^27 - q^45 - q^48 - q^54 - q^63 + q^96 + q^126 - q^129 + q^147 + 
        q^150 - q^153 - q^210 + q^216 + q^258 + O(q^274),
    q^4 - q^16 - q^25 + q^35 - q^36 - q^43 + q^50 + q^53 + q^67 - q^70 - q^81 + 
        q^85 + q^86 + q^100 - q^106 + q^127 + q^128 - q^134 - q^137 - q^140 + 
        q^144 - q^149 - q^151 - q^155 + q^162 - q^170 - q^179 + q^189 + q^191 + 
        q^196 - q^212 + q^217 + q^225 - q^239 - q^254 - q^268 + O(q^274),
    q^5 - q^20 + q^27 + q^31 - q^41 - q^45 + q^56 - q^61 - q^73 + q^97 - q^108 -
        q^112 - q^124 + q^136 + q^139 + q^160 + q^164 - q^167 - q^173 - q^175 + 
        q^180 - q^199 + q^216 + q^227 + q^241 + q^244 + q^245 - q^265 - q^272 + 
        O(q^274),
    q^6 - q^48 - q^90 - q^108 + q^150 + q^192 - q^210 + q^216 + q^252 + 
        O(q^274),
    q^7 + q^17 + q^27 - q^28 + q^40 - q^41 + q^56 - q^61 - q^63 - q^68 - q^73 - 
        q^80 - q^108 - q^112 - q^125 + 2*q^131 + q^136 - q^153 + q^164 - q^167 -
        q^173 + 2*q^181 - q^199 - q^215 + 2*q^216 + q^224 + q^243 + q^244 + 
        q^248 + q^252 + q^265 + 2*q^269 - q^272 + O(q^274),
    q^8 - q^16 - q^25 + q^35 - q^43 + q^53 + q^67 - q^72 - q^81 + q^85 + q^100 +
        q^127 - q^137 - q^140 + q^144 - q^149 - q^151 - q^155 + q^172 - q^179 + 
        q^189 + q^191 - q^212 + q^217 + q^225 - q^239 + q^256 - q^268 + 
        O(q^274),
    q^9 - q^21 - q^36 - q^51 + 2*q^72 + q^81 + q^84 - q^120 + q^123 - q^135 - 
        2*q^144 - q^168 + q^183 - q^189 + q^204 + q^219 - q^225 + q^240 + 
        O(q^274),
    q^10 - q^28 + q^54 + q^56 + q^62 - q^68 - q^80 - q^82 - q^90 - q^108 - q^122
        + q^136 - q^146 + q^164 + q^194 + q^216 + q^244 + q^252 + O(q^274),
    q^12 + q^27 - q^48 - q^54 - q^63 - q^75 + q^105 + q^126 - q^129 + q^150 - 
        q^153 + q^159 - q^180 + q^201 - q^210 + q^255 + q^258 + O(q^274),
    q^14 - q^20 - q^28 + q^34 + q^40 + q^54 + q^56 - q^68 - q^82 - 2*q^108 - 
        q^112 - q^122 - q^124 - q^126 + q^136 - q^146 + 2*q^164 + q^180 + 
        2*q^216 + 2*q^244 + q^248 - q^250 + q^252 + 2*q^262 - q^272 + O(q^274),
    q^15 - q^21 - q^51 - q^60 + q^72 + q^81 + q^84 + q^93 - q^120 - q^135 - 
        q^144 + q^204 - q^225 + q^240 + O(q^274),
    q^18 - 2*q^36 - q^42 + q^60 + 2*q^72 + q^84 - q^102 - q^120 - q^144 + q^162 
        - q^168 + q^204 + q^246 - q^270 + O(q^274),
    q^24 + q^27 - q^48 - q^63 - q^75 + q^105 - q^108 - q^129 - q^153 + q^159 + 
        q^201 + q^216 + q^252 + q^255 + O(q^274),
    q^30 - q^36 - q^42 + q^60 + q^72 - q^102 - q^120 + q^162 + q^186 - q^240 - 
        q^270 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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(
715
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
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(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*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(
715
);
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:=
162
;
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 + O(q^162),
    q^13 - q^52 - q^65 + q^117 - q^143 + O(q^162)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
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(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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(
60
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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(
60
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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(
30
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/3*(2*a - 1)*q^5 - a*q^9 + 1/3*(-a - 1)*q^11 + (a - 1)*q^16 + 1/3*(-2*a
        + 4)*q^20 - q^25 + 1/3*(-a + 2)*q^26 + 1/3*(2*a - 1)*q^31 + 1/3*(2*a - 
        1)*q^34 + 1/3*(4*a - 2)*q^44 + 1/3*(-a + 2)*q^45 + (-a + 1)*q^49 + (-a +
        1)*q^55 - 2*a*q^56 + (a - 2)*q^59 - q^64 + 1/3*(4*a - 2)*q^70 + 1/3*(a +
        1)*q^80 + (a - 1)*q^81 + 1/3*(-2*a + 1)*q^86 + 1/3*(-a - 1)*q^89 + 
        1/3*(-2*a + 4)*q^91 + 1/3*(2*a - 1)*q^99 + (-a + 1)*q^104 + 1/3*(4*a + 
        4)*q^119 + a*q^121 + 1/3*(-2*a + 4)*q^124 + 1/3*(-2*a + 1)*q^125 + 
        1/3*(a - 2)*q^130 + (-a + 2)*q^136 + q^144 + (a - 1)*q^146 + 1/3*(-2*a -
        2)*q^154 - q^155 + O(q^162),
    q^2 + a*q^8 + 1/3*(-2*a + 1)*q^10 + 1/3*(-2*a + 1)*q^13 + 1/3*(a + 1)*q^17 -
        a*q^18 + 1/3*(a + 1)*q^22 - 2*q^28 + (2*a - 2)*q^32 + 1/3*(2*a + 2)*q^35
        + (-a + 2)*q^40 + 1/3*(-a - 1)*q^43 - q^50 + 1/3*(-4*a + 2)*q^52 + 
        1/3*(-2*a + 1)*q^62 + 1/3*(2*a - 1)*q^65 + 1/3*(-4*a + 2)*q^68 + (-a + 
        1)*q^72 + a*q^73 + 1/3*(2*a - 4)*q^77 + a*q^83 + (a - 1)*q^85 + (2*a - 
        1)*q^88 + 1/3*(a - 2)*q^90 + (-a + 1)*q^98 + 1/3*(-2*a + 1)*q^107 + (-a 
        + 1)*q^110 - 2*a*q^112 + 1/3*(a - 2)*q^117 + (a - 2)*q^118 + 1/3*(-4*a +
        2)*q^127 - q^128 + 1/3*(4*a - 2)*q^140 + 1/3*(-a - 1)*q^143 + 1/3*(-2*a 
        + 1)*q^153 + 1/3*(2*a + 2)*q^160 + O(q^162),
    q^4 + 1/3*(-a - 1)*q^5 + 1/3*(-a + 2)*q^11 + (a - 1)*q^14 + a*q^16 + 
        1/3*(-2*a + 1)*q^20 + 1/3*(-a - 1)*q^26 + 1/3*(-a - 1)*q^31 + 1/3*(-a - 
        1)*q^34 - a*q^36 + 1/3*(a + 1)*q^44 + 1/3*(2*a - 1)*q^45 - q^56 + (a - 
        1)*q^64 + 1/3*(a + 1)*q^70 + 1/3*(-2*a + 4)*q^80 + 1/3*(a + 1)*q^86 + 
        1/3*(-a + 2)*q^89 + 1/3*(a + 1)*q^91 + 1/3*(-a - 1)*q^99 - q^100 + (-a +
        1)*q^104 + 1/3*(a - 2)*q^119 + 1/3*(-2*a + 1)*q^124 + 1/3*(a + 1)*q^125 
        + q^126 + 1/3*(a - 2)*q^130 + (-a + 1)*q^144 + 1/3*(a - 2)*q^154 + 
        O(q^162),
    q^7 + (-a + 1)*q^8 + 1/3*(a - 2)*q^10 + 1/3*(a + 1)*q^13 + 1/3*(4*a - 
        2)*q^17 + 1/3*(-2*a + 1)*q^22 + 1/3*(2*a - 1)*q^35 + 1/3*(-4*a + 2)*q^43
        + 1/3*(-a - 1)*q^52 + 1/3*(a - 2)*q^62 - a*q^63 + 1/3*(2*a - 1)*q^65 + 
        1/3*(-a + 2)*q^68 - q^72 + (a - 1)*q^73 + 1/3*(-a - 1)*q^77 - q^85 + 
        1/3*(a + 1)*q^90 + 1/3*(a - 2)*q^107 + (a - 1)*q^112 + 1/3*(-2*a + 
        1)*q^117 + 1/3*(-a + 2)*q^127 + a*q^128 + 1/3*(-2*a + 4)*q^140 + 1/3*(-a
        - 1)*q^143 + 1/3*(-2*a + 4)*q^153 + 1/3*(-4*a + 2)*q^160 + O(q^162)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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(
20
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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(
20
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 5*H.2 + 3*H.3
;
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(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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(
30
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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(
60
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^5 + (a - 1)*q^9 - a*q^11 - 2*q^14 + a*q^16 + q^25 + (-a + 1)*q^26 - 
        q^31 + q^34 + (a - 1)*q^45 - 3*a*q^49 - a*q^55 + (2*a - 2)*q^56 + (-a + 
        1)*q^59 + q^64 - 2*q^70 + (2*a - 2)*q^71 + a*q^80 - a*q^81 + q^86 + 
        a*q^89 + 2*q^91 + q^99 - a*q^104 + 2*a*q^119 + (a - 1)*q^121 + q^125 + 
        (-2*a + 2)*q^126 + (-a + 1)*q^130 + (-a + 1)*q^136 - q^144 - a*q^146 + 
        2*a*q^154 - q^155 + O(q^162),
    q^2 + (a - 1)*q^8 - q^10 + 1/3*(2*a - 1)*q^13 - a*q^17 + (a - 1)*q^18 + 
        a*q^22 + (-a + 1)*q^40 - a*q^43 + q^50 + 1/3*(-2*a - 2)*q^52 + q^62 + 
        1/3*(-2*a + 1)*q^65 + 2*q^68 - a*q^72 + (-a + 1)*q^73 + (a - 1)*q^83 + 
        a*q^85 - q^88 + (-a + 1)*q^90 + a*q^98 - q^107 - a*q^110 + 1/3*(-a - 
        1)*q^117 + (-a + 1)*q^118 - q^128 + (2*a - 2)*q^142 + 1/3*(a - 2)*q^143 
        + q^153 + O(q^162),
    q^4 + a*q^5 + (-a + 1)*q^11 - a*q^14 + (a - 1)*q^16 - q^20 + a*q^26 - a*q^31
        - a*q^34 + (a - 1)*q^36 + a*q^44 - q^45 + (-2*a + 2)*q^49 - q^56 + 
        a*q^64 - a*q^70 - a*q^86 + (a - 1)*q^89 + a*q^91 + a*q^99 + q^100 - 
        a*q^104 + (a - 1)*q^119 + q^124 + a*q^125 + q^126 + (-a + 1)*q^130 + 
        2*q^136 - a*q^144 + (-2*a + 2)*q^146 + (a - 1)*q^154 + O(q^162),
    q^7 - a*q^8 + (-a + 1)*q^10 + 1/3*(a - 2)*q^13 - q^22 + q^35 + 1/3*(-a + 
        2)*q^52 + (a - 1)*q^62 + (a - 1)*q^63 + 1/3*(2*a - 1)*q^65 + (a - 
        1)*q^68 + q^72 + a*q^73 - a*q^77 - q^85 + a*q^90 - 2*q^98 + (-a + 
        1)*q^107 + a*q^112 + 1/3*(-2*a + 1)*q^117 + (a - 1)*q^127 + (-a + 
        1)*q^128 + 1/3*(-a + 2)*q^143 + O(q^162)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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(
10
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
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:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^12 - q^14 - q^23 + q^25 - q^27 + q^36 + q^38 + q^49 + q^56 + q^66 - 
        q^69 - q^77 + q^78 - q^82 - q^88 - q^91 + q^92 - q^103 - q^104 - q^114 +
        q^121 - q^133 + q^143 + q^146 + q^147 - q^157 + q^159 + O(q^162),
    q^2 - 2*q^7 - q^8 + q^11 + q^13 + q^19 - q^21 - q^24 + q^28 + q^32 + q^33 + 
        q^39 - 2*q^41 - q^44 - q^46 + q^50 - q^52 - q^54 + q^63 + q^72 + q^73 - 
        2*q^83 + q^84 + q^96 + q^98 - q^99 + q^109 - q^117 - q^123 - q^128 - 
        q^138 - 2*q^149 + 2*q^151 - q^154 + 3*q^161 + O(q^162),
    q^3 - q^4 - q^9 + q^12 + q^22 - q^23 + q^26 - q^36 - q^38 - q^42 + q^49 + 
        q^53 + q^56 + q^64 - q^66 + q^75 - q^77 - q^78 - q^91 - q^100 - q^103 + 
        q^108 + q^113 + 2*q^114 + q^126 - q^146 - q^152 - q^157 - q^159 + 
        O(q^162),
    q^5 - q^60 - q^70 - q^115 + q^125 - q^135 + O(q^162),
    q^6 - q^7 - q^8 + q^11 + q^13 - q^18 - q^21 + q^28 + q^32 - q^41 - q^46 + 
        q^57 + q^63 - q^76 - q^83 + q^98 + q^106 - q^123 - q^132 - q^149 + q^150
        + 2*q^151 - q^154 - q^156 + 2*q^161 + O(q^162),
    q^10 - 2*q^35 - q^40 + q^55 + q^65 + q^95 - q^105 - q^120 + q^140 + q^160 + 
        O(q^162),
    q^15 - q^20 - q^45 + q^60 + q^110 - q^115 + q^130 + O(q^162),
    q^30 - q^35 - q^40 + q^55 + q^65 - q^90 - q^105 + q^140 + q^160 + O(q^162)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
715
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.2 + 6*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 + q^9 + 2*q^14 - q^16 - q^25 - q^26 - q^36 - q^49 - q^55 + q^64 + 
        q^81 + q^91 + q^100 - q^121 + 2*q^126 - q^130 - q^144 - 2*q^146 + 
        2*q^155 + O(q^162),
    q^2 - q^7 + 1/2*q^13 + q^18 + q^28 - q^32 - q^50 - 1/2*q^52 - q^63 + 
        1/2*q^65 + q^73 - q^83 - q^85 - q^98 - q^110 + q^112 + 1/2*q^117 + 
        1/2*q^143 + O(q^162),
    q^5 + q^11 - q^20 + q^26 - 2*q^31 - 2*q^34 - q^44 + q^45 + 2*q^70 - q^80 + 
        2*q^86 - 2*q^89 - q^91 + q^99 + 2*q^119 + 2*q^124 - q^125 - q^130 + 
        2*q^154 + O(q^162),
    q^10 - 1/2*q^13 + q^17 + q^22 - q^35 - q^43 + 1/2*q^52 - 2*q^62 + 1/2*q^65 -
        q^68 - q^77 + q^90 + q^107 - 1/2*q^117 - q^127 + q^140 + 1/2*q^143 + 
        q^153 - q^160 + O(q^162)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
716
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
176
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
716
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
178
);
qprec:=
176
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
716
);
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(
178
);
qprec:=
176
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
716
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
89*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
176
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^13 + q^17 + q^19 - q^27 - q^29 - q^31 + q^39 - q^47 + q^49 - q^59 - 
        q^65 - q^67 - q^75 + q^83 - q^87 + q^89 - q^93 - q^101 - q^107 - q^117 +
        q^121 + q^139 - q^149 + 2*q^169 - q^173 + O(q^176),
    q^3 - q^17 - q^19 + q^27 - q^39 - q^45 + q^61 + q^65 + q^75 + q^81 - q^85 + 
        q^93 - q^95 + q^125 - q^135 - q^141 + q^145 + q^147 - q^153 - q^155 - 
        q^169 - q^171 + O(q^176),
    q^5 - q^13 - q^17 - q^19 + q^25 + q^29 + q^43 - q^51 - q^57 + q^59 + q^67 + 
        q^75 - q^83 - q^85 + q^87 - q^89 - q^95 + q^125 - q^135 - q^139 + q^145 
        + q^151 + q^153 - q^155 - q^169 + q^171 + O(q^176),
    q^9 - q^13 - q^17 - q^19 + q^25 + q^27 + q^29 + q^31 - q^39 - q^45 - q^51 - 
        q^57 + q^59 + q^67 + q^81 - q^83 - q^89 + q^93 + q^107 - q^135 - q^139 +
        q^149 - q^155 - q^169 + q^173 + O(q^176),
    q^15 - q^17 - q^19 + q^25 + q^29 - q^39 - q^45 + q^59 + q^67 - q^85 - q^95 +
        q^117 + q^129 - q^155 - q^169 + O(q^176)
]
;
Bo:=
[
    q - q^5 - q^13 - q^15 + q^25 - q^27 - q^31 - q^39 - q^43 + q^45 + 2*q^47 + 
        q^49 + q^51 + q^57 + 2*q^65 + q^75 - q^83 - q^85 + q^87 - q^89 - q^93 - 
        q^95 + 2*q^101 - q^107 + q^117 + q^121 - q^125 - q^129 + q^135 - q^139 -
        q^145 - q^149 - q^151 - q^153 + 2*q^155 + q^169 - q^171 - q^173 + 
        O(q^176),
    q^2 + q^8 - q^10 - q^26 - q^30 + q^32 - q^40 + q^50 - q^54 - q^62 - q^78 - 
        q^86 + q^90 + 2*q^94 + q^98 + q^102 - q^104 + q^114 - q^120 + q^128 + 
        2*q^130 + q^150 - q^160 - q^166 - q^170 + q^174 + O(q^176),
    q^3 - q^5 - q^9 - q^13 + q^17 + q^19 + q^25 + q^29 - q^31 - q^43 - q^51 - 
        q^57 + q^59 + q^61 + q^65 + q^67 - q^83 - q^87 - q^89 - q^107 + q^135 - 
        q^139 + 2*q^141 + q^147 - q^149 - q^151 + q^153 + q^155 + q^169 + q^171 
        - q^173 + O(q^176),
    q^4 + q^16 - q^20 - q^52 - q^60 + q^64 - q^80 + q^100 - q^108 - q^124 - 
        q^156 - q^172 + O(q^176),
    q^6 - q^10 - q^18 + q^24 - q^26 + q^34 + q^38 - q^40 + q^50 + q^58 - q^62 - 
        q^72 - q^86 + q^96 - q^102 - q^104 - q^114 + q^118 + q^122 + q^130 + 
        q^134 + q^136 + q^152 - q^160 - q^166 - q^174 + O(q^176),
    q^12 - q^20 - q^36 + q^48 - q^52 + q^68 + q^76 - q^80 + q^100 + q^116 - 
        q^124 - q^144 - q^172 + O(q^176)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
717
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
717
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
238
);
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
717
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
717
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
717
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
717
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
717
);
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:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
717
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
119*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
158
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^20 - q^24 + q^25 - q^27 - q^29 - q^33 + q^45 + q^49 + q^51 + q^60 + 
        q^62 - q^75 + q^80 - q^81 - q^83 + q^102 - q^110 + q^116 - q^120 + q^121
        + q^132 - q^136 - q^142 + q^144 - q^145 - q^157 + O(q^158),
    q^2 + q^17 - q^20 - q^22 - q^24 + q^31 + q^32 - q^34 + q^40 + q^45 + q^51 - 
        q^54 - q^55 + q^61 - q^64 + q^67 - q^71 - q^80 - q^90 + q^98 - q^101 + 
        q^108 - q^109 - q^113 + q^121 - q^122 + q^124 - q^125 + q^128 + q^132 - 
        q^134 - q^135 - q^136 + q^144 - q^145 - q^153 + O(q^158),
    q^3 + q^27 - q^45 - q^54 - q^60 + q^75 - q^87 - q^99 - q^144 + q^147 + 
        O(q^158),
    q^4 + q^16 - q^22 + q^27 + q^29 - q^34 - q^36 - q^44 - q^50 + q^62 + q^83 - 
        q^85 - q^88 - q^101 + q^108 + q^110 - q^113 + q^116 - q^122 - q^134 - 
        q^135 + q^142 - q^144 + q^157 + O(q^158),
    q^5 + q^16 - q^22 + q^27 - q^44 - q^45 - q^50 + q^55 - q^85 - q^100 - q^101 
        + q^110 - q^113 + q^116 + q^125 + q^142 - q^144 - q^145 + O(q^158),
    q^6 - q^27 - q^33 - q^36 + q^45 + q^51 + q^54 - q^66 - q^72 - q^75 - q^81 + 
        q^93 + q^96 + q^99 + q^108 + q^153 + O(q^158),
    q^8 - q^17 - q^44 + q^54 + q^55 + q^58 - q^61 - q^67 + q^71 - q^72 - q^81 - 
        q^88 - q^100 + q^109 + q^124 + q^125 + q^135 + q^153 + O(q^158),
    q^9 - q^24 - q^27 - q^33 + q^45 + q^51 + q^60 - q^75 + q^102 - q^120 + q^132
        - q^135 + q^144 + O(q^158),
    q^10 + q^17 - q^20 - q^22 + q^27 + q^32 - q^34 + q^40 - q^50 - q^54 + q^61 -
        q^64 + q^67 + q^68 - q^80 - q^85 - q^90 - q^101 + q^108 + q^110 - q^113 
        - q^122 + q^128 - q^134 - q^135 - q^136 - q^145 - q^153 + q^155 + 
        O(q^158),
    q^11 - q^20 + q^25 + q^27 - q^34 + q^40 - q^54 - q^64 + q^68 - q^85 - q^99 -
        q^101 - q^113 - q^122 + q^127 + q^128 - q^134 - q^145 + O(q^158),
    q^12 - q^24 - q^27 - q^33 - q^36 + 2*q^45 + q^48 + q^51 + q^54 + q^60 - q^66
        - q^72 - q^75 - q^81 + q^87 - q^90 + q^99 + q^108 - q^120 - q^135 + 
        q^144 - q^150 + O(q^158),
    q^15 - q^24 - q^27 - q^33 + q^45 + q^48 + q^51 + q^54 + q^60 - q^66 - q^72 -
        q^75 - q^81 + q^102 - q^120 + q^144 - q^150 + q^153 + O(q^158),
    q^18 - q^24 - q^27 + q^45 + q^51 - q^81 - q^90 + q^132 + q^144 + O(q^158),
    q^30 - q^33 - q^36 + q^45 + q^51 - q^66 - q^75 + q^96 + q^108 - q^135 - 
        q^150 + O(q^158)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
718
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
358
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
718
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
179*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^20 - q^22 + 2*q^25 - q^32 + q^36 - q^37 + q^40 - q^41 - q^47 - q^48 + 
        q^49 - q^51 - q^60 - q^66 + q^69 + q^80 + q^90 + q^92 + q^96 + q^99 - 
        q^100 + q^101 + q^102 - q^107 + q^110 - 2*q^115 + q^120 + q^121 - q^127 
        - q^128 + q^131 + q^132 - q^136 - q^138 + q^146 - q^153 + q^162 - 
        2*q^165 + q^169 - q^170 - q^173 + q^176 + O(q^178),
    q^2 + q^22 - q^25 + q^32 - q^36 + q^37 - q^40 + q^41 - q^46 + q^50 - q^69 - 
        q^80 - q^88 - q^90 - q^94 - q^96 + q^98 - q^99 - q^101 - q^102 + q^107 +
        q^115 + q^128 - q^131 + q^138 - q^150 + q^153 + q^165 + q^170 - q^176 + 
        O(q^178),
    q^3 + q^27 + q^32 + q^34 - q^45 - q^46 - q^48 - q^51 + q^54 - q^55 - q^66 - 
        q^73 + q^75 - q^81 - q^90 + q^110 - q^111 + q^121 - q^123 + q^125 - 
        q^136 + q^141 + q^147 - q^150 + q^153 - q^165 + q^170 + O(q^178),
    q^4 + q^25 - 2*q^32 - q^34 + q^36 - q^37 + q^40 - q^41 + q^44 - q^48 - q^50 
        - q^54 - q^60 - q^68 + q^69 + q^74 + q^80 + q^82 + q^88 + q^90 + q^96 + 
        q^99 - q^100 + q^101 + q^102 - q^107 - q^108 - q^115 - q^128 + q^131 + 
        q^132 - q^136 - q^138 + q^144 + q^146 + q^148 - q^153 + q^162 + q^164 - 
        q^165 - q^170 + O(q^178),
    q^5 + q^22 - q^25 + q^32 + q^37 + q^41 - q^46 - q^51 - q^55 - q^69 - q^73 + 
        q^75 + q^79 - q^80 - q^81 - q^88 - q^90 - q^96 - q^99 - q^101 + q^107 + 
        q^115 + q^125 + q^128 - q^131 + q^138 - q^150 + q^153 + q^170 + 
        O(q^178),
    q^6 - q^20 - q^22 + q^54 + q^64 - q^66 + q^68 - q^72 + q^108 + q^120 - q^138
        - q^144 + q^150 - q^160 - q^170 + O(q^178),
    q^8 - q^20 - q^22 + q^25 - q^37 - q^41 + q^46 + q^69 + q^90 + q^99 + q^101 -
        q^107 - q^115 + q^131 - q^138 - q^144 + q^150 - q^153 - q^160 - q^165 - 
        q^170 + O(q^178),
    q^9 + q^20 + q^22 - q^25 + q^32 - q^36 + q^37 - q^40 + q^41 - q^45 - q^46 + 
        q^47 - q^55 - q^69 - q^73 - q^80 - q^90 - q^99 - q^101 + q^107 - q^111 +
        2*q^115 - q^123 + q^127 + q^128 - q^131 + q^138 - q^150 + q^153 + q^165 
        + q^170 + q^173 - q^176 + O(q^178),
    q^10 - q^20 - q^22 + q^25 - q^32 + q^36 - q^37 + q^40 - q^41 + q^44 - q^60 -
        q^66 + q^69 + q^80 + q^90 + q^99 - q^100 + q^101 - q^107 - q^115 + q^120
        - q^128 + q^131 + q^132 - q^136 - q^138 + q^150 - q^153 + q^158 - q^165 
        - q^170 + q^176 + O(q^178),
    q^11 + q^20 + q^22 - q^25 + q^32 + q^33 + q^37 - q^40 + q^41 - q^44 - q^45 -
        q^46 - q^48 - q^51 - q^55 + q^72 - q^73 - q^81 + q^85 - q^90 - q^101 + 
        q^107 - q^111 + q^115 - q^120 - q^123 + q^128 - q^131 - q^132 + q^135 + 
        q^138 - q^150 + q^151 + q^153 + q^170 - q^176 + O(q^178),
    q^12 - q^20 - q^22 + q^25 + q^34 - q^37 - q^41 + q^54 - q^66 + q^69 - q^72 +
        q^99 + q^101 - q^107 + q^108 + q^110 - q^115 + q^120 + q^131 - q^138 - 
        q^144 - q^153 - q^165 + q^176 + O(q^178),
    q^15 + q^20 + q^22 + q^37 + q^41 - q^45 - q^46 - q^48 - q^51 - q^55 - q^60 +
        q^72 - q^73 - q^81 - q^90 - q^100 + q^107 - q^111 + q^115 - q^123 + 
        q^135 - q^136 + q^138 + q^144 - q^150 + q^153 + q^160 + q^170 + 
        O(q^178),
    q^16 - q^20 - q^22 + q^32 + q^34 - q^40 - q^44 + q^50 + q^54 + q^64 - q^66 +
        q^68 - q^72 - q^74 - q^80 - q^82 - q^88 + q^92 + q^100 + q^108 + q^110 +
        q^120 - q^144 - q^148 - q^160 - q^164 + O(q^178),
    q^17 + q^20 + q^22 + q^27 - q^45 - q^46 - q^48 - q^51 - q^64 - q^68 + q^72 -
        q^73 + q^80 - q^81 + q^85 + q^88 - q^90 - q^100 - q^108 - q^111 - q^120 
        - q^123 + q^135 - q^136 + q^138 + q^141 + q^144 + q^148 - q^150 + q^153 
        + q^160 + q^164 + q^170 + O(q^178),
    q^18 - q^22 + q^25 - q^32 + q^36 - q^37 + q^40 - q^41 - q^48 - q^60 - q^66 +
        q^69 + q^80 + q^88 + q^94 + q^96 + q^99 - q^100 + q^101 + q^102 - q^107 
        - q^115 - q^128 + q^131 - q^136 - q^138 - q^153 + q^162 - q^165 - q^170 
        + q^176 + O(q^178),
    q^23 - q^25 + 2*q^32 + q^33 + q^34 + q^37 - q^40 + q^41 - q^44 - q^46 + q^50
        - q^51 + q^54 - q^55 - q^66 + q^68 - q^69 - q^73 - q^74 + q^75 - q^80 - 
        q^81 - q^82 - q^88 - q^90 - q^96 + q^100 - q^101 + q^107 + q^108 + q^110
        - q^111 + q^115 - q^123 + q^128 - q^131 - q^132 + q^138 - q^144 - q^148 
        + q^149 - q^150 + q^153 - q^164 + q^170 + O(q^178),
    q^24 + q^25 - q^32 - q^37 - q^41 - q^48 + q^69 + q^80 + q^88 + q^96 + q^99 -
        q^100 + q^101 - q^107 - q^115 - q^128 + q^131 - q^136 + q^148 - q^153 + 
        q^164 - q^165 + O(q^178),
    q^30 - q^32 - q^34 + q^40 + q^44 - q^54 - q^60 + q^74 + q^82 - q^100 - q^110
        + q^132 + q^144 - q^170 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
719
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
718
);
qprec:=
120
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
719
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
359*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
120
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^14 + q^16 + 2*q^21 + q^25 - q^26 - q^27 - 2*q^28 - q^29 - q^31 - q^32 
        + 2*q^35 - q^36 + q^37 + q^39 + q^40 - 2*q^45 - q^48 + 2*q^49 + 2*q^52 -
        q^54 + q^56 - q^58 - q^59 - q^60 - q^61 + q^62 - q^63 + q^64 - 2*q^65 - 
        2*q^70 + q^72 - q^74 + q^78 - q^80 + q^81 + q^83 + q^90 - q^91 + q^93 + 
        q^96 - q^98 - q^100 + q^103 - 2*q^104 - 2*q^105 - q^107 + q^108 - q^111 
        - 2*q^112 - q^113 + q^116 + O(q^120),
    q^2 + q^20 + q^21 - q^24 - q^25 - q^27 - q^29 + q^50 - q^56 - q^60 - q^70 - 
        q^75 + q^78 + q^83 + q^91 + q^93 + q^98 - q^117 + O(q^120),
    q^3 - q^16 - q^21 + q^27 - q^35 - q^50 + q^60 + q^70 + q^74 + q^75 - q^78 - 
        q^103 + q^104 + q^112 + O(q^120),
    q^4 - q^14 - q^20 - 2*q^21 + q^26 + q^27 + q^28 + q^29 - q^35 + q^36 - q^39 
        - q^40 - q^42 + q^45 + q^48 - q^49 - q^52 + q^59 + q^60 + q^61 - q^62 + 
        q^63 + q^65 + q^70 - q^72 + q^74 - q^78 - q^83 - q^90 - q^93 - q^96 + 
        q^100 - q^103 + q^104 + 2*q^105 - q^108 + q^111 + q^112 + q^113 - q^116 
        + O(q^120),
    q^5 - q^14 - q^16 - 2*q^21 + q^26 + q^27 + q^28 + q^29 - q^35 + q^36 - q^39 
        + q^45 - q^49 - q^50 - q^52 + q^54 + q^58 + q^60 + q^61 - q^62 - q^64 + 
        q^65 + q^70 - q^72 + q^74 - q^78 + q^80 - q^83 - q^90 - q^93 - q^96 - 
        q^103 + q^104 + q^105 - q^108 + q^111 + 2*q^112 - q^116 + O(q^120),
    q^6 - q^14 - q^16 - q^20 - 2*q^21 + q^24 + q^26 + q^27 + q^28 + q^29 + q^31 
        + q^32 - q^35 - q^39 - q^40 + q^45 - q^49 - q^50 - q^52 + q^54 + q^60 + 
        q^61 - q^62 - q^64 + 2*q^65 + 2*q^70 - q^72 + q^74 - 2*q^78 - q^83 - 
        q^84 - q^90 - q^93 + q^100 - q^103 + q^104 + q^105 + q^107 - q^108 + 
        q^111 + q^112 - q^116 + O(q^120),
    q^7 - q^14 - q^16 - q^20 - 2*q^21 + 2*q^26 + q^27 + 2*q^28 + q^29 + q^31 + 
        q^32 - 2*q^35 + q^36 - q^37 - q^39 - q^40 + q^45 + q^48 - q^49 - q^50 - 
        2*q^52 - q^56 + 2*q^60 + q^61 - q^62 + q^63 - q^64 + 2*q^65 + 2*q^70 - 
        q^72 + q^74 - 2*q^78 + q^80 - q^81 - q^83 - q^84 - q^87 - q^90 - q^93 - 
        q^96 + q^98 + q^100 - q^103 + 2*q^104 + 2*q^105 + q^107 - q^108 + q^111 
        + 2*q^112 - q^116 + q^117 + O(q^120),
    q^8 - q^14 - q^16 - q^20 - 2*q^21 + q^24 + q^25 + q^26 + q^27 + q^28 + q^29 
        + q^32 - q^35 - q^40 - q^49 - q^50 - q^52 + q^60 + q^61 - q^62 - q^64 + 
        q^65 + 2*q^70 + q^74 + q^75 - 2*q^78 - q^83 - q^84 - q^93 + q^100 - 
        q^103 + q^104 + q^105 - q^108 + q^111 + q^112 - q^116 + q^117 + q^118 + 
        O(q^120),
    q^9 - q^14 - q^16 - 2*q^21 + q^26 + q^27 + 2*q^28 + q^29 + q^31 + q^32 - 
        2*q^35 + q^36 - q^37 - q^39 - q^40 + q^45 - q^49 - q^50 - 2*q^52 + q^54 
        - q^56 + q^58 + q^60 + q^61 - q^62 - q^64 + 2*q^65 + 2*q^70 - q^72 + 
        q^74 - 2*q^78 + q^80 - q^83 - q^84 - q^90 + q^91 - q^93 - q^96 + q^98 + 
        q^100 - q^103 + 2*q^104 + q^105 + q^107 - q^108 + q^111 + 2*q^112 - 
        q^116 + O(q^120),
    q^10 - q^14 - q^16 - q^21 + q^26 + q^27 + q^28 + q^29 - q^35 - q^49 - q^50 -
        q^52 + q^60 + q^61 - q^62 - q^64 + q^65 + q^70 + q^74 - q^78 + q^80 - 
        q^93 - q^96 - q^103 + q^104 + q^105 + q^111 + q^112 + O(q^120),
    q^12 - q^14 - q^20 - q^21 + q^26 + q^27 + q^28 + q^29 - q^39 - q^40 - q^42 +
        q^48 - q^49 - q^52 + q^60 + q^61 + q^65 + q^70 - q^72 + q^74 - q^78 - 
        q^83 - q^93 - q^96 + q^104 + q^105 + q^111 + q^112 - q^116 + O(q^120),
    q^13 - q^16 - q^20 - 2*q^21 + q^24 + q^26 + q^27 + q^28 + q^29 + q^31 + q^32
        - 2*q^35 - q^37 - q^39 - q^40 + q^45 - q^49 - q^50 - q^52 + 2*q^60 + 
        q^61 - q^62 + q^63 - q^64 + 2*q^65 + 2*q^70 + q^74 + q^75 - 2*q^78 - 
        q^81 - q^83 - q^84 - q^87 - q^90 - q^93 + q^100 - q^103 + q^104 + q^105 
        + q^107 - q^108 + q^111 + q^112 - q^116 + q^117 + O(q^120),
    q^15 - q^16 - q^21 + q^26 + q^28 - q^35 - q^50 + q^60 + q^61 - q^62 - q^64 +
        q^65 + q^70 + q^74 - q^78 - q^84 - q^90 - q^103 + q^104 + q^112 + 
        O(q^120),
    q^18 - q^20 - q^21 + q^27 + q^29 - q^39 - q^42 + q^56 + q^60 - q^78 - q^83 +
        q^105 + q^111 + O(q^120),
    q^30 - q^31 - q^32 + q^35 + q^37 - q^42 - q^45 + q^52 + q^56 - q^65 - q^70 +
        q^81 + q^87 - q^100 - q^107 + O(q^120)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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 - 2*q^13 - q^25 + 2*q^37 + q^49 + 2*q^61 - 2*q^73 - 2*q^97 - 2*q^109 + 
        q^121 + 2*q^157 + 3*q^169 - 2*q^181 + 2*q^193 - 2*q^229 - 2*q^241 + 
        O(q^242),
    q^5 - 2*q^65 - q^125 + 2*q^185 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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(
720
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
720
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 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(
720
);
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:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + (a - 1)*q^9 + a*q^11 - q^17 - q^19 - a*q^25 + q^27 + (-a + 
        1)*q^33 + (-a + 1)*q^41 + a*q^43 + (a - 1)*q^49 + a*q^51 + a*q^57 + (-a 
        + 1)*q^59 + (-a + 1)*q^67 - q^73 + (a - 1)*q^75 - a*q^81 - 2*a*q^83 + 
        2*q^89 + a*q^97 - q^99 - q^107 + (2*a - 2)*q^113 - q^123 + (-a + 
        1)*q^129 + (2*a - 2)*q^131 + a*q^137 + (-a + 1)*q^139 + q^147 + (-a + 
        1)*q^153 + 2*q^163 - a*q^169 + (-a + 1)*q^171 - q^177 + 2*q^179 - 
        a*q^187 + (-a + 1)*q^193 - q^201 - a*q^209 + (2*a - 2)*q^211 + a*q^219 +
        q^225 + a*q^227 - q^233 + a*q^241 + O(q^242),
    q^2 - a*q^4 - a*q^6 + (a - 1)*q^8 + (a - 1)*q^12 + q^16 + (a - 1)*q^18 + 
        a*q^22 + q^24 - a*q^32 - q^34 + q^36 - q^38 + (-a + 1)*q^44 - a*q^48 - 
        a*q^50 + q^54 + (a - 1)*q^64 + (-a + 1)*q^66 + a*q^68 - a*q^72 + a*q^76 
        + (-a + 1)*q^82 + a*q^86 - q^88 + (a - 1)*q^96 + (a - 1)*q^98 + (a - 
        1)*q^100 + a*q^102 - a*q^108 + a*q^114 + (-a + 1)*q^118 + q^128 - q^132 
        + (-a + 1)*q^134 + (-a + 1)*q^136 + (a - 1)*q^144 - q^146 + (a - 
        1)*q^150 + (-a + 1)*q^152 - a*q^162 - q^164 - 2*a*q^166 + (-a + 1)*q^172
        + a*q^176 + 2*q^178 + q^192 + a*q^194 + q^196 - q^198 + q^200 + (-a + 
        1)*q^204 - q^214 + (a - 1)*q^216 + (2*a - 2)*q^226 + (-a + 1)*q^228 - 
        q^236 + O(q^242),
    q^5 - a*q^15 + (a - 1)*q^45 + a*q^55 - q^85 - q^95 - a*q^125 + q^135 + (-a +
        1)*q^165 + (-a + 1)*q^205 + a*q^215 + O(q^242),
    q^10 - a*q^20 - a*q^30 + (a - 1)*q^40 + (a - 1)*q^60 + q^80 + (a - 1)*q^90 +
        a*q^110 + q^120 - a*q^160 - q^170 + q^180 - q^190 + (-a + 1)*q^220 - 
        a*q^240 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
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(
720
);
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(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
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(
720
);
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:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a - 1)*q^7 + a*q^25 + a*q^49 + (a - 1)*q^55 + (-a + 1)*q^73 + (-a - 
        1)*q^97 + (-a + 1)*q^103 - q^121 + (a + 1)*q^127 + (-a - 1)*q^145 + 
        2*q^151 - a*q^169 + (-a + 1)*q^175 + (a - 1)*q^193 + 2*a*q^199 + (a - 
        1)*q^223 + O(q^242),
    q^2 - a*q^8 + (-a - 1)*q^14 + q^20 - q^32 + (a + 1)*q^44 + a*q^50 + (a - 
        1)*q^56 - a*q^80 + a*q^98 + (a - 1)*q^110 + (a - 1)*q^116 + a*q^128 + 
        (-a - 1)*q^140 + (-a + 1)*q^146 + (-a + 1)*q^176 + (-a - 1)*q^194 + 
        q^200 + (-a + 1)*q^206 + (a + 1)*q^224 + (-a + 1)*q^236 + O(q^242),
    q^4 + a*q^10 - a*q^16 + (a - 1)*q^22 + (-a - 1)*q^28 + q^40 + (-a - 1)*q^58 
        - q^64 + (-a + 1)*q^70 + (a + 1)*q^88 + a*q^100 + (a - 1)*q^112 + (a + 
        1)*q^118 + 2*q^154 - a*q^160 - 2*a*q^166 + a*q^196 + (-a + 1)*q^202 - 
        2*q^214 + (a - 1)*q^220 + (a - 1)*q^232 + O(q^242),
    q^5 + (a + 1)*q^11 + (a - 1)*q^29 + (-a - 1)*q^35 + (-a + 1)*q^59 - 2*a*q^77
        - 2*q^83 + (-a - 1)*q^101 + 2*a*q^107 + a*q^125 + (-a - 1)*q^131 + (a - 
        1)*q^149 + 2*q^173 + (-a + 1)*q^179 + 2*q^203 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 2*H.3 + H.4
;
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(
720
);
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(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^13 + a*q^25 + (-a - 1)*q^37 + a*q^49 + (a - 1)*q^73 - 2*q^85 
        + (-a - 1)*q^97 - q^121 + (a + 1)*q^145 + (a + 1)*q^157 - a*q^169 + (-a 
        + 1)*q^193 + (-a + 1)*q^205 + 2*a*q^229 + 2*q^241 + O(q^242),
    q^5 + 2*a*q^17 + (-a + 1)*q^29 + (-a - 1)*q^41 - 2*q^53 + (-a + 1)*q^65 + (a
        - 1)*q^89 + (-a - 1)*q^101 + a*q^125 + (-a + 1)*q^149 + (-a - 1)*q^185 +
        (2*a + 2)*q^221 + 2*q^233 + O(q^242)
]
;
Bo:=
[
    q + (a - 1)*q^13 - a*q^25 + (-a - 1)*q^37 + a*q^49 + (-a + 1)*q^73 + (a + 
        1)*q^97 - q^121 + (a - 1)*q^145 + (a + 1)*q^157 - a*q^169 + (-a + 
        1)*q^193 + (a + 1)*q^205 - 2*a*q^229 - 2*q^241 + O(q^242),
    q^2 + (a - 1)*q^26 - a*q^50 + (-a - 1)*q^74 + a*q^98 + (-a + 1)*q^146 + (a +
        1)*q^194 + O(q^242),
    q^4 - a*q^16 + a*q^40 + (a - 1)*q^52 - q^64 - a*q^100 + (-a - 1)*q^148 + 
        q^160 + a*q^196 + (a + 1)*q^208 + (-a + 1)*q^232 + O(q^242),
    q^5 + (-a - 1)*q^29 + (a - 1)*q^41 + (a - 1)*q^65 + (a + 1)*q^89 + (-a + 
        1)*q^101 - 2*a*q^113 - a*q^125 + 2*q^137 + (a + 1)*q^149 + 2*a*q^173 + 
        (-a - 1)*q^185 - 2*q^197 + O(q^242),
    q^8 - q^20 - a*q^32 + a*q^80 + (a - 1)*q^104 + (a + 1)*q^116 - q^128 + (-a +
        1)*q^164 - a*q^200 + O(q^242),
    q^10 + (-a - 1)*q^58 + (a - 1)*q^82 + (a - 1)*q^130 + (a + 1)*q^178 + (-a + 
        1)*q^202 - 2*a*q^226 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 3*H.3 + H.4
;
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(
720
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 3*H.3 + H.4
;
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(
720
);
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:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^5 + q^25 - 2*q^29 + 2*q^41 - q^49 - 2*q^61 - 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 
        + 2*q^229 - 2*q^241 + O(q^242)
]
;
Bo:=
[
    q - q^25 - q^49 - 2*q^61 + 2*q^85 + 2*q^109 + q^121 + q^169 - 2*q^181 - 
        2*q^229 + 2*q^241 + O(q^242),
    q^2 - q^50 - q^98 - 2*q^122 + 2*q^170 + 2*q^218 + O(q^242),
    q^3 - q^15 - q^27 + q^75 + 2*q^87 - 2*q^123 + q^135 - q^147 - 2*q^183 + 
        O(q^242),
    q^4 - q^16 - q^40 + q^64 - q^100 + 2*q^136 + q^160 - q^196 + O(q^242),
    q^5 - 2*q^25 - 2*q^29 + 2*q^41 + 2*q^85 - 2*q^89 - 2*q^101 + 4*q^109 + q^125
        + 2*q^145 + 2*q^149 - 4*q^181 - 2*q^205 - 4*q^229 + 4*q^241 + O(q^242),
    q^8 + q^20 - q^32 - 2*q^68 - q^80 + q^128 - q^200 + 2*q^212 + O(q^242),
    q^9 - q^45 - q^81 + q^225 + O(q^242),
    q^10 - 2*q^34 + 2*q^106 - 2*q^226 + O(q^242),
    q^17 - q^25 - q^29 + q^41 - q^53 + q^85 - q^89 - q^101 + 2*q^109 + q^113 + 
        q^125 - q^137 + q^145 + q^149 + q^173 - 2*q^181 - q^197 - q^205 - 
        2*q^229 - q^233 + 2*q^241 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 - q^10 - q^16 + (a + 1)*q^19 - a*q^25 - 2*a*q^31 + (a - 1)*q^34 - 
        a*q^40 + (-a + 1)*q^46 + q^49 + (a - 1)*q^61 - a*q^64 + (a - 1)*q^76 + 
        (-a - 1)*q^85 + (a + 1)*q^94 + q^100 + (a - 1)*q^109 + (a + 1)*q^115 + 
        a*q^121 + 2*q^124 + (-a - 1)*q^136 + (a - 1)*q^139 - 2*q^151 + q^160 + 
        2*q^166 - a*q^169 + (a + 1)*q^181 + (a + 1)*q^184 + (-a - 1)*q^190 + 
        a*q^196 + (-a - 1)*q^211 - 2*a*q^214 + (-a + 1)*q^226 + (-a - 1)*q^229 +
        (a - 1)*q^235 + O(q^242),
    q^2 + a*q^5 + a*q^8 + (a + 1)*q^17 - q^20 + (-a - 1)*q^23 - q^32 + (a + 
        1)*q^38 + (-a + 1)*q^47 - a*q^50 - 2*a*q^62 + (a - 1)*q^68 - a*q^80 - 
        2*a*q^83 + (-a + 1)*q^92 + (a - 1)*q^95 + q^98 - 2*q^107 + (-a - 
        1)*q^113 + (a - 1)*q^122 + q^125 - a*q^128 + (a - 1)*q^137 + (a - 
        1)*q^152 + 2*q^155 + (a + 1)*q^167 + (-a - 1)*q^170 + (a + 1)*q^188 - 
        2*a*q^197 + q^200 + (a - 1)*q^218 + 2*a*q^227 + (a + 1)*q^230 + (-a + 
        1)*q^233 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - 2*q^19 + q^25 - q^49 + 2*q^115 - q^121 + 2*q^139 - q^169 + 2*q^211 - 
        2*q^235 - 2*q^241 + O(q^242),
    q^2 + q^8 - q^20 + q^32 - 2*q^38 + q^50 - q^80 - 2*q^92 - q^98 + q^128 - 
        2*q^152 + 2*q^188 + q^200 + 2*q^212 + 2*q^230 + O(q^242),
    q^4 - q^10 + q^16 - q^40 - 2*q^46 + q^64 - 2*q^76 + 2*q^94 + q^100 + 2*q^106
        - q^160 - 2*q^184 + 2*q^190 - q^196 + O(q^242),
    q^5 + 2*q^23 - 2*q^47 - 2*q^53 - 2*q^95 + q^125 + 2*q^167 - 2*q^173 + 
        2*q^197 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^5 + a*q^9 + (-2*a + 1)*q^21 - a*q^25 + a*q^29 + (a - 1)*q^41 
        + q^45 + (2*a - 2)*q^49 - a*q^61 + (a - 2)*q^69 + (a - 1)*q^81 - q^89 - 
        2*a*q^101 + (-a - 1)*q^105 + q^109 + (a - 1)*q^121 - q^125 + (2*a - 
        1)*q^141 + q^145 + (a - 1)*q^149 + 3*q^161 - a*q^169 - q^181 + (-a + 
        2)*q^189 + (-a + 2)*q^201 + a*q^205 + (-a + 1)*q^225 + (-a + 1)*q^229 - 
        a*q^241 + O(q^242),
    q^3 + (-a - 1)*q^7 + (-a + 1)*q^15 + (2*a - 1)*q^23 + a*q^27 + (a - 2)*q^35 
        + (a + 1)*q^47 + (-2*a + 1)*q^63 + (-2*a + 1)*q^67 - a*q^75 + (-a - 
        1)*q^83 + a*q^87 + (-a + 2)*q^107 + (a + 1)*q^115 + (a - 1)*q^123 + (a -
        2)*q^127 + q^135 + (2*a - 2)*q^147 + (-2*a + 1)*q^167 + (2*a - 1)*q^175 
        - a*q^183 + (-2*a + 1)*q^203 + (a - 2)*q^207 + (a + 1)*q^223 + (-a + 
        2)*q^235 + O(q^242)
]
;
Bo:=
[
    q + (a - 1)*q^5 - a*q^9 - q^21 - a*q^25 + a*q^29 + (-a + 1)*q^41 + q^45 + 
        a*q^61 + a*q^69 + (a - 1)*q^81 - q^89 - 2*a*q^101 + (-a + 1)*q^105 - 
        q^109 + (a - 1)*q^121 + q^125 + 2*q^129 - q^141 - q^145 + (-a + 1)*q^149
        + q^161 - a*q^169 - q^181 + a*q^189 + a*q^201 + a*q^205 + (a - 1)*q^225 
        + (-a + 1)*q^229 + a*q^241 + O(q^242),
    q^2 + (a - 1)*q^10 - a*q^18 - q^42 - a*q^50 + a*q^58 + (-a + 1)*q^82 + q^90 
        + a*q^122 + a*q^138 + (a - 1)*q^162 - q^178 - 2*a*q^202 + (-a + 1)*q^210
        - q^218 + O(q^242),
    q^3 + (-a + 1)*q^7 + (a - 1)*q^15 - q^23 - a*q^27 + a*q^35 + (2*a - 2)*q^43 
        + (-a + 1)*q^47 - q^63 - q^67 - a*q^75 + (-a + 1)*q^83 + a*q^87 + 
        2*q^103 + a*q^107 + (-a + 1)*q^115 + (-a + 1)*q^123 + a*q^127 + q^135 - 
        2*a*q^163 - q^167 - q^175 + a*q^183 + q^203 + a*q^207 - 2*a*q^215 + (-a 
        + 1)*q^223 + (2*a - 2)*q^227 + a*q^235 + O(q^242),
    q^4 + (a - 1)*q^16 + (a - 1)*q^20 + q^24 - a*q^36 + (-a + 1)*q^56 - a*q^64 -
        a*q^80 - q^84 + (a - 1)*q^96 - a*q^100 + a*q^116 + (a - 1)*q^120 + q^144
        + (-a + 1)*q^164 + q^180 - q^184 - a*q^216 + a*q^224 + O(q^242),
    q^6 + (-a + 1)*q^14 + (a - 1)*q^30 - q^46 - a*q^54 + a*q^70 + (2*a - 2)*q^86
        + (-a + 1)*q^94 - q^126 - q^134 - a*q^150 + (-a + 1)*q^166 + a*q^174 + 
        2*q^206 + a*q^214 + (-a + 1)*q^230 + O(q^242),
    q^8 - a*q^12 - q^28 + (a - 1)*q^32 + (a - 1)*q^40 + q^48 + q^60 - a*q^72 + 
        a*q^92 + (a - 1)*q^108 + (-a + 1)*q^112 - a*q^128 + (-a + 1)*q^140 - 
        a*q^160 - q^168 + 2*q^172 - q^188 + (a - 1)*q^192 - a*q^200 + a*q^232 + 
        (a - 1)*q^240 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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(
12
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
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(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3 + 2*H.4
;
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(
720
);
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(
4
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + q^10 - q^16 + (a - 1)*q^19 + a*q^25 + (a - 1)*q^34 - a*q^40 + 
        (-a - 1)*q^46 - q^49 + (-a + 1)*q^61 + a*q^64 + (a + 1)*q^76 + 2*q^79 + 
        (-a - 1)*q^85 + (-a + 1)*q^94 + q^100 + (a - 1)*q^109 + (-a + 1)*q^115 +
        a*q^121 + (a + 1)*q^136 + (-a - 1)*q^139 - q^160 - a*q^169 + (-a - 
        1)*q^181 + (a - 1)*q^184 + (a - 1)*q^190 + a*q^196 - 2*a*q^199 + (a - 
        1)*q^211 + (-a + 1)*q^226 + (a + 1)*q^229 + (a + 1)*q^235 + O(q^242),
    q^2 + a*q^5 - a*q^8 + (-a - 1)*q^17 + q^20 + (-a + 1)*q^23 - q^32 + (a - 
        1)*q^38 + (a + 1)*q^47 + a*q^50 + (a - 1)*q^68 - a*q^80 + (-a - 1)*q^92 
        + (-a - 1)*q^95 - q^98 + (a + 1)*q^113 + (-a + 1)*q^122 - q^125 + 
        a*q^128 + (a - 1)*q^137 + (a + 1)*q^152 + 2*q^158 + (a - 1)*q^167 + (-a 
        - 1)*q^170 + (-a + 1)*q^188 - 2*a*q^197 + q^200 + (a - 1)*q^218 + (-a + 
        1)*q^230 + (-a + 1)*q^233 + O(q^242),
    q^3 - a*q^12 + a*q^18 - a*q^27 + q^30 - q^45 - q^48 + (a - 1)*q^57 + q^72 + 
        a*q^75 + (a - 1)*q^102 - q^108 - a*q^120 + (-a - 1)*q^138 - q^147 + (-a 
        + 1)*q^153 + q^162 + a*q^180 + (-a + 1)*q^183 + a*q^192 + (a + 1)*q^207 
        + (a + 1)*q^228 + 2*q^237 + O(q^242),
    q^6 - q^9 + a*q^15 - a*q^24 + a*q^36 + (-a - 1)*q^51 - a*q^54 + q^60 + (-a +
        1)*q^69 + a*q^81 - q^90 - q^96 + (a - 1)*q^114 + q^135 + (a + 1)*q^141 +
        q^144 + a*q^150 + (-a + 1)*q^171 + (a - 1)*q^204 - q^216 - a*q^225 - 
        a*q^240 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
720
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.2 + 3*H.3 + 2*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^25 - 2*q^31 + q^49 + 2*q^79 - q^121 + 2*q^151 - q^169 - 2*q^199 - 
        2*q^241 + O(q^242),
    q^2 - q^8 + q^20 + q^32 - q^50 - 2*q^62 - q^80 + q^98 - q^128 + 2*q^158 + 
        q^200 - 2*q^212 + O(q^242),
    q^3 - q^27 + q^45 - q^75 - 2*q^93 + q^147 + 2*q^237 + O(q^242),
    q^4 - q^10 - q^16 + q^40 + q^64 - q^100 + 2*q^106 - 2*q^124 - q^160 - 
        2*q^166 + q^196 + 2*q^214 + O(q^242),
    q^5 - 2*q^53 + 2*q^83 - 2*q^107 - q^125 - 2*q^155 + 2*q^173 + 2*q^197 + 
        2*q^227 + O(q^242),
    q^6 - q^24 - q^36 - q^54 + q^60 + q^90 + q^96 + q^144 - q^150 - 2*q^186 + 
        q^216 - q^240 + O(q^242),
    q^9 - q^15 - q^81 + q^135 + 2*q^159 - q^225 + O(q^242),
    q^12 + q^18 - q^30 - q^48 - q^72 - q^108 + q^120 - q^162 + q^180 + q^192 + 
        O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
102
);
qprec:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
51*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^8 + q^9 - q^17 + q^25 + q^26 - q^29 + q^32 - q^34 + q^38 + q^46 - q^49
        - q^52 - q^58 - q^59 - q^61 + q^68 - q^72 - q^76 + q^81 + q^82 - q^83 - 
        q^92 - q^97 + q^103 + 2*q^107 + q^116 - q^118 + q^121 - q^122 + 
        O(q^136),
    q^2 - q^4 + q^13 - q^17 + q^18 + q^19 + q^23 - q^26 - q^29 - q^36 - q^38 + 
        q^41 - q^46 + q^50 + q^52 - q^59 - q^61 + q^64 + q^76 + q^79 - q^82 - 
        q^83 + q^92 - q^97 - q^98 - q^100 - q^104 + q^117 - q^128 + q^131 + 
        O(q^136),
    q^7 - q^49 - q^56 + q^63 - q^98 - q^119 + O(q^136),
    q^14 - q^28 - q^49 + q^91 - q^119 + q^126 + q^133 + O(q^136)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
721
);
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:=
136
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^8 + (a - 1)*q^9 + a*q^14 + (-a + 1)*q^17 - a*q^25 + q^26 + (a - 
        1)*q^28 + (-a + 1)*q^29 + q^32 - q^34 - a*q^38 + (a - 1)*q^46 - q^52 + 
        a*q^58 - q^59 + (-a + 1)*q^61 - a*q^68 - q^72 + a*q^76 - a*q^81 - a*q^82
        - q^83 - q^91 + (-a + 1)*q^92 + (-a + 1)*q^97 + (a - 1)*q^103 + (-a + 
        1)*q^107 + (a - 1)*q^116 + (-a + 1)*q^118 + q^119 + (a - 1)*q^121 + (-a 
        + 1)*q^122 - q^126 + a*q^133 + O(q^136),
    q^2 - a*q^8 + 1/3*(-2*a + 1)*q^14 - q^16 + (a - 1)*q^18 + q^19 + 1/3*(-a - 
        1)*q^28 + (a - 1)*q^32 + a*q^34 + a*q^41 + 1/3*(-a - 1)*q^49 - a*q^50 + 
        (-a + 1)*q^52 + (a - 1)*q^56 + a*q^64 + q^68 + q^72 - 2*a*q^76 - q^79 + 
        1/3*(-2*a + 1)*q^91 + a*q^92 + (a - 1)*q^112 + 1/3*(-a + 2)*q^119 + (a -
        1)*q^122 + 1/3*(a + 1)*q^126 + q^128 - q^131 + 1/3*(-2*a + 1)*q^133 + 
        O(q^136),
    q^4 + q^8 + q^14 - a*q^16 - a*q^17 + q^26 - a*q^29 - a*q^32 + (a - 1)*q^34 +
        (a - 1)*q^36 + q^38 + (a - 1)*q^46 + (a - 1)*q^52 - a*q^56 + q^58 + (a -
        1)*q^59 - a*q^61 + (a - 1)*q^64 + (a - 1)*q^68 + (a - 1)*q^72 + q^76 + 
        (a - 1)*q^82 + (a - 1)*q^83 + (a - 1)*q^91 - a*q^92 - a*q^97 - a*q^98 - 
        a*q^100 + (-a + 1)*q^104 + (a - 1)*q^112 + (a - 1)*q^116 - a*q^118 - 
        a*q^122 + (a - 1)*q^126 + a*q^128 + q^133 + O(q^136),
    q^7 + (-a - 1)*q^8 - q^14 + (2*a - 1)*q^17 + (a - 2)*q^26 - a*q^28 + (a + 
        1)*q^29 + (2*a - 1)*q^32 + (-2*a + 1)*q^46 + (-2*a + 1)*q^52 + a*q^56 + 
        (a - 2)*q^58 + (-2*a + 1)*q^59 + (a - 1)*q^63 + (-a + 2)*q^68 + (-a + 
        2)*q^72 + (-a - 1)*q^76 + (-a + 2)*q^82 + (-a + 1)*q^91 + (a + 1)*q^92 +
        (a + 1)*q^97 + a*q^98 + (-2*a + 1)*q^116 + (a + 1)*q^118 + (2*a - 
        1)*q^122 + (-a + 1)*q^126 - q^133 + O(q^136),
    q^13 + 1/3*(2*a - 1)*q^14 + (-a + 1)*q^16 + (a - 1)*q^23 + 1/3*(-2*a + 
        1)*q^28 - q^34 - q^41 + 1/3*(-2*a + 1)*q^49 + (a - 1)*q^58 + (-a + 
        1)*q^79 + 1/3*(2*a - 1)*q^91 + q^104 - a*q^116 + (a - 1)*q^117 + q^118 +
        1/3*(a + 1)*q^119 + 1/3*(-a - 1)*q^126 + (-a + 1)*q^131 + 1/3*(2*a - 
        1)*q^133 + O(q^136)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
722
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
342
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
722
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
114
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
722
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
38
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
722
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
19*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
722
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
57*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
722
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
171*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
152
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
240
);
qprec:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^11*q^3 - a^10*q^4 + (-a^14 + a^7)*q^7 - a^2*q^9 - a*q^12 + (a^5 + 
        a^2)*q^13 - q^16 + (a^15 - a^11 + a^7 - a^6 - a^3)*q^19 + (-a^14 + a^10 
        - a^6 - a^5 + a^2)*q^21 + (a^14 - a^10 + a^6 - a^2)*q^25 + a^13*q^27 + 
        (-a^13 + a^9 - a^5 - a^4 + a)*q^28 + (a^8 - a^3)*q^31 + a^12*q^36 + 
        (-a^7 + a^6)*q^37 + (-a^13 - a^12 + a^8 - a^4 + 1)*q^39 + (a^15 + 
        a^4)*q^43 + a^11*q^48 + (a^14 - a^8 + a)*q^49 + (-a^15 - a^12)*q^52 + 
        (a^13 + a^10 - a^9 + a^5 - a)*q^57 + (-a^15 + a^11 - a^7 + 2*a^3)*q^61 +
        (a^12 - a^9 - a^8 + a^4 - 1)*q^63 + a^10*q^64 + (a^13 - 2*a^9 + a^5 - 
        a)*q^67 + (-a^12 + a)*q^73 + a^9*q^75 + (a^12 + a^9 - a^8 + a^4 - 
        1)*q^76 + (-a^15 + a^3)*q^79 + a^4*q^81 + (a^15 - a^8)*q^84 + (-a^15 + 
        a^11 + a^9 + a^8 - a^7 - a^4 + a^3 + 1)*q^91 + (-a^15 + a^14 + a^11 - 
        a^7 + a^3)*q^93 + (-a^13 + a^11)*q^97 + a^8*q^100 + (a^6 - a^3)*q^103 + 
        a^3*q^108 + (a^12 + a^11 - a^8 + a^4 - 1)*q^109 + (a^14 - a^13 - a^10 + 
        a^9 + a^6 - a^5 - a^2 + a)*q^111 + (a^14 - a^7)*q^112 + (-a^7 - 
        a^4)*q^117 - a^5*q^121 + (-a^14 + a^13 + a^10 - a^6 + a^2)*q^124 + (-a^9
        - a^8)*q^127 + (-a^15 + a^6)*q^129 + (-a^6 - 1)*q^133 + (a^15 - a^11 + 
        a^7 - a^4 - a^3)*q^139 + a^2*q^144 + (a^15 - a^12 - a^11 + a^7 + a^5 - 
        a^3)*q^147 + (a^13 - a^12 - a^9 + a^8 + a^5 - a^4 - a + 1)*q^148 + (a^15
        - a^13 + a^9 - a^5 + a)*q^151 + (-a^6 - a^3)*q^156 + (-a^2 - a)*q^157 + 
        O(q^159)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^3 - q^4 + (a^7 - a^4)*q^7 + a^2*q^9 + a*q^12 + (a^5 + a^2)*q^13 + 
        q^16 + (-a^7 + a^6 + a^5 - a^3 + a)*q^19 + (-a^6 + a^5 + a^4 - a^2 + 
        1)*q^21 + (-a^6 + a^4 - a^2 + 1)*q^25 - a^3*q^27 + (-a^7 + a^4)*q^28 + 
        (a^6 - a^4 + a^3 + a^2 - 1)*q^31 - a^2*q^36 + (a^7 + a^6)*q^37 + (-a^6 -
        a^3)*q^39 + (-a^5 + a^4)*q^43 - a*q^48 + (a^6 - 2*a^4 + a^2 + a - 
        1)*q^49 + (-a^5 - a^2)*q^52 + (-a^7 - 1)*q^57 + (-a^7 + a^5 + a)*q^61 + 
        (a^7 - a^6 - a^5 + a^3 - a)*q^63 - q^64 + (-a^5 + a^3 - a)*q^67 + (-a^2 
        + a)*q^73 + (a^7 - a^5 + a^3 - a)*q^75 + (a^7 - a^6 - a^5 + a^3 - 
        a)*q^76 + (-a^5 + a^3)*q^79 + a^4*q^81 + (a^6 - a^5 - a^4 + a^2 - 
        1)*q^84 + (-a^6 - a^2)*q^91 + (-a^7 + a^5 - a^4 - a^3 + a)*q^93 + (-a^3 
        - a)*q^97 + (a^6 - a^4 + a^2 - 1)*q^100 + (a^6 + a^3)*q^103 + a^3*q^108 
        + (-a^6 - a)*q^109 + (-a^7 - a^6 + a^4 - a^2 + 1)*q^111 + (a^7 - 
        a^4)*q^112 + (a^7 + a^4)*q^117 + a^5*q^121 + (-a^6 + a^4 - a^3 - a^2 + 
        1)*q^124 + (a^7 + a^6 - a^5 - a^4 + a^3 + a^2 - a - 1)*q^127 + (a^6 - 
        a^5)*q^129 + (a^6 - 2*a^3 + 1)*q^133 + (-a^7 + a^5 + a^4 - a^3 + 
        a)*q^139 + a^2*q^144 + (-a^7 + 2*a^5 - a^3 - a^2 + a)*q^147 + (-a^7 - 
        a^6)*q^148 + (-a^7 - a^5)*q^151 + (a^6 + a^3)*q^156 + (a^2 + a)*q^157 + 
        O(q^159)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^3 + q^4 + (a^3 - 2*a^2 + a - 1)*q^7 + a^2*q^9 + a*q^12 + (a^2 - 
        1)*q^13 + q^16 + (-a^3 + a^2 - 2*a + 1)*q^19 + (-a^3 - 1)*q^21 - 
        a^3*q^25 + a^3*q^27 + (a^3 - 2*a^2 + a - 1)*q^28 + a^2*q^36 + (-a^2 - 
        a)*q^37 + (a^3 - a)*q^39 + (a^3 - a^2 + a - 2)*q^43 + a*q^48 + (-a^2 + 
        2*a - 1)*q^49 + (a^2 - 1)*q^52 + (-a^2 + 1)*q^57 + (a^2 - a + 1)*q^61 + 
        (-a^3 + a^2 - 2*a + 1)*q^63 + q^64 + (-a^3 - a + 1)*q^67 + (a^2 + 
        a)*q^73 + (-a^3 + a^2 - a + 1)*q^75 + (-a^3 + a^2 - 2*a + 1)*q^76 + (a^3
        - 1)*q^79 + (a^3 - a^2 + a - 1)*q^81 + (-a^3 - 1)*q^84 + (-2*a^3 + 3*a^2
        - 3*a + 2)*q^91 + (a^3 + a)*q^97 - a^3*q^100 + (a^3 - a)*q^103 + 
        a^3*q^108 + (-a^3 - a^2)*q^111 + (a^3 - 2*a^2 + a - 1)*q^112 + (a^3 - 
        2*a^2 + a - 1)*q^117 - q^121 + (-2*a^3 + a^2 - a + 1)*q^127 + (-a - 
        1)*q^129 + (2*a^3 - a + 1)*q^133 + a^2*q^144 + (-a^3 + 2*a^2 - a)*q^147 
        + (-a^2 - a)*q^148 + (-a^2 - 1)*q^151 + (a^3 - a)*q^156 + (a^2 + 
        a)*q^157 + O(q^159)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^3*q^3 - a^2*q^4 + (-a^3 + a^2)*q^7 - a^2*q^9 - a*q^12 + (a^2 - a)*q^13
        - q^16 + (a^3 + a^2)*q^19 + (-a^2 + a)*q^21 + a^2*q^25 - a*q^27 + (-a + 
        1)*q^28 + (-a^3 + 1)*q^31 - q^36 + (a^3 - a^2)*q^37 + (a - 1)*q^39 + 
        (-a^3 - 1)*q^43 + a^3*q^48 + (-a^2 + a - 1)*q^49 + (a^3 + 1)*q^52 + (a^2
        + a)*q^57 + (-a + 1)*q^63 + a^2*q^64 + (a + 1)*q^73 + a*q^75 + (a + 
        1)*q^76 + 2*a^3*q^79 - q^81 + (-a^3 - 1)*q^84 + (-a^3 + a - 2)*q^91 + 
        (-a^3 - a^2)*q^93 + (a^3 + a)*q^97 + q^100 + (-a^3 - a^2)*q^103 + 
        a^3*q^108 + (a^3 + 1)*q^109 + (a^2 - a)*q^111 + (a^3 - a^2)*q^112 + (a^3
        + 1)*q^117 + a*q^121 + (-a^2 - a)*q^124 + (-a - 1)*q^127 + (a^3 - 
        a^2)*q^129 + (a^2 - 1)*q^133 + (a^3 + 1)*q^139 + a^2*q^144 + (a^3 - a + 
        1)*q^147 + (a - 1)*q^148 + (-a^3 - a)*q^151 + (-a^3 + a^2)*q^156 + (-a^2
        - a)*q^157 + O(q^159)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^3 + q^4 + (-a^2 + a - 1)*q^7 + (a^3 - a^2 + a - 1)*q^9 + a^2*q^12 
        + (a^3 - a^2 + a)*q^13 + q^16 + (-a^3 + a^2)*q^19 + (-a + 1)*q^21 - 
        a*q^25 - a*q^27 + (-a^2 + a - 1)*q^28 - 2*a*q^31 + (a^3 - a^2 + a - 
        1)*q^36 + (a^3 + a - 1)*q^37 + (a^2 - a)*q^39 + (-a^3 + 1)*q^43 + 
        a^2*q^48 + (-a^3 + a^2 - a)*q^49 + (a^3 - a^2 + a)*q^52 + (a^3 - a^2 + 
        a)*q^57 + (-a^3 - a)*q^61 + (-a^3 + a^2)*q^63 + q^64 + (-a^2 + a - 
        1)*q^67 + (a^3 + a - 1)*q^73 - a^3*q^75 + (-a^3 + a^2)*q^76 + (-a + 
        1)*q^79 - a^3*q^81 + (-a + 1)*q^84 + (-a^3 + a - 1)*q^91 - 2*a^3*q^93 + 
        (a^2 - a)*q^97 - a*q^100 + (a^2 - a)*q^103 - a*q^108 + 2*a^2*q^109 + 
        (a^3 - a^2 - 1)*q^111 + (-a^2 + a - 1)*q^112 + (-a^2 + a - 1)*q^117 + 
        q^121 - 2*a*q^124 + (-a^3 - a)*q^127 + (a^2 + 1)*q^129 + (a^2 - 2*a + 
        1)*q^133 - 2*a^3*q^139 + (a^3 - a^2 + a - 1)*q^144 + (-a^2 + a)*q^147 + 
        (a^3 + a - 1)*q^148 + (a^3 - a^2 + a)*q^151 + (a^2 - a)*q^156 + (a^3 + a
        - 1)*q^157 + O(q^159)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^3 - q^4 + (-a - 1)*q^7 - q^9 + a*q^12 + (a - 1)*q^13 + q^16 + (-a - 
        1)*q^19 + (a - 1)*q^21 - q^25 + a*q^27 + (a + 1)*q^28 + (-a + 1)*q^31 + 
        q^36 + (-a - 1)*q^37 + (a + 1)*q^39 + (-a + 1)*q^43 - a*q^48 + a*q^49 + 
        (-a + 1)*q^52 + (a - 1)*q^57 - 2*a*q^61 + (a + 1)*q^63 - q^64 + 2*a*q^67
        + (a + 1)*q^73 + a*q^75 + (a + 1)*q^76 - 2*a*q^79 + q^81 + (-a + 1)*q^84
        + 2*q^91 + (-a - 1)*q^93 + q^100 + (-a - 1)*q^103 - a*q^108 + (-a + 
        1)*q^109 + (a - 1)*q^111 + (-a - 1)*q^112 + (-a + 1)*q^117 + a*q^121 + 
        (a - 1)*q^124 + (a + 1)*q^127 + (-a - 1)*q^129 + 2*a*q^133 + (-a + 
        1)*q^139 - q^144 + q^147 + (a + 1)*q^148 + (-a - 1)*q^156 + (a - 
        1)*q^157 + O(q^159)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
723
);
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:=
159
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^3 + q^4 + q^9 - q^12 + q^16 + q^25 - q^27 + q^36 - q^48 + q^49 - 
        2*q^61 + q^64 - 2*q^67 - q^75 - 2*q^79 + q^81 - 2*q^97 + q^100 - q^108 -
        q^121 + q^144 - q^147 - 2*q^151 + O(q^159)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
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(
724
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
180
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + a^2*q^4 + (-a^20 - a^7 + a^5)*q^5 - a^3*q^8 + a^22*q^9 + (a^21 +
        a^8 - a^6)*q^10 + (-a^21 - a^18 - a^16 + a^9 + a^6 + a - 1)*q^13 + 
        a^4*q^16 + (-a^19 + a^16)*q^17 - a^23*q^18 + (-a^22 - a^9 + a^7)*q^20 + 
        (a^22 + a^21 + a^18 - a^16 + a^14 - a^13 - a^12 - a^10 - a^9 - a^6 + a^4
        + a + 1)*q^25 + (a^22 + a^19 + a^17 - a^10 - a^7 - a^2 + a)*q^26 + 
        (-a^22 + a^16 + a^13 - a^11 - a^4 - a)*q^29 - a^5*q^32 + (a^20 - 
        a^17)*q^34 + (-a^21 + a^15 + a^12 + a^9 - a^3 - 1)*q^36 + (a^21 - a^15 -
        a^13 - a^12 + a^3 + 1)*q^37 + (a^23 + a^10 - a^8)*q^40 + (-a^22 - a^19 -
        a^18 + a^13 + a^10 + a^7 + a^3 - a)*q^41 + (-a^23 - a^20 + a^12 + a^11 +
        a^8 - a^2)*q^45 + (a^15 - 1)*q^49 + (-a^23 - a^22 - a^19 + a^17 - a^15 +
        a^14 + a^13 + a^11 + a^10 + a^7 - a^5 - a^2 - a)*q^50 + (-a^23 - a^20 - 
        a^18 + a^11 + a^8 + a^3 - a^2)*q^52 + (a^23 + a^18 - a^17 - a^14 + a^5 +
        a^2)*q^53 + (a^23 - a^17 - a^14 + a^12 + a^5 + a^2)*q^58 + (a^20 - 
        a^5)*q^61 + a^6*q^64 + (a^23 - a^21 + a^19 - a^17 - a^8 - a^4)*q^65 + 
        (-a^21 + a^18)*q^68 + (a^22 - a^16 - a^13 - a^10 + a^4 + a)*q^72 + 
        (-a^15 + a^10)*q^73 + (-a^22 + a^16 + a^14 + a^13 - a^4 - a)*q^74 + 
        (a^21 - a^15 - a^12 - a^11 + a^3 + 1)*q^80 + (a^23 + a^20 - a^14 - a^11 
        - a^8 + a^2)*q^81 + (a^23 + a^20 + a^19 - a^14 - a^11 - a^8 - a^4 + 
        a^2)*q^82 + (-2*a^23 + a^17 + a^14 + a^11 - a^9 + a^6 - a^5 - a^2)*q^85 
        + (a^19 - a^10 + a)*q^89 + (a^15 - a^13 - 1)*q^90 + (-a^21 + a^17 + a^15
        + a^12 + a^9 - a^3 - a^2 - 1)*q^97 + (-a^16 + a)*q^98 + (a^23 - a^21 + 
        a^20 - a^18 + a^16 - a^14 - a^11 + a^9 - a^8 + a^6 + a^2 - 1)*q^100 + 
        (a^23 + a^20 - a^14 - a^11 - a^8 + a^6 + a^2)*q^101 + (a^19 + a^15 - a^4
        - 1)*q^104 + (a^21 - a^19 + a^18 - a^12 - a^9 - a^6 + 1)*q^106 + (-a^23 
        - a^21 + a^17 + a^15 + a^14 + a^12 + a^11 + a^9 - a^5 - a^3 - a^2 - 
        1)*q^109 + (a^21 - a^6 - a^3)*q^113 + (a^21 + a^18 - a^13 - a^12 - a^9 -
        a^6 + 1)*q^116 + (a^8 + a^4)*q^117 + (a^19 - a^4)*q^121 + (-a^21 + 
        a^6)*q^122 + (-a^21 + a^17 - a^15 + a^4 - a^2)*q^125 - a^7*q^128 + (a^22
        + a^21 - a^20 + a^18 - a^15 - a^12 + a^5 + a^3 + 1)*q^130 + (a^22 - 
        a^19)*q^136 + (a^22 + a^19 - a^7 + a)*q^137 + (-a^23 + a^17 + a^14 + 
        a^11 - a^5 - a^2)*q^144 + (a^18 + a^15 + a^2 - a - 1)*q^145 + (a^16 - 
        a^11)*q^146 + (a^23 - a^17 - a^15 - a^14 + a^5 + a^2)*q^148 + (a^8 + 
        a^2)*q^149 + (2*a^23 - a^17 - a^14 - a^8 + a^5 + a^2)*q^153 + (-a^22 + 
        a^21 + a^7 - a^6)*q^157 + (-a^22 + a^16 + a^13 + a^12 - a^4 - a)*q^160 +
        q^162 + (-a^20 + a^5 + 1)*q^164 + (-a^17 - a^13 - a^9)*q^169 + (-2*a^21 
        - a^18 + a^15 + a^12 + a^10 + 2*a^9 - a^7 + a^6 - a^3 - 2)*q^170 + (a^21
        - a^15 + a^3 + 1)*q^173 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + a^2*q^4 + (-a^7 - a^5)*q^5 - a^3*q^8 - a^7*q^9 + (-a^7 + a^6 + 
        a^5 + a^4 + a^3 - a - 1)*q^10 + (a^7 - a^2 - a)*q^13 + a^4*q^16 + (a^4 -
        a)*q^17 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^18 + (-2*a^7 - a^6 + a^3 + 
        a^2 - 1)*q^20 + (2*a^7 + a^6 + a^5 - a^4 - a^3 - 2*a^2)*q^25 + (a^7 - 
        a^5 - a^4 + a^2 + a + 1)*q^26 + (-a^6 + a^5 + a - 1)*q^29 - a^5*q^32 + 
        (-a^5 + a^2)*q^34 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^36 + (-a^6 - a^5 - 
        a^4 + a^3 + a^2 + a)*q^37 + (-a^7 + 2*a^5 + a^4 + a^3 - a - 2)*q^40 + 
        (a^7 - a^5 - a^4 - a^3 + a + 1)*q^41 + (2*a^7 + a^6 - a^4 - a^3 - 2*a^2 
        + 1)*q^45 + q^49 + (a^7 - a^6 - a^5 - a^4 + 2*a + 2)*q^50 + (a^7 + a^6 -
        a^4 - 2*a^3 - a^2 + 1)*q^52 + (-a^6 - a^3 + a)*q^53 + (a^7 - a^6 - a^2 +
        a)*q^58 - 2*a^5*q^61 + a^6*q^64 + (-a^7 + a^6 + a^5 + 2*a^4 + a^3 + a^2 
        - a - 1)*q^65 + (a^6 - a^3)*q^68 + (a^5 - 1)*q^72 + a^5*q^73 + (a^7 + 
        a^6 + a^5 - a^4 - a^3 - a^2)*q^74 + (-a^7 - 2*a^6 + a^3 + a^2 + a - 
        1)*q^80 + (a^7 + a^6 - a^4 - a^3 - a^2 + 1)*q^81 + (a^7 + a^6 - a^3 - 
        a^2 + 1)*q^82 + (-2*a^7 - a^6 + a^5 + a^4 + 2*a^3 + a^2 - 2)*q^85 + 
        (-a^5 - a^4 + a + 1)*q^89 + (a^7 - a^5 - a^4 + a + 2)*q^90 + (-a^7 - a^6
        + a^3 + 2*a^2 - 1)*q^97 - a*q^98 + (2*a^7 + a^6 - a^4 - a^3 - 2*a^2 - a 
        + 1)*q^100 + (a^7 + 2*a^6 - a^4 - a^3 - a^2 + 1)*q^101 + (a^4 + 1)*q^104
        + (a^7 + a^4 - a^2)*q^106 + (-a^7 - 2*a^6 + a^3 + a^2 + a - 1)*q^109 + 
        (a^6 - a^3)*q^113 + (2*a^7 - a^5 - a^4 - a^2 + a + 1)*q^116 + (-a^7 + 
        a^5 + 2*a^4 + a^3 - a - 1)*q^117 + a^4*q^121 + 2*a^6*q^122 + (a^6 + a^4 
        + a^2 + 1)*q^125 - a^7*q^128 + (-2*a^7 - a^6 - a^5 + a^2 - 1)*q^130 + 
        (-a^7 + a^4)*q^136 + (a^7 - a^4 + a)*q^137 + (-a^6 + a)*q^144 + (-a^3 + 
        a^2 - a + 1)*q^145 - a^6*q^146 + (-a^6 + a + 1)*q^148 + (-a^7 + a^5 + 
        a^4 + a^3 + a^2 - a - 1)*q^149 + (-a^7 - a^6 + a^5 + a^4 + a^3 - 
        1)*q^153 + (-a^7 + a^6)*q^157 + (a^7 + a^5 - a^2 - 1)*q^160 + q^162 + 
        (-a^5 + 1)*q^164 + (-a^6 - a^5 - a^4 + a^3 + 2*a^2 + a)*q^169 + (-a^7 - 
        a^6 + a^5 + a^3 - 2)*q^170 + (-a^6 + a^3 - 1)*q^173 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
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(
18
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + a^2*q^4 + (a^5 - a^4 - a^2 + a)*q^5 - a^3*q^8 + a^4*q^9 + (a^5 -
        a^2 + 1)*q^10 + (a^4 + 1)*q^13 + a^4*q^16 - a^4*q^17 - a^5*q^18 + (-a + 
        1)*q^20 + (-a^5 - a^4 + a^3 + a - 1)*q^25 + (-a^5 - a)*q^26 + (a^4 + 
        a^2)*q^29 - a^5*q^32 + a^5*q^34 + (a^3 - 1)*q^36 + (a^4 - a^3)*q^37 + 
        (a^2 - a)*q^40 + (-a^4 + a^3 + a - 1)*q^41 + (-a^3 + a^2)*q^45 - 
        a^3*q^49 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^50 + (a^3 + a^2 - 1)*q^52 +
        (-a^5 + 1)*q^53 + (-a^5 - a^3)*q^58 + (-a^5 + a^2)*q^61 + (a^3 - 1)*q^64
        + (a^5 - a^4 - a^3 + a)*q^65 + (-a^3 + 1)*q^68 + (-a^4 + a)*q^72 + (a^3 
        - a - 1)*q^73 + (-a^5 + a^4)*q^74 + (-a^3 + a^2)*q^80 + (a^5 - a^2)*q^81
        + (a^5 - a^4 - a^2 + a)*q^82 + (a^3 - a^2)*q^85 - 2*a*q^89 + (a^4 - 
        a^3)*q^90 + (-a^5 + a^3 - 1)*q^97 + a^4*q^98 + (a^5 - a^4 - a^2 + a + 
        1)*q^100 + (a^5 + a^3 - a^2 - 1)*q^101 + (-a^4 - a^3 + a)*q^104 + (a^3 -
        a - 1)*q^106 + (a^5 + a^3 - a^2 - 1)*q^109 + (-a^3 + 1)*q^113 + (a^4 + 
        a^3 - 1)*q^116 + (a^5 + a^4 - a^2)*q^117 + (-a^4 + a)*q^121 - q^122 + 
        (-a^5 + a^4 - 1)*q^125 + (-a^4 + a)*q^128 + (a^5 + a^4 - a^3 - a^2 + 
        1)*q^130 + (a^4 - a)*q^136 - 2*a*q^137 + (a^5 - a^2)*q^144 + (-a^3 + a^2
        - a + 1)*q^145 + (-a^4 + a^2 + a)*q^146 + (-a^5 + a^3 - 1)*q^148 + 
        a^5*q^149 + (-a^5 + a^2)*q^153 + (-a + 1)*q^157 + (a^4 - a^3)*q^160 + 
        q^162 + (a^5 - a^2 + 1)*q^164 + (a^5 + a^4 - a^2 + 1)*q^169 + (-a^4 + 
        a^3)*q^170 - 2*a^3*q^173 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + a^2*q^4 + (a^2 + 1)*q^5 - a^3*q^8 + a^2*q^9 + (-a^3 - a)*q^10 + 
        (a^2 - a)*q^13 + (a^3 - a^2 + a - 1)*q^16 + (a^3 - a^2 - 1)*q^17 - 
        a^3*q^18 + (a^3 + a - 1)*q^20 + (a^3 + a)*q^25 + (-a^3 + a^2)*q^26 + (-a
        + 1)*q^29 + q^32 + (a^2 + 1)*q^34 + (a^3 - a^2 + a - 1)*q^36 + (-a^2 + a
        - 1)*q^37 + (-a^3 + 1)*q^40 - 2*a^3*q^41 + (a^3 + a - 1)*q^45 + q^49 + 
        (-a^3 - a + 1)*q^50 + (-a^2 + a - 1)*q^52 + (-a^3 - a)*q^53 + (a^2 - 
        a)*q^58 + 2*q^61 - a*q^64 - q^65 + (-a^3 - a)*q^68 + q^72 + 2*q^73 + 
        (a^3 - a^2 + a)*q^74 + (a^3 - a^2 - 1)*q^80 + (a^3 - a^2 + a - 1)*q^81 +
        (2*a^3 - 2*a^2 + 2*a - 2)*q^82 + (-a^2 - a - 1)*q^85 + (-a^3 + a^2)*q^89
        + (-a^3 + 1)*q^90 + (a^3 + a - 1)*q^97 - a*q^98 + (a^3 - 1)*q^100 + (a^3
        - a^2 - 1)*q^101 + (a^3 - a^2 + a)*q^104 + (a^3 + a - 1)*q^106 + (a^3 - 
        a^2 - 1)*q^109 + (-a^3 - a)*q^113 + (-a^3 + a^2)*q^116 + (-a^2 + a - 
        1)*q^117 + (a^3 - a^2 + a - 1)*q^121 - 2*a*q^122 + a^3*q^125 + a^2*q^128
        + a*q^130 + (a^3 + a - 1)*q^136 + (-a^3 + 1)*q^137 - a*q^144 + (-a^3 + 
        a^2 - a + 1)*q^145 - 2*a*q^146 + (-a + 1)*q^148 + (-a^3 + a^2)*q^149 + 
        (-a^3 - a)*q^153 + (a^2 - a)*q^157 + (a^2 + 1)*q^160 + q^162 + 2*q^164 +
        (a - 1)*q^169 + (a^3 + a^2 + a)*q^170 + (a^3 + a - 1)*q^173 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
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(
6
);
qprec:=
178
;
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 - 2*a*q^17 + (a - 1)*q^18 + (-a + 1)*q^20 - q^26 - q^29 + (a - 
        1)*q^32 + (2*a - 2)*q^34 + q^36 + (-a + 1)*q^37 - q^40 + (-a + 1)*q^41 +
        a*q^45 + q^49 + a*q^52 + a*q^53 + a*q^58 + (2*a - 2)*q^61 + q^64 + (a - 
        1)*q^65 + 2*q^68 - a*q^72 + (-a + 1)*q^73 - q^74 + a*q^80 + (a - 1)*q^81
        - q^82 + 2*a*q^85 - 2*a*q^89 + (-a + 1)*q^90 + a*q^97 - a*q^98 + a*q^101
        + (-a + 1)*q^104 + (-a + 1)*q^106 + a*q^109 + 2*q^113 + (-a + 1)*q^116 -
        q^117 - a*q^121 + 2*q^122 + q^125 - a*q^128 + q^130 - 2*a*q^136 - 
        2*a*q^137 + (a - 1)*q^144 + q^145 - q^146 + a*q^148 + (2*a - 2)*q^149 + 
        (2*a - 2)*q^153 + (-a + 1)*q^157 + (-a + 1)*q^160 + q^162 + a*q^164 + 
        (-2*a + 2)*q^170 + 2*q^173 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
724
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 90*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^13 - q^14 + q^16 - q^29 + q^36 + q^49 - q^52 - q^56 - q^62
        + q^64 - q^65 - q^70 - q^73 + q^81 - q^116 - q^117 + q^121 - q^125 - 
        q^126 - q^133 - q^137 + q^144 - q^145 - q^161 - q^166 + q^169 + 
        O(q^178),
    q^2 + q^8 - q^10 + q^18 - q^19 - q^23 + q^32 - q^35 - q^40 - q^47 + q^50 - 
        q^71 + q^72 - q^74 - q^76 - q^90 + q^91 - q^92 + 2*q^95 + 2*q^103 + 
        2*q^115 - q^127 + q^128 - q^130 + 2*q^131 - q^140 + 2*q^151 - q^155 - 
        q^160 + q^162 - q^163 - q^171 + q^175 + O(q^178),
    q^5 - q^13 - q^14 + q^20 - q^25 - q^29 + q^37 + q^38 + q^45 + q^46 + q^49 - 
        q^52 - q^56 - q^62 - q^73 + q^80 + q^94 - q^100 + q^101 - q^116 - q^117 
        - q^126 - q^137 + q^142 + q^148 + q^152 - q^166 + q^169 + O(q^178),
    q^7 - q^10 - q^19 - q^23 + q^26 + q^28 + q^31 - q^40 - q^47 + q^50 + q^58 + 
        q^63 - q^71 - q^74 - q^76 + q^83 - q^90 - q^91 - q^92 + q^95 - q^98 + 
        q^104 + q^107 + q^112 + q^115 + q^124 - q^127 + q^146 - q^160 - q^163 - 
        q^171 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
725
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
725
);
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:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
725
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
725
);
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(
140
);
qprec:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
725
);
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(
140
);
qprec:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
725
);
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(
28
);
qprec:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
725
);
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:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
725
);
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(
28
);
qprec:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
725
);
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(
140
);
qprec:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
725
);
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(
28
);
qprec:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
725
);
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:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 - a*q^9 + (-a - 1)*q^11 - q^16 + (a + 1)*q^19 - a*q^29 + (a + 
        1)*q^31 - q^36 + (-a + 1)*q^41 + (a - 1)*q^44 - q^49 + (a + 1)*q^61 + 
        a*q^64 + 2*a*q^71 + (-a + 1)*q^76 + (a + 1)*q^79 - q^81 + (a + 1)*q^89 +
        (a - 1)*q^99 + (-a - 1)*q^101 - q^116 + a*q^121 + (-a + 1)*q^124 + (a - 
        1)*q^131 - 2*q^139 + O(q^140)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
725
);
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(
20
);
qprec:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
725
);
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(
20
);
qprec:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
725
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + 7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^4 + a*q^9 + (-a - 1)*q^11 - q^16 + (-a - 1)*q^19 + a*q^29 + (a + 
        1)*q^31 - q^36 + (-a + 1)*q^41 + (-a + 1)*q^44 + q^49 + (a + 1)*q^61 - 
        a*q^64 + 2*a*q^71 + (-a + 1)*q^76 + (-a - 1)*q^79 - q^81 + (-a - 1)*q^89
        + (-a + 1)*q^99 + (-a - 1)*q^101 - q^116 + a*q^121 + (a - 1)*q^124 + (a 
        - 1)*q^131 + 2*q^139 + O(q^140),
    q^5 + a*q^20 - a*q^25 + a*q^45 + (-a - 1)*q^55 - q^80 + (-a - 1)*q^95 + 
        q^100 - q^125 + O(q^140)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
725
);
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:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
725
);
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(
4
);
qprec:=
140
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + (a + 1)*q^7 - a*q^9 + (a - 1)*q^13 - q^16 + (-a + 1)*q^23 + (a -
        1)*q^28 + a*q^29 + q^36 + 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^67 - q^81 + (a - 1)*q^83 
        - 2*q^91 + (a + 1)*q^92 + (-a + 1)*q^103 + (-a - 1)*q^107 + (-a - 
        1)*q^112 - q^116 + (a + 1)*q^117 + q^121 + O(q^140)
]
;
Bo:=
[
    q + a*q^4 + (-a - 1)*q^7 - a*q^9 + (-a + 1)*q^13 - q^16 + (a - 1)*q^23 + (-a
        + 1)*q^28 + a*q^29 + q^36 + 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^67 - q^81 + (-a + 1)*q^83 -
        2*q^91 + (-a - 1)*q^92 + (a - 1)*q^103 + (a + 1)*q^107 + (a + 1)*q^112 -
        q^116 + (-a - 1)*q^117 + q^121 + O(q^140),
    q^5 + a*q^20 + a*q^25 + (-a - 1)*q^35 - a*q^45 + (-a + 1)*q^65 - q^80 - 
        q^100 + (a - 1)*q^115 - q^125 + O(q^140)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
726
);
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^3 + q^4 + q^9 - q^12 + q^16 + q^25 - q^27 - 2*q^31 + q^36 - 2*q^37 - 
        q^48 - q^49 + q^64 - 2*q^67 - q^75 + q^81 + 2*q^93 + 2*q^97 + q^100 + 
        2*q^103 - q^108 + 2*q^111 - 2*q^124 + q^144 + q^147 - 2*q^148 - 2*q^157 
        + 2*q^163 - q^169 + 2*q^181 - q^192 - q^196 - 2*q^199 + 2*q^201 + 
        O(q^218),
    q^2 - q^6 + q^8 + q^18 - q^24 + q^32 + q^50 - q^54 - 2*q^62 + q^72 - 2*q^74 
        - q^96 - q^98 + q^128 - 2*q^134 - q^150 + q^162 + 2*q^186 + 2*q^194 + 
        q^200 + 2*q^206 - q^216 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
726
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
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(
726
);
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(
110
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
726
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
726
);
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(
22
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
726
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
726
);
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(
10
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^3*q^3 + a^2*q^4 - a*q^9 - q^12 + (a^3 - a^2 + a - 1)*q^16 - a^3*q^25 +
        (-a^3 + a^2 - a + 1)*q^27 + 2*a*q^31 - a^3*q^36 - 2*a^2*q^37 - a^2*q^48 
        + (-a^3 + a^2 - a + 1)*q^49 - a*q^64 - 2*q^67 + a*q^75 + a^2*q^81 + 
        (2*a^3 - 2*a^2 + 2*a - 2)*q^93 - 2*a*q^97 + q^100 + 2*a^2*q^103 + 
        a*q^108 + 2*q^111 + 2*a^3*q^124 + q^144 + a^2*q^147 + (-2*a^3 + 2*a^2 - 
        2*a + 2)*q^148 + 2*a^3*q^157 - 2*a*q^163 - a^2*q^169 + (2*a^3 - 2*a^2 + 
        2*a - 2)*q^181 + (-a^3 + a^2 - a + 1)*q^192 + a*q^196 - 2*q^199 - 
        2*a^3*q^201 + O(q^218),
    q^2 + a^3*q^6 + a^2*q^8 - a*q^18 - q^24 + (a^3 - a^2 + a - 1)*q^32 - 
        a^3*q^50 + (-a^3 + a^2 - a + 1)*q^54 + 2*a*q^62 - a^3*q^72 - 2*a^2*q^74 
        - a^2*q^96 + (-a^3 + a^2 - a + 1)*q^98 - a*q^128 - 2*q^134 + a*q^150 + 
        a^2*q^162 + (2*a^3 - 2*a^2 + 2*a - 2)*q^186 - 2*a*q^194 + q^200 + 
        2*a^2*q^206 + a*q^216 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
726
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
55*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(
727
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
726
);
qprec:=
121
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
727
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
242
);
qprec:=
121
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
727
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
121
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
727
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
33*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
121
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
727
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
121*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
121
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
727
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
363*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
121
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 - q^46 - q^47 + q^49 - q^53 - q^56 - q^68 - q^73 + q^81 - 
        q^91 - q^98 + O(q^121),
    q^2 + q^18 - q^23 - q^28 - q^34 - q^49 + q^50 - q^61 - q^86 + q^91 + q^97 + 
        q^98 + q^101 - q^104 + q^119 + O(q^121),
    q^4 - q^14 - q^17 + q^36 - q^43 + q^47 - q^52 + q^53 + q^73 + q^91 + q^100 -
        q^103 - q^104 - q^112 - q^119 + O(q^121),
    q^7 - q^14 - q^16 - q^17 + q^26 + q^28 + q^32 + q^34 - q^43 - q^46 + q^63 - 
        q^64 - q^68 + q^86 + q^92 - q^98 - q^103 + q^109 + q^113 - q^119 + 
        O(q^121),
    q^8 - q^14 - q^16 - q^17 + q^23 + q^28 + q^32 + q^34 - q^43 - q^46 + q^49 - 
        q^52 - q^56 + q^61 - q^64 - q^68 + q^72 + q^86 + q^92 + q^94 - q^98 - 
        q^103 + q^106 - q^119 + O(q^121),
    q^13 - q^16 - q^17 + q^26 + q^28 - q^43 - q^46 + q^67 + q^71 - q^98 - q^103 
        + q^117 - q^119 + O(q^121)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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(
728
);
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(
728
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*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(
728
);
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:=
210
;
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 + O(q^210),
    q^13 - q^26 + q^52 - q^91 - q^104 - q^117 + q^182 + q^208 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
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(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 - a*q^9 - q^14 + (a - 1)*q^16 + (-2*a + 1)*q^18 + (a - 1)*q^23 - 
        q^25 + a*q^30 + (-a + 1)*q^36 - a*q^39 + (-a + 1)*q^49 + (a + 1)*q^50 - 
        a*q^56 + (2*a - 1)*q^57 + (a + 1)*q^63 - q^64 + (-a + 1)*q^65 + (-a + 
        2)*q^72 - a*q^78 + (2*a - 2)*q^81 - q^92 + a*q^95 - a*q^100 - q^105 + (a
        - 1)*q^114 + (a - 1)*q^120 + a*q^121 + a*q^126 + (-a + 1)*q^127 + (a - 
        1)*q^130 + (-2*a + 1)*q^135 + (-a + 2)*q^137 + q^142 + q^144 + (-2*a + 
        1)*q^151 + (-a + 1)*q^156 + (a - 2)*q^162 + (a - 2)*q^175 - 2*q^183 + 
        (-2*a + 1)*q^190 + q^196 + (2*a - 1)*q^200 + q^207 + O(q^210),
    q^2 + (a - 1)*q^7 + a*q^8 + (-a - 1)*q^9 + q^15 - a*q^18 + (-a + 2)*q^25 - 
        q^28 + (a - 1)*q^32 + (-2*a + 1)*q^36 - q^39 + (a - 1)*q^46 - q^50 + 
        a*q^57 + a*q^60 + q^63 + a*q^65 + (-a + 1)*q^71 + (-a + 1)*q^72 - a*q^78
        + (2*a - 1)*q^81 + (-a - 1)*q^95 + (-a + 1)*q^98 + (a + 1)*q^100 - 
        a*q^112 + (2*a - 1)*q^114 + (a + 1)*q^126 - q^128 + (-a + 1)*q^130 + (-a
        + 2)*q^144 - a*q^156 - a*q^161 + (2*a - 2)*q^162 - q^169 + (-a + 
        1)*q^175 - a*q^177 + (a - 2)*q^183 - q^184 + a*q^190 - q^193 - a*q^200 +
        (-a + 2)*q^207 + O(q^210),
    q^3 + 1/2*(a + 1)*q^6 - 1/2*q^10 + a*q^12 + 1/2*q^13 + 1/2*(-a - 1)*q^19 + 
        1/2*(a - 2)*q^21 + 1/2*(2*a - 1)*q^24 + 1/2*q^26 - 3/2*a*q^27 + 1/2*(-a 
        + 1)*q^35 - 1/2*a*q^38 - 1/2*a*q^40 - q^42 + 1/2*(a + 1)*q^45 + (a - 
        1)*q^48 + 1/2*a*q^52 + (-2*a + 1)*q^54 + (-a + 1)*q^61 + (a - 1)*q^69 + 
        1/2*q^75 + 1/2*(-2*a + 1)*q^76 + 1/2*(a - 2)*q^83 + 1/2*(-a - 1)*q^84 + 
        1/2*a*q^90 + 1/2*(a - 1)*q^91 + 1/2*(a - 2)*q^96 - 1/2*q^101 + 
        1/2*a*q^104 + 1/2*(-3*a + 3)*q^108 + 1/2*(-2*a - 1)*q^117 + 1/2*a*q^118 
        + 1/2*(-a + 2)*q^122 + 1/2*(a - 2)*q^125 + a*q^131 + 1/2*q^133 + 1/2*(a 
        - 2)*q^138 + 1/2*(-a + 1)*q^139 + 1/2*q^140 + (-a + 1)*q^147 + 1/2*(a + 
        1)*q^150 + 1/2*(-a + 1)*q^152 + 1/2*a*q^157 + 1/2*(-a + 1)*q^160 - 
        1/2*q^166 - a*q^168 + (2*a - 1)*q^171 + (a - 1)*q^173 + 1/2*(2*a - 
        1)*q^180 - 1/2*a*q^181 - 1/2*q^182 + (a + 1)*q^189 - q^192 + 1/2*q^195 +
        1/2*(-a - 1)*q^202 + 1/2*(a - 1)*q^208 + O(q^210),
    q^5 - 1/2*a*q^6 + 1/2*(-a - 1)*q^10 + 1/2*(a - 1)*q^13 - 1/2*a*q^19 + a*q^20
        + 1/2*q^21 + 1/2*(-a + 1)*q^24 + 1/2*(-a + 1)*q^26 + 1/2*(2*a - 1)*q^27 
        + 1/2*(-a + 2)*q^35 + 1/2*(2*a - 1)*q^38 + 1/2*(-2*a + 1)*q^40 + 
        1/2*a*q^45 - 1/2*q^52 - a*q^59 - q^70 + 1/2*(-a - 1)*q^75 + 1/2*(-a + 
        1)*q^76 + (a - 1)*q^80 - 1/2*q^83 + 1/2*a*q^84 + 1/2*(-2*a + 1)*q^90 + 
        1/2*a*q^91 + 1/2*q^96 + 1/2*(a + 1)*q^101 + 1/2*q^104 + 1/2*(a - 
        2)*q^108 + (a - 1)*q^115 + 1/2*(a - 1)*q^117 + 1/2*(2*a - 1)*q^118 - 
        1/2*q^122 - 3/2*q^125 + 1/2*(-a - 1)*q^133 + 1/2*q^138 + 1/2*(a - 
        2)*q^139 + 1/2*(a + 1)*q^140 + 1/2*a*q^150 + 1/2*(a - 2)*q^152 + 
        1/2*(-2*a + 1)*q^157 + 1/2*(-a + 2)*q^160 + 1/2*(a + 1)*q^166 + (-a + 
        1)*q^171 + 1/2*(a - 1)*q^180 + 1/2*(-2*a + 1)*q^181 + 1/2*(-a + 1)*q^182
        + 1/2*(-a + 1)*q^195 - 1/2*a*q^202 - 1/2*a*q^208 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 + (a - 1)*q^9 - a*q^13 + (-a + 1)*q^17 + a*q^29 + a*q^37 + a*q^41 + 
        (-a + 1)*q^45 - a*q^49 - q^53 + (-a + 1)*q^61 + a*q^65 - q^73 - a*q^81 +
        (a - 1)*q^85 - 2*a*q^89 + (2*a - 2)*q^97 + a*q^101 + 2*q^109 + (-a + 
        1)*q^113 + q^117 + (a - 1)*q^121 + q^125 + (-a + 1)*q^137 - a*q^145 + 
        (-a + 1)*q^149 + a*q^153 - q^157 + (a - 1)*q^169 + (2*a - 2)*q^173 - 
        q^181 - a*q^185 + a*q^193 - 2*a*q^197 - a*q^205 + O(q^210),
    q^2 - a*q^4 + (a - 1)*q^8 - q^10 + q^16 + (a - 1)*q^18 + a*q^20 - a*q^26 - 
        a*q^32 + (-a + 1)*q^34 + q^36 + (-a + 1)*q^40 + (a - 1)*q^52 + a*q^58 + 
        (a - 1)*q^64 - q^68 - a*q^72 + a*q^74 - q^80 + a*q^82 + (-a + 1)*q^90 - 
        a*q^98 + q^104 - q^106 + (-a + 1)*q^116 + (-a + 1)*q^122 + q^128 + 
        a*q^130 + a*q^136 + (a - 1)*q^144 - q^146 + (-a + 1)*q^148 + a*q^160 - 
        a*q^162 + (-a + 1)*q^164 + (a - 1)*q^170 - 2*a*q^178 - q^180 + (2*a - 
        2)*q^194 + (a - 1)*q^196 + a*q^202 - a*q^208 + O(q^210),
    q^7 - q^35 + (a - 1)*q^63 - a*q^91 + (-a + 1)*q^119 + a*q^203 + O(q^210),
    q^14 - a*q^28 + (a - 1)*q^56 - q^70 + q^112 + (a - 1)*q^126 + a*q^140 - 
        a*q^182 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^2 + (a - 1)*q^3 + q^4 + (-a + 1)*q^6 - q^8 + (a - 1)*q^11 + (a - 
        1)*q^12 + q^16 + a*q^19 + (-a + 1)*q^22 + (-a + 1)*q^24 - q^27 - q^32 - 
        a*q^33 + (a - 1)*q^35 - a*q^38 + a*q^41 + (a - 1)*q^43 + (a - 1)*q^44 + 
        (a - 1)*q^48 - q^49 + q^54 - q^57 + q^64 + (-a + 1)*q^65 + a*q^66 + (-a 
        + 1)*q^67 + (-a + 1)*q^70 + a*q^73 + a*q^76 + (-a + 1)*q^81 - a*q^82 + 
        (-a + 1)*q^86 + (-a + 1)*q^88 + q^91 + (-a + 1)*q^96 + (-a + 1)*q^97 + 
        q^98 - a*q^105 - q^108 + (-a + 1)*q^113 + q^114 + (-2*a + 2)*q^115 - 
        q^123 - q^128 - a*q^129 + (a - 1)*q^130 + (-a + 1)*q^131 - a*q^132 + (a 
        - 1)*q^134 + (-a + 1)*q^139 + (a - 1)*q^140 - q^145 - a*q^146 + (-a + 
        1)*q^147 - a*q^152 + q^155 + 2*q^161 + (a - 1)*q^162 + a*q^163 + a*q^164
        - q^169 + (a - 1)*q^172 + (a - 1)*q^176 + (-a + 1)*q^179 - q^182 + (a - 
        1)*q^192 + (a - 1)*q^193 + (a - 1)*q^194 + a*q^195 - q^196 + a*q^201 - 
        a*q^203 - q^209 + O(q^210),
    q^5 + a*q^7 - q^10 - a*q^13 - a*q^14 + (a - 1)*q^15 + q^20 - q^21 - 2*a*q^23
        + a*q^26 + a*q^28 + (a - 1)*q^29 + (-a + 1)*q^30 + (-a + 1)*q^31 + q^39 
        - q^40 + q^42 + 2*a*q^46 + q^47 - a*q^52 + (a - 1)*q^53 + (a - 1)*q^55 -
        a*q^56 + (-a + 1)*q^58 + (a - 1)*q^60 + (-a + 1)*q^61 + (a - 1)*q^62 + 
        2*q^69 - q^71 - q^77 - q^78 - q^79 + q^80 - q^84 - a*q^87 - 2*a*q^92 + 
        a*q^93 - q^94 + a*q^95 + q^101 + q^103 + a*q^104 + (-a + 1)*q^106 + (-a 
        + 1)*q^109 + (-a + 1)*q^110 + a*q^112 + (a - 1)*q^116 + (-a + 1)*q^120 +
        (a - 1)*q^122 + (-a + 1)*q^124 - a*q^125 + (-a + 1)*q^127 + (a - 
        1)*q^133 - q^135 - 2*q^138 + (a - 1)*q^141 + q^142 + q^143 + (a - 
        1)*q^149 + (a - 1)*q^151 + q^154 + q^156 + (a - 1)*q^157 + q^158 - 
        a*q^159 - q^160 - a*q^165 + (a - 1)*q^167 + q^168 + (-a + 1)*q^173 + 
        a*q^174 + a*q^183 + 2*a*q^184 - a*q^186 + q^188 - a*q^189 - a*q^190 + 
        (-a + 1)*q^191 + (-a + 1)*q^197 - q^202 + a*q^205 - q^206 - a*q^208 + 
        O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^4 + (a - 1)*q^9 + q^14 - 2*a*q^15 - a*q^16 - q^18 + a*q^23 + 
        q^25 + (-a + 1)*q^30 - a*q^36 + (a - 1)*q^39 - a*q^49 + a*q^50 + (a - 
        1)*q^56 - q^57 + 2*q^60 + a*q^63 + q^64 - a*q^65 + (-a + 1)*q^72 + (a - 
        1)*q^78 - q^92 + (-a + 1)*q^95 + (a - 1)*q^100 - q^105 + a*q^114 + 
        a*q^120 + (a - 1)*q^121 + (a - 1)*q^126 + a*q^127 - a*q^130 + q^135 + 
        (-a + 1)*q^137 - q^142 + q^144 - q^151 - a*q^156 - 2*a*q^158 + (-a + 
        1)*q^162 + (-a + 1)*q^175 + 2*q^177 + 2*q^183 - q^190 + q^196 - q^200 - 
        q^207 + O(q^210),
    q^2 - a*q^7 + (a - 1)*q^8 + a*q^9 - q^15 + (a - 1)*q^18 + (-a + 1)*q^25 + 
        q^28 - 2*a*q^30 - a*q^32 - q^36 + q^39 + a*q^46 + q^50 + (-a + 1)*q^57 +
        (-a + 1)*q^60 + q^63 + (a - 1)*q^65 + a*q^71 - a*q^72 + (a - 1)*q^78 + 
        (2*a - 2)*q^79 - q^81 + a*q^95 - a*q^98 + a*q^100 + (2*a - 2)*q^105 + (a
        - 1)*q^112 - 2*a*q^113 - q^114 + 2*q^120 + a*q^126 + q^128 - a*q^130 + 
        (-2*a + 2)*q^135 + (-a + 1)*q^144 + (a - 1)*q^156 + (-a + 1)*q^161 + 
        q^169 - a*q^175 + (-a + 1)*q^177 + (-a + 1)*q^183 - q^184 + (-a + 
        1)*q^190 - 2*a*q^191 - q^193 + (a - 1)*q^200 + (a - 1)*q^207 + O(q^210),
    q^3 + (a - 1)*q^5 + (a - 1)*q^12 + 1/3*(a + 1)*q^13 + a*q^19 - a*q^20 + 
        1/3*(-a + 2)*q^26 + (-a + 1)*q^38 + q^42 - a*q^45 - a*q^48 + 1/3*(a - 
        2)*q^52 - q^54 - a*q^59 - a*q^61 + a*q^69 + (a - 1)*q^70 + q^75 - q^76 +
        q^80 + (-a + 1)*q^83 + (-a + 1)*q^90 + 1/3*(-a - 1)*q^91 - q^101 + 
        1/3*(2*a - 1)*q^104 - q^115 + 1/3*(2*a - 1)*q^117 + (a - 1)*q^131 - 
        q^133 + a*q^139 - a*q^147 + a*q^150 + a*q^152 + (-a + 1)*q^157 - q^166 +
        (a - 1)*q^168 - a*q^173 + q^180 + 1/3*(a + 1)*q^182 + a*q^189 + q^192 - 
        a*q^195 + a*q^202 + 1/3*(-2*a + 1)*q^208 + O(q^210),
    q^6 + (a - 1)*q^10 + 1/3*(-a - 1)*q^13 - q^19 - a*q^21 + (a - 1)*q^24 + 
        1/3*(a + 1)*q^26 + a*q^27 + q^35 + a*q^38 - a*q^40 - q^45 + 1/3*(-a + 
        2)*q^52 + (-a + 1)*q^75 + (-a + 1)*q^76 + a*q^83 + q^84 - a*q^90 + 
        1/3*(-2*a + 1)*q^91 - a*q^96 + (-a + 1)*q^101 + 1/3*(a - 2)*q^104 - 
        q^108 + 1/3*(a + 1)*q^117 - a*q^118 - a*q^122 + a*q^125 + (-a + 1)*q^133
        + a*q^138 - q^139 + (a - 1)*q^140 + q^150 - q^152 + a*q^157 + q^160 + 
        (-a + 1)*q^166 + (-a + 1)*q^180 - a*q^181 + 1/3*(-a - 1)*q^182 + (a - 
        1)*q^195 - q^202 + 1/3*(2*a - 1)*q^208 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^2 + q^3 - a*q^4 + (-a + 1)*q^6 - q^8 + q^11 - a*q^12 + (a - 
        1)*q^16 - q^19 + (-a + 1)*q^22 - q^24 - q^27 + a*q^32 + q^33 + (a - 
        1)*q^35 + (a - 1)*q^38 + a*q^41 + (a - 1)*q^43 - a*q^44 + (a - 1)*q^48 +
        (-a + 1)*q^49 + (a - 1)*q^54 - q^57 + q^64 + a*q^65 + (-a + 1)*q^66 - 
        q^67 + a*q^70 + (-a + 1)*q^73 + a*q^76 - q^81 + q^82 + a*q^86 - q^88 - 
        a*q^91 + a*q^96 + (-a + 1)*q^97 - a*q^98 + (a - 1)*q^105 + a*q^108 + (-a
        + 1)*q^113 + (a - 1)*q^114 - 2*q^115 + a*q^123 + (-a + 1)*q^128 + (a - 
        1)*q^129 + q^130 + a*q^131 - a*q^132 + (a - 1)*q^134 + (-a + 1)*q^139 + 
        q^140 + (-a + 1)*q^145 - a*q^146 + (-a + 1)*q^147 + q^152 + q^155 + 
        2*q^161 + (a - 1)*q^162 - q^163 + (-a + 1)*q^164 - q^169 + q^172 + (a - 
        1)*q^176 - q^179 - q^182 + q^192 + q^193 - a*q^194 + a*q^195 - q^196 - 
        q^201 + (a - 1)*q^203 - q^209 + O(q^210),
    q^5 - q^7 + (-a + 1)*q^10 + (a - 1)*q^13 + (a - 1)*q^14 + q^15 - a*q^20 - 
        q^21 - 2*a*q^23 + a*q^26 + a*q^28 + q^29 + (-a + 1)*q^30 + a*q^31 + (a -
        1)*q^39 - q^40 + (a - 1)*q^42 - 2*q^46 + q^47 + q^52 - a*q^53 + q^55 + 
        q^56 + (-a + 1)*q^58 - a*q^60 + (-a + 1)*q^61 + q^62 - 2*a*q^69 + a*q^71
        - q^77 + a*q^78 - q^79 + (a - 1)*q^80 + a*q^84 + q^87 + (2*a - 2)*q^92 +
        a*q^93 + (-a + 1)*q^94 - q^95 + (a - 1)*q^101 + q^103 + (-a + 1)*q^104 -
        q^106 + a*q^109 + (-a + 1)*q^110 + (-a + 1)*q^112 - a*q^116 - q^120 - 
        a*q^122 + (-a + 1)*q^124 + (a - 1)*q^125 - q^127 + q^133 - q^135 - 
        2*q^138 + q^141 + q^142 + (a - 1)*q^143 + (a - 1)*q^149 - a*q^151 + (a -
        1)*q^154 + q^156 - a*q^157 + (a - 1)*q^158 - a*q^159 + a*q^160 + q^165 +
        q^167 + q^168 + (-a + 1)*q^173 + (-a + 1)*q^174 + (-a + 1)*q^183 + 
        2*a*q^184 + q^186 - a*q^188 + q^189 + (a - 1)*q^190 + (-a + 1)*q^191 - 
        q^197 + a*q^202 + a*q^205 + (-a + 1)*q^206 - a*q^208 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 + q^4 - q^10 - q^12 + q^16 - q^17 + q^26 + q^27 + q^30 - q^40 - q^43
        - q^48 - q^49 + q^51 + 2*q^62 + q^64 - q^65 - q^68 - q^74 - q^78 - q^81 
        - q^94 + q^104 + 2*q^107 + q^108 + 2*q^113 + q^120 + q^121 + q^129 - 
        q^131 - q^139 - q^142 + q^147 - 2*q^155 - q^160 + q^169 + q^170 - q^172 
        - q^179 + q^185 - 2*q^186 - q^192 + q^195 - q^196 + q^204 + O(q^210),
    q^2 - q^5 - q^6 + q^8 + q^13 + q^15 - q^20 - q^24 + 2*q^31 + q^32 - q^34 - 
        q^37 - q^39 - q^47 + q^52 + q^54 + q^60 - q^71 - q^80 + q^85 - q^86 - 
        2*q^93 - q^96 - q^98 + q^102 - q^109 + q^111 + 2*q^124 + q^125 + q^128 -
        q^130 - q^135 - q^136 + q^141 - q^148 + 2*q^149 - q^151 - q^156 - q^162 
        + 2*q^167 - q^188 - q^197 + q^208 + O(q^210),
    q^7 - q^21 + q^28 - q^70 - q^84 - q^98 + q^112 - q^119 + q^182 + q^189 + 
        O(q^210),
    q^14 - q^35 - q^42 - q^49 + q^56 + q^91 + q^105 - q^140 + q^147 - q^168 - 
        q^196 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^9 + q^13 + a*q^17 - a*q^25 - q^29 - a*q^49 + a*q^53 + (-a + 
        1)*q^61 - q^77 - a*q^81 - 2*a*q^101 - q^113 + (a - 1)*q^117 + a*q^133 - 
        q^153 + a*q^157 + q^169 + (-a + 1)*q^173 - q^181 + q^209 + O(q^210),
    q^2 - a*q^8 + (a - 1)*q^18 + q^26 - a*q^28 + (a - 1)*q^32 + a*q^34 - q^44 - 
        a*q^50 - q^58 + q^72 + a*q^76 - a*q^98 - a*q^104 + a*q^106 + (a - 
        1)*q^112 + (-a + 1)*q^122 + 2*q^124 + q^128 + (-a + 1)*q^136 - q^154 - 
        a*q^162 + a*q^176 + a*q^188 + (a - 1)*q^200 - 2*a*q^202 + O(q^210),
    q^4 + q^14 - a*q^16 + (-a + 1)*q^22 + (a - 1)*q^36 - q^38 + q^52 - a*q^56 + 
        (2*a - 2)*q^62 + (a - 1)*q^64 + a*q^68 - q^88 - q^94 - a*q^100 - q^116 +
        (-a + 1)*q^118 + (a - 1)*q^126 + (-a + 1)*q^134 + a*q^142 + q^144 + 
        a*q^152 - 2*a*q^166 + q^182 - a*q^196 + a*q^198 - a*q^208 + O(q^210),
    q^7 + (-a + 1)*q^11 - q^19 + (2*a - 2)*q^31 - q^47 + (-a + 1)*q^59 + (a - 
        1)*q^63 + (-a + 1)*q^67 + a*q^71 - 2*a*q^83 + q^91 + a*q^99 + a*q^119 + 
        (-a + 1)*q^143 + (-a + 1)*q^151 - q^163 + a*q^167 + (-a + 1)*q^171 - 
        a*q^175 + q^187 - q^203 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 - a*q^10 + 1/3*(a + 1)*q^14 + (a - 1)*q^16 + a*q^17 - a*q^25 + (a 
        - 1)*q^26 - q^27 + 1/3*(2*a + 2)*q^35 + (a - 1)*q^40 + 1/3*(-a + 2)*q^42
        + q^43 + 1/3*(-a - 1)*q^49 + (-a + 1)*q^51 + 1/3*(-2*a + 1)*q^56 - q^62 
        + q^64 + (a - 1)*q^65 + (-a + 1)*q^68 + (a - 1)*q^75 - a*q^81 - q^90 + 
        1/3*(-2*a + 1)*q^91 + a*q^94 + (a - 1)*q^100 + q^104 + 1/3*(-2*a + 
        1)*q^105 + (-a + 1)*q^107 + a*q^108 - q^113 + (a - 1)*q^121 + q^126 + (a
        - 1)*q^131 - q^139 + 1/3*(-4*a + 2)*q^140 + (-a + 1)*q^142 + 1/3*(a + 
        1)*q^147 + 2*q^153 - q^155 + q^160 + 1/3*(-a - 1)*q^168 + q^169 + (-2*a 
        + 2)*q^170 - a*q^172 - a*q^179 + 1/3*(2*a - 1)*q^196 - q^204 + O(q^210),
    q^2 - a*q^8 - a*q^13 + a*q^15 + (a - 1)*q^18 + (a - 1)*q^21 + (-a + 1)*q^31 
        + (a - 1)*q^32 + (-a + 1)*q^45 - a*q^50 + (a - 1)*q^52 - q^54 + (-a + 
        1)*q^60 + (a - 1)*q^63 + q^70 + q^72 + q^84 + a*q^85 + (-a + 1)*q^102 - 
        2*a*q^111 + q^117 - a*q^119 - q^124 + a*q^125 + q^128 - q^135 + a*q^141 
        - q^149 + (2*a - 2)*q^150 - a*q^162 + a*q^167 + (a - 1)*q^175 - q^180 - 
        a*q^189 + (a - 1)*q^200 + q^208 + O(q^210),
    q^3 - q^10 - a*q^12 + 1/3*(-2*a + 1)*q^14 + q^25 + (a - 1)*q^27 + a*q^30 + 
        1/3*(2*a - 1)*q^35 + a*q^40 + 1/3*(-a - 1)*q^42 + (-a + 1)*q^43 + (a - 
        1)*q^48 + 1/3*(-a - 1)*q^49 - a*q^51 + 1/3*(a - 2)*q^56 + a*q^65 + q^74 
        - a*q^75 + (a - 1)*q^78 - q^81 + (-a + 1)*q^90 + 1/3*(a - 2)*q^91 - 
        a*q^100 + 1/3*(-2*a + 4)*q^105 + q^108 + (-a + 1)*q^120 + q^126 - q^129 
        + a*q^131 + 1/3*(-a + 2)*q^140 + 1/3*(a + 1)*q^147 + (-a + 1)*q^153 + (a
        - 1)*q^155 + (-a + 1)*q^160 + 1/3*(2*a - 1)*q^168 - q^172 - q^179 - 
        q^185 - q^186 + q^192 + (-a + 1)*q^195 + 1/3*(2*a - 1)*q^196 + (a - 
        1)*q^204 + O(q^210),
    q^5 + 1/3*(a - 2)*q^7 - a*q^15 + (-a + 1)*q^18 - a*q^20 + 1/3*(-a + 2)*q^21 
        + 1/3*(a + 1)*q^28 + a*q^34 - q^47 + (a - 1)*q^60 + 1/3*(2*a - 1)*q^70 +
        a*q^71 - q^72 + (a - 1)*q^80 + 1/3*(-a - 1)*q^84 + a*q^85 + q^86 + 
        1/3*(-a - 1)*q^98 + (a - 1)*q^109 + a*q^111 + 1/3*(-2*a + 1)*q^112 - 
        q^117 + 1/3*(-a - 1)*q^119 - a*q^125 + (a - 1)*q^130 + (-a + 1)*q^136 + 
        (-a + 1)*q^150 + (-a + 1)*q^151 + q^175 + 1/3*(-2*a + 1)*q^182 + a*q^188
        + 1/3*(a + 1)*q^189 - a*q^197 + O(q^210),
    q^6 + 1/3*(-a + 2)*q^7 + a*q^18 + 1/3*(a + 1)*q^21 - a*q^24 + 1/3*(-a - 
        1)*q^28 - q^34 + (a - 1)*q^37 - a*q^39 + a*q^45 + (-a + 1)*q^47 + q^50 +
        (a - 1)*q^54 + (a - 1)*q^63 + 1/3*(a - 2)*q^70 - q^71 + (-a + 1)*q^72 + 
        1/3*(-2*a + 1)*q^84 - q^85 + (-a + 1)*q^93 + (a - 1)*q^96 + 1/3*(-2*a + 
        1)*q^98 - a*q^102 - q^111 + 1/3*(2*a - 1)*q^112 + (-a + 1)*q^117 + 
        1/3*(-2*a + 1)*q^119 + a*q^136 + q^141 + q^148 + a*q^151 + (a - 1)*q^156
        - q^162 + (-a + 1)*q^180 + 1/3*(2*a - 1)*q^182 - q^188 + 1/3*(2*a - 
        4)*q^189 - a*q^200 + O(q^210),
    q^9 + (-a + 1)*q^10 + 1/3*(2*a - 1)*q^14 + (a - 1)*q^17 - q^30 + 1/3*(a - 
        2)*q^35 - a*q^36 - q^40 + 1/3*(-2*a + 1)*q^42 + a*q^43 + 1/3*(-2*a + 
        1)*q^49 + 1/3*(-a + 2)*q^56 - q^65 + q^68 + q^75 + 1/3*(-a + 2)*q^91 + 
        (a - 1)*q^94 + 1/3*(2*a - 1)*q^105 + a*q^120 + (-a + 1)*q^129 - q^131 - 
        a*q^139 + 1/3*(a + 1)*q^140 + q^142 + (a - 1)*q^144 + 1/3*(-a - 1)*q^147
        - a*q^155 + a*q^160 + 1/3*(a - 2)*q^168 + q^170 + (-a + 1)*q^172 + (-a +
        1)*q^179 + (-a + 1)*q^185 + a*q^195 + 1/3*(a - 2)*q^196 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^23 - q^29 - q^35 - q^43 + q^49 - q^53 - q^65 - q^79 + q^81 + 
        q^91 + q^95 + 2*q^107 - q^113 + q^121 + 2*q^127 - q^133 + q^155 + q^169 
        - q^179 + 2*q^191 - 2*q^205 - q^207 + O(q^210),
    q^2 + q^18 - q^46 - q^58 - q^70 - q^86 + q^98 - q^106 - q^130 - q^158 + 
        q^162 + q^182 + q^190 + O(q^210),
    q^5 - q^7 - q^13 + q^19 + q^31 - 2*q^41 + q^45 + q^47 - 2*q^59 - q^63 + q^73
        + q^83 + q^89 + q^97 - q^115 - q^117 - q^125 - q^145 + q^161 + q^167 + 
        q^171 + q^203 + O(q^210),
    q^10 - q^14 - q^26 + q^38 + q^62 - 2*q^82 + q^90 + q^94 - 2*q^118 - q^126 + 
        q^146 + q^166 + q^178 + q^194 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
728
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*q^9 - 1/2*q^14 + q^16 - 1/2*q^22 - 3/2*q^23 + q^30 - 1/2*q^36 - 
        1/2*q^42 + 1/2*q^56 - 1/2*q^65 - 1/2*q^74 + 1/2*q^78 - 1/2*q^79 - q^81 -
        1/2*q^88 + 1/2*q^92 + q^95 + q^100 + q^105 - 1/2*q^113 - q^114 - q^120 -
        1/2*q^121 - 1/2*q^126 + 1/2*q^127 + 1/2*q^130 - 1/2*q^134 - q^142 + 
        1/2*q^144 - q^156 - 1/2*q^168 + 1/2*q^169 + 1/2*q^182 - 1/2*q^183 + 
        1/2*q^186 + q^191 + q^196 - q^207 + O(q^210),
    q^2 + q^8 - q^11 - q^21 + q^32 - q^37 - q^44 - q^46 + q^50 - q^67 - q^78 - 
        q^84 + q^91 + q^93 + q^98 + 2*q^109 + q^123 + q^128 + q^141 - q^148 - 
        q^149 - q^158 - q^162 + 2*q^163 - q^176 - q^184 + q^189 - q^197 + q^200 
        + O(q^210),
    q^3 + q^12 - q^13 - q^14 - q^27 + q^48 - q^52 - q^56 + q^61 + q^62 - q^66 - 
        q^69 + q^75 + q^77 + q^82 + q^94 + q^101 - q^108 - 2*q^131 - 2*q^139 + 
        q^146 + q^147 + q^157 - 2*q^173 - 2*q^178 + q^181 + q^192 + q^194 - 
        q^208 + O(q^210),
    q^4 - 1/2*q^9 + 1/2*q^14 - 1/2*q^22 + 1/2*q^23 + q^25 - q^30 + 1/2*q^36 - 
        q^39 - 1/2*q^42 + q^49 - 1/2*q^56 + q^64 + 1/2*q^65 - 1/2*q^74 - 
        1/2*q^78 - 1/2*q^79 - 1/2*q^88 - 3/2*q^92 - q^95 - q^105 - 1/2*q^113 + 
        q^114 + q^120 + 1/2*q^121 + 1/2*q^126 - 3/2*q^127 - 1/2*q^130 - 
        1/2*q^134 + q^142 - 1/2*q^144 - 1/2*q^168 + 1/2*q^169 + 1/2*q^182 + 
        3/2*q^183 + 1/2*q^186 + q^191 + q^207 + O(q^210),
    q^5 - 2*q^8 + q^11 + 1/2*q^13 - 2*q^15 + q^18 - q^19 - q^20 + 2*q^24 - 
        3/2*q^26 - 2*q^28 + q^31 - q^33 + q^37 - q^39 + q^41 + q^44 + q^45 - 
        q^46 + q^47 - 2*q^50 - 1/2*q^52 - q^54 + 2*q^57 + q^59 + 2*q^60 + q^63 -
        q^65 + q^67 - q^70 + 2*q^71 - q^72 + q^73 + q^76 + 2*q^78 + q^80 + q^83 
        + 2*q^84 - 2*q^89 - 3/2*q^91 - q^93 + q^97 - 2*q^98 - 1/2*q^104 - 
        2*q^109 - q^111 - 2*q^115 + 1/2*q^117 + 2*q^122 - q^123 + q^124 - 
        2*q^128 - q^130 - q^132 + q^138 - q^141 + q^143 + q^148 + q^149 + 
        2*q^150 + q^154 + q^156 + q^158 - q^161 - 2*q^163 + q^164 - 2*q^167 - 
        q^169 - q^171 - 2*q^175 + q^176 - 2*q^177 - q^180 - 1/2*q^182 + 3*q^184 
        + q^188 - q^189 + 2*q^190 + 2*q^193 + q^195 + q^197 - q^201 + 1/2*q^208 
        + O(q^210),
    q^6 - 2*q^8 + q^11 - 2*q^15 + q^18 + q^21 + q^24 - q^26 - 2*q^28 + q^31 - 
        q^33 + q^37 - q^39 + q^41 + q^44 - q^46 + q^47 - 2*q^50 - q^54 + 2*q^57 
        + 2*q^60 + q^63 - q^65 + q^67 + 2*q^71 - q^72 + q^73 + 2*q^78 + q^84 - 
        2*q^89 - q^91 - q^93 + q^96 + q^97 - 2*q^98 - q^104 - 2*q^109 - q^111 + 
        q^122 - q^123 + q^124 - 2*q^128 - q^130 - q^132 - q^138 - q^141 + q^143 
        + q^148 + q^149 + q^150 + q^154 + q^156 + q^158 - q^161 - 2*q^163 + 
        q^164 - 2*q^167 - q^169 - 2*q^175 + q^176 - 2*q^177 + 3*q^184 + q^188 - 
        q^189 + 2*q^190 + 2*q^193 + q^197 - q^201 + q^202 + O(q^210),
    q^7 - 2*q^8 + q^11 - 2*q^15 + q^18 + q^21 - q^28 + q^37 - q^39 + q^44 - q^46
        - 2*q^50 + 2*q^57 + 2*q^60 + q^63 - q^65 + q^67 + 2*q^71 - q^72 + 2*q^78
        + q^84 - q^91 - q^93 - 2*q^98 - 2*q^109 + q^112 - q^123 - 2*q^128 - 
        q^130 - q^141 + q^148 + q^149 + q^156 + q^158 - 2*q^161 - 2*q^163 - 
        q^169 - q^175 + q^176 - 2*q^177 + 3*q^184 - q^189 + 2*q^190 + 2*q^193 + 
        q^197 + O(q^210),
    q^10 - 2*q^12 + 3/2*q^13 + q^14 + 1/2*q^26 + q^27 + q^35 - q^38 - q^40 - 
        q^42 + 1/2*q^52 + q^56 - 2*q^61 - q^62 + q^66 - q^69 - 2*q^75 - q^77 - 
        q^82 + q^90 + 1/2*q^91 - q^94 - 1/2*q^104 + q^108 + 1/2*q^117 + q^118 + 
        q^131 - q^133 + 3*q^139 - q^140 - q^146 - 2*q^147 + q^152 + q^160 + 
        q^166 + q^168 + 3*q^173 + 2*q^178 - 2*q^181 - 1/2*q^182 - 2*q^192 - 
        q^194 - q^195 + 3/2*q^208 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
729
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
486
);
qprec:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
729
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
729
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
729
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (-a^5 + a^2)*q^7 - a^4*q^13 + a^2*q^16 + (-a^3 + 1)*q^19 - 
        a^5*q^25 - q^28 + a*q^31 + a^3*q^37 - a^2*q^43 + a^5*q^52 + (2*a^5 - 
        2*a^2)*q^61 - a^3*q^64 + 2*a^4*q^67 + (2*a^3 - 2)*q^73 + (a^4 - a)*q^76 
        + a^5*q^79 - a^3*q^91 - a^2*q^97 + (a^3 - 1)*q^100 + (-2*a^4 + 
        2*a)*q^103 - q^109 + a*q^112 + a^4*q^121 - a^2*q^124 + (-a^3 + 1)*q^127 
        + O(q^128)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
729
);
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:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + (-a + 1)*q^7 + a*q^13 + (a - 1)*q^16 - q^19 + (a - 1)*q^25 - 
        q^28 + a*q^31 - q^37 + (-a + 1)*q^43 + (-a + 1)*q^52 + (2*a - 2)*q^61 + 
        q^64 - 2*a*q^67 + 2*q^73 + a*q^76 + (-a + 1)*q^79 + q^91 + (-a + 1)*q^97
        + q^100 - 2*a*q^103 - q^109 + a*q^112 - a*q^121 + (-a + 1)*q^124 - q^127
        + O(q^128),
    q^3 - a*q^12 + (-a + 1)*q^21 + a*q^39 + (a - 1)*q^48 - q^57 + (a - 1)*q^75 -
        q^84 + a*q^93 - q^111 + O(q^128)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
729
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
243*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^7 - q^13 + q^16 - q^19 + q^25 - q^28 - q^31 - q^37 - q^43 - q^52
        + 2*q^61 + q^64 + 2*q^67 + 2*q^73 - q^76 - q^79 + q^91 - q^97 + q^100 + 
        2*q^103 - q^109 - q^112 + q^121 - q^124 - q^127 + O(q^128),
    q^3 + q^12 - q^21 - q^39 + q^48 - q^57 + q^75 - q^84 - q^93 - q^111 + 
        O(q^128)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
72
);
qprec:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
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:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
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:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
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:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
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:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
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:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
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:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
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:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
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:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
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:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
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:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
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(
8
);
qprec:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
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:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
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(
4
);
qprec:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
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:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
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:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
730
);
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(
4
);
qprec:=
216
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
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(
168
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
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(
84
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
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(
42
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
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(
336
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
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(
56
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
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(
28
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
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(
14
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
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(
112
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
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:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
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(
24
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
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(
12
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
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(
6
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
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(
48
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
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(
8
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^2*q^4 + a*q^9 + (-a^2 + a)*q^11 - q^16 - a*q^17 + (-a^3 + 1)*q^23 - 
        a*q^25 + (a^3 - a^2)*q^31 - a^3*q^36 + (a^2 + a)*q^41 - a*q^43 + (-a^3 -
        1)*q^44 + (a^3 + a)*q^47 + a^3*q^49 + (a^2 - 1)*q^53 + (a^2 + 1)*q^59 + 
        a^2*q^64 + (a^3 - a)*q^67 + a^3*q^68 + (-a^3 + 1)*q^79 + a^2*q^81 - 
        2*a^3*q^83 + (-a^2 - a)*q^92 + (a^3 + a^2)*q^97 + (-a^3 + a^2)*q^99 + 
        a^3*q^100 + (a^3 - a)*q^101 + (a^3 - a)*q^103 + (a - 1)*q^107 + (-a^3 - 
        1)*q^109 + (-a^3 + a^2 - 1)*q^121 + (a - 1)*q^124 + (-a^2 - 1)*q^127 + 
        O(q^130)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
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(
4
);
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 + a*q^9 + (a - 1)*q^11 + 2*q^13 + q^16 + a*q^17 + (-a + 1)*q^23 + 
        a*q^25 + (-a - 1)*q^31 - a*q^36 + (a - 1)*q^41 + a*q^43 + (-a + 1)*q^44 
        - a*q^49 - 2*q^52 - q^64 - a*q^68 + (-a + 1)*q^79 - q^81 - 2*a*q^83 + (a
        - 1)*q^92 + (-a - 1)*q^97 + (-a - 1)*q^99 - a*q^100 + (a + 1)*q^107 + 
        (-a + 1)*q^109 + 2*a*q^117 - a*q^121 + (a + 1)*q^124 + O(q^130)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
731
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + 21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
130
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^21 - q^35 - q^47 + q^49 + q^64 - q^67 - q^83 - q^84 - 
        q^87 - q^103 - q^117 + q^121 + O(q^130),
    q^3 - q^7 + q^12 - q^28 - q^29 - q^39 - q^45 + q^48 + q^61 + q^71 + q^75 + 
        q^85 + q^91 - q^105 - q^112 + q^113 - q^116 - q^119 - q^125 + O(q^130),
    q^5 - q^7 + q^20 - q^27 - q^28 - q^29 + q^37 + q^45 + q^51 - q^65 + q^73 - 
        q^75 + q^80 + q^91 - q^105 - q^108 - q^112 - q^116 - q^119 + q^129 + 
        O(q^130),
    q^9 - 2*q^15 - q^17 + q^21 + q^25 + q^35 + q^36 - q^43 + q^47 - 2*q^49 - 
        2*q^60 + q^67 - q^68 + q^81 + q^83 + q^84 + q^87 + q^100 - 2*q^101 + 
        q^103 - 2*q^111 - q^117 + O(q^130),
    q^13 - q^15 - q^17 + q^21 + q^35 - q^43 - 2*q^49 + q^52 + q^53 + q^59 - q^60
        - q^68 + q^81 + q^84 + q^87 - 2*q^101 - q^111 - q^117 + q^127 + O(q^130)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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(
732
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
732
);
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(
732
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^3*q^3 + (a^7 + a^6 + a^5 - a^4 - a^3 - a^2 + 1)*q^7 + a^6*q^9 + (a^7 +
        a^3)*q^13 + (-2*a^7 - a^6 + a^4 + a^3 + 2*a^2 - 1)*q^19 + (a^7 - a^5 - 
        a^4 - a^3 + a^2 + a + 1)*q^21 - a^7*q^25 + (-a^7 - a^6 + a^3 + a^2 - 
        1)*q^27 + (-a^7 + a^5 + a^4 - 2*a - 1)*q^31 + (-a^7 + a^5 + a^4 + a^3 - 
        1)*q^37 + (-a^6 - a^5 + 1)*q^39 + (a^7 + a^6 + a^4 - a^3 - a^2 + 1)*q^43
        + (a^7 - 2*a^4 + a)*q^49 + (-a^2 - 1)*q^57 - a^5*q^61 + (a^6 - a^5 - 
        a)*q^63 + (a^7 - a^6 - a^2 + a)*q^73 + (a^5 - 1)*q^75 + (a^7 - a^5 - a^4
        + a)*q^79 + (a^7 - a^2)*q^81 + (-a^6 + a^5 + a^4 + a^3 - 2*a^2 - a - 
        1)*q^91 + (a^4 + a)*q^93 + (-a^5 - a^4 + 1)*q^97 + (a^7 + a^6 - a^3 - 
        2*a^2 + 1)*q^103 + (-a^7 - a^6 + a^3 + a^2 - a - 1)*q^109 + (-a^6 - a^4 
        + a)*q^111 + (a^6 + a^5 + a^4 - a^3 - a^2 - a)*q^117 - q^121 + (-a^6 - 
        a^5 + a^2 + a)*q^127 + (-2*a^7 + a^2)*q^129 + (-a^7 + a^6 + a^5 + 2*a^4 
        + a^2 - 2*a - 1)*q^133 + (-a^7 - a^5 + 1)*q^139 + (2*a^7 - a^5 - a^4 + 
        1)*q^147 + (a^3 + a^2)*q^151 + (-a^6 - a^5)*q^157 + (a^7 - a^5 - a^4 - 
        a^3 + 2*a + 1)*q^163 + (a^7 + 2*a^6 + a^5 - a^4 - a^3 - a^2)*q^169 + 
        (a^5 + a^3)*q^171 + (-a^7 + a^6 + a^2)*q^175 + (-a^6 + a^3 + a^2 - 
        1)*q^181 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^183 + (-2*a^7 - a^6 + a^5 
        + 2*a^4 + 2*a^3 + a^2 - a - 2)*q^189 + (a^5 - a^3)*q^193 + (-a^7 - a^6 +
        a^5 + a^3 + a^2 - 2)*q^199 + (-a^5 + a)*q^211 + (-a^7 - a^6 - a^3 + a^2 
        + 1)*q^217 + (a^7 + a^6 - a^4 - a^3 - a^2 + 2)*q^219 + (a^7 - a^3)*q^223
        + (a^7 - a^5 - a^4 + a + 1)*q^225 + (a^7 - a^4 - a^3 + a + 1)*q^229 + 
        (a^3 - a)*q^237 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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(
732
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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*q^2 + a^2*q^4 + (-a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^5 - a^3*q^8 + 
        (a^7 - a^2)*q^9 + (a^6 + a^5 - 1)*q^10 + (-a^5 - a^4 + a + 1)*q^13 + 
        a^4*q^16 + (-a^7 - a^6 + a^5 + a^4 + a^3 - 1)*q^17 + (a^7 - a^5 - a^4 + 
        a + 1)*q^18 + (-a^7 - a^6 + a)*q^20 + (a^7 + a^6 + a^5 - a^4 - 2*a^3 - 
        a^2)*q^25 + (a^6 + a^5 - a^2 - a)*q^26 + (a^6 + a^4)*q^29 - a^5*q^32 + 
        (-a^6 + a^3 - 1)*q^34 + (a^7 + a^6 - a^4 - a^3 - a^2 + 1)*q^36 + (a^7 + 
        a^6 - a^3 - a^2 + 1)*q^37 + (a^5 + a^4 + a^3 - a^2 - a - 1)*q^40 + (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^4 + a + 1)*q^50 + (-a^7 - a^6 + a^3 + a^2)*q^52 + (-a^6 + a^5 
        + a - 1)*q^53 + (-a^7 - a^5)*q^58 - a*q^61 + a^6*q^64 + (-a^3 - a^2 - 
        a)*q^65 + (a^7 - a^4 + a)*q^68 + q^72 + (a^7 - a^5 - a^4 - a^3 + a + 
        1)*q^73 + (-a^5 + 1)*q^74 + (-a^6 - a^5 - a^4 + a^3 + a^2 + a)*q^80 + 
        (-a^7 - a^6 + a^3 + a^2 - 1)*q^81 + (-a^3 + a^2)*q^82 + (a^7 - 2*a^5 - 
        a^4 + a^2 + 1)*q^85 + (a^5 + a^2 - 1)*q^89 + (-a^7 - a^3)*q^90 + (-a^7 +
        a^6)*q^97 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^98 + (a^7 - a^5 - a^2 - 
        a)*q^100 + (-a^5 + 1)*q^101 + (a^5 - a - 1)*q^104 + (a^7 - a^6 - a^2 + 
        a)*q^106 + (-a^7 - 2*a^6 + a^3 + a^2 + a - 1)*q^109 + (a^6 - a^3)*q^113 
        + (-a^7 + a^6 + a^5 + a^4 + a^3 - a - 1)*q^116 + (a^5 + a^4 - 1)*q^117 +
        q^121 + a^2*q^122 + (a^5 + 2*a^4 + a^3 - a^2 - a)*q^125 - a^7*q^128 + 
        (a^4 + a^3 + a^2)*q^130 + (a^7 - a^4 - a^3 - a^2 + a + 1)*q^136 + (2*a^7
        + a^6 - a^4 - a^3 - 2*a^2 + 1)*q^137 - a*q^144 + (-2*a^6 - a^5 - a^4 + 
        a^3 + a^2 + 2*a + 1)*q^145 + (a^7 + a^6 - a^3 - a^2 + 1)*q^146 + (a^6 - 
        a)*q^148 + (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^6 + a^5 - a^4 - a^3 - 
        a^2)*q^160 + (a^5 - 1)*q^162 + (a^4 - a^3)*q^164 + (a^7 - a^5 - a^4 - 
        a^3 - a^2 + a + 1)*q^169 + (a^7 + 2*a^6 - a^4 - 2*a^3 + 1)*q^170 + 
        (-2*a^7 - a^6 + a^3 + a^2 - 1)*q^173 + (-a^6 - a^3 + a)*q^178 + (-a^7 + 
        a^5 + 2*a^4 + a^3 - a - 1)*q^180 + (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^3 - a - 1)*q^194 + (a^5 - 1)*q^196 + (2*a^7 - a^5 - a^4 - a^2 
        + a + 1)*q^197 + (a^7 + a^6 - a^5 - a^4 + a^2 + a + 1)*q^200 + (a^6 - 
        a)*q^202 + (-a^7 + a^5 + a - 1)*q^205 + (-a^6 + a^2 + a)*q^208 + (2*a^7 
        - a^5 - a^4 - a^2 + a + 1)*q^212 + (a^7 + a^5 - a^2 - 1)*q^218 + (-a^7 +
        a^2)*q^221 + (-a^7 - a^6 + a + 1)*q^225 + (-a^7 + a^4)*q^226 + (-a^7 + 
        a^5 + a^4 - a - 1)*q^229 + (-2*a^7 - a^6 + a^3 + a^2 - 1)*q^232 - q^233 
        + (-a^6 - a^5 + a)*q^234 + O(q^238),
    q^3 - a*q^6 + a^2*q^12 + (-a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^15 - a^3*q^24 
        + (a^7 - a^2)*q^27 + (a^6 + a^5 - 1)*q^30 + (-a^5 - a^4 + a + 1)*q^39 + 
        a^4*q^48 + (-a^7 - a^6 + a^5 + a^4 + a^3 - 1)*q^51 + (a^7 - a^5 - a^4 + 
        a + 1)*q^54 + (-a^7 - a^6 + a)*q^60 + (a^7 + a^6 + a^5 - a^4 - 2*a^3 - 
        a^2)*q^75 + (a^6 + a^5 - a^2 - a)*q^78 + (a^6 + a^4)*q^87 - a^5*q^96 + 
        (-a^6 + a^3 - 1)*q^102 + (a^7 + a^6 - a^4 - a^3 - a^2 + 1)*q^108 + (a^7 
        + a^6 - a^3 - a^2 + 1)*q^111 + (a^5 + a^4 + a^3 - a^2 - a - 1)*q^120 + 
        (a^2 - a)*q^123 + (a^6 + a^2)*q^135 + (-a^7 + a^5 + a^4 + a^3 - a - 
        1)*q^147 + (-a^6 + a^4 + a + 1)*q^150 + (-a^7 - a^6 + a^3 + a^2)*q^156 +
        (-a^6 + a^5 + a - 1)*q^159 + (-a^7 - a^5)*q^174 - a*q^183 + a^6*q^192 + 
        (-a^3 - a^2 - a)*q^195 + (a^7 - a^4 + a)*q^204 + q^216 + (a^7 - a^5 - 
        a^4 - a^3 + a + 1)*q^219 + (-a^5 + 1)*q^222 + O(q^238)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^6*q^3 + (a^7 - a^4 + a)*q^7 + (a^7 - a^2)*q^9 + (a^7 + 2*a^6 - a^4 - 
        a^3 - a^2 + 1)*q^13 + (-a^6 - a^5 - a^4 + a^3 + a^2 + a)*q^19 + (a^4 - 
        a)*q^21 + (a^7 + a^6 - a^4 - a^3 - a^2 + 1)*q^25 - a^3*q^27 + (-a^6 + 
        a^2 + a)*q^31 + (a^2 - a)*q^37 + (a^7 - a^5 - a^2)*q^39 + (-a^7 + a^5 + 
        a^4 - a - 1)*q^43 + (-a^7 - a^6 + a^4 + a^3 - 1)*q^49 + (a^4 + 1)*q^57 +
        (a^5 - 1)*q^61 + (-a^7 + a^5 - 1)*q^63 - 2*a^7*q^67 + (-2*a^7 - a^6 + 
        a^3 + a^2 - 1)*q^73 - a^5*q^75 + (-a^6 + a + 1)*q^79 + (-a^7 - a^6 + a^3
        + a^2 - 1)*q^81 + (-a^6 + a^4 + a^3 - a - 1)*q^91 + (-a^7 + a^5 + a^4 + 
        a^3 + a^2 - a - 1)*q^93 + (-a^7 + a^4 + a^3 - a - 1)*q^97 + (a^4 - 
        a^3)*q^103 + (-a^3 + a^2)*q^109 + (-2*a^7 + a^5 + a^4 + a^3 - a - 
        1)*q^111 + (-a^6 - a^3 + a)*q^117 + q^121 + (a^7 - a^5 - a^4 + 1)*q^127 
        - a^4*q^129 + (-2*a^7 - a^6 + a^5 + 2*a^4 + a^3 - 1)*q^133 + (a^7 + a^6 
        - a^5 - a^4 - a^3 - a^2 + 1)*q^139 + (a^7 - a^4 - a^3 + a + 1)*q^147 + 
        (a^6 + a^4)*q^151 + (a^7 + a^5 - a^2 - 1)*q^157 + (a^2 - a)*q^163 + 
        (2*a^7 - 2*a^5 - a^4 - a^2 + a + 1)*q^169 + (a^6 + a^5 - 1)*q^171 + 
        (-a^6 + a^3 - 1)*q^175 + (a^7 + a^6 - a^4 - 2*a^3 - a^2 + 1)*q^181 - 
        a*q^183 + (a^7 - a^5 - a^4 + 1)*q^189 + (a^6 + a^5 - 1)*q^193 + (-a^5 - 
        a^3)*q^199 + (2*a^7 - 2*a^5 - 2*a^4 + 2*a + 2)*q^201 + (a^5 + a^2 - 
        1)*q^211 + a^3*q^217 + (a^7 - a^5 - a^4 + a + 2)*q^219 + (a^7 + 2*a^6 - 
        a^4 - a^3 - a^2 + 1)*q^223 + (-a^6 + a)*q^225 + (a^5 - a - 1)*q^229 + 
        (a^6 + a^2)*q^237 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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(
732
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^3*q^3 + (a^3 - a^2 + a - 2)*q^7 - a*q^9 + (a^3 - a^2)*q^13 + (-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^3 - a)*q^31 + (-a^3 + a)*q^37 + (a - 1)*q^39 + (-2*a^3 + a^2 - a + 
        2)*q^49 + (-a^2 - 1)*q^57 + q^61 + (a + 1)*q^63 + (a^2 - a)*q^73 + q^75 
        + (-a^3 - 1)*q^79 + a^2*q^81 + (-a^3 + a)*q^91 + (a^3 - a^2 + 2*a - 
        1)*q^93 + (-a^3 + a^2 - a)*q^97 + (-a^3 - a + 1)*q^103 + (a^3 - a^2 - 
        1)*q^109 + (-a^3 + a^2 - 2*a + 1)*q^111 + (a^2 - a + 1)*q^117 - q^121 + 
        (a^2 - a + 1)*q^127 + (2*a^3 + 2*a - 1)*q^133 + (a^2 - 1)*q^139 + (-a^3 
        - a^2 - a)*q^147 + (a^3 + a^2)*q^151 + (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^3 - 
        1)*q^193 + (a^3 - a^2 + a)*q^199 + (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
        - 1)*q^229 + (a^3 - a)*q^237 + O(q^238),
    q^2 - a^3*q^6 + a*q^8 + (a^3 - a^2 + a - 2)*q^14 - a*q^18 + (-a^3 + a^2 - a 
        + 1)*q^24 + (a^3 - a^2)*q^26 + a^2*q^32 + (-a^3 - a + 1)*q^38 + (a^3 + 
        a^2)*q^42 + a^2*q^50 + (a^3 - a^2 + a - 1)*q^54 + (-a - 1)*q^56 + (a^3 -
        a)*q^62 - a^2*q^72 + (-a^3 + a)*q^74 + (a - 1)*q^78 + q^96 + (-2*a^3 + 
        a^2 - a + 2)*q^98 + (-a^2 + a - 1)*q^104 + (-a^2 - 1)*q^114 + q^122 + (a
        + 1)*q^126 + a^3*q^128 + (a^2 - a)*q^146 + q^150 + (-a^3 + 1)*q^152 + 
        (-a^3 - 1)*q^158 + a^2*q^162 + (2*a^3 - a^2 + a - 1)*q^168 + (-a^3 + 
        a)*q^182 + (a^3 - a^2 + 2*a - 1)*q^186 + (-a^3 + a^2 - a)*q^194 + 
        a^3*q^200 + (-a^3 - a + 1)*q^206 - q^216 + (a^3 - a^2 - 1)*q^218 + (-a^3
        + a^2 - 2*a + 1)*q^222 + (-a^2 - a)*q^224 + (a^2 - a + 1)*q^234 + 
        O(q^238),
    q^4 - a^3*q^12 + a*q^16 + (a^3 - a^2 + a - 2)*q^28 - a*q^36 + (-a^3 + a^2 - 
        a + 1)*q^48 + (a^3 - a^2)*q^52 + a^2*q^64 + (-a^3 - a + 1)*q^76 + (a^3 +
        a^2)*q^84 + a^2*q^100 + (a^3 - a^2 + a - 1)*q^108 + (-a - 1)*q^112 + 
        (a^3 - a)*q^124 - a^2*q^144 + (-a^3 + a)*q^148 + (a - 1)*q^156 + q^192 +
        (-2*a^3 + a^2 - a + 2)*q^196 + (-a^2 + a - 1)*q^208 + (-a^2 - 1)*q^228 +
        O(q^238)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^3 + q^9 + (a - 1)*q^13 - a*q^19 - a*q^25 + q^27 + (2*a - 1)*q^37 + (a 
        - 1)*q^39 + (-a - 1)*q^43 - a*q^49 - a*q^57 + (a - 1)*q^61 + a*q^73 - 
        a*q^75 + (-a - 1)*q^79 + q^81 + 2*a*q^97 - a*q^103 + (-a + 1)*q^109 + 
        (2*a - 1)*q^111 + (a - 1)*q^117 - q^121 + (-2*a + 2)*q^127 + (-a - 
        1)*q^129 - a*q^147 + (a - 2)*q^151 + (a - 2)*q^157 + q^163 - a*q^171 + 
        (a + 1)*q^181 + (a - 1)*q^183 + (-a + 2)*q^193 + (-a + 1)*q^199 + (2*a -
        1)*q^211 + a*q^219 + (a + 1)*q^223 - a*q^225 + (-2*a + 2)*q^229 + (-a - 
        1)*q^237 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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*q^2 + a^2*q^4 + (a^3 - a^2 + a)*q^5 - a^3*q^8 + a^2*q^9 + (-a + 
        1)*q^10 + (-a^3 + a^2)*q^13 + (a^3 - a^2 + a - 1)*q^16 + (-a^3 - a)*q^17
        - a^3*q^18 + (a^2 - a)*q^20 + (-a^2 + a)*q^25 + (-a^2 + a - 1)*q^26 + 
        (a^3 - a^2 - 1)*q^29 + q^32 + (a^3 + a - 1)*q^34 + (a^3 - a^2 + a - 
        1)*q^36 + (2*a^3 - 2*a^2 + 2*a - 2)*q^37 + (-a^3 + a^2)*q^40 + (a^2 - 
        a)*q^41 + (a^2 - a)*q^45 - a^3*q^49 + (a^3 - a^2)*q^50 + (a^3 - a^2 + 
        a)*q^52 + (-a + 1)*q^53 + (a^2 + 1)*q^58 - a*q^61 - a*q^64 + (-a^3 + 
        2*a^2 - a)*q^65 + (-a^3 + 1)*q^68 + q^72 - 2*a^3*q^73 + 2*q^74 + (-a^2 +
        a - 1)*q^80 + (a^3 - a^2 + a - 1)*q^81 + (-a^3 + a^2)*q^82 + (-a^3 + a^2
        - a + 1)*q^85 + (a^2 + 1)*q^89 + (-a^3 + a^2)*q^90 + (a^2 - a)*q^97 + 
        (a^3 - a^2 + a - 1)*q^98 + (a^2 - a + 1)*q^100 + 2*q^101 + (-a + 
        1)*q^104 + (a^2 - a)*q^106 + (a^3 - a^2 - 1)*q^109 + (-a^3 - a)*q^113 + 
        (-a^3 - a)*q^116 + (a^3 - a^2 + a)*q^117 + q^121 + a^2*q^122 + a*q^125 +
        a^2*q^128 + (-a^3 + a - 1)*q^130 + (a^3 - a^2 - 1)*q^136 + (a^3 + a - 
        1)*q^137 - a*q^144 - a^2*q^145 + (2*a^3 - 2*a^2 + 2*a - 2)*q^146 - 
        2*a*q^148 + (a^3 + a - 1)*q^149 + (-a^3 + 1)*q^153 + (-a^2 + a - 
        1)*q^157 + (a^3 - a^2 + a)*q^160 + q^162 + (-a^2 + a - 1)*q^164 + (a^3 -
        a^2)*q^169 - q^170 + (a^3 + a - 1)*q^173 + (-a^3 - a)*q^178 + (-a^2 + a 
        - 1)*q^180 + (a^2 + 1)*q^181 + (-2*a^2 + 2*a - 2)*q^185 + (a^3 + a - 
        1)*q^193 + (-a^3 + a^2)*q^194 + q^196 + (-a^3 + a^2)*q^197 + (-a^3 + a^2
        - a)*q^200 - 2*a*q^202 + (a^2 - 2*a + 1)*q^205 + (a^2 - a)*q^208 + (-a^3
        + a^2)*q^212 + (a^2 + 1)*q^218 - a^2*q^221 + (a^2 - a + 1)*q^225 + (a^3 
        + a - 1)*q^226 - 2*a^3*q^229 + (a^3 + a - 1)*q^232 + 2*q^233 + (-a + 
        1)*q^234 + O(q^238),
    q^3 - a*q^6 + a^2*q^12 + (a^3 - a^2 + a)*q^15 - a^3*q^24 + a^2*q^27 + (-a + 
        1)*q^30 + (-a^3 + a^2)*q^39 + (a^3 - a^2 + a - 1)*q^48 + (-a^3 - a)*q^51
        - a^3*q^54 + (a^2 - a)*q^60 + (-a^2 + a)*q^75 + (-a^2 + a - 1)*q^78 + 
        (a^3 - a^2 - 1)*q^87 + q^96 + (a^3 + a - 1)*q^102 + (a^3 - a^2 + a - 
        1)*q^108 + (2*a^3 - 2*a^2 + 2*a - 2)*q^111 + (-a^3 + a^2)*q^120 + (a^2 -
        a)*q^123 + (a^2 - a)*q^135 - a^3*q^147 + (a^3 - a^2)*q^150 + (a^3 - a^2 
        + a)*q^156 + (-a + 1)*q^159 + (a^2 + 1)*q^174 - a*q^183 - a*q^192 + 
        (-a^3 + 2*a^2 - a)*q^195 + (-a^3 + 1)*q^204 + q^216 - 2*a^3*q^219 + 
        2*q^222 + O(q^238)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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(
10
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + (-a^3 + 1)*q^7 + a^2*q^9 + (a^3 - a^2 - 1)*q^13 + (-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 - a)*q^31 + (a^2 - a)*q^37 + (a^2 + 1)*q^39 - 2*a^3*q^43 + (-a^3 - 
        a + 1)*q^49 + (a^3 - a^2 + a)*q^57 + q^61 + (a^2 + 1)*q^63 + 2*a^2*q^67 
        + (a^3 + a - 1)*q^73 + q^75 + (-a + 1)*q^79 + (a^3 - a^2 + a - 1)*q^81 +
        (2*a^3 - a^2 + a - 2)*q^91 + (-a^3 + a^2)*q^93 + (-a^3 + 1)*q^97 + (-a^2
        + a - 1)*q^103 + (-a^3 + a^2)*q^109 + (-a^3 + a^2)*q^111 + (-a^3 - 
        a)*q^117 + q^121 + (-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^3 - 1)*q^147 + (a^3 - a^2 - 1)*q^151 
        + (a^2 + 1)*q^157 + (a^2 - a)*q^163 + (-a^3 + a^2 + 1)*q^169 + (-a + 
        1)*q^171 + (a^3 + a - 1)*q^175 + (-a^2 + a - 1)*q^181 - a*q^183 + (-a^3 
        - a)*q^189 + (-a + 1)*q^193 + (-a^3 + 1)*q^199 - 2*a^3*q^201 + (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 + 1)*q^229 + (a^2 - a)*q^237 + O(q^238),
    q^2 - a*q^6 + a^2*q^8 + (-a^3 + 1)*q^14 + a^2*q^18 - a^3*q^24 + (a^3 - a^2 -
        1)*q^26 + (a^3 - a^2 + a - 1)*q^32 + (-a^2 + a - 1)*q^38 + (a^3 - a^2 - 
        1)*q^42 + (a^3 - a^2 + a - 1)*q^50 - a^3*q^54 + (a^2 + 1)*q^56 + (a^2 - 
        a)*q^62 + (a^3 - a^2 + a - 1)*q^72 + (a^2 - a)*q^74 + (a^2 + 1)*q^78 - 
        2*a^3*q^86 + q^96 + (-a^3 - a + 1)*q^98 + (-a^3 - a)*q^104 + (a^3 - a^2 
        + a)*q^114 + q^122 + (a^2 + 1)*q^126 - a*q^128 + 2*a^2*q^134 + (a^3 + a 
        - 1)*q^146 + q^150 + (-a + 1)*q^152 + (-a + 1)*q^158 + (a^3 - a^2 + a - 
        1)*q^162 + (-a^3 - a)*q^168 + (2*a^3 - a^2 + a - 2)*q^182 + (-a^3 + 
        a^2)*q^186 + (-a^3 + 1)*q^194 - a*q^200 + (-a^2 + a - 1)*q^206 + q^216 +
        (-a^3 + a^2)*q^218 + (-a^3 + a^2)*q^222 + (a^3 + a - 1)*q^224 + (-a^3 - 
        a)*q^234 + O(q^238),
    q^4 - a*q^12 + a^2*q^16 + (-a^3 + 1)*q^28 + a^2*q^36 - a^3*q^48 + (a^3 - a^2
        - 1)*q^52 + (a^3 - a^2 + a - 1)*q^64 + (-a^2 + a - 1)*q^76 + (a^3 - a^2 
        - 1)*q^84 + (a^3 - a^2 + a - 1)*q^100 - a^3*q^108 + (a^2 + 1)*q^112 + 
        (a^2 - a)*q^124 + (a^3 - a^2 + a - 1)*q^144 + (a^2 - a)*q^148 + (a^2 + 
        1)*q^156 - 2*a^3*q^172 + q^192 + (-a^3 - a + 1)*q^196 + (-a^3 - a)*q^208
        + (a^3 - a^2 + a)*q^228 + O(q^238)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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(
732
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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^2 + (a - 1)*q^4 + a*q^5 + q^8 + q^9 + (-a + 1)*q^10 - 2*a*q^13 - 
        a*q^16 + (2*a - 2)*q^17 - a*q^18 - q^20 + (2*a - 2)*q^26 + (-a + 1)*q^29
        + (a - 1)*q^32 + 2*q^34 + (a - 1)*q^36 - q^37 + a*q^40 - q^41 + a*q^45 +
        (a - 1)*q^49 + 2*q^52 - q^53 - q^58 - a*q^61 + q^64 + (-2*a + 2)*q^65 - 
        2*a*q^68 + q^72 + (-a + 1)*q^73 + a*q^74 + (-a + 1)*q^80 + q^81 + a*q^82
        - 2*q^85 - q^89 + (-a + 1)*q^90 + (-a + 1)*q^97 + q^98 + a*q^101 - 
        2*a*q^104 + a*q^106 + a*q^109 + 2*q^113 + a*q^116 - 2*a*q^117 + q^121 + 
        (a - 1)*q^122 + q^125 - a*q^128 - 2*q^130 + (2*a - 2)*q^136 + a*q^137 - 
        a*q^144 + q^145 - q^146 + (-a + 1)*q^148 - q^149 + (2*a - 2)*q^153 + 
        (2*a - 2)*q^157 - q^160 - a*q^162 + (-a + 1)*q^164 + (3*a - 3)*q^169 + 
        2*a*q^170 + (-a + 1)*q^173 + a*q^178 - q^180 + a*q^181 - a*q^185 + (-a +
        1)*q^193 - q^194 - a*q^196 + (-a + 1)*q^197 + (-a + 1)*q^202 - a*q^205 +
        (2*a - 2)*q^208 + (-a + 1)*q^212 + (-a + 1)*q^218 + 4*q^221 - 2*a*q^226 
        + a*q^229 + (-a + 1)*q^232 - q^233 + (2*a - 2)*q^234 + O(q^238),
    q^3 - a*q^6 + (a - 1)*q^12 + a*q^15 + q^24 + q^27 + (-a + 1)*q^30 - 2*a*q^39
        - a*q^48 + (2*a - 2)*q^51 - a*q^54 - q^60 + (2*a - 2)*q^78 + (-a + 
        1)*q^87 + (a - 1)*q^96 + 2*q^102 + (a - 1)*q^108 - q^111 + a*q^120 - 
        q^123 + a*q^135 + (a - 1)*q^147 + 2*q^156 - q^159 - q^174 - a*q^183 + 
        q^192 + (-2*a + 2)*q^195 - 2*a*q^204 + q^216 + (-a + 1)*q^219 + a*q^222 
        + O(q^238)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^3 - 2*a*q^7 + q^9 + a*q^13 + (-a + 1)*q^19 - 2*a*q^21 + (a - 1)*q^25 +
        q^27 + (2*a - 2)*q^31 - q^37 + a*q^39 + a*q^43 + (3*a - 3)*q^49 + (-a + 
        1)*q^57 - a*q^61 - 2*a*q^63 - 2*a*q^67 + (-a + 1)*q^73 + (a - 1)*q^75 + 
        a*q^79 + q^81 + (-2*a + 2)*q^91 + (2*a - 2)*q^93 + (2*a - 2)*q^97 + (-a 
        + 1)*q^103 + a*q^109 - q^111 + a*q^117 + q^121 - 2*a*q^127 + a*q^129 - 
        2*q^133 + (2*a - 2)*q^139 + (3*a - 3)*q^147 + (-a + 1)*q^151 + (-a + 
        1)*q^157 - q^163 + (-a + 1)*q^171 + 2*q^175 + a*q^181 - a*q^183 - 
        2*a*q^189 + (-a + 1)*q^193 + a*q^199 - 2*a*q^201 - q^211 + 4*q^217 + (-a
        + 1)*q^219 + a*q^223 + (a - 1)*q^225 - 2*a*q^229 + a*q^237 + O(q^238)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
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:=
[]
;
Bo:=
[
    q + q^4 - q^5 + q^9 - q^13 - q^14 + q^16 - q^20 - q^22 + q^36 - q^41 - q^45 
        - q^46 - q^52 - q^56 + q^61 + 2*q^62 + q^64 + q^65 + q^70 - q^73 + q^77 
        - q^80 + q^81 + 2*q^86 - q^88 + 2*q^97 - q^109 + q^110 - q^113 - q^117 -
        q^118 + q^125 - q^126 - q^134 - q^137 + 2*q^142 + q^144 - q^149 - q^158 
        + q^161 - q^164 - q^180 + q^182 - q^184 - q^197 - q^198 + q^205 - q^208 
        - 2*q^217 - q^224 - q^229 + q^230 + O(q^238),
    q^2 - q^7 + q^8 - q^10 - q^11 + q^18 - q^23 - q^26 - q^28 + 2*q^31 + q^32 + 
        q^35 - q^40 + 2*q^43 - q^44 + q^55 - q^59 - q^63 - q^67 + 2*q^71 + q^72 
        - q^79 - q^82 - q^90 + q^91 - q^92 - q^99 - q^104 - q^112 + q^115 + 
        q^122 + 2*q^124 + q^128 + q^130 - q^139 + q^140 + q^143 - q^146 - q^151 
        + q^154 - 2*q^155 - q^160 + q^162 + 2*q^172 - q^176 - q^191 + 2*q^194 - 
        q^207 + 2*q^211 - 2*q^215 - q^218 + q^220 - q^223 - q^226 - q^227 - 
        q^234 - q^236 + O(q^238),
    q^3 + q^12 - q^15 + q^27 - q^39 - q^42 + q^48 - q^60 - q^66 + q^108 - q^123 
        - q^135 - q^138 - q^156 - q^168 + q^183 + 2*q^186 + q^192 + q^195 + 
        q^210 - q^219 + q^231 + O(q^238),
    q^6 - q^21 + q^24 - q^30 - q^33 + q^54 - q^69 - q^78 - q^84 + 2*q^93 + q^96 
        + q^105 - q^120 + 2*q^129 - q^132 + q^165 - q^177 - q^189 - q^201 + 
        2*q^213 + q^216 - q^237 + O(q^238)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
732
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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^9 - q^13 - q^19 + q^25 - q^39 + q^49 - q^57 + q^81 - q^97 - q^103 - 
        q^117 - q^127 - q^163 + q^169 - q^171 + q^183 + q^187 + 2*q^199 + 
        2*q^219 + q^225 - q^229 + O(q^238),
    q^2 + q^18 - q^24 - q^26 - q^38 - q^44 + q^50 - q^68 - q^78 + q^92 + q^96 + 
        q^98 + q^104 - q^114 + q^116 - q^128 + q^132 + q^152 + q^162 - q^194 + 
        q^204 - q^206 - q^212 - q^216 - q^234 + q^236 + O(q^238),
    q^3 - q^13 - q^19 + q^27 - q^39 - q^57 + q^61 + 2*q^73 + q^75 - q^97 - q^103
        + 2*q^109 - q^117 - q^121 - q^127 + q^147 - q^163 + 2*q^169 - q^171 - 
        q^187 - q^229 + O(q^238),
    q^4 + q^36 - q^48 - q^52 - q^76 - q^88 + q^100 - q^136 - q^156 + q^184 + 
        q^192 + q^196 + q^208 - q^228 + q^232 + O(q^238),
    q^6 - q^24 - q^26 + q^32 - q^38 + q^54 - q^78 + q^104 - q^114 + q^122 - 
        q^128 + 2*q^146 + q^150 + q^152 - q^176 - q^194 - q^206 - q^216 + 
        2*q^218 - q^234 + O(q^238),
    q^8 - q^24 - q^44 - q^68 + q^72 + q^92 + q^116 - q^128 + q^132 - q^176 + 
        q^200 + q^204 - q^212 - q^216 + q^236 + O(q^238),
    q^11 + q^17 - q^23 - q^29 - q^33 - q^51 + q^53 - q^59 + q^69 + q^71 + q^87 -
        q^89 + q^99 - q^101 + q^153 - q^159 + q^173 + q^177 + q^191 - q^207 - 
        q^213 - q^227 - q^233 + O(q^238),
    q^12 + q^22 + q^34 - q^46 - q^48 - q^52 - q^58 + q^64 - q^66 - q^76 - q^102 
        + q^106 + q^108 - q^118 + q^138 + q^142 - q^156 + q^174 - q^178 + q^198 
        - q^202 + q^208 - q^228 + O(q^238),
    q^16 + q^22 + q^34 - q^46 - q^48 - q^58 - q^66 - q^88 - q^102 + q^106 - 
        q^118 - q^136 + q^138 + q^142 + q^144 + q^174 - q^178 + q^184 + q^198 - 
        q^202 + q^232 + O(q^238)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
733
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
732
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
733
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
244
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
733
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
61*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
733
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
183*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
122
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^3 - a*q^4 + (a - 1)*q^5 + a*q^12 + (a + 1)*q^13 + (-a + 1)*q^15 - q^16
        + a*q^17 + a*q^19 + (a + 1)*q^20 + (a - 1)*q^23 - a*q^25 + q^27 - q^31 +
        q^37 + (-a - 1)*q^39 + a*q^41 - a*q^47 + q^48 - a*q^49 - a*q^51 + (-a + 
        1)*q^52 + a*q^53 - a*q^57 + a*q^59 + (-a - 1)*q^60 - q^61 + a*q^64 - 
        2*q^65 + q^68 + (-a + 1)*q^69 + (-a - 1)*q^71 + a*q^75 + q^76 - a*q^79 +
        (-a + 1)*q^80 - q^81 - a*q^83 + (-a - 1)*q^85 + (a + 1)*q^92 + q^93 + 
        (-a - 1)*q^95 + a*q^97 - q^100 + (-a + 1)*q^107 - a*q^108 - q^111 + (a -
        1)*q^113 - 2*a*q^115 + a*q^121 + O(q^122)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
734
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
366
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
734
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
122
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
734
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
61*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(
734
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
183*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 + q^25 - q^46 - q^47 - q^52 - q^56 - q^61 - q^67 - q^74 + q^81 - 
        q^82 - q^91 + q^92 + q^94 + q^98 - q^101 + q^104 + q^121 + q^122 - q^124
        + q^134 - q^137 + q^148 - q^151 + q^164 - q^166 + q^169 + O(q^182),
    q^2 + q^18 - q^46 + q^50 - q^52 - q^56 - q^74 - q^82 + q^98 - q^112 - q^124 
        + q^162 - q^166 + O(q^182),
    q^4 - q^26 - q^28 + q^36 - q^56 - q^62 + q^94 + q^98 + q^100 - q^118 + q^122
        - q^128 + q^134 + O(q^182),
    q^7 + q^16 + q^26 - q^46 - q^47 - q^49 - q^52 + q^53 - q^56 - q^61 + q^62 + 
        q^63 - q^67 + q^73 - q^74 - q^82 + q^89 - q^91 + q^92 - q^101 - q^112 + 
        q^118 - q^124 - q^137 + q^144 + q^148 + q^149 - q^151 + q^164 - q^166 + 
        q^175 + q^181 + O(q^182),
    q^8 - q^16 - q^26 - q^28 + q^32 + q^46 + q^52 - q^62 - q^64 + q^72 + q^74 + 
        q^82 - q^92 - q^104 - q^118 + q^124 - q^144 - q^148 - q^164 + q^166 + 
        O(q^182),
    q^13 + q^16 + q^26 + q^28 + q^31 - q^32 - q^46 - q^47 - q^49 - 2*q^52 - q^56
        + q^59 - q^61 + q^62 + q^64 - q^67 - q^74 - q^82 - q^91 + q^92 - q^101 +
        q^104 + q^107 - q^112 + q^113 + q^117 + q^118 - 2*q^124 - q^137 + q^144 
        + q^148 - q^151 + q^161 + q^164 - q^166 + q^169 + O(q^182),
    q^14 - q^16 - q^26 + q^32 + q^52 - q^62 - q^92 + q^106 - q^118 + q^124 + 
        q^126 - q^144 + q^146 - q^148 - q^164 + q^178 + O(q^182),
    q^23 + q^26 + q^28 + q^37 + q^41 - q^46 - q^47 - q^49 - q^52 - q^61 + q^62 -
        q^67 - q^74 - q^82 + q^83 - q^101 - q^112 + q^118 - q^124 + q^128 - 
        q^137 - q^151 + q^161 - q^166 + q^173 + O(q^182)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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(
735
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 - q^46 - q^51 - q^60 - q^64 - q^79 + q^81 - q^85 - q^106 - 
        q^114 + q^121 - q^141 - q^151 + q^169 + q^186 + q^190 + O(q^194),
    q^2 + q^18 - q^23 - q^30 - q^32 + q^50 - q^53 - q^57 - q^92 + q^93 + q^95 + 
        q^107 + q^113 + q^137 - q^155 + q^162 + q^183 + O(q^194),
    q^3 - q^17 - q^20 + q^27 - q^38 - q^47 + q^62 + q^68 + q^75 + q^80 - q^83 + 
        q^122 - q^138 - q^153 - q^173 - q^180 + q^188 - q^192 + O(q^194),
    q^4 - q^15 - q^16 + q^36 - q^46 + q^51 + q^79 + q^85 + q^100 - q^106 - 
        2*q^109 - q^114 - q^135 + q^141 - q^144 + q^151 + q^186 + q^190 + 
        O(q^194),
    q^5 - q^12 - q^17 + q^38 + q^45 - q^47 + q^48 - q^62 + q^68 - q^83 - q^108 -
        q^122 + q^125 + q^138 - q^153 + 2*q^167 - q^173 + q^188 + O(q^194),
    q^6 - q^10 - q^19 + q^31 + q^54 + q^61 - q^69 - q^76 - q^90 - q^96 + q^115 +
        q^124 + q^139 + q^150 - q^159 + q^160 - q^171 - q^181 + O(q^194)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 - a^3*q^4 - a^5*q^7 + a^2*q^9 + a^4*q^12 + (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^5 - a^4 + a^3 - a^2 + a - 1)*q^21 + a^2*q^25 - a^3*q^27 - a*q^28 + 
        (a^4 - a^3)*q^31 - a^5*q^36 + (-a + 1)*q^37 + (-a^5 + 1)*q^39 + (a^4 - 
        a)*q^43 + q^48 - a^3*q^49 + (a^2 + 1)*q^52 + (a^5 - a^4 - a^2 + a - 
        1)*q^57 + (-a + 1)*q^61 + q^63 + 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^3*q^75 + (-a^5 - a)*q^76 +
        (a^4 - a^3)*q^79 + a^4*q^81 + a^2*q^84 + (a^4 + a^2)*q^91 + (-a^5 + 
        a^4)*q^93 + (-a^5 + a^2)*q^97 - a^5*q^100 + (a^5 - a^4 - a^2 + a - 
        1)*q^103 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^108 + (a^5 + a^3 - a^2 + a 
        - 1)*q^109 + (a^2 - a)*q^111 + a^4*q^112 + (a^5 - a^4 + a^3 - a^2 - 
        1)*q^117 - 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^5 + a^2)*q^129 + (-a^3 + 1)*q^133 + (a^2 + 
        1)*q^139 - a*q^144 + a^4*q^147 + (a^4 - a^3)*q^148 + (-a^5 - a)*q^151 + 
        (-a^3 - a)*q^156 + (-a^5 + 1)*q^157 + (-a^5 + 1)*q^163 + (-a^5 - a^3 - 
        a)*q^169 + (a^4 + 1)*q^171 + (a^4 + 1)*q^172 + q^175 + (-a^3 - a)*q^181 
        + (a^2 - a)*q^183 - a*q^189 - a^3*q^192 + (a^2 + 1)*q^193 + O(q^194),
    q^5 - a*q^15 - a^3*q^20 - a^5*q^35 + a^2*q^45 + a^4*q^60 + (a^5 + a^3 - a^2 
        + a - 1)*q^65 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^80 + (-a^5 + a^2)*q^95
        + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^105 + a^2*q^125 - a^3*q^135 - 
        a*q^140 + (a^4 - a^3)*q^155 - a^5*q^180 + (-a + 1)*q^185 + O(q^194)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^9 - a*q^25 + a*q^46 + (-a + 1)*q^51 + a*q^60 - q^64 + (-a + 
        1)*q^79 - a*q^81 - q^85 - q^106 + (-a + 1)*q^114 + (a - 1)*q^121 - q^141
        + a*q^151 + q^169 - a*q^186 + q^190 + O(q^194),
    q^2 + (a - 1)*q^18 - q^23 - q^30 + (-a + 1)*q^32 - a*q^50 + (-a + 1)*q^53 + 
        a*q^57 + a*q^92 + q^93 + (a - 1)*q^95 + q^107 - a*q^113 + (a - 1)*q^137 
        + a*q^155 - a*q^162 - a*q^183 + O(q^194),
    q^3 - q^17 + (-a + 1)*q^20 + (a - 1)*q^27 - q^38 + a*q^47 + (a - 1)*q^62 - 
        a*q^68 - a*q^75 + q^80 + (-a + 1)*q^83 + q^122 + a*q^138 + (-a + 
        1)*q^153 + a*q^173 + a*q^180 + (a - 1)*q^188 - q^192 + O(q^194),
    q^4 + (-a + 1)*q^15 + a*q^16 + (a - 1)*q^36 - q^46 - a*q^51 - a*q^79 + (a - 
        1)*q^85 - a*q^100 + (-a + 1)*q^106 - 2*q^109 + a*q^114 + a*q^135 + (a - 
        1)*q^141 - q^144 + q^151 + q^186 + (a - 1)*q^190 + O(q^194),
    q^5 - q^12 + (-a + 1)*q^17 + (a - 1)*q^38 + (a - 1)*q^45 - q^47 - a*q^48 + 
        a*q^62 + q^68 + a*q^83 + (-a + 1)*q^108 + (-a + 1)*q^122 - a*q^125 + 
        q^138 + a*q^153 - 2*a*q^167 - q^173 - a*q^188 + O(q^194),
    q^6 + a*q^10 + (-a + 1)*q^19 - a*q^31 + (a - 1)*q^54 + (a - 1)*q^61 - q^69 -
        q^76 - q^90 + (-a + 1)*q^96 - a*q^115 + (a - 1)*q^124 + q^139 - a*q^150 
        + (-a + 1)*q^159 + q^160 + a*q^171 - q^181 + O(q^194)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.3
;
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(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
735
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
736
);
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(
736
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
736
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
736
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
736
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
736
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
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(
736
);
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(
44
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
736
);
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(
22
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
736
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
736
);
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(
88
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
736
);
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(
44
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
736
);
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(
22
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
736
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^13 + q^25 - q^29 - q^41 + q^49 - q^69 - q^73 - q^81 + q^93 + 2*q^101 +
        q^121 + q^141 + 2*q^173 - 2*q^177 + O(q^178),
    q^2 - q^26 + q^50 - q^58 - q^82 + q^98 - q^138 - q^146 - q^162 + O(q^178),
    q^3 - q^23 - q^27 + q^31 - q^39 + q^47 - 2*q^59 + q^71 + q^75 - q^87 - q^123
        + q^127 + q^131 + q^139 + q^147 + q^151 + q^163 - 2*q^167 + O(q^178),
    q^4 - q^12 - q^52 + q^92 + q^100 + q^108 - q^116 - q^124 + q^156 - q^164 + 
        O(q^178),
    q^6 - q^46 - q^54 + q^62 - q^78 + q^94 - 2*q^118 + q^142 + q^150 - q^174 + 
        O(q^178),
    q^8 - q^24 - q^104 + O(q^178),
    q^16 - q^48 - q^64 + q^128 + O(q^178),
    q^32 - q^64 - q^96 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
736
);
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(
8
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^2*q^6 - a*q^8 + a^3*q^9 + a^2*q^12 - a^3*q^18 - a^3*q^23 + a*q^25 + 
        a*q^26 + (-a - 1)*q^27 - q^36 + (-a^2 - 1)*q^39 + a^3*q^48 + a^2*q^49 + 
        a^3*q^52 + a*q^54 + q^58 + (-a^3 + a^2)*q^59 - q^62 + a^2*q^64 + q^72 + 
        q^78 - a^2*q^81 - a^2*q^82 + (a^2 + a)*q^93 + a^3*q^94 - a^3*q^96 + (a^3
        - a^2)*q^101 - a*q^108 + q^116 + (-a + 1)*q^117 - a*q^121 + (a^3 - 
        a^2)*q^123 + a*q^124 - a*q^138 + (-a^3 + 1)*q^141 - a^3*q^142 - q^144 - 
        q^146 - a^3*q^150 - a^3*q^156 + (a^3 + a^2)*q^162 - a*q^164 + (a^2 + 
        1)*q^167 - a^3*q^169 + (a^3 - 1)*q^173 - a*q^174 + O(q^178),
    q^2 + q^4 - a*q^6 + (-a^3 + a^2)*q^9 - a^2*q^12 + (-a^2 - 1)*q^13 - a*q^16 -
        a^2*q^26 + 2*a^3*q^29 + (-a^3 - 1)*q^31 - a*q^32 + (a^3 + a^2)*q^39 + (a
        + 1)*q^41 - a^3*q^46 + (-a^2 + a)*q^47 + a^2*q^48 + a*q^50 + a*q^52 - 
        a*q^54 + a^3*q^58 - q^62 + (a^3 + a^2)*q^71 + (-a^3 - 1)*q^72 + (-a^3 + 
        a^2)*q^73 - q^78 + q^82 + (a + 1)*q^87 - a^3*q^92 + a*q^94 + a^3*q^96 + 
        a^2*q^98 + a*q^100 + (a^3 + a)*q^104 - q^108 + q^116 + (-a^3 + 
        a^2)*q^118 + (-a^3 - a)*q^123 - q^124 + (-a^3 - 1)*q^127 + a^2*q^128 + 
        (-a^2 + 1)*q^131 - q^138 + (a^3 - a)*q^139 + (-a^2 - 1)*q^141 + 
        a^3*q^142 + a^2*q^146 - a^2*q^150 + (-a - 1)*q^151 - a^2*q^156 + a*q^162
        + (-a^2 + 1)*q^163 - a^2*q^164 + (-a - 1)*q^169 + a*q^174 + O(q^178),
    q^3 - a^3*q^4 - q^6 + a*q^9 + a^3*q^13 - a^2*q^18 - a*q^24 - a*q^26 + 
        a^3*q^27 + a^2*q^29 - a^2*q^31 - q^32 + a^2*q^36 + a^2*q^39 + q^41 - 
        a*q^47 + a*q^48 - a^3*q^54 + a^2*q^58 + a^3*q^62 - a^3*q^69 + a*q^71 - 
        a^2*q^72 - a^2*q^73 + a*q^75 + a*q^78 + (-a - 1)*q^81 - a^3*q^82 - 
        a^3*q^87 - a^2*q^92 + q^93 + q^94 + q^100 + q^104 + (a^3 - 1)*q^108 + 
        (-a^2 - 1)*q^117 - q^123 + a^3*q^127 - a^3*q^131 + a^3*q^138 - q^139 - 
        a*q^141 + a^2*q^142 + a^3*q^144 + a*q^146 + a^2*q^147 - a*q^150 - q^151 
        + (a^3 - a)*q^156 + (a + 1)*q^162 - a*q^163 + a^3*q^169 + q^174 + (-a^3 
        + a^2)*q^177 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
736
);
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(
4
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^13 - a*q^23 + a*q^25 + (a + 1)*q^27 - q^31 - a*q^39 + a*q^41 
        - q^47 - q^49 + (-a - 1)*q^59 + a*q^71 - a*q^73 - q^81 + a*q^87 + (a - 
        1)*q^93 + (-a - 1)*q^101 + (a + 1)*q^117 + a*q^121 + q^127 + (-a + 
        1)*q^131 + (a + 1)*q^139 + a*q^151 + (a - 1)*q^163 - 2*a*q^169 + (-a + 
        1)*q^173 + O(q^178),
    q^2 - q^12 + a*q^16 - a*q^18 - q^24 - a*q^36 - a*q^46 + a*q^50 + a*q^52 + (a
        + 1)*q^54 + q^72 - a*q^96 - q^98 - a*q^104 + a*q^108 + q^116 + (-a - 
        1)*q^118 + q^124 - q^128 + q^144 + q^156 - q^162 - q^164 + 2*a*q^174 + 
        O(q^178),
    q^3 - q^13 - a*q^27 - q^29 + (a - 1)*q^39 + (-a + 1)*q^41 + (a + 1)*q^47 - 
        a*q^69 + (a - 1)*q^73 + a*q^75 + (a + 1)*q^81 + q^93 - a*q^123 + (-a - 
        1)*q^127 - q^131 - a*q^139 + q^141 - q^147 + (-a + 1)*q^151 + q^163 + 
        (-a - 1)*q^177 + O(q^178),
    q^4 - q^8 - a*q^12 + (-a + 1)*q^18 - q^24 - 2*q^26 + a*q^32 + q^52 + (a + 
        1)*q^62 - a*q^64 + (a - 1)*q^78 + (-a + 1)*q^82 - a*q^92 + (a + 1)*q^94 
        + q^96 + a*q^100 + a*q^104 + a*q^108 + a*q^116 - q^124 + (-a + 1)*q^142 
        + (a + 1)*q^144 + (a - 1)*q^146 + q^156 - q^164 + (a - 1)*q^174 + 
        O(q^178),
    q^6 - a*q^8 + q^12 + a*q^18 - a*q^26 - q^36 + a*q^48 + a*q^52 - a*q^54 - 
        q^58 - q^62 + q^64 - q^72 - q^78 + q^82 + a*q^94 + a*q^96 - a*q^108 - 
        q^116 - a*q^124 - a*q^138 + a*q^142 - q^144 - q^146 + a*q^150 + a*q^156 
        + (a + 1)*q^162 - a*q^164 - a*q^174 + O(q^178),
    q^9 + (-a - 1)*q^13 + a*q^31 - q^39 + q^41 + a*q^47 + q^71 - q^73 - q^87 + 
        (-a + 1)*q^123 - a*q^127 + (-a - 1)*q^131 + (-a + 1)*q^139 + (a + 
        1)*q^141 + q^151 + (a + 1)*q^163 - q^169 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
736
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^23 - q^25 + q^31 - q^39 - q^41 - q^47 + q^49 - q^71 - q^73 + q^81 + 
        q^87 - q^121 - q^127 + q^151 - 2*q^167 + O(q^178),
    q^3 + q^13 - q^27 - q^29 + q^69 - q^75 - q^93 - 2*q^117 + q^123 - q^131 + 
        q^139 + q^141 + q^147 - q^163 + O(q^178),
    q^9 + q^31 + q^39 - q^41 - q^47 - q^71 - q^73 - q^87 - q^127 + q^151 + q^169
        + O(q^178)
]
;
Bo:=
[
    q - q^23 - q^25 - q^31 + q^39 - q^41 + q^47 + q^49 + q^71 - q^73 + q^81 - 
        q^87 - q^121 + q^127 - q^151 + 2*q^167 + O(q^178),
    q^2 - q^46 - q^50 - q^62 + q^78 - q^82 + q^94 + q^98 + q^142 - q^146 + q^162
        - q^174 + O(q^178),
    q^3 - q^13 - q^27 + q^29 - q^69 - q^75 + q^93 + 2*q^117 + q^123 - q^131 + 
        q^139 - q^141 + q^147 - q^163 + O(q^178),
    q^4 + q^24 - q^32 - q^36 + q^48 - q^72 - q^92 - q^100 - q^104 + q^144 + 
        2*q^156 + O(q^178),
    q^6 - q^26 - q^54 + q^58 - q^138 - q^150 + O(q^178),
    q^8 - q^16 + q^24 - 2*q^36 + q^48 - q^64 - q^104 + 2*q^124 + q^128 + 2*q^156
        + 2*q^164 + O(q^178),
    q^9 - q^31 - q^39 - q^41 + q^47 + q^71 - q^73 + q^87 + q^127 - q^151 + q^169
        + O(q^178),
    q^12 - q^16 + q^24 - q^36 - q^52 + q^72 - q^96 - q^104 - q^108 + q^116 + 
        q^124 + q^128 + q^144 + q^156 + q^164 + O(q^178),
    q^18 - q^62 - q^78 - q^82 + q^94 + q^142 - q^146 + q^174 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
737
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
737
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
737
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
66
);
qprec:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
737
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
737
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
737
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^18 - a^16 + a^5)*q^3 + a^2*q^4 + (-a^12 - a^7 + a)*q^5 + (-a^19 - 
        a^18 + a^16 + a^15 - a^13 + a^9 + a^8 - a^6 - a^5 + a^2 - 1)*q^9 + (a^15
        - a^4)*q^11 + (-a^19 - a^18 + a^17 + a^16 - a^14 - a^13 + a^11 + a^10 + 
        a^9 - a^6 + a^4 + a^3 - a - 1)*q^12 + (-a^17 - a^14 + a^8 + a^3 - 
        a)*q^15 + a^4*q^16 + (-a^14 - a^9 + a^3)*q^20 + (a^11 - a - 1)*q^23 + 
        (a^19 + a^14 - a^13 - a^8)*q^25 + (-a^18 + a^16 - a^13 - a^12 + a^9 - 
        a^5 + a^3 + a^2 - 1)*q^27 + (a^13 + a^4 - a^2)*q^31 + (-a^19 + a^17 + 
        a^16 - a^14 - a^13 + a^10 + a^9 - a^7 - a^6 + a^4 + a^3 - a - 1)*q^33 + 
        (a^14 - a^12 - a^5 + a)*q^36 + (a^19 + a^18 - a^16 - a^15 + a^13 + 
        2*a^12 - a^10 - a^9 - a^8 + a^6 + a^5 - a^3 - a^2 + 1)*q^37 + (a^17 - 
        a^6)*q^44 + (-a^19 + a^17 + a^15 - a^11 + a^10 - a^6 - a^4 + a^2)*q^45 +
        (a^18 + a^16)*q^47 + (a^19 - a^17 - a^16 + a^14 + a^13 - a^10 + a^7 + 
        a^6 - a^4 - a^3 + a)*q^48 - a^13*q^49 + (a^19 - 2*a^17 - a^16 + a^14 + 
        a^13 - a^11 - a^10 + a^7 + a^6 - a^4 - a^3 + a + 1)*q^53 + (a^16 + 
        1)*q^55 + (-a^18 + a^10 + a^7)*q^59 + (-a^19 - a^16 + a^10 + a^5 - 
        a^3)*q^60 + a^6*q^64 - a^5*q^67 + (-a^19 + a^17 + a^16 - a^7 - a^6)*q^69
        + (a^19 + a^18 - a^16 - a^15 + a^13 + a^12 - a^10 - a^9 - a^8 + a^6 - 
        a^3 - a^2 + 1)*q^71 + (2*a^19 + a^18 - a^17 - 2*a^16 - 2*a^15 + a^14 + 
        3*a^13 + a^12 - a^11 - 2*a^10 - a^9 + 2*a^6 + a^5 - a^4 - 2*a^3 - 2*a^2 
        + a + 2)*q^75 + (-a^16 - a^11 + a^5)*q^80 + (-a^15 + a^13 - a^9 + a^6 - 
        a^2 + 1)*q^81 + (-a^13 + a^8)*q^89 + (a^13 - a^3 - a^2)*q^92 + (a^19 + 
        a^18 - a^17 - a^16 + a^14 + a^13 - a^10 - a^9 + a^7 + a^6 - a^4 - a^3 + 
        a)*q^93 + (-a^9 + a^2)*q^97 + (-a^18 + a^14 + a^7 - a^5)*q^99 + (a^19 + 
        a^18 - 2*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^9)*q^103 + (a^19 + a^18 - a^17 - a^16 - a^15 + 
        a^13 - a^10 - a^9 + a^6 + a^5 - a^3 - a^2 + a + 1)*q^108 + (a^19 - a^17 
        + a^15 - a^8 + a^6 - a^4)*q^111 + (-a^15 + a^10)*q^113 + (-a^18 + a^13 +
        a^12 + a^8 + a^7 - a^2)*q^115 - a^19*q^121 + (a^15 + a^6 - a^4)*q^124 + 
        (-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 - 2*a^6 - a^5 + 2*a^4 + a^3 + a^2 - a - 
        2)*q^125 + (-a^13 + a^11 - 1)*q^132 + O(q^134)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
737
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
737
);
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(
110
);
qprec:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
737
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
737
);
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(
22
);
qprec:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^7 - a^5)*q^3 + a^2*q^4 + (-a^7 - a)*q^5 + (a^9 - a^8 + a^7 - a^6 + 
        a^5 - a^4 - a^2 - 1)*q^9 + a^4*q^11 + (-a^9 - a^7)*q^12 + (a^8 + a^6 - 
        a^3 - a)*q^15 + a^4*q^16 + (-a^9 - a^3)*q^20 + (-a + 1)*q^23 + (a^8 - 
        a^3 + a^2)*q^25 + (a^9 + a^7 + a^5 + a^3 - a^2 + a - 1)*q^27 + (a^4 + 
        a^2)*q^31 + (-a^9 + 1)*q^33 + (-a^5 - a^3 - a)*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 + a^7 + a^5 + 
        a^3 + a)*q^45 + (-a^7 - a^5)*q^47 + (-a^9 + 1)*q^48 + a^2*q^49 + (-a^9 +
        a^6)*q^53 + (-a^5 + 1)*q^55 + (a^9 - a^8 - a^6 + a^5 - a^4 + a^3 - a^2 +
        a - 1)*q^59 + (a^9 + a^7 - a^6 - a^4 - a^2 + a - 1)*q^60 + a^6*q^64 - 
        a^5*q^67 + (a^8 - a^7 + a^6 - a^5)*q^69 + (a^9 - a^8 + a^7 - a^6 - a^4 +
        a^3 - a^2 + a - 1)*q^71 + (-a^6 + a^5 + a^3 + a - 1)*q^75 + (-a^5 + 
        1)*q^80 + (-a^9 + a^6 + a^4 + a^2 + 1)*q^81 + (a^8 + a^2)*q^89 + (-a^3 +
        a^2)*q^92 + (-2*a^9 - a^7 + 1)*q^93 + (-a^9 + a^2)*q^97 + (-a^7 - a^5 - 
        a^3)*q^99 + (a^9 - a^8 + a^7 - a^6 + a^3 - a^2 + a - 1)*q^100 + (-a^9 + 
        a^8)*q^103 + (a^9 + a^7 + a^5 - a^4 + a^3 - a^2 - 1)*q^108 + (a^8 + 
        2*a^6 + a^4)*q^111 + (a^9 - a^8 + a^7 - a^6 + a^5 + a^3 - a^2 + a - 
        1)*q^113 + (a^8 - a^7 + a^2 - a)*q^115 + a^8*q^121 + (a^6 + a^4)*q^124 +
        (-a^8 + a^7 - a^6 + a^5 - a^2 + a - 1)*q^125 + (a^2 + 1)*q^132 + 
        O(q^134)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
737
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
737
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
737
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
737
);
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:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 2*q^3 + (a - 1)*q^4 - q^5 + 3*q^9 + (a - 1)*q^11 + (2*a - 2)*q^12 - 
        2*q^15 - a*q^16 + (-a + 1)*q^20 - 2*a*q^23 + 4*q^27 + (-a + 1)*q^31 + 
        (2*a - 2)*q^33 + (3*a - 3)*q^36 + a*q^37 - a*q^44 - 3*q^45 + (-a + 
        1)*q^47 - 2*a*q^48 - a*q^49 - q^53 + (-a + 1)*q^55 - q^59 + (-2*a + 
        2)*q^60 + q^64 + (a - 1)*q^67 - 4*a*q^69 + (2*a - 2)*q^71 + a*q^80 + 
        5*q^81 - q^89 + 2*q^92 + (-2*a + 2)*q^93 + a*q^97 + (3*a - 3)*q^99 + (-a
        + 1)*q^103 + (4*a - 4)*q^108 + 2*a*q^111 + (-a + 1)*q^113 + 2*a*q^115 - 
        a*q^121 + a*q^124 + q^125 - 2*a*q^132 + O(q^134)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
737
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
33*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
737
);
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(
10
);
qprec:=
134
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
738
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
738
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*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(
738
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
738
);
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(
120
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
738
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
738
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
738
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
738
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
738
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
738
);
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(
24
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
738
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
738
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
738
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
738
);
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(
4
);
qprec:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
738
);
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:=
238
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
738
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 20*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(
739
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
738
);
qprec:=
123
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
739
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
246
);
qprec:=
123
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
739
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
82
);
qprec:=
123
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
739
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
41*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
123
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
739
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
123*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
123
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
739
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
369*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
123
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^11 + q^16 - q^17 - q^31 + q^36 - q^44 + q^49 - q^55 + q^64
        - q^67 - q^68 - q^73 + q^81 - q^85 - q^99 - q^107 + q^121 + O(q^123),
    q^5 - q^11 - q^17 + q^20 - q^25 - q^31 + q^37 + q^41 + q^43 - q^44 + q^45 + 
        q^59 - q^67 - q^68 - q^73 + q^79 + q^80 - q^99 - q^100 - q^107 + q^113 +
        q^121 + O(q^123)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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(
740
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
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(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^5*q^2 + a^10*q^4 - a^3*q^5 + (-a^9 + a^3)*q^8 + (a^11 - a^5)*q^9 + 
        a^8*q^10 + (a^10 - 2*a^4)*q^13 - a^2*q^16 + (-a^10 - a^6)*q^17 + 
        a^4*q^18 + (-a^7 + a)*q^20 + a^6*q^25 + (a^9 + a^3)*q^26 + (a^8 - a^7 - 
        a^2)*q^29 + a^7*q^32 + (a^11 + a^9 - a^3)*q^34 - a^9*q^36 - a*q^37 - 
        q^40 + (-a^8 + a^6 - 1)*q^41 + a^2*q^45 + a^5*q^49 - a^11*q^50 + (-2*a^8
        + a^2)*q^52 + (-a^11 - a^8 + a^5 + a^2)*q^53 + (a^6 + a - 1)*q^58 + 
        (a^11 - 1)*q^61 + (-a^6 + 1)*q^64 + (a^7 + a)*q^65 + (-a^10 + a^4 + 
        a^2)*q^68 + (a^8 - a^2)*q^72 + (a^9 - a^6 - a^3 + 1)*q^73 + a^6*q^74 + 
        a^5*q^80 + (-a^10 + a^4)*q^81 + (-a^11 + a^7 + a^5 - a)*q^82 + (a^9 + 
        a^7 - a)*q^85 + (-a^9 + a^4)*q^89 - a^7*q^90 + (-a^11 - a^7 + a)*q^97 - 
        a^10*q^98 + (a^10 - a^4)*q^100 + (-a^11 + a^7 - a)*q^101 + (a^7 - 
        2*a)*q^104 + (-a^4 - a)*q^106 + (-a^10 + a^4 + a^3)*q^109 + (a^8 - 
        a^2)*q^113 + (-a^11 - a^6 + a^5)*q^116 + (-a^9 + 2*a^3)*q^117 + (-a^6 + 
        1)*q^121 + (-a^10 + a^5 + a^4)*q^122 - a^9*q^125 + (a^11 - a^5)*q^128 + 
        (-2*a^6 + 1)*q^130 + (-a^7 - a^3)*q^136 + (-a^2 + a)*q^137 + a*q^144 + 
        (-a^11 + a^10 + a^5)*q^145 + (a^11 - a^5 + a^2)*q^146 - a^11*q^148 + 
        (-a^7 - a^5 + a)*q^149 + (a^9 + a^5)*q^153 + (a^10 + a^9 - a^3)*q^157 - 
        a^10*q^160 - a^3*q^162 + (-a^4 + 1)*q^164 + 2*a^2*q^169 + (-a^8 + a^2 + 
        1)*q^170 + (-a - 1)*q^173 + (-a^9 + a^8 - a^2)*q^178 + (a^6 - 1)*q^180 +
        (-a^9 - a^5 + a^3)*q^181 + a^4*q^185 + (a^7 - a^5)*q^193 + (a^10 - a^4 -
        1)*q^194 + (a^9 - a^3)*q^196 + (-a^7 + a^6 - 1)*q^197 + a^3*q^200 + 
        (a^10 - a^4 + 1)*q^202 + (a^11 - a^9 + a^3)*q^205 + (a^6 + 1)*q^208 + 
        (a^9 + a^6)*q^212 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^8 - a^2)*q^2 - a^10*q^4 + a^2*q^5 + a^6*q^8 + (-a^11 + a^5)*q^9 + 
        (a^10 - a^4)*q^10 + (-2*a^7 + a)*q^13 - a^2*q^16 + (a^9 - a^3 - a)*q^17 
        + (a^7 - a)*q^18 + (-a^6 + 1)*q^20 + a^4*q^25 + (a^9 + a^3)*q^26 + (-a^8
        + a^7 + a^2)*q^29 + (-a^10 + a^4)*q^32 + (-a^11 - a^9 + a^3)*q^34 - 
        a^9*q^36 + a^10*q^37 + a^8*q^40 + (-a^8 + a^6 - 1)*q^41 + a*q^45 - 
        a^5*q^49 - q^50 + (a^11 - 2*a^5)*q^52 + (a^8 + a^5)*q^53 + (a^10 - 
        a^3)*q^58 + (a^11 - 1)*q^61 + (a^6 - 1)*q^64 + (-2*a^9 + a^3)*q^65 + 
        (a^11 + a^7)*q^68 + a^5*q^72 + (-a^6 + a^3)*q^73 - a^6*q^74 - a^4*q^80 +
        (-a^10 + a^4)*q^81 + (-a^8 + a^4)*q^82 + (a^11 - a^5 - a^3)*q^85 + (a^9 
        - a^4)*q^89 + (a^9 - a^3)*q^90 + (-a^4 - a^2)*q^97 + a*q^98 + (-a^8 + 
        a^2)*q^100 + (-a^11 + a^7 - a)*q^101 + (-a^7 + 2*a)*q^104 + (-a^4 - 
        a)*q^106 + (a^10 - a^4 - a^3)*q^109 - a^5*q^113 + (-a^11 - a^6 + 
        a^5)*q^116 + (-2*a^6 + 1)*q^117 + (-a^6 + 1)*q^121 + (-a^8 - a^7 + 
        a^2)*q^122 + a^6*q^125 - a^8*q^128 + (a^11 + a^5)*q^130 + (-a^7 - 
        a^3)*q^136 + (a^11 - a^10)*q^137 - a*q^144 + (-a^10 + a^9 + a^4)*q^145 +
        (a^11 - a^5 + a^2)*q^146 + a^2*q^148 + (a^7 + a^5 - a)*q^149 + (a^8 - 
        a^2 - 1)*q^153 + (a^6 + a)*q^157 + q^160 + (a^6 - 1)*q^162 + (a^4 - 
        1)*q^164 - 2*a^2*q^169 + (-a^11 - a^7 + a^5 + a)*q^170 + (-a^10 - 
        a^9)*q^173 + (-a^5 + 1)*q^178 - a^11*q^180 + (-a^9 - a^5 + a^3)*q^181 + 
        (a^6 - 1)*q^185 + (a^10 - a^8 - a^4 + a^2)*q^193 + (-a^10 + a^4 + 
        1)*q^194 + (a^9 - a^3)*q^196 + (a^10 - a^4 + a^3)*q^197 + a^10*q^200 + 
        (-a^9 + a^7)*q^202 + (-a^10 + a^8 - a^2)*q^205 + (2*a^9 - a^3)*q^208 + 
        (-a^9 + a^3 + 1)*q^212 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + 1/2*(a^3 + a^2)*q^5 + (-a^5 + a^2)*q^9 + 1/2*(a^5 - a^4 - a^2 + 
        a)*q^10 + a^2*q^16 + 1/2*(-a^4 - a^3)*q^20 + 1/2*(a^4 + a^3 - 1)*q^25 + 
        (a^3 - 1)*q^26 + (-a^5 + a^4 - a)*q^29 + (-a^3 - a^2 + 1)*q^34 - q^36 + 
        1/2*(a^5 - a^2 + 1)*q^40 + (a^5 - a^3 - a^2)*q^41 + 1/2*(a^2 + a)*q^45 +
        a^5*q^49 + 1/2*(-a^2 + 1)*q^50 + (-a^2 + 1)*q^61 - a^3*q^64 + 1/2*(a^4 -
        a^3)*q^65 + (a^3 - 1)*q^74 + 1/2*(a^5 + a^4)*q^80 + (-a^4 + a)*q^81 + 
        1/2*(-a^5 - a^4 + a^3 + a^2 - 1)*q^85 + (a^4 - 1)*q^89 + 1/2*(a^4 - a^3 
        - a + 1)*q^90 + 1/2*(-a^5 - a^4 + a)*q^100 + (-a^4 - a^2)*q^101 + (-a^4 
        + a)*q^104 + (a^4 + a)*q^106 + (-a^4 + a^3 + a)*q^109 + (-a^5 + a^3 + 
        a^2 - 1)*q^116 - a^3*q^121 + 1/2*(a^3 - 2)*q^125 + 1/2*(a^5 - a^2 - 
        1)*q^130 + (a^4 + a^3 - a)*q^136 + a*q^144 + 1/2*(-a^5 - a^4 + a^2 - 
        1)*q^145 + (-a^5 + 2*a^2)*q^146 + (a^5 - a^4)*q^149 + 1/2*(-a + 1)*q^160
        + (a^4 + 1)*q^164 + 1/2*(-2*a^5 - a^4 + a^2 + 1)*q^170 + 1/2*(-a^3 - 
        a^2)*q^180 + (a^5 - a^3 + 1)*q^181 + 1/2*(a^4 - a^3)*q^185 + (-a^4 + a +
        1)*q^194 + (-a^3 + 1)*q^196 + 1/2*(a^3 - a)*q^200 + 1/2*(-a^5 - a^3 - 
        a^2 - a + 1)*q^205 + O(q^218),
    q^2 + 1/2*(-a^4 + a^3 + a - 1)*q^5 - a*q^8 + 1/2*(a^3 + a^2)*q^10 - a^5*q^13
        + (a^5 + a)*q^17 + (-a^5 + a^2)*q^18 + 1/2*(a^5 - a^4 - a^2 + a)*q^20 + 
        1/2*(a^5 - a^2 + a)*q^25 + a^2*q^32 - a^5*q^37 + 1/2*(-a^4 - a^3)*q^40 +
        1/2*(a^5 - a^3 + 1)*q^45 + 1/2*(a^4 + a^3 - 1)*q^50 + (a^3 - 1)*q^52 + 
        (-a^3 - 1)*q^53 + (-a^5 + a^4 - a)*q^58 + 1/2*(-a^5 - a^4 + a^2 + 
        a)*q^65 + (-a^3 - a^2 + 1)*q^68 - q^72 + (a^4 - 2*a)*q^73 + 1/2*(a^5 - 
        a^2 + 1)*q^80 + (a^5 - a^3 - a^2)*q^82 + 1/2*(a^5 + 2*a^4 + a^3 - a^2 - 
        a)*q^85 + 1/2*(a^2 + a)*q^90 + (a^5 + a^3 - a^2 - 1)*q^97 + a^5*q^98 + 
        1/2*(-a^2 + 1)*q^100 + q^113 - a^4*q^117 + (-a^2 + 1)*q^122 + 1/2*(a^4 -
        a)*q^125 - a^3*q^128 + 1/2*(a^4 - a^3)*q^130 + (-a^5 - a^3 + 1)*q^137 + 
        1/2*(a^5 - a^4 - a^3 + a^2)*q^145 + (a^3 - 1)*q^148 + (a^4 + 1)*q^153 + 
        (a^5 - a)*q^157 + 1/2*(a^5 + a^4)*q^160 + (-a^4 + a)*q^162 + 1/2*(-a^5 -
        a^4 + a^3 + a^2 - 1)*q^170 + (-a^5 - a^4)*q^173 + (a^4 - 1)*q^178 + 
        1/2*(a^4 - a^3 - a + 1)*q^180 + 1/2*(-a^5 - a^4 + a^2 + a)*q^185 + (a^2 
        + 1)*q^193 + (a^4 + a^2 - a)*q^197 + 1/2*(-a^5 - a^4 + a)*q^200 + (-a^4 
        - a^2)*q^202 + 1/2*(-a^5 + a^3 - a)*q^205 + (-a^4 + a)*q^208 + (a^4 + 
        a)*q^212 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*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(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^2 + (a^2 - 1)*q^4 + a^2*q^5 - q^8 + (-a^3 + a)*q^9 + (a^2 - 
        1)*q^10 - a^2*q^16 + (a^3 - a)*q^17 + a*q^18 - q^20 + (a^2 - 1)*q^25 + 
        (-a^2 - a)*q^29 + (-a^2 + 1)*q^32 - a*q^34 + a^3*q^36 + (-a^2 + 1)*q^37 
        - a^2*q^40 + (a^2 + 1)*q^41 + a*q^45 + (-a^3 + a)*q^49 - q^50 + (a^3 - 
        a^2 - a)*q^53 + (-a^3 - a^2 + 1)*q^58 + (-a^3 + a - 1)*q^61 + q^64 - 
        a^3*q^68 + (a^3 - a)*q^72 + (a^3 + 1)*q^73 + q^74 + (-a^2 + 1)*q^80 + 
        (-a^2 + 1)*q^81 + (2*a^2 - 1)*q^82 - a*q^85 + (-a^3 - a^2 + 1)*q^89 + 
        a^3*q^90 + (-2*a^2 + 1)*q^97 + a*q^98 - a^2*q^100 + a^3*q^101 + (-a^2 - 
        a + 1)*q^106 + (-a^3 + a^2 - 1)*q^109 + (2*a^3 - 2*a)*q^113 + (-a^3 + a 
        + 1)*q^116 - q^121 + (-a^2 + a)*q^122 - q^125 + a^2*q^128 + (-a^3 + 
        a)*q^136 + (-a^3 + a^2 + a - 1)*q^137 - a*q^144 + (-a^3 - a^2 + 1)*q^145
        + (a^3 + a^2 - a)*q^146 + a^2*q^148 + a^3*q^149 + (a^2 - 1)*q^153 + (a -
        1)*q^157 + q^160 + q^162 + (a^2 - 2)*q^164 + a^2*q^169 - a^3*q^170 + 
        (a^3 + a^2 - 1)*q^173 + (-a^3 + a + 1)*q^178 + (a^3 - a)*q^180 + (-2*a^3
        + a)*q^181 + q^185 - q^193 + (-a^2 + 2)*q^194 + a^3*q^196 + (a^3 + a^2 -
        1)*q^197 + (-a^2 + 1)*q^200 + (a^3 - a)*q^202 + (2*a^2 - 1)*q^205 + 
        (-a^3 + 1)*q^212 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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:=
218
;
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^3 - a)*q^9 - 
        a^2*q^10 - a^2*q^16 + a^2*q^17 + (a^2 - 1)*q^18 - a*q^20 - q^25 + (a^2 +
        a)*q^29 - a*q^32 + a*q^34 + a^3*q^36 - a*q^37 - q^40 + (a^2 + 1)*q^41 + 
        a^2*q^45 + (a^3 - a)*q^49 + (a^3 - a)*q^50 + (-a^3 - a^2 + a)*q^53 + (a 
        + 1)*q^58 + (-a^3 + a - 1)*q^61 - q^64 + q^68 + a^2*q^72 + (a^3 - 
        1)*q^73 - q^74 + (a^3 - a)*q^80 + (-a^2 + 1)*q^81 + (-a^3 + 2*a)*q^82 + 
        (-a^3 + a)*q^85 + (a^3 + a^2 - 1)*q^89 + a*q^90 + (a^3 - 2*a)*q^97 + 
        (a^2 - 1)*q^98 + (a^2 - 1)*q^100 + a^3*q^101 + (-a^2 - a + 1)*q^106 + 
        (a^3 - a^2 + 1)*q^109 - 2*a^2*q^113 + (-a^3 + a + 1)*q^116 - q^121 + 
        (a^3 - a^2 - a + 1)*q^122 + a^3*q^125 + (a^3 - a)*q^128 + (-a^3 + 
        a)*q^136 + (-a^2 + a)*q^137 + a*q^144 + (-a^3 - a^2 + a + 1)*q^145 + 
        (a^3 + a^2 - a)*q^146 + (a^3 - a)*q^148 - a^3*q^149 - a*q^153 + (a^3 - 
        a^2 + 1)*q^157 + (a^2 - 1)*q^160 - a^3*q^162 + (-a^2 + 2)*q^164 - 
        a^2*q^169 + (-a^2 + 1)*q^170 + (-a - 1)*q^173 + (a^3 + a^2)*q^178 + 
        q^180 + (-2*a^3 + a)*q^181 + (a^2 - 1)*q^185 - a^3*q^193 + (a^2 - 
        2)*q^194 + a^3*q^196 + (a + 1)*q^197 + a^3*q^200 + a^2*q^202 + (-2*a^3 +
        a)*q^205 + (-a^3 - 1)*q^212 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 + a^2*q^4 - a^3*q^8 + (-a^4 + a)*q^9 - a^2*q^13 + a^4*q^16 + (-a^3
        + a^2)*q^17 + (a^5 - a^2)*q^18 + a*q^25 + a^3*q^26 + (-a^5 - a)*q^29 - 
        a^5*q^32 + (a^4 - a^3)*q^34 + q^36 + a^2*q^37 + (-a^4 + a^3 + a - 
        1)*q^41 - a*q^49 - a^2*q^50 - a^4*q^52 - a^4*q^53 + (a^3 + a^2 - 1)*q^58
        + (a^4 + 1)*q^61 + (a^3 - 1)*q^64 + (-a^5 + a^4)*q^68 - a*q^72 - q^73 - 
        a^3*q^74 - a^5*q^81 + (a^5 - a^4 - a^2 + a)*q^82 + (a^5 - a^2 + 1)*q^89 
        + (a^5 + a^4 - a^2)*q^97 + a^2*q^98 + a^3*q^100 + (a^5 + a^4 - 
        a^2)*q^101 + a^5*q^104 + a^5*q^106 + (-a^5 + a^3 - 1)*q^109 + a*q^113 + 
        (-a^4 - a^3 + a)*q^116 - q^117 + (a^3 - 1)*q^121 + (-a^5 - a)*q^122 + 
        (a^5 + a^4 - a)*q^125 + (-a^4 + a)*q^128 + (-a^5 + a^3 - 1)*q^136 + (a^4
        + a^2)*q^137 + a^2*q^144 + a*q^146 + a^4*q^148 + (a^5 - a^2 - a)*q^149 +
        (-a + 1)*q^153 + (-a^3 + a^2)*q^157 + (a^3 - 1)*q^162 + (a^5 - a^2 + 
        1)*q^164 + (a^2 + 1)*q^173 + (-a + 1)*q^178 + (-a^3 - a)*q^181 + (-a^5 -
        a)*q^193 + (-a^5 + 1)*q^194 - a^3*q^196 + (-a^5 + a^3 - 1)*q^197 - 
        a^4*q^200 + (-a^5 + 1)*q^202 + (-a^3 + 1)*q^208 + (-a^3 + 1)*q^212 + 
        O(q^218),
    q^5 - a*q^10 + a^2*q^20 + (a^4 + a^3 - 1)*q^25 - a^3*q^40 + (-a^4 + a)*q^45 
        + (-a^5 - a^4 + a)*q^50 - a^2*q^65 + a^4*q^80 + (-a^3 + a^2)*q^85 + (a^5
        - a^2)*q^90 + (a^5 + a^3 - a^2 - 1)*q^100 + (a^5 - a^3 - a^2 - a)*q^125 
        + a^3*q^130 + (-a^5 - a)*q^145 - a^5*q^160 + (a^4 - a^3)*q^170 + q^180 +
        a^2*q^185 + (-a^4 + a + 1)*q^200 + (-a^4 + a^3 + a - 1)*q^205 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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(
36
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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(
18
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + 1/2*(a - 2)*q^5 + (-a + 1)*q^9 - 1/2*q^10 + (a - 1)*q^16 + 
        1/2*(a + 1)*q^20 + 1/2*(-a + 1)*q^25 - 2*q^26 + (2*a - 1)*q^29 - a*q^34 
        - q^36 + 1/2*a*q^40 + a*q^41 + 1/2*(2*a - 1)*q^45 + (-a + 1)*q^49 + 
        1/2*(-a + 2)*q^50 + (-a + 2)*q^61 + q^64 + (a - 1)*q^65 + q^74 + 
        1/2*(-2*a + 1)*q^80 - a*q^81 - 1/2*q^85 + (-a - 1)*q^89 + 1/2*(a - 
        1)*q^90 - 1/2*q^100 + q^101 + 2*a*q^104 + (-a - 1)*q^109 + (-a + 
        2)*q^116 + q^121 + (-a + 2)*q^130 + (a - 1)*q^136 + a*q^144 - 
        3/2*a*q^145 + q^149 + 1/2*(-a + 1)*q^160 + (-a + 1)*q^164 + (3*a - 
        3)*q^169 + 1/2*(a + 1)*q^170 + 1/2*(-a + 2)*q^180 - a*q^181 + 1/2*(-a + 
        1)*q^185 + (-a + 1)*q^194 - q^196 + 1/2*(-a - 1)*q^200 + 1/2*(-a - 
        1)*q^205 + O(q^218),
    q^2 + 1/2*(-a + 1)*q^5 - a*q^8 + 1/2*(a - 2)*q^10 + (-2*a + 2)*q^13 + q^17 +
        (-a + 1)*q^18 - 1/2*q^20 + 1/2*(2*a - 1)*q^25 + (a - 1)*q^32 + (a - 
        1)*q^37 + 1/2*(a + 1)*q^40 - 1/2*a*q^45 + 1/2*(-a + 1)*q^50 - 2*q^52 + 
        (2*a - 1)*q^58 + (2*a - 1)*q^65 - a*q^68 - q^72 + 1/2*a*q^80 + a*q^82 + 
        1/2*(a - 2)*q^85 + 1/2*(2*a - 1)*q^90 + a*q^97 + (-a + 1)*q^98 + 1/2*(-a
        + 2)*q^100 - 2*q^113 - 2*a*q^117 + (-a + 2)*q^122 - a*q^125 + q^128 + (a
        - 1)*q^130 + (a - 2)*q^137 + 1/2*(a + 1)*q^145 + q^148 + (-a + 1)*q^153 
        + (-2*a + 1)*q^157 + 1/2*(-2*a + 1)*q^160 - a*q^162 - 1/2*q^170 + (2*a -
        1)*q^173 + (-a - 1)*q^178 + 1/2*(a - 1)*q^180 + 1/2*(-2*a + 1)*q^185 + 
        a*q^193 + (2*a - 1)*q^197 - 1/2*q^200 + q^202 + 1/2*q^205 + 2*a*q^208 + 
        O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 - q^7 + a*q^11 + (a - 1)*q^17 + (-a + 1)*q^19 + a*q^21 + (a - 
        1)*q^23 + a*q^25 - a*q^27 + (-a - 1)*q^29 + q^33 - a*q^37 - a*q^41 + 
        q^47 + (a + 1)*q^51 + q^53 + (-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 + (a - 1)*q^109 - q^111 + (a + 1)*q^113 + (-a + 
        1)*q^119 - q^123 + q^127 + (a + 1)*q^131 + (a - 1)*q^133 - a*q^141 - 
        q^149 + q^157 - a*q^159 + (-a + 1)*q^161 + (-a + 1)*q^167 + a*q^169 - 
        a*q^173 - a*q^175 + (-a - 1)*q^179 + q^181 + (-a - 1)*q^187 + a*q^189 + 
        q^197 + (a + 1)*q^199 + (a + 1)*q^203 + (a + 1)*q^209 - q^211 - a*q^213 
        + O(q^218),
    q^5 - a*q^15 - q^35 + a*q^55 + (a - 1)*q^85 + (-a + 1)*q^95 + a*q^105 + (a -
        1)*q^115 + a*q^125 - a*q^135 + (-a - 1)*q^145 + q^165 - a*q^185 - 
        a*q^205 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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(
4
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 - q^4 + a*q^5 + a*q^8 + a*q^9 + q^10 + q^16 + 2*q^17 + q^18 - 
        a*q^20 - q^25 + (a - 1)*q^29 - a*q^32 - 2*a*q^34 - a*q^36 - a*q^37 - 
        q^40 - q^45 + a*q^49 + a*q^50 + (-a + 1)*q^53 + (a + 1)*q^58 + (-a - 
        1)*q^61 - q^64 - 2*q^68 - q^72 + (-a - 1)*q^73 - q^74 + a*q^80 - q^81 + 
        2*a*q^85 + (-a + 1)*q^89 + a*q^90 + q^98 + q^100 + 2*a*q^101 + (-a - 
        1)*q^106 + (-a - 1)*q^109 + 2*q^113 + (-a + 1)*q^116 - q^121 + (a - 
        1)*q^122 - a*q^125 + a*q^128 + 2*a*q^136 + (a + 1)*q^137 + a*q^144 + (-a
        - 1)*q^145 + (a - 1)*q^146 + a*q^148 - 2*a*q^149 + 2*a*q^153 + (-a - 
        1)*q^157 + q^160 + a*q^162 + q^169 + 2*q^170 + (-a - 1)*q^173 + (-a - 
        1)*q^178 + q^180 + q^185 - 2*a*q^193 - a*q^196 + (a + 1)*q^197 - a*q^200
        + 2*q^202 + (a - 1)*q^212 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*(-a + 1)*q^5 + a*q^11 + 1/2*(-a - 1)*q^15 - a*q^21 + (a + 1)*q^31 + 
        1/2*(a - 1)*q^35 + a*q^41 + 1/2*(a + 1)*q^55 + (-a - 1)*q^61 - q^71 - 
        q^75 + (-a + 1)*q^79 - q^81 + (-a - 1)*q^89 - a*q^101 + 1/2*(-a - 
        1)*q^105 + (a - 1)*q^109 - a*q^111 + 1/2*(a + 1)*q^125 + (a + 1)*q^129 +
        (-a - 1)*q^131 + 1/2*(a + 1)*q^135 + a*q^141 - q^149 + q^155 + a*q^159 +
        1/2*(-a + 1)*q^165 - a*q^169 + a*q^175 + q^181 + 1/2*(a - 1)*q^185 + 
        a*q^189 + (a + 1)*q^199 + 1/2*(a + 1)*q^205 - q^211 - a*q^215 + 
        O(q^218),
    q^3 + 1/2*(-a - 1)*q^5 - a*q^7 + 1/2*(-a + 1)*q^15 - q^25 - q^27 + a*q^33 + 
        1/2*(-a - 1)*q^35 - a*q^37 + (a + 1)*q^43 + a*q^47 + a*q^53 + 1/2*(-a + 
        1)*q^55 - q^73 + q^77 + a*q^83 + (a + 1)*q^93 + (-a - 1)*q^97 + (-a + 
        1)*q^103 + 1/2*(a - 1)*q^105 + 2*a*q^107 + (-a + 1)*q^113 + a*q^123 + 
        1/2*(a - 1)*q^125 + a*q^127 + 1/2*(a - 1)*q^135 - a*q^155 - a*q^157 + 
        1/2*(a + 1)*q^165 + (-a - 1)*q^167 - q^173 + (-a - 1)*q^183 + 1/2*(-a - 
        1)*q^185 + a*q^197 + 1/2*(-a + 1)*q^205 - q^213 + q^215 + (-a + 1)*q^217
        + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^2 + q^4 - q^5 - q^8 - a*q^9 + q^10 + q^16 - 2*a*q^17 + a*q^18 - q^20 +
        q^25 + (-a + 1)*q^29 - q^32 + 2*a*q^34 - a*q^36 - q^37 + q^40 + a*q^45 -
        a*q^49 - q^50 + (a + 1)*q^53 + (a - 1)*q^58 + (-a - 1)*q^61 + q^64 - 
        2*a*q^68 + a*q^72 + (-a + 1)*q^73 + q^74 - q^80 - q^81 + 2*a*q^85 + (a -
        1)*q^89 - a*q^90 + a*q^98 + q^100 + 2*a*q^101 + (-a - 1)*q^106 + (a + 
        1)*q^109 + 2*a*q^113 + (-a + 1)*q^116 - q^121 + (a + 1)*q^122 - q^125 - 
        q^128 + 2*a*q^136 + (-a + 1)*q^137 - a*q^144 + (a - 1)*q^145 + (a - 
        1)*q^146 - q^148 + 2*a*q^149 - 2*q^153 + (a - 1)*q^157 + q^160 + q^162 -
        q^169 - 2*a*q^170 + (-a + 1)*q^173 + (-a + 1)*q^178 + a*q^180 + q^185 + 
        2*q^193 - a*q^196 + (-a + 1)*q^197 - q^200 - 2*a*q^202 + (a + 1)*q^212 +
        O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 + (a - 1)*q^4 + q^8 - a*q^9 + (2*a - 2)*q^13 - a*q^16 + a*q^17 + 
        (a - 1)*q^18 + a*q^25 + 2*q^26 - q^29 + (a - 1)*q^32 + (-a + 1)*q^34 + 
        q^36 + (a - 1)*q^37 + (-a + 1)*q^41 - a*q^49 + (-a + 1)*q^50 - 2*a*q^52 
        - 2*a*q^53 + a*q^58 + (-a + 1)*q^61 + q^64 - q^68 - a*q^72 + 2*q^73 + 
        q^74 + (a - 1)*q^81 - q^82 + a*q^89 - q^97 + (a - 1)*q^98 - q^100 - 
        q^101 + (2*a - 2)*q^104 + (2*a - 2)*q^106 + a*q^109 - 2*a*q^113 + (-a + 
        1)*q^116 + 2*q^117 + q^121 - q^122 + q^125 - a*q^128 + a*q^136 - q^137 +
        (a - 1)*q^144 - 2*a*q^146 - a*q^148 - q^149 + (-a + 1)*q^153 + a*q^157 +
        q^162 + a*q^164 - 3*a*q^169 + a*q^173 + (-a + 1)*q^178 + (-a + 1)*q^181 
        - q^193 + a*q^194 + q^196 + a*q^197 + a*q^200 + a*q^202 + 2*q^208 + 
        2*q^212 + O(q^218),
    q^5 - a*q^10 + (a - 1)*q^20 + (-a + 1)*q^25 + q^40 - a*q^45 - q^50 + (2*a - 
        2)*q^65 - a*q^80 + a*q^85 + (a - 1)*q^90 + a*q^100 + 2*q^130 - q^145 + 
        (a - 1)*q^160 + (-a + 1)*q^170 + q^180 + (a - 1)*q^185 + (-a + 1)*q^200 
        + (-a + 1)*q^205 + O(q^218)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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(
12
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
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(
6
);
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*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(
740
);
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:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
740
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 18*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
218
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^21 + q^25 - q^26 - q^34 + q^64 - q^65 - q^84 - q^85 - 
        q^90 + q^100 - q^101 - q^104 - q^114 + q^121 - q^136 - q^141 - q^149 + 
        q^169 - q^181 + q^185 + q^186 + 2*q^194 + q^201 + q^210 + O(q^218),
    q^2 + q^8 - q^13 - q^17 + q^32 - q^42 - q^45 + q^50 - q^52 - q^57 - q^68 + 
        q^93 + 2*q^97 + q^105 - q^113 + q^117 + q^128 - q^130 + q^133 + q^153 - 
        q^168 - q^170 + q^177 - q^180 + q^200 - q^202 + 2*q^205 - q^208 - q^217 
        + O(q^218),
    q^3 - q^7 + q^12 - q^28 - q^30 - q^38 - q^47 + q^48 + q^62 - q^63 + q^67 + 
        q^70 + q^75 + q^83 + q^95 - q^107 - q^112 + q^118 - q^120 - 2*q^123 + 
        q^127 + q^147 - q^152 - q^155 + q^158 - q^175 - q^188 + q^192 + 
        O(q^218),
    q^5 - q^13 - q^17 - q^18 + q^20 + q^37 + q^42 - q^52 + q^57 - q^68 - q^72 + 
        q^80 + 2*q^82 - q^93 - q^98 - q^105 - q^113 + q^117 + q^125 - q^130 - 
        q^133 + q^148 + q^153 + q^162 + q^168 - q^170 - q^177 + 2*q^193 - q^202 
        - q^208 + q^217 + O(q^218),
    q^6 - q^14 - q^15 - q^19 + q^24 + q^31 + q^35 - q^56 + q^59 - q^60 - q^76 + 
        q^79 - q^94 + q^96 - q^111 + q^124 - q^126 - q^131 + q^134 + q^140 + 
        q^150 + q^166 - q^171 - q^179 + q^190 + q^191 - q^199 - q^214 + 
        O(q^218),
    q^9 - q^10 - q^21 + q^26 + q^34 + q^36 - q^40 - 2*q^41 + q^49 + q^65 - q^74 
        - q^81 - q^84 + q^85 + q^101 + q^104 - q^114 + q^136 - q^141 + q^144 + 
        q^149 - q^160 - 2*q^164 - 2*q^169 + q^181 + q^186 + q^196 + q^201 + 
        q^210 + O(q^218)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
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 + O(q^180),
    q^19 - q^57 - q^76 + q^171 + O(q^180)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^3 + a^5*q^4 + (-a^11 + a^10 - a^4)*q^7 + a^2*q^9 + a^6*q^12 - a*q^13
        + a^10*q^16 - a^9*q^19 + (a^11 - a^6 - a^5 + 1)*q^21 - a^5*q^25 + 
        a^3*q^27 + (-a^10 + a^4 - a^3)*q^28 + (a^8 + a^7 - a)*q^31 + a^7*q^36 + 
        (a^8 - a^7 - a^2)*q^37 - a^2*q^39 + (-a^8 + a^6 - 1)*q^43 + a^11*q^48 + 
        (a^9 - a^8 - a^4 + a^2)*q^49 - a^6*q^52 - a^10*q^57 + (-a^9 - a^7 + a^3 
        + a)*q^61 + (-a^7 + a - 1)*q^63 + (a^9 - a^3)*q^64 + (-a^9 + a^4 + 
        a^3)*q^67 + (-a^11 + a^5 - 1)*q^73 - a^6*q^75 + (-a^8 + a^2)*q^76 + 
        (a^11 + a^9 - a^3)*q^79 + a^4*q^81 + (-a^11 + a^5 - a^4)*q^84 + (-a^11 +
        a^6 + a^5 - 1)*q^91 + (a^9 + a^8 - a^2)*q^93 + (-a^10 - a^7)*q^97 - 
        a^10*q^100 + (a^4 - a^2)*q^103 + a^8*q^108 + (-a^10 + a^7 + a^4)*q^109 +
        (a^9 - a^8 - a^3)*q^111 + (-a^8 + a^3)*q^112 - a^3*q^117 + a^9*q^121 + 
        (a^7 - a - 1)*q^124 + (a^11 - 2*a^5)*q^127 + (-a^9 + a^7 - a)*q^129 + 
        (a^7 - a^2)*q^133 + (-a^6 - a^4 + 1)*q^139 + (a^6 - 1)*q^144 + (a^10 - 
        a^9 - a^5 + a^3)*q^147 + (-a^6 - a + 1)*q^148 + (a^6 - a^3)*q^151 - 
        a^7*q^156 + (a^8 - a^6)*q^157 + (a^11 + a^10)*q^163 + a^2*q^169 - 
        a^11*q^171 + (a^11 - a^7 - a^5 + a)*q^172 + (a^10 - a^4 + a^3)*q^175 + 
        O(q^180)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^7*q^3 + (a^11 - a^5)*q^4 + (-a^8 + a^2 + a)*q^7 + (a^8 - a^2)*q^9 - 
        a^6*q^12 + a^9*q^13 + (-a^10 + a^4)*q^16 + (a^6 - 1)*q^19 + (a^8 + 
        a^3)*q^21 - a^5*q^25 - a^3*q^27 + (a^7 - a - 1)*q^28 + (-a^11 + a^5 - 
        a^4)*q^31 + (-a^7 + a)*q^36 + (a^11 + a^4)*q^37 + (a^10 - a^4)*q^39 + 
        (a^6 - a^2)*q^43 + a^5*q^48 + (-a^10 - a^9 + a^3 + a^2)*q^49 - a^8*q^52 
        - a*q^57 + (-a^9 - a^7)*q^61 + (a^10 + a^9 - a^3)*q^63 + (a^9 - 
        a^3)*q^64 + (-a^6 - a + 1)*q^67 + (-a^9 - a^8)*q^73 + (-a^6 + 1)*q^75 - 
        a^11*q^76 + (-a^11 - a^9 + a^3)*q^79 - a^10*q^81 + (-a^7 - a^2)*q^84 + 
        (a^10 + a^5)*q^91 + (-a^11 + a^6)*q^93 + (a^10 - a^7 + a)*q^97 + 
        a^4*q^100 + (-a^4 + a^2)*q^103 + a^2*q^108 + (a^10 - a^7 - a^4)*q^109 + 
        (a^11 - 1)*q^111 + (-a^11 - a^6 + a^5 + 1)*q^112 - a^5*q^117 - a^3*q^121
        + (a^10 - a^4 + a^3)*q^124 + (a^11 + a^5)*q^127 + (-a^9 + a^7 - a)*q^129
        + (a^8 + a^7 - a)*q^133 + (-a^10 + a^6 + a^4)*q^139 + (a^6 - 1)*q^144 + 
        (-a^11 + a^9 + a^5 + a^4)*q^147 + (-a^10 - a^3)*q^148 + (a^9 + a^6 - a^3
        - 1)*q^151 + (-a^9 + a^3)*q^156 + (a^8 - a^6)*q^157 + (a^8 - a^7 - a^2 +
        a)*q^163 - q^169 - a^8*q^171 + (-a^5 + a)*q^172 + (-a^6 - a)*q^175 + 
        O(q^180)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^3 + a^5*q^4 + (-a^4 - a^2 + a)*q^7 + a^2*q^9 + (a^3 - 1)*q^12 + 
        a*q^13 - a*q^16 - q^19 + (-a^5 - a^3 + a^2)*q^21 + a^5*q^25 + a^3*q^27 +
        (-a^4 + a^3 + a)*q^28 + (a^5 - a^4 - a^2)*q^31 + (a^4 - a)*q^36 + (-a^5 
        + a^4 - a)*q^37 + a^2*q^39 + (a^5 - a^3 - a^2)*q^43 - a^2*q^48 + (-a^5 +
        a^4 - 1)*q^49 + (a^3 - 1)*q^52 - a*q^57 + (-a^4 - a^3 + 1)*q^61 + (-a^4 
        + 1)*q^63 + (-a^3 + 1)*q^64 + (a^4 - a^3 + 1)*q^67 + (-a^5 + a^2 + 
        1)*q^73 + (a^3 - 1)*q^75 - a^5*q^76 + (-a^3 - a^2 + 1)*q^79 + a^4*q^81 +
        (-a^5 + a^4 + a^2)*q^84 + (-a^5 - a^3 + a^2)*q^91 + (-a^5 - 1)*q^93 + 
        (a^4 - 2*a)*q^97 - a*q^100 + (a^4 + a^2)*q^103 + (a^5 - a^2)*q^108 + 
        (a^5 - a^3 - a^2 + 1)*q^111 + (a^5 + a^3 - a^2)*q^112 + a^3*q^117 - 
        q^121 + (-a^4 + 1)*q^124 + a^2*q^127 + (-a^4 - 1)*q^129 + (a^4 + a^2 - 
        a)*q^133 + (a^4 - a^3)*q^139 - a^3*q^144 + (a^5 - a^3 - a + 1)*q^147 + 
        (-a^3 + a)*q^148 + (2*a^3 - 1)*q^151 + (a^4 - a)*q^156 + (a^5 + a^3 - 
        a^2 - 1)*q^157 + (-a^2 - a)*q^163 + a^2*q^169 - a^2*q^171 + (-a^5 - a^4 
        + a^2)*q^172 + (-a^4 + a^3 + a)*q^175 + O(q^180)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^4 + a)*q^3 + (a^5 - a^2)*q^4 + (-a^5 - a)*q^7 - a^5*q^9 + (a^3 - 
        1)*q^12 + q^13 + (-a^4 + a)*q^16 - a^3*q^19 + (a^5 - a^3 - a^2)*q^21 - 
        a^5*q^25 - a^3*q^27 + (a^4 + 1)*q^28 + (a^5 + a^4 - a^2)*q^31 + a^4*q^36
        + (a^4 + a^2)*q^37 + (-a^4 + a)*q^39 + (a^3 + a^2 - 1)*q^43 - a^5*q^48 +
        (a^3 + a^2 - a - 1)*q^49 + (a^5 - a^2)*q^52 - a*q^57 + (-a^4 + a + 
        1)*q^61 + (a^3 - a - 1)*q^63 + (a^3 - 1)*q^64 + (-a^3 - a)*q^67 + (a^5 -
        a^2 + 1)*q^73 - a^3*q^75 + a^2*q^76 + (a^3 + a^2 - 1)*q^79 - a*q^81 + 
        (-a^4 + a^2 + a)*q^84 + (-a^5 - a)*q^91 + (a^3 + a^2 - 1)*q^93 + (a^4 - 
        a)*q^97 + a^4*q^100 + (a^4 + a^2)*q^103 + a^2*q^108 + (-2*a^4 + 
        2*a)*q^109 + (a^2 + 1)*q^111 + (a^5 - a^3 - a^2)*q^112 - a^5*q^117 - 
        a^3*q^121 + (-a^4 - a^3 + a)*q^124 + (-a^5 + a^2)*q^127 + (a^4 + 
        1)*q^129 + (a^5 + a^4 - a^2)*q^133 + (-a^4 + a^3 + a - 1)*q^139 - 
        a^3*q^144 + (a^5 + a^4 - a^2 + 1)*q^147 + (-a^3 - a)*q^148 - q^151 + 
        (a^3 - 1)*q^156 + (a^5 + a^3 - a^2 - 1)*q^157 + (-a^5 + a^4)*q^163 + 
        q^169 + (a^5 - a^2)*q^171 + (-a^5 - a)*q^172 + (a^3 - a - 1)*q^175 + 
        O(q^180)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^3 - a^5*q^4 + (-a^4 + a^2 + a)*q^7 + a^2*q^9 + (a^3 - 1)*q^12 - 
        a*q^13 - a*q^16 + q^19 + (a^5 - a^3 - a^2)*q^21 - a^5*q^25 - a^3*q^27 + 
        (-a^4 - a^3 + a)*q^28 + (a^5 + a^4 - a^2)*q^31 + (-a^4 + a)*q^36 + (-a^5
        - a^4 + a)*q^37 + a^2*q^39 + (a^5 - a^3 - a^2)*q^43 + a^2*q^48 + (-a^5 +
        a^4 + 1)*q^49 + (a^3 - 1)*q^52 - a*q^57 + (a^4 + a^3 - 1)*q^61 + (a^4 + 
        1)*q^63 + (a^3 - 1)*q^64 + (a^4 + a^3 - 1)*q^67 + (a^5 - a^2 + 1)*q^73 +
        (a^3 - 1)*q^75 - a^5*q^76 + (a^3 + a^2 - 1)*q^79 + a^4*q^81 + (a^5 + a^4
        - a^2)*q^84 + (a^5 - a^3 - a^2)*q^91 + (-a^5 + 1)*q^93 - a^4*q^97 - 
        a*q^100 + (a^4 + a^2)*q^103 + (a^5 - a^2)*q^108 + (-2*a^4 + 2*a)*q^109 +
        (a^5 + a^3 - a^2 - 1)*q^111 + (a^5 - a^3 - a^2)*q^112 - a^3*q^117 + 
        q^121 + (a^4 + 1)*q^124 - a^2*q^127 + (a^4 + 1)*q^129 + (-a^4 + a^2 + 
        a)*q^133 + (a^4 - a^3)*q^139 - a^3*q^144 + (-a^5 + a^3 - a - 1)*q^147 + 
        (-a^3 - a)*q^148 - q^151 + (-a^4 + a)*q^156 + (a^5 + a^3 - a^2 - 
        1)*q^157 + (a^2 - a)*q^163 + a^2*q^169 + a^2*q^171 + (a^5 + a^4 - 
        a^2)*q^172 + (-a^4 - a^3 + a)*q^175 + O(q^180)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^4 - a)*q^3 + (-a^5 + a^2)*q^4 + (-a^5 + a)*q^7 - a^5*q^9 + (a^3 - 
        1)*q^12 - q^13 + (-a^4 + a)*q^16 - a^3*q^19 + (a^5 + a^3 - a^2)*q^21 + 
        a^5*q^25 + a^3*q^27 + (-a^4 + 1)*q^28 + (-a^5 + a^4 + a^2)*q^31 - 
        a^4*q^36 + (a^4 - a^2)*q^37 + (-a^4 + a)*q^39 + (a^3 + a^2 - 1)*q^43 + 
        a^5*q^48 + (-a^3 + a^2 - a + 1)*q^49 + (a^5 - a^2)*q^52 + a*q^57 + (a^4 
        - a - 1)*q^61 + (-a^3 - a + 1)*q^63 + (-a^3 + 1)*q^64 + (-a^3 + a)*q^67 
        + (a^5 - a^2 - 1)*q^73 - a^3*q^75 - a^2*q^76 + (-a^3 - a^2 + 1)*q^79 - 
        a*q^81 + (a^4 + a^2 - a)*q^84 + (a^5 - a)*q^91 + (a^3 - a^2 - 1)*q^93 + 
        (-a^4 - a)*q^97 + a^4*q^100 + (a^4 + a^2)*q^103 + a^2*q^108 + (-a^2 + 
        1)*q^111 + (-a^5 - a^3 + a^2)*q^112 + a^5*q^117 + a^3*q^121 + (-a^4 + 
        a^3 + a)*q^124 + (a^5 - a^2)*q^127 + (-a^4 - 1)*q^129 + (a^5 - a^4 - 
        a^2)*q^133 + (-a^4 + a^3 + a - 1)*q^139 - a^3*q^144 + (-a^5 + a^4 + a^2 
        - 1)*q^147 + (a^3 - a)*q^148 + (-2*a^3 + 1)*q^151 + (-a^3 + 1)*q^156 + 
        (a^5 + a^3 - a^2 - 1)*q^157 + (-a^5 - a^4)*q^163 + q^169 + (a^5 - 
        a^2)*q^171 + (a^5 + a)*q^172 + (a^3 + a - 1)*q^175 + O(q^180)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^3 - a)*q^4 + 1/2*(a^3 - 1)*q^7 + a^2*q^9 + 1/2*(-a^3 - a)*q^13 + 
        (-a^2 + 1)*q^16 + 1/2*(a^3 + 1)*q^19 + 1/2*(2*a^3 - a^2 - a - 1)*q^21 + 
        (-a^3 + a)*q^25 + 1/2*(-a^3 - a^2 + a)*q^28 + 1/2*(-a^3 - 2*a^2 + 2*a + 
        1)*q^31 - a*q^36 + 1/2*(-a^3 + 2*a^2 + 2*a - 1)*q^37 - 1/2*q^39 - 
        a^3*q^49 + 1/2*(a^2 + 1)*q^52 + 1/2*(a^2 - a - 1)*q^57 + 1/2*(a^3 - a^2 
        - a)*q^63 + a^3*q^64 + 1/2*(-a^3 + a^2 - a - 2)*q^67 + 1/2*(a^2 + a - 
        1)*q^73 + 1/2*(a^3 - a^2 - a)*q^76 + (a^2 - 1)*q^81 + 1/2*(-a^3 - 2*a^2 
        + 2*a + 1)*q^84 + 1/2*(-a^2 + 2)*q^91 + 1/2*(a^2 - a - 1)*q^93 + (a^2 - 
        1)*q^100 + 1/2*(a^2 + a - 1)*q^111 + 1/2*(a^2 + a - 1)*q^112 + 
        1/2*(-2*a^3 + a)*q^117 - a^3*q^121 + 1/2*(a^3 + a^2 + a - 2)*q^124 + 
        (a^3 + a)*q^129 - a^2*q^133 - a^2*q^139 + q^144 + (-2*a^3 + a)*q^147 + 
        1/2*(-a^3 + a^2 - a - 2)*q^148 + 1/2*(-a^3 + a)*q^156 + (-a^2 + 1)*q^157
        + 1/2*(-a^3 + 1)*q^163 + 1/2*(a^2 - 1)*q^169 + 1/2*(a^3 + a^2 - a)*q^171
        + 1/2*(a^3 + a^2 - a)*q^175 + O(q^180),
    q^3 + 1/2*(a^3 + a^2 + a - 2)*q^7 + (a^3 - a)*q^12 + 1/2*(a^2 - 1)*q^13 + 
        1/2*(a^3 + a^2 - a)*q^19 + 1/2*(a^3 - 1)*q^21 + a^2*q^27 + 1/2*(-2*a^3 -
        a^2 + a - 1)*q^28 + 1/2*(a^3 + a^2 - a)*q^31 + 1/2*(-a^3 + a^2 + a)*q^37
        + 1/2*(-a^3 - a)*q^39 + (-a^3 + 2*a)*q^43 + (-a^2 + 1)*q^48 + (-a^3 - 
        a)*q^49 - 1/2*a^3*q^52 + 1/2*(a^3 + 1)*q^57 + (-a^2 - 1)*q^61 + 
        1/2*(2*a^3 - a^2 - a - 1)*q^63 + 1/2*(-a^2 + a + 1)*q^67 + 1/2*(a^3 - 
        2*a^2 - 2*a + 1)*q^73 + (-a^3 + a)*q^75 + 1/2*(-a^2 - a + 1)*q^76 + q^79
        + 1/2*(-a^3 - a^2 + a)*q^84 + 1/2*(-2*a^2 + a + 2)*q^91 + 1/2*(-a^3 - 
        2*a^2 + 2*a + 1)*q^93 + (a^3 + 1)*q^97 + (a^3 - a)*q^103 - a*q^108 + 
        (-a^3 - 1)*q^109 + 1/2*(-a^3 + 2*a^2 + 2*a - 1)*q^111 + 1/2*(-a^3 + 
        2*a^2 + 2*a - 1)*q^112 - 1/2*q^117 + 1/2*(-a^2 - a + 1)*q^124 - q^133 - 
        a^3*q^147 + 1/2*(a^2 - a - 1)*q^148 + (a^3 - a^2 - a)*q^151 + 1/2*(a^2 +
        1)*q^156 + 1/2*(-a^3 - a^2 - a + 2)*q^163 + 1/2*(-a^3 + 2*a)*q^169 + 
        1/2*(a^2 - a - 1)*q^171 + (a^2 - 2)*q^172 + 1/2*(2*a^3 + a^2 - a + 
        1)*q^175 + O(q^180)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + (a - 1)*q^4 - q^7 + (a - 1)*q^9 + q^12 - 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 + a*q^43 + 
        (a - 1)*q^48 - 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*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 + 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*q^157 - 
        q^163 + a*q^169 + (a - 1)*q^171 - q^172 + (-a + 1)*q^175 + O(q^180),
    q^13 - a*q^39 + (a - 1)*q^52 - q^91 + (a - 1)*q^117 + q^156 + (-a + 1)*q^169
        + O(q^180)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^3 + (-a + 1)*q^4 + (a - 1)*q^9 + q^12 + 1/2*(a - 1)*q^13 - a*q^16 + 
        (-a + 1)*q^25 - q^27 + a*q^36 - 1/2*q^39 + a*q^43 + (-a + 1)*q^48 - 
        2*q^49 + 1/2*a*q^52 + (a - 1)*q^61 - q^64 + q^75 - a*q^79 - a*q^81 + 
        1/2*(-3*a + 3)*q^91 - a*q^100 - q^103 + (a - 1)*q^108 - 1/2*a*q^117 - 
        q^121 + (-2*a + 2)*q^127 + (a - 1)*q^129 + (2*a - 1)*q^133 + (-a + 
        1)*q^139 + q^144 - 2*a*q^147 + 1/2*(a - 1)*q^156 + a*q^157 + 1/2*a*q^169
        + q^172 + O(q^180),
    q^7 + 1/2*(a - 1)*q^13 + 1/3*(-2*a + 1)*q^19 + a*q^21 + (-a + 1)*q^28 - q^31
        - q^37 - 1/2*q^39 + 1/2*a*q^52 + 1/3*(-a + 2)*q^57 + (a - 1)*q^63 + (-a 
        + 1)*q^67 + a*q^73 + 1/3*(-a - 1)*q^76 + q^84 + 1/2*(a - 1)*q^91 - 
        a*q^93 - a*q^111 - a*q^112 - 1/2*a*q^117 + (a - 1)*q^124 + (a - 1)*q^148
        + 1/2*(a - 1)*q^156 + q^163 - 1/2*a*q^169 + 1/3*(a + 1)*q^171 + (-a + 
        1)*q^175 + O(q^180)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (-a + 1)*q^7 - q^9 - q^16 + 1/2*(a + 1)*q^19 + a*q^25 + (-a - 
        1)*q^28 + a*q^36 + q^39 - a*q^49 + 1/2*(a + 1)*q^57 + (a - 1)*q^63 + 
        a*q^64 + (a - 1)*q^73 + 1/2*(-a + 1)*q^76 + q^81 + (-a - 1)*q^93 + q^100
        + (a - 1)*q^111 + (a - 1)*q^112 - a*q^121 + q^133 - 2*q^139 + q^144 - 
        a*q^156 + 2*q^157 + (a - 1)*q^163 - q^169 + 1/2*(-a - 1)*q^171 + (a + 
        1)*q^175 + O(q^180),
    q^3 - a*q^12 - q^13 + 1/2*(-a - 1)*q^19 + (-a + 1)*q^21 - q^27 + (a + 
        1)*q^31 + (-a + 1)*q^37 - q^48 + a*q^52 + 1/2*(a + 1)*q^57 + (a + 
        1)*q^67 + a*q^75 + 1/2*(a - 1)*q^76 - 2*q^79 + (-a - 1)*q^84 + (a - 
        1)*q^91 + (a + 1)*q^97 + 2*a*q^103 + a*q^108 + (-a - 1)*q^109 + q^117 + 
        (-a + 1)*q^124 - q^133 - a*q^147 + (-a - 1)*q^148 + (-a + 1)*q^151 + 
        1/2*(a + 1)*q^171 + O(q^180)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
741
);
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:=
180
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^16 - q^17 - q^23 + q^25 - q^26 - q^38 - q^43 + q^49 - q^61 + 
        q^62 + q^64 + q^74 + q^81 + q^82 - q^101 + q^104 + q^118 + q^121 - q^131
        + q^134 - q^139 - 2*q^142 - q^144 + q^152 - q^153 - q^157 + q^169 - 
        2*q^178 + O(q^180),
    q^2 - q^8 - q^13 + q^18 - q^19 + q^31 - q^34 + q^37 + q^41 - q^46 + q^50 + 
        q^59 + q^67 - 2*q^71 - q^72 - q^86 - 2*q^89 + q^97 + q^98 + q^109 - 
        q^117 - q^122 + q^128 + q^136 + q^151 + q^162 + q^167 - q^171 + 
        O(q^180),
    q^3 + q^27 - q^48 - q^51 - q^69 + q^75 - q^78 - q^114 - q^129 + q^147 + 
        O(q^180),
    q^6 - q^24 - q^39 + q^54 - q^57 + q^93 - q^102 + q^111 + q^123 - q^138 + 
        q^150 + q^177 + O(q^180)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
742
);
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(
742
);
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(
742
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
742
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
742
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
742
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 - a^7*q^7 + (a^3 + 1)*q^8 - a^4*q^9 + (-a^11 + a^10 - a^9 + a^8 + 
        a^6 - a^5 + a^4 - a^3 + a^2 - a + 1)*q^11 + (a^11 - a^10 + a^9 - a^8 + 
        a^7 - a^6 - a^4 + a^3 - 2*a^2 + a - 1)*q^16 + (-a^10 - a^3)*q^23 - 
        a^8*q^25 + a^8*q^28 + (-a^5 + a^2)*q^29 + (-a^11 + a^7 + a^4 + a)*q^32 +
        a^5*q^36 + (a^3 + a)*q^37 + (a^9 - 1)*q^43 + (-a^8 - 1)*q^44 - a*q^49 - 
        a^9*q^53 + (-a^10 - a^7)*q^56 + a^11*q^63 + (a^10 - a^9 - a^6 - a^3 - 
        1)*q^64 + (a^10 + a^5)*q^67 + (a^5 + a^4)*q^71 + (-a^7 - a^4)*q^72 + 
        (-a^6 + a)*q^77 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3
        - a^2 + a - 2)*q^79 + a^8*q^81 + (-a^11 + 2*a^10 - a^9 + a^8 + a^6 - a^5
        + a^4 - a^3 + 2*a^2 - a + 1)*q^88 + (a^11 + a^4)*q^92 + (-a^11 - 
        a^3)*q^99 + a^9*q^100 + (a^11 - a^2)*q^107 + (a^11 - a^10 + 2*a^9 - a^8 
        + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^112 + (a^8 + a^6)*q^113 + (a^6 
        - a^3)*q^116 + (-a^11 + a^6 - a)*q^121 + (-a^11 + a^10 - a^9 + a^8 - a^7
        + 2*a^6 - a^5 + a^4 - a^3 + a^2 - a + 1)*q^127 + (a^10 - 2*a^9 + 2*a^8 -
        a^7 + a^6 + a^4 - a^3 + 2*a^2 - a + 1)*q^128 + (a^11 - a^10 + a^9 - 
        2*a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^137 + (a^9 + a^6 + 
        a^3)*q^144 + (-a^4 - a^2)*q^148 + (-a^5 + a^4)*q^149 + (a^10 - 
        a^6)*q^151 + (a^10 - a^4)*q^161 + (a^8 - a^7)*q^163 - a^11*q^169 + 
        (-a^10 + a)*q^172 - a^2*q^175 + (a^10 - 2*a^9 + a^8 - a^7 - a^5 - a^3 + 
        a^2 - 2*a + 1)*q^176 + (-a^6 + a^4)*q^179 + (-a^10 - a^6 - a^3 + 
        1)*q^184 + (a^11 + 1)*q^193 + a^2*q^196 + (a^9 + a^3)*q^197 + (-a^11 - 
        a^8)*q^200 + (a^11 - a^10 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a 
        - 1)*q^203 + (a^7 - a)*q^207 + O(q^210),
    q^2 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 2*a^2 + a - 
        1)*q^4 + (-a^11 + a^4 + a)*q^8 - a^7*q^14 + (a^10 - a^6 - a^3 - 1)*q^16 
        - a^4*q^18 + (-a^11 + a^10 - a^9 + a^8 + a^6 - a^5 + a^4 - a^3 + a^2 - a
        + 1)*q^22 + (a^9 + a^6)*q^28 + (-a^11 + a^10 - 2*a^9 + 2*a^8 - a^7 + a^6
        + a^4 - a^3 + 2*a^2 - a + 1)*q^32 + (a^6 + a^3)*q^36 + (a^11 - a^9 - a^6
        - a)*q^44 + (-a^10 - a^3)*q^46 - a^8*q^50 + (-a^11 - a^8 - a^5)*q^56 + 
        (-a^5 + a^2)*q^58 + (a^11 - a^10 + a^8 - a^7 - a^4 - a)*q^64 + (-a^8 - 
        a^5 - a^2)*q^72 + (a^3 + a)*q^74 + (a^9 - 1)*q^86 + (a^11 - a^10 + a^8 +
        a^5 + a^3 + 1)*q^88 + (a^11 - a^10 + 2*a^9 - a^8 + a^7 - a^6 + 2*a^5 - 
        a^4 + a^3 + a - 1)*q^92 - a*q^98 + (a^10 + a^7)*q^100 - a^9*q^106 + 
        (a^10 + a^7 + a^4 - 1)*q^112 + (a^7 - a)*q^116 + a^11*q^126 + (a^11 - 
        2*a^10 + 2*a^9 - a^8 + a^5 - a^4 + 2*a^3 - a^2 + a)*q^128 + (a^10 + 
        a^5)*q^134 + (a^5 + a^4)*q^142 + (a^10 + a^7 + a^4 + a)*q^144 + (-a^5 - 
        a^3 - a^2 - 1)*q^148 + (-a^6 + a)*q^154 + (a^11 - a^10 + a^9 - a^8 + a^7
        - a^6 + a^5 - a^4 + a^3 - a^2 + a - 2)*q^158 + a^8*q^162 + (-2*a^11 + 
        a^10 - a^9 - a^7 + a^6 - a^5 + a^4 - a^3 + 2*a^2 - a + 1)*q^172 + (a^11 
        - 2*a^10 + 2*a^9 - a^8 - a^6 - 2*a^4 + a^3 - 2*a^2 + a)*q^176 + (-a^11 -
        a^8 - a^7 - a^4)*q^184 + (a^3 + 1)*q^196 + (-a^11 - a^3)*q^198 + (-a^11 
        + a^10 - 2*a^9 + a^8 - a^7 - a^5 + a^4 - a^3 + a^2 - a + 1)*q^200 + 
        O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
742
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
742
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^2*q^4 - a*q^7 + (-a^6 - 1)*q^8 + a^8*q^9 + (-a^11 - a)*q^11 + (a^11 - 
        a^10 - a^4)*q^16 + (-a^7 + a^6)*q^23 - a^3*q^25 + a^3*q^28 + (a^10 + 
        a^4)*q^29 + (a^9 - a^8 - a^2 + a)*q^32 - a^10*q^36 + (a^6 + a^2)*q^37 + 
        (-a^5 + 1)*q^43 + (a^3 - 1)*q^44 + a^2*q^49 - a^5*q^53 + (a^7 + a)*q^56 
        - a^9*q^63 + (-a^11 + a^10 - a^9 + a^8 + a^4 - a^3 + a^2 - a)*q^64 + 
        (a^10 - a^7)*q^67 + (a^10 + a^8)*q^71 + (-a^8 + a)*q^72 + (a^11 - a^10 +
        a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^77 + (-a^11 + 1)*q^79
        - a^3*q^81 + (a^11 + a^7 - a^4 + a)*q^88 + (a^9 - a^8)*q^92 + (-a^9 + 
        a^6)*q^99 + a^5*q^100 + (-a^9 + a^4)*q^107 + 2*a^4*q^109 + (a^10 - a^9 +
        a^8 - a^7 + a^6 + a^4 - a^3 + a^2 - a + 1)*q^112 + (a^11 - a^10 + a^9 - 
        a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^113 + (-a^11 + a^10 - a^9 +
        a^8 - a^7 - a^5 + a^4 - a^3 + a^2 - a + 1)*q^116 + (a^11 - a^10 - a^8 + 
        a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^121 + (-a^10 + a^9 - a^8 + a^7 - 
        a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^127 + (a^11 - a^10 + a^9 + a^5 - 
        a^4 + a^3)*q^128 + (-a^11 - a^3)*q^137 + (-a^11 + a^10 - a^9 + a^8 - a^7
        + a^4 - a^3 + a^2 - a + 1)*q^144 + (-a^8 - a^4)*q^148 + (a^10 + 
        a^8)*q^149 + (a^11 - a^10 + a^9 - a^8 - a^6 + a^5 - a^4 + a^3 - a^2 + a 
        - 1)*q^151 + (a^8 - a^7)*q^161 + (-a^3 - a)*q^163 - a^9*q^169 + (a^7 - 
        a^2)*q^172 + a^4*q^175 + (a^10 - a^7 + a^6 + a^4 - a^3 - a + 1)*q^176 + 
        (a^11 - a^10 + a^9 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^179 + 
        (-a^11 + a^10 - a^9 + a^8 - a^5 + a^4 - a^3 + a^2 - a)*q^184 - 
        2*a^5*q^191 + (-a^9 + 1)*q^193 - a^4*q^196 + (a^6 - a^5)*q^197 + (a^9 + 
        a^3)*q^200 + (-a^11 - a^5)*q^203 + (a^2 - a)*q^207 + O(q^210),
    q^2 + (-a^11 + a^4)*q^4 + (-a^9 + a^8 + a^2)*q^8 - a*q^14 + (a^11 - a^10 + 
        a^9 - a^8 + a^5 - a^4 + a^3 - a^2 + a)*q^16 + a^8*q^18 + (-a^11 - 
        a)*q^22 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 - a^4 + a^3 - a^2 + a - 
        1)*q^28 + (-a^11 + a^10 - a^5 + a^4 - a^3)*q^32 + (a^11 - a^10 + a^9 - 
        a^8 + a^7 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^36 + (a^11 - a^10 - a^8 + 
        a^7 - a^6 - a^4 + a^3 + a - 1)*q^44 + (-a^7 + a^6)*q^46 - a^3*q^50 + 
        (a^10 - a^9 - a^3)*q^56 + (a^10 + a^4)*q^58 + (-a^9 + a^8 - a^7 - a^3 + 
        a^2 - a)*q^64 + (a^10 + a^4 - a^3)*q^72 + (a^6 + a^2)*q^74 + (-a^5 + 
        1)*q^86 + (a^10 - a^9 - a^7 + a^6 - a^3 + 1)*q^88 + (-a^11 + a^10 - a^5 
        + a^4)*q^92 + a^2*q^98 + (-a^7 - a)*q^100 - a^5*q^106 + (a^8 - a^7 - a +
        1)*q^112 + (2*a^8 + a^2 - a)*q^116 - a^9*q^126 + (-a^10 + a^9 - a^8 - 
        a^4 + a^3 - a^2)*q^128 + (a^10 - a^7)*q^134 + (a^10 + a^8)*q^142 + (a^8 
        - a^7 + a^2 - a)*q^144 + (a^10 + a^6 + a^4 + 1)*q^148 + (a^11 - a^10 + 
        a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^154 + (-a^11 + 
        1)*q^158 - a^3*q^162 + (-a^11 - a^9 + a^4 - a^3)*q^172 + (-a^11 + a^10 +
        a^8 - a^7 - a^5 + a^4 - a + 1)*q^176 + (-a^9 + a^8 - a^3 + 2*a^2 - 
        a)*q^184 + (a^6 + 1)*q^196 + (-a^9 + a^6)*q^198 + (-a^10 + a^9 - a^8 + 
        a^7 - a^6 - a^4 + a^3 - a^2 + a - 1)*q^200 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
742
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
742
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^2 - a + 1)*q^5 + a^3*q^6 + (-a^3 + a)*q^7 + (a^3 - 1)*q^8 + a*q^9 + 
        (-a^3 + a)*q^11 + (-a^2 - a + 1)*q^12 - q^13 + (-a^3 + 1)*q^14 + (-a^2 +
        1)*q^16 + (-a^3 + a)*q^17 + (-a^3 + a^2 + a)*q^18 + (a^2 - a - 1)*q^19 +
        a^2*q^24 + (a^3 - a)*q^25 + (2*a^2 - 2)*q^28 + a^3*q^29 + (-a^2 + a + 
        1)*q^30 + (a^3 + a^2 - a)*q^31 + (-a^3 - a^2 + a)*q^32 + (-a^3 + 1)*q^34
        + (-a^3 - 1)*q^35 - 2*q^36 - a*q^37 + (a^3 - a)*q^38 + 2*a*q^40 - 
        a^2*q^42 + a^3*q^43 + (-a^3 - a^2 + a)*q^45 + (a^2 - 1)*q^47 + (-a^2 + 
        1)*q^49 - a^2*q^53 + (-a^3 - 1)*q^55 + (a^2 + a - 1)*q^58 + (-a^3 + 
        a)*q^59 + (2*a^3 - 2*a)*q^60 + 2*a^3*q^62 + q^63 + 2*a^3*q^64 + (a^2 + a
        - 1)*q^65 + a^2*q^66 + (2*a^2 - 2)*q^68 - 2*a*q^70 + (a^3 - 1)*q^71 + 
        (a^3 - a^2 - a)*q^74 + (-a^3 + 1)*q^76 + (-a^2 + 1)*q^77 - a^3*q^78 + 
        (a^3 - a^2 - a)*q^80 + a^2*q^81 + (a^3 + 1)*q^83 + (a^3 + 1)*q^84 + 
        (-a^3 - 1)*q^85 + (a^3 + a^2 - a)*q^88 + (-a^2 + 1)*q^89 - 2*a^3*q^90 + 
        (a^3 - a)*q^91 + (a^3 + a^2 - a)*q^94 + 2*a^2*q^95 - a*q^96 + q^99 - 
        a^2*q^102 + (-a^3 + 1)*q^104 - a^3*q^106 + (a^3 + a^2 - a)*q^109 - 
        a^3*q^112 - a^3*q^113 - 2*a^2*q^116 - a*q^117 + (-a^2 + 1)*q^119 + (-a^3
        + 1)*q^120 - a^2*q^122 + (-2*a^2 - 2*a + 2)*q^124 + a*q^131 + (-a^3 - 
        1)*q^132 + (a^3 - 1)*q^133 - q^134 + (-a^3 - a^2 + a)*q^137 + (a^3 - 
        1)*q^139 + (-2*a^3 + 2*a^2 + 2*a)*q^140 + (a^2 - 1)*q^142 + (a^3 - 
        a)*q^143 + (-a^3 + a)*q^144 + (-a^2 + a + 1)*q^145 + a^3*q^146 + 2*q^148
        - a*q^149 - a^2*q^150 + (-a^3 - a^2 + a)*q^151 + (-a^2 + 1)*q^152 + 
        q^153 + (-a^3 - a^2 + a)*q^154 + 2*q^155 + (a^2 + a - 1)*q^156 + (-a^3 +
        a^2 + a)*q^157 - 2*q^160 + (a^3 + 1)*q^162 + a*q^166 - a*q^168 - 
        2*a*q^170 + (a^3 - a^2 - a)*q^171 + q^174 + (a^2 - 1)*q^175 - a^3*q^176 
        + (-a^3 - a^2 + a)*q^178 + (a^3 + a^2 - a)*q^179 + (2*a^2 + 2*a - 
        2)*q^180 + (a^3 - 1)*q^182 + (a^3 + a^2 - a)*q^185 + (-a^3 + a^2 + 
        a)*q^186 + (-a^2 + 1)*q^187 - 2*a^3*q^188 + (a^3 + 1)*q^190 + (-a^3 + 
        a^2 + a)*q^192 + (a^3 - a^2 - a)*q^193 - a^3*q^197 + (-a^2 + a + 
        1)*q^198 + (a^3 - a)*q^199 + (-a^3 - a^2 + a)*q^200 - a^3*q^202 + 
        a^2*q^203 + (a^3 + 1)*q^204 + (a^2 - 1)*q^208 + (a^3 - 1)*q^209 + 
        O(q^210),
    q^2 + (a^3 - a)*q^8 + (-a^2 - a + 1)*q^10 + (-a^3 + a)*q^14 + a*q^18 + (-a^3
        + a)*q^22 - q^26 + (-a^2 + 1)*q^32 + (-a^3 + a)*q^34 + (a^2 - a - 
        1)*q^38 + (a^3 + 1)*q^40 + (a^3 - a)*q^50 + (a^2 - 1)*q^56 + a^3*q^58 + 
        (a^3 + a^2 - a)*q^62 + (-a^3 - 1)*q^70 - q^72 - a*q^74 + a^3*q^86 + (a^2
        - 1)*q^88 + (-a^3 - a^2 + a)*q^90 + (a^2 - 1)*q^94 + (-a^2 + 1)*q^98 + 
        (-a^3 + a)*q^104 - a^2*q^106 + (-a^3 - 1)*q^110 + (-a^3 + a)*q^118 + 
        q^126 + a^3*q^128 + (a^2 + a - 1)*q^130 + (a^2 - 1)*q^136 + (a^3 - 
        1)*q^142 + (-a^3 + 1)*q^152 + (-a^2 + 1)*q^154 + (a^3 - a^2 - a)*q^160 +
        a^2*q^162 + (a^3 + 1)*q^166 + (-a^3 - 1)*q^170 + (-a^2 + 1)*q^178 + (a^3
        - a)*q^182 + 2*a^2*q^190 + q^198 + (-a^2 + 1)*q^200 + O(q^210),
    q^3 + (-a^3 - 1)*q^7 + a*q^8 + (-a^3 - a^2 + a)*q^9 + (a^3 - a)*q^12 + (-a^2
        - a + 1)*q^15 + (a^3 - a^2 - a)*q^16 + (-a^3 - 1)*q^17 + a^2*q^19 + (a^3
        - a)*q^21 + (-a^3 + 1)*q^24 + (-a^3 + a^2 + a)*q^28 + (-a^2 + a + 
        1)*q^29 + 2*q^31 + (-a^3 + a)*q^33 + (2*a^2 - 2)*q^35 + (a^2 + a - 
        1)*q^36 + (a^3 + a^2 - a)*q^37 - q^39 + (-a^3 - a^2 + a)*q^40 - 2*q^45 +
        (-a^3 + a^2 + a)*q^47 + (a^2 - 1)*q^48 + (a^3 - a)*q^51 - q^53 - q^56 + 
        (a^3 + 1)*q^60 + (a^3 - a)*q^61 + (-a^2 + a + 1)*q^64 + a^3*q^67 + (-a^3
        + a^2 + a)*q^68 + a*q^71 - a^2*q^72 + q^73 + (a^3 - a)*q^75 - a*q^76 + 
        (a^3 - a^2 - a)*q^77 + 2*a^3*q^80 + (-a^3 + 1)*q^81 + (-a^2 + 1)*q^83 + 
        (-a^2 + 1)*q^84 + (2*a^2 - 2)*q^85 - a^3*q^87 + q^88 + (a^3 - a^2 - 
        a)*q^89 + (a^3 + 1)*q^91 + (-a^3 - a^2 + a)*q^93 + (-a^3 + 1)*q^95 + 
        (-a^2 - a + 1)*q^99 - q^101 - a*q^104 + (a^3 + 1)*q^105 + (-a^3 + a^2 + 
        a)*q^107 + q^109 + a*q^111 + (a^2 - a - 1)*q^113 + (a^3 - 1)*q^116 + 
        (a^3 + a^2 - a)*q^117 - 2*a*q^120 + (2*a^3 - 2*a)*q^124 + a*q^127 + (a^3
        - a)*q^128 + a^3*q^129 + (a^2 - 1)*q^132 + a*q^133 - q^136 - q^137 + 
        2*a*q^139 - 2*a^3*q^140 + (-a^2 + 1)*q^141 - 2*a^2*q^145 + (-a^2 + 
        1)*q^147 + (-a^2 - a + 1)*q^148 - q^151 + (-2*a^2 - 2*a + 2)*q^155 + 
        (-a^3 + a)*q^156 - a^3*q^157 + (a^3 - a)*q^159 + (-a^3 - 1)*q^165 + (a^3
        + a^2 - a)*q^168 + a^3*q^171 + (-a^3 + a^2 + a)*q^175 + (a^2 - a - 
        1)*q^176 + (-a^3 + a)*q^177 + (-2*a^3 + 2*a)*q^180 + (a^2 + a - 1)*q^183
        + 2*q^185 + (a^3 - a^2 - a)*q^187 + (a^2 - a - 1)*q^188 - a^2*q^191 - 
        a^3*q^192 + a^3*q^193 + (a^2 + a - 1)*q^195 - q^200 + (-a^3 + a^2 + 
        a)*q^201 + (-a^2 + 1)*q^204 + (-a^3 + a^2 + a)*q^208 + a*q^209 + 
        O(q^210),
    q^4 + (a^2 - 1)*q^6 + (a^2 - a - 1)*q^8 + (-a^3 - a^2 + a)*q^12 + (-a^2 + a 
        + 1)*q^14 + (a^3 + 1)*q^18 + (-a^2 - a + 1)*q^20 + a^3*q^24 + (a^3 - 
        a)*q^28 + (-a^3 + a^2 + a)*q^30 + (-a^3 + 1)*q^32 + (-a^2 + a + 1)*q^34 
        - a*q^36 - q^38 + 2*a^2*q^40 - a^3*q^42 + (-a^3 + a)*q^44 - q^52 + (a^3 
        + a^2 - a)*q^58 - 2*q^60 + (2*a^2 - 2)*q^62 + (a^2 - 1)*q^64 + a^3*q^66 
        + (a^3 - a)*q^68 - 2*a^2*q^70 + (-a^3 - 1)*q^74 + (-a^2 + 1)*q^78 + (a^2
        + a - 1)*q^84 + (a^3 - 1)*q^88 + (-2*a^2 + 2)*q^90 + (a^3 - 1)*q^94 - 
        a^2*q^96 + (a^3 - a)*q^100 - a^3*q^102 + (-a^2 + a + 1)*q^104 + (-a^2 + 
        1)*q^106 - a^3*q^116 + (-a^2 + a + 1)*q^120 - a^3*q^122 + (-a^3 - a^2 + 
        a)*q^124 + (-a^2 - a + 1)*q^132 - a*q^134 + (a^3 + 1)*q^140 + (a^3 - 
        a)*q^142 + (a^2 - 1)*q^146 + a*q^148 - a^3*q^150 + (-a^3 + a)*q^152 + 
        (-a^3 + 1)*q^154 + (a^3 + a^2 - a)*q^156 - 2*a*q^160 + (a^2 + a - 
        1)*q^162 + a^2*q^166 - a^2*q^168 - 2*a^2*q^170 + a^3*q^172 + a*q^174 + 
        (-a^3 + 1)*q^178 + (a^3 + a^2 - a)*q^180 + (a^2 - a - 1)*q^182 + (a^3 + 
        1)*q^186 + (-a^2 + 1)*q^188 + (a^2 + a - 1)*q^190 + (a^3 + 1)*q^192 + 
        (-a^2 + 1)*q^196 + (-a^3 + a^2 + a)*q^198 + (-a^3 + 1)*q^200 + (-a^2 + 
        1)*q^202 + (a^2 + a - 1)*q^204 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
742
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^4 + (a - 1)*q^7 + a*q^9 + (a - 1)*q^11 + (-2*a + 1)*q^13 - 
        a*q^16 + (a + 1)*q^17 + (-a + 1)*q^25 - a*q^28 - q^29 - q^36 - a*q^37 + 
        q^43 - a*q^44 + (-a + 2)*q^47 - a*q^49 + (a + 1)*q^52 + (a - 1)*q^53 + 
        (-a - 1)*q^59 - q^63 + q^64 + (a - 2)*q^68 - a*q^77 + (a - 1)*q^81 + (-a
        + 2)*q^89 + (a + 1)*q^91 - q^99 + a*q^100 + 2*a*q^107 + q^112 - q^113 + 
        (-a + 1)*q^116 + (-a + 2)*q^117 + (a - 2)*q^119 + (a - 2)*q^131 + (a + 
        1)*q^143 + (-a + 1)*q^144 + q^148 + a*q^149 + (2*a - 1)*q^153 - 
        2*a*q^163 - 2*q^169 + (a - 1)*q^172 + a*q^175 + q^176 + (a - 2)*q^187 + 
        (2*a - 1)*q^188 + q^196 + q^197 + (-a - 1)*q^199 + (-a + 1)*q^203 + (a -
        2)*q^208 + O(q^210),
    q^2 + (a - 1)*q^8 + (a - 1)*q^14 + a*q^18 + (a - 1)*q^22 + (-2*a + 1)*q^26 -
        a*q^32 + (a + 1)*q^34 + (-a + 1)*q^50 - a*q^56 - q^58 - q^72 - a*q^74 + 
        q^86 - a*q^88 + (-a + 2)*q^94 - a*q^98 + (a + 1)*q^104 + (a - 1)*q^106 +
        (-a - 1)*q^118 - q^126 + q^128 + (a - 2)*q^136 - a*q^154 + (a - 1)*q^162
        + (-a + 2)*q^178 + (a + 1)*q^182 - q^198 + a*q^200 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
742
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^11 - q^15 + q^16 - q^37 - q^43 - q^44 + q^49 - q^57 - q^60 - 
        q^63 + q^64 - q^77 + q^93 + q^95 + q^99 + q^105 - q^107 + 2*q^113 + 
        q^121 + q^123 - q^148 + 2*q^149 - q^155 + q^169 - q^172 - q^175 - q^176 
        + q^183 + q^196 - q^197 + 2*q^203 - q^205 + O(q^210),
    q^2 + q^8 - q^22 - q^30 + q^32 - q^74 - q^86 - q^88 + q^98 - q^114 - q^120 -
        q^126 + q^128 - q^154 + q^186 + q^190 + q^198 + O(q^210),
    q^3 - q^5 + q^12 - q^19 - q^20 - q^21 + q^31 + q^35 + q^41 - q^45 + q^48 + 
        q^61 - q^73 + q^75 - q^76 - q^80 + q^83 - q^84 - 2*q^87 + q^101 - q^103 
        + q^124 + q^133 - q^139 + q^140 + 2*q^145 + q^147 + q^157 - q^159 + 
        q^164 - q^167 - q^171 - q^173 - q^180 - q^181 + q^192 + O(q^210),
    q^6 - q^10 + q^24 - q^38 - q^40 - q^42 + q^62 + q^70 + q^82 - q^90 + q^96 + 
        q^122 - q^146 + q^150 - q^152 - q^160 + q^166 - q^168 - 2*q^174 + q^202 
        - q^206 + O(q^210),
    q^7 - q^9 - q^11 + q^15 - q^25 + q^28 + 2*q^29 - q^36 - q^37 - q^43 - q^44 +
        q^53 + q^57 + q^60 - q^77 + q^81 - q^93 - q^95 + q^99 - q^100 - q^105 - 
        q^107 + q^112 + 2*q^116 + 2*q^121 - q^123 - q^144 - q^148 + q^155 + 
        2*q^163 - q^172 - q^176 - q^183 - q^197 + q^205 + O(q^210),
    q^14 - q^18 - q^22 + q^30 - q^50 + q^56 + 2*q^58 - q^72 - q^74 - q^86 - q^88
        + q^106 + q^114 + q^120 - q^154 + q^162 - q^186 - q^190 + q^198 - q^200 
        + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
743
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
742
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
743
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
106
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
743
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
53*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
743
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
371*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
124
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^12 + q^18 + q^19 - q^22 - q^24 + q^25 - q^36 - q^38 + q^41 - q^47 + 
        q^49 - q^54 - q^57 + q^62 - q^69 - q^74 + q^76 - q^82 - q^83 - q^92 + 
        q^93 - q^96 - q^99 + q^106 + q^108 - q^111 + q^114 + q^121 - q^123 + 
        O(q^124),
    q^2 + q^18 - q^24 - q^27 - q^37 - q^46 + q^50 - q^66 - q^81 + q^93 + q^98 + 
        q^99 + q^103 - q^111 + q^121 + O(q^124),
    q^3 - q^18 - q^19 + q^27 - q^41 - q^44 + q^64 + q^66 + q^75 + q^86 - q^88 + 
        q^92 - q^93 + O(q^124),
    q^4 - q^12 - q^23 - q^33 + q^36 + q^47 + q^57 - q^66 + q^69 - q^86 + q^99 + 
        q^100 - q^108 - q^109 + q^123 + O(q^124),
    q^6 - q^12 - q^18 - q^19 + q^24 + q^32 + q^33 - q^41 + q^43 - q^44 + q^46 - 
        q^48 + q^54 - q^62 + q^66 + q^71 - q^72 - q^76 - q^88 - q^93 + q^96 + 
        q^101 - q^106 - q^114 + O(q^124),
    q^8 - q^12 - q^18 - q^19 + q^24 + q^27 + q^32 + q^37 - q^41 - q^44 + q^46 - 
        q^48 - q^62 + q^66 - q^76 + q^81 - q^88 - q^93 + q^94 + q^96 - q^106 + 
        q^111 + O(q^124),
    q^9 - q^12 - q^18 - q^19 + q^22 + q^24 + q^36 + q^38 - q^41 - q^48 - q^62 - 
        q^76 + q^81 + q^82 + q^83 - q^93 + q^96 - q^106 - q^108 + q^111 - q^114 
        + O(q^124),
    q^11 - q^12 - q^19 + q^22 + q^36 - q^41 - q^62 + q^69 - q^93 + q^96 + q^97 +
        q^99 - q^106 - q^108 - q^114 + O(q^124),
    q^16 - q^18 - q^19 + q^23 + q^33 - q^41 - q^44 + q^54 - q^62 + q^64 + q^66 -
        q^72 + q^74 - q^76 + q^86 - q^88 + q^92 - q^93 - q^106 + q^109 - q^114 +
        O(q^124),
    q^31 - q^32 - q^33 + q^36 + q^38 - q^43 - q^46 + q^53 + q^57 - q^66 - q^71 +
        q^82 + q^88 - q^101 - q^108 + q^123 + O(q^124)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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(
744
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 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(
744
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
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(
744
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
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(
744
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
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(
744
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4
;
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(
744
);
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:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + (-a^7 + a^4)*q^7 + a^2*q^9 + (-a^6 - a^5 - a^4 + a^3 + a^2 + 
        a)*q^13 + (a^7 - a^6 - a^2 + a)*q^19 + (-a^7 + a^4 + a^3 - a - 1)*q^21 +
        (a^5 - 1)*q^25 - a^3*q^27 + a^6*q^31 + (a^7 + 2*a^6 - a^4 - a^3 - a^2 + 
        1)*q^37 + (a^7 + a^6 + a^5 - a^4 - a^3 - a^2)*q^39 + (-a^5 - a^3)*q^43 +
        (a^5 - a^2)*q^49 + (2*a^7 - a^5 - a^4 - a^2 + a + 1)*q^57 + (a^7 - a^3 -
        a^2)*q^61 + (-a^7 + a^3 + a^2 - 1)*q^63 + (-a^7 + a^5 + a^4 + a^3 + a^2 
        - a - 1)*q^67 + (-2*a^7 - a^6 + a^3 + a^2 - 1)*q^73 + (-a^6 + a)*q^75 + 
        (a^5 + a^4 - 1)*q^79 + a^4*q^81 + (a^7 - 2*a^5 - a^4 + a^2 + 1)*q^91 - 
        a^7*q^93 + (-a^5 - a)*q^97 + (a^7 - a^5 - a^4 + a + 2)*q^103 + (a^5 + 
        a^2 - 1)*q^109 + (-a^7 + 1)*q^111 + (-a^6 + a + 1)*q^117 - a*q^121 + 
        (-2*a^7 - a^6 + a^5 + a^4 + 2*a^3 + a^2 - a - 2)*q^127 + (a^6 + 
        a^4)*q^129 + (a^4 - a^3 - a + 1)*q^133 + (a^7 - a^2 + 1)*q^139 + (-a^6 +
        a^3)*q^147 + (a^6 - a^4 - a^3 - a^2 + 1)*q^151 + (a^2 - a)*q^157 + (-a^7
        + a^5 + a^4 + a^3 - 2*a - 1)*q^163 + (-a^7 - a^6 - a^3 + a)*q^169 + 
        (2*a^7 + a^6 - a^5 - 2*a^4 - a^3 - a^2 + a + 2)*q^171 + (a^7 + a^6 - a^4
        - a^3 + 1)*q^175 + (a^6 + a^4)*q^181 + (a^7 - a^5 + a + 1)*q^183 + (-a^7
        + a^5 - 1)*q^189 + (a^6 - a^5)*q^193 + (-a^5 + a^2)*q^199 + (-a^7 - a^6 
        + a^2 - 1)*q^201 + (-a^7 - 2*a^6 + a^3 + a^2 + a - 1)*q^211 + (a^7 - a^4
        + a)*q^217 + (-a^7 + 2*a^5 + a^4 + a^3 - a - 2)*q^219 + (a^5 + a^4 + a^3
        - a^2 - a - 1)*q^223 + (a^7 - a^2)*q^225 + (a^7 - a^6 - a^2 + a)*q^229 +
        (-a^6 - a^5 + a)*q^237 + (-a^7 + a^5 + a^4 - a - 1)*q^241 + O(q^242),
    q^2 - a*q^6 + (-a^7 + a^4)*q^14 + a^2*q^18 + (-a^6 - a^5 - a^4 + a^3 + a^2 +
        a)*q^26 + (a^7 - a^6 - a^2 + a)*q^38 + (-a^7 + a^4 + a^3 - a - 1)*q^42 +
        (a^5 - 1)*q^50 - a^3*q^54 + a^6*q^62 + (a^7 + 2*a^6 - a^4 - a^3 - a^2 + 
        1)*q^74 + (a^7 + a^6 + a^5 - a^4 - a^3 - a^2)*q^78 + (-a^5 - a^3)*q^86 +
        (a^5 - a^2)*q^98 + (2*a^7 - a^5 - a^4 - a^2 + a + 1)*q^114 + (a^7 - a^3 
        - a^2)*q^122 + (-a^7 + a^3 + a^2 - 1)*q^126 + (-a^7 + a^5 + a^4 + a^3 + 
        a^2 - a - 1)*q^134 + (-2*a^7 - a^6 + a^3 + a^2 - 1)*q^146 + (-a^6 + 
        a)*q^150 + (a^5 + a^4 - 1)*q^158 + a^4*q^162 + (a^7 - 2*a^5 - a^4 + a^2 
        + 1)*q^182 - a^7*q^186 + (-a^5 - a)*q^194 + (a^7 - a^5 - a^4 + a + 
        2)*q^206 + (a^5 + a^2 - 1)*q^218 + (-a^7 + 1)*q^222 + (-a^6 + a + 
        1)*q^234 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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(
30
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^3*q^4 + (a^5 - 1)*q^6 + (a^6 - a^5)*q^7 + a^2*q^9 + (-a^6 + a^2 + 
        a)*q^10 + (-a^7 - a^6 + a^2 - 1)*q^15 + a^6*q^16 + (a^4 + 1)*q^22 + (a^7
        - a^5 - a^4 + a + 1)*q^24 + (a^5 + a^4 - a - 1)*q^25 + (-2*a^7 - a^6 + 
        a^5 + a^4 + 2*a^3 + a^2 - a - 2)*q^28 + (a^7 - a^5 - a^4 + a + 1)*q^31 +
        (-a^7 - a^6 + a)*q^33 - a^5*q^36 + (a^7 + a^6 - a^5 - a^4 - a^3 - a^2 + 
        1)*q^40 + (-a + 1)*q^42 + (a^7 - a^6 + a^5 - a^2 + a - 1)*q^49 + (a^7 - 
        a^2)*q^54 + (a^7 + a^6 + a^5 - a^3 - 2*a^2 - a)*q^55 + (a^6 - a^4 - a^3 
        - a^2 + 1)*q^58 + (a^7 + a^6 - a^2)*q^60 + (-2*a^7 + a^5 + a^4 + a^3 - a
        - 1)*q^63 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^64 + (-2*a^7 + a^5 + a^4 + 
        a^3 + a^2 - 2*a - 1)*q^70 + (a^7 + a^6 - a^4 - a^3 + 1)*q^73 + (a^7 - 
        a^5 - a^4 + 1)*q^79 + a^4*q^81 + (a^7 + 2*a^6 - a^4 - a^3 - a^2 + 
        1)*q^87 + (-a^7 - a^3)*q^88 + (a^7 - a^5 + a + 1)*q^90 - a*q^96 + 
        a^3*q^97 + (-a^5 + a + 1)*q^100 + (-a^7 - a^6 + a^4 + a^3 + a^2 - 
        1)*q^103 + (-a^7 + a^5 + a^3 - a)*q^105 + (a^7 + a^5 - a^2 - 1)*q^106 + 
        (a^7 - a^6 - a^2 + a)*q^112 + (-a^7 - 2*a^6 + a^3 + a^2 + a - 1)*q^118 +
        (a^7 - a^5 - a^2 - a)*q^121 - a*q^124 + (a^7 - a^5 - a^2)*q^127 + (a^7 +
        a^6 + a^5 - a^4 - a^3 - a^2)*q^132 + (-a^6 - a^5 + a)*q^135 + (-a^7 + 
        a^5 + a^4 + a^3 - a - 1)*q^144 + (a^6 - a^5 - a^4 + a + 2)*q^145 + (a^7 
        - a^5 - a^4 - a^3 - a^2 + a + 1)*q^150 + (-a^6 + a^5 + a - 1)*q^151 + 
        (-a^7 + a^3 + a^2 - 2)*q^154 + (a^4 + a^2)*q^159 + (-a^7 + a^5 + a^4 + 
        a^3 + a^2 - a - 1)*q^160 + (a^7 - a^5 - a^4 - a^3 + a + 1)*q^166 + (a^4 
        - a^3)*q^168 - a^7*q^169 + (-2*a^7 + a^5 + a^3 + a^2 - a - 1)*q^175 + 
        (-a^3 - a)*q^177 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^186 + (-a^7 - a^6 
        + a^3 + 2*a^2 - 1)*q^193 + (2*a^7 + a^6 - a^5 - 2*a^4 - a^3 - a^2 + a + 
        3)*q^196 + (a^6 + a^2)*q^198 + (-a^7 + 1)*q^199 + (-a^7 + a^5 + 2*a^4 + 
        a^3 - a - 1)*q^202 + (a^7 + a^6 - a^4 - 2*a^3 - a^2 + 1)*q^214 + q^216 +
        (a^4 - a^3)*q^217 + (a^2 + a + 1)*q^220 + (-a^3 + a^2)*q^223 + (a^7 + 
        a^6 - a^3 - a^2)*q^225 + (2*a^7 - a^5 - a^4 + 1)*q^231 + (a^5 + a^2 - 
        1)*q^232 + (-a^7 - a^6 + a^3 + a^2)*q^240 + (a^6 - a^5)*q^241 + 
        O(q^242),
    q^2 - a^7*q^3 + (a^6 + a^5 - a^2 - a)*q^5 - a^3*q^8 + (a^7 - a^2 - a)*q^11 +
        (a^5 - 1)*q^12 + (a^6 - a^5)*q^14 + a^2*q^18 + (-a^6 + a^2 + a)*q^20 + 
        (2*a^7 - a^5 - a^4 - a^2 + a + 1)*q^21 + (-a^7 - a^6 + a^3 + a^2 - 
        1)*q^27 + (-a^6 + a^4 + a)*q^29 + (-a^7 - a^6 + a^2 - 1)*q^30 + a^6*q^32
        + (2*a^7 + a^6 - 2*a^5 - a^4 - a^3 - a^2 + a + 2)*q^35 + (a^4 + 1)*q^44 
        + (a^5 - a - 1)*q^45 + (a^7 - a^5 - a^4 + a + 1)*q^48 + (a^5 + a^4 - a -
        1)*q^50 + (-2*a^7 - a^6 + a^3 + a^2 - 1)*q^53 + (-2*a^7 - a^6 + a^5 + 
        a^4 + 2*a^3 + a^2 - a - 2)*q^56 + (-a^7 + a^6 + a^5 + a^4 + a^3 - a - 
        1)*q^59 + (a^7 - a^5 - a^4 + a + 1)*q^62 + (-a^7 - a^6 + a)*q^66 - 
        a^5*q^72 + (-a^7 - a^6 + a^5 + a^4 + a^3 + a^2 - 1)*q^75 + (-a^7 + a^6 -
        a^3 + a^2)*q^77 + (a^7 + a^6 - a^5 - a^4 - a^3 - a^2 + 1)*q^80 + 
        a^5*q^83 + (-a + 1)*q^84 - a^5*q^93 + (a^7 - a^6 + a^5 - a^2 + a - 
        1)*q^98 + (a^7 + a^6 - a^4 - 2*a^3 - a^2 + 1)*q^99 + (-a^5 - a)*q^101 + 
        (-a^6 + a + 1)*q^107 + (a^7 - a^2)*q^108 + (a^7 + a^6 + a^5 - a^3 - 
        2*a^2 - a)*q^110 + (a^6 - a^4 - a^3 - a^2 + 1)*q^116 + (a^7 + a^6 - 
        a^2)*q^120 - a^6*q^125 + (-2*a^7 + a^5 + a^4 + a^3 - a - 1)*q^126 + 
        (-a^7 - a^6 + a^3 + a^2 - 1)*q^128 + (a^7 - a^4 + a)*q^131 + (-2*a^7 + 
        a^5 + a^4 + a^3 + a^2 - 2*a - 1)*q^140 + (a^7 + a^6 - a^4 - a^3 + 
        1)*q^146 + (a^4 - a^3 + a^2)*q^147 + (a^2 + 1)*q^149 + (a^7 + a^6 - 
        a^2)*q^155 + (a^7 - a^5 - a^4 + 1)*q^158 + a^4*q^162 + (a^6 + a^5 + 
        a^4)*q^165 + (a^7 + a^6 - a^5 - a^4 + a + 1)*q^173 + (a^7 + 2*a^6 - a^4 
        - a^3 - a^2 + 1)*q^174 + (-a^7 - a^3)*q^176 + (-a^5 - a^3)*q^179 + (a^7 
        - a^5 + a + 1)*q^180 + (a^7 + a^6 - a^4 - a^3 - a^2 + 2)*q^189 - a*q^192
        + a^3*q^194 + (-a^6 + a^2 + a)*q^197 + (-a^5 + a + 1)*q^200 + (-a^7 - 
        a^6 + a^5 + a^3 + 2*a^2 - a - 2)*q^203 + (-a^7 - a^6 + a^4 + a^3 + a^2 -
        1)*q^206 + (-a^7 + a^5 + a^3 - a)*q^210 + (a^7 + a^5 - a^2 - 1)*q^212 + 
        (-a^7 + a^3 + a^2 - 1)*q^219 + (a^7 - a^6 - a^2 + a)*q^224 + (-a^7 - 
        a^3)*q^227 + (-a^7 - 2*a^6 + a^3 + a^2 + a - 1)*q^236 + (-a^7 + a^4 + 
        a^3 - a - 1)*q^237 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.4
;
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(
744
);
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(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.4
;
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(
744
);
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(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + (a^3 + a - 1)*q^7 + a^2*q^9 + (-a^2 + a - 1)*q^13 + (a^2 - 
        a)*q^19 + (-a^3 + 1)*q^21 + q^25 - a^3*q^27 - a*q^31 + (a^3 - a^2 - 
        1)*q^37 + (a^3 - a^2 + a)*q^39 + (-a^3 + 1)*q^43 + (-a^2 - 1)*q^49 + 
        (-a^3 + a^2)*q^57 + (-a^3 + a^2)*q^61 + (a^3 - a^2 - 1)*q^63 + (-a^3 + 
        a^2)*q^67 + (a^3 + a - 1)*q^73 - a*q^75 + (a^3 - a^2 + a)*q^79 + (a^3 - 
        a^2 + a - 1)*q^81 + (-a^3 + a^2 - a + 1)*q^91 + a^2*q^93 + (-a + 1)*q^97
        + (-a^3 + 1)*q^103 + (a^2 + 1)*q^109 + (a^2 + 1)*q^111 + (-a + 1)*q^117 
        - a*q^121 + (-a^2 + a - 1)*q^127 + (a^3 - a^2 - 1)*q^129 - a^2*q^133 + 
        (a^2 + 1)*q^139 + (a^3 + a)*q^147 + (a^3 + a - 1)*q^151 + (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 - 1)*q^175 + (a^3 - a^2 - 1)*q^181 + (-a^2 + a - 
        1)*q^183 + (a^2 + 1)*q^189 + (-a + 1)*q^193 + (a^2 + 1)*q^199 + (-a^2 + 
        a - 1)*q^201 + (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^2 - a)*q^229 + (-a + 
        1)*q^237 - 2*a^3*q^241 + O(q^242),
    q^2 - a*q^6 + (a^3 + a - 1)*q^14 + a^2*q^18 + (-a^2 + a - 1)*q^26 + (a^2 - 
        a)*q^38 + (-a^3 + 1)*q^42 + q^50 - a^3*q^54 - a*q^62 + (a^3 - a^2 - 
        1)*q^74 + (a^3 - a^2 + a)*q^78 + (-a^3 + 1)*q^86 + (-a^2 - 1)*q^98 + 
        (-a^3 + a^2)*q^114 + (-a^3 + a^2)*q^122 + (a^3 - a^2 - 1)*q^126 + (-a^3 
        + a^2)*q^134 + (a^3 + a - 1)*q^146 - a*q^150 + (a^3 - a^2 + a)*q^158 + 
        (a^3 - a^2 + a - 1)*q^162 + (-a^3 + a^2 - a + 1)*q^182 + a^2*q^186 + (-a
        + 1)*q^194 + (-a^3 + 1)*q^206 + (a^2 + 1)*q^218 + (a^2 + 1)*q^222 + (-a 
        + 1)*q^234 + O(q^242),
    q^4 - a*q^12 - a^3*q^16 + (a^3 + a - 1)*q^28 + a^2*q^36 + (a^3 - a^2 + a - 
        1)*q^48 + (-a^2 + a - 1)*q^52 - a*q^64 + (a^2 - a)*q^76 + (-a^3 + 
        1)*q^84 + q^100 - a^3*q^108 + (a^2 + 1)*q^112 - a*q^124 + q^144 + (a^3 -
        a^2 - 1)*q^148 + (a^3 - a^2 + a)*q^156 + (-a^3 + 1)*q^172 + a^2*q^192 + 
        (-a^2 - 1)*q^196 + (a^2 - a)*q^208 + (-a^3 + a^2)*q^228 + O(q^242),
    q^8 - a*q^24 - a^3*q^32 + (a^3 + a - 1)*q^56 + a^2*q^72 + (a^3 - a^2 + a - 
        1)*q^96 + (-a^2 + a - 1)*q^104 - a*q^128 + (a^2 - a)*q^152 + (-a^3 + 
        1)*q^168 + q^200 - a^3*q^216 + (a^2 + 1)*q^224 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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(
10
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^3*q^4 + q^6 + (-a + 1)*q^7 + a^2*q^9 + (a^2 - a)*q^10 + (-a^2 + a - 
        1)*q^15 - a*q^16 + (a^3 - a^2 + a)*q^22 - a^3*q^24 + (a^3 - a^2)*q^25 + 
        (-a^2 + a - 1)*q^28 - a^3*q^31 + (a^2 - a)*q^33 + q^36 + (a^3 - a^2 + 
        a)*q^40 + (-a + 1)*q^42 + (a^2 - a + 1)*q^49 + a^2*q^54 + (-a^3 + a - 
        1)*q^55 + (a^3 + a - 1)*q^58 + (a^2 - a)*q^60 + (-a^3 + a^2)*q^63 + (a^3
        - a^2 + a - 1)*q^64 + (-a^3 + 2*a^2 - a)*q^70 + (a^3 + a - 1)*q^73 + 
        (-a^3 - a)*q^79 + (a^3 - a^2 + a - 1)*q^81 + (a^3 - a^2 - 1)*q^87 + 
        (-a^3 + a^2)*q^88 + (-a^2 + a - 1)*q^90 - a*q^96 - 2*a^3*q^97 + (a - 
        1)*q^100 + (2*a^3 - 2*a^2 + 2*a - 2)*q^103 + (a^3 - 2*a^2 + 2*a - 
        1)*q^105 + (a^2 + 1)*q^106 + (a^2 - a)*q^112 + (a^3 - a^2 - 1)*q^118 + 
        (a^2 - a + 1)*q^121 - a*q^124 + (a^2 + 1)*q^127 + (a^3 - a^2 + a)*q^132 
        + (-a + 1)*q^135 - a^3*q^144 + (-a^3 + a^2 - a + 1)*q^145 + (a^3 - 
        a^2)*q^150 + (-a + 1)*q^151 + (a^3 - a^2 + 1)*q^154 + (a^3 + a - 
        1)*q^159 + (-a^3 + a^2)*q^160 - 2*a^3*q^166 + (-a^2 + a - 1)*q^168 + 
        a^2*q^169 + (a^3 - a + 1)*q^175 + (-a^3 - a)*q^177 - a^3*q^186 + (a^3 + 
        a - 1)*q^193 + (-a^2 + a)*q^196 + (a^2 - a)*q^198 + (a^2 + 1)*q^199 + 
        (-a^2 + a - 1)*q^202 + (-a^2 + a - 1)*q^214 + q^216 + (-a^2 + a - 
        1)*q^217 + (a^2 - 2*a + 1)*q^220 + (-a^3 + a^2)*q^223 + (-a^3 + a^2 - 
        a)*q^225 + (-a^3 + 2*a^2 - a)*q^231 + (a^2 + 1)*q^232 + (a^3 - a^2 + 
        a)*q^240 + (-a + 1)*q^241 + O(q^242),
    q^2 + a^2*q^3 + (-a^2 + a - 1)*q^5 - a^3*q^8 + (a^2 - a)*q^11 + q^12 + (-a +
        1)*q^14 + a^2*q^18 + (a^2 - a)*q^20 + (-a^3 + a^2)*q^21 + (a^3 - a^2 + a
        - 1)*q^27 + (a^3 - a^2 - 1)*q^29 + (-a^2 + a - 1)*q^30 - a*q^32 + (a^3 -
        2*a^2 + 2*a - 1)*q^35 + (a^3 - a^2 + a)*q^44 + (-a + 1)*q^45 - a^3*q^48 
        + (a^3 - a^2)*q^50 + (a^3 + a - 1)*q^53 + (-a^2 + a - 1)*q^56 + (-a^3 - 
        a)*q^59 - a^3*q^62 + (a^2 - a)*q^66 + q^72 + (-a^3 + a^2 - a)*q^75 + 
        (-a^3 + 2*a^2 - a)*q^77 + (a^3 - a^2 + a)*q^80 + 2*q^83 + (-a + 1)*q^84 
        + q^93 + (a^2 - a + 1)*q^98 + (-a^2 + a - 1)*q^99 + (-a + 1)*q^101 + (-a
        + 1)*q^107 + a^2*q^108 + (-a^3 + a - 1)*q^110 + (a^3 + a - 1)*q^116 + 
        (a^2 - a)*q^120 + a*q^125 + (-a^3 + a^2)*q^126 + (a^3 - a^2 + a - 
        1)*q^128 + (-a^3 + 1)*q^131 + (-a^3 + 2*a^2 - a)*q^140 + (a^3 + a - 
        1)*q^146 + (a - 1)*q^147 + (a^2 + 1)*q^149 + (a^2 - a)*q^155 + (-a^3 - 
        a)*q^158 + (a^3 - a^2 + a - 1)*q^162 + (a^3 - a^2 + 1)*q^165 + (-a^3 - 
        a)*q^173 + (a^3 - a^2 - 1)*q^174 + (-a^3 + a^2)*q^176 + (-a^3 + 1)*q^179
        + (-a^2 + a - 1)*q^180 + (a^3 - a^2 + a)*q^189 - a*q^192 - 2*a^3*q^194 +
        (a^2 - a)*q^197 + (a - 1)*q^200 + a^3*q^203 + (2*a^3 - 2*a^2 + 2*a - 
        2)*q^206 + (a^3 - 2*a^2 + 2*a - 1)*q^210 + (a^2 + 1)*q^212 + (a^3 - a^2 
        - 1)*q^219 + (a^2 - a)*q^224 + (-a^3 + a^2)*q^227 + (a^3 - a^2 - 
        1)*q^236 + (-a^3 + 1)*q^237 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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(
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 - q^8 + (a - 1)*q^10 + (a - 1)*q^18 + (-a + 1)*q^26 + a*q^28 + q^32 - 
        a*q^34 + (-a + 1)*q^40 + (a - 1)*q^44 + (-a + 1)*q^72 - a*q^74 - a*q^76 
        + (a - 1)*q^82 - a*q^90 + (a - 1)*q^104 + (-a + 1)*q^106 + q^108 - 
        a*q^112 + q^124 - q^128 + a*q^130 + a*q^136 - q^140 + (a - 1)*q^146 + 
        q^154 + (a - 1)*q^160 + q^170 - a*q^172 + (-a + 1)*q^176 - a*q^220 + (-a
        + 1)*q^226 + a*q^234 + a*q^236 + O(q^242),
    q^3 + (a - 1)*q^15 + (-a + 1)*q^39 - a*q^51 + (a - 1)*q^63 - q^99 - a*q^111 
        + (a - 1)*q^123 + (-a + 1)*q^159 + (-a + 1)*q^171 + a*q^195 + (a - 
        1)*q^219 + q^231 + O(q^242),
    q^4 - a*q^14 - q^16 + (a - 1)*q^20 + (-a + 1)*q^22 + (a - 1)*q^36 + a*q^38 +
        (-a + 1)*q^52 - q^54 + a*q^56 - q^62 + q^64 - a*q^68 + q^70 + (-a + 
        1)*q^80 + a*q^86 + (a - 1)*q^88 + a*q^110 - a*q^118 + q^126 + (-a + 
        1)*q^134 + (a - 1)*q^142 + (-a + 1)*q^144 - a*q^148 - a*q^152 - a*q^158 
        + (a - 1)*q^164 + (a - 1)*q^166 - a*q^180 - q^182 - q^190 + a*q^198 + 
        (-a + 1)*q^206 + (a - 1)*q^208 + (-a + 1)*q^212 + a*q^214 + q^216 - 
        a*q^224 + (a - 1)*q^238 + O(q^242),
    q^6 - q^24 + (a - 1)*q^30 - a*q^36 + (-a + 1)*q^78 + a*q^84 + q^96 - a*q^102
        + (-a + 1)*q^120 + (a - 1)*q^126 + (a - 1)*q^132 + a*q^144 + q^180 - 
        q^198 - a*q^222 - a*q^228 + O(q^242),
    q^7 + a*q^11 - q^19 + (-a + 1)*q^27 + (-a + 1)*q^31 + (a - 1)*q^35 - q^43 - 
        q^55 + q^59 + (a - 1)*q^63 + a*q^67 - a*q^71 + q^79 - a*q^83 + (-a + 
        1)*q^91 + (-a + 1)*q^95 - q^99 + a*q^103 - q^107 - a*q^119 - q^127 - 
        q^131 + a*q^135 + q^143 + (2*a - 2)*q^151 + a*q^155 - q^167 + (-a + 
        1)*q^171 + q^179 + (-a + 1)*q^187 - a*q^191 - a*q^199 + q^211 + (-a + 
        1)*q^215 + q^223 + a*q^227 + a*q^239 + O(q^242),
    q^9 - q^21 - a*q^33 + (a - 1)*q^45 + q^57 + (a - 1)*q^81 + (a - 1)*q^93 + 
        (-a + 1)*q^105 + (-a + 1)*q^117 + q^129 - a*q^153 + q^165 - q^177 - 
        a*q^201 + a*q^213 - q^237 + O(q^242),
    q^12 + a*q^18 - a*q^42 - q^48 + (a - 1)*q^60 + (-a + 1)*q^66 - a*q^72 - q^90
        + a*q^114 + (-a + 1)*q^156 - q^162 + a*q^168 - q^186 + q^192 - a*q^204 +
        q^210 + q^234 + (-a + 1)*q^240 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^3 + (a - 1)*q^9 + (a - 1)*q^13 - a*q^19 + a*q^25 + q^27 - q^31 - 
        a*q^37 + q^39 - a*q^43 + (-a + 1)*q^49 + 2*a*q^55 + (a - 1)*q^57 + (-a +
        1)*q^73 + (-a + 1)*q^75 - a*q^81 + a*q^93 - q^97 + (a - 1)*q^103 - q^109
        + (a - 1)*q^111 - a*q^117 + a*q^121 + a*q^127 + (a - 1)*q^129 + (-2*a + 
        2)*q^145 - q^147 - q^151 + q^157 + q^163 + (-2*a + 2)*q^165 + q^171 + 
        (-a + 1)*q^181 - a*q^193 + 2*a*q^205 - a*q^211 - q^219 + a*q^223 - q^225
        + a*q^229 + (2*a - 2)*q^235 - a*q^241 + O(q^242),
    q^5 + q^11 - a*q^15 - a*q^29 - a*q^33 + q^41 + (a - 1)*q^45 + a*q^47 - q^53 
        + (a - 1)*q^65 - q^83 + (a - 1)*q^87 + a*q^89 - a*q^95 + (a - 1)*q^99 + 
        a*q^101 + (a - 1)*q^107 - a*q^123 + (-a + 1)*q^131 + q^135 - q^137 + (-a
        + 1)*q^141 + (a - 1)*q^143 - q^155 + a*q^159 + (-a + 1)*q^167 + (-a + 
        1)*q^179 - a*q^185 + q^191 + q^195 - a*q^209 - a*q^215 + O(q^242)
]
;
Bo:=
[
    q - a*q^3 - 2*a*q^7 + (a - 1)*q^9 + (-a + 1)*q^13 + a*q^19 + (2*a - 2)*q^21 
        - a*q^25 + q^27 + q^31 + a*q^37 - q^39 + a*q^43 + (3*a - 3)*q^49 + (-a +
        1)*q^57 + 2*q^61 + 2*q^63 + (2*a - 2)*q^67 + (-a + 1)*q^73 + (a - 
        1)*q^75 - 2*a*q^79 - a*q^81 - 2*q^91 - a*q^93 - q^97 + (-a + 1)*q^103 - 
        q^109 + (-a + 1)*q^111 + a*q^117 - a*q^121 + a*q^127 + (-a + 1)*q^129 + 
        (-2*a + 2)*q^133 + 2*q^139 + 3*q^147 - q^151 - q^157 - q^163 - q^171 + 
        (2*a - 2)*q^175 + (-a + 1)*q^181 - 2*a*q^183 - 2*a*q^189 + a*q^193 + 
        (2*a - 2)*q^199 + 2*q^201 + a*q^211 - 2*a*q^217 - q^219 + a*q^223 + 
        q^225 + a*q^229 + (2*a - 2)*q^237 + a*q^241 + O(q^242),
    q^2 - a*q^6 - 2*a*q^14 + (a - 1)*q^18 + (-a + 1)*q^26 + a*q^38 + (2*a - 
        2)*q^42 - a*q^50 + q^54 + q^62 + a*q^74 - q^78 + a*q^86 + (3*a - 3)*q^98
        + (-a + 1)*q^114 + 2*q^122 + 2*q^126 + (2*a - 2)*q^134 + (-a + 1)*q^146 
        + (a - 1)*q^150 - 2*a*q^158 - a*q^162 - 2*q^182 - a*q^186 - q^194 + (-a 
        + 1)*q^206 - q^218 + (-a + 1)*q^222 + a*q^234 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
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(
6
);
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 - a*q^6 + a*q^7 + (a - 1)*q^9 + (2*a - 2)*q^10 + 2*q^15 + q^16 + (-a
        + 1)*q^22 - a*q^24 - 3*a*q^25 + a*q^28 - a*q^31 - q^33 + (a - 1)*q^36 + 
        (2*a - 2)*q^40 + (-a + 1)*q^42 + q^54 + 2*a*q^55 - q^58 + 2*q^60 - q^63 
        + q^64 - 2*q^70 + (2*a - 2)*q^73 - 2*a*q^79 - a*q^81 + a*q^87 + (-a + 
        1)*q^88 - 2*a*q^90 - a*q^96 - q^97 - 3*a*q^100 + (-a + 1)*q^103 + 
        2*a*q^105 + (-a + 1)*q^106 + a*q^112 + a*q^118 - a*q^124 + a*q^127 - 
        q^132 + (2*a - 2)*q^135 + (a - 1)*q^144 + (-2*a + 2)*q^145 + (3*a - 
        3)*q^150 - q^151 + q^154 - q^159 + (2*a - 2)*q^160 + (-a + 1)*q^166 + 
        (-a + 1)*q^168 - a*q^169 + (-3*a + 3)*q^175 + (-a + 1)*q^177 + (a - 
        1)*q^186 + a*q^193 + a*q^198 + (-a + 1)*q^199 - q^202 + a*q^214 + q^216 
        + (-a + 1)*q^217 + 2*a*q^220 + a*q^223 + 3*q^225 - a*q^231 - q^232 + 
        2*q^240 + a*q^241 + O(q^242),
    q^2 - a*q^3 + (2*a - 2)*q^5 + q^8 + (-a + 1)*q^11 - a*q^12 + a*q^14 + (a - 
        1)*q^18 + (2*a - 2)*q^20 + (-a + 1)*q^21 + q^27 - q^29 + 2*q^30 + q^32 -
        2*q^35 + (-a + 1)*q^44 - 2*a*q^45 - a*q^48 - 3*a*q^50 + (-a + 1)*q^53 + 
        a*q^56 + a*q^59 - a*q^62 - q^66 + (a - 1)*q^72 + (3*a - 3)*q^75 + q^77 +
        (2*a - 2)*q^80 + (-a + 1)*q^83 + (-a + 1)*q^84 + (a - 1)*q^93 + a*q^99 -
        q^101 + a*q^107 + q^108 + 2*a*q^110 - q^116 + 2*q^120 + 4*q^125 - q^126 
        + q^128 - 2*a*q^131 - 2*q^140 + (2*a - 2)*q^146 + a*q^149 + 2*q^155 - 
        2*a*q^158 - a*q^162 + (-2*a + 2)*q^165 + (-a + 1)*q^173 + a*q^174 + (-a 
        + 1)*q^176 + a*q^179 - 2*a*q^180 + a*q^189 - a*q^192 - q^194 + (2*a - 
        2)*q^197 - 3*a*q^200 - a*q^203 + (-a + 1)*q^206 + 2*a*q^210 + (-a + 
        1)*q^212 + 2*q^219 + a*q^224 + (-a + 1)*q^227 + a*q^236 + (2*a - 
        2)*q^237 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^5 - q^7 + q^9 - q^19 + q^31 + q^35 - q^41 - q^45 + 2*q^47 - q^59 - 
        q^63 + 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 + q^133 + 2*q^149 - q^155 - 
        q^157 - q^163 + q^169 - q^171 + 2*q^173 - q^191 - q^193 + q^205 - q^211 
        - q^217 + 2*q^227 - q^233 - 2*q^235 + O(q^242),
    q^2 - q^10 - q^14 + q^18 - q^38 + q^62 + q^70 - q^82 - q^90 + 2*q^94 - q^118
        - q^126 + 2*q^134 - q^142 + q^162 + q^190 - q^194 - q^202 - q^206 - 
        q^214 - q^218 - q^226 + O(q^242),
    q^3 - q^15 - q^21 + q^27 - q^57 + q^93 + q^105 - q^123 - q^135 + 2*q^141 - 
        q^177 - q^189 + 2*q^201 - q^213 + O(q^242),
    q^4 - q^16 - q^20 - q^28 + q^32 + q^36 - q^76 + q^80 + q^112 + q^124 - q^128
        + q^140 - q^144 - q^160 - q^164 - q^180 + 2*q^188 - q^224 - q^236 + 
        O(q^242),
    q^6 - q^30 - q^42 + q^54 - q^114 + q^186 + q^210 + O(q^242),
    q^8 - q^16 - q^40 - q^56 + q^64 + q^72 + q^80 + q^112 - q^128 - q^144 - 
        q^152 + O(q^242),
    q^12 - q^48 - q^60 - q^84 + q^96 + q^108 - q^228 + q^240 + O(q^242),
    q^24 - q^48 - q^120 - q^168 + q^192 + q^216 + q^240 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 15*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^8 + q^10 - q^14 - q^18 - q^20 - q^25 - q^28 + q^31 - q^33 + q^36 - 
        q^38 - q^39 - 2*q^47 + q^49 + q^50 + q^64 + q^66 + q^70 - 2*q^72 + q^76 
        + q^78 + q^80 + q^81 - q^82 + q^87 - q^90 + 2*q^95 + q^98 + q^100 + 
        q^111 - q^112 - q^118 - q^121 + q^126 - q^129 - q^132 - q^140 + q^142 + 
        q^144 - q^156 - q^159 - q^160 - q^164 - q^169 - q^174 - 2*q^175 + q^180 
        + q^183 - q^190 - q^194 + q^196 - q^200 - q^202 + q^206 + q^214 + q^218 
        - q^222 - q^224 + 2*q^225 - q^226 + q^236 + O(q^242),
    q^2 - q^7 + q^8 - q^14 - q^18 - q^28 + q^31 + q^32 - q^41 - q^47 + 2*q^49 + 
        q^50 - q^56 + q^63 - q^72 + q^81 - q^82 - q^94 - q^97 + q^98 + 2*q^103 -
        q^112 - q^113 - q^121 + q^124 + q^126 + q^128 + 2*q^142 - q^143 - q^164 
        - q^169 - q^175 - q^188 - q^191 + 2*q^193 - q^194 + 2*q^196 + q^200 - 
        q^217 - q^224 - q^226 - q^233 + O(q^242),
    q^3 + q^24 - q^27 + q^30 - q^42 - q^60 - q^75 - q^84 + q^93 - q^114 - 
        2*q^141 + q^147 + q^150 + q^192 + q^210 - q^216 + q^228 + q^240 + 
        O(q^242),
    q^4 - q^7 - q^8 - q^10 + q^16 + q^20 + 2*q^25 - q^31 - q^36 + q^38 - q^41 + 
        q^47 - q^50 - q^56 + q^62 + q^63 - q^70 + 2*q^71 + q^72 - q^76 - q^80 - 
        q^81 + q^90 - q^94 - 2*q^95 - q^97 + q^98 - q^113 + q^118 + q^121 + 
        q^140 - q^142 + q^143 - q^144 + q^160 + q^162 + q^169 + q^175 - q^180 - 
        q^188 + q^190 - q^191 + q^200 + q^202 + q^206 - q^214 - q^217 - q^218 - 
        2*q^225 - q^233 - q^236 + O(q^242),
    q^5 + q^8 - q^14 - q^16 - q^19 - q^20 - q^25 + q^31 + q^32 + q^35 + q^40 - 
        q^45 - q^47 + q^49 + 2*q^50 - q^59 - q^62 - q^71 - q^72 + q^76 + q^81 - 
        q^82 + q^94 + q^95 - q^100 - q^101 + q^103 + q^107 + q^109 - q^112 - 
        q^121 + q^124 - q^125 + q^126 - q^133 - q^140 + 2*q^142 - q^143 + q^144 
        - q^152 + q^155 + q^157 - q^160 - q^162 + q^163 - q^169 + q^171 - q^175 
        + q^180 - q^188 - 2*q^190 + q^193 - q^194 + q^196 + q^205 - q^211 + 
        q^225 - q^226 - 2*q^235 + q^236 + O(q^242),
    q^6 - q^21 + q^24 - q^27 - q^42 - q^84 + q^93 + q^96 + q^99 - q^108 + q^117 
        - q^123 - q^141 + 2*q^147 + q^150 - q^168 + q^189 - q^198 - q^234 + 
        O(q^242),
    q^9 - q^18 - q^33 + q^36 - q^39 + q^66 - q^72 + q^78 + q^87 + q^111 - q^129 
        - q^132 + q^144 - q^156 - q^159 - q^174 + q^183 - q^222 + q^225 + 
        O(q^242),
    q^11 + q^13 - q^22 - q^26 + q^27 - q^29 - q^37 + q^43 + q^44 + q^52 + q^53 -
        q^54 + q^58 - q^61 + q^74 - q^83 - q^86 - q^88 - q^99 - q^104 - q^106 + 
        q^108 - q^116 - q^117 + q^122 - q^139 - q^148 + q^166 + q^172 + q^176 - 
        q^179 + q^181 - q^197 + q^198 + q^208 + q^212 - q^216 - q^229 + q^232 + 
        q^234 + O(q^242),
    q^12 - q^21 - q^24 + q^27 - q^30 + q^48 - q^54 + q^60 + 2*q^75 - q^93 - q^99
        + q^114 - q^117 - q^123 + q^141 - q^150 - q^168 + q^186 + q^189 + q^198 
        - q^210 + 2*q^213 - q^228 + q^234 - q^240 + O(q^242),
    q^15 + q^24 - q^27 - q^42 - q^48 + q^54 - q^57 - q^60 - q^75 + q^93 + q^96 +
        q^99 + q^105 - q^108 + q^117 + q^120 - q^135 - q^141 + q^147 + 2*q^150 -
        q^177 - q^186 - q^198 - q^213 + q^228 - q^234 + O(q^242)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
744
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.3 + 15*H.4
;
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(
744
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + 15*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
242
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^10 + q^16 - q^19 - q^33 + q^36 - q^40 + q^49 - q^51 + q^64
        - q^67 - q^76 - q^78 + q^81 - q^90 - q^94 - q^97 - q^132 - q^142 + q^144
        - q^160 - q^163 - q^171 + q^186 + q^187 + q^190 - q^193 + q^195 + q^196 
        + 2*q^202 - q^204 + 2*q^211 + 2*q^222 + q^235 + O(q^242),
    q^2 - q^5 + q^8 + q^18 - q^20 + q^32 - q^38 - q^39 - q^45 - q^47 - q^66 - 
        q^71 + q^72 - q^80 + q^93 + q^95 + q^98 + 2*q^101 - q^102 + 2*q^111 + 
        q^125 + q^128 - q^134 + q^143 - q^149 - q^152 - q^156 + q^162 + q^165 - 
        q^173 - q^180 - q^183 - q^188 + 2*q^191 - q^194 + q^221 - q^237 + 
        O(q^242),
    q^3 - q^11 + q^12 - q^17 - q^26 + q^27 - q^30 - q^44 + q^48 - q^57 + q^62 + 
        q^65 - q^68 + 2*q^74 - q^83 + 2*q^89 - q^99 - q^104 + q^108 + q^110 - 
        q^120 - q^122 + 2*q^137 + q^147 - q^153 - q^155 - q^158 + q^170 - q^176 
        - q^179 - 2*q^185 + q^192 - q^201 + q^209 - q^228 - q^234 + O(q^242),
    q^6 - q^13 - q^15 - q^22 + q^24 + q^31 - q^34 + 2*q^37 - q^52 + q^54 + q^55 
        - q^60 - q^61 - q^79 + q^85 - q^88 + q^96 - q^114 - q^117 + q^124 + 
        2*q^127 + q^130 - q^135 - q^136 - q^141 + 2*q^148 - q^151 - q^166 + 
        2*q^178 + 2*q^181 - q^198 - q^199 - q^208 - q^213 + q^216 + q^220 - 
        q^223 - q^229 - q^240 + O(q^242)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
745
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
745
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
148
);
qprec:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
745
);
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(
148
);
qprec:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
745
);
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(
148
);
qprec:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
745
);
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(
148
);
qprec:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
745
);
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:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
745
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 37*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
745
);
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(
4
);
qprec:=
148
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
746
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
372
);
qprec:=
185
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
746
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
124
);
qprec:=
185
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
746
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
31*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
185
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
746
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
93*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
185
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
747
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
747
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
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(
747
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
82
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
747
);
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(
246
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
747
);
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(
246
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
747
);
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(
82
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
747
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
41*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 - q^7 + q^11 + q^16 + q^17 - 2*q^23 + q^25 - q^28 + q^29 - q^31 - 
        q^37 - 2*q^41 + q^44 + q^59 - q^61 + q^64 + q^68 - q^77 - q^83 - 2*q^92 
        + q^100 - q^109 - q^112 + q^113 + q^116 - q^119 - q^124 - q^127 - 
        2*q^131 - q^148 - q^151 + 2*q^161 + O(q^162)
]
;
Bo:=
[
    q + q^4 - q^7 - q^11 + q^16 - q^17 + 2*q^23 + q^25 - q^28 - q^29 - q^31 - 
        q^37 + 2*q^41 - q^44 - q^59 - q^61 + q^64 - q^68 + q^77 + q^83 + 2*q^92 
        + q^100 - q^109 - q^112 - q^113 - q^116 + q^119 - q^124 - q^127 + 
        2*q^131 - q^148 - q^151 - 2*q^161 + O(q^162),
    q^3 + q^12 - q^21 - q^27 - q^33 + q^48 - q^51 + 2*q^69 + q^75 + q^81 - q^84 
        - q^87 - q^93 - q^108 - q^111 + 2*q^123 - q^132 + O(q^162),
    q^9 - q^27 + q^36 - q^63 - q^99 - q^108 + q^144 - q^153 + O(q^162)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
747
);
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(
6
);
qprec:=
162
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^4 - a*q^16 + (a - 1)*q^21 + (-a + 1)*q^23 - a*q^25 - a*q^27 + 
        q^33 + (2*a - 2)*q^41 + (a - 1)*q^49 + q^51 - a*q^63 + q^64 + (-a + 
        1)*q^77 - a*q^83 - a*q^84 + (a - 1)*q^87 + a*q^92 + (a - 1)*q^93 + q^99 
        + q^100 + q^108 + (a - 1)*q^111 + a*q^119 + (a - 1)*q^121 + (-a + 
        1)*q^131 + (a - 1)*q^132 - a*q^147 - a*q^153 + O(q^162),
    q^3 + (-a + 1)*q^9 + (2*a - 1)*q^11 + (a - 1)*q^12 + (a + 1)*q^17 + (-a + 
        1)*q^21 + (a - 2)*q^31 + a*q^33 + a*q^36 + (-a - 1)*q^37 + (-a - 1)*q^44
        - a*q^48 + (-a + 2)*q^49 + (-a + 1)*q^51 + (-2*a + 1)*q^61 + (a - 
        1)*q^63 + (a - 2)*q^68 + (-a + 1)*q^69 - a*q^75 - a*q^81 + a*q^84 + (-a 
        + 1)*q^87 + a*q^93 + q^99 + (-a - 1)*q^109 - q^111 + (a - 2)*q^113 + 
        (-2*a + 1)*q^119 + (a - 2)*q^121 + (2*a - 2)*q^123 + (-2*a + 1)*q^124 + 
        (a + 1)*q^127 - q^132 - q^144 + (-a + 2)*q^148 + (2*a - 1)*q^151 + q^153
        + O(q^162),
    q^7 + (a - 1)*q^9 - a*q^11 - a*q^17 + (a - 1)*q^21 + (a - 1)*q^28 + q^29 + 
        q^31 - a*q^33 - a*q^36 + q^37 + q^44 + (a - 1)*q^49 + (a - 1)*q^51 - 
        a*q^59 + (a - 1)*q^61 + q^68 - a*q^77 - a*q^84 + (a - 1)*q^87 - a*q^93 +
        q^109 + q^111 - a*q^112 + q^113 + (a - 1)*q^116 + (a - 1)*q^119 + q^121 
        + (a - 1)*q^124 - a*q^127 + q^132 + q^144 + (a - 1)*q^147 + (a - 
        1)*q^148 - a*q^151 + (-a + 1)*q^161 + O(q^162)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
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(
748
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
748
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
206
;
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 + O(q^206),
    q^17 - q^51 - q^85 + q^187 + O(q^206)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
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:=
206
;
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 + O(q^206),
    q^11 + a*q^22 - q^44 + (-a - 1)*q^55 - a*q^88 + a*q^99 + (-a + 1)*q^110 + 
        q^176 - q^187 - q^198 + O(q^206)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a + 1)*q^3 + a*q^9 + (a - 1)*q^23 - a*q^25 + (-a - 1)*q^37 - q^47 - 
        a*q^53 + a*q^59 + q^67 - 2*q^69 + (-a + 1)*q^75 - a*q^77 + q^81 - q^89 +
        (-a + 1)*q^91 + q^103 - 2*a*q^111 + a*q^119 + a*q^121 + (-a - 1)*q^133 -
        q^137 + (-a - 1)*q^141 + (a - 1)*q^143 + q^157 + (-a + 1)*q^159 + (a - 
        1)*q^163 - q^169 + (a - 1)*q^177 + a*q^179 - a*q^187 + (a + 1)*q^201 - 
        q^203 + O(q^206),
    q^7 - q^11 + (-a - 1)*q^13 + q^17 + (a - 1)*q^19 + (a + 1)*q^21 + a*q^29 + 
        (-a - 1)*q^33 - 2*a*q^39 + q^41 + (-a + 1)*q^43 + (a + 1)*q^51 - 2*q^57 
        + a*q^63 + a*q^73 + (a - 1)*q^87 - a*q^99 + (-a - 1)*q^101 - a*q^107 + 
        q^109 + (-a + 1)*q^117 + (a + 1)*q^123 + (a - 1)*q^127 + 2*q^129 - 
        a*q^131 + a*q^139 + (-a - 1)*q^149 + a*q^153 + (a - 1)*q^161 + (-a - 
        1)*q^171 + a*q^173 - a*q^175 + O(q^206)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 + q^4 - q^8 - q^9 - 2*q^13 + q^16 + q^17 + q^18 + q^25 + 2*q^26 - 
        q^32 - q^34 - q^36 - q^49 - q^50 - 2*q^52 + 2*q^53 + q^64 + q^68 + q^72 
        + q^81 - 2*q^89 + q^98 + q^100 - 2*q^101 + 2*q^104 - 2*q^106 + 2*q^117 -
        q^121 - q^128 - q^136 - 2*q^137 - q^144 + 2*q^149 - q^153 + 2*q^157 - 
        q^162 + 3*q^169 + 2*q^178 - q^196 - q^200 + 2*q^202 + O(q^206),
    q^11 - q^22 + q^44 - q^88 - q^99 - 2*q^143 + q^176 + q^187 + q^198 + 
        O(q^206)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
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:=
206
;
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 + a - 1)*q^17 + 
        (-a^3 - a)*q^18 + (-a^3 + a^2)*q^21 - a^3*q^25 + (a^3 - a^2 + a)*q^26 - 
        a*q^33 - a^3*q^36 + (a^2 + 1)*q^42 + (a^3 - a^2 + a - 1)*q^49 + (a^2 + 
        1)*q^53 - a*q^64 - a*q^66 - a*q^68 + (a^3 + a - 1)*q^69 + (-a^3 + 
        1)*q^72 - a^3*q^77 + (a^3 + a)*q^81 + (a^3 - a^2 + a)*q^84 + (a^2 - 
        a)*q^93 + (-a^3 + a^2)*q^98 + q^100 + (a^2 - a)*q^104 - a^2*q^117 - 
        a^3*q^132 + (2*a^3 - 2*a^2 + 2*a - 2)*q^138 + q^144 + (-a^3 + 1)*q^149 +
        q^153 + a^2*q^154 + (-a + 1)*q^157 + (-a^3 - a)*q^161 + (a^3 + a - 
        1)*q^162 + (a^3 + a - 1)*q^168 + (-a^3 + a^2 - a)*q^169 + (-a^2 + a - 
        1)*q^178 + (-a^3 + a^2)*q^186 + (-a^2 - a - 1)*q^189 - a*q^196 + (-a^3 -
        a)*q^202 + O(q^206),
    q^2 + a^2*q^8 + (a^3 - a^2 - 1)*q^9 + (-a^3 + a^2)*q^13 - a*q^18 + (-a^3 + 
        1)*q^21 + (a^3 - a^2 + a - 1)*q^32 + (a^3 - a^2 + a - 1)*q^33 + (a^3 - 
        a^2 + a - 1)*q^34 + (-a^3 - a)*q^36 + (-a^3 + a^2)*q^42 + (-a + 1)*q^49 
        - a^3*q^50 + (a^3 - a^2 + a)*q^52 - a*q^66 + 2*a^2*q^69 - a^3*q^72 + 
        q^77 + (a^2 + 1)*q^81 + (a^2 + 1)*q^84 + (a^2 - a)*q^89 + (-a + 1)*q^93 
        + (a^3 - a^2 + a - 1)*q^98 + (a^3 - a^2 - 1)*q^101 + (a^2 + 1)*q^106 + 
        (-a^2 + a - 1)*q^117 + (a^3 - a^2 + a - 1)*q^121 - a*q^128 - a*q^132 - 
        a*q^136 - 2*a^3*q^137 + (a^3 + a - 1)*q^138 + (-a^3 + 1)*q^144 + (-a^3 +
        1)*q^153 - a^3*q^154 + (-a^2 + a - 1)*q^161 + (a^3 + a)*q^162 + (a^3 - 
        a^2 + a)*q^168 + (a^2 - a)*q^186 - q^189 + (-a^3 + a^2)*q^196 + q^200 + 
        O(q^206),
    q^3 + (-a^3 + a^2 - a + 1)*q^7 + 1/5*(2*a^3 + a^2 + a + 2)*q^11 + a^2*q^12 +
        (a^3 - a^2 - 1)*q^14 + 1/5*(-2*a^3 - a^2 - a + 3)*q^22 + a*q^28 + (-a^3 
        - a + 1)*q^31 + 1/5*(2*a^3 + a^2 + a - 3)*q^44 - a^3*q^46 + (a^3 - a^2 +
        a - 1)*q^48 + (a^3 - a^2 + a - 1)*q^51 + (-a^3 - a)*q^54 + (-a^3 - 
        a)*q^56 + (a^3 - 1)*q^62 + (-a^3 + a^2 + 1)*q^63 + (-a^2 - 1)*q^71 - 
        a^3*q^75 + (a^3 - a^2 + a)*q^78 + (a^3 + a - 1)*q^79 + 1/5*(-2*a^3 + 
        4*a^2 - a + 3)*q^88 - q^91 + 1/5*(3*a^3 - a^2 - a - 2)*q^99 + (a^3 - a^2
        - 1)*q^107 + a^3*q^112 + a^3*q^119 + (-a^3 + a^2 + 1)*q^124 + a^2*q^131 
        + (a^3 - 1)*q^139 + (a^3 + a)*q^142 + 1/5*(-4*a^3 + 3*a^2 - 2*a + 
        1)*q^143 + (a^3 - a^2 + a - 1)*q^147 + (-a^3 + a^2 - a + 1)*q^158 + (a^2
        + 1)*q^159 + (a^3 + a - 1)*q^163 - a^3*q^167 - a^2*q^175 + 1/5*(2*a^3 - 
        4*a^2 + a - 3)*q^176 + (a^2 - a + 1)*q^182 + q^184 + 1/5*(2*a^3 - 4*a^2 
        + a - 3)*q^187 - a*q^192 + 1/5*(-3*a^3 + a^2 - 4*a + 2)*q^198 + (-a^3 - 
        a)*q^199 - a*q^204 + O(q^206),
    q^6 + (a^3 + a - 1)*q^7 + 1/5*(-2*a^3 - a^2 - a - 2)*q^11 + (-a^3 + a^2 - a 
        + 1)*q^14 + 1/5*(2*a^3 + a^2 + a + 2)*q^22 - a*q^23 + a^2*q^24 + (a^3 - 
        a^2 - 1)*q^27 + (a^3 - a^2 - 1)*q^28 + (a^3 + a)*q^31 + (-a^3 + 
        a^2)*q^39 + 1/5*(-2*a^3 - a^2 - a + 3)*q^44 + a*q^56 + (-a^3 - a + 
        1)*q^62 + (-a^3 + a^2 + 1)*q^71 - a^2*q^79 + 1/5*(2*a^3 + a^2 + a - 
        3)*q^88 + (-a^2 + a)*q^91 - a^3*q^92 + (a^3 - a^2 + a - 1)*q^96 + 
        1/5*(2*a^3 - 4*a^2 + a - 3)*q^99 + (a^3 - a^2 + a - 1)*q^102 + (-a^3 + 
        a^2 - a + 1)*q^107 + (-a^3 - a)*q^108 + (-a^3 - a)*q^112 + (-a^3 - 
        a)*q^119 + (a^3 - 1)*q^124 + (-a^3 + a^2 + 1)*q^126 + (-a^3 - a + 
        1)*q^139 + (-a^2 - 1)*q^142 + 1/5*(-a^3 + 2*a^2 + 2*a - 1)*q^143 + (-a +
        1)*q^147 - a^3*q^150 + (a^3 - a^2 + a)*q^156 + (a^3 + a - 1)*q^158 - 
        a^2*q^163 + (a^2 + 1)*q^175 + 1/5*(-2*a^3 + 4*a^2 - a + 3)*q^176 - q^182
        + 1/5*(-2*a^3 + 4*a^2 - a + 3)*q^187 + 1/5*(3*a^3 - a^2 - a - 2)*q^198 +
        a*q^199 + O(q^206)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
748
);
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:=
206
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 - q^47 - q^53 - q^59 - q^67 - q^77 + q^81 - q^89 - q^103 - 
        q^119 + q^121 - q^137 - q^157 + q^169 - q^179 + q^187 + 2*q^191 + q^203 
        + O(q^206),
    q^7 - q^11 - q^17 + q^29 + q^41 - 2*q^61 + q^63 + q^73 - 2*q^79 - q^99 + 
        q^107 + q^109 + q^131 + q^139 - q^153 - 2*q^167 + q^173 + q^175 - 
        2*q^193 - 2*q^197 + O(q^206)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
749
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
749
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
749
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
106
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
749
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
749
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
749
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^42 - a^13)*q^2 + (-a^31 + a^26 + a^2)*q^4 - a^43*q^7 + (a^44 - a^39 +
        a^20 - a^15)*q^8 + a^34*q^9 + (a^38 + a^6)*q^11 + (a^32 - a^3)*q^14 + 
        (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^32 + a^31 - 
        a^30 + a^29 + 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^5 + a^3 - a^2 + a - 1)*q^16 + (-a^47 - a^23)*q^18 + 
        (-a^51 + a^48 - a^27 - a^19)*q^22 + (a^36 - a^35)*q^23 - a^41*q^25 + 
        (-a^45 - a^21 + a^16)*q^28 + (a^50 + a^14)*q^29 + (-a^51 + a^46 - a^41 +
        a^22 - a^17 + a^12)*q^32 + (a^36 + a^12 - a^7)*q^36 + (a^18 - a^5)*q^37 
        + (a^8 + a^4)*q^43 + (a^40 - a^37 + a^32 + a^16 - a^11 + a^8)*q^44 + 
        (-a^49 + a^48 - a^25 + a^24)*q^46 - a^33*q^49 + (a^30 - a)*q^50 + (-a^29
        + a^22)*q^53 + (a^34 - a^29 + a^10 - a^5)*q^56 + (-a^39 - a^27 + a^10 - 
        a^3)*q^58 + a^24*q^63 + (a^40 - a^35 + a^30 - a^25 - a^11 + a^6 - 
        a)*q^64 + (-a^37 + a^10)*q^67 + (-a^17 + a^2)*q^71 + (-a^49 - a^25 + 
        a^20 - a)*q^72 + (-a^47 - a^31 + a^18 - a^7)*q^74 + (-a^49 + a^28)*q^77 
        + (a^30 - a^7)*q^79 - a^15*q^81 + (a^50 + a^46 - a^21 - a^17)*q^86 + 
        (a^50 - a^45 - a^29 + a^26 + a^24 - a^21 - a^5 + 1)*q^88 + (a^38 - a^37 
        + a^14 - a^13 - a^9 + a^8)*q^92 + (a^46 + a^22)*q^98 + (a^40 - 
        a^19)*q^99 + (-a^43 - a^19 + a^14)*q^100 + (a^42 - a^35 + a^18 - 
        a^11)*q^106 - a^45*q^107 + (a^44 - a^11)*q^109 + (a^51 - a^50 + a^49 - 
        a^48 - a^46 + a^45 - a^44 + a^43 + 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^22 + 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^112 + (-a^27 - a^9)*q^113 + (a^51 - a^50 + a^49 - 
        a^48 + a^47 - a^46 - 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^27 - a^26 + 
        a^25 - a^24 - a^22 + 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^116 + (a^44 - a^23 + a^12)*q^121 + (-a^37 - a^13)*q^126 +
        (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^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^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^127 + 
        (a^48 - a^43 + a^38 - a^29 + a^24 - a^19 + a^14 + 1)*q^128 + (a^51 + 
        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^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^134 + (-a^21 - a^3)*q^137 + 
        O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
749
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
53*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 + q^4 - q^11 - q^12 - q^13 + q^16 - q^19 - q^23 + q^25 + q^27 + 
        2*q^29 + q^33 - q^37 + q^39 - q^41 - q^44 + 2*q^47 - q^48 + q^49 - q^52 
        - q^53 + q^57 - q^61 + q^64 + q^69 - q^75 - q^76 - q^79 - q^81 + 2*q^83 
        - 2*q^87 - q^89 - q^92 + q^100 - q^101 + q^107 + q^108 + q^111 + 2*q^116
        + q^123 + q^132 + 2*q^137 - 2*q^141 + O(q^142),
    q^7 - q^21 + q^28 - q^77 - q^84 - q^91 + q^112 - q^133 + O(q^142)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
749
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
750
);
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^9 + q^24 - q^31 + q^34 - q^46 - q^49 - q^51 + q^69 - q^76 + q^81 - 
        q^94 + q^96 + q^106 + q^109 - q^114 + q^121 - q^124 + q^136 + q^139 + 
        q^166 - q^169 - q^184 - q^186 + q^199 - q^204 - q^211 + q^214 - q^216 + 
        q^226 + q^229 - q^241 + q^244 - q^256 + O(q^262),
    q^2 - q^18 + q^48 - q^62 + q^68 - q^92 - q^98 - q^102 + q^138 - q^152 + 
        q^162 - q^188 + q^192 + q^212 + q^218 - q^228 + q^242 - q^248 + 
        O(q^262),
    q^3 - q^27 - q^32 + q^38 + q^47 - q^48 - q^53 + q^57 + q^62 - q^83 + q^102 -
        q^113 - q^122 - 2*q^137 - q^138 - q^147 + q^152 + q^158 + q^167 + 
        2*q^173 - q^183 - q^218 + 2*q^233 + q^237 + q^243 + q^248 + q^257 + 
        O(q^262),
    q^4 - q^24 - q^34 - q^36 + q^46 + q^76 + q^94 - q^106 + q^114 - q^166 + 
        q^186 - q^196 - q^214 + q^216 - q^226 - q^244 + q^256 + O(q^262),
    q^6 - q^19 + q^24 - q^31 + q^34 - q^46 - q^51 - q^54 + q^61 - q^64 + q^69 - 
        q^79 + q^109 + q^136 + q^139 + q^141 + q^151 - q^159 + q^171 + q^181 - 
        q^184 - q^186 + q^199 - q^211 + q^214 - q^216 + q^229 - q^241 - q^249 - 
        q^256 + O(q^262),
    q^8 - q^17 + q^23 + q^47 - q^48 - q^53 + q^57 - q^68 - q^72 - q^83 + q^92 + 
        q^93 - q^107 - q^113 + q^152 + q^153 + q^167 - q^183 + q^188 - q^197 - 
        q^207 - q^212 - q^227 + q^228 + q^237 + q^257 + O(q^262),
    q^12 + q^17 - q^23 - q^38 - q^47 + q^48 + q^53 - q^57 - q^62 + q^68 + q^83 -
        q^92 - q^93 - q^102 + q^107 - q^108 + q^113 + q^122 - q^128 + q^138 - 
        q^153 - q^158 - q^167 + q^183 + q^197 + q^207 + q^218 + q^227 - q^237 - 
        q^257 + O(q^262),
    q^16 - q^19 + q^24 - q^31 - q^51 + q^61 + q^69 - q^76 - q^79 + q^109 - q^124
        + q^139 + q^141 - q^144 + q^151 - q^159 + q^171 + q^181 + q^199 - q^204 
        - q^211 - q^216 + q^229 - q^241 + q^244 - q^249 - q^256 + O(q^262)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
750
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
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(
750
);
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(
50
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
750
);
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(
50
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
750
);
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:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
750
);
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(
10
);
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
750
);
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:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
750
);
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:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
750
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 50*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
262
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^24 - q^31 - q^34 - q^46 + q^49 - q^51 - q^69 - q^76 + q^81 + 
        q^94 + q^96 + q^106 - q^109 + q^114 + q^121 + q^124 + q^136 - q^139 + 
        q^166 + q^169 + q^184 - q^186 - q^199 + q^204 - q^211 - q^214 - q^216 + 
        q^226 - q^229 - q^241 - q^244 - q^256 + O(q^262),
    q^2 + q^18 - q^48 - q^62 - q^68 - q^92 + q^98 - q^102 - q^138 - q^152 + 
        q^162 + q^188 + q^192 + q^212 - q^218 + q^228 + q^242 + q^248 + 
        O(q^262),
    q^3 + q^27 + q^32 + q^38 - q^47 - q^48 - q^53 - q^57 - q^62 - q^83 - q^102 -
        q^113 + q^122 + 2*q^137 - q^138 + q^147 - q^152 + q^158 - q^167 + 
        2*q^173 - q^183 - q^218 + 2*q^233 - q^237 + q^243 + q^248 - q^257 + 
        O(q^262),
    q^4 - q^24 - q^34 + q^36 - q^46 - q^76 + q^94 + q^106 + q^114 + q^166 - 
        q^186 + q^196 - q^214 - q^216 + q^226 - q^244 - q^256 + O(q^262),
    q^6 + q^19 - q^24 - q^31 - q^34 - q^46 - q^51 + q^54 + q^61 + q^64 - q^69 + 
        q^79 - q^109 + q^136 - q^139 + q^141 + q^151 + q^159 + q^171 + q^181 + 
        q^184 - q^186 - q^199 - q^211 - q^214 - q^216 - q^229 - q^241 + q^249 - 
        q^256 + O(q^262),
    q^8 + q^17 + q^23 - q^47 - q^48 - q^53 - q^57 - q^68 + q^72 - q^83 - q^92 + 
        q^93 + q^107 - q^113 - q^152 + q^153 - q^167 - q^183 + q^188 + q^197 + 
        q^207 + q^212 + q^227 + q^228 - q^237 - q^257 + O(q^262),
    q^12 + q^17 + q^23 + q^38 - q^47 - q^48 - q^53 - q^57 - q^62 - q^68 - q^83 -
        q^92 + q^93 - q^102 + q^107 + q^108 - q^113 + q^122 + q^128 - q^138 + 
        q^153 + q^158 - q^167 - q^183 + q^197 + q^207 - q^218 + q^227 - q^237 - 
        q^257 + O(q^262),
    q^16 + q^19 - q^24 - q^31 - q^51 + q^61 - q^69 - q^76 + q^79 - q^109 + q^124
        - q^139 + q^141 + q^144 + q^151 + q^159 + q^171 + q^181 - q^199 + q^204 
        - q^211 - q^216 - q^229 - q^241 - q^244 + q^249 - q^256 + O(q^262)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
751
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
750
);
qprec:=
125
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
751
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
250
);
qprec:=
125
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
751
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
150
);
qprec:=
125
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
751
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
50
);
qprec:=
125
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
751
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
25*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
125
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
751
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
75*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
125
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
751
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
125*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
125
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
751
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
375*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
125
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^13 + q^18 + q^20 + q^21 - q^25 - 2*q^26 - q^32 + q^33 + q^37 - q^40 - 
        q^42 - q^43 + q^46 + q^50 + q^51 - q^53 + q^64 - q^65 - q^66 - q^71 - 
        q^72 - q^76 - q^77 + q^89 - q^94 + q^95 + q^97 + q^98 - q^100 - q^102 + 
        q^106 - q^107 + q^109 - q^118 - q^119 - q^122 - q^123 + O(q^125),
    q^2 + q^18 - q^25 - q^26 - q^40 - q^43 + q^50 - q^71 - q^76 + q^95 + q^97 + 
        q^98 + q^109 + q^115 - q^118 + O(q^125),
    q^3 - q^6 - q^7 - q^11 + q^14 - q^17 + q^22 + q^24 + q^34 + q^39 + q^41 - 
        q^48 - q^56 + q^57 + q^63 - q^67 - q^69 - q^75 - q^78 + q^79 - q^82 - 
        q^83 - q^88 - q^91 + q^99 + q^101 + q^111 + q^112 - q^114 + O(q^125),
    q^4 - q^13 - q^20 + q^36 - q^38 + q^47 - q^59 + q^61 + q^65 - q^95 + q^100 -
        q^106 + q^107 + q^115 - q^117 + O(q^125),
    q^5 - q^13 - q^16 + q^40 + q^45 + q^46 - q^50 - q^59 + q^74 - q^86 + q^92 - 
        q^95 - q^117 + O(q^125),
    q^8 - q^13 - q^16 - q^20 + q^25 + q^26 + q^32 - q^38 + q^40 + q^43 - q^50 - 
        q^52 - q^59 - q^64 + q^71 + q^72 + q^76 - q^80 - q^86 + q^94 - q^95 + 
        q^100 + q^104 - q^106 - q^117 + q^118 + q^122 + O(q^125),
    q^9 - q^13 - q^18 - q^20 - q^21 + 2*q^25 + 2*q^26 + q^32 - q^33 - q^37 + 
        q^40 + q^42 + q^43 - q^46 - q^47 + q^49 - 2*q^50 - q^51 - q^52 + q^53 - 
        q^61 - q^64 + q^66 + q^71 + q^72 + q^76 + q^77 - q^80 + q^81 - q^86 - 
        q^89 + q^94 - q^95 - q^97 - q^98 + q^100 + q^102 - q^106 - q^109 - q^115
        + q^118 + q^119 + q^121 + q^122 + q^123 + O(q^125),
    q^10 - q^13 - q^16 + q^23 + q^37 - q^38 + q^40 + q^46 - q^50 - q^52 - q^59 -
        q^64 + q^74 + q^76 - q^86 + q^89 + q^90 + q^92 - q^95 + q^104 - q^106 - 
        q^117 + O(q^125),
    q^19 - q^20 - q^23 + q^26 + q^32 - q^37 - q^46 + q^53 + q^65 - q^74 - q^89 +
        q^100 + q^118 + O(q^125)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
752
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
752
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
752
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
752
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
752
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
92
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
752
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
752
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
752
);
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(
92
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
752
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
752
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
23*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    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 + O(q^182),
    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 + O(q^182)
]
;
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 + O(q^182),
    q^2 - q^14 - q^42 + q^50 - q^54 + q^94 + q^98 + q^102 - q^106 - q^118 - 
        q^122 + q^126 + 2*q^166 - q^178 + O(q^182),
    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 + O(q^182),
    q^4 - q^28 - q^84 + q^100 - q^108 + O(q^182),
    q^6 - q^14 - q^18 + q^34 + q^74 + q^98 - q^102 - q^106 - q^118 - q^122 + 
        q^142 + q^150 + q^158 - q^178 + O(q^182),
    q^8 - q^48 - q^56 + q^112 - q^128 + q^144 - q^168 + O(q^182),
    q^12 - q^28 - q^36 + q^68 + q^148 + O(q^182),
    q^16 - q^48 - q^96 - q^128 + q^144 + O(q^182),
    q^24 - q^56 + q^64 - q^72 - q^96 - q^128 + q^136 + O(q^182),
    q^32 - q^48 - q^64 + q^112 + q^144 + O(q^182)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
752
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 23*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^9 + a*q^12 - a*q^14 - q^18 + q^24 + a*q^25 - q^32 + q^42 - q^47 - 
        q^49 + (a - 1)*q^51 + a*q^54 - a*q^68 - q^81 + (-a + 1)*q^83 - a*q^84 + 
        a*q^102 - a*q^106 + q^108 + 2*q^111 + a*q^112 + q^118 + a*q^121 + q^122 
        - q^126 - a*q^136 - q^144 + (-a + 1)*q^147 - q^148 + a*q^162 + q^168 - 
        a*q^169 + a*q^178 + O(q^182),
    q^2 - a*q^7 + q^9 - a*q^18 + a*q^21 + a*q^24 + q^27 - a*q^28 - q^36 + q^48 +
        a*q^50 - q^51 - q^53 + a*q^59 - a*q^61 - q^63 - q^64 - a*q^81 + q^84 + 
        a*q^89 - q^94 - q^97 - q^98 + (a - 1)*q^102 + a*q^108 + a*q^111 + q^119 
        - a*q^131 - a*q^136 + a*q^147 - a*q^153 - q^157 + a*q^159 - q^162 + (-a 
        + 1)*q^166 - a*q^168 + q^173 + q^175 - q^177 + O(q^182),
    q^3 - a*q^7 + a*q^8 - q^9 + q^12 - q^16 - q^17 + q^28 + (-a - 1)*q^34 + 
        a*q^36 + a*q^37 - 2*a*q^42 + a*q^49 + a*q^51 - a*q^53 + a*q^56 + q^59 + 
        q^61 - a*q^68 + q^71 + a*q^75 - a*q^79 + a*q^89 - q^96 - q^97 + (-a - 
        1)*q^98 - a*q^101 - a*q^103 - a*q^111 + q^112 + (a - 1)*q^119 + (a + 
        1)*q^126 + q^131 - q^141 + (a - 1)*q^142 - 2*q^147 + a*q^148 + q^149 - 
        q^153 + a*q^157 + (a + 1)*q^158 + (a + 1)*q^162 - a*q^168 - a*q^173 + 
        q^175 + O(q^182),
    q^4 - a*q^7 + a*q^8 - q^9 + q^12 - a*q^14 - q^16 + (a - 1)*q^17 + q^18 - 
        q^21 + a*q^27 + q^28 + (-a - 1)*q^34 - a*q^42 + a*q^48 + (a - 1)*q^49 + 
        a*q^51 - a*q^53 + q^54 + q^59 + q^61 - a*q^63 - a*q^68 + (a + 1)*q^71 - 
        q^72 + (-a + 1)*q^79 + q^81 + a*q^89 - q^97 + (-a - 1)*q^98 + a*q^100 - 
        q^102 + (-a - 1)*q^103 - q^106 - a*q^111 + q^112 + a*q^118 + a*q^119 - 
        a*q^122 + a*q^126 - q^128 + q^131 + (a - 1)*q^142 - q^147 + a*q^148 + 
        2*q^149 - a*q^153 + a*q^157 + (a + 1)*q^158 - q^159 + q^162 + (-a + 
        1)*q^168 - a*q^173 + q^175 - a*q^177 + a*q^178 + O(q^182),
    q^6 - q^7 + a*q^9 - a*q^12 + a*q^16 - a*q^21 + q^27 - q^34 - q^42 + q^51 - 
        q^53 - a*q^54 + q^56 - a*q^59 - a*q^61 + a*q^63 - q^68 + a*q^72 + a*q^74
        + q^81 - a*q^84 + q^89 + a*q^97 + a*q^98 - q^108 - q^111 + a*q^119 + 
        q^126 - a*q^131 + q^142 + q^144 + a*q^147 + q^148 + a*q^150 - q^153 + 
        q^157 - a*q^158 - q^159 - a*q^162 - q^168 - q^173 - a*q^175 + a*q^177 + 
        O(q^182)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
752
);
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:=
182
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^55 - q^63 - q^65 - q^79 + q^81 + q^95 - q^97 + q^103 + q^111 + q^143 -
        q^145 + O(q^182),
    q^2 - q^18 - q^24 - q^28 + q^36 + q^48 - q^50 + q^64 + q^84 + q^94 + q^98 - 
        q^108 - 2*q^126 - q^136 + q^162 - q^168 + O(q^182),
    q^3 - q^37 + q^51 + q^53 - q^59 - q^61 - q^75 - q^101 - q^131 + q^141 + 
        q^149 + q^157 + q^173 + O(q^182),
    q^4 - q^14 + q^18 - q^36 - q^42 - q^48 + q^54 - q^56 + q^72 + q^96 - q^100 +
        q^102 + q^106 - q^118 - q^122 + q^126 + q^128 - q^162 + q^168 - q^178 + 
        O(q^182),
    q^5 - q^11 - q^13 + q^19 - q^29 + q^43 + q^45 - q^67 - q^99 + q^107 + q^109 
        - q^117 - q^139 - q^163 + q^171 + q^179 + q^181 + O(q^182),
    q^6 + q^14 - 2*q^18 - q^24 - q^28 - q^32 + 2*q^36 + q^42 + q^48 - q^50 - 
        q^54 + q^56 + q^64 + q^68 - 2*q^72 - q^74 + q^94 - q^96 + q^98 + q^100 +
        q^110 - 2*q^126 - q^128 + q^130 + q^144 - q^150 + q^158 + q^162 - q^168 
        + q^178 + O(q^182),
    q^7 + q^25 - q^47 - q^49 - q^55 - q^65 - q^79 + q^81 + q^89 + q^95 - 2*q^97 
        + q^103 - q^119 + q^121 + q^143 - q^145 + q^153 + q^159 + q^169 - q^175 
        - q^177 + O(q^182),
    q^8 - q^14 + 2*q^18 + q^24 + q^32 - q^34 - q^36 - q^48 + q^50 - q^56 - q^64 
        - q^68 + q^72 - q^84 - q^94 - q^100 + q^108 - q^110 - q^112 + q^126 + 
        q^128 - q^130 - q^142 + q^168 - q^178 + O(q^182),
    q^9 + q^25 - q^47 - q^49 - q^55 + q^63 - q^65 - q^79 + q^95 - q^97 + q^103 -
        q^111 + q^121 + q^143 - q^145 + q^169 + O(q^182),
    q^10 - q^20 - q^22 - q^26 + q^38 + q^40 + q^44 + q^52 - q^58 - q^76 - q^80 +
        q^86 - q^88 + q^90 - q^104 + q^116 - q^134 + q^152 + q^160 - q^172 + 
        q^176 - q^180 + O(q^182),
    q^12 + q^14 - q^18 - q^24 - q^32 - q^42 + q^54 + q^68 + q^84 + q^102 + q^106
        - q^108 + q^112 - q^118 - q^122 - q^126 + q^136 - q^144 - q^148 + q^162 
        - q^168 + q^178 + O(q^182),
    q^16 - q^18 - q^28 - q^34 + 2*q^36 + q^42 + q^48 - q^50 - q^54 + q^64 - q^68
        - q^72 + q^94 - q^96 + 2*q^98 + q^100 - q^102 - q^106 + q^110 - q^112 + 
        q^118 + q^122 - 2*q^126 - q^128 + q^130 - q^136 - q^142 + q^144 + 
        2*q^158 + q^162 - q^168 + O(q^182),
    q^17 - q^49 + q^63 + q^71 - q^79 - q^81 - q^103 - q^119 - q^159 + q^177 + 
        O(q^182),
    q^21 - q^27 - q^51 - q^53 + q^59 + q^61 + q^131 + q^147 - q^157 - q^173 + 
        O(q^182)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
753
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
753
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
250
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
753
);
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(
250
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
753
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
50
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
753
);
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(
50
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
753
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
25*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(
753
);
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(
10
);
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
753
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
125*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
166
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 + q^16 - q^21 - q^23 - q^31 - q^35 - q^45 + q^49 - q^51 + q^63 + 
        q^64 + q^65 + q^69 - q^73 + q^75 + 2*q^83 - q^84 - q^85 - q^89 - q^91 - 
        q^92 + q^93 - q^101 - q^117 + 2*q^119 + q^121 - q^123 - q^124 - q^140 - 
        q^149 + q^153 - q^161 + O(q^166),
    q^3 + q^12 - q^21 - q^45 + q^48 - q^51 + q^75 - q^84 - q^105 - q^117 - q^123
        - q^135 + q^147 + O(q^166),
    q^5 + q^13 + q^20 - q^23 - q^25 + q^27 - q^31 - q^35 - q^45 + q^49 + q^52 - 
        q^65 + q^67 - q^73 + q^79 + q^80 - q^85 - q^89 - q^91 - q^92 - q^100 - 
        q^101 + q^108 + q^113 + q^115 - q^117 + q^119 - q^124 + q^125 + q^131 - 
        q^135 - q^140 - q^149 + q^155 + O(q^166),
    q^7 + q^17 - q^23 - q^25 + q^27 + q^28 - q^31 + q^41 - q^63 - q^65 + q^68 - 
        q^73 - q^81 - q^89 - q^92 - q^100 - q^101 + q^103 + q^108 + q^112 + 
        q^115 - q^124 + q^125 - q^135 - q^149 - q^153 + q^155 - q^161 + q^164 + 
        O(q^166),
    q^9 - q^21 - q^27 + q^36 - q^45 - q^51 + q^63 + q^69 + q^75 + q^81 - q^84 + 
        q^93 - q^108 - q^117 - q^123 + q^144 + q^153 + O(q^166),
    q^15 - q^21 - q^27 + q^39 - q^51 + q^60 + q^63 + q^81 - q^84 - q^105 - q^108
        - q^123 + q^147 + q^153 + q^156 + O(q^166)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
754
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
204
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
754
);
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:=
204
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
754
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
204
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
754
);
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(
84
);
qprec:=
204
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
754
);
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(
84
);
qprec:=
204
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
754
);
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(
28
);
qprec:=
204
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
754
);
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(
84
);
qprec:=
204
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
754
);
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(
28
);
qprec:=
204
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
754
);
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:=
204
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
754
);
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:=
204
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
754
);
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:=
204
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
754
);
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(
12
);
qprec:=
204
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
754
);
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(
12
);
qprec:=
204
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
754
);
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(
4
);
qprec:=
204
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
754
);
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(
12
);
qprec:=
204
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
754
);
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(
4
);
qprec:=
204
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
755
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
150
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
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(
30
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
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(
100
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
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(
60
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
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(
10
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
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(
6
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (-a + 1)*q^5 - q^9 + (-a + 1)*q^11 + (a - 1)*q^16 - q^19 - q^20 
        - a*q^25 + q^29 + (-2*a + 2)*q^31 + a*q^36 + (2*a - 1)*q^41 - q^44 + (a 
        - 1)*q^45 + a*q^49 - a*q^55 + q^59 + (-a + 2)*q^61 + q^64 + (a - 2)*q^71
        + a*q^76 + a*q^80 + q^81 + (a - 1)*q^95 + (a - 1)*q^99 + (a - 1)*q^100 +
        (2*a - 1)*q^101 - a*q^116 - 2*q^124 - q^125 + (2*a - 1)*q^131 - a*q^139 
        + (-a + 1)*q^144 + (-a + 1)*q^145 + (a + 1)*q^149 + O(q^150)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
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(
20
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
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(
12
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + a^2*q^5 + a^3*q^9 - a^2*q^11 + (-a^2 - a + 1)*q^13 + a^2*q^16 + 
        (a^3 + a^2 - a)*q^17 - a^3*q^19 + a^3*q^20 + (a^3 - a^2 - a)*q^23 + (a^2
        - 1)*q^25 - a^3*q^29 + (a^2 - 1)*q^36 + (-a^3 - a^2 + a)*q^37 + q^41 - 
        a^3*q^44 + (a^3 - a)*q^45 + (-a^2 + a + 1)*q^47 + a*q^49 + (-a^3 - a^2 +
        a)*q^52 + (-a^2 + 1)*q^55 + a^3*q^59 + (a^2 - 1)*q^61 + a^3*q^64 + (-a^3
        + 1)*q^65 + (-a^3 - 1)*q^67 + (a^3 - 1)*q^68 + (a^2 - 1)*q^71 + (-a^2 + 
        1)*q^76 - 2*a^3*q^79 + (a^2 - 1)*q^80 - q^81 + (a^2 - a - 1)*q^85 + 
        (-a^3 - 1)*q^92 + (-a^3 + a)*q^95 + (-a^3 + a)*q^99 + (a^3 - a)*q^100 - 
        q^101 + (-a^3 + a^2 + a)*q^103 + (a^3 - a^2 - a)*q^113 + (-a^2 - a + 
        1)*q^115 + (-a^2 + 1)*q^116 + (-a^2 + a + 1)*q^117 - q^125 + (a^3 + 
        1)*q^127 - q^131 + (a^2 - a - 1)*q^137 - a*q^139 + (a^3 - 1)*q^143 + 
        (a^3 - a)*q^144 + (-a^3 + a)*q^145 + (-a^3 + 1)*q^148 + (-a^3 + a)*q^149
        + O(q^150)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
75*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^11 - q^17 - q^25 - q^32 - q^37 + q^38 + q^44 + q^49 + q^58 - 
        q^62 + q^68 + q^81 - q^86 - q^88 + q^94 - q^99 - q^103 - q^118 + q^121 -
        q^124 + q^128 - q^136 + q^148 + O(q^150),
    q^2 - q^16 + q^18 + q^19 + q^29 - q^31 - q^43 - q^44 + q^47 - q^50 - q^59 - 
        q^62 - q^68 + q^76 - q^86 + q^88 + q^97 + q^98 + q^116 - q^118 - q^121 +
        q^125 - q^127 + q^136 - q^137 + q^139 - q^144 - q^148 + O(q^150),
    q^4 - q^8 + q^11 + q^17 - q^22 - q^31 - q^34 + q^36 + q^37 + q^38 - q^43 + 
        q^58 - q^59 - q^72 - q^74 - q^76 + q^94 + q^99 - q^100 + q^103 - q^116 -
        q^121 + q^125 - q^127 - q^137 + O(q^150),
    q^5 + q^45 - q^50 - q^55 - q^85 - q^100 + q^125 + O(q^150),
    q^10 - q^25 - q^50 - q^80 + q^90 + q^95 + q^125 + q^145 + O(q^150),
    q^20 - q^25 - q^40 + q^55 + q^85 - q^110 + O(q^150)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
755
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 75*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^17 - 3/2*q^20 + 1/2*q^25 + q^31 - q^32 - q^34 + q^36 - q^37 + q^38 - 
        q^39 - 1/2*q^40 - q^45 - q^49 - 1/2*q^55 - q^58 + q^59 + q^62 + q^64 - 
        q^68 - q^69 + q^74 - q^76 + q^81 + 1/2*q^85 + q^86 - q^88 + q^94 + q^95 
        - q^99 + q^103 - 1/2*q^110 + q^116 + q^118 - q^124 + q^128 + q^136 - 
        q^139 + q^144 - q^145 + q^148 + O(q^150),
    q^2 + q^16 - 2*q^17 - q^18 + 3/2*q^20 + 1/2*q^25 - q^31 + 2*q^32 + q^34 + 
        2*q^37 - 2*q^38 + 1/2*q^40 - q^43 + q^44 - q^47 - q^50 + 3/2*q^55 + 
        2*q^58 - q^59 - q^62 - q^64 + q^68 - q^74 + q^76 - 2*q^80 - 1/2*q^85 - 
        q^86 + 3*q^88 - 2*q^95 - q^97 - q^98 - 2*q^103 + 1/2*q^110 - q^116 - 
        q^118 + q^121 + q^124 - q^125 - q^127 - 2*q^128 - q^136 + q^137 - q^144 
        + 2*q^145 - q^148 + O(q^150),
    q^3 + q^12 - q^13 - q^15 - q^23 + q^27 - q^33 + q^48 - q^52 - q^57 - q^60 + 
        q^65 + q^67 + q^73 + q^75 - q^83 + q^87 - q^92 + q^93 + q^107 + q^108 + 
        q^115 - 2*q^117 - q^132 - q^135 + q^143 - q^147 + O(q^150),
    q^4 + q^16 - q^17 + 3/2*q^20 - q^21 + 1/2*q^25 - q^29 - 2*q^31 + q^32 + q^34
        - q^36 + q^37 - q^38 + q^39 + 1/2*q^40 + q^45 + 2*q^49 - 1/2*q^55 + q^58
        - 2*q^59 - q^62 + q^68 + q^69 - q^74 + q^76 - q^81 - q^84 - 1/2*q^85 - 
        q^86 + q^88 - q^91 - q^94 - 2*q^95 + q^100 - q^103 - q^105 + 1/2*q^110 -
        2*q^116 - q^118 + q^121 - q^128 - q^136 + q^139 - q^144 + q^145 - q^148 
        + O(q^150),
    q^5 - 2*q^16 + 2*q^17 - 2*q^20 + 2*q^31 - 2*q^32 - 2*q^34 - 2*q^37 + 2*q^38 
        - 2*q^44 - q^45 + q^50 - q^55 - 2*q^58 + 2*q^59 + 2*q^62 + 2*q^64 - 
        2*q^68 + 2*q^74 - 2*q^76 + 2*q^80 + q^85 + 2*q^86 - 2*q^88 + 2*q^95 - 
        q^100 + 2*q^103 + 2*q^116 + 2*q^118 - 2*q^121 - 2*q^124 + q^125 + 
        2*q^128 + 2*q^136 + 2*q^144 - 2*q^145 + 2*q^148 + O(q^150),
    q^7 - q^13 - q^15 - q^23 + q^27 + q^28 + q^35 - q^52 + q^53 - q^60 - q^77 - 
        q^83 + q^87 - q^92 + q^93 + q^108 + q^112 + q^113 - q^117 - q^133 + 
        q^140 + q^143 - 2*q^147 + O(q^150),
    q^8 + q^16 - 2*q^17 + q^20 + q^22 - q^31 + q^32 + q^34 + 2*q^37 - 2*q^38 - 
        q^43 + q^44 - q^50 + q^55 + 2*q^58 - q^59 - q^62 - q^64 + q^68 - q^72 - 
        q^74 + q^76 - q^80 - q^85 - q^86 + q^88 - 2*q^95 + q^100 - 2*q^103 - 
        q^116 - q^118 + q^121 + q^124 - q^125 - q^127 - q^128 - q^136 + q^137 - 
        q^144 + 2*q^145 - q^148 + O(q^150),
    q^9 - 2*q^16 + 2*q^17 - 3*q^20 + q^21 + q^29 + 3*q^31 - 2*q^32 - 2*q^34 + 
        q^36 - 2*q^37 + 2*q^38 - 2*q^39 - 2*q^44 - 2*q^45 - 2*q^49 + q^50 - 
        2*q^58 + 3*q^59 + 2*q^62 + 2*q^64 - 2*q^68 - 2*q^69 + 2*q^74 - 2*q^76 + 
        q^80 + q^81 + q^84 + q^85 + 2*q^86 - 2*q^88 + q^91 + 3*q^95 - q^99 - 
        q^100 + 2*q^103 + q^105 + 3*q^116 + 2*q^118 - 2*q^121 - q^124 + 2*q^128 
        + 2*q^136 - 2*q^139 + 3*q^144 - 2*q^145 + 2*q^148 + O(q^150),
    q^10 + 2*q^17 - q^20 - 2*q^32 - 2*q^37 + 2*q^38 - q^40 + q^50 - q^55 - 
        2*q^58 + 2*q^62 - 2*q^68 + q^80 + q^85 - 2*q^88 - q^90 + q^95 + 2*q^103 
        - q^110 + 2*q^118 + q^125 + 2*q^128 - q^145 + 2*q^148 + O(q^150),
    q^11 - 2*q^16 + 2*q^17 - 5/2*q^20 + q^21 - 1/2*q^25 + q^29 + 2*q^31 - 2*q^32
        - q^34 - 2*q^37 + 2*q^38 - q^39 - 1/2*q^40 - q^44 - q^45 - 2*q^49 + q^50
        - 1/2*q^55 - 2*q^58 + 2*q^59 + 2*q^62 + q^64 - 2*q^68 - q^69 + q^74 - 
        q^76 + q^80 + q^81 + q^84 + 3/2*q^85 + 2*q^86 - 2*q^88 + q^91 + 2*q^95 -
        q^99 - q^100 + 2*q^103 + q^105 - 1/2*q^110 + 2*q^116 + 2*q^118 - q^121 -
        q^124 + 2*q^128 + 2*q^136 - q^139 + 2*q^144 - q^145 + 2*q^148 + 
        O(q^150),
    q^19 - 1/2*q^20 + 1/2*q^25 - q^29 - q^34 + 1/2*q^40 - 1/2*q^55 + q^64 + q^74
        - 1/2*q^85 + 1/2*q^110 - q^124 - q^139 + O(q^150)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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(
756
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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(
6
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^13 - q^19 + q^25 + 2*q^31 - q^37 + 2*q^43 - q^49 - q^61 - q^67 - q^73 
        - q^79 - q^97 - q^103 + 2*q^109 + q^121 + 2*q^127 - q^139 - q^151 + 
        2*q^157 - q^163 - q^181 - q^193 - q^199 - q^211 + 2*q^223 + 2*q^229 - 
        q^241 + q^247 + O(q^254),
    q^7 - q^49 - q^91 - q^133 + q^175 + 2*q^217 + O(q^254)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^7 + (-a + 2)*q^19 + (a - 1)*q^25 + (-a - 1)*q^31 + 2*a*q^37 +
        q^43 - a*q^49 + (a - 2)*q^61 + (2*a - 2)*q^67 + (-a - 1)*q^73 - 2*a*q^79
        + (2*a - 1)*q^97 + (a - 1)*q^109 + a*q^121 - q^127 + (-2*a + 1)*q^133 + 
        (a - 1)*q^151 + a*q^163 + q^169 + a*q^175 + (-2*a + 1)*q^181 + (-2*a + 
        2)*q^193 + (-a - 1)*q^199 + q^211 + (a - 2)*q^217 + (-a + 2)*q^229 + (a 
        + 1)*q^241 + O(q^254)
]
;
Bo:=
[
    q - q^13 + (a - 1)*q^19 + (a - 1)*q^25 + (-a - 1)*q^31 - a*q^37 + q^43 + 
        a*q^49 + q^61 + (-a + 1)*q^67 + q^73 + a*q^79 + (-2*a + 2)*q^91 + (-a + 
        1)*q^97 - a*q^103 + (a - 1)*q^109 + a*q^121 - q^127 - q^133 + q^139 - 
        a*q^151 - q^163 - 2*q^169 + a*q^181 + (a - 1)*q^193 + a*q^199 + (a - 
        1)*q^211 + (-a + 2)*q^229 - a*q^241 + (a + 1)*q^247 + O(q^254),
    q^2 + (-a + 1)*q^8 - q^14 + (2*a - 1)*q^26 - a*q^32 + (a - 1)*q^50 + (a - 
        1)*q^56 + (-a - 1)*q^62 - a*q^74 + q^86 + q^98 + (a + 1)*q^104 + (-a + 
        2)*q^122 - q^128 + (-a + 1)*q^134 + a*q^158 + (-2*a + 1)*q^182 + (-2*a +
        1)*q^194 + a*q^200 + (a - 2)*q^206 + (a - 1)*q^218 + a*q^224 + a*q^242 +
        (a - 2)*q^248 + O(q^254),
    q^3 + a*q^21 + (-2*a + 1)*q^39 + (a - 2)*q^57 + (a - 1)*q^75 + (-a - 1)*q^93
        - a*q^111 + q^129 + (a - 1)*q^147 + (-a + 1)*q^201 + (a + 1)*q^219 + 
        a*q^237 + O(q^254),
    q^4 + (-a + 1)*q^16 - q^28 + (2*a - 1)*q^52 - a*q^64 + (a - 1)*q^100 + (a - 
        1)*q^112 + (-a - 1)*q^124 - a*q^148 + q^172 + q^196 + (a + 1)*q^208 + 
        (-a + 2)*q^244 + O(q^254),
    q^7 - 2*a*q^13 + (a - 1)*q^19 + (a - 1)*q^49 + (a - 1)*q^61 + q^73 + q^91 + 
        a*q^97 + (-2*a + 2)*q^103 - q^133 + 2*a*q^139 + (-2*a + 1)*q^151 + (-a -
        1)*q^163 + (a - 1)*q^175 + a*q^181 - q^199 + (a - 2)*q^211 + (-a - 
        1)*q^217 + q^241 + (a + 1)*q^247 + O(q^254)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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(
18
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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(
6
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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(
6
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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(
6
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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(
6
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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(
6
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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(
18
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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(
6
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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(
6
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^7 + 2*q^13 + (-a + 1)*q^19 - a*q^25 + a*q^31 + (2*a - 2)*q^37 - q^43
        + (a - 1)*q^49 + (-a + 1)*q^61 - 2*a*q^67 + a*q^73 + (2*a - 2)*q^79 - 
        2*a*q^91 - q^97 + (2*a - 2)*q^103 + a*q^109 + (a - 1)*q^121 - q^127 - 
        q^133 + 2*q^139 + a*q^151 - 2*a*q^157 + (-a + 1)*q^163 + 3*q^169 + (a - 
        1)*q^175 - q^181 - 2*a*q^193 + a*q^199 - q^211 + (-a + 1)*q^217 + 
        2*q^223 + (-a + 1)*q^229 + a*q^241 + (-2*a + 2)*q^247 + O(q^254)
]
;
Bo:=
[
    q - q^13 + a*q^19 - a*q^25 + a*q^31 + (-a + 1)*q^37 - q^43 + (-a + 1)*q^49 -
        q^61 + a*q^67 - q^73 + (-a + 1)*q^79 + a*q^97 + (-a + 1)*q^103 + a*q^109
        + (a - 1)*q^121 - q^127 + (2*a - 1)*q^133 - q^139 + (-a + 1)*q^151 - 
        2*a*q^157 - q^163 + (-a + 1)*q^181 + a*q^193 + (-a + 1)*q^199 + a*q^211 
        + 2*q^223 + (-a + 1)*q^229 + (-a + 1)*q^241 - a*q^247 + O(q^254),
    q^2 - a*q^8 + q^14 - q^26 + (a - 1)*q^32 + (2*a - 2)*q^38 - a*q^50 - a*q^56 
        + a*q^62 + (-a + 1)*q^74 - q^86 + q^98 + a*q^104 + (-a + 1)*q^122 + 
        q^128 + a*q^134 - 2*a*q^146 + 2*q^152 + (-a + 1)*q^158 - q^182 - q^194 +
        (a - 1)*q^200 + (-a + 1)*q^206 + a*q^218 + (a - 1)*q^224 + (a - 1)*q^242
        + (-a + 1)*q^248 + O(q^254),
    q^3 + (a - 1)*q^21 - q^39 + (-a + 1)*q^57 - a*q^75 + a*q^93 + (-a + 1)*q^111
        - q^129 - a*q^147 + (2*a - 2)*q^183 + a*q^201 + a*q^219 + (-a + 1)*q^237
        + O(q^254),
    q^4 - a*q^16 + q^28 - q^52 + (a - 1)*q^64 + (2*a - 2)*q^76 - a*q^100 - 
        a*q^112 + a*q^124 + (-a + 1)*q^148 - q^172 + q^196 + a*q^208 + (-a + 
        1)*q^244 + O(q^254),
    q^7 + (a - 2)*q^19 + a*q^49 + (-a + 2)*q^61 + (-2*a + 1)*q^73 - q^91 + (-a -
        1)*q^97 - q^133 + (2*a - 1)*q^151 + (-a + 2)*q^163 - a*q^175 + (a + 
        1)*q^181 + (2*a - 1)*q^199 + (-a - 1)*q^211 + a*q^217 + (2*a - 1)*q^241 
        + (-a + 2)*q^247 + O(q^254),
    q^9 - a*q^27 + (a - 1)*q^63 + (a - 1)*q^81 - q^117 + (-a + 1)*q^171 + q^189 
        - a*q^225 + q^243 + O(q^254)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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(
6
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.2 + 2*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(
756
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^37 - q^43 - q^79 - q^85 - q^91 - q^109 - q^121 + q^127 + q^133 + q^151
        - q^163 - q^169 + q^175 + q^193 + q^205 - q^235 + 2*q^247 + O(q^254),
    q^5 + q^17 - q^35 - q^41 + q^47 - q^59 - q^83 - q^119 - q^125 + q^167 + 
        q^185 + q^215 + q^245 + q^251 + O(q^254),
    q^7 + 2*q^25 - 2*q^43 - q^49 - 2*q^67 + 2*q^85 - q^91 - 2*q^109 + 2*q^127 + 
        q^133 - 2*q^169 - q^175 - 2*q^205 + 2*q^211 + 2*q^235 + 2*q^247 + 
        O(q^254),
    q^13 - q^19 - q^25 + q^43 + q^49 - q^61 + q^67 - q^73 - q^85 + q^91 + q^97 -
        q^103 + q^109 - q^127 - q^133 - q^139 + q^169 + q^175 + q^181 + q^199 + 
        q^205 - q^211 - q^235 - q^241 - q^247 + O(q^254)
]
;
Bo:=
[
    q - q^7 + q^25 - 2*q^37 - 2*q^43 + q^49 + 2*q^67 + 2*q^79 - 2*q^109 - q^121 
        + 2*q^127 - 2*q^151 + 2*q^163 + q^169 - q^175 - 2*q^193 - 2*q^211 + 
        O(q^254),
    q^2 - q^8 - q^14 + q^32 + q^50 + q^56 - 2*q^74 - 2*q^86 + q^98 - q^128 + 
        2*q^134 + 2*q^158 - q^200 - 2*q^218 - q^224 - q^242 + O(q^254),
    q^3 - q^21 + q^75 - 2*q^111 - 2*q^129 + q^147 + 2*q^201 + 2*q^237 + 
        O(q^254),
    q^4 - q^16 - q^28 + q^64 + q^100 + q^112 - 2*q^148 - 2*q^172 + q^196 + 
        O(q^254),
    q^6 - q^24 - q^42 + q^96 + q^150 + q^168 - 2*q^222 + O(q^254),
    q^12 - q^48 - q^84 + q^192 + O(q^254)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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(
18
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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(
18
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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(
6
);
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
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:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
756
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 9*H.2 + 3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
254
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^22 - q^37 - q^46 + q^49 + q^64 - q^70 - 2*q^85 - q^88 - 
        q^109 - q^133 - q^142 - q^148 + q^169 - q^184 + q^190 + 2*q^193 + q^196 
        + q^205 + 2*q^214 - q^217 + 2*q^238 + q^253 + O(q^254),
    q^2 + q^8 - q^11 - q^23 + q^32 - q^35 - q^44 - q^71 - q^74 - q^92 + q^95 + 
        q^98 + 2*q^107 + 2*q^119 + q^128 - q^140 + q^155 - 2*q^170 - q^176 + 
        2*q^179 - q^191 - q^218 + 2*q^239 + O(q^254),
    q^5 - q^14 - 2*q^17 + q^20 + q^38 + q^41 - q^56 + q^62 - 2*q^68 + q^77 + 
        q^80 + q^89 - 2*q^101 - q^110 - q^125 + q^152 + q^161 + q^164 + q^173 - 
        q^185 + q^206 - q^209 - q^224 - q^230 + q^245 + q^248 + O(q^254),
    q^7 - q^10 - q^19 + q^28 - q^31 + 2*q^34 - q^40 + q^55 - q^76 - q^82 - q^103
        + q^112 + q^115 - q^124 + 2*q^136 + 2*q^139 - q^154 - q^160 - q^178 - 
        2*q^187 - q^199 + 2*q^202 + q^220 - q^223 + q^250 + O(q^254)
]
;
Bo:=
[
    q - q^16 - q^22 - q^25 + q^28 + q^46 - q^49 + q^58 + q^88 - q^106 + q^121 + 
        q^142 - q^154 + q^169 - 2*q^172 - q^184 - q^214 - q^226 + q^232 - 
        2*q^253 + O(q^254),
    q^2 - q^11 + q^23 - q^29 - q^32 - q^44 - q^50 + q^53 + q^56 + q^71 + q^77 + 
        q^92 - q^98 - q^107 + q^113 + q^116 - q^137 - q^149 - q^161 + q^176 + 
        q^179 - q^191 - q^197 - q^203 - q^212 + q^233 - q^239 + q^242 + 
        O(q^254),
    q^3 - q^48 - q^66 - q^75 + q^84 + q^138 - q^147 + q^174 + O(q^254),
    q^4 - q^7 - q^22 + 2*q^43 + q^46 - q^58 - q^64 - q^88 - q^100 + q^106 + 
        q^112 + q^142 - 2*q^151 + q^154 + q^175 + q^184 - q^196 - 2*q^211 - 
        q^214 + q^226 + q^232 + O(q^254),
    q^6 - q^33 + q^69 - q^87 - q^96 - q^132 - q^150 + q^159 + q^168 + q^213 + 
        q^231 + O(q^254),
    q^8 + q^11 - q^14 - q^23 - q^29 - q^44 + q^53 - q^71 + q^77 + 2*q^86 + q^92 
        + q^107 + q^113 - q^116 - q^128 - q^137 - q^149 - q^161 - q^176 - q^179 
        + q^191 - q^197 - q^200 + q^203 + q^212 + q^224 + q^233 + q^239 + 
        O(q^254),
    q^12 - q^21 - q^66 + 2*q^129 + q^138 - q^174 - q^192 + O(q^254),
    q^24 + q^33 - q^42 - q^69 - q^87 - q^132 + q^159 - q^213 + q^231 + O(q^254)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
757
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
756
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
757
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
252
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
757
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
108
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
757
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
84
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
757
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
757
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
757
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
63*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
757
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
189*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
126
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
758
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
378
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
758
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
758
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
54
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
758
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
758
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
758
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
27*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
14
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
758
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
63*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
758
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
189*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^5 + q^9 + q^16 - q^19 - q^20 - q^23 + q^36 - q^37 - q^41 - q^45 
        + q^49 - q^61 + q^64 - q^67 - q^76 - q^79 - q^80 + q^81 - q^83 - q^92 + 
        q^95 + 2*q^97 + 2*q^101 - q^103 + 2*q^107 + q^115 + q^121 + q^125 - 
        q^127 + 2*q^137 - q^139 + q^144 - q^148 - q^149 + 2*q^151 - q^164 + 
        2*q^167 + q^169 - q^171 - q^173 - q^179 - q^180 + q^185 + O(q^188),
    q^2 + q^8 - q^10 + q^18 + q^32 - q^38 - q^40 - q^46 + q^72 - q^74 - q^82 - 
        q^90 + q^98 - q^122 + q^128 - q^134 - q^152 - q^158 - q^160 + q^162 - 
        q^166 - q^184 + O(q^188)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
759
);
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(
759
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
759
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
759
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*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(
759
);
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(
759
);
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(
110
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
759
);
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(
110
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
759
);
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(
22
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^2*q^4 + 1/11*(6*a^9 + 10*a^8 + 7*a^7 - 2*a^6 - 3*a^5 - 14*a^4 - 2*a^3 
        - 4*a^2 + 10*a + 6)*q^5 + a^5*q^9 + 1/11*(-3*a^9 - 5*a^8 - 9*a^7 + a^6 +
        7*a^5 + 7*a^4 + a^3 - 9*a^2 - 5*a - 3)*q^11 + 1/11*(16*a^9 + 12*a^8 + 
        4*a^7 + 2*a^6 - 8*a^5 - 8*a^4 + 2*a^3 + 4*a^2 + 12*a - 6)*q^15 + 
        a^4*q^16 + 1/11*(-17*a^9 + 12*a^8 - 7*a^7 + 24*a^6 - 8*a^5 + 14*a^4 - 
        20*a^3 + 4*a^2 - 10*a + 16)*q^20 + 1/11*(3*a^9 + 5*a^8 + 9*a^7 - a^6 - 
        7*a^5 - 7*a^4 - a^3 + 9*a^2 + 5*a + 3)*q^23 + (a^9 - a^8 + a^7 - a^6 + 
        a^5 - a^4 - a^2 - 1)*q^25 + (-a^9 + a^6)*q^27 + (-a^9 + a^8)*q^31 + 
        1/11*(-8*a^9 - 6*a^8 - 2*a^7 + 10*a^6 + 4*a^5 + 4*a^4 - 12*a^3 - 2*a^2 -
        6*a - 8)*q^33 - a^7*q^36 + (-a^7 + a^3)*q^37 + 1/11*(14*a^9 - 6*a^8 - 
        2*a^7 - 12*a^6 + 4*a^5 + 4*a^4 + 10*a^3 - 2*a^2 + 5*a - 8)*q^44 + 
        1/11*(17*a^9 - a^8 + 7*a^7 - 13*a^6 - 3*a^5 - 3*a^4 + 9*a^3 + 7*a^2 + 
        10*a - 5)*q^45 + (-2*a^8 - a^6 + a^5 + 2*a^3 - 2)*q^47 - a^8*q^49 + 
        1/11*(16*a^9 - 10*a^8 + 4*a^7 - 9*a^6 + 14*a^5 - 8*a^4 + 2*a^3 - 7*a^2 +
        12*a - 6)*q^53 + (-a^6 - a^4)*q^55 + (a^9 - 2*a^8 - 2*a^6 + a^5 + 2*a^3 
        - 2)*q^59 + 1/11*(-16*a^9 + 10*a^8 - 4*a^7 + 20*a^6 - 14*a^5 + 8*a^4 - 
        24*a^3 + 18*a^2 - 12*a + 28)*q^60 - a^6*q^64 + (-a^8 - a^5)*q^67 + 
        1/11*(8*a^9 + 6*a^8 + 2*a^7 - 10*a^6 - 4*a^5 - 4*a^4 + 12*a^3 + 2*a^2 + 
        6*a + 8)*q^69 + (2*a^8 - 2*a^5 + a^2 + 1)*q^71 + 1/11*(-5*a^9 - 12*a^8 -
        4*a^7 - 2*a^6 + 8*a^5 + 8*a^4 - 2*a^3 - 4*a^2 - 12*a - 5)*q^80 + (-a^9 +
        a^8 + a^6 - a^5 + a^4 - a^3 - a + 1)*q^81 + 1/11*(-28*a^9 + 12*a^8 + 
        4*a^7 + 24*a^6 - 8*a^5 + 3*a^4 - 20*a^3 + 4*a^2 - 21*a + 16)*q^89 + 
        1/11*(-14*a^9 + 6*a^8 + 2*a^7 + 12*a^6 - 4*a^5 - 4*a^4 - 10*a^3 + 2*a^2 
        - 5*a + 8)*q^92 + (-a - 1)*q^97 + 1/11*(-14*a^9 + 6*a^8 + 2*a^7 + 12*a^6
        - 4*a^5 + 7*a^4 - 10*a^3 + 2*a^2 - 16*a + 8)*q^99 + (a^5 + a^3 + 
        a)*q^100 + (a^7 + a^2)*q^103 + (-a^8 - 1)*q^108 + 1/11*(-6*a^9 + 12*a^8 
        - 7*a^7 + 13*a^6 - 8*a^5 + 14*a^4 - 20*a^3 + 4*a^2 - 10*a + 16)*q^113 + 
        (a^6 + a^4)*q^115 - a^9*q^121 + (-a^9 + a^8 - a^7 + a^6 - a^5 + a^4 - 
        a^3 + a^2 - a)*q^124 + 1/11*(a^9 - 2*a^8 + 3*a^7 - 4*a^6 + 5*a^5 - 6*a^4
        + 7*a^3 + 3*a^2 + 9*a + 1)*q^125 + 1/11*(8*a^9 - 16*a^8 + 2*a^7 - 10*a^6
        + 18*a^5 - 4*a^4 + 12*a^3 + 2*a^2 + 6*a - 14)*q^132 + 1/11*(16*a^9 - 
        10*a^8 + 4*a^7 - 20*a^6 + 3*a^5 - 8*a^4 + 13*a^3 - 7*a^2 + 12*a - 
        17)*q^135 + 1/11*(16*a^9 + a^8 + 4*a^7 - 20*a^6 - 8*a^5 - 8*a^4 + 13*a^3
        + 4*a^2 + 12*a - 6)*q^137 + (-2*a^9 - 2*a^7 + 2*a^4 - 2*a)*q^141 + 
        a^9*q^144 + (a^9 - a^5)*q^148 + 1/11*(-10*a^9 + 20*a^8 - 8*a^7 + 18*a^6 
        - 17*a^5 + 5*a^4 - 15*a^3 + 3*a^2 - 2*a + 12)*q^155 + 1/11*(6*a^9 - 
        12*a^8 + 18*a^7 - 2*a^6 + 8*a^5 - 14*a^4 + 20*a^3 - 4*a^2 + 10*a - 
        16)*q^159 + (a^9 - a^4)*q^163 - a^3*q^169 + 1/11*(8*a^9 + 6*a^8 + 2*a^7 
        - 10*a^6 - 4*a^5 - 4*a^4 + a^3 + 2*a^2 + 6*a + 8)*q^176 + (-2*a^8 - 
        2*a^6 + 2*a^5 + 2*a^3 - 2*a^2 - 2)*q^177 + (-a^9 + 2*a^6 - a^3)*q^179 + 
        1/11*(-6*a^9 + 12*a^8 + 4*a^7 + 2*a^6 - 8*a^5 - 8*a^4 - 9*a^3 + 4*a^2 + 
        a + 16)*q^180 + (a^5 + 1)*q^181 + (a^9 - 2*a^8 - a^7 - a^6 + a^5 + a^4 +
        2*a^3 - a^2 - 3)*q^185 + O(q^186),
    q^3 + 1/11*(6*a^9 - 12*a^8 - 4*a^7 - 2*a^6 + 8*a^5 + 8*a^4 + 20*a^3 - 4*a^2 
        + 10*a - 16)*q^5 + (-a^4 + a)*q^9 + 1/11*(8*a^9 + 6*a^8 + 2*a^7 + 12*a^6
        - 4*a^5 - 4*a^4 - 10*a^3 + 2*a^2 + 6*a + 8)*q^11 - a^2*q^12 + 
        1/11*(-6*a^9 - 10*a^8 - 7*a^7 + 2*a^6 + 3*a^5 + 14*a^4 + 2*a^3 + 4*a^2 -
        10*a - 6)*q^15 + 1/11*(16*a^9 - 10*a^8 + 4*a^7 - 20*a^6 - 8*a^5 - 8*a^4 
        + 2*a^3 + 4*a^2 + 12*a - 6)*q^20 + 1/11*(-8*a^9 - 6*a^8 - 2*a^7 - 12*a^6
        + 4*a^5 + 4*a^4 + 10*a^3 - 2*a^2 - 6*a - 8)*q^23 + (a^8 - a^5 + 
        a^2)*q^27 + 1/11*(3*a^9 + 5*a^8 + 9*a^7 - a^6 - 7*a^5 - 7*a^4 - a^3 + 
        9*a^2 + 5*a + 3)*q^33 + (a^6 - a^3)*q^36 + 1/11*(-8*a^9 - 6*a^8 - 2*a^7 
        + 10*a^6 + 4*a^5 + 4*a^4 - 12*a^3 - 2*a^2 - 6*a + 14)*q^44 + 
        1/11*(-5*a^9 - a^8 - 4*a^7 + 9*a^6 + 8*a^5 + 8*a^4 - 2*a^3 - 4*a^2 - 
        12*a - 5)*q^45 + (-2*a^9 + 2*a^8 + 2*a^6 - 2*a^5 - 2*a^3 - 2*a + 2)*q^47
        + a^4*q^48 + 1/11*(-6*a^9 - 10*a^8 + 4*a^7 + 2*a^6 + 14*a^5 - 8*a^4 + 
        2*a^3 + 4*a^2 + 12*a - 6)*q^53 + (-2*a^9 + 2*a^8 + 2*a^6 - 2*a^3 - 2*a +
        2)*q^59 + 1/11*(17*a^9 - 12*a^8 + 7*a^7 - 24*a^6 + 8*a^5 - 14*a^4 + 
        20*a^3 - 4*a^2 + 10*a - 16)*q^60 + 1/11*(-3*a^9 - 5*a^8 - 9*a^7 + a^6 + 
        7*a^5 + 7*a^4 + a^3 - 9*a^2 - 5*a - 3)*q^69 + (-2*a^7 + 2*a^4 - 
        2*a)*q^71 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 - 1)*q^75 + 
        1/11*(6*a^9 + 10*a^8 + 18*a^7 - 2*a^6 + 8*a^5 - 14*a^4 - 2*a^3 - 4*a^2 +
        10*a + 6)*q^80 + (a^9 - a^6 + a^3 + a)*q^81 + 1/11*(16*a^9 + 12*a^8 + 
        4*a^7 - 20*a^6 - 8*a^5 - 8*a^4 + 24*a^3 + 4*a^2 + 12*a - 6)*q^89 + 
        1/11*(8*a^9 + 6*a^8 + 2*a^7 - 10*a^6 - 4*a^5 - 4*a^4 + 12*a^3 + 2*a^2 + 
        6*a - 14)*q^92 + (-a^9 + a^8)*q^93 + 1/11*(8*a^9 + 6*a^8 + 2*a^7 - 
        10*a^6 - 4*a^5 - 4*a^4 + a^3 + 2*a^2 + 6*a - 3)*q^99 + (-a^9 + a^8 + a^6
        - a^5 - a^3 + a^2 - a + 1)*q^108 + (-a^7 + a^3)*q^111 + 1/11*(16*a^9 - 
        10*a^8 + 4*a^7 - 20*a^6 + 14*a^5 - 8*a^4 + 2*a^3 + 4*a^2 + 12*a - 
        6)*q^113 + 1/11*(-10*a^9 - 2*a^8 - 8*a^7 - 4*a^6 - 6*a^5 - 6*a^4 - 4*a^3
        - 8*a^2 - 2*a - 10)*q^125 + 1/11*(-14*a^9 + 6*a^8 + 2*a^7 + 12*a^6 - 
        4*a^5 - 4*a^4 - 10*a^3 + 2*a^2 - 5*a + 8)*q^132 + 1/11*(-6*a^9 + a^8 + 
        4*a^7 + 13*a^6 + 3*a^5 + 14*a^4 - 9*a^3 + 4*a^2 - 10*a + 5)*q^135 + 
        1/11*(-6*a^9 - 10*a^8 + 4*a^7 + 2*a^6 + 14*a^5 + 14*a^4 + 2*a^3 - 18*a^2
        - 10*a - 6)*q^137 + (2*a^8 + a^6 - a^5 - 2*a^3 + 2)*q^141 + (-a^8 + 
        a^5)*q^144 - a^8*q^147 + 1/11*(12*a^9 - 2*a^8 - 8*a^7 - 4*a^6 - 6*a^5 + 
        16*a^4 - 4*a^3 + 14*a^2 - 2*a - 10)*q^155 + 1/11*(-16*a^9 + 10*a^8 - 
        4*a^7 + 9*a^6 - 14*a^5 + 8*a^4 - 2*a^3 + 7*a^2 - 12*a + 6)*q^159 + (-a^6
        - a^4)*q^165 + 1/11*(8*a^9 - 16*a^8 + 2*a^7 - 10*a^6 + 18*a^5 - 4*a^4 + 
        12*a^3 - 20*a^2 + 6*a - 14)*q^176 + (-a^9 + 2*a^8 + 2*a^6 - a^5 - 2*a^3 
        + 2)*q^177 + (-2*a^5 + 2*a^2)*q^179 + 1/11*(5*a^9 - 10*a^8 - 7*a^7 - 
        9*a^6 + 3*a^5 + 3*a^4 + 13*a^3 + 4*a^2 + a - 6)*q^180 + (-2*a^9 + 2*a^8 
        + 4*a^6 - 2*a^5 + 2*a^4 - 4*a^3 + 2*a^2 - 2*a + 4)*q^185 + O(q^186)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
759
);
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:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
759
);
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(
110
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
759
);
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(
110
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
759
);
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(
22
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^4*q^4 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 + a - 1)*q^5 + (-a^9 
        + a^8 - a^7 + a^6 - a^5 + a^4 - a^3 + a^2 - a + 1)*q^9 - a^9*q^11 + 
        a^8*q^16 + (-a^7 - a^3)*q^20 - a^9*q^23 + (-a^9 + a^6 + a^2)*q^25 + (a^7
        + a)*q^27 + (-a^7 - a^5)*q^31 + a^3*q^36 + (a^6 - a^3)*q^37 + a^2*q^44 +
        (a^9 - a^2)*q^45 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 - 
        1)*q^47 - a^5*q^49 + (a^4 - a)*q^53 + (a^8 - a)*q^55 + (a^9 - a^8 - a^6 
        + a^5 - a^4 + a^3 - a^2 + a - 1)*q^59 - a*q^64 + (a^9 - a^8 + a^7 - a^6 
        - a^4 + a^3 - a^2 + a - 1)*q^67 + (a^4 + 1)*q^71 + (-a^7 + 1)*q^80 + 
        (a^9 - a^4 + a^3)*q^81 + (a^8 + a^2)*q^89 + a^2*q^92 + (a^2 + 1)*q^97 - 
        a^8*q^99 + (a^9 - a^8 + a^7 + a^5 - a^4 + a^3 + a - 1)*q^100 + (a^4 - 
        a^3)*q^103 + (a^5 - 1)*q^108 + (-a^3 - a)*q^113 + (a^8 - a)*q^115 - 
        a^7*q^121 + (-a^9 + 1)*q^124 + (-a^9 + a^8 - a^5 - a)*q^125 + (-a^9 + 
        a^8 - a^7 - a^5 - a^3 + a^2 - a)*q^135 + (a^6 - a^5)*q^137 + a^7*q^144 +
        (a^9 - a^8 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^148 + (a^9 + a^7 + 
        a^5 + a^3 - a^2 + a - 1)*q^155 + 2*a^4*q^157 + (a^8 - a^7)*q^163 + 
        a^6*q^169 + a^6*q^176 + (-a^7 + a^6)*q^179 + (-a^6 - a^2)*q^180 + (a^9 -
        a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a)*q^181 + (-a^9 + a^6 - a^5 +
        a^2)*q^185 + O(q^186),
    q^3 + (a^8 + a^2)*q^9 + a^4*q^12 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 - a^2 
        + a - 1)*q^15 + (a^9 - a^8 + a^7 - a^6 + a^3 - a^2 + a - 1)*q^27 - 
        a^9*q^33 + (a^6 - a)*q^36 + (-a^7 - a^5 - a + 1)*q^45 + a^8*q^48 + (-a^7
        - a^3)*q^60 - a^9*q^69 + (-a^9 + a^6 + a^2)*q^75 + (-a^7 + a^6 + a^2 - 
        a)*q^81 + (-a^7 - a^5)*q^93 + (a^6 + 1)*q^99 + (-a^9 + a^8 - a^3)*q^108 
        + (a^6 - a^3)*q^111 + a^2*q^132 + (-a^9 + a^8 - a^7 + a^4 - a^3 + 
        a^2)*q^135 + (a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 - 1)*q^141 +
        (a^9 - a^8 + a^7 - a^6 - a^4 + a^3 - a^2 + a - 1)*q^144 - a^5*q^147 + 
        (a^4 - a)*q^159 + (a^8 - a)*q^165 + (a^9 - a^8 - a^6 + a^5 - a^4 + a^3 -
        a^2 + a - 1)*q^177 + (-a^9 - a^5 + a^4 + 1)*q^180 + O(q^186)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
759
);
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^8 - q^9 - q^13 - q^16 + q^18 + q^23 + q^25 + q^26 + 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 - q^104 + 
        q^117 - 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 + 2*q^173 - q^179 + q^184 + O(q^186),
    q^3 - q^6 - q^9 + q^18 + q^24 - q^39 - q^48 + q^69 - q^72 + q^75 + q^78 + 
        q^81 - q^87 - q^93 + q^117 - q^123 - q^138 - q^141 + q^144 + q^147 - 
        q^150 - q^162 + q^174 + 2*q^177 + O(q^186),
    q^11 - q^22 + q^88 - q^99 - q^143 - q^176 + O(q^186),
    q^33 - q^66 - q^99 + O(q^186)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
759
);
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(
10
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
759
);
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(
10
);
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
759
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 5*H.2 + 11*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
186
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 - q^48 - q^55 - q^58 - q^70 - q^75 + q^81 - q^93 - q^100 + 
        q^121 - q^124 - q^133 - q^163 + q^169 - q^174 + O(q^186),
    q^2 + q^18 - q^24 - q^29 - q^35 - q^62 - q^87 + q^95 + q^98 + q^101 + q^123 
        + q^131 - q^140 + q^161 + q^162 - q^164 + q^173 + O(q^186),
    q^3 - q^16 - q^25 + q^27 - q^31 - q^58 + q^64 + q^75 + q^82 + q^100 - q^115 
        + q^124 - q^133 - q^144 + q^154 - q^165 - q^174 + O(q^186),
    q^4 - q^12 - q^25 - q^31 + q^36 + q^49 + q^55 - q^70 + q^75 - q^82 + q^93 + 
        q^100 - q^108 - q^115 - q^147 - q^154 + q^163 - q^165 + O(q^186),
    q^5 - 2*q^15 - q^20 + q^23 + q^33 - q^38 + q^42 + q^44 + q^45 - 2*q^53 - 
        q^56 + q^60 + 2*q^80 + q^86 - 2*q^89 - q^92 - q^114 - q^122 + 3*q^125 - 
        q^132 - 2*q^135 - 2*q^137 + q^152 + 3*q^155 + q^158 + q^159 - q^176 - 
        q^180 + O(q^186),
    q^6 - q^8 - q^29 + q^41 + q^54 - q^72 + q^77 - q^87 + q^95 - q^98 - q^105 - 
        q^110 + q^128 + q^140 + q^164 + q^167 + O(q^186),
    q^7 - q^10 - q^21 - q^22 + 2*q^28 + q^30 - q^40 - q^43 + q^46 + q^63 + q^66 
        - q^79 - 2*q^84 - q^88 - q^90 + q^106 + q^109 + q^112 + q^120 + q^129 - 
        q^138 - 2*q^172 + q^178 + q^184 + O(q^186),
    q^11 - 2*q^15 + q^23 + q^33 - 2*q^38 + 2*q^42 + q^44 - 2*q^53 - 2*q^56 + 
        q^69 + 2*q^80 + 2*q^86 - 2*q^89 - q^92 + q^99 + 2*q^113 - 2*q^114 - 
        2*q^122 + 2*q^125 - q^132 - 2*q^135 - 2*q^137 + 2*q^152 + 2*q^155 + 
        2*q^158 - q^176 + O(q^186),
    q^14 - q^15 - q^20 + q^23 + q^33 - q^38 - q^53 + q^60 + q^80 - q^89 - q^114 
        - q^122 + 2*q^125 + q^126 - q^135 - q^137 + q^152 + 2*q^155 - q^168 - 
        q^176 - q^180 + O(q^186),
    q^19 - q^21 - q^22 + q^28 + q^30 - q^40 - q^43 + q^57 + q^61 - q^79 - q^84 +
        q^106 + q^112 - q^138 - q^145 + q^171 - q^172 + q^178 + q^183 + q^184 + 
        O(q^186)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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(
760
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 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(
760
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
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(
760
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4
;
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(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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(
18
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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(
18
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 + (-a^5 - a^3)*q^3 + a^2*q^4 + (a^4 + a^3 - 1)*q^6 - a^3*q^8 + 
        (a^5 + a^3 - a^2 - a - 1)*q^9 + (a^5 - a^4 - a^2 + a)*q^11 + (-a^5 - a^4
        + a)*q^12 + a^4*q^16 + a*q^17 + (-a^4 + a^2 + a + 1)*q^18 + a^2*q^19 + 
        (a^5 - a^2 + 1)*q^22 + (a^5 + a^3 - a^2 - 1)*q^24 - a^5*q^25 + (a^4 + 
        a^3 + a^2)*q^27 - a^5*q^32 + (a^4 - a^3 + a^2 - a)*q^33 - a^2*q^34 + 
        (a^5 - a^3 - a^2 - a)*q^36 - a^3*q^38 + (a^3 + a^2 - 1)*q^41 + (a^4 - 
        a)*q^43 + (-a + 1)*q^44 + (-a^4 + a + 1)*q^48 - a^3*q^49 + (a^3 - 
        1)*q^50 + (-a^4 - a^3 + 1)*q^51 + (-a^5 - a^4 - a^3)*q^54 + (-a^5 - a^4 
        + a)*q^57 + (-a^5 + a^3 - 1)*q^59 + (a^3 - 1)*q^64 + (-a^5 + a^4 - a^3 +
        a^2)*q^66 + (a^3 - a - 1)*q^67 + a^3*q^68 + (a^4 + a^2 + 1)*q^72 + (a^5 
        - a^2 + 1)*q^73 + (a^5 - a^2 - a)*q^75 + a^4*q^76 + (-a^5 - a^4 - a^3 + 
        a^2 + a + 1)*q^81 + (-a^4 - a^3 + a)*q^82 + (a^5 + a^4 - a^2)*q^83 + 
        (-a^5 + a^2)*q^86 + (a^2 - a)*q^88 + a^5*q^89 + (a^5 - a^2 - a)*q^96 + 
        (a^5 - a^3 - a^2)*q^97 + a^4*q^98 + (a^3 - a^2 + a)*q^99 + (-a^4 + 
        a)*q^100 + (a^5 + a^4 - a)*q^102 + (-a^3 + 1)*q^107 + (a^5 + a^4 + a^3 -
        1)*q^108 + (-a^5 + a^4)*q^113 + (a^5 + a^3 - a^2 - 1)*q^114 + (-a^4 + 
        a^3 + a - 1)*q^118 + (-a^5 - a^4 + a^3 + a - 1)*q^121 + (-a^5 - a^4 + 
        a^2 + a + 1)*q^123 + (-a^4 + a)*q^128 + (a^3 + a)*q^129 + (a^2 + 
        1)*q^131 + (-a^5 + a^4 - 1)*q^132 + (-a^4 + a^2 + a)*q^134 - a^4*q^136 +
        (-a^3 - a)*q^137 + (-a^4 - a^3 + a)*q^139 + (-a^5 - a^3 - a)*q^144 + (-a
        + 1)*q^146 + (a^5 + a^3 - a^2 - 1)*q^147 + (a^2 + 1)*q^150 - a^5*q^152 +
        (a^4 - a^2 - a - 1)*q^153 + (a^5 + a^4 - a^2 - a - 1)*q^162 + (a^4 + 
        a^2)*q^163 + (a^5 + a^4 - a^2)*q^164 + (-a^5 + 1)*q^166 - a*q^169 + (a^5
        - a^3 - a^2 - a)*q^171 - q^172 + (-a^3 + a^2)*q^176 + (a^5 - a + 
        1)*q^177 + (-a^3 + 1)*q^178 + (-a^5 - a)*q^179 + (-a^5 + a^2 - 1)*q^187 
        + (a^2 + 1)*q^192 - a^4*q^193 + (a^4 + 1)*q^194 - a^5*q^196 + (-a^4 + 
        a^3 - a^2)*q^198 + (a^5 - a^2)*q^200 + (a^4 + a^3 + a^2)*q^201 + (-a^5 -
        a^3 + a^2 + 1)*q^204 + (-a + 1)*q^209 + a*q^211 + (a^4 - a)*q^214 + 
        (-a^5 - a^4 - a^3 + a + 1)*q^216 + (-a^5 + a^4 - a^3 + a^2)*q^219 + (a^4
        + a^3 + a^2 - 1)*q^225 + O(q^226),
    q^5 - a*q^10 + (-a^5 - a^3)*q^15 + a^2*q^20 + (a^4 + a^3 - 1)*q^30 - 
        a^3*q^40 + (a^5 + a^3 - a^2 - a - 1)*q^45 + (a^5 - a^4 - a^2 + a)*q^55 +
        (-a^5 - a^4 + a)*q^60 + a^4*q^80 + a*q^85 + (-a^4 + a^2 + a + 1)*q^90 + 
        a^2*q^95 + (a^5 - a^2 + 1)*q^110 + (a^5 + a^3 - a^2 - 1)*q^120 - 
        a^5*q^125 + (a^4 + a^3 + a^2)*q^135 - a^5*q^160 + (a^4 - a^3 + a^2 - 
        a)*q^165 - a^2*q^170 + (a^5 - a^3 - a^2 - a)*q^180 - a^3*q^190 + (a^3 + 
        a^2 - 1)*q^205 + (a^4 - a)*q^215 + (-a + 1)*q^220 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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(
36
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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(
18
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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(
18
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^4 + (a^5 - a^2)*q^9 + (a^5 - a^2)*q^10 + (a^4 + a^2)*q^11 + (-a^5 
        + 1)*q^14 + a^4*q^16 - a*q^19 - a^5*q^25 + (-a^3 + 1)*q^26 + (a^3 + a^2 
        - 1)*q^35 - a*q^36 - a*q^40 + (-a^5 - a^3)*q^41 + (a^4 + a^3 - 1)*q^44 +
        (a^5 - a^4 - a^2 + a)*q^46 + (a^5 - a^4 - a^3 - a^2 + a)*q^49 + (-a^4 + 
        a^2 + a)*q^56 + a*q^59 + (a^3 - 1)*q^64 + a^3*q^65 + (-a^5 + a^3 - 
        1)*q^74 - a^3*q^76 + (-a^4 + a)*q^81 + (-a + 1)*q^89 + (-a^4 + a)*q^90 +
        (-a^4 - 1)*q^91 - q^94 + (-a^3 - a)*q^99 + (-a^4 + a)*q^100 + (-a^5 + 
        a^2)*q^104 + (-a^5 - a)*q^106 + (-a^3 - a)*q^110 + (-a^5 + a^4)*q^115 + 
        (a^5 + a^4 + a^3 - a^2 - 1)*q^121 + (a^5 + a^4 - a^2)*q^126 + (-a^5 + 
        a^3 - 1)*q^131 + a^5*q^139 + (a^5 + a^4 - a^2)*q^140 - a^3*q^144 + (a^2 
        + a + 1)*q^154 - a^3*q^160 + (-a^5 + a^3 + a^2 - a - 1)*q^161 + (-a^5 - 
        a^4 + a)*q^164 + q^171 + (a^5 + a^3 - a^2 - 1)*q^176 + (a^5 - a^4 - a^2 
        + a)*q^179 + (-a + 1)*q^184 + (-a^3 + a^2)*q^185 + q^190 + (-a^5 - a + 
        1)*q^196 + (a^3 + a^2 - 1)*q^206 + (-a^5 - a^3)*q^209 + (a^2 + 1)*q^211 
        + (a^4 + 1)*q^224 + a^4*q^225 + O(q^226),
    q^2 + (a^3 - 1)*q^5 + (-a^4 - a^3 + a)*q^7 + a^2*q^8 - a^4*q^13 + (a^5 - 
        a^2)*q^18 + (a^5 - a^2)*q^20 + (a^4 + a^2)*q^22 + (-a^5 + a^3 - 1)*q^23 
        + (-a^5 + 1)*q^28 + a^4*q^32 + (a^4 - a^3)*q^37 - a*q^38 - a^5*q^45 + 
        (a^4 - a)*q^47 - a^5*q^50 + (-a^3 + 1)*q^52 + (a^5 - a^3 - a^2)*q^53 + 
        (a^5 - a^2 - a)*q^55 + (a^3 + a^2 - 1)*q^63 + (a^3 + a^2 - 1)*q^70 - 
        a*q^72 + (-a^5 - a^4 + a^2 + a + 1)*q^77 - a*q^80 + (-a^5 - a^3)*q^82 + 
        (a^4 + a^3 - 1)*q^88 + (a^5 - a^4 - a^2 + a)*q^92 + (-a^4 + a)*q^95 + 
        (a^5 - a^4 - a^3 - a^2 + a)*q^98 + (a^4 + 1)*q^103 + (-a^4 + a^2 + 
        a)*q^112 + a^3*q^117 + a*q^118 + a^2*q^125 + (a^5 - a^2 + 1)*q^127 + 
        (a^3 - 1)*q^128 + a^3*q^130 + (a^5 + a^4 - a^2)*q^133 + (-a^5 - a^3 + 
        a^2 + 1)*q^143 + (-a^5 + a^3 - 1)*q^148 - a^3*q^152 + (a^2 - a)*q^157 + 
        (-a^4 + a)*q^162 + (a^2 + 1)*q^167 + (a^5 - a^2 - a)*q^173 + (a^5 - a^3 
        - a^2)*q^175 + (-a + 1)*q^178 + (-a^4 + a)*q^180 + (-a^4 - 1)*q^182 - 
        q^188 + (a^4 + a^3 - 1)*q^197 + (-a^3 - a)*q^198 + (-a^4 + a)*q^200 + 
        (a^2 + 1)*q^205 + (-a^5 + a^4)*q^207 + (-a^5 + a^2)*q^208 + (-a^5 - 
        a)*q^212 + (-a^3 - a)*q^220 + (-a^5 - a^4 + a)*q^223 + O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^5 + a*q^9 + q^11 - a*q^19 - a*q^25 + (a - 2)*q^29 + (-2*a + 
        1)*q^31 - q^45 + q^49 + (a - 1)*q^55 + (-a - 1)*q^59 - a*q^61 + (a + 
        1)*q^71 + (-a - 1)*q^79 + (a - 1)*q^81 + (-a + 2)*q^89 + q^95 + a*q^99 -
        a*q^101 + (a + 1)*q^109 + q^125 + (2*a - 2)*q^131 + 2*a*q^139 + (-2*a + 
        1)*q^145 + (a - 1)*q^149 + (2*a - 1)*q^151 + (a + 1)*q^155 + (-a + 
        1)*q^169 + (-a + 1)*q^171 + (-2*a + 1)*q^179 - q^191 + a*q^199 - a*q^209
        + (-a - 1)*q^211 + (-a + 1)*q^225 + O(q^226),
    q^2 + (a - 1)*q^10 + a*q^18 + q^22 - a*q^38 - a*q^50 + (a - 2)*q^58 + (-2*a 
        + 1)*q^62 - q^90 + q^98 + (a - 1)*q^110 + (-a - 1)*q^118 - a*q^122 + (a 
        + 1)*q^142 + (-a - 1)*q^158 + (a - 1)*q^162 + (-a + 2)*q^178 + q^190 + 
        a*q^198 - a*q^202 + (a + 1)*q^218 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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(
6
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 + a*q^3 + (a - 1)*q^4 + (-a + 1)*q^6 + q^8 - q^11 - q^12 - a*q^16 
        - 2*a*q^17 + (a - 1)*q^19 + a*q^22 + a*q^24 + (a - 1)*q^25 + q^27 + (a -
        1)*q^32 - a*q^33 + (2*a - 2)*q^34 + q^38 + a*q^41 - 2*a*q^43 + (-a + 
        1)*q^44 + (-a + 1)*q^48 + q^49 + q^50 + (-2*a + 2)*q^51 - a*q^54 - q^57 
        + a*q^59 + q^64 + (a - 1)*q^66 + (-a + 1)*q^67 + 2*q^68 + a*q^73 - q^75 
        - a*q^76 + a*q^81 + (-a + 1)*q^82 - q^83 + (2*a - 2)*q^86 - q^88 + (2*a 
        - 2)*q^89 - q^96 + a*q^97 - a*q^98 - a*q^100 - 2*q^102 + 2*q^107 + (a - 
        1)*q^108 - q^113 + a*q^114 + (-a + 1)*q^118 + (a - 1)*q^123 - a*q^128 + 
        (-2*a + 2)*q^129 + a*q^131 + q^132 - q^134 - 2*a*q^136 + (-a + 1)*q^137 
        + (-a + 1)*q^139 + (-a + 1)*q^146 + a*q^147 + a*q^150 + (a - 1)*q^152 + 
        (-a + 1)*q^162 - q^163 - q^164 + a*q^166 - a*q^169 + 2*q^172 + a*q^176 +
        (a - 1)*q^177 + 2*q^178 - q^179 + 2*a*q^187 + a*q^192 - 2*a*q^193 + (-a 
        + 1)*q^194 + (a - 1)*q^196 + (a - 1)*q^200 + q^201 + 2*a*q^204 + (-a + 
        1)*q^209 - 2*a*q^211 - 2*a*q^214 + q^216 + (a - 1)*q^219 + O(q^226),
    q^5 - a*q^10 + a*q^15 + (a - 1)*q^20 + (-a + 1)*q^30 + q^40 - q^55 - q^60 - 
        a*q^80 - 2*a*q^85 + (a - 1)*q^95 + a*q^110 + a*q^120 + (a - 1)*q^125 + 
        q^135 + (a - 1)*q^160 - a*q^165 + (2*a - 2)*q^170 + q^190 + a*q^205 - 
        2*a*q^215 + (-a + 1)*q^220 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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(
12
);
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 + a^2 + a)*q^3 + (a^3 - a)*q^5 + a*q^9 + q^11 + (a^2 - a - 1)*q^15
        - a*q^19 + (a^2 + a - 1)*q^23 + (-a^2 + 1)*q^25 + a*q^29 - q^31 + (-a^3 
        + a^2 + a)*q^33 + (-a^3 - 1)*q^37 + (a^3 - a^2 - a)*q^43 - q^45 - 
        a^3*q^49 + (-a^2 - a + 1)*q^53 + (a^3 - a)*q^55 + (-a^3 - 1)*q^57 + (a^3
        - a)*q^59 + (-a^2 + 1)*q^61 + 2*a^3*q^69 - a^2*q^71 + (-a^3 + a^2 + 
        a)*q^73 + (-a^3 + 1)*q^75 + (-a^3 + a)*q^79 - a^2*q^81 + (a^3 - 1)*q^83 
        + (a^3 + 1)*q^87 + a*q^89 + (a^3 - a^2 - a)*q^93 + q^95 + (a^3 + a^2 - 
        a)*q^97 + a*q^99 + (-a^2 + 1)*q^101 + (a^3 + 1)*q^107 + (-a^3 + a)*q^109
        - 2*a^2*q^111 + (a^3 - 1)*q^113 + (-a^3 - 1)*q^115 + a^3*q^125 - 
        2*a*q^129 - q^145 + (-a^3 - a^2 + a)*q^147 + (a^3 - a)*q^149 + q^151 + 
        (-a^3 + a)*q^155 + (a^3 + a^2 - a)*q^157 - 2*a^3*q^159 + (a^3 - 1)*q^163
        + (a^2 - a - 1)*q^165 + (-a^3 + a)*q^169 - a^2*q^171 + (a^2 - a - 
        1)*q^177 - a^3*q^179 + (2*a^2 - 2)*q^181 + (-a^3 + 1)*q^183 + (-a^3 + 
        a^2 + a)*q^185 - q^191 + a*q^199 + (a^3 + a^2 - a)*q^207 - a*q^209 + 
        a^2*q^211 + (-a^2 - a + 1)*q^213 + (-a^2 + a + 1)*q^215 + 2*a*q^219 + 
        (a^3 - a^2 - a)*q^223 + (-a^3 + a)*q^225 + O(q^226)
]
;
Bo:=
[
    q + (a^3 - a^2 - a)*q^3 + a^2*q^5 + a*q^9 + q^11 + (a^2 + a - 1)*q^13 + 
        (-a^2 - a + 1)*q^15 + (-a^3 - a^2 + a)*q^17 + a*q^19 + (a^2 - 1)*q^25 - 
        a*q^29 - q^31 + (a^3 - a^2 - a)*q^33 - 2*a^3*q^39 + a^3*q^45 + (a^2 - a 
        - 1)*q^47 - a^3*q^49 + (2*a^2 - 2)*q^51 + (-a^2 - a + 1)*q^53 + a^2*q^55
        + (-a^3 - 1)*q^57 + (a^3 - a)*q^59 + (a^2 - 1)*q^61 + (a^3 - 1)*q^65 + 
        (-a^2 + a + 1)*q^67 - a^2*q^71 + (-a^3 + 1)*q^75 + (-a^3 + a)*q^79 - 
        a^2*q^81 + (-a^2 + a + 1)*q^85 + (a^3 + 1)*q^87 + a*q^89 + (-a^3 + a^2 +
        a)*q^93 + a^3*q^95 + a*q^99 + (-a^2 + 1)*q^101 + (a^3 - a)*q^109 + (-a^3
        + 1)*q^113 + (a^3 + a^2 - a)*q^117 - q^125 + (-a^2 + a + 1)*q^127 - 
        2*a*q^139 + 2*q^141 + (a^2 + a - 1)*q^143 - a^3*q^145 + (a^3 + a^2 - 
        a)*q^147 + (a^3 - a)*q^149 - q^151 + (-a^3 + 1)*q^153 - a^2*q^155 + (a^3
        + a^2 - a)*q^157 + 2*a^3*q^159 + (a^3 - 1)*q^163 + (-a^2 - a + 1)*q^165 
        + (a^3 - a)*q^169 + a^2*q^171 + (-a^2 + a + 1)*q^177 - a^3*q^179 + (-a^3
        + 1)*q^183 + (-a^3 - a^2 + a)*q^187 + q^191 + (-2*a^3 + 2*a)*q^195 + 
        (-a^3 - 1)*q^197 + a*q^199 - 2*q^201 + a*q^209 - a^2*q^211 + (a^2 + a - 
        1)*q^213 + 2*q^221 + (a^3 - a)*q^225 + O(q^226),
    q^2 + (a^3 - a^2 - a)*q^6 + a^2*q^10 + a*q^18 + q^22 + (a^2 + a - 1)*q^26 + 
        (-a^2 - a + 1)*q^30 + (-a^3 - a^2 + a)*q^34 + a*q^38 + (a^2 - 1)*q^50 - 
        a*q^58 - q^62 + (a^3 - a^2 - a)*q^66 - 2*a^3*q^78 + a^3*q^90 + (a^2 - a 
        - 1)*q^94 - a^3*q^98 + (2*a^2 - 2)*q^102 + (-a^2 - a + 1)*q^106 + 
        a^2*q^110 + (-a^3 - 1)*q^114 + (a^3 - a)*q^118 + (a^2 - 1)*q^122 + (a^3 
        - 1)*q^130 + (-a^2 + a + 1)*q^134 - a^2*q^142 + (-a^3 + 1)*q^150 + (-a^3
        + a)*q^158 - a^2*q^162 + (-a^2 + a + 1)*q^170 + (a^3 + 1)*q^174 + 
        a*q^178 + (-a^3 + a^2 + a)*q^186 + a^3*q^190 + a*q^198 + (-a^2 + 
        1)*q^202 + (a^3 - a)*q^218 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^4 + (a - 1)*q^9 + (a - 1)*q^10 - q^11 + a*q^14 - a*q^16 - 
        a*q^19 + (a - 1)*q^25 + 2*q^26 + a*q^35 - a*q^36 - a*q^40 + a*q^41 + (-a
        + 1)*q^44 - q^46 - q^56 - 2*a*q^59 + q^64 + 2*q^65 + a*q^74 + q^76 - 
        a*q^81 + (-a + 1)*q^89 - a*q^90 + (-2*a + 2)*q^91 + 2*q^94 + (-a + 
        1)*q^99 - a*q^100 + (2*a - 2)*q^104 - q^106 + (-a + 1)*q^110 - q^115 - 
        q^126 + a*q^131 + (2*a - 2)*q^139 - q^140 + q^144 - a*q^154 + q^160 + (a
        - 1)*q^161 - q^164 - 3*a*q^169 + q^171 + a*q^176 - q^179 + (-a + 
        1)*q^184 + a*q^185 + q^190 + a*q^206 + a*q^209 + a*q^211 + (-a + 
        1)*q^224 - a*q^225 + O(q^226),
    q^2 + q^5 + (-a + 1)*q^7 + (a - 1)*q^8 - 2*a*q^13 + (a - 1)*q^18 + (a - 
        1)*q^20 - q^22 + a*q^23 + a*q^28 - a*q^32 + (-a + 1)*q^37 - a*q^38 + (a 
        - 1)*q^45 - 2*a*q^47 + (a - 1)*q^50 + 2*q^52 + a*q^53 - q^55 + a*q^63 + 
        a*q^70 - a*q^72 + (a - 1)*q^77 - a*q^80 + a*q^82 + (-a + 1)*q^88 - q^92 
        - a*q^95 + (-a + 1)*q^103 - q^112 + 2*q^117 - 2*a*q^118 + (a - 1)*q^125 
        + a*q^127 + q^128 + 2*q^130 - q^133 + 2*a*q^143 + a*q^148 + q^152 - 
        q^157 - a*q^162 + a*q^167 - q^173 + a*q^175 + (-a + 1)*q^178 - a*q^180 +
        (-2*a + 2)*q^182 + 2*q^188 + (-a + 1)*q^197 + (-a + 1)*q^198 - a*q^200 +
        a*q^205 - q^207 + (2*a - 2)*q^208 - q^212 + (-a + 1)*q^220 - q^223 + 
        O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^7 + q^9 - q^11 - q^17 + q^19 + 2*q^23 - q^25 - q^43 - q^47 - q^61 - 
        q^63 - q^73 + q^77 + q^81 + 2*q^83 - q^99 + 2*q^101 + 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^175 + q^187 - q^191 + 2*q^197 - q^199 + 
        2*q^207 - q^209 - q^225 + O(q^226),
    q^2 - q^14 + q^18 - q^22 - q^34 + q^38 + 2*q^46 - q^50 - q^86 - q^94 - q^122
        - q^126 - q^146 + q^154 + q^162 + 2*q^166 - q^198 + 2*q^202 + O(q^226),
    q^5 - q^25 - q^35 + q^45 - q^55 - q^85 + q^95 + 2*q^115 + q^175 - q^215 - 
        q^225 + O(q^226),
    q^10 - q^50 - q^70 + q^90 - q^110 - q^170 + q^190 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 9*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^6 - q^7 + q^16 - q^17 - q^23 - q^24 + q^25 - q^26 - q^28 + q^38 
        + q^39 + q^42 + 2*q^47 + q^54 - q^57 - q^58 + q^64 - q^68 - q^73 + 
        2*q^74 - q^81 + q^87 - q^92 - q^96 + q^100 + q^102 - q^104 - q^106 - 
        2*q^111 - q^112 - q^118 + q^119 + q^121 - q^134 - q^137 + q^138 - q^150 
        + q^152 + q^156 + q^159 + q^161 + q^168 - q^175 + q^177 + q^182 + 
        2*q^188 - q^191 - q^199 + q^201 - q^214 + q^216 - q^218 + O(q^226),
    q^2 - q^3 + q^8 - q^12 - q^13 - q^14 + q^19 + q^21 + q^27 - q^29 + q^32 - 
        q^34 + 2*q^37 - q^46 - q^48 + q^50 + q^51 - q^52 - q^53 - q^56 - q^59 - 
        q^67 + q^69 - q^75 + q^76 + q^78 + q^84 + q^91 + 2*q^94 - q^107 + q^108 
        - q^109 - q^114 - q^116 + q^128 - q^133 - q^136 - 2*q^141 - q^146 + 
        2*q^148 - q^162 + 2*q^173 + q^174 + 2*q^179 + 2*q^181 - q^184 - q^189 - 
        q^192 + q^200 + q^203 + q^204 - q^208 - q^211 - q^212 + q^219 + q^221 - 
        2*q^222 - q^224 + O(q^226),
    q^5 + q^20 - q^30 - q^35 + q^80 - q^85 - q^115 - q^120 + q^125 - q^130 - 
        q^140 + q^190 + q^195 + q^210 + O(q^226),
    q^10 - q^15 + q^40 - q^60 - q^65 - q^70 + q^95 + q^105 + q^135 - q^145 + 
        q^160 - q^170 + 2*q^185 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
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:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.3 + 9*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^11 + q^25 - q^39 - q^45 + q^49 - q^55 - q^61 + q^95 + q^99 - q^101 + 
        q^111 + q^121 + 2*q^131 - q^139 - q^149 + q^159 - q^171 + q^195 - q^201 
        - q^209 + O(q^226),
    q^2 - q^22 + q^50 - q^78 - q^90 + q^98 - q^110 - q^122 + q^190 + q^198 - 
        q^202 + q^222 + O(q^226),
    q^3 - q^13 - q^15 + q^37 + q^53 - q^57 + q^65 - q^67 + q^75 + q^97 - q^103 -
        q^107 - q^113 - q^117 + q^127 + q^147 + q^167 - q^173 - q^185 + q^193 + 
        q^223 + O(q^226),
    q^4 - q^24 - q^44 - q^80 + q^100 + q^104 + q^120 + q^144 - q^156 + q^176 - 
        q^180 + q^196 - q^220 + O(q^226),
    q^5 - 2*q^11 + q^25 + q^35 - q^45 + 2*q^49 - q^55 - 2*q^61 - q^85 + q^95 + 
        2*q^99 - 2*q^119 + 2*q^121 + 2*q^131 - 2*q^139 - 2*q^149 - q^175 + 
        2*q^191 + 2*q^199 - 2*q^209 + q^215 - q^225 + O(q^226),
    q^6 - q^26 - q^30 + q^74 + q^106 - q^114 + q^130 - q^134 + q^150 + q^194 - 
        q^206 - q^214 + O(q^226),
    q^7 + q^11 - q^17 - q^25 - q^35 + q^43 - q^47 - q^49 + q^55 + q^61 - q^63 - 
        q^73 + q^77 + q^85 - q^99 + q^119 - q^121 - q^131 + q^133 + q^137 + 
        q^139 + q^149 + q^153 - q^187 - q^191 - q^199 + q^209 - q^215 + q^225 + 
        O(q^226),
    q^8 - q^48 - q^88 - q^160 + q^200 + q^208 + O(q^226),
    q^9 - q^11 - q^19 + q^25 + q^35 - q^39 - q^45 + 2*q^49 - q^61 - q^81 - q^85 
        + q^95 + q^99 + q^101 + q^111 - 2*q^119 - q^125 + 2*q^131 - q^139 - 
        q^149 + q^159 + q^169 - q^175 + q^195 - q^201 - q^209 + q^215 + 
        O(q^226),
    q^10 - 2*q^22 + q^50 + q^70 - q^90 + 2*q^98 - q^110 - 2*q^122 - q^170 + 
        q^190 + 2*q^198 + O(q^226),
    q^12 + q^40 - q^52 - q^60 - q^72 - q^88 + q^128 + q^148 + q^152 - q^160 - 
        q^192 + q^212 + O(q^226),
    q^14 + q^22 - q^34 - q^50 - q^70 + q^86 - q^94 - q^98 + q^110 + q^122 - 
        q^126 - q^146 + q^154 + q^170 - q^198 + O(q^226),
    q^16 - q^24 - q^80 - q^96 + q^104 + q^120 + q^144 + O(q^226),
    q^18 - q^22 - q^38 + q^50 + q^70 - q^78 - q^90 + 2*q^98 - q^122 - q^162 - 
        q^170 + q^190 + q^198 + q^202 + q^222 + O(q^226),
    q^20 - q^36 - q^44 + q^64 + q^76 - q^80 - q^96 + q^144 + q^156 + q^176 - 
        q^220 + O(q^226),
    q^32 - q^40 - q^48 + q^72 + q^88 - q^128 - q^152 + q^208 + O(q^226)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
760
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3 + 9*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
226
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^9 + q^24 - q^25 + q^26 - q^30 - q^36 - q^44 + q^49 - q^54 + q^66 + 
        q^80 + q^81 + q^95 + q^96 - 2*q^111 + q^114 - q^121 - q^134 - q^156 + 
        2*q^159 - q^169 - q^180 - q^206 + q^214 - q^216 + q^220 + q^225 + 
        O(q^226),
    q^2 - q^13 - q^15 - q^18 + q^27 + q^33 + q^48 - q^50 + q^52 + q^57 - q^60 + 
        q^67 - q^72 - q^88 + q^98 - q^103 - q^107 - q^108 - q^113 + q^132 + 
        q^135 + q^143 + q^160 + q^162 - q^165 + q^173 - q^183 - q^185 + q^190 + 
        q^192 - 2*q^222 + O(q^226),
    q^3 + q^10 - q^13 + q^15 + q^18 + q^22 - q^32 + q^37 - q^38 - q^40 - q^48 - 
        q^53 - q^57 - q^65 + q^67 + q^72 - q^75 + q^78 - q^88 - q^97 + q^103 - 
        q^107 - q^110 + q^113 - q^117 - q^122 + q^127 + q^128 - 2*q^132 - 
        2*q^143 + q^147 + q^152 - q^162 - q^167 + q^173 + q^185 + q^193 + q^198 
        + q^202 + q^208 + q^222 - q^223 + O(q^226),
    q^4 - q^9 + q^11 - q^26 - q^30 - q^36 - q^39 + q^45 + q^54 + q^55 - q^61 + 
        q^66 + q^81 + q^96 - q^99 - q^100 + q^101 + q^104 - q^111 + q^114 - 
        q^120 + q^134 - q^139 - q^144 - q^149 + q^159 + q^169 - q^171 - q^176 + 
        q^195 + q^196 + q^201 - q^206 - q^209 - q^214 - q^216 + q^225 + 
        O(q^226),
    q^5 + q^9 + q^11 - q^16 - q^19 - q^20 - q^24 + q^36 + q^39 - q^44 - q^55 - 
        q^61 + q^64 - 2*q^66 + q^76 - q^81 + q^99 + q^101 + q^104 + q^111 + 
        q^120 - q^125 + 2*q^130 - q^139 - q^149 + q^156 - q^159 - q^169 + q^176 
        + 2*q^194 + q^195 - q^201 + q^209 - q^220 - q^225 + O(q^226),
    q^6 - q^9 - q^11 + q^20 + q^24 - q^39 - q^45 - q^54 + q^55 + q^61 - q^64 + 
        q^66 + q^74 - q^76 + q^81 + q^99 - q^101 - q^106 - q^111 - q^130 + q^139
        + q^144 + q^149 - q^150 + q^159 + q^169 + q^171 - q^176 - q^180 - q^194 
        - q^195 + q^201 - q^209 - q^216 + q^225 + O(q^226),
    q^8 + q^10 - q^13 + q^15 + 2*q^22 + q^27 - q^32 + q^33 - q^38 - q^40 - q^48 
        - q^52 - q^57 - q^60 - 2*q^65 + q^67 - q^88 + q^90 - 2*q^97 + q^103 - 
        q^107 + q^108 + q^113 - 2*q^122 + 2*q^127 + q^128 - q^132 + q^135 - 
        3*q^143 + q^152 - q^165 - 2*q^167 + q^173 - q^183 + q^185 + q^192 + 
        2*q^193 - q^200 + 2*q^202 + 2*q^208 - 2*q^223 + O(q^226),
    q^12 + q^13 - q^15 - q^18 - q^22 - q^27 + q^33 + q^40 + q^48 + q^57 - q^67 -
        q^78 - q^90 - q^103 + q^107 - q^108 + q^110 - q^113 + q^122 - q^128 + 
        q^132 + q^135 + q^143 + q^148 - q^152 + q^162 + q^165 - q^173 - q^183 - 
        q^185 + q^198 - q^202 - q^212 - q^222 + O(q^226)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
761
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
760
);
qprec:=
127
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
761
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
152
);
qprec:=
127
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
761
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
19*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
127
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
761
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
95*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
8
);
qprec:=
127
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
762
);
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(
762
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
126
);
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
762
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
762
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
762
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + (a^11 - a^4)*q^4 + (-a^11 - a^10 + a^8 - a^6 - a^5 + a^3 + a^2 -
        1)*q^7 + a^2*q^9 + (a^11 - a^9 - a^8 + a^6 + a^5 - a^4 - a^3 + a + 
        1)*q^12 + (-a^11 - a^9)*q^13 + (-a^8 + a)*q^16 + (a^9 - a^5 - a^2)*q^19 
        + (a^8 + a^7 - 1)*q^21 + a^6*q^25 - a^3*q^27 + (a^10 + a^4)*q^28 + 
        (-a^11 - a^10 + a^9 + a^8 - a^6 + a^4 + 2*a^3 - a - 1)*q^31 + (a^11 + 
        a^10 - a^8 - a^7 + a^5 - a^3 - a^2 + 1)*q^36 + (a^4 - a^3)*q^37 + (-a^11
        + a^10 + a^9 + a^8 - a^6 + a^4 + a^3 - a - 1)*q^39 + (a^11 - a^8 - a^7 +
        a^5 - a^2 + 1)*q^43 + (a^9 - a^2)*q^48 + (a^11 + a^10 - a^8 - a^3 - 
        a^2)*q^49 + (a^8 + a^6)*q^52 + (-a^10 + a^6 + a^3)*q^57 + (-a^9 - a^8 + 
        a^6 + a^5 - a^4 - a^3 + a + 1)*q^61 + (-a^9 - a^8 + a)*q^63 + (-a^11 + 
        a^9 + a^8 - a^6 + a^4 + a^3 - a - 1)*q^64 + a*q^67 + (a^10 + a^7 - 
        1)*q^73 - a^7*q^75 + (-a^11 - a^10 + a^8 + a^7 - a^6 - a^5 + a^3 + 2*a^2
        - 1)*q^76 + (-a^9 + a^2)*q^79 + a^4*q^81 + (-a^11 - a^5)*q^84 + (a^11 + 
        a^9 - a^4 - a^3 - a^2 - a)*q^91 + (-a^10 + a^8 + a^7 - a^6 - a^5 - a^4 +
        a^3 + a^2 - 1)*q^93 + (a^11 - a^9 - a^8 - a^7 + a^6 + a^5 - a^4 - a^3 + 
        a + 1)*q^97 - a^3*q^100 + (a^11 - a^8 + a^6 + a^5 - a^4 - a^3 - a^2 + a 
        + 1)*q^103 + q^108 + (-a + 1)*q^109 + (-a^5 + a^4)*q^111 + (-a^7 - 
        a)*q^112 + (-2*a^11 - a^10 + a^8 + a^7 - a^6 - a^5 + a^3 + a^2 - 
        1)*q^117 + a^10*q^121 + (-a^9 + a^7 - 1)*q^124 + q^127 + (a^11 - a^4 + 
        1)*q^129 + (a^9 + 2*a^8 - a^6 + a^3 + a^2 - a - 1)*q^133 + (-a^8 + a^2 +
        a)*q^139 + (-a^10 + a^3)*q^144 + (-a^8 + a^6 + a + 1)*q^147 + (-a + 
        1)*q^148 + (-a^11 - a^10 + a^8 + a^7 - a^6 - a^5 + a^3 + a^2 - a - 
        1)*q^151 + (-a^9 - a^7)*q^156 + (a^11 + a^10 - a^8 - a^7 + a^6 + a^5 - 
        a^3 - a^2 + 1)*q^157 + (-a^11 + a^8)*q^163 + (2*a^11 + a^10 - a^8 - a^7 
        + a^5 - a^4 - a^3 - a^2 - a + 1)*q^169 + (a^11 - a^7 - a^4)*q^171 + 
        (-a^10 + a^7 + a^3 - 1)*q^172 + (-a^10 - a^9 + a^7 - a^4 + a^2 + 
        a)*q^175 + (a^11 - a^9 - a^8 + a^6 - a^4 - a^3 + a + 1)*q^181 + (a^10 + 
        a^9 - a^7 - a^6 + a^5 + a^4 - a^2 - a)*q^183 + (a^10 + a^9 - a^2)*q^189 
        + (-a^11 - a^10 + a^8 + a^7 - a^6 - a^5 + a^3 + a^2 - 1)*q^192 + (-a^7 +
        a^2)*q^193 + (-a^11 - a^10 + a^3 + a^2)*q^196 + (-a^11 + a^9 + a^8 - a^6
        + 2*a^4 + a^3 - a - 1)*q^199 - a^2*q^201 + (-a^5 - a^3)*q^208 + (a^10 + 
        a^6)*q^211 + (a^11 - 2*a^9 - a^8 + a^6 + a^5 - 2*a^3 + a + 1)*q^217 + 
        (-a^11 - a^8 + a)*q^219 + (-a^8 + a^7 + a - 1)*q^223 + a^8*q^225 + (a^7 
        - a^3 - 1)*q^228 + (a^8 + a^4)*q^229 + (a^10 - a^3)*q^237 + (-a^8 - a^5 
        + a)*q^241 - a^5*q^243 + (a^9 + a^8 - a^2)*q^244 + (a^9 + a^7 + a^6 + 
        a^4 - a^2 - 1)*q^247 + O(q^250),
    q^2 - a*q^6 + (a^11 - a^4)*q^8 + (-a^11 - a^10 + a^8 - a^6 - a^5 + a^3 + a^2
        - 1)*q^14 + a^2*q^18 + (a^11 - a^9 - a^8 + a^6 + a^5 - a^4 - a^3 + a + 
        1)*q^24 + (-a^11 - a^9)*q^26 + (-a^8 + a)*q^32 + (a^9 - a^5 - a^2)*q^38 
        + (a^8 + a^7 - 1)*q^42 + a^6*q^50 - a^3*q^54 + (a^10 + a^4)*q^56 + 
        (-a^11 - a^10 + a^9 + a^8 - a^6 + a^4 + 2*a^3 - a - 1)*q^62 + (a^11 + 
        a^10 - a^8 - a^7 + a^5 - a^3 - a^2 + 1)*q^72 + (a^4 - a^3)*q^74 + (-a^11
        + a^10 + a^9 + a^8 - a^6 + a^4 + a^3 - a - 1)*q^78 + (a^11 - a^8 - a^7 +
        a^5 - a^2 + 1)*q^86 + (a^9 - a^2)*q^96 + (a^11 + a^10 - a^8 - a^3 - 
        a^2)*q^98 + (a^8 + a^6)*q^104 + (-a^10 + a^6 + a^3)*q^114 + (-a^9 - a^8 
        + a^6 + a^5 - a^4 - a^3 + a + 1)*q^122 + (-a^9 - a^8 + a)*q^126 + (-a^11
        + a^9 + a^8 - a^6 + a^4 + a^3 - a - 1)*q^128 + a*q^134 + (a^10 + a^7 - 
        1)*q^146 - a^7*q^150 + (-a^11 - a^10 + a^8 + a^7 - a^6 - a^5 + a^3 + 
        2*a^2 - 1)*q^152 + (-a^9 + a^2)*q^158 + a^4*q^162 + (-a^11 - a^5)*q^168 
        + (a^11 + a^9 - a^4 - a^3 - a^2 - a)*q^182 + (-a^10 + a^8 + a^7 - a^6 - 
        a^5 - a^4 + a^3 + a^2 - 1)*q^186 + (a^11 - a^9 - a^8 - a^7 + a^6 + a^5 -
        a^4 - a^3 + a + 1)*q^194 - a^3*q^200 + (a^11 - a^8 + a^6 + a^5 - a^4 - 
        a^3 - a^2 + a + 1)*q^206 + q^216 + (-a + 1)*q^218 + (-a^5 + a^4)*q^222 +
        (-a^7 - a)*q^224 + (-2*a^11 - a^10 + a^8 + a^7 - a^6 - a^5 + a^3 + a^2 -
        1)*q^234 + a^10*q^242 + (-a^9 + a^7 - 1)*q^248 + O(q^250)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
762
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
762
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
762
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
762
);
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(
14
);
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + a^4*q^4 + (a^5 - a^4 + a^3 - a^2 + a)*q^7 + a^2*q^9 - a^5*q^12 +
        (a^4 + a^2)*q^13 - a*q^16 + (-a^5 + a^2)*q^19 + (-a + 1)*q^21 + (a^5 - 
        a^4 + a^3 - a^2 + a - 1)*q^25 - a^3*q^27 + (a^4 - a^3)*q^28 + (-a^5 - 
        a^3)*q^31 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^36 + (a^4 - a^3)*q^37 + 
        (-a^5 - a^3)*q^39 + (a^5 - a^4 - a^2 + a - 1)*q^43 + a^2*q^48 + (-a^4 + 
        a^3 - a^2 + a)*q^49 + (a^5 - a^4 + a^3 - a^2 - 1)*q^52 + (a^5 - a^4 - 
        a^2 + a - 1)*q^57 + (-a^5 + a^4)*q^61 + (a^2 - a)*q^63 - a^5*q^64 - 
        2*a*q^67 + (-a^3 + 1)*q^73 + q^75 + (a^5 - a^4 + a^3 + a - 1)*q^76 + 
        2*a^2*q^79 + a^4*q^81 + (-a^5 + a^4)*q^84 + (a^4 - a^3 + a^2 - a)*q^91 +
        (a^5 + a^3 - a^2 + a - 1)*q^93 + (-a^5 + 1)*q^97 - a^3*q^100 + (-a^5 + 
        a^2)*q^103 + q^108 + (-a + 1)*q^109 + (-a^5 + a^4)*q^111 + (-a + 
        1)*q^112 + (a^5 + a^3 - a^2 + a - 1)*q^117 - a^3*q^121 + (a^2 + 1)*q^124
        + q^127 + (a^4 + 1)*q^129 + (-a^5 + a^4 + a^2 - a)*q^133 + (a^2 - 
        a)*q^139 - a^3*q^144 + (a^5 - a^4 + a^3 - a^2)*q^147 + (-a + 1)*q^148 + 
        (a^5 - a^4 + a^3 - a^2 - 1)*q^151 + (a^2 + 1)*q^156 + (2*a^5 - 2*a^4 + 
        2*a^3 - 2*a^2 + 2*a - 2)*q^157 + (a^4 - a)*q^163 + (a^5 + a^3 - a^2 - 
        1)*q^169 + (a^4 + 1)*q^171 + (-a^3 + 1)*q^172 + (-a^4 + a^3 - a^2 + a - 
        1)*q^175 - 2*a^5*q^181 + (-a^4 + a^3 - a^2 + a - 1)*q^183 + (-a^3 + 
        a^2)*q^189 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^192 + (a^2 + 1)*q^193 + 
        (a^4 - a^3 + a^2)*q^196 + (-a^5 + a^4)*q^199 + 2*a^2*q^201 + (-a^5 - 
        a^3)*q^208 + (a^5 - a^4 - a^2 + a - 1)*q^211 + (-a^5 + a^4 - a^3 + 
        a^2)*q^217 + (a^4 - a)*q^219 + (-a + 1)*q^223 - a*q^225 + (-a^3 + 
        1)*q^228 + (a^4 - a)*q^229 - 2*a^3*q^237 + (-a^5 - a)*q^241 - a^5*q^243 
        + (a^2 - a)*q^244 + (a^5 + a^3 + a)*q^247 + O(q^250),
    q^2 - a*q^6 + a^4*q^8 + (a^5 - a^4 + a^3 - a^2 + a)*q^14 + a^2*q^18 - 
        a^5*q^24 + (a^4 + a^2)*q^26 - a*q^32 + (-a^5 + a^2)*q^38 + (-a + 1)*q^42
        + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^50 - a^3*q^54 + (a^4 - a^3)*q^56 + 
        (-a^5 - a^3)*q^62 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^72 + (a^4 - 
        a^3)*q^74 + (-a^5 - a^3)*q^78 + (a^5 - a^4 - a^2 + a - 1)*q^86 + 
        a^2*q^96 + (-a^4 + a^3 - a^2 + a)*q^98 + (a^5 - a^4 + a^3 - a^2 - 
        1)*q^104 + (a^5 - a^4 - a^2 + a - 1)*q^114 + (-a^5 + a^4)*q^122 + (a^2 -
        a)*q^126 - a^5*q^128 - 2*a*q^134 + (-a^3 + 1)*q^146 + q^150 + (a^5 - a^4
        + a^3 + a - 1)*q^152 + 2*a^2*q^158 + a^4*q^162 + (-a^5 + a^4)*q^168 + 
        (a^4 - a^3 + a^2 - a)*q^182 + (a^5 + a^3 - a^2 + a - 1)*q^186 + (-a^5 + 
        1)*q^194 - a^3*q^200 + (-a^5 + a^2)*q^206 + q^216 + (-a + 1)*q^218 + 
        (-a^5 + a^4)*q^222 + (-a + 1)*q^224 + (a^5 + a^3 - a^2 + a - 1)*q^234 - 
        a^3*q^242 + (a^2 + 1)*q^248 + O(q^250)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
762
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
762
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + q^4 - 2*a*q^7 + (a - 1)*q^9 - a*q^12 + a*q^13 + q^16 - q^19 + 
        (2*a - 2)*q^21 + q^25 + q^27 - 2*a*q^28 + a*q^31 + (a - 1)*q^36 + (-a + 
        1)*q^37 + (-a + 1)*q^39 + (2*a - 2)*q^43 - a*q^48 + (3*a - 3)*q^49 + 
        a*q^52 + a*q^57 - q^61 + 2*q^63 + q^64 + a*q^67 - q^73 - a*q^75 - q^76 +
        a*q^79 - a*q^81 + (2*a - 2)*q^84 + (-2*a + 2)*q^91 + (-a + 1)*q^93 - 
        2*a*q^97 + q^100 - 2*a*q^103 + q^108 + (-a + 1)*q^109 - q^111 - 
        2*a*q^112 - q^117 - a*q^121 + a*q^124 + q^127 + 2*q^129 + 2*a*q^133 + 
        a*q^139 + (a - 1)*q^144 + 3*q^147 + (-a + 1)*q^148 - 2*a*q^151 + (-a + 
        1)*q^156 + a*q^157 + (2*a - 2)*q^163 + (-a + 1)*q^171 + (2*a - 2)*q^172 
        - 2*a*q^175 - q^181 + a*q^183 - 2*a*q^189 - a*q^192 - q^193 + (3*a - 
        3)*q^196 + (-a + 1)*q^199 + (-a + 1)*q^201 + a*q^208 + (-a + 1)*q^211 + 
        (-2*a + 2)*q^217 + a*q^219 + a*q^223 + (a - 1)*q^225 + a*q^228 - q^229 +
        (-a + 1)*q^237 + a*q^241 + (a - 1)*q^243 - q^244 - a*q^247 + O(q^250),
    q^2 - a*q^6 + q^8 - 2*a*q^14 + (a - 1)*q^18 - a*q^24 + a*q^26 + q^32 - q^38 
        + (2*a - 2)*q^42 + q^50 + q^54 - 2*a*q^56 + a*q^62 + (a - 1)*q^72 + (-a 
        + 1)*q^74 + (-a + 1)*q^78 + (2*a - 2)*q^86 - a*q^96 + (3*a - 3)*q^98 + 
        a*q^104 + a*q^114 - q^122 + 2*q^126 + q^128 + a*q^134 - q^146 - a*q^150 
        - q^152 + a*q^158 - a*q^162 + (2*a - 2)*q^168 + (-2*a + 2)*q^182 + (-a +
        1)*q^186 - 2*a*q^194 + q^200 - 2*a*q^206 + q^216 + (-a + 1)*q^218 - 
        q^222 - 2*a*q^224 - q^234 - a*q^242 + a*q^248 + O(q^250)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
762
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
63*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^16 - q^17 - q^19 - q^22 + q^25 - q^26 - q^31 + q^32 + q^34 - 
        q^37 + q^38 + q^49 - q^61 + q^62 - q^71 + q^74 + q^81 - q^82 + q^88 - 
        q^94 + q^104 - q^107 + q^122 + q^127 + 2*q^131 - q^136 + q^142 + q^143 -
        q^144 - q^146 - q^149 - q^152 - q^153 - q^158 + 2*q^163 - q^171 - q^179 
        - q^187 + 2*q^191 - q^198 - q^206 - q^209 + q^214 - q^221 + q^225 - 
        q^226 + 2*q^227 - q^234 + q^242 - q^247 - q^248 + O(q^250),
    q^2 - q^16 + q^18 - q^22 - q^26 - q^44 + q^50 - q^52 + q^64 + q^68 + q^76 - 
        q^82 + q^88 - q^94 + q^98 + q^104 + q^124 - q^136 - q^144 - q^146 + 
        q^148 - q^152 - q^158 + q^162 - q^164 + q^176 - q^188 - q^198 - q^206 + 
        q^208 - q^226 - q^234 + q^242 + q^244 - q^248 + O(q^250),
    q^3 + q^27 - q^48 - q^51 - q^57 - q^66 + q^75 - q^78 - q^93 + q^96 + q^102 -
        q^111 + q^114 + q^147 - q^183 + q^186 - q^213 + q^222 + q^243 - q^246 + 
        O(q^250),
    q^4 + q^11 + q^13 - q^16 - q^17 - q^19 - q^22 - q^26 - q^31 + q^34 + q^36 - 
        q^37 + q^38 + q^41 - q^44 + q^47 - q^52 - q^61 + q^62 - q^71 + q^73 + 
        q^74 + q^79 - q^82 - q^94 + q^99 + q^100 + q^103 - q^107 + q^113 + q^117
        - q^121 + q^122 + q^128 + q^142 - q^143 - q^144 - q^146 - q^149 - q^153 
        + q^157 - q^158 - q^164 - q^169 - q^171 + q^176 - q^179 - q^188 + q^196 
        + q^197 - q^198 + q^199 - q^206 + q^208 + q^211 + q^214 - q^226 - q^234 
        + q^242 + O(q^250),
    q^6 - q^48 + q^54 - q^66 - q^78 - q^132 + q^150 - q^156 + q^192 + q^204 + 
        q^228 - q^246 + O(q^250),
    q^8 + q^11 + q^13 - q^16 - q^17 - q^19 - q^31 - q^37 + q^41 - q^44 + q^47 - 
        q^52 - q^61 + q^68 - q^71 + q^72 + q^73 + q^76 + q^79 + q^99 + q^103 - 
        q^107 + q^113 + q^117 - q^121 + q^124 - q^136 - q^143 - q^144 + q^148 - 
        q^149 - q^152 - q^153 + q^157 - q^164 - q^169 - q^171 - q^179 - q^188 + 
        q^197 + q^199 + q^200 + q^211 + q^244 - q^248 + O(q^250),
    q^12 + q^33 + q^39 - q^48 - q^51 - q^57 - q^66 - q^78 - q^93 + q^102 + q^108
        - q^111 + q^114 + q^123 - q^132 + q^141 - q^156 - q^183 + q^186 - q^213 
        + q^219 + q^222 + q^237 - q^246 + O(q^250),
    q^24 + q^33 + q^39 - q^48 - q^51 - q^57 - q^93 - q^111 + q^123 - q^132 + 
        q^141 - q^156 - q^183 + q^204 - q^213 + q^216 + q^219 + q^228 + q^237 + 
        O(q^250)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
763
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*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(
763
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
108
);
qprec:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^14 - a^7 - a^5)*q^2 + (a^14 - a^10 + a^3 + a)*q^4 + (-a^11 + a^2)*q^7
        + (a^17 + a^15 - a^12 - a^10 - a^8 + a^3)*q^8 + (-a^16 + a^7)*q^9 + 
        (2*a^10 - a)*q^11 + (a^16 - 1)*q^14 + (a^17 - a^13 - a^11 + a^6 + a^4 - 
        a)*q^16 + (a^12 - a^5 - a^3)*q^18 + (-2*a^17 - a^15 + a^8 - a^6)*q^22 + 
        (-a^15 - a^9 + a^6)*q^23 + (a^13 - a^4)*q^25 + (-a^14 - a^12 + a^7 + 
        a^5)*q^28 + (a^16 + a^9 - a^7)*q^29 + (-a^15 - a^13 + a^9 + a^8 + a^7 + 
        a^6 - a^2 - 1)*q^32 + (-a^17 + a^12 + a)*q^36 + (a^4 + a)*q^37 + (-a^13 
        - a^8 + a^4)*q^43 + (a^15 + 2*a^13 + a^11 - 2*a^6 - a^4 + a^2)*q^44 + 
        (a^16 + a^11 + a^5 - a^4 - a^2)*q^46 - a^13*q^49 + (-a^9 + a^2 + 1)*q^50
        + (-a^16 + a^6)*q^53 + (-a^14 + a^10 + a^8 - a^3 - a)*q^56 + (-a^16 - 
        a^12 + a^3)*q^58 + (-a^9 + 1)*q^63 + (-a^16 - a^15 - a^14 + a^11 + a^9 +
        a^7 - a^4 - a^3 - a^2)*q^64 + (a^11 - a^3)*q^67 + (-a^14 - a^10)*q^71 + 
        (a^15 + a^13 - a^10 - a^8 - a^6 + a)*q^72 + (a^15 - a^11 - a^8 - a^6 - 
        1)*q^74 + (a^12 + a^3)*q^77 + (a^9 + a^5 - 1)*q^79 + (-a^14 + a^5)*q^81 
        + (a^15 + a^9 + a^4 - a^2 - 1)*q^86 + (a^16 + a^13 - a^11 - 2*a^9 - 
        2*a^7 + a^4 + 2*a^2 + 1)*q^88 + (-a^16 - a^14 - a^12 + a^11 + a^5 - a + 
        1)*q^92 + (a^11 + a^9 - a^2)*q^98 + (a^17 + a^8)*q^99 + (a^16 + a^14 - 
        a^9 - a^7)*q^100 + (a^14 - a^13 + a^12 - a^5 - a^2)*q^106 + (a^17 - a^8 
        - a^4)*q^107 + (-a^17 + a^8)*q^109 + (-a^17 - a^15 + a^12 + a^10 + a^8 -
        a^4 - a^3)*q^112 - a^3*q^113 + (a^17 + a^14 - a^5)*q^116 - 2*a^2*q^121 +
        (a^16 + a^14 - a^7)*q^126 + (a^17 - a^8 - 1)*q^127 + (-a^17 - a^16 + 
        a^13 + a^12 + a^11 + a^10 + a^8 - a^5 - a^4 - a^3 + 1)*q^128 + (-a^17 + 
        a^10 - a^9 + a^8 - a^7 + 1)*q^134 + (a^13 - a^6)*q^137 + (a^17 + a^12 + 
        a^10 + a^6 - a^3)*q^142 + O(q^144)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^14 - a^10 + a)*q^2 + (-a^11 + a^6 - a)*q^4 - a^13*q^7 + (-a^16 - a^15
        + a^11 + a^7 - a^3 - a^2)*q^8 + (-a^14 + a^5)*q^9 - a^2*q^11 + (-a^5 + 
        1)*q^14 + (-a^17 + a^13 + a^12 - a^7 - a^4 + a^2)*q^16 + (-a^15 + 
        a^10)*q^18 + (-a^16 + a^12 - a^3)*q^22 + (-a^12 + a^9 + a^3 - 1)*q^23 - 
        a^17*q^25 + (a^15 + a^14 - a^10 - a^6 + a)*q^28 + (-a^14 + a^9 + a^5 - 
        1)*q^29 + (a^17 + a^16 + a^14 - a^12 - a^9 - a^8 + a^4 + a^3)*q^32 + 
        (a^15 - a^7 - a^6 + a^2)*q^36 + (a^8 + a^2)*q^37 + (-a^17 + a^16)*q^43 +
        (a^13 - a^8 + a^3)*q^44 + (-a^13 + a^10 + a^8 - a^5)*q^46 + (a^17 - 
        a^8)*q^49 + (-a^9 + a^4)*q^50 + (a^12 - a^5)*q^53 + (a^16 - a^11 + a^6 -
        a)*q^56 + (-a^15 + 2*a^10 - a^5)*q^58 - a^9*q^63 + (-a^14 - a^13 + a^9 +
        a^8 + a^6 + a^5 - a^3 - a - 1)*q^64 + (a^13 + a^6 - a^4)*q^67 + (a^11 - 
        a^2 - a)*q^71 + (a^17 + a^16 - a^12 - a^11 - a^8 + a^3)*q^72 + (a^16 + 
        a^13 - a^12 - a^4 + a^3 + 1)*q^74 + a^15*q^77 + (a^10 - a^9)*q^79 + 
        (-a^10 + a)*q^81 + (-a^9 + a^8 + a^4 - a^3)*q^86 + (a^17 - a^13 + a^5 + 
        a^4 - 1)*q^88 + (a^15 + a^13 - a^10 - a^6 - a^5 - a^4 + a^2 + a + 
        1)*q^92 + (-a^13 + a^9 - 1)*q^98 + (a^16 - a^7)*q^99 + (-a^14 + a^9 + 
        a^5 - a - 1)*q^100 + (a^17 + a^15 - a^10 - a^8 - a^6 + a^4 + a)*q^106 + 
        (-a^16 + a^8 + a^7)*q^107 + (-a^16 + a^7)*q^109 + (-a^16 - a^15 + a^11 +
        a^8 + a^7 - a^3 - a^2)*q^112 - a^6*q^113 + (2*a^15 - a^10 - a^7 - 2*a^6 
        + 2*a^2 + a)*q^116 + (-a^14 + a^5 - a)*q^126 + (-a^16 + a^7 + 1)*q^127 +
        (-a^17 - a^16 - a^15 + a^13 + a^11 + a^10 + a^7 - a^5 - a^4 - a^2 + 
        1)*q^128 + (-a^16 + a^14 + a^11 - a^9 + a^7 - a^2)*q^134 + (a^17 + a^12 
        - a^8)*q^137 + (-a^15 + a^12 + a^11 - a^7 - a^2)*q^142 + O(q^144)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^5 - a^4 + a)*q^2 + (-a^5 + a^3 - a)*q^4 - a^2*q^7 + (a^5 - 2*a^3 - 
        a^2 + a + 1)*q^8 + (-a^4 + a)*q^9 + (-a^4 + a - 1)*q^14 + (-a^5 - a^4 + 
        a^3 + 2*a^2 - a - 1)*q^16 + (-a^5 + a^3)*q^18 + (-a^3 + 2)*q^23 + 
        a^4*q^25 + (-a^5 + a^4 + a^3 - a)*q^28 + (a^4 - a - 1)*q^29 + (a^5 + 
        2*a^4 - a^3 - 2*a^2 - a + 2)*q^32 + (a^5 - a^3 - a^2 + a)*q^36 + (a^4 + 
        a)*q^37 + (-a^5 - a^4 + a^2)*q^43 + (a^5 - 2*a^4 + a^2 + a)*q^46 + 
        a^4*q^49 + (a^2 - 1)*q^50 + (a^4 + a^3 - a - 1)*q^53 + (2*a^5 - a^3 - 
        a^2 + a)*q^56 + (a^4 - a^3 - a)*q^58 - q^63 + (a^5 - 2*a^4 + a^2 + a - 
        2)*q^64 + (-a^3 - a^2)*q^67 + (a^5 + a)*q^71 + (-a^5 - a^4 + a^3 + a^2 -
        a - 1)*q^72 + (-a^5 + a^3 + 2*a^2 - 2)*q^74 + (a^5 + 1)*q^79 - a^5*q^81 
        + (a^4 - a^3 - a^2 + 2)*q^86 + (-a^5 + a^4 + a^3 - a^2 - 2*a + 1)*q^92 +
        (a^2 - 1)*q^98 + (-a^5 + a^4 - a + 1)*q^100 + (a^5 + a^4 - a^3 - 
        a^2)*q^106 + (a^5 - a^4 - a^2)*q^107 + (-a^5 + a^2)*q^109 + (-a^5 - a^4 
        + 2*a^3 + a^2 - a - 1)*q^112 + 2*a^3*q^113 + a^2*q^116 + a^2*q^121 + 
        (-a^5 + a^4 - a)*q^126 + (a^5 - a^2 - 1)*q^127 + (-2*a^5 + 2*a^4 + a^3 -
        2*a + 1)*q^128 + (-a^5 - a^4 + a^2 - 1)*q^134 + (-a^4 - a^3 + 1)*q^137 +
        (-a^5 + 2*a^3 + a^2 - a - 1)*q^142 + O(q^144)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^5 - a)*q^2 + (a^3 + a^2 - a - 1)*q^4 + a^4*q^7 + (-a^4 + a^2 + a - 
        1)*q^8 - a^5*q^9 + 2*a^2*q^11 + (-a^5 + 1)*q^14 + (a^5 - a^3 + a)*q^16 +
        (a^3 - a - 1)*q^18 + (-2*a^4 - 2*a^3 + 2*a)*q^22 + (-a^3 + 1)*q^23 + 
        (a^5 - a^2)*q^25 + (-a^5 + a^3 - a - 1)*q^28 + (-a^5 + 1)*q^29 + (-a^3 -
        a^2 + a + 1)*q^32 + (-a^4 + a^3 + a^2 + a - 1)*q^36 + a^5*q^37 + (a^5 - 
        a^4 - a^2 + a)*q^43 + (2*a^5 + 2*a^4 - 2*a^3 - 2*a^2)*q^44 + (a^4 - a^2 
        - a)*q^46 + (a^5 - a^2)*q^49 + (a^4 + 1)*q^50 + (-a^5 - a^3)*q^53 + 
        (-a^4 + a^3 + a^2 - 1)*q^56 + (-a^5 + a^3 - 2*a - 1)*q^58 + q^63 + (a^4 
        - a^2 - a)*q^64 + (a^4 + a^3 - 1)*q^67 + (a^2 - a)*q^71 + (a^5 - a^4 - 
        a^3 + a)*q^72 + (-a^3 + a + 1)*q^74 + (2*a^3 - 2)*q^77 + (-a + 1)*q^79 -
        a*q^81 + (a^5 + a^4 - a^3 - a^2 + 1)*q^86 + (2*a^4 - 2*a^2 + 2)*q^88 + 
        (-a^5 + a^4 + a^3 + a^2 - a)*q^92 + (a^4 + 1)*q^98 + (-2*a^4 + 2*a)*q^99
        + (-a^5 - a + 1)*q^100 + (a^5 + a^4 + a^3 - a^2 - a - 1)*q^106 + (a^5 - 
        a^4 - a^2 + a)*q^107 + (-a^4 + a)*q^109 + (a^5 - a^4 + a - 1)*q^112 + 
        (2*a^3 - 2)*q^113 + (-a^4 + 2*a^3 + 2*a^2 - 2)*q^116 + 3*a^4*q^121 + 
        (-a^5 - a)*q^126 + (-a^4 + a + 1)*q^127 + a^3*q^128 + (-a^5 - a^4 + a^2 
        + a + 1)*q^134 + (a^5 - a^3 - a^2)*q^137 + (-a^4 + a^2 + a - 1)*q^142 + 
        O(q^144)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-2*a + 1)*q^2 - 2*q^4 + (-a + 1)*q^7 + (2*a - 1)*q^8 - a*q^9 + (-a - 
        1)*q^14 + q^16 + (a - 2)*q^18 - a*q^25 + (2*a - 2)*q^28 + (a - 1)*q^29 +
        2*a*q^36 + q^43 - a*q^49 + (a - 2)*q^50 + (a + 1)*q^53 + (a + 1)*q^56 + 
        (a + 1)*q^58 - q^63 + q^64 + (-a + 2)*q^67 + q^71 + (-a + 2)*q^72 + (-a 
        + 2)*q^79 + (a - 1)*q^81 + (-2*a + 1)*q^86 + (a - 2)*q^98 + 2*a*q^100 + 
        (-3*a + 3)*q^106 + (2*a - 1)*q^107 + (-a + 1)*q^109 + (-a + 1)*q^112 - 
        2*q^113 + (-2*a + 2)*q^116 + (a - 1)*q^121 + (2*a - 1)*q^126 + (a - 
        2)*q^127 + (-2*a + 1)*q^128 - 3*a*q^134 + (a - 1)*q^137 + (-2*a + 
        1)*q^142 + O(q^144)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^2 - a*q^7 + q^8 + (a - 1)*q^9 + (2*a - 2)*q^11 + a*q^14 - q^16 + (-a +
        1)*q^18 + (-2*a + 2)*q^22 + 2*q^23 + (a - 1)*q^25 + a*q^29 + (2*a - 
        2)*q^37 - q^43 - 2*q^46 + (a - 1)*q^49 + (-a + 1)*q^50 + a*q^53 - a*q^56
        - a*q^58 + q^63 + q^64 + (-a + 1)*q^67 - q^71 + (a - 1)*q^72 + (-2*a + 
        2)*q^74 + 2*q^77 + (-a + 1)*q^79 - a*q^81 + q^86 + (2*a - 2)*q^88 + (-a 
        + 1)*q^98 - 2*a*q^99 - a*q^106 - q^107 - a*q^109 + a*q^112 + 2*q^113 - 
        3*a*q^121 - q^126 + (-a + 1)*q^127 - q^128 + (a - 1)*q^134 + a*q^137 + 
        q^142 + O(q^144)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
763
);
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:=
144
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 - q^7 + q^9 + q^16 + q^25 - q^28 - 2*q^29 + q^36 - 2*q^43 + q^49 - 
        q^63 + q^64 - 2*q^71 + q^81 + q^100 - q^109 - q^112 - 2*q^113 - 2*q^116 
        + q^121 - 2*q^137 + O(q^144)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
764
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
764
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
190
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
764
);
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(
190
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
764
);
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:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
764
);
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(
38
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
764
);
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:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
764
);
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(
10
);
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^3 - a^2 + a - 1)*q^2 - a^3*q^4 + a^2*q^8 + a^2*q^13 - a*q^16 - 
        a^2*q^21 - q^25 - a*q^26 + (-a + 1)*q^29 + q^32 + a*q^33 - q^37 - q^41 +
        a*q^42 + (-a^3 + a^2 - a + 1)*q^50 + q^52 + (-a^3 - a)*q^57 + (a^3 - a^2
        + a)*q^58 + (a^3 - a^2 + a - 1)*q^64 - q^66 + (a^3 - a^2)*q^69 + 
        a^3*q^73 + (-a^3 + a^2 - a + 1)*q^74 + a*q^77 + (-a^3 + a^2 - a + 
        1)*q^81 + (-a^3 + a^2 - a + 1)*q^82 - q^84 + (a - 1)*q^89 + (-a^2 + a - 
        1)*q^93 + (a^3 + a)*q^97 + a^3*q^100 + (a^2 + 1)*q^101 + (a^3 - a^2 + a 
        - 1)*q^104 + (-a^3 + 1)*q^109 + (a^2 + 1)*q^114 + (-a^2 + a - 1)*q^116 -
        a^3*q^128 + (a^2 - a)*q^129 + (-a^3 + a^2 - a + 1)*q^132 + (-a^3 - 
        a)*q^133 + (-a^2 + a)*q^138 + (a^3 - a^2 + a - 1)*q^141 - a^2*q^146 + 
        a^3*q^148 - q^154 - a^2*q^157 + (a^3 - a^2)*q^161 + a^3*q^162 + 
        a^3*q^164 + (-a^3 + a^2 - a + 1)*q^168 - a*q^173 + q^177 + (-a^3 + a^2 -
        a)*q^178 + (a^2 - a)*q^181 + (-a^3 + a^2)*q^186 + O(q^188),
    q^3 + (a^3 - a^2 + a - 1)*q^6 + q^7 + (a^3 - a^2 + a - 1)*q^11 - a^3*q^12 + 
        (a^3 - a^2 + a - 1)*q^14 + (-a^3 + a^2 + 1)*q^19 - a^3*q^22 + (-a + 
        1)*q^23 + a^2*q^24 + a^2*q^27 - a^3*q^28 + (-a^2 + a)*q^31 + (a^3 - 
        1)*q^38 + a^2*q^39 + (-a^3 + a^2 - a)*q^43 + a^2*q^44 + (a^3 - a^2 + 
        a)*q^46 - a^2*q^47 - a*q^48 - a*q^54 + a^2*q^56 + a^3*q^59 + (a - 
        1)*q^62 + a^2*q^67 - q^75 + (-a^3 - a + 1)*q^76 - a*q^78 - a*q^79 + (a^3
        - a^2 - 1)*q^83 + (a^2 - a + 1)*q^86 + (-a + 1)*q^87 - a*q^88 + a^2*q^91
        + (-a^2 + a - 1)*q^92 + a*q^94 + q^96 + (-a^2 - 1)*q^103 + (-a^3 + 
        1)*q^107 + q^108 - q^111 - a*q^112 - a^2*q^118 - q^123 + (-a^3 + a^2 - 
        a)*q^124 - a^3*q^127 + (-a^3 - a + 1)*q^131 - a*q^134 + (-a^2 + a)*q^139
        - a*q^143 + (-a^3 + a^2 - a + 1)*q^150 + (-a^2 - 1)*q^151 + (a^3 + 
        a)*q^152 + q^156 + q^158 + (a - 1)*q^163 + (-a^3 + 1)*q^166 + (a^3 - a^2
        + a)*q^167 + (a^3 - a^2)*q^172 + (a^3 - a^2 + a)*q^174 - q^175 + q^176 +
        (a^3 + a - 1)*q^179 - a*q^182 + (-a^3 + a^2)*q^184 + O(q^188)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
764
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
95*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
188
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^23 + q^25 - q^43 + q^49 - q^75 - q^85 - q^117 + q^121 - q^125 - q^135 
        + q^169 + O(q^188),
    q^2 + q^30 + q^34 - q^36 - q^40 - q^46 + q^52 - q^54 - q^68 + q^72 - q^78 - 
        q^86 - q^92 + q^98 + q^100 + q^102 - q^104 + q^108 - q^128 + q^136 - 
        q^138 - q^150 + q^156 - q^158 + q^160 - q^170 - q^172 + q^184 + 
        O(q^188),
    q^3 - q^25 - q^39 - q^45 + q^65 + q^75 - q^79 + q^85 + q^97 - q^115 + q^147 
        + q^149 - q^177 + O(q^188),
    q^4 + q^36 - q^48 - q^60 - q^68 + q^100 - q^104 - q^120 - q^180 + O(q^188),
    q^5 - q^25 - q^27 + q^51 + q^67 - q^69 - q^79 + q^103 - q^115 + q^125 - 
        q^129 + q^135 + q^153 + q^169 + O(q^188),
    q^6 + q^36 + q^40 - q^48 - q^50 - q^60 - q^68 - q^78 + q^80 - q^90 + q^92 - 
        q^104 - q^120 + q^130 + q^150 - q^158 + q^170 + q^172 - q^180 + 
        O(q^188),
    q^8 + q^30 + q^34 - q^48 - q^50 - q^54 - q^60 - q^68 + q^72 - q^78 + q^100 +
        q^102 - q^104 + q^108 - q^120 - q^138 + q^156 - q^158 + O(q^188),
    q^9 + q^23 - q^25 - q^27 - q^39 + q^43 - q^45 - q^69 + q^75 - q^79 + q^81 + 
        q^85 - q^115 + q^117 + q^125 - q^129 + q^135 - q^177 + O(q^188),
    q^10 - q^30 - q^34 + q^36 - q^52 - q^60 + q^78 + q^92 + q^128 + q^134 - 
        q^144 - q^160 + q^172 + O(q^188),
    q^12 + q^30 + q^34 - q^36 - q^40 - q^50 + q^52 - q^54 + q^64 - q^68 + q^72 -
        q^78 - q^92 - q^96 + q^102 + q^108 - q^128 - q^138 - q^158 + q^160 - 
        q^172 - q^180 + q^184 + O(q^188),
    q^13 - q^17 - q^45 - q^51 + q^59 + q^65 + q^75 + q^81 - q^107 - q^109 - 
        q^115 + q^163 + O(q^188),
    q^15 + q^17 - q^25 - q^27 - q^39 + q^51 - q^69 - q^79 + q^107 + q^109 + 
        q^117 - q^129 + q^135 + q^153 - q^177 + O(q^188),
    q^16 + q^30 + q^34 - q^36 - q^40 - q^50 + q^52 - q^54 + q^60 + q^64 - q^78 -
        q^80 - q^92 - q^96 + q^102 - q^128 - q^138 + q^144 - q^158 - q^172 + 
        O(q^188),
    q^18 - q^30 - q^34 + q^36 + q^40 + q^46 - q^48 - q^52 - q^60 - q^72 + q^86 -
        q^90 + q^92 + q^96 - q^102 + q^128 + q^150 - q^160 + q^162 + q^170 + 
        q^172 - q^184 + O(q^188),
    q^20 + q^30 + q^34 - q^36 - q^50 + q^52 - q^54 - q^68 + q^72 - q^78 - q^92 +
        q^102 - q^104 - q^120 - q^128 - q^138 + q^144 + q^156 - q^158 + q^160 - 
        q^172 + q^184 + O(q^188),
    q^24 + q^30 + q^34 - q^48 - q^50 + q^52 - q^54 - q^68 - q^78 + q^102 - q^104
        - q^120 - q^138 + q^144 - q^158 + q^160 - q^180 + O(q^188),
    q^26 - q^34 + q^36 + q^40 - q^48 - q^52 - q^60 - q^64 + q^80 - q^90 + q^92 +
        q^96 - q^102 - q^104 + q^118 - q^120 + q^128 + q^130 + q^150 + q^162 + 
        q^172 + O(q^188),
    q^32 - q^36 - q^40 + q^52 + q^60 - q^80 - q^92 + q^120 + q^136 - q^172 + 
        O(q^188)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
765
);
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(
765
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
765
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
765
);
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(
48
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
16
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
16
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^7 + a^6 + a^5)*q^4 + (-a^2 - a)*q^10 + (-a^6 - a^5 - a^4 - a^3 - 
        a^2)*q^16 + (-a^4 + a^2)*q^19 - a^5*q^25 + (a^6 + a^3)*q^31 + (a^7 - 
        1)*q^34 + (-a^7 - a^6 + a + 1)*q^40 + (a^5 + a^4 - a - 1)*q^46 - 
        a^3*q^49 + (-a^7 + a^4)*q^61 + (-a^7 + a^5 + a^4 + a^3 + a^2 + a + 
        1)*q^64 + (a^7 + a^3 + a^2 - 1)*q^76 + (a^6 + a)*q^79 - a^3*q^85 + (-a^7
        - a^6 + a^4 + a^3)*q^94 + (a^4 + a^3 + a^2)*q^100 + (-a^3 + a)*q^106 + 
        (-a^6 - a^5)*q^109 + (-a^4 - 1)*q^115 - a^7*q^121 + (-a^5 - a^4 - a^3 - 
        a^2 - a - 1)*q^124 + (-a^7 - a^6 - a^5 - a^4)*q^136 + (-a - 1)*q^139 + 
        (a^5 + a)*q^151 + (a^7 + a^6 + a^5 + a^4 + a^3 - 1)*q^160 + (a^7 - 
        a^5)*q^166 + a^4*q^169 + (a^7 + 1)*q^181 + (-a^7 - a^6 - a^5 - a^4 - a^3
        - a^2 - a + 1)*q^184 + (a^6 + a^5 - a^4 - a^3)*q^190 + (a^2 + a + 
        1)*q^196 + (a^3 - a^2)*q^199 + O(q^202),
    q^2 + 1/2*(-a^7 + a^6 - a^5 + a^4 + a^3 - a^2 + a - 1)*q^5 + (a^7 + a^5)*q^8
        + 1/2*(-a^7 + a^6 - a^5 + a^4 - a^3 + a^2 + a - 1)*q^17 + 1/2*(-a^7 + 
        a^6 - a^5 + a^4 - a^3 - a^2 - a - 1)*q^20 + (-a^6 + a^5 - a^4 + 
        a^3)*q^23 + (-a^6 - a^4 - a^2)*q^32 + (-a^4 + a^2)*q^38 + (-a^5 + a^4 - 
        a^3 + a^2 - a)*q^47 - a^5*q^50 + (a^7 - a^6 + a^5 - a^3 + a^2 - a + 
        1)*q^53 + (a^6 + a^3)*q^62 + 1/2*(a^7 + a^6 - a^5 + a^4 - a^3 + a^2 - a 
        - 1)*q^68 + 1/2*(-a^7 - a^6 - a^5 + a^4 - a^3 + a^2 + a + 1)*q^80 + (a^7
        - a^6 + a^5 - a^4 + a^3 - a^2 + a)*q^83 + (a^5 + a^3 - a^2 - 1)*q^92 + 
        (-a^7 + a^6)*q^95 - a^3*q^98 + (-a^7 + a^6 - a^5 - a^2 + a - 1)*q^107 + 
        (-a + 1)*q^113 + (-a^7 + a^4)*q^122 + 1/2*(a^7 - a^6 + a^5 - a^4 + a^3 -
        a^2 + a + 1)*q^125 + (-a^7 + a^5 + a^3 + a)*q^128 + (-a^2 + a - 1)*q^137
        + (a^7 + a^3)*q^152 + (a^7 - a + 1)*q^155 + (a^6 + a)*q^158 + (a^7 + a^4
        - a^3 + a^2 - a + 1)*q^167 - a^3*q^170 + (a^6 - a^5)*q^173 + (-a^6 + a^4
        + a^2 - a + 1)*q^188 + (-a^7 + a^6 - a^5 - 1)*q^197 + (a^4 + a^2)*q^200 
        + O(q^202)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
48
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
48
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
16
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
24
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
8
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
24
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
765
);
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(
8
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^3 - a^2 - a)*q^4 + (a^2 + a)*q^10 + (a^3 - a - 1)*q^16 + (a^2 - 
        1)*q^19 - a*q^25 + (a^3 - a^2)*q^31 + (-a^3 + 1)*q^34 + (-a^3 - a^2 + a 
        + 1)*q^40 + a^3*q^49 + (-a^3 - 1)*q^61 + a^2*q^64 + (a^2 + 2*a + 1)*q^76
        + (-a^2 + a)*q^79 + a^3*q^85 + (-a^2 - 1)*q^94 + (a^3 + a^2 - 1)*q^100 +
        (a^3 + 2*a^2 + a)*q^106 + (-a^2 - a)*q^109 - a^3*q^121 + (a^3 + 
        a^2)*q^124 + (-a^3 - a^2 - a - 1)*q^136 + (a + 1)*q^139 + (-a^2 - 
        a)*q^160 + (-a^3 - 2*a^2 - a)*q^166 - q^169 + (-a^3 + 1)*q^181 + (a^3 - 
        a^2 - a - 1)*q^190 + (a^2 + a + 1)*q^196 + (a^3 + a^2)*q^199 + O(q^202),
    q^2 + 1/2*(a^3 - a^2 + a - 1)*q^5 + (-a^3 - a)*q^8 + 1/2*(-a^3 + a^2 + a - 
        1)*q^17 + 1/2*(a^3 + a^2 + a + 1)*q^20 - q^32 + (a^2 - 1)*q^38 + (a^3 - 
        a^2 + 1)*q^47 - a*q^50 - q^53 + (a^3 - a^2)*q^62 + 1/2*(-a^3 - a^2 + a +
        1)*q^68 + 1/2*(-a^3 - a^2 + a + 1)*q^80 + q^83 + (-a + 1)*q^95 + 
        a^3*q^98 + (a^2 - a)*q^107 + (-a^3 + a^2)*q^113 + (-a^3 - 1)*q^122 + 
        1/2*(a^3 - a^2 + a + 1)*q^125 + (a^2 - a + 1)*q^137 + 2*a*q^152 + (-a^3 
        + a - 1)*q^155 + (-a^2 + a)*q^158 + (-a^3 - 1)*q^167 + a^3*q^170 + (-a^3
        - 1)*q^173 - a*q^188 + (a^2 - 1)*q^200 + O(q^202),
    q^3 + (-a^3 - a^2 - a)*q^12 + (a^3 - 1)*q^18 + a*q^27 + (a^2 + a)*q^30 - 
        a^3*q^45 + (a^3 - a - 1)*q^48 + (a^2 - 1)*q^57 + (a^3 + a^2 + a + 
        1)*q^72 - a*q^75 + (a^3 - a^2)*q^93 + (-a^3 + 1)*q^102 + (-a^3 - a^2 + 
        1)*q^108 + (-a^3 - a^2 + a + 1)*q^120 + a^3*q^147 - a*q^153 + (-a - 
        1)*q^162 + (-a^2 - a - 1)*q^180 + (-a^3 - 1)*q^183 + a^2*q^192 + 
        O(q^202),
    q^6 + 1/2*(a^3 - a^2 - a + 1)*q^9 + 1/2*(a^3 - a^2 + a - 1)*q^15 + (-a^3 - 
        a)*q^24 + 1/2*(a^3 + a^2 - a - 1)*q^36 + 1/2*(-a^3 + a^2 + a - 1)*q^51 +
        a*q^54 + 1/2*(a^3 + a^2 + a + 1)*q^60 + 1/2*(-a^3 - a^2 + a - 1)*q^81 - 
        a^3*q^90 - q^96 + (a^2 - 1)*q^114 + 1/2*(-a^3 + a^2 - a - 1)*q^135 + 
        (a^3 - a^2 + 1)*q^141 + 1/2*(a^3 + a^2 + a + 1)*q^144 - a*q^150 - q^159 
        + (-a^3 + a^2)*q^171 + (a^3 - a^2)*q^186 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
24
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^7 + q^10 + (-a + 1)*q^13 + q^16 + q^19 + a*q^22 + a*q^25 + (-a - 
        1)*q^31 - q^34 - a*q^37 + a*q^40 + (-a - 1)*q^43 - q^55 + a*q^58 + 
        a*q^64 - q^70 + q^73 - a*q^82 - a*q^85 - q^88 + (a - 1)*q^91 + q^94 - 
        q^106 - q^112 + (a - 1)*q^118 + (-a + 1)*q^130 - q^133 - a*q^136 + (a - 
        1)*q^139 - q^145 + a*q^151 - a*q^154 + (a + 1)*q^157 + a*q^163 - a*q^169
        - a*q^175 + (a + 1)*q^178 + q^187 + q^190 + (-a + 1)*q^199 + O(q^202),
    q^2 + a*q^5 + a*q^8 - q^11 - q^14 - a*q^17 + (-a + 1)*q^26 - q^29 - a*q^35 +
        q^38 + q^41 + a*q^47 + a*q^50 - a*q^53 - a*q^56 + (-a - 1)*q^59 + (-a - 
        1)*q^62 + (a + 1)*q^65 - a*q^74 + q^77 + a*q^80 + (-a - 1)*q^86 + (a - 
        1)*q^89 + a*q^95 + (a + 1)*q^104 + (-a + 1)*q^107 - q^110 + a*q^119 - 
        q^125 + a*q^128 + 2*a*q^131 - a*q^137 + (a - 1)*q^143 + q^146 + (-a + 
        1)*q^149 + a*q^152 + (-a + 1)*q^155 - a*q^170 - q^176 + (a - 1)*q^182 + 
        q^185 + (a + 1)*q^197 - q^200 + O(q^202)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
12
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^2*q^3 - a*q^4 + (a^2 - 1)*q^5 + a^2*q^7 + (a^2 - 1)*q^9 + a^3*q^12 + 
        (a^2 + a - 1)*q^13 + q^15 + a^2*q^16 - a^3*q^17 + q^19 + (-a^3 + a)*q^20
        + (-a^2 + 1)*q^21 + a*q^23 - a^2*q^25 + q^27 - a^3*q^28 + (a^3 - a^2 - 
        a)*q^29 - q^35 + (-a^3 + a)*q^36 + a^3*q^37 + (-a^3 + 1)*q^39 + (a^3 + 
        a^2 - a)*q^43 - a^2*q^45 + (a^3 + a^2 - a)*q^47 + (-a^2 + 1)*q^48 + (a^3
        - a)*q^51 + (-a^3 - a^2 + a)*q^52 + (a^3 + 1)*q^53 - a^2*q^57 + (a^2 - 
        1)*q^59 - a*q^60 - q^63 - a^3*q^64 + (a^3 - a^2 - a)*q^65 + (-a^2 + a + 
        1)*q^67 + (a^2 - 1)*q^68 - a^3*q^69 - q^73 + (a^2 - 1)*q^75 - a*q^76 + 
        (-a^3 - a^2 + a)*q^79 - q^80 - a^2*q^81 + (a^3 - a)*q^84 + a*q^85 + (a^2
        + a - 1)*q^87 - a^3*q^89 + (a^3 - 1)*q^91 - a^2*q^92 + (a^2 - 1)*q^95 + 
        a^3*q^100 - a^2*q^101 + a^2*q^105 - a*q^108 + (-a^3 + a)*q^111 + (a^2 - 
        1)*q^112 - a*q^113 + (a^3 - a)*q^115 + (a^3 + 1)*q^116 + (a^3 - a^2 - 
        a)*q^117 + (-a^3 + a)*q^119 - a*q^121 + q^125 + (-a^2 + a + 1)*q^129 + 
        a^2*q^133 + (a^2 - 1)*q^135 + (-a^3 - a^2 + a)*q^137 + a*q^140 + (-a^2 +
        a + 1)*q^141 - q^144 + (-a^3 + 1)*q^145 + (-a^2 + 1)*q^148 + a*q^149 + 
        (-a^3 + a)*q^151 + a*q^153 + (a^2 - a - 1)*q^156 + (-a^3 - a^2 + 
        a)*q^159 + a^3*q^161 - a^3*q^163 - a*q^167 + (a^3 - a)*q^169 + (a^2 - 
        1)*q^171 + (-a^3 + 1)*q^172 - a^2*q^173 + (-a^2 + 1)*q^175 + q^177 + 
        q^179 + a^3*q^180 + (a^3 - 1)*q^181 - a*q^185 + (-a^3 + 1)*q^188 + 
        a^2*q^189 + a^2*q^191 + (a^3 - a)*q^192 + (a^2 + a - 1)*q^195 + q^197 + 
        (a^3 - 1)*q^199 + (-a^3 - 1)*q^201 + O(q^202),
    q^2 + (a^3 - a^2 - a)*q^4 + (a^3 - a)*q^5 - a^2*q^6 + (a^3 + 1)*q^7 + a*q^10
        - q^11 + (a^2 + a - 1)*q^12 + a^2*q^13 - a^2*q^14 + a*q^15 + (a^3 + 
        1)*q^16 + (-a^2 - a + 1)*q^17 + (a^2 - 1)*q^18 - a^3*q^20 + (-a^3 - a^2 
        + a)*q^21 + (-a^3 + a^2 + a)*q^22 + (-a^3 - 1)*q^25 - a^3*q^30 - 
        a^2*q^32 + a^2*q^33 + a^3*q^34 + (a^2 - 1)*q^35 + (-a^3 + 1)*q^36 + (a^2
        + a - 1)*q^37 + q^38 + (-a^2 + 1)*q^39 + (a^2 - 1)*q^42 + a^3*q^43 - 
        a*q^44 - a^3*q^45 + a*q^46 + 2*a^3*q^47 + (-a^3 - a^2 + a)*q^48 + 
        a^2*q^50 + (a^3 - 1)*q^51 - a^3*q^52 + a*q^53 + q^54 - a*q^55 + (a^3 - 
        a^2 - a)*q^58 + (a^3 + a^2 - a)*q^59 + (a^3 - a)*q^60 + q^61 + (a^2 - a 
        - 1)*q^63 - q^65 + (-a^2 - a + 1)*q^66 + (-a^3 + a)*q^67 - a^3*q^70 + 
        a*q^71 + (a^2 - a - 1)*q^73 - a^3*q^74 + (a^3 + a^2 - a)*q^75 + (a^3 - 
        a^2 - a)*q^76 + a^2*q^77 - a^3*q^79 + (a^2 - 1)*q^80 - a^3*q^83 + (-a^3 
        + a)*q^85 + (-a^2 - a + 1)*q^89 + (a^3 - a)*q^90 + (a^2 - 1)*q^91 + 
        (-a^3 - 1)*q^92 + (-a^3 - a^2 + a)*q^94 + (a^3 - a)*q^95 + (a^2 - 
        1)*q^96 + (-a^2 + 1)*q^99 + (-a^3 - 1)*q^101 + (-a^3 + a)*q^102 + q^105 
        + (a^3 - a^2 - a)*q^108 - a*q^109 + (a^3 + 1)*q^110 + (-a^3 + 1)*q^111 -
        a^2*q^114 - q^115 + 2*a*q^116 - q^117 + (-a^2 + 1)*q^118 + (a^3 - a^2 - 
        a)*q^121 + (a^3 - a^2 - a)*q^122 + (-a^2 + 1)*q^125 + q^126 + (-a^2 + 
        1)*q^127 + (-a^3 + a)*q^129 + a^3*q^132 + (a^3 + 1)*q^133 + (a^3 - 
        a)*q^135 - 2*a^3*q^137 - a^3*q^138 + a^2*q^140 + (-2*a^3 + 2*a)*q^141 + 
        (-a^3 - 1)*q^142 + (a^2 - a - 1)*q^144 + (-a^2 + a + 1)*q^145 + q^146 + 
        (-a^3 + a^2 + a)*q^149 + (-a^2 + 1)*q^150 + (-a^3 + a^2 + a)*q^153 + 
        (-a^2 - a + 1)*q^154 + (a^3 - a)*q^156 - a^3*q^159 - a^3*q^160 + (a^2 + 
        a - 1)*q^161 - a^2*q^162 + a^3*q^165 + (a^3 + a^2 - a)*q^166 + (a^3 - 
        1)*q^169 + (a^2 - 1)*q^170 + (-a^2 + 1)*q^172 + (-a^3 - 1)*q^173 + (a^2 
        + a - 1)*q^174 + a^2*q^176 + (-a^2 + a + 1)*q^177 + a^3*q^178 + (-a^2 + 
        a + 1)*q^179 + a*q^180 + (a^2 - 1)*q^181 - a^2*q^183 + (a^3 - a)*q^185 -
        a^3*q^187 + (a^3 + 1)*q^189 + a*q^190 + a^2*q^195 + (a^3 - 1)*q^198 + 
        (a^2 - 1)*q^199 - a*q^201 + O(q^202)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^16 + a*q^19 - a*q^25 + q^34 + (-a - 1)*q^46 - q^55 + (a - 1)*q^61 - 
        q^64 + a*q^70 + (-a + 1)*q^79 + (-a + 1)*q^91 + a*q^94 + q^106 + (-a + 
        1)*q^130 + q^136 + a*q^145 + a*q^151 + q^154 - q^169 + (-a - 1)*q^184 + 
        (-a - 1)*q^199 + O(q^202),
    q^2 + q^8 - q^17 + (a + 1)*q^23 - a*q^35 + a*q^38 - a*q^47 - a*q^50 - q^53 +
        (a - 1)*q^65 - q^77 - q^110 + (-a - 1)*q^113 + (a - 1)*q^122 - q^128 - 
        a*q^137 + (a + 1)*q^143 + a*q^152 + (-a + 1)*q^158 + (-a + 1)*q^182 + 
        q^185 - a*q^200 + O(q^202),
    q^5 - a*q^11 - q^14 + (a + 1)*q^26 - q^29 + a*q^41 - q^56 - a*q^74 - q^80 + 
        (-a + 1)*q^86 + a*q^95 + (a + 1)*q^104 + q^119 - a*q^125 - a*q^146 + (-a
        - 1)*q^161 + q^170 + a*q^176 + (a - 1)*q^191 + O(q^202),
    q^7 + q^10 + (-a - 1)*q^13 - a*q^22 + a*q^37 + q^40 + (a - 1)*q^43 - q^58 + 
        a*q^73 + a*q^82 - q^85 - a*q^88 + (-a - 1)*q^103 - q^112 + (a + 1)*q^115
        + (-a + 1)*q^127 + a*q^133 - q^163 - a*q^175 + a*q^187 + a*q^190 + 
        O(q^202)
]
;
Bo:=
[
    q - q^4 + (a - 1)*q^10 - q^16 + a*q^25 + (-a - 1)*q^31 + (-a + 1)*q^34 + 
        (2*a + 2)*q^46 - a*q^49 + (-a + 1)*q^61 + q^64 + (a - 1)*q^79 - a*q^85 -
        2*a*q^94 - a*q^100 - 2*q^106 + (a - 1)*q^109 + 2*q^115 - a*q^121 + (a + 
        1)*q^124 + (a + 1)*q^139 + 2*a*q^151 + (-a + 1)*q^160 - 2*q^166 + q^169 
        + (-a + 1)*q^181 + a*q^196 + (-a - 1)*q^199 + O(q^202),
    q^2 + 1/2*(-a + 1)*q^5 + 1/2*(a - 1)*q^17 + 1/2*(a - 1)*q^20 + (-a - 1)*q^23
        - q^32 + a*q^47 + a*q^50 + q^53 + (-a - 1)*q^62 + 1/2*(-a + 1)*q^68 + 
        1/2*(a - 1)*q^80 + q^83 + (a + 1)*q^92 - a*q^98 + (-a + 1)*q^122 + 
        1/2*(a + 1)*q^125 - a*q^137 - q^155 + (a - 1)*q^158 - a*q^170 - a*q^188 
        + (a + 1)*q^197 + O(q^202),
    q^3 - q^12 + (-a + 1)*q^18 + a*q^27 + (a - 1)*q^30 - a*q^45 - q^48 + a*q^75 
        + (-a - 1)*q^93 + (-a + 1)*q^102 - a*q^108 + (2*a + 2)*q^138 - a*q^147 +
        a*q^153 + (a + 1)*q^162 + a*q^180 + (-a + 1)*q^183 + q^192 + O(q^202),
    q^6 + 1/2*(a - 1)*q^9 + 1/2*(-a + 1)*q^15 + 1/2*(-a + 1)*q^36 + 1/2*(a - 
        1)*q^51 + a*q^54 + 1/2*(a - 1)*q^60 + (-a - 1)*q^69 + 1/2*(-a - 1)*q^81 
        - a*q^90 - q^96 + 1/2*(a + 1)*q^135 + a*q^141 + 1/2*(-a + 1)*q^144 + 
        a*q^150 + q^159 + (-a - 1)*q^186 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^7 - a*q^10 + (a + 1)*q^13 + q^16 - q^19 + q^22 + a*q^25 + (-a - 
        1)*q^31 + q^34 - q^37 - q^40 + (-a + 1)*q^43 - q^55 - q^58 - a*q^64 + 
        q^70 + a*q^73 - q^82 - q^85 - a*q^88 + (a - 1)*q^91 - q^94 - q^106 + 
        a*q^112 + (-a - 1)*q^118 + (-a + 1)*q^130 - a*q^133 - a*q^136 + (-a + 
        1)*q^139 + q^145 + a*q^151 + a*q^154 + (-a + 1)*q^157 - q^163 + a*q^169 
        - q^175 + (a - 1)*q^178 - a*q^187 + a*q^190 + (a - 1)*q^199 + O(q^202),
    q^2 - q^5 - a*q^8 - a*q^11 + a*q^14 - a*q^17 + (a + 1)*q^26 + a*q^29 - 
        a*q^35 - q^38 + a*q^41 + a*q^47 + a*q^50 + a*q^53 + q^56 + (a - 1)*q^59 
        + (-a - 1)*q^62 + (-a - 1)*q^65 - q^74 + q^77 - q^80 + (-a + 1)*q^86 + 
        (a + 1)*q^89 + q^95 + (-a + 1)*q^104 + (-a + 1)*q^107 - q^110 + q^119 - 
        a*q^125 - a*q^128 - 2*q^131 - a*q^137 + (-a + 1)*q^143 + a*q^146 + (-a -
        1)*q^149 + a*q^152 + (a + 1)*q^155 - q^170 - a*q^176 + (a - 1)*q^182 + 
        q^185 + (a + 1)*q^197 + q^200 + O(q^202)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
12
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 + a)*q^3 + a*q^4 - a*q^5 + (-a^3 + a)*q^7 + (-a^2 + 1)*q^9 + q^12 
        + (a^2 - a - 1)*q^13 - q^15 + a^2*q^16 - q^17 - q^19 - a^2*q^20 + (-a^2 
        + 1)*q^21 + (a^2 - 1)*q^23 + a^2*q^25 - a^3*q^27 + q^28 + (-a^3 + a^2 + 
        a)*q^29 - q^35 + (-a^3 + a)*q^36 + q^37 + (a^3 - 1)*q^39 + (a^3 - a^2 - 
        a)*q^43 + (a^3 - a)*q^45 + (-a^3 + a^2 + a)*q^47 + a*q^48 + (a^3 - 
        a)*q^51 + (a^3 - a^2 - a)*q^52 + (a^3 - 1)*q^53 + (a^3 - a)*q^57 + (-a^2
        + 1)*q^59 - a*q^60 - a^3*q^63 + a^3*q^64 + (-a^3 + a^2 + a)*q^65 + (-a^2
        - a + 1)*q^67 - a*q^68 + a^3*q^69 - a^3*q^73 + a*q^75 - a*q^76 + (a^3 + 
        a^2 - a)*q^79 - a^3*q^80 - a^2*q^81 + (-a^3 + a)*q^84 + a*q^85 + (-a^2 +
        a + 1)*q^87 + a^3*q^89 + (a^3 - 1)*q^91 + (a^3 - a)*q^92 + a*q^95 + 
        a^3*q^100 - a^2*q^101 + (a^3 - a)*q^105 + (-a^2 + 1)*q^108 + (-a^3 + 
        a)*q^111 + a*q^112 + (-a^2 + 1)*q^113 + (-a^3 + a)*q^115 + (a^3 + 
        1)*q^116 + (a^3 + a^2 - a)*q^117 + (a^3 - a)*q^119 - a*q^121 - a^3*q^125
        + (a^2 - a - 1)*q^129 + (a^3 - a)*q^133 + (a^2 - 1)*q^135 + (a^3 - a^2 -
        a)*q^137 - a*q^140 + (-a^2 + a + 1)*q^141 + q^144 + (-a^3 - 1)*q^145 + 
        a*q^148 - a*q^149 + (-a^3 + a)*q^151 + (a^2 - 1)*q^153 + (a^2 - a - 
        1)*q^156 + (a^3 + a^2 - a)*q^159 + a^3*q^161 + q^163 + (a^2 - 1)*q^167 +
        (-a^3 + a)*q^169 + (a^2 - 1)*q^171 + (-a^3 - 1)*q^172 + (-a^3 + a)*q^173
        + a*q^175 - a^3*q^177 - q^179 - q^180 + (a^3 - 1)*q^181 - a*q^185 + (a^3
        + 1)*q^188 - a^2*q^189 + a^2*q^191 + a^2*q^192 + (-a^2 + a + 1)*q^195 - 
        a^3*q^197 + (-a^3 + 1)*q^199 + (-a^3 - 1)*q^201 + O(q^202),
    q^2 + (a^3 + a^2 - a)*q^4 - a^2*q^5 + (-a^3 + a)*q^6 + (a^3 + 1)*q^7 + (-a^2
        + 1)*q^10 - a^3*q^11 + (a^2 + a - 1)*q^12 - a^2*q^13 + (a^3 - a)*q^14 - 
        a*q^15 + (a^3 - 1)*q^16 + (-a^2 - a + 1)*q^17 + (-a^2 + 1)*q^18 + q^20 +
        (-a^3 + a^2 + a)*q^21 + (-a^3 + a^2 + a)*q^22 + (a^3 - 1)*q^25 - 
        a^3*q^30 - a^2*q^32 - a^2*q^33 + q^34 + (-a^2 + 1)*q^35 + (a^3 + 1)*q^36
        + (a^2 + a - 1)*q^37 - q^38 - a*q^39 + (a^2 - 1)*q^42 - a^3*q^43 + (a^2 
        - 1)*q^44 - q^45 + (a^2 - 1)*q^46 + 2*a^3*q^47 + (a^3 + a^2 - a)*q^48 - 
        a^2*q^50 + (-a^3 - 1)*q^51 - a^3*q^52 - a*q^53 - a^3*q^54 - a*q^55 + 
        (-a^3 + a^2 + a)*q^58 + (-a^3 + a^2 + a)*q^59 + (-a^3 + a)*q^60 + 
        a^3*q^61 + (-a^2 + a + 1)*q^63 + a^3*q^65 + (-a^2 + a + 1)*q^66 + (-a^3 
        + a)*q^67 + a^3*q^70 + (a^2 - 1)*q^71 + (-a^2 + a + 1)*q^73 - q^74 + 
        (a^3 + a^2 - a)*q^75 + (-a^3 - a^2 + a)*q^76 + a^2*q^77 - q^79 + a*q^80 
        + a^3*q^83 + (a^3 - a)*q^85 + (a^2 - a - 1)*q^89 - a^2*q^90 - a*q^91 + 
        (-a^3 - 1)*q^92 + (a^3 - a^2 - a)*q^94 + a^2*q^95 - a*q^96 - a*q^99 + 
        (-a^3 + 1)*q^101 + (-a^3 + a)*q^102 - a^3*q^105 + (-a^3 + a^2 + a)*q^108
        + (a^2 - 1)*q^109 + (-a^3 + 1)*q^110 + (a^3 + 1)*q^111 + (a^3 - a)*q^114
        + q^115 + (2*a^2 - 2)*q^116 - q^117 + (a^2 - 1)*q^118 + (-a^3 - a^2 + 
        a)*q^121 + (a^3 - a^2 - a)*q^122 + a*q^125 + a^3*q^126 + (-a^2 + 
        1)*q^127 - a^2*q^129 + a^3*q^132 + (-a^3 - 1)*q^133 + (a^3 - a)*q^135 - 
        2*a^3*q^137 + a^3*q^138 - a^2*q^140 + 2*a^2*q^141 + (-a^3 - 1)*q^142 + 
        (a^2 + a - 1)*q^144 + (-a^2 - a + 1)*q^145 + a^3*q^146 + (-a^3 - a^2 + 
        a)*q^149 - a*q^150 + (a^3 - a^2 - a)*q^153 + (a^2 - a - 1)*q^154 - 
        a^2*q^156 - q^159 - q^160 + (a^2 - a - 1)*q^161 - a^2*q^162 - q^165 + 
        (a^3 - a^2 - a)*q^166 + (a^3 + 1)*q^169 + (-a^2 + 1)*q^170 + (-a^2 + 
        1)*q^172 + (a^3 + 1)*q^173 + (-a^2 + a + 1)*q^174 + (a^3 - a)*q^176 + 
        (-a^2 + a + 1)*q^177 - a^3*q^178 + (-a^2 - a + 1)*q^179 + (-a^2 + 
        1)*q^180 - a*q^181 + a^2*q^183 + (-a^3 + a)*q^185 - a^3*q^187 + (-a^3 + 
        1)*q^189 + (a^2 - 1)*q^190 + a^2*q^195 + (-a^3 + 1)*q^198 + a*q^199 + 
        (-a^2 + 1)*q^201 + O(q^202)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
6
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 8*H.3
;
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(
765
);
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(
4
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (-a + 1)*q^13 - q^16 - a*q^25 + (a - 1)*q^43 + a*q^49 + (-a - 
        1)*q^52 + (a + 1)*q^55 + a*q^64 + (a + 1)*q^67 + a*q^85 - q^100 + (a - 
        1)*q^103 - 2*q^115 - q^121 + (a + 1)*q^127 + (-a + 1)*q^145 + (-a - 
        1)*q^157 - a*q^169 + (a + 1)*q^172 + (-a - 1)*q^187 + q^196 + O(q^202),
    q^5 + (a - 1)*q^11 - q^17 - a*q^20 - 2*a*q^23 + (a + 1)*q^29 + (a - 1)*q^41 
        + (a + 1)*q^44 + (-a + 1)*q^65 + a*q^68 + (-a + 1)*q^71 - q^80 - 2*q^92 
        + (-a + 1)*q^116 - a*q^125 + (a - 1)*q^131 + 2*a*q^143 + (a + 1)*q^164 -
        2*a*q^173 + (-a + 1)*q^176 + O(q^202)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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(
12
);
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
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:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + a*q^9 - q^15 + (a - 1)*q^16 - q^19 + (-a + 2)*q^21 + (-a + 
        1)*q^25 + (2*a - 1)*q^35 + (a - 1)*q^36 - 2*a*q^49 + (-a + 1)*q^51 + (-a
        + 2)*q^59 - a*q^60 - q^64 - q^69 - a*q^76 + (a - 1)*q^81 + (a + 1)*q^84 
        + a*q^85 + (-2*a + 1)*q^89 + q^100 + (-a - 1)*q^101 + (-a - 1)*q^111 + 
        (-a + 1)*q^115 + (-a - 1)*q^119 + a*q^121 - a*q^135 + (a - 2)*q^140 - 
        q^144 + (-a + 2)*q^149 + (a - 1)*q^151 + (2*a - 1)*q^161 + (a - 1)*q^169
        - a*q^171 + (2*a - 1)*q^179 + (-a + 2)*q^185 + (a + 1)*q^189 + (-a - 
        1)*q^191 + (-2*a + 2)*q^196 + O(q^202),
    q^3 + (a - 1)*q^5 + (-2*a + 1)*q^7 + a*q^12 - a*q^17 - q^20 + (a - 1)*q^23 +
        a*q^27 + (-a + 2)*q^28 + (a - 2)*q^37 - q^45 + (a - 1)*q^48 - q^57 + (-a
        + 2)*q^63 + (-a + 1)*q^68 + (-a + 2)*q^73 + (-a + 1)*q^75 - a*q^80 - 
        q^92 + (-a + 1)*q^95 + (2*a - 1)*q^105 + 2*a*q^107 + (a - 1)*q^108 + (a 
        + 1)*q^112 + (-a + 1)*q^113 + a*q^125 + (2*a - 1)*q^133 - 2*a*q^147 + 
        (-a - 1)*q^148 + (-a + 1)*q^153 + (a - 2)*q^163 + (a - 1)*q^167 + q^173 
        + (-a - 1)*q^175 + (-a + 2)*q^177 - a*q^180 - q^192 - a*q^197 + O(q^202)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
765
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 2*H.2 + 8*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
202
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^16 - q^19 + q^25 - q^34 - q^55 + q^64 + q^70 + q^94 + q^106 + q^136 - 
        q^145 - q^151 - q^154 - 2*q^166 + q^169 + O(q^202),
    q^2 - q^8 - q^17 + q^35 - q^38 + q^47 + q^50 + q^53 - q^77 - 2*q^83 - q^110 
        + q^128 + q^137 + q^152 + q^185 - q^200 + O(q^202),
    q^3 + q^27 - q^48 - q^57 - q^63 + q^75 - q^90 - q^102 - q^165 + q^192 + 
        q^198 + O(q^202),
    q^4 - 2*q^16 - 3*q^19 + 2*q^25 - q^34 + q^49 - q^55 + 2*q^64 + q^70 + 2*q^76
        + q^85 + q^94 - q^100 + q^106 - 2*q^115 + q^121 + q^136 - q^145 + q^151 
        - q^154 - 2*q^166 - q^196 + O(q^202),
    q^5 + q^17 - q^20 - 2*q^23 - q^68 + q^80 + 2*q^92 + 2*q^95 - 2*q^107 + 
        2*q^113 - q^125 - 2*q^167 - 2*q^173 - 2*q^197 + O(q^202),
    q^6 - q^24 - q^45 - q^51 + q^54 + q^99 + q^105 - q^114 - q^126 + q^141 + 
        q^150 + q^159 + O(q^202),
    q^7 + q^10 - q^22 + q^37 - q^40 - q^58 + q^73 - q^82 - q^85 + q^88 - 2*q^97 
        - q^112 - q^133 + 2*q^142 + q^163 + q^175 + q^187 - q^190 - 2*q^193 + 
        O(q^202),
    q^9 - q^21 - q^30 + q^66 + q^81 - q^111 + q^120 - q^144 - q^171 + q^174 - 
        q^189 + O(q^202),
    q^11 - q^14 + q^17 - q^20 - 2*q^23 + q^29 + q^41 + q^56 - q^68 - 2*q^71 - 
        q^74 + 2*q^80 + 2*q^92 + 3*q^95 - 2*q^107 + 2*q^113 + q^119 - 2*q^125 - 
        2*q^131 - q^146 - 2*q^167 + q^170 - 2*q^173 - q^176 + 2*q^194 - 2*q^197 
        + O(q^202),
    q^12 + 2*q^27 + q^45 - 2*q^48 - 3*q^57 - q^63 + 2*q^75 - q^90 - q^102 - 
        q^108 + q^147 + q^153 - q^165 - q^180 + 2*q^192 + q^198 + O(q^202),
    q^15 + q^21 + q^30 - q^36 + q^51 - q^60 - q^66 - 2*q^69 - 2*q^81 + q^111 - 
        q^120 - q^135 + 2*q^144 + 3*q^171 - q^174 + q^189 + O(q^202),
    q^18 + q^21 + q^30 + q^33 - q^36 - q^42 + q^51 - q^60 - q^66 - 2*q^69 - q^72
        - 2*q^81 + q^87 + q^111 - q^120 + q^123 - 2*q^135 + 2*q^144 - q^153 + 
        q^162 + q^168 + 3*q^171 - q^174 + q^189 + O(q^202)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
766
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
382
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
766
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
191*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^21 + q^23 + q^25 + q^27 + q^29 + q^36 + q^38 + q^42 - q^43 - q^48 - 
        q^49 - 2*q^51 - 2*q^54 + q^56 + q^57 - 2*q^58 - q^63 - q^64 + q^67 - 
        2*q^69 - q^71 + q^73 - 2*q^76 - 2*q^84 - q^87 - 2*q^93 + q^98 + q^102 - 
        2*q^103 + q^108 + q^112 - 2*q^114 + q^116 + q^119 + q^121 - q^126 + 
        q^129 + q^136 + q^138 - 2*q^139 + q^144 + q^147 - q^153 + q^161 + q^162 
        - 2*q^168 + q^169 + q^172 - q^173 + q^174 - 2*q^184 + q^186 + O(q^190),
    q^2 - q^21 - q^23 - q^28 + q^49 + q^50 + q^51 - q^56 + q^63 + q^64 - q^67 - 
        q^68 + q^69 - q^72 - q^73 + q^84 - q^86 + q^92 + q^93 + q^98 + q^103 - 
        q^112 - q^124 + q^139 - q^142 - q^144 - q^147 + q^152 - q^161 + q^168 - 
        q^171 - q^174 - q^189 + O(q^190),
    q^3 + q^27 + q^34 + q^36 - q^48 - q^49 - q^51 - q^54 + q^56 - q^58 + q^62 - 
        q^63 - q^69 + q^75 - q^76 - q^84 - q^93 + q^102 - q^103 + q^112 - q^114 
        - q^126 + q^129 + q^133 - q^139 + q^147 + q^149 - q^153 + q^161 - q^168 
        + q^172 - q^184 + q^186 + O(q^190),
    q^4 + q^27 + q^29 + q^36 - q^48 - q^49 - q^51 - q^54 + q^57 - q^58 - q^69 - 
        q^76 - q^84 - q^93 + q^98 + q^100 + q^102 - q^103 - q^114 + q^119 + 
        q^129 + q^138 - q^139 - q^153 - q^168 - q^184 + q^186 + O(q^190),
    q^6 + q^21 + q^23 - q^48 - q^49 - q^51 - q^58 - q^63 + q^67 + q^68 - q^69 + 
        q^72 + q^73 - q^76 - q^84 - q^93 - q^103 + q^112 - q^114 + q^124 - q^126
        - q^139 + q^147 + q^150 + q^161 - q^168 + q^171 - q^184 + q^189 + 
        O(q^190),
    q^7 - q^21 - q^23 - q^27 - q^28 - q^29 - q^38 - q^42 + q^48 + q^49 + q^51 + 
        q^54 - q^56 + q^58 + q^63 + q^64 - q^67 + 2*q^69 - q^72 - q^73 + q^76 + 
        q^84 + q^93 + q^101 + q^103 - q^112 + q^114 - q^119 + q^126 - q^129 + 
        q^137 + q^139 - q^144 - q^147 + q^152 - q^161 - q^162 + 2*q^168 - q^171 
        - q^174 + q^175 + q^184 - q^189 + O(q^190),
    q^8 + q^21 + q^23 + q^27 + q^29 + q^34 + q^36 + q^38 - q^46 - q^48 - 2*q^49 
        - 2*q^51 - q^54 + q^56 + q^57 - q^58 + q^62 - q^63 - q^64 + q^67 - 
        2*q^69 + q^72 + q^73 - 2*q^76 - 2*q^84 - 2*q^93 - q^96 + q^102 - 2*q^103
        + q^112 - q^114 + q^119 - q^126 + q^128 + q^129 - q^134 - 2*q^139 - 
        q^146 + q^147 - q^152 - q^153 + q^161 + q^162 - 2*q^168 + q^171 + q^172 
        + q^174 - q^184 + q^186 + q^189 + O(q^190),
    q^9 - q^21 - q^23 - q^27 - q^29 - q^36 - q^38 - q^42 + q^43 + q^49 + q^51 + 
        q^54 - q^56 - q^57 + q^58 + q^64 - q^67 + q^69 + q^71 - q^73 + q^76 + 
        q^81 + q^84 + q^87 + q^93 + q^96 + q^103 - q^112 + q^114 - q^119 + q^126
        - q^129 - q^136 + q^139 - q^144 - q^147 + q^152 - q^161 - q^162 + 
        2*q^168 - q^172 + q^173 - q^174 + q^184 + O(q^190),
    q^12 + q^21 + q^23 + q^27 + q^29 + q^34 + q^36 + q^38 + q^42 - q^48 - 2*q^49
        - 2*q^51 - 2*q^54 + q^56 + q^57 - 2*q^58 + q^62 - q^63 - q^64 + q^67 - 
        2*q^69 + q^73 - 2*q^76 - 2*q^84 - 2*q^93 - q^96 + q^102 - 2*q^103 + 
        q^108 + q^112 - 2*q^114 + q^119 - 2*q^126 + q^128 + q^129 + q^136 - 
        2*q^139 + q^144 + q^147 - q^152 - q^153 + q^161 + q^162 - 2*q^168 + 
        q^171 + q^172 + q^174 - q^184 + q^186 + q^189 + O(q^190),
    q^14 + q^21 + q^23 + q^27 + q^28 + q^29 + q^36 + q^38 + q^42 - q^48 - 2*q^49
        - 2*q^51 - 2*q^54 + q^56 + q^57 - 2*q^58 - q^63 - q^64 + q^67 - 2*q^69 +
        q^72 + q^73 - 2*q^76 - 2*q^84 - 2*q^93 - 2*q^103 + q^112 - q^114 + q^119
        - q^126 + q^129 + q^136 + q^138 - 2*q^139 + q^144 + q^147 - q^152 - 
        q^153 + q^161 + q^162 - 3*q^168 + q^171 + q^172 + q^174 - 2*q^184 + 
        q^189 + O(q^190),
    q^16 + q^21 + q^23 + q^38 + q^42 - q^48 - q^49 - q^51 - q^54 - q^58 - q^63 +
        q^67 - q^69 + q^73 - q^76 - q^84 - q^93 - q^103 + q^108 - q^114 + q^116 
        - q^126 - q^139 + q^144 + q^147 + q^161 + q^162 - q^168 + q^171 + q^174 
        - q^184 + q^189 + O(q^190),
    q^17 - q^21 - q^23 + q^31 + q^51 + q^64 - q^67 - q^68 - q^72 - q^73 + q^84 +
        q^92 + q^93 - q^112 - q^124 + q^133 + q^152 - q^161 + q^168 - q^171 + 
        O(q^190),
    q^18 + q^21 + q^23 + q^28 - q^48 - q^49 - q^51 - q^54 + q^56 - q^58 - q^63 -
        q^64 + q^67 + q^68 - q^69 + q^72 + q^73 - q^76 - 2*q^84 + q^86 - q^92 - 
        q^93 - q^103 + q^112 - q^114 + q^124 - q^126 - q^139 + q^142 + q^144 + 
        q^147 - q^152 + q^161 + q^162 - 2*q^168 + q^171 + q^174 - q^184 + q^189 
        + O(q^190),
    q^19 - q^23 - q^27 - q^29 - q^34 - q^36 - q^38 + q^46 + q^49 + q^51 + q^54 -
        q^56 - q^57 + q^58 - q^62 + q^64 - q^67 + q^69 - q^73 + q^76 + q^81 + 
        q^84 + q^87 + q^93 + q^96 - q^102 + q^103 - q^112 + q^113 + q^114 + 
        q^126 - q^128 - q^129 + q^134 + q^139 + q^146 - q^147 + q^152 - q^161 - 
        q^162 + q^168 - q^172 - q^174 - q^186 + O(q^190),
    q^24 + q^27 + q^29 + q^38 + q^42 - q^48 - q^49 - q^51 - q^54 + q^57 - q^58 -
        q^69 - q^76 + q^92 - q^93 - q^103 - q^114 + q^119 - q^126 + q^129 - 
        q^139 - q^153 + q^162 - q^168 + q^174 - q^184 + O(q^190),
    q^32 - q^34 - q^36 + q^42 + q^46 - q^56 - q^62 + q^76 + q^84 - q^102 - q^112
        + q^134 + q^146 - q^172 - q^186 + O(q^190)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
767
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
767
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
767
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
58
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
767
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
767
);
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(
174
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
767
);
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(
58
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
767
);
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(
348
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
767
);
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(
116
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
767
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
29*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 + q^4 - q^5 - q^7 - q^12 + q^15 + q^16 + 2*q^17 - q^19 - q^20 + q^21
        + q^27 - q^28 - q^29 + q^35 - q^41 - q^48 - 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 + q^84 - 
        2*q^85 + q^87 + q^95 - q^105 - q^107 + q^108 - q^112 - q^116 - 2*q^119 +
        q^121 + q^123 + q^125 - q^127 + q^133 - q^135 - q^137 + O(q^138),
    q^13 - q^39 + q^52 - q^65 - q^91 + O(q^138)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
767
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
767
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
4*H.1 + 29*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
767
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.1 + 29*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^12 + q^17 + q^25 - q^26 - q^36 - q^48 + q^49 - q^53 - q^62 + q^79 - 
        q^81 - 2*q^87 - q^88 + q^94 - q^107 - q^116 - q^118 + q^121 + q^134 + 
        O(q^138),
    q^2 + q^18 - q^24 - q^31 - q^33 + q^50 - q^54 - q^58 - q^93 + q^97 + q^98 + 
        q^111 + q^117 + O(q^138),
    q^3 - q^17 - q^22 + q^27 - q^36 - q^51 + q^64 + q^74 + q^75 + q^78 - q^79 - 
        q^104 + q^108 + q^116 + O(q^138),
    q^4 - q^12 - q^27 - q^29 + q^36 + q^51 + q^53 - q^74 - q^78 + q^81 + q^87 + 
        q^100 - q^108 - q^121 - q^127 + O(q^138),
    q^6 - q^13 - 2*q^18 + q^24 + q^33 + q^34 - q^44 + q^47 - q^52 + q^54 - q^59 
        + q^67 - q^72 - q^96 + q^102 + q^109 - 2*q^111 - q^117 + q^128 + q^132 -
        q^136 + O(q^138),
    q^8 - q^13 - 2*q^18 + q^24 + q^31 + 2*q^33 + q^34 - q^37 - q^39 - q^44 + 
        q^47 - q^52 - q^59 + q^67 - q^83 - q^89 + q^93 - q^96 + q^99 + 2*q^102 +
        q^106 + q^109 - 2*q^111 - q^117 + q^128 - 2*q^136 + O(q^138),
    q^9 - q^12 - q^17 + q^26 + q^36 - q^51 - q^66 - q^79 + q^81 + q^87 + q^88 - 
        q^94 + q^107 - q^108 + q^118 - q^134 + O(q^138),
    q^11 - q^13 - q^18 + q^24 + q^34 - q^44 - q^59 + q^73 + q^93 - q^96 + q^99 +
        q^102 - 2*q^111 - q^117 + q^132 - q^136 + O(q^138),
    q^16 - q^17 - q^22 + q^27 + q^29 - q^36 - q^51 + q^62 + q^64 - q^68 + q^74 +
        q^78 - q^79 - q^88 - q^94 - q^104 + q^108 + q^116 + q^121 + q^127 - 
        q^134 + O(q^138),
    q^32 - q^33 - q^34 + q^37 + q^39 - q^44 - q^47 + q^54 + q^58 - q^67 - q^72 +
        q^83 + q^89 - q^102 - q^109 + q^124 + q^132 + O(q^138)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
768
);
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:=
[
    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 + O(q^210),
    q^3 + q^27 - 2*q^51 - q^75 - 2*q^123 + q^147 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
768
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
64
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
768
);
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(
32
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
768
);
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(
16
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
768
);
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(
8
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
768
);
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(
4
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
768
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 32*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
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 + O(q^210),
    q^2 - q^18 - 2*q^34 + q^50 + 2*q^82 + q^98 - 2*q^146 + q^162 - 2*q^178 - 
        2*q^194 + O(q^210),
    q^3 - q^27 - 2*q^51 + q^75 + 2*q^123 + q^147 + O(q^210),
    q^6 - q^54 - 2*q^102 + q^150 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
768
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^25 - q^33 - q^49 - q^57 + q^81 - q^121 - q^129 - q^169 + q^177 + q^201
        + O(q^210),
    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 + O(q^210),
    q^9 + q^33 - q^57 - 2*q^73 - 2*q^97 + 2*q^121 - q^129 - q^177 + 2*q^193 + 
        q^201 + O(q^210),
    q^11 + q^19 - q^27 + q^43 - q^59 - q^67 - q^83 - q^99 - q^107 + q^131 - 
        q^139 + q^163 + q^171 + q^179 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
768
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
64
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
768
);
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(
32
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
768
);
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(
16
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
768
);
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(
8
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
768
);
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(
4
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^9 + a*q^25 - q^49 - q^81 + a*q^121 - a*q^169 - 2*q^193 + 2*a*q^201 +
        O(q^210),
    q^3 - a*q^27 - 2*q^67 + a*q^75 + 2*a*q^91 - 2*a*q^139 - q^147 + O(q^210),
    q^7 + a*q^31 - q^39 - a*q^63 - a*q^79 - q^103 + a*q^111 - a*q^127 - q^151 + 
        a*q^175 + q^183 + q^199 + O(q^210),
    q^13 + a*q^21 - a*q^37 - q^61 - q^93 - q^109 - a*q^117 + q^157 + a*q^181 + 
        q^189 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
768
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
32*H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^25 - q^33 - q^49 + q^57 + q^81 + q^121 - q^129 + q^169 + q^177 - q^201
        + O(q^210),
    q^2 - q^50 - q^66 - q^98 + q^114 + q^162 + O(q^210),
    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 + O(q^210),
    q^4 - q^36 - q^100 - q^196 + O(q^210),
    q^6 - 2*q^38 - q^54 + 2*q^86 + 2*q^134 - q^150 + O(q^210),
    q^9 - q^33 - q^57 - 2*q^73 + 2*q^97 + 2*q^121 + q^129 + q^177 - 2*q^193 + 
        q^201 + O(q^210),
    q^11 - q^19 - q^27 + q^43 - q^59 + q^67 + q^83 + q^99 - q^107 - q^131 - 
        q^139 - q^163 + q^171 - q^179 + O(q^210),
    q^12 - 2*q^76 - q^108 + 2*q^172 + O(q^210),
    q^18 - q^66 - q^114 - 2*q^146 + 2*q^194 + O(q^210),
    q^22 - q^38 - q^54 + q^86 - q^118 + q^134 + q^166 + q^198 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
769
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
768
);
qprec:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
769
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
256
);
qprec:=
128
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
770
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
770
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*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(
770
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
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(
10
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
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(
30
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^2*q^4 + a^2*q^7 + (a - 1)*q^8 - a*q^9 + (a^3 - a^2 + a - 1)*q^11 + 
        (a^2 - a)*q^16 + (-a^3 + a^2)*q^23 - a^3*q^25 + (-a^3 + a^2 - a + 
        1)*q^28 + (-a^3 - a)*q^29 + q^32 + a^3*q^36 + (a^3 - a^2 + a)*q^37 + 
        (a^3 - a^2 - 1)*q^43 + a*q^44 + (a^3 - a^2 + a - 1)*q^49 + (a^2 + 
        1)*q^53 + (a^3 - a^2)*q^56 - a^3*q^63 + (a^3 - a^2 - 1)*q^67 + (-a^3 + 
        1)*q^71 + (-a^2 + a)*q^72 - a*q^77 + (a^2 + 1)*q^79 + a^2*q^81 + (-a^3 +
        a^2 - a)*q^88 + (-a^3 + a^2 - a)*q^92 + q^99 - q^100 + (-a + 1)*q^107 + 
        (-a^3 + a^2)*q^109 + (-a^2 + a - 1)*q^112 + (a^3 + a - 1)*q^113 + (a^3 -
        1)*q^116 - a^3*q^121 + (a^2 - a)*q^127 - a^2*q^128 + (a^2 - a)*q^137 + 
        (-a^3 + a^2)*q^144 + (-a^2 + a)*q^148 + (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 + (a^3 + a)*q^172 + q^175 + (-a + 1)*q^176 + (-a + 1)*q^179 + 
        (a^3 - a + 1)*q^184 + (-a^3 - a)*q^191 + (-a^3 + 1)*q^193 + a*q^196 + 
        (-a^3 + a^2)*q^197 + (a^2 - a + 1)*q^200 + (-a^3 + 1)*q^203 + (-a^2 + a 
        - 1)*q^207 + (-a^2 + a - 1)*q^211 + (-a^3 - a + 1)*q^212 + a^2*q^224 + 
        (a^3 - a^2 + a - 1)*q^225 + q^232 - 2*a*q^233 + (a^3 + a - 1)*q^239 - 
        q^252 + (a^2 - a)*q^253 + (a - 1)*q^256 + (a^2 - a)*q^259 + (a^3 + a - 
        1)*q^261 + (a^3 - a^2 - 1)*q^263 + (a^3 + a)*q^268 + O(q^274),
    q^2 + (-a^2 + a - 1)*q^4 + (-a^3 + a^2 - a)*q^8 + a^2*q^14 + a^3*q^16 - 
        a*q^18 + (a^3 - a^2 + a - 1)*q^22 + (-a + 1)*q^28 + (a^3 - a^2 + a)*q^36
        + (-a^3 + a^2)*q^44 + (-a^3 + a^2)*q^46 - a^3*q^50 + (-a^2 + a)*q^56 + 
        (-a^3 - a)*q^58 + q^64 + (a - 1)*q^72 + (a^3 - a^2 + a)*q^74 + (a^3 - 
        a^2 - 1)*q^86 + (a^2 - a + 1)*q^88 + (a^2 - 2*a + 1)*q^92 + (a^3 - a^2 +
        a - 1)*q^98 + (a^2 - a)*q^100 + (a^2 + 1)*q^106 - q^112 + a^3*q^116 - 
        a^3*q^126 + (-a^2 + a - 1)*q^128 + (a^3 - a^2 - 1)*q^134 + (-a^3 + 
        1)*q^142 + (-a^3 + a^2 - a + 1)*q^144 + (-a^3 + a - 1)*q^148 - a*q^154 +
        (a^2 + 1)*q^158 + a^2*q^162 + a*q^172 - a^2*q^176 + (a^3 - 2*a^2 + 
        a)*q^184 + (-a^3 + a^2)*q^196 + q^198 + (a^3 - a^2)*q^200 - a^2*q^212 + 
        (-a + 1)*q^214 + (-a^3 + a^2)*q^218 + (a^3 + a - 1)*q^226 + (a^3 - a^2 +
        a - 1)*q^232 - a^3*q^242 + (a^2 - a)*q^252 + (a^2 - a)*q^254 + (-a^3 + 
        a^2 - a)*q^256 + a*q^268 + O(q^274),
    q^5 - a^2*q^20 + a^2*q^35 + (a - 1)*q^40 - a*q^45 + (a^3 - a^2 + a - 1)*q^55
        + (a^2 - a)*q^80 + (-a^3 + a^2)*q^115 - a^3*q^125 + (-a^3 + a^2 - a + 
        1)*q^140 + (-a^3 - a)*q^145 + q^160 + a^3*q^180 + (a^3 - a^2 + a)*q^185 
        + (a^3 - a^2 - 1)*q^215 + a*q^220 + (a^3 - a^2 + a - 1)*q^245 + (a^2 + 
        1)*q^265 + O(q^274),
    q^10 + (-a^2 + a - 1)*q^20 + (-a^3 + a^2 - a)*q^40 + a^2*q^70 + a^3*q^80 - 
        a*q^90 + (a^3 - a^2 + a - 1)*q^110 + (-a + 1)*q^140 + (a^3 - a^2 + 
        a)*q^180 + (-a^3 + a^2)*q^220 + (-a^3 + a^2)*q^230 - a^3*q^250 + 
        O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
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(
10
);
qprec:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^2*q^4 + (a^2 - a + 1)*q^9 - a*q^11 + (a^3 - a^2 + a)*q^15 + (a^3 - a^2
        + a - 1)*q^16 + (-a^3 + a^2)*q^21 - a^3*q^25 + (-a^3 - a)*q^29 - a*q^35 
        + (a - 1)*q^36 + (a^3 - 2*a^2 + 2*a - 1)*q^39 - a^3*q^44 + (a^3 - a^2 + 
        a - 1)*q^49 - a^2*q^51 + (a^2 - a)*q^60 - a*q^64 + (-a^3 + a^2)*q^65 + 
        (a^2 - a)*q^71 + (-a^2 + a - 1)*q^79 + (a^3 - a^2 + a)*q^84 + (a^3 + a -
        1)*q^85 + (-a + 1)*q^91 + (-a^3 + a^2 - a)*q^99 + q^100 + 2*q^109 + 
        (-a^3 + 1)*q^116 + (a^2 + 1)*q^119 + a^2*q^121 + a^3*q^135 - a^3*q^140 +
        a*q^141 + (a^3 - a^2)*q^144 + (a^2 - a)*q^149 + (a^3 + a - 1)*q^151 + 
        (a^2 - 2*a + 1)*q^156 + (-a + 1)*q^165 + (-a^3 + a^2 - a)*q^169 + q^176 
        + (a^3 + a - 1)*q^179 + a*q^189 + (a^3 - a^2 + a)*q^191 - a*q^196 + 
        (-a^3 + a^2 - a + 1)*q^204 + (-a^2 + a - 1)*q^211 - q^219 - q^221 + 
        (-a^2 + a)*q^225 + (-a^2 + a - 1)*q^231 + (-a^3 - a)*q^235 + (-a + 
        1)*q^239 + (-a^2 + a - 1)*q^240 + (-a^3 + 2*a^2 - a)*q^249 - a^3*q^256 +
        (a^3 - a^2 + a)*q^260 - a^3*q^261 + O(q^274),
    q^2 + a^2*q^8 + (a^2 - a + 1)*q^18 - a*q^22 + (a^3 - a^2 + a)*q^30 + (a^3 - 
        a^2 + a - 1)*q^32 + (-a^3 + a^2)*q^42 - a^3*q^50 + (-a^3 - a)*q^58 - 
        a*q^70 + (a - 1)*q^72 + (a^3 - 2*a^2 + 2*a - 1)*q^78 - a^3*q^88 + (a^3 -
        a^2 + a - 1)*q^98 - a^2*q^102 + (a^2 - a)*q^120 - a*q^128 + (-a^3 + 
        a^2)*q^130 + (a^2 - a)*q^142 + (-a^2 + a - 1)*q^158 + (a^3 - a^2 + 
        a)*q^168 + (a^3 + a - 1)*q^170 + (-a + 1)*q^182 + (-a^3 + a^2 - a)*q^198
        + q^200 + 2*q^218 + (-a^3 + 1)*q^232 + (a^2 + 1)*q^238 + a^2*q^242 + 
        a^3*q^270 + O(q^274),
    q^3 + (-a^2 - 1)*q^5 + (a^3 - 1)*q^7 + a^2*q^12 - a^3*q^13 + (a^2 + a + 
        1)*q^17 + (-a^3 - a + 1)*q^20 + (a^2 + 1)*q^27 + (-a^2 - 1)*q^28 - 
        a*q^33 - a^2*q^45 + (a^3 - a^2 - 2)*q^47 + (a^3 - a^2 + a - 1)*q^48 + 
        q^52 + (a^3 + a)*q^55 - q^63 + (2*a^3 + a - 1)*q^68 + (-2*a^3 + a^2 - a 
        + 2)*q^73 - a^3*q^75 + (-a^3 + a^2 + 1)*q^77 + (-a^3 + a^2 + 1)*q^80 - 
        a*q^83 + (-a^3 - a)*q^87 + (2*a^3 + a - 1)*q^97 + (-2*a^3 + a^2 - a + 
        2)*q^103 - a*q^105 + (a^3 + a - 1)*q^108 + (-a^3 - a + 1)*q^112 + (-a^2 
        + a)*q^117 + (a^3 - 1)*q^125 - a^3*q^132 + (a^3 - a^2 + a - 1)*q^143 + 
        (2*a^3 + a - 1)*q^145 + (a^3 - a^2 + a - 1)*q^147 + (a^3 + a)*q^153 + 
        (a^3 - a^2 - 2)*q^157 + (-2*a^3 - 2*a + 2)*q^167 + q^173 + (a^3 + 
        a)*q^175 + (-a^3 + a^2 - a + 1)*q^180 + (-a^3 - a^2 - a)*q^187 + (-a^3 -
        a^2 - a)*q^188 - a*q^192 + (-a^3 + a^2)*q^195 + (a^2 + a + 1)*q^203 + 
        a^2*q^208 + (a^2 - a)*q^213 + (a^3 - 1)*q^220 + (-2*a^3 + 2*a^2 + 
        2)*q^223 + (a^3 - a^2 + a - 1)*q^227 + (-a^2 + a - 1)*q^237 + (a^3 + 
        a)*q^243 + (-a^3 + a^2 + 1)*q^245 - a^2*q^252 + (a^3 + a - 1)*q^255 + 
        (-2*a^3 + a^2 - a + 2)*q^257 + (a^3 - a^2 - 2)*q^272 + (-a + 1)*q^273 + 
        O(q^274),
    q^6 + (-a^2 - 1)*q^10 + (a^3 - 1)*q^14 + a^2*q^24 - a^3*q^26 + (a^2 + a + 
        1)*q^34 + (-a^3 - a + 1)*q^40 + (a^2 + 1)*q^54 + (-a^2 - 1)*q^56 - 
        a*q^66 - a^2*q^90 + (a^3 - a^2 - 2)*q^94 + (a^3 - a^2 + a - 1)*q^96 + 
        q^104 + (a^3 + a)*q^110 - q^126 + (2*a^3 + a - 1)*q^136 + (-2*a^3 + a^2 
        - a + 2)*q^146 - a^3*q^150 + (-a^3 + a^2 + 1)*q^154 + (-a^3 + a^2 + 
        1)*q^160 - a*q^166 + (-a^3 - a)*q^174 + (2*a^3 + a - 1)*q^194 + (-2*a^3 
        + a^2 - a + 2)*q^206 - a*q^210 + (a^3 + a - 1)*q^216 + (-a^3 - a + 
        1)*q^224 + (-a^2 + a)*q^234 + (a^3 - 1)*q^250 - a^3*q^264 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*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(
770
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 5*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
274
;
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 - q^220 + q^225 
        + 2*q^229 - 2*q^236 + q^245 + 2*q^251 + q^256 + 2*q^269 + O(q^274),
    q^2 - q^8 - q^10 + q^18 - q^22 + q^32 + q^40 + q^50 - 2*q^62 - q^72 + q^88 -
        q^90 - q^98 + q^110 + 2*q^118 - q^128 + 2*q^142 - q^160 + q^162 - 
        2*q^178 - q^198 - q^200 + q^242 + 2*q^248 - q^250 + O(q^274),
    q^7 - q^28 - q^35 + q^63 - q^77 + q^112 + q^140 + q^175 - 2*q^217 - q^252 + 
        O(q^274),
    q^14 - q^56 - q^70 + q^126 - q^154 + q^224 + O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^9 - a*q^16 - a*q^20 - a*q^25 + (a - 1)*q^26 + (a - 1)*q^34 + 
        q^44 + q^55 + q^56 + a*q^59 + q^70 - q^71 - a*q^81 + q^86 - a*q^91 + (a 
        - 1)*q^104 - a*q^119 + (a - 1)*q^121 - q^124 + (a - 1)*q^130 - a*q^136 +
        q^144 - a*q^146 + (a - 1)*q^154 - q^155 + q^166 + q^169 - a*q^170 + 
        q^180 + (a - 1)*q^196 + a*q^199 + q^214 + a*q^221 + q^225 + (-a + 
        1)*q^229 - a*q^234 + (a - 1)*q^245 + 2*q^251 - a*q^254 + (a - 1)*q^256 -
        2*a*q^269 + O(q^274),
    q^2 - a*q^13 - a*q^17 + (a - 1)*q^18 + q^28 + q^32 + (a - 1)*q^35 + (a - 
        1)*q^40 + (a - 1)*q^43 - a*q^50 + (a - 1)*q^52 - a*q^65 - a*q^68 + q^73 
        - a*q^77 + (a - 1)*q^83 + q^85 - a*q^88 + (a - 1)*q^107 + q^110 + q^117 
        + a*q^118 + q^127 - q^142 + q^143 + q^153 - a*q^162 + q^167 - a*q^172 - 
        a*q^173 - a*q^182 + (a - 1)*q^187 - a*q^193 + (a - 1)*q^197 - a*q^208 + 
        q^215 + a*q^217 + (a - 1)*q^227 + (a - 1)*q^233 - a*q^238 + (a - 
        1)*q^242 + a*q^248 + (a - 1)*q^252 + q^260 + q^263 - a*q^272 + O(q^274),
    q^4 + (-a + 1)*q^16 + q^20 - a*q^26 - a*q^34 + (a - 1)*q^36 + (a - 1)*q^44 +
        a*q^56 + (a - 1)*q^70 - q^80 + (a - 1)*q^86 - a*q^100 + (a - 2)*q^104 + 
        (-a + 1)*q^124 - a*q^130 + a*q^144 + q^146 - a*q^154 + (a - 1)*q^166 + 
        q^170 + (-a + 1)*q^176 + (a - 1)*q^180 - a*q^196 + (a - 1)*q^214 + q^220
        + (-a + 1)*q^224 + q^234 + a*q^236 + q^254 - a*q^256 + O(q^274),
    q^5 + (a - 1)*q^11 + q^16 + a*q^20 + (-a + 1)*q^31 - q^44 + (a - 1)*q^45 - 
        a*q^49 - q^56 - a*q^64 + (-a + 1)*q^80 - q^89 + q^91 - a*q^99 - a*q^104 
        + (a - 1)*q^119 + q^124 - a*q^125 + (a - 1)*q^136 + (a - 1)*q^144 + 
        a*q^169 + a*q^176 + (-a + 1)*q^179 - q^180 + a*q^181 - q^191 + (-a + 
        1)*q^196 + (-a + 1)*q^221 + q^224 + (-a + 1)*q^256 + O(q^274),
    q^7 + (-2*a + 1)*q^17 + a*q^28 + (2*a - 1)*q^32 - q^35 + (a - 2)*q^40 + (-a 
        - 1)*q^43 + (a - 1)*q^63 + (-a + 2)*q^65 + (-a + 2)*q^68 + (2*a - 
        1)*q^73 + (-a + 1)*q^77 + (-a - 1)*q^83 + (a + 1)*q^85 + (-2*a + 1)*q^88
        + (a - 2)*q^107 - a*q^112 + (a + 1)*q^127 - a*q^140 + (2*a - 1)*q^143 + 
        (a + 1)*q^153 + (a + 1)*q^167 + (-2*a + 1)*q^172 + (-a + 2)*q^173 - 
        a*q^175 + (a - 2)*q^187 + (-2*a + 1)*q^193 + (-a - 1)*q^197 + (-a + 
        2)*q^208 + (a - 1)*q^217 + (a - 2)*q^233 + (2*a - 1)*q^248 - q^252 + (a 
        + 1)*q^260 + (2*a - 1)*q^263 + O(q^274),
    q^8 - q^13 - q^17 + (-a + 1)*q^32 + a*q^35 + q^40 + a*q^43 - a*q^52 - q^65 -
        a*q^68 + (a - 1)*q^72 + (-a + 1)*q^73 - q^77 + a*q^83 + (-a + 1)*q^85 + 
        (a - 1)*q^88 + a*q^107 + a*q^112 + (-a + 1)*q^117 + (-a + 1)*q^127 + (a 
        - 1)*q^140 + (-a + 1)*q^143 + (-a + 1)*q^153 - q^160 + (-a + 1)*q^167 + 
        (a - 1)*q^172 - q^173 + a*q^187 - q^193 + a*q^197 - a*q^200 + (a - 
        2)*q^208 + (-a + 1)*q^215 + q^217 + a*q^227 + a*q^233 + (-a + 1)*q^248 -
        a*q^260 + (-a + 1)*q^263 + O(q^274),
    q^10 + (-a + 1)*q^13 + (-a + 1)*q^17 + (a - 1)*q^22 + (a - 1)*q^28 + (a - 
        1)*q^32 - q^35 - q^40 - q^43 + (-a + 1)*q^62 + (-a + 1)*q^65 + (a + 
        1)*q^68 + a*q^73 + (-a + 1)*q^77 - q^83 + a*q^85 + (-a + 1)*q^88 + (a - 
        1)*q^90 - a*q^98 - q^107 - a*q^112 + a*q^117 + a*q^127 - a*q^128 + (-a +
        1)*q^140 + a*q^143 + a*q^153 + (-a + 1)*q^160 + a*q^167 + (-a + 2)*q^172
        + (-a + 1)*q^173 - q^178 + q^182 - q^187 + (-a + 1)*q^193 - q^197 - 
        a*q^198 + q^208 + a*q^215 + (a - 1)*q^217 - q^227 - q^233 + (a - 
        1)*q^238 + (a - 1)*q^248 - a*q^250 - a*q^252 + (2*a - 1)*q^260 + a*q^263
        + (a - 1)*q^272 + O(q^274),
    q^14 + (a + 1)*q^16 + (2*a - 1)*q^20 + (-2*a + 1)*q^34 + (-a - 1)*q^44 - 
        q^56 - q^70 + (-a - 1)*q^86 + (-2*a + 1)*q^104 + (a + 1)*q^124 + (a - 
        1)*q^126 + (-a + 2)*q^130 + (a - 2)*q^144 + (2*a - 1)*q^146 + (-a + 
        1)*q^154 + (-a - 1)*q^166 + (a + 1)*q^170 + (-a - 1)*q^180 + (-a + 
        2)*q^196 + (a - 2)*q^214 + q^224 + (a + 1)*q^254 + (-a + 2)*q^256 + 
        O(q^274)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
770
);
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:=
274
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
771
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
771
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
256
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
771
);
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(
128
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
771
);
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(
64
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
771
);
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(
32
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
771
);
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(
16
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
771
);
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(
8
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
771
);
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(
4
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*(-a - 1)*q^3 + 1/2*(a + 1)*q^6 + (a + 1)*q^7 + a*q^13 - q^16 - 
        a*q^18 - a*q^21 + q^22 + 1/2*(a + 1)*q^24 - a*q^25 + 1/2*(a - 1)*q^27 - 
        a*q^31 + 1/2*(-a - 1)*q^33 + q^34 + (-a + 1)*q^37 + 1/2*(-a + 1)*q^39 + 
        a*q^42 + (a - 1)*q^43 - q^46 + 1/2*(a + 1)*q^48 + a*q^49 + 1/2*(-a - 
        1)*q^51 + 1/2*(a - 1)*q^54 - a*q^58 - q^64 + 1/2*(-a - 1)*q^66 - 2*q^67 
        + 1/2*(a + 1)*q^69 - a*q^72 - q^73 + 1/2*(a - 1)*q^75 + 1/2*(a - 1)*q^78
        - a*q^79 + q^81 + (a - 1)*q^82 + 1/2*(a - 1)*q^87 + q^88 + (a - 1)*q^91 
        + 1/2*(a - 1)*q^93 + (a + 1)*q^94 + (-a + 1)*q^97 + a*q^99 + 1/2*(-a - 
        1)*q^102 + (a - 1)*q^109 - q^111 + (-a - 1)*q^112 - a*q^118 + q^123 + 
        (-a + 1)*q^126 + q^129 + q^136 + 1/2*(a + 1)*q^138 + a*q^139 - a*q^141 +
        (-a + 1)*q^142 + 1/2*(-a + 1)*q^147 + 1/2*(-a + 1)*q^150 + (-a - 
        1)*q^151 + a*q^153 + (a + 1)*q^154 + a*q^168 + O(q^170),
    q^2 + 1/2*(-a - 1)*q^3 + 1/2*(-a - 1)*q^6 + q^8 + a*q^9 - q^11 + (a + 
        1)*q^14 - q^17 - a*q^21 + q^23 + 1/2*(-a - 1)*q^24 + a*q^26 + 1/2*(-a + 
        1)*q^27 + a*q^29 + 1/2*(a + 1)*q^33 + 1/2*(-a + 1)*q^39 + (-a + 1)*q^41 
        - a*q^42 + (-a - 1)*q^47 + 1/2*(a + 1)*q^48 - a*q^50 + 1/2*(a + 1)*q^51 
        + 1/2*(a - 1)*q^54 + (a + 1)*q^56 + a*q^59 - a*q^62 + (a - 1)*q^63 + 
        1/2*(-a - 1)*q^66 + 1/2*(-a - 1)*q^69 + (a - 1)*q^71 + (-a + 1)*q^74 + 
        1/2*(a - 1)*q^75 + (-a - 1)*q^77 + 1/2*(-a + 1)*q^78 + (a - 1)*q^86 + 
        1/2*(-a + 1)*q^87 + a*q^89 + 1/2*(a - 1)*q^93 + a*q^98 + 1/2*(-a - 
        1)*q^102 + a*q^104 - q^111 - q^117 + (-a - 1)*q^119 - q^123 - q^128 + 
        q^129 + (-a + 1)*q^131 - 2*q^134 + q^137 + 1/2*(a + 1)*q^138 + a*q^141 -
        a*q^143 - a*q^144 - q^146 + 1/2*(-a + 1)*q^147 + (-a + 1)*q^149 + 1/2*(a
        - 1)*q^150 - a*q^158 + (a + 1)*q^161 + q^162 - a*q^168 + O(q^170)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
771
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 128*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^15 + q^16 - q^31 + q^36 + q^49 - q^52 - q^60 - q^61
        + q^64 - q^67 - q^73 - q^79 + q^81 - q^117 + q^121 - q^123 - q^124 - 
        q^135 - q^139 - q^141 + q^144 - q^157 - q^159 + O(q^170),
    q^3 - q^5 + q^12 - q^20 + q^27 - q^39 - q^41 - q^45 - q^47 + q^48 - q^53 + 
        q^65 + 2*q^71 - q^80 + 2*q^83 - q^93 + 2*q^101 - q^107 + q^108 + q^125 -
        q^131 + q^147 - q^149 + q^155 - q^156 - q^164 - q^167 + O(q^170)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
772
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
772
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
192
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
772
);
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:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
772
);
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:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
772
);
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:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^9 + a)*q^2 - a^10*q^4 + (a^15 - a^7 - a^2)*q^5 - a^3*q^8 - a^12*q^9 
        + (a^11 + a^8 - a^3 - 1)*q^10 + (a^9 - a^4 - a)*q^13 + (a^12 - a^4)*q^16
        + (-a^15 - a^8 + a^7)*q^17 - a^5*q^18 + (a^12 + a^9)*q^20 + (-a^14 + a^6
        + a^4 + a)*q^25 + (a^13 + a^10 - a^5)*q^26 + (-a^12 - a^7 + a^4)*q^29 + 
        a^13*q^32 + (-a^8 - a + 1)*q^34 + (a^14 - a^6)*q^36 + (a^15 - a^14)*q^37
        + (a^5 + a^2)*q^40 + (-a^13 + a^10 - a^2)*q^41 + (a^14 + a^11)*q^45 + 
        a^8*q^49 + (-a^15 - a^13 - a^10 + a^5 + a^2)*q^50 + (a^14 + a^3)*q^52 + 
        (-a^11 - a^10 + a^2)*q^53 + (-a^13 - 1)*q^58 + (-a^13 + a^5 + a^2)*q^61 
        + a^6*q^64 + (-a^11 - a^8 + a^6 + 2*a^3 + 1)*q^65 + (a^10 - a^9 - 
        a^2)*q^68 + a^15*q^72 + (a^13 - a^6)*q^73 + (a^8 - a^7)*q^74 + (-a^14 - 
        a^11 + a^6 + a^3)*q^80 - q^81 + (a^11 - a^6)*q^82 + (a^14 + a^10 + a^7 -
        a^6 - a)*q^85 + (-a^15 + a^12)*q^89 + (a^7 + a^4)*q^90 + (-a^9 - 
        a^5)*q^97 + a*q^98 + (-a^14 - a^11 - a^8)*q^100 + (-a^9 + a^5)*q^101 + 
        (-a^12 + a^7 + a^4)*q^104 + (-a^11 - a^4)*q^106 + (a^9 + a^7)*q^109 + 
        (a^13 + a^12 - a^5 - a^4)*q^113 + (a^9 - a^6 - a)*q^116 + (a^8 + a^5 - 
        1)*q^117 - a^15*q^121 + (-a^14 - a^11 + a^3)*q^122 + (a^13 - a^6 - a^5 -
        a^3 - 1)*q^125 + (-a^15 + a^7)*q^128 + (-a^15 - 2*a^12 - a^9 + a^7 + 
        a^4)*q^130 + (a^11 - a^2)*q^136 + a^8*q^144 + (a^14 + a^11 + a^9 - 
        a^3)*q^145 + (a^15 - a^7 + a^6)*q^146 + (a - 1)*q^148 + (-a^10 - 
        a)*q^149 + (a^12 - a^11 - a^4)*q^153 + (-a^9 + a^3 + a)*q^157 + (-a^15 -
        a^12)*q^160 + (a^9 - a)*q^162 + (a^15 - a^7 + a^4)*q^164 + (-a^13 - a^10
        + a^8 + a^5)*q^169 + (a^15 + a^10 + a^3 - a^2 + 1)*q^170 + (a^11 + 
        a^10)*q^173 + (-a^8 + a^5)*q^178 + (-a^13 + a^5 + 1)*q^180 + (-a^5 - 
        a^3)*q^181 + (-a^14 + a^13 - a^9 + a^8 + a - 1)*q^185 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
772
);
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:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
772
);
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:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^5*q^2 + (a^6 - a^2)*q^4 + (-a^7 + a^3 + a^2)*q^5 + a^3*q^8 - q^9 + 
        (-a^7 - a^4)*q^10 + (-a^5 + a^4)*q^13 + (-a^4 + 1)*q^16 + (-a^7 + a^4 + 
        a^3 - 1)*q^17 + a^5*q^18 + (a^5 - a - 1)*q^20 + (-a^6 + a^4 + a^2 + 
        a)*q^25 + (a^6 - a^5 - a^2 + a)*q^26 + (a^7 - a^4 + 1)*q^29 - a*q^32 + 
        (-a^4 + a)*q^34 + (-a^6 + a^2)*q^36 + (-a^3 - a^2)*q^37 + (a^5 + 
        a^2)*q^40 + (-a^6 - a)*q^41 + (a^7 - a^3 - a^2)*q^45 + (a^4 - 1)*q^49 + 
        (-a^6 - a^5 - a^3 + a)*q^50 + (a^3 - a^2)*q^52 + (a^7 - a^6 - a^3)*q^53 
        + (-a + 1)*q^58 + (-a^5 + a^2 + a)*q^61 + a^6*q^64 + (-a^7 + a^6 - a^4 +
        a^3)*q^65 + (-a^6 + a^5 - a)*q^68 - a^3*q^72 + (a^6 - a)*q^73 + (a^7 + 
        a^4 - 1)*q^74 + (-a^7 - a^6 + a^2)*q^80 + q^81 + (a^7 + a^6 - a^3)*q^82 
        + (a^7 + a)*q^85 + (-a^3 - 1)*q^89 + (a^7 + a^4)*q^90 + (2*a^5 - a)*q^97
        + a*q^98 + (a^7 + a^4 - a^3 - a^2 - 1)*q^100 + (2*a^5 - a)*q^101 + (a^7 
        - a^4 + 1)*q^104 + (a^7 + a^4 - a^3)*q^106 + (a^7 + a^5 - a)*q^109 + 
        (-a^5 - a^4 + a + 1)*q^113 + (a^6 - a^5)*q^116 + (a^5 - a^4)*q^117 - 
        a^3*q^121 + (-a^7 - a^2)*q^122 + (a^6 - a^5 + a^3 + a + 1)*q^125 + (-a^7
        + a^3)*q^128 + (-a^7 + a^5 - a^4 + a^3 - a)*q^130 + (a^7 - a^3 + 
        a^2)*q^136 - 2*a^7*q^137 + (a^4 - 1)*q^144 + (-a^7 + a^5 + a^2 - 
        a)*q^145 + (-a^7 + a^6 + a^3)*q^146 + (a + 1)*q^148 + (a^6 - a^2 + 
        a)*q^149 + (a^7 - a^4 - a^3 + 1)*q^153 + (-a^5 + a^3)*q^157 + (-a^3 - 
        1)*q^160 - a^5*q^162 + (-a^7 + a^4 + a^3)*q^164 + (a^6 - a^5 + a^4 - a^2
        + a - 1)*q^169 + (-a^6 + 1)*q^170 + (a^7 + a^6 - a^3 - a^2)*q^173 + (a^5
        + a^4 - 1)*q^178 + (-a^5 + a + 1)*q^180 + (a^5 + a^3)*q^181 + (-a^5 - 
        a^4 - a^2 - a)*q^185 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
772
);
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:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + a^2*q^4 + (a^7 - a^2)*q^5 - a^3*q^8 + a^4*q^9 + (a^3 + 1)*q^10 +
        (-a^4 + a)*q^13 + a^4*q^16 + (-a^7 + 1)*q^17 - a^5*q^18 + (-a^4 - 
        a)*q^20 + (-a^6 + a^4 + a)*q^25 + (a^5 - a^2)*q^26 + (-a^7 - a^4)*q^29 -
        a^5*q^32 + (-a - 1)*q^34 + a^6*q^36 + (-a^7 + a^6)*q^37 + (a^5 + 
        a^2)*q^40 + (a^5 + a^2)*q^41 + (-a^6 - a^3)*q^45 - q^49 + (a^7 - a^5 - 
        a^2)*q^50 + (-a^6 + a^3)*q^52 + (a^3 - a^2)*q^53 + (a^5 - 1)*q^58 + 
        (-a^5 + a^2)*q^61 + a^6*q^64 + (a^6 - 1)*q^65 + (a^2 + a)*q^68 - 
        a^7*q^72 + (-a^6 - a^5)*q^73 + (-a^7 - 1)*q^74 + (-a^6 - a^3)*q^80 - 
        q^81 + (-a^6 - a^3)*q^82 + (a^7 + a^6 - a^2 - a)*q^85 + (a^7 - a^4)*q^89
        + (a^7 + a^4)*q^90 + (-a^5 + a)*q^97 + a*q^98 + (a^6 + a^3 + 1)*q^100 + 
        (a^5 + a)*q^101 + (a^7 - a^4)*q^104 + (-a^4 + a^3)*q^106 + (a^7 - 
        a)*q^109 + (a^5 + a^4)*q^113 + (-a^6 + a)*q^116 + (a^5 + 1)*q^117 + 
        a^7*q^121 + (a^6 - a^3)*q^122 + (-a^6 + a^5 - a^3 - 1)*q^125 - a^7*q^128
        + (-a^7 + a)*q^130 + (-a^3 - a^2)*q^136 - q^144 + (2*a^6 + a^3 - 
        a)*q^145 + (a^7 + a^6)*q^146 + (a - 1)*q^148 + (a^2 - a)*q^149 + (a^4 + 
        a^3)*q^153 + (a^3 - a)*q^157 + (a^7 + a^4)*q^160 + a*q^162 + (a^7 + 
        a^4)*q^164 + (-a^5 + a^2 - 1)*q^169 + (-a^7 + a^3 + a^2 + 1)*q^170 + 
        (-a^3 - a^2)*q^173 + (a^5 + 1)*q^178 + (-a^5 + 1)*q^180 + (-a^5 - 
        a^3)*q^181 + (a^6 - a^5 - a + 1)*q^185 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
772
);
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:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^3 - a)*q^2 + (-a^2 + 1)*q^4 + (-a^3 + a^2 + a)*q^5 + a^3*q^8 + q^9 + 
        (a^2 - a - 1)*q^10 + (a^3 + a^2 - a - 1)*q^13 - a^2*q^16 + (-a^3 - a^2 +
        a)*q^17 + (a^3 - a)*q^18 + (-a^3 + 1)*q^20 + a*q^25 + (-a^3 - a^2 + 
        1)*q^26 + (-a^2 - a)*q^29 + a*q^32 + (a^2 + a - 1)*q^34 + (-a^2 + 
        1)*q^36 + (a^3 + a^2)*q^37 + (a^3 + a^2 - a)*q^40 + (a - 1)*q^41 + (-a^3
        + a^2 + a)*q^45 - a^2*q^49 - q^50 + (a^3 + a^2)*q^52 + (-a^3 + a - 
        1)*q^53 + (a + 1)*q^58 + (-a^3 + a^2)*q^61 - q^64 + (a^3 + a^2 - a - 
        2)*q^65 + (-a^3 - 1)*q^68 + a^3*q^72 + (a - 1)*q^73 + (-a^2 - a)*q^74 + 
        (-a^2 - a + 1)*q^80 + q^81 + (-a^3 + a - 1)*q^82 + (-2*a^2 + 2)*q^85 + 
        (a^3 + 1)*q^89 + (a^2 - a - 1)*q^90 - a*q^97 + a*q^98 + (-a^3 + a)*q^100
        - a*q^101 + (-a^2 - a)*q^104 + (-a^3 + a^2 + a - 1)*q^106 + (-a^3 - 
        a)*q^109 + (-a^3 - a^2)*q^113 + (a^3 - a - 1)*q^116 + (a^3 + a^2 - a - 
        1)*q^117 + a^3*q^121 + (a^2 - a)*q^122 + (-a^3 + a)*q^128 + (-2*a^3 - 
        a^2 + a + 1)*q^130 + (-a^3 + a^2 + a)*q^136 - 2*a*q^137 - a^2*q^144 + 
        (-a^3 - a^2 - a)*q^145 + (-a^3 + a - 1)*q^146 + (a + 1)*q^148 + (-a^2 + 
        a + 1)*q^149 + (-a^3 - a^2 + a)*q^153 + (2*a^3 - a)*q^157 + (a^3 + 
        1)*q^160 + (a^3 - a)*q^162 + (-a^3 + a^2 + a - 1)*q^164 + (-a^3 - 2*a^2 
        + 1)*q^169 + 2*a^3*q^170 + (-a^3 - a^2 + a + 1)*q^173 + (a^3 - a^2 - 
        a)*q^178 + (-a^3 + 1)*q^180 + (2*a^3 - a)*q^181 + (a^3 + 2*a^2 - 
        1)*q^185 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
772
);
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:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^2 + a^2*q^4 + (-a^3 + a^2)*q^5 + a^3*q^8 - q^9 + (a^3 + 1)*q^10 + (a
        - 1)*q^13 - q^16 + (-a^3 + 1)*q^17 - a*q^18 + (a - 1)*q^20 + (-a^2 + a -
        1)*q^25 + (a^2 - a)*q^26 + (-a^3 - 1)*q^29 - a*q^32 + (a + 1)*q^34 - 
        a^2*q^36 + (-a^3 - a^2)*q^37 + (a^2 - a)*q^40 + (a^2 - a)*q^41 + (a^3 - 
        a^2)*q^45 + q^49 + (-a^3 + a^2 - a)*q^50 + (a^3 - a^2)*q^52 + (a^3 + 
        a^2)*q^53 + (-a + 1)*q^58 + (a^2 - a)*q^61 - a^2*q^64 + (2*a^3 - a^2 + 
        1)*q^65 + (a^2 + a)*q^68 - a^3*q^72 + (-a^2 - a)*q^73 + (-a^3 + 1)*q^74 
        + (a^3 - a^2)*q^80 + q^81 + (a^3 - a^2)*q^82 + (-a^3 + a)*q^85 + (-a^3 -
        1)*q^89 + (-a^3 - 1)*q^90 + a*q^98 + (a^3 - a^2 + 1)*q^100 + (-a^3 - 
        1)*q^104 + (a^3 - 1)*q^106 + (-a^3 + a)*q^109 + (-a - 1)*q^113 + (-a^2 +
        a)*q^116 + (-a + 1)*q^117 - a^3*q^121 + (a^3 - a^2)*q^122 + (a^3 - a^2 -
        a + 1)*q^125 - a^3*q^128 + (-a^3 + a - 2)*q^130 + (a^3 + a^2)*q^136 + 
        2*a^3*q^137 + q^144 + (a^3 - 2*a^2 + a)*q^145 + (-a^3 - a^2)*q^146 + (a 
        + 1)*q^148 + (a^2 + a)*q^149 + (a^3 - 1)*q^153 + (a^3 + a)*q^157 + (-a^3
        - 1)*q^160 + a*q^162 + (-a^3 - 1)*q^164 + (a^2 - a + 1)*q^169 + (a^2 + 
        1)*q^170 + (a^3 + a^2)*q^173 + (-a + 1)*q^178 + (-a + 1)*q^180 + (a^3 - 
        a)*q^181 + (-a^2 + 1)*q^185 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
772
);
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:=
[
    q + (-a + 1)*q^2 - a*q^4 - q^8 + q^9 + (-2*a + 1)*q^13 + (a - 1)*q^16 + (-a 
        + 1)*q^18 - a*q^25 + (-a - 1)*q^26 + (2*a - 1)*q^29 + a*q^32 - a*q^36 + 
        (a - 2)*q^37 + (a + 1)*q^41 + (a - 1)*q^49 - q^50 + (a - 2)*q^52 + (-a +
        2)*q^53 + (a + 1)*q^58 + (a - 2)*q^61 + q^64 - q^72 + (a + 1)*q^73 + 
        (2*a - 1)*q^74 + q^81 + (-a + 2)*q^82 - a*q^97 + a*q^98 + (a - 1)*q^100 
        - a*q^101 + (2*a - 1)*q^104 + (-2*a + 1)*q^106 + (a - 1)*q^109 + (a - 
        2)*q^113 + (-a + 2)*q^116 + (-2*a + 1)*q^117 - q^121 + (2*a - 1)*q^122 +
        (-a + 1)*q^128 + 2*a*q^137 + (a - 1)*q^144 + (-a + 2)*q^146 + (a + 
        1)*q^148 - a*q^157 + (-a + 1)*q^162 + (-2*a + 1)*q^164 - 2*q^169 + (-2*a
        + 1)*q^173 - a*q^181 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
772
);
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:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^2 - q^4 + (-a - 1)*q^5 - a*q^8 + q^9 + (-a + 1)*q^10 + (a + 1)*q^13 
        + q^16 + (-a + 1)*q^17 + a*q^18 + (a + 1)*q^20 + a*q^25 + (a - 1)*q^26 +
        (-a + 1)*q^29 + a*q^32 + (a + 1)*q^34 - q^36 + (-a - 1)*q^37 + (a - 
        1)*q^40 + (a - 1)*q^41 + (-a - 1)*q^45 + q^49 - q^50 + (-a - 1)*q^52 + 
        (-a - 1)*q^53 + (a + 1)*q^58 + (a - 1)*q^61 - q^64 - 2*a*q^65 + (a - 
        1)*q^68 - a*q^72 + (a - 1)*q^73 + (-a + 1)*q^74 + (-a - 1)*q^80 + q^81 +
        (-a - 1)*q^82 - 2*q^85 + (-a + 1)*q^89 + (-a + 1)*q^90 + 2*a*q^97 + 
        a*q^98 - a*q^100 + 2*a*q^101 + (-a + 1)*q^104 + (-a + 1)*q^106 + (a + 
        1)*q^113 + (a - 1)*q^116 + (a + 1)*q^117 - a*q^121 + (-a - 1)*q^122 - 
        a*q^128 + 2*q^130 + (-a - 1)*q^136 - 2*a*q^137 + q^144 - 2*q^145 + (-a -
        1)*q^146 + (a + 1)*q^148 + (a - 1)*q^149 + (-a + 1)*q^153 + (-a + 
        1)*q^160 + a*q^162 + (-a + 1)*q^164 + a*q^169 - 2*a*q^170 + (-a - 
        1)*q^173 + (a + 1)*q^178 + (a + 1)*q^180 + 2*a*q^185 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
772
);
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(
6
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + (a - 1)*q^4 - 2*a*q^5 + q^8 + q^9 + (2*a - 2)*q^10 - q^13 - 
        a*q^16 - 2*a*q^17 - a*q^18 + 2*q^20 + (3*a - 3)*q^25 + a*q^26 - q^29 + 
        (a - 1)*q^32 + (2*a - 2)*q^34 + (a - 1)*q^36 + (-a + 1)*q^37 - 2*a*q^40 
        + a*q^41 - 2*a*q^45 - a*q^49 + 3*q^50 + (-a + 1)*q^52 + (-a + 1)*q^53 + 
        a*q^58 + (-a + 1)*q^61 + q^64 + 2*a*q^65 + 2*q^68 + q^72 + a*q^73 - q^74
        + (2*a - 2)*q^80 + q^81 + (-a + 1)*q^82 + (4*a - 4)*q^85 + 2*q^89 + (2*a
        - 2)*q^90 + (-a + 1)*q^97 + (a - 1)*q^98 - 3*a*q^100 + (-a + 1)*q^101 - 
        q^104 - q^106 + a*q^109 + (-a + 1)*q^113 + (-a + 1)*q^116 - q^117 + 
        q^121 - q^122 + 4*q^125 - a*q^128 + (-2*a + 2)*q^130 - 2*a*q^136 + (2*a 
        - 2)*q^137 - a*q^144 + 2*a*q^145 + (-a + 1)*q^146 + a*q^148 + (2*a - 
        2)*q^149 - 2*a*q^153 + (-a + 1)*q^157 + 2*q^160 - a*q^162 - q^164 + 
        4*q^170 - q^173 - 2*a*q^178 + 2*q^180 + (-a + 1)*q^181 - 2*q^185 + 
        O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
772
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 96*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^2 + q^4 - q^8 + q^9 + q^16 - q^18 + q^25 - q^32 + q^36 + q^49 - q^50 +
        q^64 - q^72 + q^81 - 2*q^97 - q^98 + q^100 - 2*q^101 - 2*q^109 - q^121 -
        q^128 - 2*q^137 + q^144 - 2*q^157 - q^162 + q^169 - 2*q^181 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
773
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
772
);
qprec:=
129
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
773
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
193*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
129
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
774
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*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(
774
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^4 + (a^5 + a^2)*q^7 + (a^3 + a)*q^13 -
        a^5*q^16 + (-a^3 - a^2)*q^19 + a^4*q^25 + (-a^4 - a)*q^28 + (-a^5 + a^4 
        - a^3 + a^2 - a)*q^31 + (-a^5 + a^4 - a^3 + a^2 - 2*a + 1)*q^37 - 
        a^4*q^43 + (a^4 - a^3 - 1)*q^49 + (-a^2 - 1)*q^52 + (-a^5 + a^3)*q^61 + 
        a^4*q^64 + (-a^4 + a)*q^67 + (-2*a^5 + a^4 - a^3 + a^2 - a + 1)*q^73 + 
        (a^2 + a)*q^76 + (a^5 - a^2)*q^79 + (2*a^5 - a^4 + 2*a^3 - a^2 - 1)*q^91
        + (a^5 - a^4 - a^2 + a - 1)*q^97 - a^3*q^100 + (a^2 - a)*q^103 + (a^2 + 
        1)*q^109 + (a^3 + 1)*q^112 - a^2*q^121 + (a^4 - a^3 + a^2 - a + 1)*q^124
        + (a^5 - a^4 + a^3 - a^2 + a)*q^127 + (-a^5 - a^4 + a + 1)*q^133 + (a^5 
        + a^3 - a^2 + a - 1)*q^139 + (a^5 + 1)*q^148 + (a + 1)*q^151 + (-a^5 - 
        1)*q^157 + (a^2 - 1)*q^163 + (a^5 + a^3 + a - 1)*q^169 + a^3*q^172 + 
        (a^5 - a^4 + a^3 - 2*a^2 + a - 1)*q^175 + (a^5 - a^4)*q^181 + (a^5 + 
        a^3)*q^193 + (-a^5 + a^4 - 2*a^3 + 2*a^2 - a + 1)*q^196 + (-a^3 - 
        1)*q^199 + (-a^5 + a^4 - a^3 + a^2 + 1)*q^208 + (-a^4 - a)*q^211 + (-a^5
        + a^4 - a^2 + a)*q^217 + (a^3 - a)*q^223 + (-a^5 - a)*q^229 + (-a^2 - 
        a)*q^241 + (a^4 - a^2)*q^244 + (-2*a^5 - 2*a^3 + a^2 - a + 1)*q^247 + 
        O(q^250),
    q^2 + (a^5 - a^4 + a^3 - a^2 + a - 1)*q^8 + (a^5 + a^2)*q^14 + (a^3 + 
        a)*q^26 - a^5*q^32 + (-a^3 - a^2)*q^38 + a^4*q^50 + (-a^4 - a)*q^56 + 
        (-a^5 + a^4 - a^3 + a^2 - a)*q^62 + (-a^5 + a^4 - a^3 + a^2 - 2*a + 
        1)*q^74 - a^4*q^86 + (a^4 - a^3 - 1)*q^98 + (-a^2 - 1)*q^104 + (-a^5 + 
        a^3)*q^122 + a^4*q^128 + (-a^4 + a)*q^134 + (-2*a^5 + a^4 - a^3 + a^2 - 
        a + 1)*q^146 + (a^2 + a)*q^152 + (a^5 - a^2)*q^158 + (2*a^5 - a^4 + 
        2*a^3 - a^2 - 1)*q^182 + (a^5 - a^4 - a^2 + a - 1)*q^194 - a^3*q^200 + 
        (a^2 - a)*q^206 + (a^2 + 1)*q^218 + (a^3 + 1)*q^224 - a^2*q^242 + (a^4 -
        a^3 + a^2 - a + 1)*q^248 + O(q^250)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^5*q^4 + (a^4 - a^3)*q^7 + (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^2 - a)*q^28 + (-a^5 + 
        1)*q^31 + (-a^5 + a^2)*q^37 - a*q^43 + (a^5 - a^4 + a^3 - a^2)*q^49 + 
        (a^4 + 1)*q^52 + (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^4 + a^2)*q^76 + (a^4 - a^3)*q^79 + 
        (-a^4 + a - 1)*q^91 + (-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^4 + 1)*q^109 + (a^5 - a^4 
        + a^3 - a^2 + a)*q^112 + a^4*q^121 + (-a^5 - a^3)*q^124 + (-a^5 + 
        1)*q^127 + (-a^3 + a^2 - a + 1)*q^133 + (-a^5 - a)*q^139 + (-a^3 + 
        1)*q^148 + (a^2 + 1)*q^151 + (-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 + a - 1)*q^172 + (-a^5 + 
        a^4)*q^175 + (-a^3 - a)*q^181 + (a^5 - a^4 - a^2 + a - 1)*q^193 + (a^3 -
        a^2 + a - 1)*q^196 + (a^5 - a^4 + a^3 - a^2 + a)*q^199 + (-a^5 + 
        a^2)*q^208 + (a^2 - a)*q^211 + (a^4 - a^3 + a^2 - a)*q^217 + (a^5 - a^4 
        + a^3 + a - 1)*q^223 + (-a^3 + a^2)*q^229 + (a^4 + a^2)*q^241 + (a^4 - 
        a)*q^244 + (-a^4 - a^2 - 1)*q^247 + O(q^250),
    q^2 - a^5*q^8 + (a^4 - a^3)*q^14 + (a^5 - a^4 + a^3 + a - 1)*q^26 - a^3*q^32
        + (a^5 + a^3 - a^2 + a - 1)*q^38 - a*q^50 + (a^2 - a)*q^56 + (-a^5 + 
        1)*q^62 + (-a^5 + a^2)*q^74 - a*q^86 + (a^5 - a^4 + a^3 - a^2)*q^98 + 
        (a^4 + 1)*q^104 + (a^5 - a^4 - a^2 + a - 1)*q^122 - a*q^128 + (a^2 - 
        a)*q^134 + (-a^5 - a^3)*q^146 + (a^4 + a^2)*q^152 + (a^4 - a^3)*q^158 + 
        (-a^4 + a - 1)*q^182 + (-a^4 + a^3 - a^2 + a - 1)*q^194 + (a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^200 + (a^4 + a^2)*q^206 + (a^4 + 1)*q^218 + (a^5 - 
        a^4 + a^3 - a^2 + a)*q^224 + a^4*q^242 + (-a^5 - a^3)*q^248 + O(q^250),
    q^3 - a*q^9 - a^5*q^12 + (a^4 - a^3)*q^21 + a^2*q^27 + (a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^36 + (a^5 - a^4 + a^3 + a - 1)*q^39 - a^3*q^48 + (a^5 + 
        a^3 - a^2 + a - 1)*q^57 + (-a^5 + a^4)*q^63 - a*q^75 - a^3*q^81 + (a^2 -
        a)*q^84 + (-a^5 + 1)*q^93 + q^108 + (-a^5 + a^2)*q^111 + (-a^3 + 
        1)*q^117 - a*q^129 + a^4*q^144 + (a^5 - a^4 + a^3 - a^2)*q^147 + (a^4 + 
        1)*q^156 + (-a^5 + 1)*q^171 + (a^5 - a^4 - a^2 + a - 1)*q^183 + (-a^4 + 
        a^3 - a^2 + a - 1)*q^189 - a*q^192 + (a^2 - a)*q^201 + (-a^5 - 
        a^3)*q^219 + a^2*q^225 + (a^4 + a^2)*q^228 + (a^4 - a^3)*q^237 + 
        a^4*q^243 + O(q^250),
    q^6 - a*q^18 - a^5*q^24 + (a^4 - a^3)*q^42 + a^2*q^54 + (a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^72 + (a^5 - a^4 + a^3 + a - 1)*q^78 - a^3*q^96 + (a^5 + 
        a^3 - a^2 + a - 1)*q^114 + (-a^5 + a^4)*q^126 - a*q^150 - a^3*q^162 + 
        (a^2 - a)*q^168 + (-a^5 + 1)*q^186 + q^216 + (-a^5 + a^2)*q^222 + (-a^3 
        + 1)*q^234 + O(q^250)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - 2*q^13 + q^16 + q^25 - 2*q^31 - q^43 + q^49 - 2*q^52 + q^64 - 
        2*q^67 - 2*q^79 + 2*q^97 + q^100 + 2*q^103 + 2*q^109 - q^121 - 2*q^124 +
        2*q^127 + 2*q^139 + 3*q^169 - q^172 - 2*q^181 - 2*q^193 + q^196 - 
        2*q^208 + 2*q^229 + O(q^250),
    q^2 + q^8 - 2*q^26 + q^32 + q^50 - 2*q^62 - q^86 + q^98 - 2*q^104 + q^128 - 
        2*q^134 - 2*q^158 + 2*q^194 + q^200 + 2*q^206 + 2*q^218 - q^242 - 
        2*q^248 + O(q^250)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
774
);
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:=
250
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
30
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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(
30
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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(
60
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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(
10
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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(
10
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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(
10
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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(
10
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
16*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
18*H.1 + 3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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(
30
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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(
30
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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(
20
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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(
20
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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(
20
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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(
60
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 - q^14 + q^16 + q^19 - q^31 + q^41 - q^56 - q^59 - q^64 - q^71 - 
        2*q^76 + q^81 - q^101 + q^109 + q^121 - q^126 - 2*q^131 + q^144 - 
        2*q^149 + O(q^150),
    q^2 + q^14 - q^16 + q^18 - q^19 - q^28 + q^31 - q^38 - q^41 - q^47 + q^64 - 
        q^67 + q^76 - q^82 - q^94 + q^97 + q^98 + q^103 + q^107 - q^109 - q^112 
        + q^126 + 2*q^131 - q^134 - q^144 + 2*q^149 + O(q^150),
    q^4 - q^14 - q^19 + q^36 - q^41 + q^49 - q^56 + q^59 + q^71 + q^101 - q^109 
        - q^124 - q^126 + O(q^150),
    q^7 - q^8 + q^14 - q^16 - q^19 + q^28 + q^31 - q^41 - q^47 + q^62 + q^63 + 
        q^64 - q^67 - q^72 + q^76 - q^94 - q^98 - q^109 + q^113 - q^118 + q^126 
        + q^128 + 2*q^131 - q^133 - q^134 - q^142 - q^144 + 2*q^149 + O(q^150)
]
;
Bo:=
[
    q - q^2 - q^7 + q^8 + q^9 + q^14 - q^16 - q^18 - q^19 + q^31 + q^38 - q^41 +
        2*q^47 - q^56 - q^59 - q^62 - q^63 + q^64 + 2*q^67 - q^71 + q^72 + q^81 
        + q^82 - 2*q^94 - q^97 - q^101 - q^103 - q^107 - q^109 + q^112 - q^113 +
        q^118 + q^121 + q^126 - q^128 + 2*q^131 + q^133 - 2*q^134 + q^142 - 
        q^144 + 2*q^149 + O(q^150),
    q^5 - q^10 - q^35 + q^40 + q^45 + q^70 - q^80 - q^90 - q^95 - q^125 + 
        O(q^150),
    q^25 - q^50 - q^125 + O(q^150)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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(
10
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 + a^2)*q^5 + (-2*a^2 + 2*a - 1)*q^7 + (-a^3 - 1)*q^8 - a^2*q^9 + 
        (a^3 - a^2 + a)*q^10 + (a^3 - a + 1)*q^14 + a^2*q^16 + (a^3 - 2*a^2 + 
        2*a - 1)*q^19 - a^2*q^20 + (a^2 - a + 1)*q^25 + (-a^3 + a^2 - a + 
        1)*q^31 + (-a^3 + a^2 - a)*q^35 + (a^2 - 2*a + 2)*q^38 + (a^3 - 
        a^2)*q^40 + a^2*q^41 + (-a^3 + a^2 - a)*q^45 + (2*a^3 - a^2 + a - 
        1)*q^47 + (-a^3 + a^2)*q^50 + (2*a^2 - 2*a)*q^56 + (a^3 - 2*a^2 + 
        a)*q^59 + (-a^2 + 2*a - 2)*q^63 + (a^3 - a + 1)*q^64 + (-a^3 - 1)*q^67 +
        (-a^2 + a)*q^70 + (a^2 - 2*a + 1)*q^71 + (a^2 - 1)*q^72 + (a^3 - 
        a^2)*q^76 + (-a^3 + a^2)*q^80 + (a^3 - a^2 + a - 1)*q^81 + (a^3 - a^2 + 
        2*a - 1)*q^82 + (-a^2 + a)*q^90 + (-a^3 + 2*a^2 - a)*q^95 + (2*a^3 - 
        2*a^2 + a)*q^97 - a*q^100 + (-2*a^3 + 2*a^2)*q^101 + (a^2 - 1)*q^103 + 
        (2*a^2 - 2*a + 1)*q^107 + (-a^3 + 2*a^2 - a)*q^109 + (-a^3 + a)*q^112 + 
        (2*a^2 - 2*a + 1)*q^118 - a*q^121 + a*q^125 + (a^3 - a^2 + 1)*q^126 + 
        (-a^2 + 1)*q^128 + (-a^2 + a)*q^131 + (-a^3 + a^2 + a - 1)*q^133 - q^140
        + (-a^3 - 1)*q^142 + (-a^3 + a^2 - a + 1)*q^144 + (-a^3 + a^2)*q^149 + 
        O(q^150),
    q^2 + (a - 1)*q^5 + (2*a^3 - 2*a^2 + 2*a)*q^7 + a*q^8 + (a^3 - a^2)*q^10 + 
        (2*a^2 - 2*a + 1)*q^14 + (-a^3 - 1)*q^16 - a^2*q^18 + (-a^2 + 1)*q^19 + 
        a^3*q^20 + (-a^3 + a^2 - a)*q^25 + (a^3 + a - 1)*q^28 + (-a^2 + a - 
        1)*q^35 + (-a^3 + 2*a^2 - 2*a + 1)*q^38 + (-a + 1)*q^40 + (-a^3 + 
        a^2)*q^45 + (a^3 - a)*q^49 + (-a^2 + a - 1)*q^50 + (-2*a^3 + 2*a^2 - 
        a)*q^56 + (a^3 + 1)*q^59 + (-a^3 + a^2 - a + 1)*q^62 + (-2*a^2 + 
        2*a)*q^63 + (-a^3 + a^2 - 2*a + 1)*q^64 + (a^3 - a^2 - a)*q^70 + (-a^3 +
        2*a^2 - 2*a)*q^71 - a^3*q^72 + (-a^3 + a^2 - a + 2)*q^76 + (a - 1)*q^80 
        - a^2*q^82 + (a^3 - a^2 + a)*q^90 + (2*a^3 - a^2 + a - 1)*q^94 + (a - 
        1)*q^95 + (a^3 - a + 1)*q^97 - 2*q^98 + (-a^3 + a^2 - a + 1)*q^100 + 
        (-a^2 + 2*a - 2)*q^101 + (-a^3 + a - 1)*q^103 + (-2*a^3 + 2*a^2 - 
        2*a)*q^107 + (-a^3 + a^2 + a - 1)*q^109 + (a^3 - 2*a^2 + 2*a - 1)*q^112 
        + (a^3 - a^2 + a - 1)*q^113 + (-a^3 + 2*a^2 - a)*q^118 + (a^2 - 2*a + 
        2)*q^126 + (a^3 - a + 1)*q^128 + a*q^133 + (-a^3 - 1)*q^134 - a^3*q^140 
        + (-a^2 + 2*a - 1)*q^142 + (a^2 - 1)*q^144 + O(q^150),
    q^4 + (a^2 - a)*q^5 + (-a^3 + a^2 + a - 1)*q^7 + (a - 1)*q^10 + (2*a^3 - 
        2*a^2 + 2*a)*q^14 + (-a^3 + a - 1)*q^19 + (a^3 - a^2)*q^25 + (-a^3 - 
        1)*q^32 + (a^2 - a)*q^35 - a^2*q^36 + (-a^2 + 1)*q^38 + (a^3 - a^2 + 
        a)*q^40 - a*q^41 + (a^2 - a + 1)*q^45 + (a^3 - a^2 + a - 1)*q^49 + (-a^3
        + a^2 - a)*q^50 + (a^3 - a + 1)*q^56 + (-a^2 + 2*a - 1)*q^59 + (-2*a^3 +
        2*a^2 - a)*q^63 + (-a^2 + a - 1)*q^70 + (a^3 - a^2 + 1)*q^71 + (-a + 
        1)*q^80 + (-a^3 + a^2)*q^90 + (a^2 - a + 1)*q^95 + (-2*a^2 + 2*a - 
        1)*q^97 + (a^3 - a)*q^98 + (2*a^2 - 2*a)*q^101 + (-a^3 + a^2 - 2*a + 
        1)*q^103 + (a^3 - a^2 - a + 1)*q^107 + (a^2 - 2*a + 1)*q^109 + (-2*a^3 +
        2*a^2 - a)*q^112 + (a^3 + 1)*q^118 + (-a^3 + a^2 - a + 1)*q^124 + 
        (-2*a^2 + 2*a)*q^126 + (-a^3 + 2*a^2 - a + 1)*q^133 - a*q^140 + (-a^3 + 
        2*a^2 - 2*a)*q^142 + O(q^150)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
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(
10
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/5*(-a^3 - 3*a^2 + 2*a - 1)*q^5 - q^7 + (-a + 1)*q^8 + (a^3 - a^2 + a -
        1)*q^9 + 1/5*(a^3 - 2*a^2 - 2*a + 1)*q^10 + (-a^2 + a - 1)*q^14 + (a^3 -
        a^2 + a - 1)*q^16 + (-a + 1)*q^19 + (a^3 - a^2 + a - 1)*q^20 + 1/5*(a^3 
        - 2*a^2 + 3*a - 4)*q^25 + 2*a^2*q^28 - a^3*q^31 + 1/5*(a^3 + 8*a^2 - 2*a
        + 1)*q^35 + (-a^3 + a^2 - a + 1)*q^38 + 1/5*(-a^3 - 3*a^2 + 2*a - 
        1)*q^40 + (-a^3 + a^2 - a + 1)*q^41 + 1/5*(-a^3 + 2*a^2 + 2*a - 1)*q^45 
        + (-a^3 - a)*q^47 + 2*q^49 + 1/5*(-a^3 - 3*a^2 + 2*a - 1)*q^50 + (a^2 - 
        a)*q^59 + (-a^3 + a^2 - a + 1)*q^63 + (a^2 - a + 1)*q^64 + (-a + 1)*q^67
        + 1/5*(-a^3 + 2*a^2 - 3*a - 1)*q^70 + (-a^3 + a^2 - a)*q^71 + (a^3 - a^2
        + a)*q^72 + (a^3 - a^2 - 1)*q^76 + 1/5*(a^3 + 3*a^2 - 2*a + 1)*q^80 - 
        a^3*q^81 + (-a^3 + a^2)*q^82 + 1/5*(a^3 - 2*a^2 + 3*a + 1)*q^90 + 
        1/5*(6*a^3 - 7*a^2 + 3*a - 4)*q^95 + a^2*q^97 + a^2*q^100 + (a^3 - a^2 +
        a)*q^103 - q^107 + (-a^2 + a)*q^109 + (-a^2 + a)*q^112 - q^118 + 
        a^2*q^121 + a^2*q^125 + (-a^3 + a^2)*q^126 + (a^3 - a^2 + a)*q^128 + 
        (a^3 + a - 1)*q^131 + (a^3 + 2*a - 2)*q^133 + q^140 + (a - 1)*q^142 - 
        a^3*q^144 + (a^3 - a^2 - 1)*q^149 + O(q^150),
    q^2 + 1/5*(4*a^3 - 3*a^2 + 2*a - 1)*q^5 + a^2*q^8 + 1/5*(a^3 + 3*a^2 - 2*a +
        1)*q^10 + q^14 + (-a + 1)*q^16 + (a^3 - a^2 + a - 1)*q^18 + (-a^3 + a^2 
        - a)*q^19 - a*q^20 + 1/5*(a^3 - 2*a^2 - 2*a + 1)*q^25 + (-a^2 + a - 
        1)*q^28 + 1/5*(a^3 - 2*a^2 + 3*a - 4)*q^35 + (a - 1)*q^38 + 1/5*(4*a^3 -
        3*a^2 + 2*a - 1)*q^40 + 1/5*(-a^3 - 3*a^2 + 2*a - 1)*q^45 + (a^2 - 
        a)*q^49 + 1/5*(-a^3 + 2*a^2 - 3*a + 4)*q^50 + a^2*q^56 + (a - 1)*q^59 - 
        a^3*q^62 + (-a^3 + a^2)*q^64 + 1/5*(-a^3 + 2*a^2 + 2*a - 1)*q^70 + 
        a*q^71 - a*q^72 + (-a^3 + 1)*q^76 + 1/5*(-4*a^3 + 3*a^2 - 2*a + 1)*q^80 
        + (a^3 - a^2 + a - 1)*q^82 + 1/5*(a^3 - 2*a^2 - 2*a + 1)*q^90 + (-a^3 - 
        a)*q^94 + 1/5*(-4*a^3 + 3*a^2 - 2*a + 1)*q^95 + (-a^2 + a - 1)*q^97 - 
        a^3*q^100 + (a^3 - a^2 + a - 1)*q^101 + (a^2 - a + 1)*q^103 + a^3*q^109 
        + (-a + 1)*q^112 - a^3*q^113 + (-a^2 + a)*q^118 + (a^3 - a^2 + a - 
        1)*q^126 + (a^2 - a + 1)*q^128 - a^2*q^133 + (-a + 1)*q^134 - a*q^140 + 
        (a^3 - a^2 + a)*q^142 + (a^3 - a^2 + a)*q^144 + O(q^150),
    q^4 + 1/5*(a^3 - 2*a^2 + 3*a + 1)*q^5 - a^3*q^7 + 1/5*(4*a^3 - 3*a^2 + 2*a -
        1)*q^10 + (a^2 - a + 1)*q^19 + 1/5*(-a^3 - 3*a^2 + 2*a - 1)*q^25 + (-a +
        1)*q^32 + 1/5*(-a^3 + 2*a^2 - 3*a - 1)*q^35 + (a^3 - a^2 + a - 1)*q^36 +
        (-a^3 + a^2 - a)*q^38 + 1/5*(a^3 - 2*a^2 - 2*a + 1)*q^40 + a^2*q^41 + 
        1/5*(a^3 - 2*a^2 + 3*a - 4)*q^45 + a^3*q^49 + 1/5*(a^3 - 2*a^2 - 2*a + 
        1)*q^50 + (-a^2 + a - 1)*q^56 + (-a^3 + a^2 - a)*q^59 + a^2*q^63 + 
        1/5*(a^3 - 2*a^2 + 3*a - 4)*q^70 + (-a^3 + a^2)*q^71 + 1/5*(4*a^3 - 
        3*a^2 + 2*a - 1)*q^80 + 1/5*(-a^3 - 3*a^2 + 2*a - 1)*q^90 + 1/5*(-a^3 + 
        2*a^2 - 3*a + 4)*q^95 - q^97 + (a^2 - a)*q^98 + (a^3 - a^2)*q^103 - 
        a^3*q^107 + (a^3 - a^2 + a)*q^109 + a^2*q^112 + (a - 1)*q^118 - 
        a^3*q^124 + (-a^2 + a - 1)*q^133 + a^2*q^140 + a*q^142 + O(q^150)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
775
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
10*H.1 + 15*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^9 - q^14 - q^16 + q^19 + q^31 - q^41 - q^56 + q^59 - q^64 - q^71 + 
        q^81 + 2*q^94 - q^101 + q^109 + q^121 + q^126 + 2*q^131 + 2*q^134 + 
        q^144 - 2*q^149 + O(q^150),
    q^2 + q^7 + q^8 - q^18 + q^38 - 2*q^47 + q^62 - q^63 - 2*q^67 - q^72 - q^82 
        + q^97 - q^103 + q^107 - q^112 - q^113 + q^118 - q^128 + q^133 - q^142 +
        O(q^150)
]
;
Bo:=
[
    q - q^9 + q^14 + q^16 - q^19 - q^31 + q^41 - q^56 + q^59 + q^64 - q^71 - 
        2*q^76 + q^81 - q^101 - q^109 + q^121 - q^126 - 2*q^131 - q^144 + 
        2*q^149 + O(q^150),
    q^2 - q^7 - q^8 - q^18 + 2*q^28 + q^38 - q^62 + q^63 + q^72 - q^82 + q^97 - 
        2*q^98 - q^103 + q^107 - q^112 + q^113 - q^118 + q^128 - q^133 + q^142 +
        O(q^150),
    q^4 - q^14 - q^19 - q^36 + q^41 + q^49 + q^56 + q^59 - q^71 - q^101 - q^109 
        - q^124 + q^126 + O(q^150),
    q^5 - 1/2*q^25 - q^45 - 1/2*q^50 + q^70 + q^80 - q^95 - q^100 + 1/2*q^125 + 
        O(q^150),
    q^10 + 1/2*q^25 - q^35 - q^40 + 1/2*q^50 - q^90 - q^100 + 1/2*q^125 + 
        2*q^140 + O(q^150),
    q^20 - 1/2*q^25 + 1/2*q^50 - q^70 - q^95 + 1/2*q^125 + O(q^150)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
776
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2
;
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(
776
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
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(
776
);
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:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
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(
48
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
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:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^9 + a)*q^2 + (-a^8 - a^6 + 1)*q^3 - a^10*q^4 + (a^15 - a^9 - 
        a^7)*q^6 - a^3*q^8 + (a^14 + a^12 - a^8 - a^6)*q^9 + (a^13 + a^9 - a^5 -
        a)*q^11 + (a^8 - a^2 - 1)*q^12 + (a^12 - a^4)*q^16 + (-a^14 - a^11 + a^6
        + a^3)*q^17 + (a^15 + a^5 - a)*q^18 + (-a^13 - a^12 + a^5)*q^19 + (a^14 
        + a^10)*q^22 + (a^11 + a^9 - a^3)*q^24 + a*q^25 + (a^14 - a^10 + a^4 + 
        a^2 - 1)*q^27 + a^13*q^32 + (-a^15 + a^13 + a^9 + a^7 + a^3)*q^33 + 
        (-a^15 - a^12)*q^34 + (-a^14 + a^10 + a^8 + a^6 - a^2)*q^36 + (-a^14 - 
        a^5)*q^38 + (a^11 - a^2)*q^41 + (a^15 - a^13)*q^43 + (a^7 + a^3)*q^44 + 
        (a^12 + a^2)*q^48 - a^7*q^49 + (-a^10 + a^2)*q^50 + (-a^14 - a^11 - a^4 
        - a)*q^51 + (-a^13 - a^11 + a^9 + a^7 + a^5 - a)*q^54 + (-a^13 + a^10 - 
        a^4 - a^3 - a^2)*q^57 + (a^15 - a^12 - a^7 + a^4)*q^59 + a^6*q^64 + 
        (-a^12 - a^8 + a^6 + a^4 + a^2 + 1)*q^66 + (-a^15 + a^10 + a^7)*q^67 + 
        (-a^8 - a^5)*q^68 + (-a^15 + a^11 + a)*q^72 + (a^12 + a^8 - a^4)*q^73 + 
        (-a^9 - a^7 + a)*q^75 + (a^14 - a^7 - a^6)*q^76 + (-a^12 - a^10 + a^8 + 
        a^6 + a^4 - 2)*q^81 + (a^11 + a^4 - a^3)*q^82 + (a^11 + a^6)*q^83 + (a^8
        - a^6)*q^86 + (-a^12 + a^4 + 1)*q^88 + (a^4 + a^2)*q^89 + (-a^11 + a^5 +
        a^3)*q^96 - a^11*q^97 - q^98 + (-a^15 - a^11 - a^9 + a^3 + a)*q^99 - 
        a^11*q^100 + (a^13 + a^10 - a^7 - a^5 - a^4 - a^2)*q^102 + (-a^9 + 
        a^2)*q^107 + (-a^14 + a^10 - a^4 + 1)*q^108 + (a^13 + a^11 - a^5 - 
        a^3)*q^113 + (a^13 + a^12 + a^11 - a^6 - a^5 - a^4)*q^114 + (-a^13 + a^8
        - 1)*q^118 + (-a^14 - 2*a^10 + a^2)*q^121 + (a^10 - a^9 + a^8 + a^3 - 
        a^2 + a)*q^123 + (-a^15 + a^7)*q^128 + (-a^13 + a^11 + a^7 - a^3)*q^129 
        + (a^14 - a^6 + a^5)*q^131 + (-a^15 - a^13 - a^11 - a^9 + a^7 + 
        a^3)*q^132 + (-a^8 + a^3 + 1)*q^134 + (a^14 - a^6 - a)*q^136 + (-a^15 + 
        a^8 - 1)*q^137 + (-a^8 + a^7)*q^139 + (-a^10 - a^8 + a^4 + a^2)*q^144 + 
        (a^13 + a)*q^146 + (a^15 + a^13 - a^7)*q^147 + (-a^10 - 1)*q^150 + (a^15
        - 1)*q^152 + (a^12 + a^10 + a^9 + a^7 - a^6 - a^4 - a^3 - a)*q^153 + 
        (-a^15 - a^13 + 2*a^9 + a^7 - a^3 - a)*q^162 + (-a^15 + a^7)*q^163 + 
        (-a^13 + a^12 + a^5)*q^164 + (-a^15 + a^7 + a^4)*q^166 - a*q^169 + (a^12
        + a^11 + a^10 + a^9 - a^5 - a^4 - a^3 + 1)*q^171 + (a^15 - a^7 + 
        a)*q^172 + (-a^13 - a^9 + a)*q^176 + (a^15 - a^12 + a^5 - a^2)*q^177 + 
        (-a^13 - a^11 + a^5 + a^3)*q^178 + (-a^14 + a^6 - a)*q^179 + (a^15 + 
        a^12 + a^11 + a^8 - a^3 - 1)*q^187 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
32
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
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:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
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(
24
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^5 + a^4 + a)*q^5 + (-a^6 + a^2)*q^9 + (-a - 1)*q^13 + (a^7 + a^6 - 
        a^3)*q^17 + (-a^6 + a^4 + a - 1)*q^25 + (-a^7 + a^3 - a^2)*q^29 + (-a^4 
        + a^3)*q^37 + (-a^5 - a^4 + 1)*q^41 + (-a^7 + a^2)*q^45 + a^7*q^49 + 
        (-a^7 - a^3)*q^53 + (a^7 + a^5 - a)*q^61 + (a^6 - a^4 - a^2 - a)*q^65 + 
        (-a^7 + a^5 + a^3)*q^73 + (-a^4 + 1)*q^81 + (a^6 + a^4 - a^2 - 1)*q^85 +
        (a^5 + a)*q^89 + a^6*q^97 + (-a^6 + a^2)*q^101 + (a^5 - a)*q^109 + (a^7 
        + a^6 - a^3 - a^2)*q^117 - a^2*q^121 + (-a^6 + a^5 - a^3 + a^2 - 
        1)*q^125 + (a^6 - a^5 - a^2 + a)*q^137 + (a^7 - a^6 - a^4 + 1)*q^145 + 
        (a^5 - a - 1)*q^149 + (a^5 + a^4 - a)*q^153 + (a^4 - a^3)*q^157 + (a^2 +
        a + 1)*q^169 + (a^7 - a^6 + a^2)*q^173 + (-a^5 + a^4 - 1)*q^181 + (a^7 -
        a^4 - a + 2)*q^185 + O(q^190),
    q^2 + a^5*q^4 + (a^6 - a^2)*q^8 + (-a^5 + a^4 + a)*q^10 - a^3*q^16 + (-a^6 +
        a^2)*q^18 + (a^5 + a^2 - a)*q^20 + (-a - 1)*q^26 + (-a^4 + 1)*q^32 + 
        (a^7 + a^6 - a^3)*q^34 + a^3*q^36 + (a^7 - a^2)*q^40 + (-a^6 + a^4 + a -
        1)*q^50 + (-a^6 - a^5)*q^52 + (-a^7 + a^3 - a^2)*q^58 + a*q^64 + (a^7 - 
        a^4 - a^3)*q^68 + (a^4 - 1)*q^72 + (-a^4 + a^3)*q^74 + (-a^7 - 1)*q^80 +
        (-a^5 - a^4 + 1)*q^82 + (-a^7 + a^2)*q^90 + a^7*q^98 + (-a^7 + a^6 + a^3
        - a)*q^100 + (-a^7 - a^6 + a^3 + a^2)*q^104 + (-a^7 - a^3)*q^106 + (-a^7
        + a^4)*q^116 + (a^7 + a^5 - a)*q^122 + a^6*q^128 + (a^6 - a^4 - a^2 - 
        a)*q^130 + (-a^5 - a^4 + a)*q^136 - a*q^144 + (-a^7 + a^5 + a^3)*q^146 +
        (-a^5 + a^4 + a - 1)*q^148 + (-a^5 + 1)*q^160 + (-a^4 + 1)*q^162 + (-a^6
        + a^2 + a)*q^164 + (a^6 + a^4 - a^2 - 1)*q^170 + (a^5 + a)*q^178 + (a^7 
        + 1)*q^180 + O(q^190)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
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(
24
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^5*q^2 + (a^6 - a^4)*q^3 + (a^6 - a^2)*q^4 + (-a^7 + a^5 + a^3 - a)*q^6
        + a^3*q^8 + (-a^6 + a^4 + a^2 - 2)*q^9 + (-2*a^5 + a)*q^11 + (-a^4 + 
        a^2)*q^12 + (-a^4 + 1)*q^16 + (-a^7 - a^6 + a^2)*q^17 + (a^5 - a^3 + 
        a)*q^18 + (-a^5 + a - 1)*q^19 + (a^6 - 2*a^2)*q^22 + (-a^7 + a^5 - 
        a)*q^24 + a*q^25 + (-a^6 + a^4 - a^2 + 1)*q^27 - a*q^32 + (-a^7 + a^5 + 
        2*a^3 - 2*a)*q^33 + (-a^3 - 1)*q^34 + (-2*a^6 + a^4 + a^2 - 1)*q^36 + 
        (a^5 - a^2)*q^38 + (a^7 - a^3 + a^2)*q^41 + (-a^3 - a)*q^43 + (a^7 + 
        a^3)*q^44 + (a^2 - 1)*q^48 + a^7*q^49 - a^6*q^50 + (a^7 + a^4 - a^3 - 
        a^2 + a)*q^51 + (2*a^7 - 2*a^5 - a^3 + a)*q^54 + (-a^6 + a^4 + a^3 - 
        a)*q^57 + (-a^7 - a^4 + a^3 + 1)*q^59 + a^6*q^64 + (a^6 - 2*a^4 + a^2 + 
        1)*q^66 + (-a^7 + a^6 + a^3 - a^2)*q^67 + (a^5 + a^4 - 1)*q^68 + (a^7 - 
        2*a^3 + a)*q^72 + (a^7 - a^5)*q^75 + (a^7 - a^6 + a^2)*q^76 + (2*a^6 - 
        2*a^4 - a^2 + 2)*q^81 + (-a^7 + a^4)*q^82 + (a^7 + a^6 - a^3)*q^83 + 
        (a^6 + a^4 - 1)*q^86 + (-a^4 + 2)*q^88 + (a^4 + a^2)*q^89 + (-a^7 + 
        a^5)*q^96 + (a^7 - a^3)*q^97 + q^98 + (-a^7 + 3*a^5 - a^3)*q^99 + (a^7 -
        a^3)*q^100 + (a^7 - a^6 - a^5 + a^4 + a)*q^102 + (a^5 + a^2 - a)*q^107 +
        (a^6 + a^4 - 2*a^2 + 1)*q^108 + (-a^7 - a^5 + a)*q^113 + (a^7 + a^6 - 
        a^5 - a^4 - a^3 + a + 1)*q^114 + (-a^4 - a)*q^118 - 2*a^2*q^121 + (-a^6 
        - a^5 + a^4 + a^3 - 1)*q^123 + (-a^7 + a^3)*q^128 + a*q^129 + (-a^6 + 
        a^5 + a^2)*q^131 + (-2*a^7 + a^5 + a^3 - 2*a)*q^132 + (-a^4 + a^3)*q^134
        + (-a^6 + a^2 + a)*q^136 + (-a^4 - a^3)*q^137 + (a^7 + a^4 - 1)*q^139 + 
        (-a^6 + 2*a^4 - 1)*q^144 + (-a^7 + a^3 - a)*q^147 + (a^6 - a^2 + 
        1)*q^150 + (-a^3 + 1)*q^152 + (a^7 + 2*a^6 - a^5 - a^4 + a^3 - a^2 + 
        1)*q^153 + (-a^7 + 2*a^3 - 2*a)*q^162 + (a^7 - a^3)*q^163 + (-a^5 + a - 
        1)*q^164 + (-a^7 + a^4 + a^3)*q^166 + a*q^169 + (-a^7 + a^6 + 2*a^5 - 
        a^4 - a^2 - a + 2)*q^171 + (-a^7 + a^3 + a)*q^172 + (-a^5 - a)*q^176 + 
        (a^5 - a^3 + a^2 - 1)*q^177 + (-a^7 - a^5 + a)*q^178 + (-a^6 + a^2 + 
        a)*q^179 + (-a^7 - a^4 - a^3 - 1)*q^187 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
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(
16
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
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:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + (-a^6 - 1)*q^3 + a^2*q^4 + (a^7 + a)*q^6 - a^3*q^8 + (a^6 - a^4 
        + 1)*q^9 + (a^5 + a)*q^11 + (-a^2 + 1)*q^12 + a^4*q^16 + (-a^6 - 
        a^3)*q^17 + (-a^7 + a^5 - a)*q^18 + (-a^5 + a^4)*q^19 + (-a^6 - 
        a^2)*q^22 + (a^3 - a)*q^24 + a*q^25 + (-a^6 + a^4 - a^2 - 1)*q^27 - 
        a^5*q^32 + (-a^7 - a^5 + a^3 - a)*q^33 + (a^7 + a^4)*q^34 + (-a^6 + a^2 
        - 1)*q^36 + (a^6 - a^5)*q^38 + (-a^3 - a^2)*q^41 + (-a^7 + a^5)*q^43 + 
        (a^7 + a^3)*q^44 + (-a^4 + a^2)*q^48 - a^7*q^49 - a^2*q^50 + (a^6 - a^4 
        + a^3 - a)*q^51 + (a^7 - a^5 + a^3 + a)*q^54 + (a^5 - a^4 - a^3 + 
        a^2)*q^57 + (a^7 - a^4)*q^59 + a^6*q^64 + (a^6 - a^4 + a^2 - 1)*q^66 + 
        (-a^7 - a^2)*q^67 + (-a^5 + 1)*q^68 + (a^7 - a^3 + a)*q^72 + (a^4 - 
        1)*q^73 + (-a^7 - a)*q^75 + (-a^7 + a^6)*q^76 + (a^6 - a^4 + a^2)*q^81 +
        (a^4 + a^3)*q^82 + (a^6 - a^3)*q^83 + (-a^6 - 1)*q^86 + (-a^4 + 1)*q^88 
        + (a^4 + a^2)*q^89 + (a^5 - a^3)*q^96 + a^3*q^97 - q^98 + (a^7 - a^3 + 
        2*a)*q^99 + a^3*q^100 + (-a^7 + a^5 - a^4 + a^2)*q^102 + (a^2 + a)*q^107
        + (a^6 - a^4 - a^2 + 1)*q^108 + (a^5 + a^3)*q^113 + (-a^6 + a^5 + a^4 - 
        a^3)*q^114 + (a^5 + 1)*q^118 + a^6*q^121 + (a^3 + a^2 - a - 1)*q^123 - 
        a^7*q^128 + (a^7 - 2*a^5 + a^3)*q^129 + (a^6 + a^5)*q^131 + (-a^7 + a^5 
        - a^3 + a)*q^132 + (a^3 - 1)*q^134 + (a^6 - a)*q^136 + (a^7 + 1)*q^137 +
        (a^7 + 1)*q^139 + (a^4 - a^2 + 1)*q^144 + (-a^5 + a)*q^146 + (a^7 - 
        a^5)*q^147 + (a^2 - 1)*q^150 + (-a^7 - 1)*q^152 + (a^7 - a^6 + a^4 - a^3
        - a^2 + a)*q^153 + (-a^7 + a^5 - a^3)*q^162 + 2*a^7*q^163 + (-a^5 - 
        a^4)*q^164 + (-a^7 + a^4)*q^166 - a*q^169 + (-a^5 + a^4 + a^3 - a^2 - a 
        + 1)*q^171 + (a^7 + a)*q^172 + (a^5 - a)*q^176 + (-a^7 + a^5 + a^4 - 
        a^2)*q^177 + (-a^5 - a^3)*q^178 + (-a^6 - a)*q^179 + (-a^7 - a^4 + a^3 +
        1)*q^187 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
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(
12
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^3 + a^2 - 1)*q^5 + (-a^2 + 1)*q^9 + (a + 1)*q^13 + (-a^3 + a - 
        1)*q^17 + (-a^2 + a - 1)*q^25 + (-a^3 + a^2 + a)*q^29 + (a^3 + a^2 - 
        1)*q^37 + (a^3 - a^2 - a)*q^41 + (a^2 - a)*q^45 - a*q^49 + (a^3 - 
        a)*q^53 + (-a^3 - a)*q^61 - a*q^65 - a^2*q^81 + (2*a^3 - 2*a^2 + 1)*q^85
        + a^3*q^89 - q^97 + (a^2 - 1)*q^101 + a^3*q^109 + 2*a^2*q^113 + (-a^3 - 
        a^2 + a + 1)*q^117 + a^2*q^121 + (2*a^3 - a^2 - a + 2)*q^125 + (-a^3 - 
        a^2 + 1)*q^137 + (-a^2 + a - 1)*q^145 + (-a^3 + 1)*q^149 + (-a^3 + a^2 -
        1)*q^153 + (a^3 + a^2 - 1)*q^157 + (a^2 + a + 1)*q^169 + (-a^2 - a + 
        1)*q^173 + (a^3 - a^2 - a)*q^181 + (-a^2 + 1)*q^185 + O(q^190),
    q^2 + (a^3 - a)*q^4 + (-a^2 + 1)*q^8 + (-a^3 + a^2 - 1)*q^10 + a^3*q^16 + 
        (-a^2 + 1)*q^18 + (-a^3 + a^2)*q^20 + (a + 1)*q^26 - a^2*q^32 + (-a^3 + 
        a - 1)*q^34 + a^3*q^36 + (a^2 - a)*q^40 + (-a^2 + a - 1)*q^50 + (a^3 - a
        - 1)*q^52 + (-a^3 + a^2 + a)*q^58 + a*q^64 + (-a^3 + a^2 + a - 1)*q^68 -
        a^2*q^72 + (a^3 + a^2 - 1)*q^74 + (-a + 1)*q^80 + (a^3 - a^2 - a)*q^82 +
        (a^2 - a)*q^90 - a*q^98 + (-a^3 + 2*a - 1)*q^100 + (-a^3 - a^2 + a + 
        1)*q^104 + (a^3 - a)*q^106 + (a^2 - a - 1)*q^116 + (-a^3 - a)*q^122 - 
        q^128 - a*q^130 + (-a^3 + a^2 - 1)*q^136 + a*q^144 + (-a^3 - a^2)*q^148 
        + (a^3 - a + 1)*q^160 - a^2*q^162 + (-a^2 + a + 1)*q^164 + (2*a^3 - 
        2*a^2 + 1)*q^170 + a^3*q^178 + (-a + 1)*q^180 + O(q^190)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
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(
12
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^3 - a)*q^2 + (a^2 - 2)*q^3 + (-a^2 + 1)*q^4 + (-2*a^3 + a)*q^6 + 
        a^3*q^8 + (-2*a^2 + 2)*q^9 - a*q^11 + (2*a^2 - 1)*q^12 - a^2*q^16 + 
        (-a^2 - a + 1)*q^17 + 2*a^3*q^18 + (-a^3 + 1)*q^19 + q^22 + (-a^3 - 
        a)*q^24 + a*q^25 + (2*a^2 - 1)*q^27 + a*q^32 + (-a^3 + 2*a)*q^33 + (a^3 
        + 1)*q^34 - 2*a^2*q^36 + (a^3 + a^2 - a)*q^38 + (-a^3 + a^2 + a)*q^41 + 
        (a^3 + a)*q^43 + (a^3 - a)*q^44 + (a^2 + 1)*q^48 - a*q^49 - q^50 + (-a^3
        + 2*a^2 + 2*a - 1)*q^51 + (-a^3 - a)*q^54 + (a^3 + a^2 + a - 2)*q^57 + 
        (-a^3 - a^2 + a)*q^59 - q^64 + (a^2 - 2)*q^66 + (-a^3 - a^2 + a + 
        1)*q^67 + (a^3 - a^2 - a)*q^68 + 2*a*q^72 - 2*a^2*q^73 + (a^3 - 
        2*a)*q^75 + (-a^2 - a + 1)*q^76 - a^2*q^81 + (a^2 - a - 1)*q^82 + (-a^3 
        + a - 1)*q^83 + (-a^2 - 1)*q^86 + (-a^2 + 1)*q^88 + (2*a^2 - 1)*q^89 + 
        (a^3 - 2*a)*q^96 + (-a^3 + a)*q^97 + q^98 + (2*a^3 - 2*a)*q^99 + (-a^3 +
        a)*q^100 + (-a^3 + a^2 - a - 2)*q^102 + (-a^3 + a^2)*q^107 + (a^2 + 
        1)*q^108 + (-a^3 - a)*q^113 + (-2*a^3 - a^2 + a - 1)*q^114 + (a^2 + a - 
        1)*q^118 + (2*a^3 - a^2 - a - 1)*q^123 + (-a^3 + a)*q^128 - 3*a*q^129 + 
        (a^3 - a^2 - a + 1)*q^131 + (-2*a^3 + a)*q^132 + (a^3 + a^2 - 1)*q^134 +
        (-a^2 + a + 1)*q^136 + (a^3 + a^2 - 1)*q^137 + (-a^2 - a)*q^139 - 
        2*q^144 + 2*a*q^146 + (-a^3 + 2*a)*q^147 + (-a^2 + 2)*q^150 + (a^3 + 
        1)*q^152 + (2*a^3 - 2*a^2 - 2*a)*q^153 + a*q^162 + (a^3 - a)*q^163 + 
        (-a^3 + 1)*q^164 + (-a^3 + a^2 + a - 1)*q^166 + a*q^169 + (-2*a^2 - 2*a 
        + 2)*q^171 + (-a^3 + 2*a)*q^172 + a^3*q^176 + (2*a^3 + a^2 - a + 
        1)*q^177 + (-a^3 - a)*q^178 + (-a^2 + a + 1)*q^179 + (a^3 + a^2 - 
        a)*q^187 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
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(
8
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a - 1)*q^5 - a^2*q^9 + (-a - 1)*q^13 + (a^3 - a^2)*q^17 + (a^2 + a + 
        1)*q^25 + (-a^3 - a^2)*q^29 + (a^3 + 1)*q^37 + (a - 1)*q^41 + (a^3 + 
        a^2)*q^45 - a^3*q^49 + (-a^3 + a)*q^61 + (a^2 + 2*a + 1)*q^65 + (-a^3 - 
        a)*q^73 - q^81 + (a^2 + 1)*q^85 - a^2*q^97 + 2*a^2*q^101 - 2*a*q^109 + 
        (a^3 + a^2)*q^117 - a^2*q^121 + (-a^3 - a^2 - a - 1)*q^125 + (a^2 - 
        a)*q^137 + (2*a^3 + a^2 - 1)*q^145 + (a - 1)*q^149 + (a - 1)*q^153 + 
        (-a^3 - 1)*q^157 + (a^2 + a + 1)*q^169 + (-a^3 - a^2)*q^173 + (a + 
        1)*q^181 + (-a^3 - a)*q^185 + O(q^190),
    q^2 - a*q^4 + a^2*q^8 + (-a - 1)*q^10 - a^3*q^16 - a^2*q^18 + (a^2 + a)*q^20
        + (-a - 1)*q^26 - q^32 + (a^3 - a^2)*q^34 + a^3*q^36 + (-a^3 - a^2)*q^40
        + (a^2 + a + 1)*q^50 + (a^2 + a)*q^52 + (-a^3 - a^2)*q^58 + a*q^64 + 
        (a^3 + 1)*q^68 + q^72 + (a^3 + 1)*q^74 + (a^3 - 1)*q^80 + (a - 1)*q^82 +
        (a^3 + a^2)*q^90 - a^3*q^98 + (-a^3 - a^2 - a)*q^100 + (-a^3 - 
        a^2)*q^104 + (a^3 - 1)*q^116 + (-a^3 + a)*q^122 - a^2*q^128 + (a^2 + 2*a
        + 1)*q^130 + (-a + 1)*q^136 - a*q^144 + (-a^3 - a)*q^146 + (-a + 
        1)*q^148 + (a + 1)*q^160 - q^162 + (-a^2 + a)*q^164 + (a^2 + 1)*q^170 + 
        (-a^3 + 1)*q^180 + O(q^190)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
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(
8
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^2 + (-a^2 + 1)*q^3 + a^2*q^4 + (-a^3 + a)*q^6 + a^3*q^8 - a^2*q^9 + 
        (a^2 + 1)*q^12 - q^16 + (a^3 - a^2)*q^17 - a^3*q^18 + (-a - 1)*q^19 + 
        (a^3 + a)*q^24 + a*q^25 - a*q^32 + (-a^3 - 1)*q^34 + q^36 + (-a^2 - 
        a)*q^38 + (a^3 + a^2)*q^41 + (-a^3 - a)*q^43 + (a^2 - 1)*q^48 - a^3*q^49
        + a^2*q^50 + (a^3 - a^2 + a - 1)*q^51 + (a^3 + a^2 - a - 1)*q^57 + (-a^3
        - 1)*q^59 - a^2*q^64 + (-a^3 + a^2)*q^67 + (-a + 1)*q^68 + a*q^72 + 
        (-a^3 + a)*q^75 + (-a^3 - a^2)*q^76 + q^81 + (a^3 - 1)*q^82 + (a^3 - 
        a^2)*q^83 + (-a^2 + 1)*q^86 + (a^2 - 1)*q^89 + (a^3 - a)*q^96 + a^3*q^97
        + q^98 + a^3*q^100 + (-a^3 + a^2 - a - 1)*q^102 + (a^2 + a)*q^107 + (a^3
        - a)*q^113 + (a^3 - a^2 - a - 1)*q^114 + (-a + 1)*q^118 + a^2*q^121 + 
        (a^3 + a^2 + a + 1)*q^123 - a^3*q^128 - 2*a*q^129 + (-a^2 - a)*q^131 + 
        (a^3 + 1)*q^134 + (-a^2 + a)*q^136 + (-a^3 + 1)*q^137 + (-a^3 + 1)*q^139
        + a^2*q^144 + (-a^3 - a)*q^147 + (a^2 + 1)*q^150 + (-a^3 + 1)*q^152 + (a
        - 1)*q^153 + a*q^162 - 2*a^3*q^163 + (-a - 1)*q^164 + (-a^3 - 1)*q^166 +
        a*q^169 + (a^3 + a^2)*q^171 + (-a^3 + a)*q^172 + (-a^3 + a^2 - a - 
        1)*q^177 + (a^3 - a)*q^178 + (-a^2 + a)*q^179 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
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(
6
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a - 1)*q^5 - a*q^9 + (a + 1)*q^13 + (-a + 2)*q^17 + 2*a*q^25 + (-a - 
        1)*q^37 + (2*a - 1)*q^45 + a*q^49 + (a - 1)*q^53 + (a - 1)*q^61 - 
        3*a*q^65 + (-2*a + 2)*q^73 + (a - 1)*q^81 - 3*q^85 + q^89 + q^97 + 
        a*q^101 + q^109 + (2*a - 2)*q^113 + (-2*a + 1)*q^117 + (a - 1)*q^121 + 
        (-2*a + 1)*q^125 + (-a - 1)*q^137 + (-a - 1)*q^153 + (-a - 1)*q^157 + 
        2*a*q^169 + 3*a*q^185 + O(q^190),
    q^2 + (-a + 1)*q^4 - a*q^8 + (-a - 1)*q^10 - q^16 - a*q^18 + (a - 2)*q^20 + 
        (a + 1)*q^26 + (a - 1)*q^32 + (-a + 2)*q^34 - q^36 + (2*a - 1)*q^40 + 
        2*a*q^50 + (-a + 2)*q^52 + a*q^64 + (-2*a + 1)*q^68 + (a - 1)*q^72 + (-a
        - 1)*q^74 + (a + 1)*q^80 + (2*a - 1)*q^90 + a*q^98 + 2*q^100 + (-2*a + 
        1)*q^104 + (a - 1)*q^106 + (a - 1)*q^122 + q^128 - 3*a*q^130 + (-a - 
        1)*q^136 + a*q^144 + (-2*a + 2)*q^146 + (a - 2)*q^148 + (-a + 2)*q^160 +
        (a - 1)*q^162 - 3*q^170 + q^178 + (a + 1)*q^180 + O(q^190)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
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(
6
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^2 + (-a + 1)*q^3 - a*q^4 - a*q^6 - q^8 - a*q^11 - q^12 + (a -
        1)*q^16 - q^22 + (a - 1)*q^24 + a*q^25 + q^27 + a*q^32 - q^33 + (a - 
        1)*q^43 + (a - 1)*q^44 + a*q^48 + a*q^49 + q^50 + (-a + 1)*q^54 + q^64 +
        (a - 1)*q^66 + (-2*a + 1)*q^67 + (2*a - 2)*q^73 + q^75 + (-a + 1)*q^81 +
        (-a + 2)*q^83 + a*q^86 + a*q^88 - q^89 + q^96 + (-a + 1)*q^97 + q^98 + 
        (-a + 1)*q^100 + (a - 2)*q^107 - a*q^108 + (a - 1)*q^113 + (-a + 
        1)*q^128 + a*q^129 + (-2*a + 1)*q^131 + a*q^132 + (-a - 1)*q^134 + (-a -
        1)*q^137 + (2*a - 1)*q^139 + 2*a*q^146 + q^147 + (-a + 1)*q^150 - 
        a*q^162 + (a - 1)*q^163 + (-2*a + 1)*q^166 + a*q^169 + q^172 + q^176 + 
        (a - 1)*q^178 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
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(
4
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a + 1)*q^5 - q^9 + (a + 1)*q^13 + (-a - 1)*q^17 + a*q^25 + (-a - 
        1)*q^29 + (-a + 1)*q^37 + (a + 1)*q^41 + (-a - 1)*q^45 - a*q^49 - 
        2*a*q^53 + 2*a*q^65 + q^81 - 2*a*q^85 + 2*a*q^89 - q^97 - 2*q^101 + 
        2*a*q^109 - 2*q^113 + (-a - 1)*q^117 - q^121 + (a - 1)*q^137 - 2*a*q^145
        + (a + 1)*q^149 + (a + 1)*q^153 + (-a + 1)*q^157 + a*q^169 + (-a - 
        1)*q^173 + (a + 1)*q^181 + 2*q^185 + O(q^190),
    q^2 + a*q^4 - q^8 + (a + 1)*q^10 - a*q^16 - q^18 + (a - 1)*q^20 + (a + 
        1)*q^26 + q^32 + (-a - 1)*q^34 - a*q^36 + (-a - 1)*q^40 + a*q^50 + (a - 
        1)*q^52 + (-a - 1)*q^58 + a*q^64 + (-a + 1)*q^68 + 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^104 - 2*a*q^106 + (-a + 1)*q^116 - q^128 + 2*a*q^130 + (a + 
        1)*q^136 + a*q^144 + (a + 1)*q^148 + (a + 1)*q^160 + q^162 + (a - 
        1)*q^164 - 2*a*q^170 + 2*a*q^178 + (-a + 1)*q^180 + O(q^190)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 24*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^2 - q^4 - a*q^8 + q^9 + 2*a*q^11 + q^16 + (-a - 1)*q^17 + a*q^18 + 
        (a + 1)*q^19 - 2*q^22 + a*q^25 + a*q^32 + (-a + 1)*q^34 - q^36 + (a - 
        1)*q^38 + (-a - 1)*q^41 - 2*a*q^44 - a*q^49 - q^50 + (-a + 1)*q^59 - 
        q^64 + (-a - 1)*q^67 + (a + 1)*q^68 - a*q^72 + 2*q^73 + (-a - 1)*q^76 + 
        q^81 + (-a + 1)*q^82 + (-a - 1)*q^83 + 2*q^88 - a*q^97 + q^98 + 2*a*q^99
        - a*q^100 + (a - 1)*q^107 + (a + 1)*q^118 - 3*q^121 - a*q^128 + (a - 
        1)*q^131 + (-a + 1)*q^134 + (a - 1)*q^136 + (-a + 1)*q^137 + (-a + 
        1)*q^139 + q^144 + 2*a*q^146 + (-a + 1)*q^152 + (-a - 1)*q^153 + a*q^162
        - 2*a*q^163 + (a + 1)*q^164 + (-a + 1)*q^166 + a*q^169 + (a + 1)*q^171 +
        2*a*q^176 + (a - 1)*q^179 + (-2*a + 2)*q^187 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 32*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^5 + (a - 1)*q^9 + a*q^13 + (-a + 1)*q^17 - 2*a*q^29 + a*q^37 - 
        2*a*q^41 - q^45 + (a - 1)*q^49 + a*q^53 + a*q^61 + (a - 1)*q^65 - 
        2*a*q^73 - a*q^81 + q^85 - q^89 + q^97 + (-a + 1)*q^101 - q^109 - 
        2*a*q^113 - q^117 - a*q^121 + q^125 + a*q^137 + (-2*a + 2)*q^145 + 
        2*q^149 + a*q^153 + a*q^157 + (2*a - 2)*q^173 - 2*a*q^181 + (a - 
        1)*q^185 + O(q^190),
    q^2 - a*q^4 + (a - 1)*q^8 + a*q^10 + q^16 + (a - 1)*q^18 + (-a + 1)*q^20 + 
        a*q^26 - a*q^32 + (-a + 1)*q^34 + q^36 - q^40 + (-a + 1)*q^52 - 2*a*q^58
        + (a - 1)*q^64 - q^68 - a*q^72 + a*q^74 + a*q^80 - 2*a*q^82 - q^90 + (a 
        - 1)*q^98 - q^104 + a*q^106 + (2*a - 2)*q^116 + a*q^122 + q^128 + (a - 
        1)*q^130 + a*q^136 + (a - 1)*q^144 - 2*a*q^146 + (-a + 1)*q^148 + (-a + 
        1)*q^160 - a*q^162 + (2*a - 2)*q^164 + q^170 - q^178 + a*q^180 + 
        O(q^190)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 32*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + a*q^3 + (a - 1)*q^4 + (-a + 1)*q^6 + q^8 + (-a + 1)*q^11 - q^12 
        - a*q^16 + (2*a - 2)*q^17 + 2*q^19 - q^22 + a*q^24 + (a - 1)*q^25 + q^27
        + (a - 1)*q^32 + q^33 + 2*q^34 - 2*a*q^38 - 2*a*q^41 + a*q^43 + a*q^44 +
        (-a + 1)*q^48 + (a - 1)*q^49 + q^50 - 2*q^51 - a*q^54 + 2*a*q^57 - 
        2*a*q^59 + q^64 - a*q^66 - q^67 - 2*a*q^68 - 2*a*q^73 - q^75 + (2*a - 
        2)*q^76 + a*q^81 + (2*a - 2)*q^82 + (-a + 1)*q^83 + (-a + 1)*q^86 + (-a 
        + 1)*q^88 - q^89 - q^96 - a*q^97 + q^98 - a*q^100 + 2*a*q^102 + (-a + 
        1)*q^107 + (a - 1)*q^108 + a*q^113 + (-2*a + 2)*q^114 + (2*a - 2)*q^118 
        + (-2*a + 2)*q^123 - a*q^128 + (a - 1)*q^129 - q^131 + (a - 1)*q^132 + 
        a*q^134 + (2*a - 2)*q^136 + a*q^137 - q^139 + (2*a - 2)*q^146 - q^147 + 
        a*q^150 + 2*q^152 + (-a + 1)*q^162 + a*q^163 + 2*q^164 - q^166 + (a - 
        1)*q^169 - q^172 - q^176 + (-2*a + 2)*q^177 + a*q^178 + (2*a - 2)*q^179 
        + 2*a*q^187 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 48*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 + q^25 - q^49 - 2*q^53 - 2*q^61 - 2*q^73 + q^81 - 2*q^89 + q^97 + 
        2*q^101 - 2*q^109 + 2*q^113 + q^121 + q^169 + O(q^190),
    q^2 - q^4 + q^8 - q^16 + q^18 + q^32 - q^36 + q^50 - q^64 + q^72 - q^98 - 
        q^100 - 2*q^106 - 2*q^122 + q^128 - q^144 - 2*q^146 + q^162 - 2*q^178 + 
        O(q^190)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
776
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 48*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
190
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^22 + q^25 - q^27 - q^35 + q^49 - q^50 + q^64 - q^66 - 
        q^88 - q^89 - q^91 + q^100 - q^105 - q^108 - q^115 + q^121 - q^140 - 
        q^145 - q^150 + q^169 - q^182 + O(q^190),
    q^2 + q^8 - q^11 - q^25 + q^32 - q^33 - q^44 + q^50 - q^54 - q^70 - q^75 - 
        q^91 + q^97 + q^98 + q^99 - q^100 + q^105 + 2*q^115 + q^128 + q^129 - 
        q^132 + q^147 - q^161 + 2*q^169 - q^176 - q^178 - q^182 - q^185 + 
        O(q^190),
    q^3 - q^11 + q^12 - q^18 - q^25 + q^27 - q^33 - q^44 + q^48 - q^54 + q^65 + 
        q^66 - q^72 + q^73 + q^81 + q^86 - q^91 + q^98 - q^99 - q^100 + q^108 + 
        q^121 - q^129 + q^130 - q^132 + q^150 - q^162 - q^176 - q^178 - q^182 + 
        O(q^190),
    q^5 - q^14 - q^15 + q^20 - q^21 - q^37 + q^39 + q^42 + q^45 + q^46 - q^56 - 
        q^58 - q^60 + q^63 + q^78 + q^80 - q^84 - q^87 + q^111 - q^117 - q^126 +
        q^127 - q^135 - q^138 - q^143 - q^148 + q^154 + q^156 + q^157 + q^168 - 
        q^173 + q^174 + q^180 + q^184 + O(q^190),
    q^6 - q^11 - q^18 + q^24 - q^25 + q^35 + q^43 - q^44 + q^49 + q^65 - q^70 - 
        q^72 - q^91 + q^96 - q^100 - q^105 + q^113 - q^129 + q^130 + q^140 + 
        q^145 + q^146 - q^147 + q^150 - q^161 + q^163 + q^172 - q^176 - q^178 - 
        q^182 - q^185 + O(q^190),
    q^7 - q^14 - q^15 - q^21 + q^28 + q^29 + q^30 - q^37 + q^42 + q^45 - q^55 - 
        q^56 - q^58 - q^60 + q^63 + q^69 + q^74 - q^84 - q^87 - q^90 + q^110 + 
        q^111 + q^112 + q^116 + q^120 - q^125 - q^126 - q^138 - q^148 + q^168 - 
        q^173 + q^174 + q^175 + q^180 - q^189 + O(q^190),
    q^9 - q^11 - q^18 + q^22 - q^25 + q^27 - q^33 + q^35 + q^36 - q^44 + q^50 - 
        q^54 + q^66 - q^70 - q^72 - q^75 + q^81 + q^88 + q^89 - q^99 - q^100 + 
        q^108 + q^115 - q^129 - q^132 + q^140 + q^144 + q^145 - q^147 + q^150 - 
        q^161 - q^162 - q^176 - q^178 - q^185 + O(q^190),
    q^10 - q^14 - q^15 + q^23 - q^37 + q^39 + q^40 + q^45 - q^55 - q^56 - q^58 -
        q^60 + q^77 + q^78 + q^92 + q^110 - q^117 - q^125 - q^138 - q^143 - 
        q^148 + q^149 + q^156 + q^160 - q^165 - q^173 + q^175 + q^180 + q^181 + 
        O(q^190),
    q^13 - q^14 - q^21 + q^26 + q^30 - q^37 + q^52 - q^55 - q^56 - q^58 + q^63 +
        q^69 + q^71 + q^77 - q^84 - q^87 - q^90 + q^104 + q^120 - q^125 + q^142 
        - q^143 - q^148 + q^154 - q^173 + q^175 + O(q^190)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^10 - a^4)*q^3 + (a^7 - a)*q^4 + a^5*q^7 + (-a^8 + a^2)*q^9 - 
        a^11*q^12 + (a^9 + a^8 - a^3 - a^2)*q^13 - a^8*q^16 + (a^7 - a^4)*q^19 -
        a^3*q^21 + (a^11 - a^5)*q^25 + (a^6 - 1)*q^27 - q^28 + (a^11 + a^4)*q^31
        + a^9*q^36 - a^6*q^37 + (-a^7 - a^6 + a + 1)*q^39 + (a^8 - a)*q^43 + 
        a^6*q^48 + a^10*q^49 + (-a^10 - a^9)*q^52 + (-a^5 + a^2)*q^57 + (-a^10 -
        a^7 + a^4)*q^61 + a*q^63 + a^3*q^64 + (-a^11 + a^5 + a^3)*q^67 + (-a^5 +
        a)*q^73 + (-a^9 + a^3)*q^75 + (-a^11 + a^5 - a^2)*q^76 + (-a^9 + a^3 + 
        a^2)*q^79 - a^10*q^81 + (-a^10 + a^4)*q^84 + (-a^2 - a)*q^91 + (-a^9 - 
        a^2)*q^93 + (a^8 - a^7)*q^97 + (-a^6 + 1)*q^100 + (a^9 + a^6)*q^103 - 
        a^7*q^108 + (a^10 - a^9 + a^3)*q^109 + a^4*q^111 + (-a^7 + a)*q^112 + 
        (a^11 + a^10)*q^117 - q^121 + (a^11 - a^6 - a^5)*q^124 + (-a^10 + a^6 + 
        a^4)*q^127 + (-a^11 - a^6 + a^5)*q^129 + (-a^9 + a^6 - 1)*q^133 + (-a^7 
        - a^3 + a)*q^139 - a^4*q^144 - a^8*q^147 + a*q^148 + (a^6 + a^2 - 
        1)*q^151 + (a^8 + a^7)*q^156 + (a^9 + a^7 - a^3)*q^157 + (a^11 + a^8 - 
        a^2)*q^163 + (-a^11 - a^10 - a^6 + 1)*q^169 + (a^3 - 1)*q^171 + (-a^8 - 
        a^3 + a^2)*q^172 - a^4*q^175 + (-a^11 + a^9)*q^181 + (a^8 + a^5 - 
        a^2)*q^183 + (a^11 - a^5)*q^189 - a*q^192 + (-a^5 + a^4)*q^193 + 
        O(q^196)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^10*q^3 - a^7*q^4 - a^9*q^7 - a^2*q^9 + (-a^11 + a^5)*q^12 + (-a^9 - 
        a^8 + a^3 + a^2)*q^13 + (a^8 - a^2)*q^16 + (-a^10 + a^7 - a)*q^19 + 
        a*q^21 - a^11*q^25 + (-a^6 + 1)*q^27 + (a^10 - a^4)*q^28 + (-a^10 + a^5 
        + a^4)*q^31 + a^9*q^36 + (a^6 - 1)*q^37 + (a^7 + a^6)*q^39 + (a^8 - 
        a)*q^43 - a^6*q^48 - q^49 + (-a^4 - a^3)*q^52 + (-a^5 + a^2)*q^57 + 
        (-a^7 + a^4 + a)*q^61 + a^11*q^63 + a^3*q^64 + (a^11 + a^9 - a^3)*q^67 +
        (a^11 - a^7 - a^5 + a)*q^73 + a^3*q^75 + (a^11 - a^5 + a^2)*q^76 + (-a^8
        - a^3)*q^79 + a^4*q^81 - a^8*q^84 + (-a^6 - a^5)*q^91 + (a^9 + a^8 - 
        a^3)*q^93 + (-a^8 + a^7)*q^97 - q^100 + (a^9 + a^6 - a^3 - 1)*q^103 - 
        a*q^108 + (a^9 - a^4)*q^109 - a^4*q^111 + a^5*q^112 + (a^11 + a^10 - a^5
        - a^4)*q^117 + a^6*q^121 + (-a^6 - a^5 + 1)*q^124 + (-a^10 + a^6 + 
        a^4)*q^127 + (-a^11 - 1)*q^129 + (a^4 - a)*q^133 + (a^7 + a^3 - a)*q^139
        + (-a^10 + a^4)*q^144 - a^10*q^147 + a*q^148 + (a^8 - a^6 - a^2)*q^151 +
        (-a^8 - a^7 + a^2 + a)*q^156 + (a^9 + a)*q^157 + (-a^11 + a^5 + 
        a^2)*q^163 + (-a^11 - a^10 - a^6 + 1)*q^169 + (-a^9 + a^6 + a^3 - 
        1)*q^171 + (-a^9 + a^8 + a^3)*q^172 - a^2*q^175 + (a^11 - a^9)*q^181 + 
        (a^8 + a^5 - a^2)*q^183 - a^3*q^189 + (a^7 - a)*q^192 + (-a^11 + a^10 + 
        a^5 - a^4)*q^193 + O(q^196)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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(
18
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^4 + a)*q^3 - a^4*q^4 + a^5*q^7 - a^5*q^9 - a^2*q^12 + (-a^5 - a^3 + 
        1)*q^13 + (a^5 - a^2)*q^16 + (2*a^4 - a)*q^19 + a^3*q^21 + (-a^5 + 
        a^2)*q^25 - a^3*q^27 + q^28 + (a^4 - a^2)*q^31 - q^36 + (a^3 - 1)*q^37 +
        (-a^4 - a^3)*q^39 + (a^5 - a^2 + a)*q^43 + (a^3 - 1)*q^48 - a*q^49 + (-a
        - 1)*q^52 + (a^5 + a^2)*q^57 + a*q^63 + a^3*q^64 + (-a^5 + a^3 + 
        a^2)*q^67 + (a^5 + a)*q^73 + (-a^3 + 1)*q^75 + (-a^5 + 2*a^2)*q^76 + 
        (-a^3 + a^2 + 1)*q^79 - a*q^81 + (-a^4 + a)*q^84 + (a^2 + a)*q^91 + (a^2
        - 1)*q^93 + (a^5 + a^4 - a^2 - a)*q^97 - a^3*q^100 + (a^3 - 2)*q^103 + 
        (a^4 - a)*q^108 + (-a^3 - a + 1)*q^109 + a^4*q^111 - a^4*q^112 + (-a^2 -
        a)*q^117 + q^121 + (-a^5 + a^3 + a^2 - 1)*q^124 + (-a^4 + a^3 + a - 
        1)*q^127 + (-a^5 + a^3 + a^2 - 1)*q^129 + (-a^3 - 1)*q^133 + (-a^4 + 
        a^3)*q^139 + a^4*q^144 + (a^5 - a^2)*q^147 + a*q^148 + (-a^3 + 
        a^2)*q^151 + (a^5 + a^4 - a^2 - a)*q^156 + (a^4 - a^3 - a + 1)*q^157 + 
        (-a^5 - a^2)*q^163 + (-a^3 - a^2 - a)*q^169 + (a^3 + 1)*q^171 + (-a^5 + 
        a^3)*q^172 + a^4*q^175 + (-a^2 - 1)*q^181 + (-a^5 + a^2)*q^189 + a*q^192
        + (a^5 + a^4)*q^193 + O(q^196)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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(
18
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^4 + a^3 + a)*q^2 + (-a^5 + a^3 + a - 1)*q^4 + (a^4 - a)*q^7 + (-a^5 
        + a^4 - a^3 + a^2 - 1)*q^8 + (a^5 - a^2)*q^9 + (-a^5 - a^4 + a^2)*q^11 +
        (a^5 - a)*q^14 + (a^4 - 2*a^3 + a^2 - 2*a + 1)*q^16 + (a^3 - a^2 - 
        1)*q^18 + (-a^4 - a^3 + a + 1)*q^22 + (a^4 - a^2)*q^23 + a^5*q^25 + (a^5
        - a^4 + a^3 - a^2)*q^28 + (a^2 + a)*q^29 + (2*a^5 - a^4 - a^3 - a^2 - a 
        + 2)*q^32 + (-a^5 + a^4 - 1)*q^36 - q^37 + (-2*a^3 + 1)*q^43 + (-a^4 + 
        a)*q^44 + (-a^5 + a^4 + a^2 - a - 1)*q^46 - a^5*q^49 + (a^5 + a^3 - 
        a^2)*q^50 + (a^3 + a)*q^53 + (-a^4 + a^3 - a^2 + 2*a - 1)*q^56 + (a^4 + 
        a^2 + 1)*q^58 + (-a^3 + 1)*q^63 + (a^5 - 2*a^4 + 2*a^3 - 2*a^2 + a)*q^64
        + (a^4 - a)*q^67 - a^4*q^71 + (-a^5 + a^4 - a^3 + 2*a^2 - a)*q^72 + (a^4
        - a^3 - a)*q^74 + (a^3 + a^2 - 1)*q^77 + (-a^5 + a^3 + a^2 - 1)*q^79 + 
        (-a^4 + a)*q^81 + (-a^4 - a^3 - a + 2)*q^86 + (a^4 - a^2)*q^88 + (a^4 - 
        a^3 + a^2 - 2*a + 1)*q^92 + (-a^5 - a^3 + a^2)*q^98 + (a^4 + a^3 - 
        a)*q^99 + (a^3 - a^2 + a - 1)*q^100 + (-a^5 + a^4 + a^3 + a^2 + a - 
        1)*q^106 + (-a^5 + a^3 - 1)*q^107 + (-a - 1)*q^109 + (-2*a^5 + a^4 + a^2
        + a - 1)*q^112 + (a^5 + 1)*q^116 + (a^5 - a^4 - a^3 - a^2 + a)*q^121 + 
        (-a^4 + 1)*q^126 + (-a^4 - 1)*q^127 + (-a^5 + 2*a^3 - a^2 + 2*a - 
        2)*q^128 + (a^5 - a)*q^134 + (-a^3 + 1)*q^137 + (-a^4 - a^2 + a)*q^142 +
        (a^5 - a^3 + a^2 - a + 2)*q^144 + (a^5 - a^3 - a + 1)*q^148 + q^149 + 
        (a^5 + a^3)*q^151 + (a^5 + a^4)*q^154 + (a^4 - a^3 + a^2)*q^158 + (-a^2 
        + 1)*q^161 + (-a^5 + a)*q^162 - a^2*q^169 + (a^5 - 2*a^4 + a^3 - 2*a^2 +
        a + 1)*q^172 - a^3*q^175 + (a^4 - a - 1)*q^176 + (-a^4 - a^2 + a)*q^179 
        + (2*a^5 - 2*a^4 + 1)*q^184 + (-a^5 - a^4)*q^191 + (a^5 - a^4 - 
        a^2)*q^193 + O(q^196),
    q^3 + (-a^4 + a^3 + a)*q^6 + (-a^5 + a^3 + a - 1)*q^12 + (a^4 - a)*q^21 + 
        (-a^5 + a^4 - a^3 + a^2 - 1)*q^24 + (a^5 - a^2)*q^27 + (-a^5 - a^4 + 
        a^2)*q^33 + (a^5 - a)*q^42 + (a^4 - 2*a^3 + a^2 - 2*a + 1)*q^48 + (a^3 -
        a^2 - 1)*q^54 + (-a^4 - a^3 + a + 1)*q^66 + (a^4 - a^2)*q^69 + a^5*q^75 
        + (a^5 - a^4 + a^3 - a^2)*q^84 + (a^2 + a)*q^87 + (2*a^5 - a^4 - a^3 - 
        a^2 - a + 2)*q^96 + (-a^5 + a^4 - 1)*q^108 - q^111 + (-2*a^3 + 1)*q^129 
        + (-a^4 + a)*q^132 + (-a^5 + a^4 + a^2 - a - 1)*q^138 - a^5*q^147 + (a^5
        + a^3 - a^2)*q^150 + (a^3 + a)*q^159 + (-a^4 + a^3 - a^2 + 2*a - 
        1)*q^168 + (a^4 + a^2 + 1)*q^174 + (-a^3 + 1)*q^189 + (a^5 - 2*a^4 + 
        2*a^3 - 2*a^2 + a)*q^192 + O(q^196)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^3 + (a^4 - a)*q^4 - q^7 + a^2*q^9 + (-a^5 + a^2)*q^12 + (-a^5 - a^3 
        + 1)*q^13 - a^5*q^16 + (-a^4 - a)*q^19 + a*q^21 - a^2*q^25 - a^3*q^27 + 
        (-a^4 + a)*q^28 + (a^5 - a^4 + a)*q^31 - q^36 - a^3*q^37 + (a^4 + a^3 - 
        a - 1)*q^39 + (a^5 - a^2 + a)*q^43 + (a^3 - 1)*q^48 + q^49 + (a^4 + 
        a^3)*q^52 + (a^5 + a^2)*q^57 - a^2*q^63 + a^3*q^64 + (-a^3 - a^2 + 
        1)*q^67 + (-a^5 - a^4 + a^2)*q^73 + a^3*q^75 + (-a^5 + 2*a^2)*q^76 + 
        (a^5 + a^3 - a^2)*q^79 + a^4*q^81 + (a^5 - a^2)*q^84 + (a^5 + a^3 - 
        1)*q^91 + (a^5 - a^3 - a^2 + 1)*q^93 + (a^5 + a^4 - a^2 - a)*q^97 + 
        q^100 + (-2*a^3 + 1)*q^103 + a*q^108 + (a^4 - 1)*q^109 + a^4*q^111 + 
        a^5*q^112 + (-a^5 - a^4 + a^2 + a)*q^117 + (a^3 - 1)*q^121 + (a^5 - 
        a^3)*q^124 + (-a^4 + a^3 + a - 1)*q^127 + (-a^2 + 1)*q^129 + (a^4 + 
        a)*q^133 + (-a^4 + a^3)*q^139 + (-a^4 + a)*q^144 - a*q^147 + a*q^148 + 
        (-a^5 + a^3 - 1)*q^151 + (-a^5 - a^4)*q^156 + (a - 1)*q^157 + (-a^5 + 
        2*a^2)*q^163 + (-a^3 - a^2 - a)*q^169 + (-2*a^3 + 1)*q^171 + (a^5 - a^3 
        - a^2 + 1)*q^172 + a^2*q^175 + (-a^2 - 1)*q^181 + a^3*q^189 - a^4*q^192 
        + (-a^5 - a^4 + a^2 + a)*q^193 + O(q^196)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + 1/2*(2*a^3 - a)*q^7 - a^2*q^9 + a^2*q^16 + 1/2*(-a^3 + a)*q^21 +
        (a^3 - a)*q^25 + 1/2*(a^2 - 2)*q^28 - a^3*q^36 + q^37 + (-a - 1)*q^39 + 
        (-a^2 - a)*q^43 - 1/2*a^2*q^49 + (-a^3 + a^2 + a)*q^57 + 1/2*(-a^3 + 
        2*a)*q^63 + a^3*q^64 + a*q^67 + (-a^3 + a^2)*q^79 + (a^2 - 1)*q^81 + 
        1/2*q^84 + 1/2*(-a^3 - a^2 + 1)*q^91 + (a^3 - a^2)*q^93 - q^100 + (-a^3 
        - a^2 + 1)*q^109 + 1/2*(a^3 - 2*a)*q^112 - q^121 - a^2*q^127 + 1/2*(a^3 
        + a^2 - a)*q^133 + (-a^2 + 1)*q^144 + 1/2*(2*a^2 - 1)*q^147 + a*q^148 + 
        (a^2 + 1)*q^151 + (-a^2 - a)*q^156 + (-a^3 + a^2 + a)*q^163 + (a^3 + a^2
        - a - 2)*q^169 + (-a^3 - a^2)*q^172 + 1/2*(-2*a^2 + 1)*q^175 + (a^3 + 
        a^2 - a)*q^183 - 1/2*a*q^189 + (-a^3 + a^2 + a - 1)*q^193 + O(q^196),
    q^3 + 1/2*a^3*q^7 + a*q^12 + (-a^3 - a^2 + a + 1)*q^13 + (a^3 - 1)*q^19 + 
        1/2*(2*a^3 - a)*q^21 - a^2*q^27 + 1/2*(a^2 - 1)*q^28 + (-a + 1)*q^31 + 
        a^2*q^48 + 1/2*(-a^2 - 1)*q^49 + (-a^3 + a + 1)*q^52 + (-a^3 - 1)*q^61 +
        1/2*(-a^3 + a)*q^63 + (-a^3 - a)*q^73 + (a^3 - a)*q^75 + (a^2 - a - 
        1)*q^76 + 1/2*(a^2 - 2)*q^84 + 1/2*(a^3 + 2*a^2 + a - 1)*q^91 + (-a^3 + 
        a^2 - 1)*q^97 + (a^3 + a^2 - a)*q^103 - a^3*q^108 + q^111 + 1/2*(a^3 - 
        a)*q^112 + (-a - 1)*q^117 + (-a^2 + a)*q^124 + (-a^2 - a)*q^129 + 
        1/2*(-2*a^3 - a^2 + a - 1)*q^133 + (2*a^3 - a)*q^139 - 1/2*a^2*q^147 + 
        a*q^157 + (-a^3 + a^2 + a)*q^171 - 1/2*a^2*q^175 + a^3*q^181 + 1/2*(-a^3
        + 2*a)*q^189 + a^3*q^192 + O(q^196)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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(
18
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a^2*q^3 - a^5*q^4 + q^7 + a^4*q^9 + (-a^4 + a)*q^12 + (-a^3 - a)*q^13 - 
        a*q^16 + a^5*q^19 + a^2*q^21 + a^4*q^25 + (a^3 - 1)*q^27 - a^5*q^28 + 
        (-a^5 - a)*q^31 + q^36 + (a^3 - 1)*q^37 + (-a^5 - a^3)*q^39 + (-a^4 + 
        a^2 + a)*q^43 - a^3*q^48 + q^49 + (a^5 + a^3 - a^2 - 1)*q^52 + (a^4 - 
        a)*q^57 + (2*a^5 - 2*a^2)*q^61 + a^4*q^63 + (a^3 - 1)*q^64 + (a^4 - 
        a^3)*q^67 + (a^5 - a^4 - a^2 + a)*q^73 + (a^3 - 1)*q^75 + a*q^76 + (-a^4
        + a^3 + a - 1)*q^79 + (a^5 - a^2)*q^81 + (-a^4 + a)*q^84 + (-a^3 - 
        a)*q^91 + (-a^4 - a^3 + a)*q^93 + (-a^5 - a^4 + a)*q^97 + q^100 - q^103 
        + a^2*q^108 + (a^5 - a^2 + 1)*q^109 + (a^5 - a^2)*q^111 - a*q^112 + 
        (-a^5 - a^4 + a)*q^117 - a^3*q^121 + (a^3 - a - 1)*q^124 + (-a^5 - 
        a^3)*q^127 + (a^4 + 1)*q^129 + a^5*q^133 + (a^5 + a^3 - a^2 - 1)*q^139 -
        a^5*q^144 + a^2*q^147 + a^2*q^148 + (-a^3 - a)*q^151 + (a^5 - a^2 - 
        a)*q^156 + (a^2 + 1)*q^157 + a*q^163 + (a^4 + a^3 + a^2 - 1)*q^169 - 
        q^171 + (-a^4 - a^3 + a)*q^172 + a^4*q^175 + (a^4 + 1)*q^181 - 2*a*q^183
        + (a^3 - 1)*q^189 + (a^5 - a^2)*q^192 + (-a^5 - a^4 + a)*q^193 + 
        O(q^196)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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(
18
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^5 + a^3 - 1)*q^2 + (-a^3 + a^2 - a)*q^4 - a^5*q^7 + (a^5 - a^4 + a^3
        - a^2 + a)*q^8 + (-a^4 + a)*q^9 + (a^5 - a^4 - a^2 + a)*q^11 + (a^2 - 
        a)*q^14 + (-a^5 + a^4 + a^2 - 1)*q^16 + (a^4 - a^3)*q^18 + (-a^5 + 2*a^4
        - a^3)*q^22 + (a^5 + a^4 - a^2)*q^23 - a*q^25 + (a^5 - a^4 + a^3 - a^2 +
        a - 1)*q^28 + (a^4 + a^2)*q^29 + (a^5 - a^4 - a^3 + 1)*q^32 + (a^5 - a^2
        - a + 1)*q^36 + q^37 - q^43 + (a^5 - 2*a + 2)*q^44 + (-a^5 + a^4 - a + 
        1)*q^46 - a*q^49 + (-a^4 + a^3 + a - 1)*q^50 + (a^3 + a^2 - 1)*q^53 + 
        (-a^5 + a^4 - a^3 + a^2)*q^56 + (a^5 - a^4 - a^2 + 1)*q^58 - a^3*q^63 + 
        (-a^2 + a)*q^64 + a^5*q^67 + (-a^5 + a^2)*q^71 + (-a^5 + a^3 + a - 
        1)*q^72 + (-a^5 + a^3 - 1)*q^74 + (a^4 - a^3)*q^77 + (-a^4 - a^3 + 
        a)*q^79 - a^5*q^81 + (a^5 - a^3 + 1)*q^86 + (-a^5 - a^4 + 2*a^3 - a^2 + 
        2*a - 2)*q^88 + (-a^5 - a^4 + a^3 + a^2)*q^92 + (-a^4 + a^3 + a - 
        1)*q^98 + (-a^5 + a^3 - 1)*q^99 + (a^4 - a^3 + a^2)*q^100 + (a^5 - a^4 -
        a^3 + a)*q^106 + (-a^3 - a)*q^107 + (a^2 + 1)*q^109 + (a^5 - a^4 + 
        1)*q^112 - 2*a*q^113 + (-2*a^5 + a - 1)*q^116 + (-a^5 - a^4 + a^3 + a - 
        1)*q^121 + (a^5 - a^2 + 1)*q^126 + (a^5 - a^2 + 1)*q^127 + (a^4 - 
        a)*q^128 + (-a^2 + a)*q^134 + a^3*q^137 + (a^5 - a^4)*q^142 + (a^4 - a^3
        + a^2 - a + 1)*q^144 + (-a^3 + a^2 - a)*q^148 - q^149 + (a^3 - a - 
        1)*q^151 + (a^5 - a^2 - a + 2)*q^154 + (a^5 + a^4 - a^3 - a^2 + 1)*q^158
        + (a^4 + 1)*q^161 + (a^2 - a)*q^162 + 2*a^4*q^163 + a^4*q^169 + (a^3 - 
        a^2 + a)*q^172 + (a^3 - 1)*q^175 + (-a^5 + 2*a^4 - 2*a^3 + 2*a^2 - 2*a +
        1)*q^176 + (-a^5 + a^4)*q^179 - q^184 + (a^5 - a^2 - a)*q^191 + (a^5 - 
        a^4 - a^2 + a)*q^193 + O(q^196),
    q^3 + (-a^5 + a^3 - 1)*q^6 + (-a^3 + a^2 - a)*q^12 - a^5*q^21 + (a^5 - a^4 +
        a^3 - a^2 + a)*q^24 + (-a^4 + a)*q^27 + (a^5 - a^4 - a^2 + a)*q^33 + 
        (a^2 - a)*q^42 + (-a^5 + a^4 + a^2 - 1)*q^48 + (a^4 - a^3)*q^54 + (-a^5 
        + 2*a^4 - a^3)*q^66 + (a^5 + a^4 - a^2)*q^69 - a*q^75 + (a^5 - a^4 + a^3
        - a^2 + a - 1)*q^84 + (a^4 + a^2)*q^87 + (a^5 - a^4 - a^3 + 1)*q^96 + 
        (a^5 - a^2 - a + 1)*q^108 + q^111 - q^129 + (a^5 - 2*a + 2)*q^132 + 
        (-a^5 + a^4 - a + 1)*q^138 - a*q^147 + (-a^4 + a^3 + a - 1)*q^150 + (a^3
        + a^2 - 1)*q^159 + (-a^5 + a^4 - a^3 + a^2)*q^168 + (a^5 - a^4 - a^2 + 
        1)*q^174 - a^3*q^189 + (-a^2 + a)*q^192 + O(q^196)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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(
18
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a^5*q^3 + (a^5 - a^2)*q^4 - a*q^7 - a*q^9 + a^4*q^12 + (-a^3 - a)*q^13 +
        (-a^4 + a)*q^16 - a^2*q^19 + (a^3 - 1)*q^21 + (-a^4 + a)*q^25 + (a^3 - 
        1)*q^27 + q^28 + (a^5 + a^4 - a^2)*q^31 + q^36 - a^3*q^37 + (a^5 + a^3 -
        a^2 - 1)*q^39 + (-a^4 + a^2 + a)*q^43 - a^3*q^48 + a^2*q^49 + (a^2 + 
        1)*q^52 + (a^4 - a)*q^57 - 2*a^5*q^61 + a^2*q^63 + (a^3 - 1)*q^64 + 
        (-a^4 + a^3 + a - 1)*q^67 + (a^2 - a)*q^73 - a^3*q^75 + a*q^76 + (a^4 - 
        a^3)*q^79 + a^2*q^81 - a^5*q^84 + (a^4 + a^2)*q^91 + (a^4 + 1)*q^93 + 
        (-a^5 - a^4 + a)*q^97 + (a^3 - 1)*q^100 + (-a^3 + 1)*q^103 - a^5*q^108 +
        (-a^3 + a^2)*q^109 + (a^5 - a^2)*q^111 + (a^5 - a^2)*q^112 + (a^4 + 
        a^2)*q^117 + q^121 + (-a^4 - a^3 + a)*q^124 + (-a^5 - a^3)*q^127 + (-a^4
        - a^3 + a)*q^129 + a^3*q^133 + (a^5 + a^3 - a^2 - 1)*q^139 + (a^5 - 
        a^2)*q^144 + (-a^4 + a)*q^147 + a^2*q^148 + (a^4 + a^3 - 1)*q^151 + 
        (-a^5 - a^4 + a)*q^156 + (-a^5 - a^3)*q^157 + (a^4 - a)*q^163 + (a^4 + 
        a^3 + a^2 - 1)*q^169 + a^3*q^171 + (a^3 - a - 1)*q^172 + (a^5 - 
        a^2)*q^175 + (a^4 + 1)*q^181 - 2*a*q^183 + (-a^4 + a)*q^189 + a^2*q^192 
        + (a^5 - a^2 - a)*q^193 + O(q^196)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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(
18
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + a*q^4 + (a - 1)*q^9 + (-a + 1)*q^12 + (a - 2)*q^13 + (a - 
        1)*q^16 + (-a + 1)*q^25 + q^27 + (-2*a + 1)*q^31 - q^36 + q^37 + (a + 
        1)*q^39 + (2*a - 1)*q^43 + q^48 + (-a + 1)*q^49 + (-a - 1)*q^52 - q^64 -
        a*q^67 + q^73 - q^75 + (a - 2)*q^79 - a*q^81 + (a - 2)*q^93 + (2*a - 
        1)*q^97 + q^100 + a*q^108 + (-a - 1)*q^109 - a*q^111 + (-2*a + 1)*q^117 
        + q^121 + (-a + 2)*q^124 + (-a + 1)*q^127 + (-a + 2)*q^129 + (a - 
        1)*q^139 - a*q^144 - q^147 + a*q^148 + a*q^151 + (2*a - 1)*q^156 + (a - 
        1)*q^157 + (-2*a + 2)*q^169 + (a - 2)*q^172 - a*q^181 + a*q^192 + (-2*a 
        + 1)*q^193 + O(q^196),
    q^7 - a*q^21 + a*q^28 - a*q^49 + (a - 1)*q^63 + (-a + 1)*q^84 + (a - 2)*q^91
        + (a - 1)*q^112 + (a - 1)*q^147 + (-a + 1)*q^175 + q^189 + O(q^196)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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(
6
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a - 1)*q^2 + 2*a*q^4 + a*q^7 + (-2*a + 1)*q^8 + (a - 1)*q^9 + q^11 + 
        (-2*a + 1)*q^14 + (a - 1)*q^16 + (-a + 2)*q^18 + (-a - 1)*q^22 + (-2*a +
        1)*q^23 + (-a + 1)*q^25 + (2*a - 2)*q^28 + (2*a - 1)*q^29 - 2*q^36 - 
        q^37 + 2*a*q^44 + (3*a - 3)*q^46 + (a - 1)*q^49 + (a - 2)*q^50 + (a - 
        1)*q^53 + (-a + 2)*q^56 + (-3*a + 3)*q^58 - q^63 + q^64 - 2*a*q^67 - 
        2*a*q^71 + (a + 1)*q^72 + (a + 1)*q^74 + a*q^77 + (-a + 2)*q^79 - a*q^81
        + (-2*a + 1)*q^88 + (-2*a + 4)*q^92 + (-a + 2)*q^98 + (a - 1)*q^99 + 
        2*q^100 + (-a + 2)*q^106 + a*q^107 + (-a - 1)*q^109 - q^112 + (2*a - 
        4)*q^116 + (a + 1)*q^126 + (a - 1)*q^127 + (-a - 1)*q^128 + (4*a - 
        2)*q^134 + 2*q^137 + (4*a - 2)*q^142 - a*q^144 - 2*a*q^148 - 2*q^149 - 
        a*q^151 + (-2*a + 1)*q^154 - 3*q^158 + (-a + 2)*q^161 + (2*a - 1)*q^162 
        + (-a + 1)*q^169 + q^175 + (a - 1)*q^176 + (-2*a + 1)*q^179 - 3*q^184 + 
        (2*a - 1)*q^191 + (2*a - 1)*q^193 + O(q^196),
    q^3 + (-a - 1)*q^6 + 2*a*q^12 + a*q^21 + (-2*a + 1)*q^24 + (a - 1)*q^27 + 
        q^33 + (-2*a + 1)*q^42 + (a - 1)*q^48 + (-a + 2)*q^54 + (-a - 1)*q^66 + 
        (-2*a + 1)*q^69 + (-a + 1)*q^75 + (2*a - 2)*q^84 + (2*a - 1)*q^87 - 
        2*q^108 - q^111 + 2*a*q^132 + (3*a - 3)*q^138 + (a - 1)*q^147 + (a - 
        2)*q^150 + (a - 1)*q^159 + (-a + 2)*q^168 + (-3*a + 3)*q^174 - q^189 + 
        q^192 + O(q^196)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.3
;
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(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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(
12
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + q^9 - q^16 + a*q^21 + a*q^25 + a*q^36 + q^37 + (-a - 1)*q^39 + 
        (-a + 1)*q^43 - q^49 + (-a - 1)*q^57 - a*q^64 - 2*a*q^67 + (a - 1)*q^79 
        + q^81 - q^84 + (-a + 1)*q^91 + (-a + 1)*q^93 - q^100 + (a - 1)*q^109 - 
        q^121 - 2*q^127 + (-a + 1)*q^133 - q^144 + a*q^148 + (-a + 1)*q^156 + 
        (-a - 1)*q^163 + a*q^169 + (a + 1)*q^172 + (a - 1)*q^183 + a*q^189 + (-a
        + 1)*q^193 + O(q^196),
    q^3 + 2*a*q^9 + a*q^12 + (-a - 1)*q^13 + (a - 1)*q^15 + (-a - 1)*q^19 - q^21
        - 2*q^25 + q^27 + (-a + 1)*q^31 - 2*q^36 + (a - 1)*q^37 + (-a + 1)*q^39 
        + (2*a + 2)*q^43 - q^48 - 2*a*q^49 + (-a + 1)*q^51 + (-a + 1)*q^52 + (-a
        + 1)*q^57 + (-a - 1)*q^60 + (a - 1)*q^61 + 2*a*q^63 + 4*q^67 + a*q^75 + 
        (-a + 1)*q^76 + (-2*a - 2)*q^79 - a*q^84 + 2*q^85 + (a + 1)*q^91 + (a + 
        1)*q^93 + (a + 1)*q^97 - 2*a*q^100 + (a - 1)*q^103 + (a - 1)*q^105 + 
        a*q^108 + q^111 + (-a - 1)*q^117 + 2*a*q^123 + (a + 1)*q^124 - 2*a*q^127
        + (-a + 1)*q^129 + (a + 1)*q^133 + (-a + 1)*q^135 - 2*a*q^144 - q^147 + 
        (-a - 1)*q^148 - 2*q^151 + (a + 1)*q^156 - 2*a*q^157 + (-2*a + 2)*q^163 
        - 2*q^169 + (-a - 1)*q^171 + (2*a - 2)*q^172 - 2*q^175 + (-a + 1)*q^177 
        + 2*a*q^181 + (-a - 1)*q^183 - q^189 - a*q^192 + O(q^196),
    q^5 + (-a - 1)*q^9 + q^13 - a*q^15 - q^17 + q^19 + a*q^20 + (-a + 1)*q^21 + 
        (-a + 1)*q^25 + (a - 1)*q^27 + a*q^31 + q^35 + (-a + 1)*q^36 - a*q^37 + 
        a*q^39 + (-a + 1)*q^41 - 2*q^43 - q^45 + (a + 1)*q^49 + a*q^51 + a*q^52 
        + a*q^57 - q^59 + q^60 - a*q^61 + (-a - 1)*q^63 + (2*a - 2)*q^67 - 
        a*q^68 + (-a - 1)*q^75 + a*q^76 + 2*q^79 - q^80 + (-a - 1)*q^83 + (a + 
        1)*q^84 + (a - 1)*q^85 + a*q^89 - q^91 - q^93 - q^97 + (a + 1)*q^100 - 
        a*q^103 - a*q^105 + (-a - 1)*q^108 - q^111 + q^117 - q^119 + (-a - 
        1)*q^123 - q^124 + (a + 1)*q^127 + 2*a*q^129 + a*q^131 - q^133 + a*q^135
        + a*q^140 + (a + 1)*q^144 + (-a + 1)*q^147 + q^148 + (-a + 1)*q^151 + 
        q^153 - q^156 + (a + 1)*q^157 + 2*a*q^163 + (a + 1)*q^164 - q^167 + (-a 
        + 1)*q^169 + q^171 - 2*a*q^172 + (-a + 1)*q^173 + (-a + 1)*q^175 + 
        a*q^177 - a*q^180 + (-a - 1)*q^181 + q^183 - a*q^185 + O(q^196),
    q^7 - 2*q^9 + (-a - 1)*q^15 - a*q^21 - 2*a*q^25 + a*q^28 - 2*a*q^36 + (-a - 
        1)*q^37 + (a + 1)*q^39 + (2*a - 2)*q^43 + 2*q^49 + (a + 1)*q^51 + (a + 
        1)*q^57 + (-a + 1)*q^60 - q^63 + 4*a*q^67 + (-2*a + 2)*q^79 + q^84 + 
        2*a*q^85 + (a - 1)*q^91 + (a - 1)*q^93 + 2*q^100 + (-a - 1)*q^105 - 
        q^112 - 2*q^123 + 2*q^127 + (a - 1)*q^133 + (a + 1)*q^135 + 2*q^144 + 
        (-a + 1)*q^148 - 2*a*q^151 + (a - 1)*q^156 + (2*a + 2)*q^163 - 2*a*q^169
        + (-2*a - 2)*q^172 - a*q^175 + (a + 1)*q^177 + (-a + 1)*q^183 - a*q^189 
        + O(q^196)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (a - 1)*q^3 + (a - 1)*q^4 - a*q^9 - a*q^12 + (-a + 1)*q^13 - a*q^16 + 
        (2*a - 2)*q^19 - a*q^25 + q^27 - q^31 + q^36 + q^37 + a*q^39 - q^43 + 
        q^48 + a*q^49 + a*q^52 - 2*a*q^57 + (2*a - 2)*q^61 + q^64 + (-a + 
        1)*q^67 - q^73 + q^75 - 2*a*q^76 + (-a + 1)*q^79 + (a - 1)*q^81 + (-a + 
        1)*q^93 - q^97 + q^100 + 2*q^103 + (a - 1)*q^108 + a*q^109 + (a - 
        1)*q^111 - q^117 + q^121 + (-a + 1)*q^124 + a*q^127 + (-a + 1)*q^129 + 
        a*q^139 + (a - 1)*q^144 - q^147 + (a - 1)*q^148 + (-a + 1)*q^151 - q^156
        + a*q^157 - 2*a*q^163 + 2*q^171 + (-a + 1)*q^172 + (-a + 1)*q^181 - 
        2*a*q^183 + (a - 1)*q^192 - q^193 + O(q^196),
    q^7 + (a - 1)*q^21 + (a - 1)*q^28 + (-a + 1)*q^49 - a*q^63 - a*q^84 + (-a + 
        1)*q^91 - a*q^112 + (2*a - 2)*q^133 + a*q^147 - a*q^175 + q^189 + 
        O(q^196)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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(
6
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 - q^7 - q^9 + (a - 1)*q^13 - a*q^15 + q^16 + a*q^19 - q^28 - a*q^31 
        - a*q^33 - q^36 + q^37 + q^49 + (a - 1)*q^51 + (a - 1)*q^52 + (-a + 
        1)*q^55 - a*q^60 - a*q^61 + q^63 + q^64 + (a - 1)*q^69 + a*q^73 + a*q^76
        - a*q^79 + q^81 - q^85 + 2*q^87 + (-a + 1)*q^91 + (a - 1)*q^103 + 
        a*q^105 + (a - 1)*q^109 - q^112 - q^115 + (-a + 1)*q^117 + (a - 1)*q^123
        - a*q^124 + a*q^127 - a*q^132 - a*q^133 + a*q^135 - a*q^139 + (a - 
        1)*q^141 - q^144 + 2*a*q^145 + q^148 + (-a + 1)*q^157 + (-a + 1)*q^159 -
        a*q^171 + (-a + 1)*q^177 + (-a + 1)*q^181 - q^187 - a*q^193 + q^195 + 
        O(q^196),
    q^3 + a*q^5 + a*q^11 + q^12 + (-a + 1)*q^17 + a*q^20 - q^21 + (-a + 1)*q^23 
        - q^27 - 2*q^29 - a*q^35 + (a - 1)*q^39 + (-a + 1)*q^41 + a*q^44 - 
        a*q^45 + (-a + 1)*q^47 + q^48 + (a - 1)*q^53 + a*q^57 + (a - 1)*q^59 - 
        q^65 + (-a + 1)*q^68 + (-a + 1)*q^71 - a*q^77 + a*q^80 + a*q^83 - q^84 +
        (-a + 1)*q^92 - a*q^93 + (a - 1)*q^95 - a*q^99 - a*q^101 + a*q^107 - 
        q^108 + q^111 - a*q^113 - 2*q^116 + (a - 1)*q^119 - q^125 - a*q^137 - 
        a*q^140 - q^143 + q^147 + (-a + 1)*q^149 + (a - 1)*q^153 + (-a + 
        1)*q^155 + (a - 1)*q^156 + (a - 1)*q^161 + (-a + 1)*q^164 + (-a + 
        1)*q^165 + (a - 1)*q^167 + a*q^176 + a*q^179 - a*q^180 - a*q^183 + 
        a*q^185 + (-a + 1)*q^188 + q^189 + (-a + 1)*q^191 + q^192 + O(q^196)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 12*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^2 + (a - 1)*q^7 + q^8 - a*q^9 - q^11 - q^14 + a*q^16 + (-a + 1)*q^18
        - a*q^22 - q^23 - a*q^25 - q^29 + q^37 + 2*q^43 - a*q^46 - a*q^49 + (-a 
        + 1)*q^50 + a*q^53 + (a - 1)*q^56 - a*q^58 + q^63 + q^64 + (2*a - 
        2)*q^67 + (2*a - 2)*q^71 - a*q^72 + a*q^74 + (-a + 1)*q^77 + (-a + 
        1)*q^79 + (a - 1)*q^81 + 2*a*q^86 - q^88 + (-a + 1)*q^98 + a*q^99 + (a -
        1)*q^106 + (-a + 1)*q^107 + a*q^109 - q^112 - 2*a*q^113 + a*q^126 + 
        a*q^127 + a*q^128 - 2*q^134 + 2*q^137 - 2*q^142 + (-a + 1)*q^144 + 
        2*q^149 + (-a + 1)*q^151 + q^154 + q^158 + (-a + 1)*q^161 - q^162 - 
        2*a*q^163 - a*q^169 + q^175 - a*q^176 - q^179 - q^184 - q^191 - q^193 + 
        O(q^196),
    q^3 + a*q^6 + (a - 1)*q^21 + q^24 - a*q^27 - q^33 - q^42 + a*q^48 + (-a + 
        1)*q^54 - a*q^66 - q^69 - a*q^75 - q^87 + q^111 + 2*q^129 - a*q^138 - 
        a*q^147 + (-a + 1)*q^150 + a*q^159 + (a - 1)*q^168 - a*q^174 + q^189 + 
        q^192 + O(q^196)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 4*H.2 + 12*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + a*q^7 + (-a + 1)*q^9 + (a - 1)*q^13 - a*q^15 + (a - 1)*q^16 - 
        q^19 + (-a + 1)*q^28 + (a - 1)*q^31 + q^33 - q^36 + (a - 1)*q^37 + (a - 
        1)*q^49 - a*q^51 + q^52 + (-a + 1)*q^55 + (a - 1)*q^60 + q^61 + q^63 + 
        q^64 + (a - 1)*q^69 + (-a + 1)*q^73 + a*q^76 + q^79 - a*q^81 - q^85 - 
        2*a*q^87 - q^91 - a*q^103 + (-a + 1)*q^105 + q^109 - q^112 + a*q^115 + 
        a*q^117 + q^123 + q^124 + a*q^127 - a*q^132 - a*q^133 - q^135 - a*q^139 
        + (a - 1)*q^141 + a*q^144 - 2*q^145 + q^148 - q^157 + a*q^159 + (a - 
        1)*q^171 + a*q^177 + (-a + 1)*q^181 + (-a + 1)*q^187 + (a - 1)*q^193 + 
        q^195 + O(q^196),
    q^3 + (-a + 1)*q^5 + a*q^11 - a*q^12 + (-a + 1)*q^17 - q^20 + a*q^21 - q^23 
        + (-a + 1)*q^27 + (-2*a + 2)*q^29 + q^35 + (a - 1)*q^39 + a*q^41 + (-a +
        1)*q^44 - a*q^45 - q^47 + (a - 1)*q^48 + (a - 1)*q^53 - q^57 + (a - 
        1)*q^59 + a*q^65 - q^68 + a*q^71 + (a - 1)*q^77 + a*q^80 - q^83 + (-a + 
        1)*q^84 + a*q^92 + (a - 1)*q^93 + (a - 1)*q^95 + q^99 - a*q^101 + (-a + 
        1)*q^107 - q^108 + (a - 1)*q^111 + q^113 - 2*q^116 + q^119 + (-a + 
        1)*q^125 - a*q^137 - a*q^140 - q^143 + (a - 1)*q^147 - q^149 - a*q^153 +
        a*q^155 + q^156 - a*q^161 + (-a + 1)*q^164 + (-a + 1)*q^165 - a*q^167 - 
        q^176 + a*q^179 + (a - 1)*q^180 + q^183 + a*q^185 + a*q^188 + q^189 - 
        q^191 + q^192 + O(q^196)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.2 + 12*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 18*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^10 - q^12 + q^30 + q^34 - q^46 + q^48 - q^49 + q^58 - q^64 - 
        q^67 - q^73 - q^75 + q^81 - q^85 - q^90 + q^100 - q^102 - q^108 + q^111 
        + q^115 + q^118 + q^121 + 2*q^127 + q^138 - q^139 - q^145 - q^148 - 
        q^157 + q^160 + q^169 - q^174 - q^178 - q^181 + O(q^196),
    q^2 - q^5 - q^6 + q^15 + q^17 + q^18 - q^20 - q^23 + q^29 - q^32 - q^45 + 
        q^50 - q^51 - q^54 + q^59 + q^60 + q^68 + q^69 - q^74 + q^80 - q^87 - 
        q^89 - q^92 + q^96 - q^98 - q^113 + q^116 + q^131 + q^135 - q^150 + 
        q^153 + q^162 + q^167 - 2*q^170 - q^177 - q^179 - q^180 + q^185 + q^191 
        + O(q^196),
    q^3 - q^4 + q^10 + q^16 - q^25 + q^27 - q^30 - q^34 - q^36 + q^37 + q^46 - 
        q^58 - q^67 - q^73 + q^85 + q^90 + q^102 - q^115 - q^118 - q^138 - q^139
        + q^144 + q^145 - q^147 + 2*q^151 - q^157 - q^160 + q^174 + q^178 - 
        q^181 - q^192 + O(q^196),
    q^7 - q^49 + q^63 - q^70 - q^84 - q^147 + O(q^196),
    q^14 - q^35 - q^42 + q^105 + q^119 + q^126 - q^140 - q^161 + O(q^196),
    q^21 - q^28 - q^49 + q^70 + q^112 - q^147 - q^175 + q^189 + O(q^196)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
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(
6
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 2*H.2 + 18*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^9 + a*q^10 + a*q^12 + (-a + 1)*q^21 + (-2*a + 1)*q^25 + q^28 +
        q^30 + (a - 1)*q^34 + (a - 2)*q^40 - q^46 - a*q^48 - a*q^58 + a*q^64 - 
        q^67 + a*q^70 + (-a + 1)*q^73 - q^75 - a*q^81 + (-a + 1)*q^85 - q^90 - 
        a*q^100 + (-a + 1)*q^102 - q^108 + q^111 + (-a + 1)*q^112 + (a - 
        1)*q^115 - a*q^118 + (a - 1)*q^121 - q^127 + (a - 1)*q^138 - q^139 + 
        a*q^145 - a*q^147 + (-a + 1)*q^148 + a*q^157 + (a - 1)*q^160 + q^169 + 
        a*q^174 - a*q^175 + (-a + 1)*q^178 + (-a + 1)*q^181 + (a + 1)*q^184 + 
        a*q^189 + O(q^196),
    q^2 - a*q^8 + q^15 + q^17 + (a - 1)*q^18 - a*q^20 - a*q^24 + (a - 1)*q^29 + 
        (a - 1)*q^32 + (a - 1)*q^35 + (a - 1)*q^42 - q^50 + q^56 - a*q^59 + (-a 
        + 1)*q^60 - q^68 - a*q^69 + q^72 + (2*a - 1)*q^80 + q^92 - q^96 + (-a + 
        1)*q^116 + q^125 + (-a + 1)*q^128 + q^131 + q^134 + (a - 1)*q^135 + (-a 
        + 1)*q^140 + (a - 1)*q^146 + q^150 + (a - 1)*q^153 - a*q^161 - a*q^162 -
        a*q^167 + q^168 + (a - 1)*q^170 + q^180 - a*q^185 - a*q^191 + O(q^196),
    q^3 - q^10 - a*q^12 + a*q^16 + (a - 1)*q^27 - a*q^28 - a*q^37 + a*q^40 + 
        2*q^46 + (a - 1)*q^48 + (a - 1)*q^49 + (-a + 1)*q^64 - a*q^70 - a*q^75 +
        q^84 + (-a + 1)*q^85 + (-a + 1)*q^90 + a*q^100 - q^102 + q^108 + (a - 
        1)*q^112 + (2*a - 2)*q^120 - q^136 - q^144 + a*q^145 + (a - 1)*q^148 - 
        q^151 + (-a + 1)*q^160 + (-a + 1)*q^174 + q^175 - q^178 - 2*a*q^184 + 
        q^192 + O(q^196),
    q^4 + q^10 + q^12 - a*q^16 - a*q^21 - a*q^25 + q^30 + q^34 + (a - 1)*q^36 - 
        q^40 + (a - 1)*q^46 - a*q^48 + (a - 1)*q^58 + a*q^64 + (a - 1)*q^67 + 
        a*q^70 - a*q^73 + (a - 1)*q^75 + (a - 1)*q^84 - a*q^85 + (a - 1)*q^90 - 
        q^100 - a*q^102 + (a - 1)*q^108 + (-a + 1)*q^112 + (a - 1)*q^115 - 
        a*q^118 + (-a + 1)*q^120 - q^136 - a*q^138 + (a - 1)*q^139 + q^144 + 
        q^145 - a*q^148 + q^157 + (2*a - 1)*q^160 + q^174 - a*q^178 - a*q^181 + 
        2*q^184 + q^189 - q^192 + O(q^196),
    q^5 - a*q^8 + q^15 + a*q^17 - a*q^24 - q^29 + (a - 1)*q^42 + (a - 1)*q^45 + 
        (a - 1)*q^50 - q^51 - a*q^59 - q^68 + q^72 + a*q^80 + (-a + 1)*q^87 - 
        q^89 + q^92 + (-a + 1)*q^105 + a*q^113 + (-a + 1)*q^116 + q^119 + (-a + 
        1)*q^125 + (-a + 1)*q^128 + q^134 + (a - 1)*q^135 + (-a + 1)*q^140 + (a 
        - 1)*q^146 + q^150 - q^153 - a*q^161 + (a - 1)*q^170 + q^177 + (a - 
        1)*q^179 - a*q^185 + (-a + 1)*q^191 + O(q^196),
    q^6 - q^15 - a*q^17 - q^20 + (a - 1)*q^23 + q^29 + a*q^32 + q^35 + (-a + 
        1)*q^51 + (a - 1)*q^54 - a*q^56 + a*q^59 - a*q^60 + (-a + 1)*q^68 - 
        a*q^74 + a*q^87 + (-a + 1)*q^89 + q^92 + (a - 1)*q^96 + (a - 1)*q^98 + 
        (a - 1)*q^105 - q^113 + a*q^116 - q^119 - q^125 + (-a + 1)*q^135 - 
        a*q^150 + q^153 + q^168 + (-a + 1)*q^170 + (-a + 1)*q^180 + a*q^185 + (a
        - 1)*q^191 + O(q^196),
    q^7 + (-2*a + 1)*q^12 - q^21 + (-a - 1)*q^25 - a*q^28 + (-2*a + 1)*q^30 + 
        (-a + 2)*q^34 + (2*a - 1)*q^40 + (a + 1)*q^46 + (a - 2)*q^48 + (2*a - 
        1)*q^58 + (a - 1)*q^63 + (-a + 2)*q^64 + (a + 1)*q^67 + q^70 + (-a - 
        1)*q^73 + (2*a - 1)*q^75 + a*q^84 + (a - 2)*q^85 + (2*a - 1)*q^100 + (-a
        - 1)*q^102 + (a + 1)*q^108 - q^112 + (a + 1)*q^115 + (a - 2)*q^118 + 
        (-2*a + 1)*q^145 + (a - 2)*q^148 + (-a + 2)*q^160 + (-a + 2)*q^174 - 
        a*q^175 + (-a - 1)*q^178 + (a - 2)*q^181 + (-4*a + 2)*q^184 + (-a + 
        1)*q^189 + O(q^196),
    q^14 + (a + 1)*q^15 + (2*a - 1)*q^17 + (-2*a + 1)*q^24 + (-a - 1)*q^29 - 
        q^35 - q^42 + (-a - 1)*q^50 + (-2*a + 1)*q^59 + (2*a - 1)*q^80 + (a + 
        1)*q^92 + q^105 + q^119 + (a + 1)*q^125 + (a - 1)*q^126 + (-a + 2)*q^128
        + (a + 1)*q^134 + (a - 2)*q^135 + (-a + 1)*q^140 + (-a - 1)*q^146 + (2*a
        - 1)*q^150 + (-a - 1)*q^153 + (-a + 1)*q^161 + (a - 2)*q^170 + (-2*a + 
        1)*q^185 + (-a + 2)*q^191 + O(q^196)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
777
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.2 + 18*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^7 + q^9 - 2*q^11 + q^16 - q^25 - q^28 + q^36 - q^37 - 2*q^44 + 
        q^49 - 2*q^53 - q^63 + q^64 + 2*q^67 + 2*q^71 + 2*q^77 + q^81 - 2*q^99 -
        q^100 + 2*q^107 - q^112 + 3*q^121 - 2*q^127 + 2*q^137 + q^144 - q^148 - 
        2*q^149 - 2*q^151 - q^169 + q^175 - 2*q^176 + O(q^196),
    q^3 + q^12 - q^21 + q^27 - 2*q^33 + q^48 - q^75 - q^84 + q^108 - q^111 - 
        2*q^132 + q^147 - 2*q^159 - q^189 + q^192 + O(q^196)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
778
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
388
);
qprec:=
193
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
778
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
97*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
193
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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(
120
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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(
72
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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(
24
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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(
30
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^3 - a^2 + a)*q^4 + a^2*q^5 + (-a^2 + a - 1)*q^6 + (a^3 - a^2 + a - 
        1)*q^7 + (-a + 1)*q^17 + (-a^3 + a^2 - a + 1)*q^19 + (a^2 - a)*q^20 + 
        (-a^2 + a - 1)*q^23 - a^3*q^24 + (-a^3 + 2*a^2 - a)*q^26 + (-a^2 + a - 
        1)*q^28 + (-a + 1)*q^30 - a*q^35 + (a^2 - a + 1)*q^39 + (-a^3 + 
        a^2)*q^42 + (-a^2 - 1)*q^47 + (-a^2 + a - 1)*q^54 + (a - 1)*q^58 + (a^2 
        - a)*q^61 + (a^2 - a + 1)*q^64 + (a^3 - a^2 + 1)*q^68 - q^73 + (a^3 - a 
        + 1)*q^74 + (a^2 - a + 1)*q^76 - q^81 + (a^3 - a^2)*q^82 + q^83 + (-a^3 
        + a^2)*q^85 + a^2*q^87 + (-a^3 + a - 1)*q^92 + a*q^95 + q^96 + (a^3 - 
        2*a^2 + 2*a - 1)*q^102 + (a^2 - a)*q^104 - a^3*q^106 + (a^3 - a^2 + 
        a)*q^111 + (a^3 - a^2)*q^114 + (-a + 1)*q^115 + (-a^3 + a^2 - a)*q^118 +
        (a^3 - a^2 + a)*q^119 + q^120 + a*q^121 + (a^3 - a^2 + a - 1)*q^123 + 
        a*q^125 + (a^3 - 2*a^2 + 2*a - 1)*q^130 - a^3*q^131 + a^3*q^133 + (a - 
        1)*q^134 + O(q^138),
    q^2 + (-a^3 + 1)*q^3 + (a^3 + a)*q^8 + a^2*q^10 + a*q^12 - q^13 + (a^3 - a^2
        + a - 1)*q^14 + (a^2 + 1)*q^15 + (a^3 + a - 1)*q^21 + (-a^3 + 1)*q^27 + 
        (-a^2 - 1)*q^29 + (a^3 - 1)*q^32 + (-a + 1)*q^34 - a*q^37 + (-a^3 + a^2 
        - a + 1)*q^38 + (a^3 - 1)*q^40 + (-a^3 - a + 1)*q^41 + (-a^2 + a - 
        1)*q^46 - a^2*q^51 + (-a^3 + a^2 - a)*q^52 + (a^2 + a + 1)*q^53 + (-a^2 
        - 1)*q^56 + (-a^3 - a + 1)*q^57 + (-a^3 + a^2 + 1)*q^59 + a^3*q^60 - 
        a^2*q^65 + (-a^2 - 1)*q^67 - q^69 - a*q^70 + (a^3 + a)*q^71 + (a^2 - a +
        1)*q^78 + (-2*a^3 + a^2 - a + 2)*q^79 - q^84 + (a^3 + a - 1)*q^89 + 
        (-a^3 + a^2 - a + 1)*q^91 + (-a^2 - 1)*q^94 + (-a^2 - 1)*q^97 + (a^3 - 
        a^2 - 1)*q^105 + a*q^108 + (2*a^3 - a^2 + a - 2)*q^109 - a^3*q^116 + 
        (a^2 - a)*q^122 + (-a^2 - a - 1)*q^127 - a*q^128 + (a^2 + 1)*q^135 + 
        q^136 + O(q^138)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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(
4
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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(
18
);
qprec:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
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:=
138
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
779
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 20*H.2
;
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^39 - q^45 + q^49 + q^64 - q^73 - q^83 - q^87 - 
        q^92 - q^115 + q^121 - q^125 - q^131 + O(q^138),
    q^3 + q^12 - 2*q^15 - q^19 + q^27 - q^41 + q^48 - 2*q^53 - 2*q^60 + q^65 + 
        q^67 + q^69 + 2*q^75 - q^76 + q^79 + q^89 + q^95 - 2*q^97 + q^108 + 
        q^109 - q^117 - 2*q^129 - q^135 + O(q^138),
    q^5 - q^9 + q^20 - q^23 - q^25 - q^36 + q^43 + q^45 + q^57 + q^61 - q^73 + 
        q^80 - q^83 - q^92 - q^100 + q^123 - q^131 + O(q^138),
    q^13 - q^15 - q^19 + q^27 + q^29 - q^41 + q^52 - 2*q^53 - q^60 + q^65 + q^69
        + q^71 + q^75 - q^76 - 2*q^97 + q^108 + q^116 - q^117 - q^129 + O(q^138)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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(
4
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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(
12
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^2*q^2 + (a^2 - 1)*q^4 + (a^3 - a)*q^5 - q^8 + a*q^9 - a*q^10 + (-a^3 +
        a)*q^13 - a^2*q^16 + (-a^3 - a^2)*q^17 + a^3*q^18 - a^3*q^20 + (-a^2 + 
        1)*q^25 + a*q^26 + (a^3 - a)*q^29 + (-a^2 + 1)*q^32 + (-a^3 - a^2 + a + 
        1)*q^34 + (a^3 - a)*q^36 + (a^2 - 2)*q^37 + (-a^3 + a)*q^40 + (a^3 - a^2
        + 1)*q^41 - q^45 + a^2*q^49 + q^50 + a^3*q^52 + (a^2 - a)*q^53 - a*q^58 
        + (-2*a^3 + a)*q^61 + q^64 + (a^2 - 1)*q^65 + (a + 1)*q^68 - a*q^72 - 
        q^73 + (-a^2 - 1)*q^74 + a*q^80 + a^2*q^81 + (a^3 - a + 1)*q^82 + (a^2 +
        a)*q^85 + (a^3 - a^2 - a)*q^89 - a^2*q^90 + (a^2 - 1)*q^98 + a^2*q^100 +
        (a^2 - 2)*q^101 + (a^3 - a)*q^104 + (-a^3 + a^2 - 1)*q^106 + (-a^3 - 
        1)*q^109 + (a^3 - a + 1)*q^113 - a^3*q^116 + q^117 - a*q^121 + (-a^3 + 
        2*a)*q^122 + a^3*q^125 + a^2*q^128 - q^130 + (a^3 + a^2)*q^136 + a*q^137
        - a^3*q^144 + (-a^2 + 1)*q^145 - a^2*q^146 + (-2*a^2 + 1)*q^148 + (-a^3 
        + a + 1)*q^149 + (-a^3 - a^2 + 1)*q^153 + (a^3 - a^2 - a + 1)*q^157 + 
        a^3*q^160 + (a^2 - 1)*q^162 + (a^2 - a)*q^164 + (-a^2 + 1)*q^169 + (a^3 
        + a^2 - 1)*q^170 + (-a^2 + a + 1)*q^173 + (-a^2 - a + 1)*q^178 + (-a^2 +
        1)*q^180 + a^3*q^181 + (-2*a^3 + a)*q^185 + (a^3 + a)*q^193 - q^196 + 
        (a^2 - 1)*q^200 + (-a^2 - 1)*q^202 + (a^3 - a^2)*q^205 - a*q^208 + (-a^3
        + a - 1)*q^212 + (-a^3 - a^2 + a)*q^218 + (-a^2 - a)*q^221 + (-a^3 + 
        a)*q^225 + (a^2 - a)*q^226 + (-a^3 + 1)*q^229 + (-a^3 + a)*q^232 + (-a^3
        - 1)*q^233 + a^2*q^234 + (a^3 - a - 1)*q^241 - a^3*q^242 + (a^3 + 
        a)*q^244 - a*q^245 + (a^3 - a)*q^250 + (a^2 - 1)*q^256 + (a + 1)*q^257 -
        a^2*q^260 - q^261 + (-a + 1)*q^265 + (a^3 + a^2 - a - 1)*q^272 + 
        a^3*q^274 + (a^3 + a^2)*q^277 + (a^2 + a)*q^281 + (-a^3 + a)*q^288 + 
        (a^3 + a^2 - a - 2)*q^289 + q^290 + (-a^2 + 1)*q^292 + (-a^2 + 1)*q^293 
        + (-a^2 + 2)*q^296 + (a^2 + a)*q^298 + (2*a^2 - 1)*q^305 + (-a^3 + a + 
        1)*q^306 + (a^3 - 1)*q^313 + O(q^314),
    q^3 + a^2*q^6 + (a^2 - 1)*q^12 + (a^3 - a)*q^15 - q^24 + a*q^27 - a*q^30 + 
        (-a^3 + a)*q^39 - a^2*q^48 + (-a^3 - a^2)*q^51 + a^3*q^54 - a^3*q^60 + 
        (-a^2 + 1)*q^75 + a*q^78 + (a^3 - a)*q^87 + (-a^2 + 1)*q^96 + (-a^3 - 
        a^2 + a + 1)*q^102 + (a^3 - a)*q^108 + (a^2 - 2)*q^111 + (-a^3 + 
        a)*q^120 + (a^3 - a^2 + 1)*q^123 - q^135 + a^2*q^147 + q^150 + a^3*q^156
        + (a^2 - a)*q^159 - a*q^174 + (-2*a^3 + a)*q^183 + q^192 + (a^2 - 
        1)*q^195 + (a + 1)*q^204 - a*q^216 - q^219 + (-a^2 - 1)*q^222 + a*q^240 
        + a^2*q^243 + (a^3 - a + 1)*q^246 + (a^2 + a)*q^255 + (a^3 - a^2 - 
        a)*q^267 - a^2*q^270 + (a^2 - 1)*q^294 + a^2*q^300 + (a^2 - 2)*q^303 + 
        (a^3 - a)*q^312 + O(q^314)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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(
12
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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(
12
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^3 + a)*q^2 + (-a^2 + 1)*q^4 + (a^2 - 1)*q^5 - a^3*q^8 - a*q^9 + 
        a^3*q^10 + a^2*q^13 - a^2*q^16 + (a^3 - a - 1)*q^17 - q^18 + a^2*q^20 - 
        a^2*q^25 + a*q^26 + (-a^3 + a)*q^29 - a*q^32 + (a^3 + a^2 - a - 1)*q^34 
        + (a^3 - a)*q^36 + (a^3 + a)*q^37 + a*q^40 + (a^3 - a^2 + 1)*q^41 + 
        (-a^3 + a)*q^45 - a^2*q^49 - a*q^50 + q^52 + (a^3 - a^2 - a + 1)*q^53 + 
        (-a^2 + 1)*q^58 + (-2*a^3 + a)*q^61 - q^64 - q^65 + (a^3 + a^2 - 1)*q^68
        + (a^2 - 1)*q^72 - a^3*q^73 + (a^2 + 1)*q^74 + q^80 + a^2*q^81 + (-a^3 +
        a^2)*q^82 + (-a^3 - a^2 + 1)*q^85 + (-a^3 + a^2 + a)*q^89 + (-a^2 + 
        1)*q^90 - a*q^98 - q^100 + (a^2 - 2)*q^101 + (-a^3 + a)*q^104 + (-a^3 + 
        a^2 - 1)*q^106 + (a^3 + 1)*q^109 + (a^3 - a^2)*q^113 - a^3*q^116 - 
        a^3*q^117 - a*q^121 + (-2*a^2 + 1)*q^122 + q^125 + (a^3 - a)*q^128 + 
        (a^3 - a)*q^130 + (a^3 + a^2)*q^136 + (-a^2 + 1)*q^137 + a^3*q^144 + 
        a^3*q^145 - a^2*q^146 + (-a^3 + 2*a)*q^148 + (a^3 - a - 1)*q^149 + (a + 
        1)*q^153 + (a^2 - a)*q^157 + (-a^3 + a)*q^160 + a*q^162 + (-a^2 + 
        a)*q^164 + (a^2 - 1)*q^169 + (-a^3 - a^2)*q^170 + (a^2 + a - 1)*q^173 + 
        (-a^2 + a + 1)*q^178 - a^3*q^180 + a^3*q^181 + (a^3 - 2*a)*q^185 + (a^2 
        - 2)*q^193 - q^196 + (a^3 - a)*q^200 + (2*a^3 - a)*q^202 + (a^2 - 
        a)*q^205 + (-a^2 + 1)*q^208 + (a^3 - a^2)*q^212 + (-a^3 + a^2 + a)*q^218
        + (-a^2 - a)*q^221 + a^3*q^225 + (a^2 - a)*q^226 + (a^3 - 1)*q^229 - 
        a^2*q^232 + (-a^3 + 1)*q^233 - a^2*q^234 + (a^3 - a - 1)*q^241 - q^242 +
        (-a^3 - a)*q^244 + q^245 + (-a^3 + a)*q^250 + (a^2 - 1)*q^256 + (-a^3 - 
        a^2 + 1)*q^257 + (a^2 - 1)*q^260 - q^261 + (-a^3 + a^2)*q^265 + (a^2 + 
        a)*q^272 - a^3*q^274 + (-a^3 + a + 1)*q^277 + (a^2 + a)*q^281 + 
        a^2*q^288 + (-a^3 - a^2 + a + 2)*q^289 + a^2*q^290 - a*q^292 + a*q^293 +
        (-a^2 + 2)*q^296 + (a^3 + a^2 - a - 1)*q^298 + (a^3 + a)*q^305 + (-a^3 +
        a + 1)*q^306 + (-a^3 - 1)*q^313 + O(q^314),
    q^3 + (-a^3 + a)*q^6 + (-a^2 + 1)*q^12 + (a^2 - 1)*q^15 - a^3*q^24 - a*q^27 
        + a^3*q^30 + a^2*q^39 - a^2*q^48 + (a^3 - a - 1)*q^51 - q^54 + a^2*q^60 
        - a^2*q^75 + a*q^78 + (-a^3 + a)*q^87 - a*q^96 + (a^3 + a^2 - a - 
        1)*q^102 + (a^3 - a)*q^108 + (a^3 + a)*q^111 + a*q^120 + (a^3 - a^2 + 
        1)*q^123 + (-a^3 + a)*q^135 - a^2*q^147 - a*q^150 + q^156 + (a^3 - a^2 -
        a + 1)*q^159 + (-a^2 + 1)*q^174 + (-2*a^3 + a)*q^183 - q^192 - q^195 + 
        (a^3 + a^2 - 1)*q^204 + (a^2 - 1)*q^216 - a^3*q^219 + (a^2 + 1)*q^222 + 
        q^240 + a^2*q^243 + (-a^3 + a^2)*q^246 + (-a^3 - a^2 + 1)*q^255 + (-a^3 
        + a^2 + a)*q^267 + (-a^2 + 1)*q^270 - a*q^294 - q^300 + (a^2 - 2)*q^303 
        + (-a^3 + a)*q^312 + O(q^314)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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(
12
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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(
6
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^3 + (a - 2)*q^7 - a*q^9 + a*q^13 + (2*a - 1)*q^21 - q^25 - 
        q^27 + (-2*a + 1)*q^31 + q^39 + a*q^43 + (-2*a + 2)*q^49 - a*q^61 + (a +
        1)*q^63 + (a + 1)*q^67 + (-2*a + 1)*q^73 + (a - 1)*q^75 + q^79 + (a - 
        1)*q^81 + (-a - 1)*q^91 + (-a - 1)*q^93 + (a - 2)*q^97 - q^103 + (2*a - 
        1)*q^109 + (-a + 1)*q^117 + a*q^121 + (a - 1)*q^127 + q^129 + a*q^139 - 
        2*a*q^147 - q^157 + (-a + 2)*q^163 + (a - 1)*q^169 + (-a + 2)*q^175 + 
        2*q^181 - q^183 + (-a + 2)*q^189 + (-a - 1)*q^193 - a*q^199 + (-a + 
        2)*q^201 + (a - 1)*q^211 + 3*a*q^217 + (-a - 1)*q^219 + a*q^225 + (-a + 
        1)*q^237 + a*q^243 + (-a - 1)*q^271 + (a - 2)*q^273 - 2*a*q^277 + (a - 
        2)*q^279 + (a - 1)*q^283 + (a - 1)*q^289 + (2*a - 1)*q^291 + (-a - 
        1)*q^301 + (-2*a + 1)*q^307 + (a - 1)*q^309 + q^313 + O(q^314),
    q^5 + (-a + 1)*q^15 + (a - 2)*q^35 - a*q^45 + a*q^65 + (2*a - 1)*q^105 - 
        q^125 - q^135 + (-2*a + 1)*q^155 + q^195 + a*q^215 + (-2*a + 2)*q^245 - 
        a*q^305 + O(q^314)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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(
12
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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(
12
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + 1/2*(-2*a + 1)*q^5 + a*q^9 + 1/2*(a - 1)*q^10 + (a - 1)*q^16 + 
        1/2*(a - 2)*q^20 - 1/2*q^25 + a*q^26 + (a - 1)*q^29 + (-2*a + 1)*q^34 + 
        (-a + 1)*q^36 + 1/2*q^40 + (-a - 1)*q^41 + 1/2*(-a + 2)*q^45 + (a - 
        1)*q^49 + 1/2*(a + 1)*q^50 - a*q^61 + q^64 + 1/2*(-a + 1)*q^65 + a*q^74 
        + 1/2*(a + 1)*q^80 + (a - 1)*q^81 + 1/2*(a - 2)*q^85 - 1/2*q^90 + 
        1/2*a*q^100 + (-a + 1)*q^101 + (-a + 1)*q^104 + (-a - 1)*q^106 + q^116 +
        a*q^121 + 1/2*(-a + 2)*q^130 + (a - 2)*q^136 - q^144 + 1/2*(a + 1)*q^145
        + (-a + 1)*q^146 + (-a + 2)*q^149 - 1/2*a*q^160 + (2*a - 1)*q^164 - 
        a*q^169 - 3/2*q^170 + 1/2*(-a - 1)*q^180 + q^181 + 1/2*(-a + 1)*q^185 - 
        2*q^194 + q^196 + 1/2*(-2*a + 1)*q^200 + 1/2*(3*a - 3)*q^205 + (2*a - 
        1)*q^221 - 1/2*a*q^225 + (2*a - 1)*q^226 + (a - 1)*q^234 + (-a + 
        2)*q^241 + (a - 1)*q^244 + 1/2*(a + 1)*q^245 + (-a + 1)*q^250 - a*q^256 
        - 1/2*q^260 - q^261 + 1/2*(2*a - 1)*q^265 - 2*a*q^269 + q^274 + (2*a - 
        1)*q^281 + (-2*a + 2)*q^289 - 1/2*a*q^290 + (-a + 1)*q^296 + 1/2*(a - 
        2)*q^305 + (-a + 2)*q^306 + O(q^314),
    q^2 - 1/2*a*q^5 - a*q^8 + 1/2*(-2*a + 1)*q^10 - q^13 + (a + 1)*q^17 + a*q^18
        + 1/2*(a - 1)*q^20 + 1/2*(a - 2)*q^25 + (a - 1)*q^32 - q^37 + 1/2*(a - 
        2)*q^40 + 1/2*(-a + 1)*q^45 - 1/2*q^50 + a*q^52 + (-a + 2)*q^53 + (a - 
        1)*q^58 + 1/2*(2*a - 1)*q^65 + (-2*a + 1)*q^68 + (-a + 1)*q^72 + a*q^73 
        + 1/2*q^80 + (-a - 1)*q^82 + 1/2*(-3*a + 3)*q^85 + 1/2*(-a + 2)*q^90 + 
        (-2*a + 2)*q^97 + (a - 1)*q^98 + 1/2*(a + 1)*q^100 + (-a - 1)*q^113 - 
        a*q^117 - a*q^122 + a*q^125 + q^128 + 1/2*(-a + 1)*q^130 + (a - 1)*q^137
        + 1/2*q^145 + a*q^148 + (2*a - 1)*q^153 + (a - 2)*q^157 + 1/2*(a + 
        1)*q^160 + (a - 1)*q^162 + 1/2*(a - 2)*q^170 - 1/2*q^180 + 1/2*(2*a - 
        1)*q^185 + q^193 - 2*q^197 + 1/2*a*q^200 + (-a + 1)*q^202 + 1/2*(2*a - 
        1)*q^205 + (-a + 1)*q^208 + (-a - 1)*q^212 + 1/2*(-a - 1)*q^225 + q^232 
        + a*q^242 + 1/2*q^245 + (-2*a + 1)*q^257 + 1/2*(-a + 2)*q^260 - 
        3/2*a*q^265 + (a - 2)*q^272 + (a + 1)*q^277 - q^288 + 1/2*(a + 1)*q^290 
        + (-a + 1)*q^292 + (-a + 1)*q^293 + (-a + 2)*q^298 + 1/2*(a - 1)*q^305 +
        O(q^314),
    q^3 - a*q^12 + 1/2*(-2*a + 1)*q^15 + a*q^27 + 1/2*(a - 1)*q^30 + (a - 
        1)*q^48 + 1/2*(a - 2)*q^60 - 1/2*q^75 + a*q^78 + (a - 1)*q^87 + (-2*a + 
        1)*q^102 + (-a + 1)*q^108 + 1/2*q^120 + (-a - 1)*q^123 + 1/2*(-a + 
        2)*q^135 + (a - 1)*q^147 + 1/2*(a + 1)*q^150 - a*q^183 + q^192 + 1/2*(-a
        + 1)*q^195 + a*q^222 + 1/2*(a + 1)*q^240 + (a - 1)*q^243 + 1/2*(a - 
        2)*q^255 - 1/2*q^270 + 1/2*a*q^300 + (-a + 1)*q^303 + (-a + 1)*q^312 + 
        O(q^314),
    q^6 - 1/2*a*q^15 - a*q^24 + 1/2*(-2*a + 1)*q^30 - q^39 + (a + 1)*q^51 + 
        a*q^54 + 1/2*(a - 1)*q^60 + 1/2*(a - 2)*q^75 + (a - 1)*q^96 - q^111 + 
        1/2*(a - 2)*q^120 + 1/2*(-a + 1)*q^135 - 1/2*q^150 + a*q^156 + (-a + 
        2)*q^159 + (a - 1)*q^174 + 1/2*(2*a - 1)*q^195 + (-2*a + 1)*q^204 + (-a 
        + 1)*q^216 + a*q^219 + 1/2*q^240 + (-a - 1)*q^246 + 1/2*(-3*a + 3)*q^255
        + 1/2*(-a + 2)*q^270 + (-2*a + 2)*q^291 + (a - 1)*q^294 + 1/2*(a + 
        1)*q^300 + O(q^314)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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(
6
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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(
4
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 - q^4 + q^5 + a*q^8 - a*q^9 - a*q^10 - q^13 + q^16 + (a - 1)*q^17 
        - q^18 - q^20 + q^25 + a*q^26 + 2*a*q^29 - a*q^32 + (a + 1)*q^34 + 
        a*q^36 + a*q^40 + (-a - 1)*q^41 - a*q^45 + q^49 - a*q^50 + q^52 + (a - 
        1)*q^53 + 2*q^58 - q^64 - q^65 + (-a + 1)*q^68 + q^72 - 2*a*q^73 + q^80 
        - q^81 + (a - 1)*q^82 + (a - 1)*q^85 + (-a - 1)*q^89 - q^90 - a*q^98 - 
        q^100 - a*q^104 + (a + 1)*q^106 + (-a + 1)*q^109 + (-a + 1)*q^113 - 
        2*a*q^116 + a*q^117 - a*q^121 + q^125 + a*q^128 + a*q^130 + (-a - 
        1)*q^136 + 2*q^137 - a*q^144 + 2*a*q^145 - 2*q^146 + (a - 1)*q^149 + (a 
        + 1)*q^153 + (-a - 1)*q^157 - a*q^160 + a*q^162 + (a + 1)*q^164 + q^169 
        + (a + 1)*q^170 + (a + 1)*q^173 + (a - 1)*q^178 + a*q^180 + 2*a*q^181 - 
        q^196 + a*q^200 + (-a - 1)*q^205 - q^208 + (-a + 1)*q^212 + (-a - 
        1)*q^218 + (-a + 1)*q^221 - a*q^225 + (-a - 1)*q^226 + (-a - 1)*q^229 - 
        2*q^232 + (a + 1)*q^233 + q^234 + (a - 1)*q^241 - q^242 + q^245 - 
        a*q^250 + q^256 + (a - 1)*q^257 + q^260 + 2*q^261 + (a - 1)*q^265 + (a -
        1)*q^272 - 2*a*q^274 + (-a + 1)*q^277 + (a - 1)*q^281 - q^288 - a*q^289 
        + 2*q^290 + 2*a*q^292 - 2*a*q^293 + (a + 1)*q^298 + (-a + 1)*q^306 + (a 
        - 1)*q^313 + O(q^314),
    q^3 - a*q^6 - q^12 + q^15 + a*q^24 - a*q^27 - a*q^30 - q^39 + q^48 + (a - 
        1)*q^51 - q^54 - q^60 + q^75 + a*q^78 + 2*a*q^87 - a*q^96 + (a + 
        1)*q^102 + a*q^108 + a*q^120 + (-a - 1)*q^123 - a*q^135 + q^147 - 
        a*q^150 + q^156 + (a - 1)*q^159 + 2*q^174 - q^192 - q^195 + (-a + 
        1)*q^204 + q^216 - 2*a*q^219 + q^240 - q^243 + (a - 1)*q^246 + (a - 
        1)*q^255 + (-a - 1)*q^267 - q^270 - a*q^294 - q^300 - a*q^312 + O(q^314)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^7 + a*q^9 - q^13 + q^15 - a*q^25 + (a + 1)*q^31 - a*q^33 - q^37 + (a +
        1)*q^43 - a*q^51 - q^55 - q^61 + a*q^63 - q^69 - a*q^79 - q^81 - q^85 + 
        (-a - 1)*q^87 - q^91 + a*q^97 + (-a - 1)*q^103 + q^105 + (-a + 1)*q^109 
        + a*q^115 - a*q^117 + q^123 + a*q^135 - a*q^139 + (a - 1)*q^141 + (a - 
        1)*q^145 + a*q^159 - a*q^163 + q^169 - a*q^175 - a*q^181 + a*q^187 + 
        a*q^193 - q^195 - a*q^205 + q^213 + (a + 1)*q^217 + q^225 - a*q^231 + (a
        + 1)*q^235 + (-a + 1)*q^241 + q^253 - q^259 + q^265 + q^267 + (a - 
        1)*q^277 + (a - 1)*q^279 + q^297 + (a + 1)*q^301 + q^307 + O(q^314),
    q^3 - a*q^5 - q^11 - q^17 + q^21 + a*q^23 + a*q^27 + (a - 1)*q^29 - a*q^35 -
        q^39 - a*q^41 + q^45 + (a + 1)*q^47 + q^53 + a*q^65 - a*q^71 - a*q^75 - 
        q^77 - a*q^89 + (a + 1)*q^93 - a*q^99 - a*q^107 - q^111 - q^119 - q^125 
        + (a + 1)*q^129 + q^143 - q^149 - a*q^153 + (-a + 1)*q^155 + a*q^161 - 
        q^165 + (a + 1)*q^167 + (a + 1)*q^179 - q^183 + a*q^185 + a*q^189 + (a +
        1)*q^191 + (a - 1)*q^203 - q^207 + (-a + 1)*q^215 + q^221 - a*q^233 - 
        a*q^237 + q^239 - q^243 - q^255 + (-a - 1)*q^261 + (-a + 1)*q^269 - 
        q^273 + a*q^275 - a*q^287 + a*q^291 + (-a + 1)*q^293 - a*q^299 + a*q^305
        + (-a - 1)*q^309 + (a - 1)*q^311 + O(q^314)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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(
4
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 2*H.3 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^2 + q^4 + a*q^5 - q^8 + a*q^9 - a*q^10 - a*q^13 + q^16 + (a + 1)*q^17 
        - a*q^18 + a*q^20 - q^25 + a*q^26 - 2*a*q^29 - q^32 + (-a - 1)*q^34 + 
        a*q^36 - a*q^40 + (-a - 1)*q^41 - q^45 - q^49 + q^50 - a*q^52 + (-a - 
        1)*q^53 + 2*a*q^58 + q^64 + q^65 + (a + 1)*q^68 - a*q^72 + 2*q^73 + 
        a*q^80 - q^81 + (a + 1)*q^82 + (a - 1)*q^85 + (a + 1)*q^89 + q^90 + q^98
        - q^100 + a*q^104 + (a + 1)*q^106 + (a - 1)*q^109 + (a + 1)*q^113 - 
        2*a*q^116 + q^117 - a*q^121 - a*q^125 - q^128 - q^130 + (-a - 1)*q^136 -
        2*a*q^137 + a*q^144 + 2*q^145 - 2*q^146 + (-a + 1)*q^149 + (a - 1)*q^153
        + (a - 1)*q^157 - a*q^160 + q^162 + (-a - 1)*q^164 - q^169 + (-a + 
        1)*q^170 + (a - 1)*q^173 + (-a - 1)*q^178 - q^180 + 2*a*q^181 - q^196 + 
        q^200 + (-a + 1)*q^205 - a*q^208 + (-a - 1)*q^212 + (-a + 1)*q^218 + (-a
        + 1)*q^221 - a*q^225 + (-a - 1)*q^226 + (a + 1)*q^229 + 2*a*q^232 + (a -
        1)*q^233 - q^234 + (a - 1)*q^241 + a*q^242 - a*q^245 + a*q^250 + q^256 +
        (a + 1)*q^257 + q^260 + 2*q^261 + (-a + 1)*q^265 + (a + 1)*q^272 + 
        2*a*q^274 + (-a - 1)*q^277 + (a - 1)*q^281 - a*q^288 + a*q^289 - 2*q^290
        + 2*q^292 + 2*q^293 + (a - 1)*q^298 + (-a + 1)*q^306 + (-a - 1)*q^313 + 
        O(q^314),
    q^3 - q^6 + q^12 + a*q^15 - q^24 + a*q^27 - a*q^30 - a*q^39 + q^48 + (a + 
        1)*q^51 - a*q^54 + a*q^60 - q^75 + a*q^78 - 2*a*q^87 - q^96 + (-a - 
        1)*q^102 + a*q^108 - a*q^120 + (-a - 1)*q^123 - q^135 - q^147 + q^150 - 
        a*q^156 + (-a - 1)*q^159 + 2*a*q^174 + q^192 + q^195 + (a + 1)*q^204 - 
        a*q^216 + 2*q^219 + a*q^240 - q^243 + (a + 1)*q^246 + (a - 1)*q^255 + (a
        + 1)*q^267 + q^270 + q^294 - q^300 + a*q^312 + O(q^314)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 3*H.3 + 3*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^7 - a*q^9 - a*q^13 + a*q^15 - a*q^25 + (a + 1)*q^31 + q^33 + a*q^37 
        + (a - 1)*q^43 - a*q^51 - q^55 - q^61 - q^63 + q^69 + a*q^79 - q^81 + 
        a*q^85 + (a - 1)*q^87 - q^91 + q^97 + (-a + 1)*q^103 + q^105 + (a - 
        1)*q^109 - q^115 - q^117 + a*q^123 + q^135 + a*q^139 + (a - 1)*q^141 + 
        (-a + 1)*q^145 - a*q^159 + q^163 - q^169 - q^175 - a*q^181 + q^187 - 
        q^193 + q^195 - a*q^205 + a*q^213 + (-a + 1)*q^217 - q^225 - a*q^231 + 
        (-a + 1)*q^235 + (-a + 1)*q^241 + a*q^253 + q^259 + a*q^265 - a*q^267 + 
        (a + 1)*q^277 + (-a + 1)*q^279 - a*q^297 + (a + 1)*q^301 - a*q^307 + 
        O(q^314),
    q^3 - q^5 + a*q^11 + q^17 - a*q^21 + a*q^23 - a*q^27 + (-a - 1)*q^29 + 
        a*q^35 - a*q^39 - q^41 + a*q^45 + (-a - 1)*q^47 + q^53 + a*q^65 - q^71 -
        a*q^75 + q^77 + q^89 + (a + 1)*q^93 + q^99 + a*q^107 + a*q^111 - a*q^119
        + a*q^125 + (a - 1)*q^129 + q^143 - a*q^149 - a*q^153 + (-a - 1)*q^155 +
        q^161 - q^165 + (-a - 1)*q^167 + (a - 1)*q^179 - q^183 - a*q^185 - q^189
        + (-a + 1)*q^191 + (a - 1)*q^203 + q^207 + (-a + 1)*q^215 - a*q^221 - 
        a*q^233 + a*q^237 + a*q^239 - q^243 + a*q^255 + (a - 1)*q^261 + (a + 
        1)*q^269 - q^273 + q^275 + a*q^287 + q^291 + (-a + 1)*q^293 + q^299 + 
        q^305 + (-a + 1)*q^309 + (a + 1)*q^311 + O(q^314)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^2 + (a - 1)*q^4 + q^8 + (a - 1)*q^9 - a*q^13 - a*q^16 + (-a + 
        1)*q^17 + q^18 - q^25 + (a - 1)*q^26 + a*q^29 + (a - 1)*q^32 - q^34 - 
        a*q^36 + a*q^37 + a*q^41 - a*q^49 + a*q^50 + q^52 - q^53 + (-a + 1)*q^58
        + (-a + 1)*q^61 + q^64 + a*q^68 + (a - 1)*q^72 - q^73 + (-a + 1)*q^74 - 
        a*q^81 + (-a + 1)*q^82 - 2*a*q^89 + (2*a - 2)*q^97 + (a - 1)*q^98 + (-a 
        + 1)*q^100 + 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^136
        + (-a + 1)*q^137 + q^144 + a*q^146 - q^148 + (-a + 1)*q^149 + a*q^153 - 
        q^157 + (a - 1)*q^162 - q^164 + (a - 1)*q^169 + (2*a - 2)*q^173 + (2*a -
        2)*q^178 - q^181 + a*q^193 + 2*q^194 + q^196 - 2*a*q^197 - q^200 + (-a +
        1)*q^202 + (a - 1)*q^208 + (-a + 1)*q^212 - 2*a*q^218 - q^221 + (-a + 
        1)*q^225 - 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^250 + (a - 1)*q^256 + a*q^257 - q^261 +
        (2*a - 2)*q^269 - q^272 - q^274 + (-a + 1)*q^277 - q^281 - a*q^288 + (-a
        + 1)*q^292 + (-a + 1)*q^293 + a*q^296 - q^298 + (-a + 1)*q^306 + 2*q^313
        + O(q^314),
    q^3 - a*q^6 + (a - 1)*q^12 + q^24 + (a - 1)*q^27 - a*q^39 - a*q^48 + (-a + 
        1)*q^51 + q^54 - q^75 + (a - 1)*q^78 + a*q^87 + (a - 1)*q^96 - q^102 - 
        a*q^108 + a*q^111 + a*q^123 - a*q^147 + a*q^150 + q^156 - q^159 + (-a + 
        1)*q^174 + (-a + 1)*q^183 + q^192 + a*q^204 + (a - 1)*q^216 - q^219 + 
        (-a + 1)*q^222 - a*q^243 + (-a + 1)*q^246 - 2*a*q^267 + (2*a - 2)*q^291 
        + (a - 1)*q^294 + (-a + 1)*q^300 + a*q^303 - a*q^312 + O(q^314),
    q^5 - a*q^10 + (a - 1)*q^20 - q^25 + q^40 + (a - 1)*q^45 + a*q^50 - a*q^65 -
        a*q^80 + (-a + 1)*q^85 + q^90 + (-a + 1)*q^100 + (a - 1)*q^130 + a*q^145
        + (a - 1)*q^160 - q^170 - a*q^180 + a*q^185 - q^200 + a*q^205 + (-a + 
        1)*q^225 - a*q^245 + q^260 - q^265 + (-a + 1)*q^290 + (-a + 1)*q^305 + 
        O(q^314),
    q^15 - a*q^30 + (a - 1)*q^60 - q^75 + q^120 + (a - 1)*q^135 + a*q^150 - 
        a*q^195 - a*q^240 + (-a + 1)*q^255 + q^270 + (-a + 1)*q^300 + O(q^314)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + (-a + 1)*q^7 + (a - 1)*q^9 + (a - 1)*q^13 + (2*a - 2)*q^19 - 
        q^21 + q^25 + q^27 - q^31 - 2*a*q^37 + q^39 + (-a + 1)*q^43 + 2*q^57 + 
        (-a + 1)*q^61 + a*q^63 + a*q^67 - q^73 - a*q^75 - q^79 - a*q^81 + a*q^91
        + a*q^93 + (-a + 1)*q^97 - q^103 - q^109 + (2*a - 2)*q^111 - a*q^117 + 
        (a - 1)*q^121 + a*q^127 - q^129 + 2*a*q^133 + (-a + 1)*q^139 + 2*q^151 -
        q^157 + (-a + 1)*q^163 - a*q^169 - 2*a*q^171 + (-a + 1)*q^175 + 2*q^181 
        - q^183 + (-a + 1)*q^189 + a*q^193 + (-a + 1)*q^199 + (-a + 1)*q^201 + 
        a*q^211 + (a - 1)*q^217 + a*q^219 - 2*a*q^223 + (a - 1)*q^225 + 2*q^229 
        + a*q^237 + (2*a - 2)*q^241 + (a - 1)*q^243 - 2*a*q^247 - 2*q^259 + 
        a*q^271 + (-a + 1)*q^273 + (2*a - 2)*q^277 + (-a + 1)*q^279 + a*q^283 - 
        a*q^289 - q^291 - a*q^301 - q^307 + a*q^309 - q^313 + O(q^314),
    q^5 - a*q^15 + (-a + 1)*q^35 + (a - 1)*q^45 + (a - 1)*q^65 + (2*a - 2)*q^95 
        - q^105 + q^125 + q^135 - q^155 - 2*a*q^185 + q^195 + (-a + 1)*q^215 + 
        2*q^285 + (-a + 1)*q^305 + O(q^314)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3 + 4*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 + q^9 - q^13 - q^25 - q^27 + q^39 + 2*q^43 + q^49 - 2*q^61 + q^75 - 
        2*q^79 + q^81 + 2*q^103 - q^117 - q^121 - 2*q^127 - 2*q^129 + 2*q^139 - 
        q^147 + 2*q^157 + q^169 + 2*q^181 + 2*q^183 - 2*q^199 - 2*q^211 - q^225 
        + 2*q^237 - q^243 + 2*q^277 - 2*q^283 + q^289 - 2*q^309 - 2*q^313 + 
        O(q^314),
    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 + O(q^314),
    q^4 - q^12 - q^16 + q^36 + q^48 - q^52 + q^64 - q^100 - q^108 - q^144 + 
        q^156 + 2*q^172 - q^192 + q^196 + q^208 - 2*q^244 - q^256 + q^300 + 
        O(q^314),
    q^5 - q^15 + q^45 - q^65 - q^125 - q^135 + q^195 + 2*q^215 + q^245 - 2*q^305
        + O(q^314),
    q^10 - q^30 - q^40 + q^90 + q^120 - q^130 + q^160 - q^250 - q^270 + 
        O(q^314),
    q^20 - q^60 - q^80 + q^180 + q^240 - q^260 + O(q^314)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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(
4
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + H.3 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^9 - a*q^12 + a*q^16 - q^22 + q^30 - q^39 - q^40 + (-a - 1)*q^43 - 
        a*q^49 + q^52 - a*q^55 - a*q^66 + a*q^75 - q^81 + a*q^82 + a*q^88 + q^94
        - a*q^100 + (a + 1)*q^103 + q^108 - q^118 - q^121 + a*q^130 + 2*q^139 + 
        a*q^142 - q^144 + (a + 1)*q^157 + q^165 - a*q^166 - a*q^169 - a*q^178 + 
        (a + 1)*q^183 + q^192 - a*q^198 - q^205 - q^220 + a*q^235 + (-a - 
        1)*q^237 + (-a - 1)*q^244 - q^246 + q^250 - q^256 + a*q^264 + a*q^270 - 
        a*q^274 + (-a - 1)*q^277 - q^282 + q^286 + a*q^289 - a*q^295 - q^298 + 
        O(q^314),
    q^2 - a*q^11 + a*q^15 + a*q^18 - q^20 - q^24 - a*q^32 - q^33 + q^41 - a*q^44
        + a*q^47 - a*q^59 + q^65 - q^71 + q^78 + q^83 + (a + 1)*q^86 - q^89 - 
        a*q^98 + q^99 + a*q^104 + a*q^110 - a*q^123 - a*q^125 + a*q^132 - q^135 
        - q^137 + a*q^141 + a*q^143 + a*q^149 - a*q^150 - q^162 + q^164 - q^167 
        - q^176 + q^177 - a*q^180 - q^188 - a*q^197 + q^200 + (-a - 1)*q^206 - 
        a*q^213 - a*q^216 + q^227 + a*q^236 + a*q^239 + q^240 - q^242 + q^249 - 
        a*q^267 + q^275 - 2*q^278 + a*q^281 + q^284 + q^288 + a*q^293 - a*q^297 
        + (-a - 1)*q^305 + O(q^314),
    q^3 + a*q^12 - q^13 + (-a - 1)*q^16 - 2*a*q^22 + a*q^25 + a*q^27 + (a - 
        1)*q^30 + (-a + 1)*q^39 - a*q^40 + 2*q^43 - q^48 + a*q^52 + q^55 + (a + 
        1)*q^61 + (-a + 1)*q^64 + (-a - 1)*q^75 + (a - 1)*q^79 + (2*a - 2)*q^94 
        + q^100 - 2*q^103 - q^108 - a*q^117 + 2*q^118 - a*q^120 + (-a - 1)*q^121
        + (-a + 1)*q^129 + (2*a - 2)*q^139 - 2*a*q^142 + (-a + 1)*q^144 - 
        a*q^147 + (a + 1)*q^156 + (a + 1)*q^160 + q^165 + (2*a + 2)*q^166 + 
        2*a*q^172 - 2*q^183 + a*q^192 + 2*q^198 + (-a + 1)*q^199 - a*q^205 - 
        q^208 + (-a - 1)*q^211 + a*q^220 - q^225 + (-a - 2)*q^235 - q^243 + (-a 
        + 1)*q^244 + (a - 1)*q^264 + (-a - 1)*q^270 + (2*a + 1)*q^295 + (-a + 
        1)*q^300 + (a - 1)*q^309 + 2*q^313 + O(q^314),
    q^4 - q^12 + (-a - 1)*q^13 + (-a + 1)*q^16 + (-a + 2)*q^22 + (a - 1)*q^25 - 
        q^30 + a*q^36 + (a + 1)*q^39 + 2*a*q^43 + (-a - 1)*q^48 - q^52 + (a - 
        1)*q^55 + 2*a*q^61 + q^64 - q^66 + (-a + 1)*q^75 + q^82 - a*q^88 + (-a -
        2)*q^94 + a*q^100 - 2*a*q^103 - a*q^108 + (-a + 1)*q^117 + a*q^118 + 
        q^120 - 2*a*q^121 + 2*q^129 + q^130 + (-2*a - 2)*q^139 + q^142 + (a + 
        1)*q^144 + a*q^156 + (a - 1)*q^160 + (a + 1)*q^165 + (2*a - 1)*q^166 + 
        (a - 1)*q^172 - q^178 - 2*a*q^183 - q^192 - a*q^196 + (2*a + 1)*q^198 + 
        (-a + 1)*q^205 + (a - 1)*q^220 + (-a - 1)*q^225 + (-a + 1)*q^235 + (a + 
        1)*q^244 - a*q^246 - a*q^250 - q^264 - a*q^270 - q^274 + a*q^282 + 
        a*q^286 + (a - 1)*q^295 + a*q^298 + q^300 - 2*q^309 + (2*a + 2)*q^313 + 
        O(q^314),
    q^5 + (-a + 1)*q^11 - q^15 - a*q^20 + (-a - 1)*q^24 + 2*q^32 - 2*a*q^33 + (a
        - 1)*q^41 + (a + 1)*q^44 + a*q^45 - 2*q^47 + (a + 1)*q^59 - a*q^60 + 
        a*q^65 + (-a + 1)*q^71 + 2*a*q^78 + a*q^80 + 2*a*q^83 + (2*a - 2)*q^86 +
        (-a - 1)*q^89 + (a + 1)*q^99 + (-a - 1)*q^104 - 2*q^110 + q^125 - 
        2*q^132 - a*q^135 + (a - 1)*q^141 + (-a - 1)*q^149 + 2*q^150 + (a + 
        1)*q^164 + (-a + 1)*q^176 + q^180 - 2*a*q^188 - q^195 + 2*q^197 + (a - 
        1)*q^200 + (-2*a + 2)*q^206 + (-a - 1)*q^215 + (-a + 1)*q^216 + (a - 
        1)*q^236 + (-a - 1)*q^239 + a*q^240 - a*q^245 + (a + 1)*q^249 + q^260 + 
        2*q^267 - 4*a*q^278 + (a - 1)*q^281 + (a + 1)*q^284 + 2*a*q^288 + 
        2*q^297 + (-a + 1)*q^305 + O(q^314),
    q^6 + (a + 1)*q^11 + q^20 + q^24 - q^26 + (a - 1)*q^32 + (a + 1)*q^33 + (-a 
        - 1)*q^41 + (-a - 1)*q^44 + (-a + 1)*q^47 + a*q^50 + a*q^54 + (-a - 
        1)*q^59 + a*q^60 + (-a - 1)*q^65 + (a - 1)*q^71 + (-a - 1)*q^78 + (-a - 
        1)*q^80 + (-a - 1)*q^83 - 2*a*q^86 + (a + 1)*q^89 - q^96 + (a - 1)*q^99 
        + q^104 + (-2*a + 1)*q^110 + (a + 1)*q^122 + (-a + 1)*q^123 + (a - 
        1)*q^125 + (-a + 1)*q^128 - 2*a*q^132 + (a + 1)*q^137 + (-a + 1)*q^141 +
        (a - 1)*q^143 + (-a + 1)*q^149 + (a - 1)*q^150 + (a - 1)*q^158 + (a - 
        1)*q^164 + (-a - 1)*q^167 + (a + 1)*q^176 + (-a - 1)*q^177 + a*q^180 + 
        2*a*q^188 + (-a + 1)*q^195 + (a - 1)*q^197 - a*q^200 + 2*a*q^206 + (a - 
        1)*q^213 + 2*q^215 + a*q^216 + (a + 1)*q^227 - a*q^234 + (-a + 1)*q^236 
        + (a + 1)*q^239 + (-a - 1)*q^240 + (-a - 1)*q^242 + (-a - 1)*q^249 + (-a
        + 1)*q^258 + a*q^260 + (a - 1)*q^267 + (a + 1)*q^275 + (2*a + 2)*q^278 +
        (-a + 1)*q^281 + (-a - 1)*q^284 + (-a - 1)*q^288 + (-a + 1)*q^293 - 
        a*q^294 + (a - 1)*q^297 + 2*a*q^305 + (a + 1)*q^312 + O(q^314),
    q^8 + (2*a + 1)*q^11 - a*q^15 + (a + 1)*q^20 + q^24 + (-a - 1)*q^26 + (a - 
        1)*q^32 + a*q^33 - a*q^41 - a*q^44 + (-2*a + 1)*q^47 + (a - 1)*q^50 - 
        q^59 + a*q^60 - a*q^65 + a*q^71 + a*q^72 + (-a - 1)*q^78 + (-a - 1)*q^80
        + (-a - 2)*q^83 - 2*a*q^86 + a*q^89 + (-a - 1)*q^96 + (a - 2)*q^99 + 
        q^104 + (-a + 1)*q^110 + 2*a*q^122 + q^123 - q^125 + q^128 + (-2*a + 
        1)*q^132 + q^135 + a*q^137 + q^141 - q^143 + q^149 + (a - 1)*q^150 - 
        q^164 - a*q^167 + a*q^176 - a*q^177 + (a - 1)*q^180 + a*q^188 + (-a + 
        1)*q^195 - q^197 - a*q^200 + 2*a*q^206 - q^213 + 2*q^215 + a*q^216 + 
        a*q^227 + (-a + 1)*q^234 - a*q^236 + q^239 - a*q^240 - 2*a*q^242 - 
        a*q^249 + 2*q^258 + a*q^260 + (2*a - 1)*q^267 + a*q^275 + (2*a + 
        2)*q^278 + q^281 - q^284 + (-a - 1)*q^288 + q^293 - q^297 + (a - 
        1)*q^305 + a*q^312 + O(q^314),
    q^10 + (-a + 1)*q^12 + 2*a*q^16 + (a - 1)*q^22 + q^30 - 2*q^39 - q^40 + 
        (-2*a - 2)*q^43 + (-a + 1)*q^52 - 2*a*q^55 - 2*a*q^66 + 2*a*q^75 + (a - 
        1)*q^82 + (a + 1)*q^88 + a*q^90 + 2*q^94 + (-a - 1)*q^100 + (2*a + 
        2)*q^103 + (a + 1)*q^108 + (-a - 1)*q^118 - q^120 + a*q^130 + 4*q^139 + 
        (a - 1)*q^142 - 2*q^144 - a*q^160 - 2*a*q^166 + (-a - 1)*q^178 + (2*a + 
        2)*q^183 + (-a + 1)*q^192 + (-a - 1)*q^198 + (-a - 1)*q^220 + 2*a*q^235 
        - 2*q^244 + q^250 + a*q^270 + (a - 1)*q^282 - 2*a*q^295 + (-a - 1)*q^298
        + O(q^314)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
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:=Rationals();
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^9 - q^10 + q^16 + q^25 - q^26 - 2*q^29 - q^36 - q^40 + q^49 - 
        2*q^61 + q^64 + q^65 + 2*q^74 + q^81 + q^90 + q^100 + 2*q^101 - q^104 - 
        2*q^116 - q^121 - q^144 + 2*q^146 - q^160 + q^169 - 2*q^181 - 2*q^185 - 
        2*q^194 + q^196 - q^225 + q^234 - 2*q^244 - q^250 + q^256 + q^260 + 
        2*q^261 + 2*q^269 - 2*q^274 + q^289 + 2*q^290 + 2*q^296 + O(q^314),
    q^2 - q^5 + q^8 - q^13 - q^18 - q^20 + q^32 + 2*q^37 + q^45 + q^50 - q^52 - 
        2*q^58 - q^72 + 2*q^73 - q^80 - 2*q^97 + q^98 + q^117 - 2*q^122 - q^125 
        + q^128 + q^130 - 2*q^137 + 2*q^145 + 2*q^148 + q^162 + q^180 - 2*q^193 
        - 2*q^197 + q^200 + 2*q^202 - q^208 - 2*q^232 - q^242 - q^245 - q^288 + 
        2*q^292 + 2*q^293 + 2*q^305 + O(q^314),
    q^3 + q^12 - q^27 - q^30 + q^48 + q^75 - q^78 - 2*q^87 - q^108 - q^120 + 
        q^147 - 2*q^183 + q^192 + q^195 + 2*q^222 + q^243 + q^270 + q^300 + 
        2*q^303 - q^312 + O(q^314),
    q^6 - q^15 + q^24 - q^39 - q^54 - q^60 + q^96 + 2*q^111 + q^135 + q^150 - 
        q^156 - 2*q^174 - q^216 + 2*q^219 - q^240 - 2*q^291 + q^294 + O(q^314)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
780
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 2*H.3 + 6*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
314
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^9 + q^25 - q^51 - q^55 - q^61 - q^69 - q^79 + q^81 - q^91 - q^105 - 
        q^139 - q^159 + q^169 - q^181 + q^195 + 2*q^199 - q^205 + 2*q^211 + 
        q^225 + q^231 + q^259 + 2*q^295 + O(q^314),
    q^3 - q^17 - q^23 + q^27 - q^35 - q^53 + q^65 + q^75 + q^77 - q^107 + 
        2*q^113 - q^143 - q^153 - q^165 + 2*q^173 - q^183 - q^185 - q^207 - 
        q^233 - q^237 + q^243 + 2*q^257 + 2*q^263 - q^273 + q^287 + O(q^314),
    q^5 - q^11 - q^21 + q^39 - q^41 + q^45 + 2*q^59 - q^71 - q^89 - q^99 - q^111
        + q^119 + q^125 - q^149 + q^161 - q^189 + 2*q^201 + 2*q^219 - q^221 - 
        q^239 - q^255 - q^275 + 2*q^281 - q^291 - q^299 - q^305 + O(q^314),
    q^7 - q^13 - q^15 + q^33 + q^37 + q^63 - 2*q^67 - 2*q^73 + q^85 + q^97 + 
        q^115 - q^117 + q^123 - q^135 + q^163 + q^175 - 2*q^177 - q^187 + q^193 
        + q^213 - 2*q^223 - q^253 + q^265 + q^267 + q^297 + q^307 + O(q^314)
]
;
Bo:=
[
    q - q^9 + q^39 - q^49 - q^55 - q^75 + q^81 + q^121 + 2*q^139 + q^165 - q^169
        - 2*q^181 + q^205 - q^235 - q^289 - q^295 + O(q^314),
    q^2 - q^18 - q^24 - q^32 + q^44 + q^60 + q^78 + q^80 - q^98 + q^104 - q^110 
        - q^132 - q^150 + q^162 - q^164 - q^176 + q^188 - q^200 + q^216 + q^236 
        + q^242 - q^260 + 2*q^278 - q^284 + q^288 + O(q^314),
    q^3 - q^13 + q^25 - q^27 - q^55 + q^117 + 2*q^127 - q^147 - q^165 + q^205 - 
        q^225 + q^235 + q^243 - 2*q^283 - q^295 - 2*q^313 + O(q^314),
    q^4 - q^22 - q^30 - q^36 + q^40 + q^48 - q^64 + q^66 + q^82 - q^88 - q^94 - 
        q^118 + q^130 + q^142 + q^156 + q^166 + q^178 - q^196 + q^198 - q^208 - 
        q^220 - q^246 - q^250 - q^264 + q^270 + q^274 - q^282 - q^286 - q^298 - 
        q^300 + O(q^314),
    q^5 + q^15 - 2*q^33 - q^45 + 2*q^47 - q^65 - 2*q^83 + 2*q^123 + q^125 - 
        q^135 - 2*q^137 + 2*q^143 - 2*q^167 - 2*q^177 + q^195 + 2*q^197 + 
        2*q^213 - 2*q^227 - q^245 + 2*q^267 - 2*q^275 + 2*q^293 + 2*q^297 + 
        O(q^314),
    q^6 + q^24 - q^26 + q^50 - q^54 - q^80 - q^96 - q^104 - q^110 + 2*q^176 + 
        q^200 - q^216 + q^234 + q^240 + 2*q^254 - q^294 + O(q^314),
    q^8 + q^24 - q^44 - q^60 - q^72 - q^104 - q^128 + q^132 + q^164 + q^176 - 
        q^188 + q^200 - q^216 - q^236 + q^240 + q^260 + q^284 + q^312 + 
        O(q^314),
    q^10 - 2*q^22 - q^30 + q^40 + 2*q^48 + 2*q^82 - 2*q^88 - q^90 - 2*q^118 - 
        q^120 + q^130 + 2*q^142 - q^160 + 2*q^178 + 2*q^198 - 2*q^208 - q^250 + 
        q^270 - 2*q^282 - 2*q^298 + O(q^314),
    q^11 + q^15 - q^33 - q^41 + q^47 + q^59 - q^65 - q^71 - q^83 - q^89 - q^99 +
        q^123 + q^125 - q^135 - q^137 + q^141 + q^143 + q^149 - q^167 - q^177 + 
        q^197 + q^213 - q^227 + q^239 - q^249 + q^267 - q^275 + q^281 + q^293 + 
        q^297 + O(q^314),
    q^12 - q^40 - q^48 - q^52 + 2*q^88 + q^100 - q^108 + q^120 - q^192 + q^208 -
        q^220 + O(q^314),
    q^16 - q^22 - q^30 + q^48 + q^66 + q^82 - q^88 - q^94 - q^118 - q^120 + 
        q^130 + q^142 - q^144 + q^166 + q^178 + q^198 - q^208 - q^246 - q^250 - 
        q^256 + q^264 + q^270 + q^274 - q^282 - q^286 - q^298 + O(q^314),
    q^20 + 2*q^24 - 2*q^44 - q^60 - q^80 - 2*q^104 + 2*q^164 + 2*q^176 - q^180 +
        2*q^200 - 2*q^216 - 2*q^236 + q^240 + q^260 + 2*q^284 + O(q^314)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
70
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
70
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
70
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
70
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
70
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
70
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^14 - a^3)*q^3 + a^12*q^4 + (-a^13 + a^8)*q^5 + (a^21 - a^17 - a^14 + 
        a^7 + a^6 - 1)*q^9 + (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^3 + a + 1)*q^11 + (-a^23 + a^21 + a^19 
        + a^18 - a^15 - a^14 - a^13 - a^12 + a^8 + a^7 + a^5 - a^3 - 1)*q^12 + 
        (-a^23 - a^20 + a^18 + a^17 + 2*a^16 + a^15 - a^12 - 2*a^11 - a^10 - a^9
        + a^7 + a^5 + a^4 - 1)*q^15 + (-a^23 + a^19 + a^18 + a^17 + a^16 - a^14 
        - a^13 - a^12 - a^11 - a^10 + a^8 + a^7 + a^6 + a^5 - a - 1)*q^16 + 
        (-a^23 + a^16 + a^15 - a^10 - a^9 + a^5 + a^2 - 1)*q^20 + (2*a^23 - a^21
        + a^20 - 2*a^18 - a^16 - a^15 + a^14 + a^13 + a^11 + a^10 + a^9 - a^8 - 
        a^7 - a^5 - a^4 + a^3 - a^2 + 2)*q^23 + (-a^23 + a^19 + a^18 + a^16 - 
        a^14 - a^13 - a^12 + a^8 + a^7 + a^5 - a^3 - 1)*q^25 + (a^23 + a^20 - 
        a^19 - a^18 - a^16 + a^14 + a^13 + a^12 + a^11 - a^9 - a^8 - 2*a^7 - a^6
        - a^5 + a^3 + a + 1)*q^27 + (-a^15 - a^7)*q^31 + (a^23 + a^22 - a^18 - 
        a^17 - a^16 - a^15 + a^13 + a^12 + a^11 + 2*a^10 + a^9 - a^7 - a^6 - a^5
        - a^4 + 1)*q^33 + (-a^22 + a^18 + a^15 - a^8 - a^5 + a)*q^36 + (a^22 + 
        a^18)*q^37 + a^8*q^44 + (-a^20 - a^19 + a^15 + a^14 - a^10 + a^6 + a^5 -
        a - 1)*q^45 + (-a^16 + a^9 - a^2)*q^47 + (-a^23 - a^22 - a^20 + a^18 + 
        a^17 + a^16 + a^15 - a^12 - a^11 - a^10 - a^9 + a^7 + a^5 + a^4 - a^3 - 
        1)*q^48 + a^2*q^49 + (a^23 - a^21 - a^18 + a^14 - a^8 - a^7 + a^3 + 
        1)*q^53 + (-a^9 + a^4)*q^55 + (a^4 + a^2)*q^59 + (a^22 + a^21 - a^18 - 
        a^17 - a^16 - a^15 - a^14 + a^13 + a^12 + a^11 + a^10 + a^9 - a^6 - 
        a^5)*q^60 - a*q^64 + (-a^19 - a^5)*q^67 + (a^12 - a^11 - a + 1)*q^69 - 
        a^17*q^71 + (-a^22 + a^18 + a^17 + a^15 - a^14 - a^13 - a^12 - a^11 - 
        a^10 + a^9 + a^7 + a^6 - a^2)*q^75 + (a^23 + a^20 - a^18 - a^16 - a^15 +
        a^11 + a^10 + a^9 - a^5 - a^4 + 1)*q^80 + (a^22 - a^21 - a^18 - a^17 - 
        a^16 - a^15 + a^13 + 2*a^12 + a^11 + 2*a^10 + a^9 - a^7 - a^6 - a^5 - 
        a^4 + 1)*q^81 + (-a^22 - a^17 + a^15 - a^8 + a)*q^89 + (a^10 - a^9)*q^92
        + (-a^22 - a^21 + a^18 + a^15 + a^10 - a^8 + a)*q^93 + (a^20 - a^18 - 
        a^16 - a^15 + a^11 + a^10 + a^9 - a^5 - a^4 - a^2 + 1)*q^97 + (-a^23 + 
        a^19 + a^18 + a^17 + a^16 - a^14 - 2*a^13 - a^12 - a^11 - a^10 + a^8 + 
        a^7 + a^6 + a^5 + a^2 - a - 1)*q^99 + (a^23 - a^18 + a^13 - a^8)*q^100 +
        (a^14 - a^11)*q^103 + (a^23 - a^21 + a^20 - a^19 - a^18 - a^16 - a^15 + 
        a^11 + a^10 + a^9 + a^8 - a^5 - a^4 - a^2 + 1)*q^108 + (-a^21 - a^18 + 
        a^11 - a^4 - a)*q^111 + (-a^23 + a^19 + a^18 + a^17 + a^16 - a^14 - a^13
        - a^12 - a^11 - a^10 + a^8 + a^6 + a^5 - a - 1)*q^113 + (-a^11 + a^10 + 
        a^6 - a^5)*q^115 + (-a^23 - a^22 - a^20 + a^18 + a^17 + a^16 + a^15 - 
        a^12 - a^11 - a^10 - a^9 + a^7 + a^5 + a^4 - 1)*q^121 + (-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^124 + (a^19 - a^14 + a^9)*q^125 + (a^22 - a^11)*q^132
        + (a^23 + a^22 + a^20 - a^18 - a^17 - a^15 + a^13 - a^9 - a^8 + a^4 + 
        a^3)*q^135 + (-a^20 - a^19 - a^18 + a^15 + a^14 + a^13 + a^12 + a^11 - 
        a^10 - a^9 - a^8 - a^7 - a^6 + a^3 + a^2 + a)*q^137 + (a^19 - a^12 - a^9
        + a^5 + a^2)*q^141 + O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
70
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
70
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
70
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
10
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
10
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
10
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
70
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
14
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 + 1)*q^3 - a^5*q^4 + (a^5 - a^4 + a^3 - a^2 - 1)*q^5 + (a^5 - a^4 
        - a^2 + a)*q^9 - a^3*q^11 + (-a^5 - a)*q^12 + (a^5 + a^3 - 1)*q^15 - 
        a^3*q^16 + (a^5 + a^3 - a^2 + a - 1)*q^20 + (-a^5 + a^4)*q^23 + (-a^5 + 
        a^2 + 1)*q^25 + (a^5 - a^4 + a)*q^27 + (-a + 1)*q^31 + (a^5 - a^4 - a^2 
        + a - 1)*q^33 + (-a^5 + a^4 - a)*q^36 + (a^4 - a)*q^37 - a*q^44 + 
        a^3*q^45 + 2*a^2*q^47 + (a^5 - a^4 - a^2 + a - 1)*q^48 + a^2*q^49 + 
        (-a^4 + a^3 - a^2 + a - 1)*q^53 + (a^4 + a^2)*q^55 + (a^4 + a^2)*q^59 + 
        (a^5 + a^3 + a)*q^60 - a*q^64 - 2*a^5*q^67 + (-a^5 + a^4 - a + 1)*q^69 -
        a^3*q^71 + (-2*a^5 - a^3 + a^2 - a + 1)*q^75 + (a^4 + a^2)*q^80 + (-a^4 
        + a)*q^81 + (-a^3 - a)*q^89 + (-a^3 + a^2)*q^92 + (a^4 - a^3 - a + 
        1)*q^93 + (a^4 + a^2)*q^97 + (a^5 - a^4 + a - 1)*q^99 + (-a^5 - a^3 + 
        1)*q^100 + (a^4 + 1)*q^103 + (-a^5 + a^4 - a + 1)*q^108 + (2*a^4 - a + 
        1)*q^111 + (-a^3 + 1)*q^113 + (-a^2 + a - 1)*q^115 + (a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^121 + (-a^4 + a^3 - a^2 + a - 1)*q^124 + (a^5 - a^2 - 
        1)*q^125 + (a^4 - a)*q^132 - a*q^135 + (a^4 - a^3)*q^137 + (-2*a^5 + 
        2*a^2)*q^141 + O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
10
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
10
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^2 + a - 1)*q^3 + a^2*q^4 - 2*a^3*q^5 + (-a^3 + a^2 - a)*q^9 - a*q^11
        + (-a + 1)*q^12 + (2*a^2 - 2*a)*q^15 + (a^3 - a^2 + a - 1)*q^16 + 2*q^20
        + (-a^3 + a^2)*q^23 - 3*a*q^25 + a^3*q^27 + (a^2 + 1)*q^31 + (a^3 - a^2 
        + a)*q^33 + (-a^2 + a)*q^36 + (-a^3 + a^2)*q^37 - a^3*q^44 + (2*a^3 - 
        2*a^2)*q^45 + (-a^3 + 1)*q^47 + (-a^3 + a^2)*q^48 + a^2*q^49 - 
        2*a^3*q^53 + (2*a^3 - 2*a^2 + 2*a - 2)*q^55 + (a^3 + a - 1)*q^59 + 
        (-2*a^2 + 2*a - 2)*q^60 - a*q^64 + (a^3 - a^2 + a)*q^67 + (a^2 - 2*a + 
        1)*q^69 + a^2*q^71 + (3*a^3 - 3*a^2 + 3*a)*q^75 + 2*a^2*q^80 + (a^3 + a 
        - 1)*q^89 + (a^3 - a^2 + a)*q^92 - a^2*q^93 + (-a^3 + a^2)*q^97 + (a - 
        1)*q^99 - 3*a^3*q^100 + (a^3 - a^2 - 1)*q^103 - q^108 + (a^2 - 2*a + 
        1)*q^111 + (a^3 + a - 1)*q^113 + (-2*a + 2)*q^115 + a^2*q^121 + (a^3 + a
        - 1)*q^124 + (4*a^3 - 4*a^2 + 4*a - 4)*q^125 + (a^2 - a)*q^132 + 
        2*a*q^135 + (-a + 1)*q^137 - q^141 + O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
10
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
35*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
142
;
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 + O(q^142),
    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 + O(q^142),
    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 + O(q^142),
    q^11 - q^55 - q^66 + q^99 - q^132 + O(q^142),
    q^22 - q^44 - q^55 - q^66 + q^88 + q^99 + q^110 + O(q^142),
    q^33 - q^44 - q^55 + q^88 + q^110 + O(q^142)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
781
);
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(
10
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
782
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
782
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
22
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
782
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
782
);
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(
44
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
782
);
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(
22
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
782
);
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(
176
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
782
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
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 
        + O(q^210),
    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^210),
    q^17 - q^51 - q^68 + q^136 + q^204 + O(q^210),
    q^34 - q^68 - q^102 + q^204 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
782
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
782
);
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(
4
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
782
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + 11*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^26 - q^32 - q^35 - q^47 + q^49 - q^52 - q^70 - q^77 + q^81 + 
        q^98 + q^100 - q^101 + q^104 + q^118 + q^121 + q^128 - q^151 + q^154 + 
        q^169 + q^170 - q^187 + q^188 - q^200 + q^208 + O(q^210),
    q^2 + q^18 - q^52 - q^64 - q^70 - q^94 + q^98 - q^104 - q^140 - q^154 + 
        q^162 + q^196 + q^200 - q^202 + q^208 + O(q^210),
    q^4 - q^26 - q^32 + q^36 - q^52 - q^70 + q^98 + q^100 + q^118 - q^140 + 
        q^154 + q^170 + q^196 - q^200 + O(q^210),
    q^5 - q^17 - q^22 - q^23 - q^28 + q^34 + 2*q^40 + q^45 + q^46 - q^56 + q^68 
        - q^74 + q^79 - 2*q^80 - q^91 + q^92 + q^107 - 2*q^109 + q^125 - q^130 -
        q^136 + q^143 - q^153 + q^160 + q^175 + q^176 + 2*q^182 - q^184 - q^194 
        - q^198 - q^207 + O(q^210),
    q^7 - q^17 - q^23 - q^28 + 2*q^40 - q^56 + q^61 + q^63 + q^65 + q^68 - q^80 
        - q^88 - 2*q^91 + q^92 - 2*q^109 - q^112 + q^113 + q^125 - q^153 + q^160
        + q^175 + q^176 - q^207 + O(q^210),
    q^8 - q^16 - q^26 + q^50 + q^72 + q^94 - q^100 - q^110 - q^140 - q^144 + 
        q^154 - q^188 + q^196 + q^200 + q^202 + O(q^210),
    q^10 - 2*q^22 - 2*q^28 + q^34 + 2*q^40 + q^44 + q^46 - q^56 + q^68 - 2*q^74 
        - 2*q^80 + q^90 + q^92 + q^112 - 2*q^130 - q^136 + q^148 + q^158 + 
        3*q^182 - q^184 - 2*q^194 - 2*q^198 + O(q^210),
    q^11 - q^17 - q^23 + q^37 + q^40 - q^44 - q^56 + q^65 + q^68 - 2*q^91 + q^92
        + q^97 + q^99 - 2*q^109 - q^112 + q^143 - q^148 - q^153 + q^175 + q^176 
        + q^181 + q^199 - q^207 + O(q^210),
    q^13 + q^16 + q^26 + q^35 - q^49 - q^50 - q^52 - q^59 - q^64 - q^77 - q^85 -
        q^94 + q^100 - q^104 + q^110 - q^115 + q^117 + q^119 + q^121 - q^127 + 
        q^144 - q^154 + q^161 - q^169 + q^179 + q^188 - q^202 + O(q^210),
    q^14 - 2*q^22 - q^28 + q^34 + q^40 + q^44 + q^46 - q^56 - 2*q^74 - q^80 + 
        q^88 + q^112 + q^122 + q^126 - q^130 - q^136 + q^148 - q^176 + 2*q^182 -
        q^184 - 2*q^194 - 2*q^198 + O(q^210),
    q^20 - q^22 - q^28 + q^34 + q^46 - q^56 - q^74 + q^88 + q^112 - q^130 - 
        q^160 - q^176 + q^180 + 2*q^182 - q^194 - q^198 + O(q^210),
    q^25 + q^26 + q^32 + q^35 + q^47 - q^49 - q^50 - q^55 - q^59 - q^64 - q^85 -
        q^94 + q^101 - q^104 + q^110 - q^115 - q^127 + q^151 - q^154 - q^169 - 
        q^185 + q^187 + q^200 - q^202 + O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
28
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
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(
252
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
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(
84
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
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(
14
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
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(
126
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
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(
42
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
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(
14
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^7 + (a - 1)*q^10 - a*q^13 + q^16 - a*q^22 - q^25 + a*q^34 + (a + 
        1)*q^40 + (a + 1)*q^43 + (-a - 1)*q^46 + (-a + 1)*q^55 - a*q^58 + (a + 
        1)*q^61 - a*q^64 + a*q^67 + (-a + 1)*q^70 + (a - 1)*q^73 + (-a - 1)*q^79
        + (a - 1)*q^85 - q^88 + a*q^91 - q^94 - a*q^109 - q^112 - 2*a*q^115 + (a
        + 1)*q^118 + (a + 1)*q^130 + q^136 + q^139 + (-a + 1)*q^145 + a*q^154 + 
        (a - 1)*q^163 + O(q^170),
    q^2 + (a + 1)*q^5 - a*q^8 - q^11 - q^14 + q^17 + (a - 1)*q^23 - a*q^26 - 
        q^29 + (-a - 1)*q^35 + a*q^47 - q^50 + a*q^56 + (-a + 1)*q^59 + (-a + 
        1)*q^65 + q^77 + (a + 1)*q^80 + (a + 1)*q^86 - q^89 + q^101 - q^104 + 
        (-a + 1)*q^107 + (-a + 1)*q^110 + a*q^113 - q^119 + (a + 1)*q^122 - 
        a*q^128 - a*q^131 + a*q^134 + a*q^143 + (a - 1)*q^146 + (-a - 1)*q^158 +
        (-a + 1)*q^161 + (-a - 1)*q^167 + O(q^170),
    q^3 - q^21 + (a - 1)*q^30 - a*q^39 + q^48 - a*q^66 - q^75 + a*q^102 + (a + 
        1)*q^120 + (a + 1)*q^129 + (-a - 1)*q^138 + (-a + 1)*q^165 + O(q^170),
    q^6 + (a + 1)*q^15 - a*q^24 - q^33 - q^42 + q^51 + (a - 1)*q^69 - a*q^78 - 
        q^87 + (-a - 1)*q^105 + a*q^141 - q^150 + a*q^168 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
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(
36
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
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(
12
);
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
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:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
783
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1 + 14*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
170
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^13 + q^16 + q^25 - q^28 - q^34 - q^52 - q^67 - q^88 - q^94 - q^103 - 
        q^109 - q^112 + q^121 + q^139 - q^151 + q^169 + O(q^170),
    q^2 + q^14 - q^17 - q^26 + q^29 - q^41 - 2*q^44 - q^47 + q^50 + q^68 - q^77 
        + q^98 + q^101 - q^104 + q^113 - q^128 - q^131 + 2*q^137 + 3*q^143 + 
        O(q^170),
    q^4 - q^13 - q^22 + q^49 + q^67 - q^91 + q^100 + q^109 - q^112 - q^136 - 
        q^139 - q^154 + O(q^170),
    q^7 - q^13 - q^16 - q^22 + 2*q^28 + q^34 - q^52 + q^58 - q^64 - q^82 - q^91 
        + q^94 + q^112 + q^121 + q^136 - q^139 - 2*q^154 + q^169 + O(q^170),
    q^8 - 2*q^14 + q^26 - q^29 + q^32 + q^41 + q^44 - 2*q^56 - 2*q^68 + q^77 + 
        q^98 + q^104 - q^116 + q^119 + q^128 + q^134 - 2*q^137 - 2*q^143 + q^164
        + O(q^170),
    q^11 - q^14 - q^17 + q^26 + q^32 - q^47 - q^56 + q^77 + q^89 - q^116 - q^131
        + q^164 + O(q^170)
]
;
Bo:=
[
    q - q^7 - q^13 - q^16 + q^22 + q^25 + q^34 - q^58 + q^64 - q^67 - 2*q^82 - 
        q^88 + q^91 + q^94 + 2*q^103 - q^109 + q^112 - q^136 - q^139 + 2*q^151 -
        q^154 + O(q^170),
    q^2 - q^8 + q^11 - q^14 + q^17 - q^26 - q^29 - 2*q^41 + q^47 + q^50 + q^56 -
        q^77 + q^89 + q^101 + q^104 + q^113 - q^119 + q^128 + q^131 - q^134 - 
        2*q^137 - q^143 + O(q^170),
    q^3 - q^21 - q^39 - q^48 + q^66 + q^75 + q^102 + O(q^170),
    q^6 - q^24 + q^33 - q^42 + q^51 - q^78 - q^87 - 2*q^123 + q^141 + q^150 + 
        q^168 + O(q^170),
    q^9 - q^54 - q^63 + q^81 - q^117 - q^144 + O(q^170),
    q^18 - q^27 - q^72 + q^99 - q^126 + q^153 + q^162 + O(q^170)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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:=
[
    q + q^9 + q^25 - 2*q^53 - 2*q^65 + q^81 - 2*q^85 - 2*q^113 + q^121 - 2*q^149
        + q^169 + O(q^178),
    q^5 - q^13 - q^17 + q^41 + q^45 - q^61 + q^73 - q^89 + q^97 - q^101 - q^117 
        - q^153 + q^157 + q^173 + O(q^178)
]
;
Bo:=
[
    q + q^9 - q^25 - 2*q^29 - 2*q^37 + 2*q^53 + q^81 - 2*q^109 + 2*q^113 + q^121
        - 2*q^137 + 2*q^149 - q^169 + O(q^178),
    q^2 + q^18 - q^50 - 2*q^58 - 2*q^74 + 2*q^106 + q^162 + O(q^178),
    q^4 - q^8 + q^16 - q^32 + q^36 + q^64 - q^72 - q^100 - 2*q^116 - q^128 + 
        q^144 - 2*q^148 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 - q^4 + a*q^8 - a*q^9 + (-a + 1)*q^11 + q^16 - q^18 + (-a - 
        1)*q^22 - 2*q^23 - a*q^25 + (-a + 1)*q^29 - a*q^32 + a*q^36 + (a + 
        1)*q^37 + (a - 1)*q^43 + (a - 1)*q^44 + 2*a*q^46 - q^50 + (a + 1)*q^53 +
        (-a - 1)*q^58 - q^64 + (a + 1)*q^67 + q^72 + (-a + 1)*q^74 + 2*a*q^79 - 
        q^81 + (a + 1)*q^86 + (a + 1)*q^88 + 2*q^92 + (-a - 1)*q^99 + a*q^100 + 
        (-a + 1)*q^106 + (-a + 1)*q^107 + (a - 1)*q^109 + (a - 1)*q^116 - 
        a*q^121 + a*q^128 + (-a + 1)*q^134 - a*q^144 + (-a - 1)*q^148 + (a + 
        1)*q^149 - 2*q^151 + 2*q^158 + a*q^162 + (a + 1)*q^163 + a*q^169 + (-a +
        1)*q^172 + (-a + 1)*q^176 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^11 + q^25 - q^43 - q^51 - q^57 + q^99 + 2*q^107 - q^113 + q^121 + 
        q^123 - q^137 - q^163 + q^169 - q^177 + O(q^178),
    q^2 + q^8 - q^22 + q^32 - q^36 - q^44 + q^50 - q^86 - q^88 - q^102 - q^114 +
        q^128 - q^144 - q^172 - q^176 + O(q^178),
    q^3 - q^17 - q^19 + q^41 - q^59 + q^73 + q^75 - q^83 + q^89 - q^97 + q^131 +
        q^139 - q^153 - q^171 + O(q^178),
    q^4 + q^16 - q^18 - q^22 - q^44 + q^64 - q^72 - q^86 - q^88 + q^100 + q^102 
        + q^114 + 2*q^134 + q^162 - q^172 - q^176 + O(q^178),
    q^6 - q^12 + q^24 - q^34 - q^38 - q^48 + q^68 + q^76 + q^82 + q^96 - q^118 -
        q^136 + q^146 + q^150 - q^152 - q^164 - q^166 + O(q^178),
    q^9 + q^11 + q^43 - q^51 - q^57 - 2*q^67 - q^81 - q^99 + q^113 - 2*q^121 + 
        q^123 + q^137 + q^163 - q^177 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
42
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
84
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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(
84
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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(
28
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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(
28
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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(
12
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 + a)*q^2 + (-a^2 + 1)*q^4 - a^3*q^8 + (a^3 - a)*q^9 + (-a^2 + a + 
        1)*q^11 - a^2*q^16 + (a^2 - 1)*q^18 + (-a^3 + 1)*q^22 - a*q^25 + (a^3 - 
        1)*q^29 - a*q^32 + a^3*q^36 + (a^3 + a^2 - a)*q^37 + (a^3 + 1)*q^43 + 
        (-a^3 - a^2 + a)*q^44 - q^50 + (a^2 - a - 1)*q^53 + (a^3 + a^2 - a)*q^58
        - q^64 + (a^2 + a - 1)*q^67 - 2*a^3*q^71 + a^2*q^72 + (a^2 + a - 1)*q^74
        + (-a^2 + 1)*q^81 + (-a^3 + a^2 + a)*q^86 + (-a^2 - a + 1)*q^88 + (a^3 -
        1)*q^99 + (a^3 - a)*q^100 + (a^3 - 1)*q^106 + (-a^3 - a^2 + a)*q^107 + 
        (a^2 + a - 1)*q^109 + (a^2 + a - 1)*q^116 + (-a^3 + a)*q^121 - 2*q^127 +
        (a^3 - a)*q^128 + (a^3 + 1)*q^134 - 2*a^2*q^142 + a*q^144 + (a^3 + 
        1)*q^148 + (-a^3 - a^2 + a)*q^149 - a^3*q^162 + (-a^3 + a^2 + a)*q^163 -
        a^3*q^169 + (-a^2 + a + 1)*q^172 + (-a^3 - 1)*q^176 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^9 - 2*a*q^23 + (-a + 1)*q^25 - 2*q^71 + 2*a*q^79 + (a - 1)*q^81 - 
        2*q^113 - a*q^121 + 2*q^127 + (2*a - 2)*q^137 + (2*a - 2)*q^151 - q^169 
        + O(q^178),
    q^2 + a*q^4 + (a - 1)*q^8 - q^16 + a*q^18 - a*q^32 + (a - 1)*q^36 - 2*a*q^46
        + (-a + 1)*q^50 + (-a + 1)*q^64 - q^72 + (-2*a + 2)*q^92 + q^100 + q^128
        - 2*q^142 - a*q^144 + 2*a*q^158 + (a - 1)*q^162 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a - 1)*q^9 - a*q^25 + 2*a*q^53 + (-2*a + 2)*q^65 - a*q^81 - 2*q^85 - 
        2*q^113 + (a - 1)*q^121 + (-2*a + 2)*q^149 + q^169 + O(q^178),
    q^5 + a*q^13 + (-a + 1)*q^17 - a*q^41 + (a - 1)*q^45 - q^61 + (a - 1)*q^73 -
        q^89 - a*q^97 + (-a + 1)*q^101 - q^117 + a*q^153 + (a - 1)*q^157 + q^173
        + O(q^178)
]
;
Bo:=
[
    q + (a - 1)*q^9 + a*q^25 - 2*q^29 + (-2*a + 2)*q^37 - 2*a*q^53 - a*q^81 + 
        2*a*q^109 + 2*q^113 + (a - 1)*q^121 + 2*a*q^137 + (2*a - 2)*q^149 - 
        q^169 + O(q^178),
    q^2 + (a - 1)*q^18 + a*q^50 - 2*q^58 + (-2*a + 2)*q^74 - 2*a*q^106 - a*q^162
        + O(q^178),
    q^4 + (-a + 1)*q^8 - a*q^16 - q^32 + (a - 1)*q^36 + (a - 1)*q^64 + a*q^72 + 
        a*q^100 - 2*q^116 + a*q^128 + q^144 + (-2*a + 2)*q^148 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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(
12
);
qprec:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^2 + a^2*q^4 + a^3*q^8 + a*q^9 + (a^3 - a^2 - a)*q^11 + (a^2 - 
        1)*q^16 + a^2*q^18 + (-a^3 - 1)*q^22 + (-2*a^2 + 2)*q^23 + (a^3 - 
        a)*q^25 + (-a^3 + 1)*q^29 + (a^3 - a)*q^32 + a^3*q^36 + (a^2 - a - 
        1)*q^37 + (a^3 - 1)*q^43 + (-a^2 - a + 1)*q^44 + (-2*a^3 + 2*a)*q^46 - 
        q^50 + (-a^3 - a^2 + a)*q^53 + (-a^2 + a + 1)*q^58 - q^64 + (-a^3 - a^2 
        + a)*q^67 + (a^2 - 1)*q^72 + (a^3 - a^2 - a)*q^74 - 2*a*q^79 + a^2*q^81 
        + (a^2 - a - 1)*q^86 + (-a^3 - a^2 + a)*q^88 + 2*q^92 + (-a^3 - 1)*q^99 
        - a*q^100 + (-a^3 + 1)*q^106 + (a^2 + a - 1)*q^107 + (-a^3 + a^2 + 
        a)*q^109 + (-a^3 + a^2 + a)*q^116 + a*q^121 - a*q^128 + (-a^3 + 1)*q^134
        + (a^3 - a)*q^144 + (-a^3 - 1)*q^148 + (a^2 - a - 1)*q^149 + 2*a^2*q^151
        - 2*a^2*q^158 + a^3*q^162 + (a^2 - a - 1)*q^163 + a^3*q^169 + (a^3 - a^2
        - a)*q^172 + (-a^3 + 1)*q^176 + O(q^178)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^11 - a*q^25 - q^43 + (-a + 1)*q^51 - q^57 + q^99 + (2*a - 2)*q^107 -
        q^113 + (a - 1)*q^121 - a*q^123 + a*q^137 + (-a + 1)*q^163 + q^169 + (-a
        + 1)*q^177 + O(q^178),
    q^2 - a*q^8 + a*q^22 + (a - 1)*q^32 + a*q^36 - q^44 - a*q^50 - q^86 + (-a + 
        1)*q^88 + (-a + 1)*q^102 - q^114 + q^128 + (-a + 1)*q^144 + (-a + 
        1)*q^172 + a*q^176 + O(q^178),
    q^3 - q^17 + a*q^19 + (a - 1)*q^41 - q^59 + q^73 - a*q^75 + (-a + 1)*q^83 - 
        a*q^89 + (-a + 1)*q^97 - a*q^131 + (a - 1)*q^139 + (-a + 1)*q^153 - 
        q^171 + O(q^178),
    q^4 - a*q^16 - q^18 + (-a + 1)*q^22 + a*q^44 + (a - 1)*q^64 + a*q^72 + 
        a*q^86 - q^88 - a*q^100 + q^102 - a*q^114 + (2*a - 2)*q^134 + (a - 
        1)*q^162 - q^172 + (-a + 1)*q^176 + O(q^178),
    q^6 + (-a + 1)*q^12 - a*q^24 - q^34 + a*q^38 - q^48 + (a - 1)*q^68 + q^76 + 
        (a - 1)*q^82 + (a - 1)*q^96 - q^118 + a*q^136 + q^146 - a*q^150 + (-a + 
        1)*q^152 + a*q^164 + (-a + 1)*q^166 + O(q^178),
    q^9 + (a - 1)*q^11 - a*q^43 - q^51 + a*q^57 + (-2*a + 2)*q^67 + (-a + 
        1)*q^81 + a*q^99 - a*q^113 - 2*q^121 + (a - 1)*q^123 + (a - 1)*q^137 + 
        q^163 - q^177 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
21*H.3
;
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(
784
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 21*H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
178
;
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 + q^18 + (-a + 
        1)*q^22 + a*q^25 + (a - 1)*q^29 + a*q^32 + a*q^36 + (-a - 1)*q^37 + (a +
        1)*q^43 + (a + 1)*q^44 - q^50 + (a + 1)*q^53 + (-a - 1)*q^58 - q^64 + 
        (-a + 1)*q^67 - 2*a*q^71 - q^72 + (-a + 1)*q^74 - q^81 + (a - 1)*q^86 + 
        (a - 1)*q^88 + (a - 1)*q^99 - a*q^100 + (a - 1)*q^106 + (a + 1)*q^107 + 
        (-a + 1)*q^109 + (-a + 1)*q^116 + a*q^121 - 2*q^127 - a*q^128 + (a + 
        1)*q^134 + 2*q^142 - a*q^144 + (a + 1)*q^148 + (a + 1)*q^149 - a*q^162 +
        (a - 1)*q^163 - a*q^169 + (-a - 1)*q^172 + (-a - 1)*q^176 + O(q^178),
    q^7 + a*q^14 - q^28 + a*q^49 - a*q^56 - a*q^63 + (-a - 1)*q^77 - q^98 + 
        q^112 + q^126 + (-a + 1)*q^154 + a*q^175 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
784
);
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:=
178
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^9 + 2*q^23 - q^25 - 2*q^71 - 2*q^79 + q^81 - 2*q^113 + q^121 + 2*q^127
        + 2*q^137 + 2*q^151 - q^169 + O(q^178),
    q^2 - q^4 + q^8 - q^16 - q^18 + q^32 + q^36 + 2*q^46 - q^50 - q^64 - q^72 - 
        2*q^92 + q^100 + q^128 - 2*q^142 + q^144 - 2*q^158 + q^162 + O(q^178),
    q^7 - q^49 - q^63 + 2*q^161 - q^175 + O(q^178),
    q^14 - q^28 + q^56 - q^98 - q^112 - q^126 + O(q^178)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
785
);
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(
785
);
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(
785
);
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(
785
);
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(
785
);
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(
785
);
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(
785
);
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(
785
);
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(
785
);
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(
785
);
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(
785
);
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(
785
);
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(
785
);
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(
785
);
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:=
[
    q - q^9 + a*q^10 + q^11 + q^14 + q^16 + q^19 - a*q^25 + (a - 1)*q^26 - 
        a*q^31 - q^35 - q^40 + a*q^56 + (-a - 1)*q^59 + (a + 1)*q^61 + a*q^64 + 
        (-a + 1)*q^65 - q^71 + (-a - 1)*q^74 + (a - 1)*q^79 + q^81 - a*q^86 - 
        q^89 - a*q^90 + (-a - 1)*q^91 + (a + 1)*q^94 - q^99 - q^101 + (-a - 
        1)*q^104 - q^106 + 2*q^109 + a*q^110 - q^126 + (-a - 1)*q^134 - q^144 + 
        a*q^146 + (a + 1)*q^149 + q^154 + O(q^156),
    q^2 - q^5 + a*q^7 + a*q^8 + (-a - 1)*q^13 - q^18 + q^22 + (-a + 1)*q^37 + 
        q^38 + q^43 + q^45 + (a - 1)*q^47 - a*q^50 - a*q^53 - q^55 - a*q^62 - 
        a*q^63 + (-a + 1)*q^67 - q^70 - a*q^72 - q^73 + a*q^77 - q^80 + a*q^83 +
        a*q^88 - q^95 + a*q^97 + q^103 + q^107 + a*q^112 + (a + 1)*q^117 + (-a -
        1)*q^118 + (a + 1)*q^122 + a*q^125 + a*q^128 + (-a + 1)*q^130 + a*q^133 
        - q^142 + (-a - 1)*q^143 + a*q^152 + a*q^155 + O(q^156)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
785
);
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(
785
);
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:=
[
    q + a*q^9 + a*q^10 - q^11 + (-a + 1)*q^13 + a*q^14 + q^16 + (a + 1)*q^17 - 
        a*q^19 - a*q^25 - q^31 - a*q^35 - q^40 + (a + 1)*q^47 - q^56 + a*q^64 + 
        (-a - 1)*q^67 + q^71 - q^81 + (-a - 1)*q^82 - q^86 - a*q^89 - q^90 - 
        a*q^99 - q^101 + q^106 - a*q^110 + (a + 1)*q^117 + (-a + 1)*q^118 + (-a 
        - 1)*q^122 - q^126 + (a + 1)*q^130 + (a - 1)*q^143 + a*q^144 + q^146 + 
        (a - 1)*q^153 - a*q^154 + O(q^156),
    q^2 - q^5 - q^7 + a*q^8 + a*q^18 - q^22 + (-a + 1)*q^26 + (a + 1)*q^34 - 
        a*q^38 + (-a + 1)*q^41 - a*q^43 - a*q^45 - a*q^50 + a*q^53 + q^55 + (a +
        1)*q^59 + (-a + 1)*q^61 - q^62 - a*q^63 + (a - 1)*q^65 - a*q^70 - q^72 +
        a*q^73 + q^77 + (-a - 1)*q^79 - q^80 + a*q^83 + (-a - 1)*q^85 - a*q^88 +
        (a - 1)*q^91 + (a + 1)*q^94 + a*q^95 + q^97 + a*q^103 + (a + 1)*q^104 + 
        q^107 - q^112 + (-a - 1)*q^119 + a*q^125 + a*q^128 + a*q^133 + (-a - 
        1)*q^134 + (a - 1)*q^136 + q^142 + (-a - 1)*q^149 + (-a + 1)*q^151 + 
        q^152 + q^155 + O(q^156)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
786
);
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(
786
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
130
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
786
);
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(
130
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
786
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
786
);
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(
26
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
786
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
786
);
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(
10
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
786
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
65*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 - q^11 - q^13 - q^15 + q^16 - q^21 + q^33 + q^35 + q^39 - q^41 - 
        q^44 - q^52 + 2*q^53 - q^55 - q^60 + q^64 - q^65 + q^75 - q^77 - q^81 - 
        q^84 + 2*q^89 - q^91 + q^105 - q^109 - q^113 + q^121 + q^123 - q^125 - 
        q^129 + q^131 + q^132 + q^135 + q^140 + 2*q^143 + q^147 - q^151 + q^156 
        - q^164 + 2*q^167 + q^169 - q^175 - q^176 - q^177 - q^183 + q^189 - 
        q^191 - q^205 - q^208 - q^211 + 2*q^212 + q^215 - q^220 - q^240 + q^243 
        - q^245 + q^256 + O(q^258),
    q^2 + q^8 - q^22 - q^26 - q^30 + q^32 - q^42 + q^66 + q^70 + q^78 - q^82 - 
        q^88 - q^104 + 2*q^106 - q^110 - q^120 + q^128 - q^130 + q^150 - q^154 -
        q^162 - q^168 + 2*q^178 - q^182 + q^210 - q^218 - q^226 + q^242 + q^246 
        - q^250 + O(q^258),
    q^3 + q^12 - q^15 - q^21 - q^45 + q^48 - q^60 - q^63 + q^75 - q^81 - q^84 + 
        q^99 + 2*q^105 + q^117 - q^129 + q^135 + q^147 + 2*q^159 - q^165 - q^177
        - q^180 - q^183 + q^189 + q^192 - q^195 + q^225 - q^231 - q^240 - q^252 
        + O(q^258),
    q^5 + q^7 - q^11 - q^13 + q^20 - q^25 + q^27 + q^28 - q^35 - q^41 + q^43 - 
        q^44 - q^45 - q^49 - q^52 + q^59 + q^61 - q^63 + q^80 - q^81 + q^99 - 
        q^100 + q^101 + q^107 + q^108 - q^109 + q^112 - q^113 + q^117 + q^121 - 
        q^140 + q^143 - q^151 - q^164 + q^169 + q^172 + q^175 - q^176 + q^179 - 
        q^180 - q^191 + q^193 - q^196 - q^208 - q^211 - q^215 + q^225 + q^233 + 
        q^236 + q^239 + q^244 + q^245 - q^252 + O(q^258),
    q^6 + q^24 - q^30 - q^42 - q^90 + q^96 - q^120 - q^126 + q^150 - q^162 - 
        q^168 + q^198 + 2*q^210 + q^234 + O(q^258),
    q^9 - q^15 - q^21 - q^27 + q^33 + q^36 + q^39 - q^60 + q^75 - q^84 - q^99 + 
        q^105 - q^108 - q^117 + q^123 - q^129 + q^132 + q^144 + q^147 + q^156 - 
        q^177 - q^183 - q^240 + O(q^258),
    q^10 + q^14 - q^22 - q^26 + q^40 - q^50 + q^54 + q^56 - q^70 - q^82 + q^86 -
        q^88 - q^90 - q^98 - q^104 + q^118 + q^122 - q^126 + q^160 - q^162 + 
        q^198 - q^200 + q^202 + q^214 + q^216 - q^218 + q^224 - q^226 + q^234 + 
        q^242 + O(q^258),
    q^18 - q^30 - q^42 - q^54 + q^66 + q^72 + q^78 - q^120 + q^150 - q^168 - 
        q^198 + q^210 - q^216 - q^234 + q^246 + O(q^258)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
787
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
786
);
qprec:=
131
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
787
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
262
);
qprec:=
131
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
787
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
131*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
6
);
qprec:=
131
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
787
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
393*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
131
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^9 - q^11 + q^16 - q^19 - q^23 + q^25 + q^36 - q^37 - q^44 + q^64
        - q^73 - q^76 - q^77 + q^81 - q^92 - q^97 - q^99 + q^100 - q^101 + q^121
        + O(q^131),
    q^7 - q^11 - q^19 - q^23 + q^28 + q^29 + q^31 - q^37 + q^41 - q^44 + q^47 - 
        q^49 + q^63 + q^67 - q^73 - q^76 - q^92 - q^97 - q^99 - q^101 + q^107 + 
        q^112 + q^113 + q^116 + q^121 + q^124 + O(q^131)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
788
);
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(
788
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
196
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
788
);
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(
98
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
788
);
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(
98
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + a^2*q^4 + (-a^23 + a^8)*q^5 - a^3*q^8 - a^19*q^9 + (a^24 - 
        a^9)*q^10 + (-a^37 - a^13)*q^13 + a^4*q^16 + (a^40 - a^33)*q^17 + 
        a^20*q^18 + (-a^25 + a^10)*q^20 + (a^39 - a^32 - a^31 + a^25 - a^18 + 
        a^16 + a^11 - a^4)*q^25 + (a^38 + a^14)*q^26 + (a^37 - a^30 + a^28 + 
        a^23 - a^16 + a^9 - a^2)*q^29 - a^5*q^32 + (-a^41 + a^34)*q^34 - 
        a^21*q^36 + (-a^35 + a^6)*q^37 + (a^26 - a^11)*q^40 + (-a^36 + a^30 + 
        a^29 - a^22 + a^15 - a^8 + a)*q^41 + (a^35 - a^28 - a^27 + a^21 - a^14 +
        a^7 - 1)*q^45 + (-a^40 + a^33 - a^26 + a^19 - a^12 + a^5)*q^49 + (-a^40 
        + a^33 + a^32 - a^26 + a^19 - a^17 - a^12 + a^5)*q^50 + (-a^39 - 
        a^15)*q^52 + (-a^29 - a^17)*q^53 + (-a^38 + a^31 - a^29 - a^24 + a^17 - 
        a^10 + a^3)*q^58 + (a^18 + a^12)*q^61 + a^6*q^64 + (-a^38 + a^36 + a^31 
        - a^24 - a^21 + a^17 - a^11 - a^10 + a^3)*q^65 + (-a^28 + a^21 - a^14 + 
        a^7 - 1)*q^68 + a^22*q^72 + (a^26 - a^15)*q^73 + (a^36 - a^7)*q^74 + 
        (-a^27 + a^12)*q^80 + a^38*q^81 + (a^37 - a^31 - a^30 + a^23 - a^16 + 
        a^9 - a^2)*q^82 + (-a^34 + a^27 - a^20 + a^14 + a^13 - a^7 - a^6)*q^85 +
        (-a^39 + a^22)*q^89 + (-a^36 + a^29 + a^28 - a^22 + a^15 - a^8 + a)*q^90
        + (a^34 + a^32)*q^97 + (a^41 - a^34 + a^27 - a^20 + a^13 - a^6)*q^98 + 
        (a^41 - a^34 - a^33 + a^27 - a^20 + a^18 + a^13 - a^6)*q^100 + (-a^25 + 
        a^4)*q^101 + (a^40 + a^16)*q^104 + (a^30 + a^18)*q^106 + (a^10 - 
        a^5)*q^109 + (a^41 - a^34 + a^27 + a^22 - a^20 + a^13 - a^6)*q^113 + 
        (a^39 - a^32 + a^30 + a^25 - a^18 + a^11 - a^4)*q^116 + (a^32 - 
        a^7)*q^117 - a^9*q^121 + (-a^19 - a^13)*q^122 + (-a^39 + a^24 + a^20 - 
        a^5)*q^125 - a^7*q^128 + (a^39 - a^37 - a^32 + a^25 + a^22 - a^18 + a^12
        + a^11 - a^4)*q^130 + (a^29 - a^22 + a^15 - a^8 + a)*q^136 + (a^34 + 
        a^20)*q^137 - a^23*q^144 + (a^36 + a^18 - a^3 + a^2)*q^145 + (-a^27 + 
        a^16)*q^146 + (-a^37 + a^8)*q^148 + (-a^15 + a^12)*q^149 + (a^10 - 
        a^3)*q^153 + (-a^41 - a^38 + a^31 - a^24 + a^17 - a^10 + a^3)*q^157 + 
        (a^28 - a^13)*q^160 - a^39*q^162 + (-a^38 + a^32 + a^31 - a^24 + a^17 - 
        a^10 + a^3)*q^164 + (a^26 - a^25 - a)*q^169 + (a^35 - a^28 + a^21 - a^15
        - a^14 + a^8 + a^7)*q^170 + (a^24 - a)*q^173 + (a^40 - a^23)*q^178 + 
        (a^37 - a^30 - a^29 + a^23 - a^16 + a^9 - a^2)*q^180 + (a^30 - 
        a^27)*q^181 + (-a^36 - a^22 + a^15 + a^14 - a^9 - a^8 + a)*q^185 + (a^35
        - a^28 + a^21 - a^14 - a^11 + a^7 - 1)*q^193 + O(q^194)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
788
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
788
);
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(
14
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
788
);
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(
14
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^2 + a^2*q^4 + (a^2 - a)*q^5 - a^3*q^8 - a^5*q^9 + (-a^3 + a^2)*q^10 
        + (a^5 - a^4 + a^3 + a - 1)*q^13 + a^4*q^16 - 2*a^5*q^17 + (a^5 - a^4 + 
        a^3 - a^2 + a - 1)*q^18 + (a^4 - a^3)*q^20 + (a^4 - a^3 + a^2)*q^25 + 
        (-a^3 + 1)*q^26 + (a^2 + 1)*q^29 - a^5*q^32 + (2*a^5 - 2*a^4 + 2*a^3 - 
        2*a^2 + 2*a - 2)*q^34 + q^36 + (a^5 - a^4 + a^3 - a^2 + a)*q^37 + (-a^5 
        + a^4)*q^40 + (a^2 - a)*q^41 + (a^5 - a^4 + a^3 - a^2 + a)*q^45 - 
        a^5*q^49 + (-a^5 + a^4 - a^3)*q^50 + (a^4 - a)*q^52 + (-a^3 - a)*q^53 + 
        (-a^3 - a)*q^58 + (-a^5 + a^4)*q^61 + (a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^64 + (a^4 - a^3 - a + 1)*q^65 + 2*q^68 - a*q^72 + (-a^5 - a)*q^73 +
        (-a + 1)*q^74 + (-a^4 + a^3 - a^2 + a - 1)*q^80 - a^3*q^81 + (-a^3 + 
        a^2)*q^82 + (2*a^5 - 2*a^4 + 2*a^3 - 2*a^2 + 2*a)*q^85 + (a^4 - a)*q^89 
        + (-a + 1)*q^90 + (a^5 + a^3 - a^2 + a - 1)*q^97 + (a^5 - a^4 + a^3 - 
        a^2 + a - 1)*q^98 + (a^3 - a^2 + a - 1)*q^100 + 2*a^4*q^101 + (-a^5 + 
        a^2)*q^104 + (a^4 + a^2)*q^106 + (-a^5 - a^3)*q^109 + (a^5 - a^4 + a^3 -
        a^2 - 1)*q^113 + (a^4 + a^2)*q^116 + (a^4 + 1)*q^117 + a^2*q^121 + (-a^4
        + a^3 - a^2 + a - 1)*q^122 + (-a^2 + a - 1)*q^125 + q^128 + (-a^5 + a^4 
        + a^2 - a)*q^130 - 2*a*q^136 + (2*a^5 - 2*a^4 + 2*a^3 - 2*a^2 + 2*a - 
        2)*q^137 + a^2*q^144 + (a^4 - a^3 + a^2 - a)*q^145 + (a^5 - a^4 + a^3 + 
        a - 1)*q^146 + (a^2 - a)*q^148 + (-a^5 - a)*q^149 - 2*a^3*q^153 + (a^5 -
        a^4 - a^2 + a - 1)*q^157 + (a^5 - a^4 + a^3 - a^2 + a)*q^160 + a^4*q^162
        + (a^4 - a^3)*q^164 + (-a^5 + a^4 - a)*q^169 + (-2*a + 2)*q^170 + (-a^3 
        - a)*q^173 + (-a^5 + a^2)*q^178 + (a^2 - a)*q^180 + (a^5 - a^4 + a^3 + a
        - 1)*q^181 + (a^2 - 2*a + 1)*q^185 + (a^4 + 1)*q^193 + O(q^194)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
788
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
788
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 98*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^22 + q^25 - q^29 - q^33 + q^49 - q^54 - q^62 + q^64 - 
        q^88 - q^93 - q^97 + q^100 - q^101 - q^109 - q^116 + q^121 - q^132 - 
        q^157 - q^158 + q^169 - q^174 - q^181 + O(q^194),
    q^2 + q^8 - q^11 - q^27 - q^31 + q^32 - q^44 + q^50 - q^58 - q^66 - q^79 - 
        q^87 + q^98 + q^99 + 2*q^103 - q^108 + q^111 + q^123 - q^124 + q^128 + 
        2*q^139 + q^159 - q^167 - q^176 - q^179 + q^183 - q^186 + O(q^194),
    q^3 - q^11 + q^12 - q^18 - q^31 - q^44 + q^48 - q^58 + q^67 + q^71 - q^72 + 
        q^74 + q^75 - q^79 + q^82 + q^106 - q^111 + q^122 - q^123 - q^124 + 
        q^131 + q^147 + q^151 - q^159 - q^167 - q^176 - q^179 - q^183 + q^192 + 
        O(q^194),
    q^6 - q^9 - q^22 + q^24 - q^29 - q^36 + q^37 + q^41 + q^53 + q^61 - q^62 - 
        q^88 + q^96 - q^97 - q^101 - q^109 - q^116 + q^121 + q^134 + q^137 + 
        q^142 - q^144 + q^148 + q^150 - q^157 - q^158 + q^164 + q^173 - q^181 + 
        q^193 + O(q^194)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
789
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
789
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
262
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
789
);
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(
262
);
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
789
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
131*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
174
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^17 - q^24 + q^25 - q^27 - q^44 + q^49 - q^62 + q^68 + q^72 + q^78 + 
        q^86 - q^93 - q^102 + q^121 + q^122 + q^138 - q^143 - q^148 - q^151 + 
        q^156 - q^166 + q^169 + O(q^174),
    q^2 - q^22 - q^24 - q^27 - q^31 + q^39 + q^43 + q^50 + q^61 - q^66 + q^69 + 
        q^72 - q^74 + q^78 + q^81 - q^83 - q^93 - q^96 + q^98 - q^102 - q^104 + 
        q^132 + q^136 + q^138 - q^143 - q^149 + q^156 - q^157 - q^162 + q^169 + 
        q^172 + O(q^174),
    q^3 + q^27 - q^51 - q^54 - q^72 + q^75 - q^81 - q^117 - q^132 + q^147 + 
        O(q^174),
    q^4 + q^16 + q^17 - q^22 - q^26 + q^27 - q^32 - q^36 + q^44 - q^46 - q^52 + 
        q^62 + q^64 + q^68 - q^74 + q^86 - q^88 - q^89 - q^92 + q^100 - q^104 + 
        q^108 - q^109 - q^121 + q^122 - q^124 - q^128 - q^136 + q^143 - q^144 + 
        q^148 + q^151 - q^153 - q^162 + q^166 - q^173 + O(q^174),
    q^6 - q^27 - q^36 + q^54 - q^66 - q^93 + q^99 + q^117 + q^129 + q^150 - 
        q^153 + O(q^174),
    q^8 - q^26 + q^27 + q^31 + q^34 - q^46 - q^52 - q^72 - q^81 + q^83 - q^89 - 
        q^92 - q^109 - q^121 + q^143 + q^149 + q^157 + q^172 - q^173 + O(q^174),
    q^9 - q^24 - q^27 + q^72 + q^78 + q^81 - q^93 - q^102 + q^138 - q^153 + 
        q^156 - q^162 + O(q^174),
    q^11 + q^16 - q^22 - q^26 + q^27 - q^32 + q^37 + q^44 - q^46 - q^54 + q^62 +
        q^64 + q^68 - q^74 - q^88 - q^89 - q^99 + q^103 + q^108 - q^109 - q^121 
        - q^124 - q^128 - q^136 - q^144 + q^148 - q^162 + q^166 - q^173 + 
        O(q^174),
    q^12 - q^24 - q^27 - q^36 + q^48 + q^51 + q^54 - q^66 + q^72 + q^81 - q^93 -
        q^96 - q^102 + q^117 + q^132 - q^144 - q^153 - q^162 + O(q^174),
    q^13 - q^22 + q^23 + q^27 - q^32 + q^44 - q^54 + q^64 - q^74 - q^89 - q^109 
        - q^117 - q^121 - q^124 - q^136 + q^137 + q^148 - q^173 + O(q^174),
    q^18 - q^24 - q^27 + q^39 - q^66 + q^69 + q^72 + q^78 - q^93 - q^96 - q^102 
        - q^108 + q^132 + q^138 + q^156 + O(q^174),
    q^33 - q^36 - q^39 + q^48 + q^54 - q^69 - q^78 + q^99 + q^111 - q^138 - 
        q^153 + O(q^174)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
790
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
790
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
78
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
790
);
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(
78
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
790
);
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:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
790
);
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:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
790
);
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(
26
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
790
);
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:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
790
);
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:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
790
);
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(
6
);
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
790
);
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:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
790
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
39*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^11 - q^13 - q^16 + q^22 + q^26 - q^31 + q^32 - q^38 + q^40 - 
        q^46 + q^49 - q^55 + q^62 - q^65 + q^79 - q^80 + q^81 + 2*q^83 - q^88 - 
        q^89 + q^95 - q^99 - q^100 - q^101 - q^104 + q^115 - q^117 + q^121 - 
        q^125 - q^134 + 2*q^143 - q^144 - q^146 + q^152 - q^155 - q^163 - q^167 
        + q^169 + q^176 + q^178 + 2*q^179 - q^181 + q^184 - q^194 + q^198 + 
        q^202 + q^208 - q^209 + q^220 + 2*q^223 + O(q^234),
    q^2 - q^16 + q^18 - q^38 + q^44 - q^46 - q^50 + q^52 + q^64 - q^76 - q^88 - 
        q^92 + q^98 - q^104 + q^124 - q^134 - q^144 - q^146 + q^152 + q^158 + 
        q^162 + 2*q^166 + q^184 - q^194 + O(q^234),
    q^4 - q^11 - q^13 - q^16 + q^19 + q^22 + q^23 + q^26 - q^31 + q^36 - q^38 - 
        q^46 + q^62 + q^67 + q^73 - q^76 - q^89 - q^92 + q^97 - q^99 - q^100 - 
        q^101 - q^117 + q^121 - q^125 + q^128 + q^131 - q^134 + q^143 - q^144 - 
        q^146 + q^151 - q^163 - q^167 + q^169 + q^171 + q^178 - q^181 - q^194 + 
        q^196 + q^198 + q^202 + q^207 + O(q^234),
    q^5 + q^45 - q^50 - q^55 - q^65 - q^80 + q^110 + q^130 - q^155 + q^160 - 
        q^190 + q^200 - q^230 + O(q^234),
    q^8 - q^11 - q^13 - q^16 + q^19 + q^23 - q^31 + q^44 + q^52 + q^67 + q^72 + 
        q^73 - q^76 - q^88 - q^89 - q^92 + q^97 - q^99 - q^101 - q^104 - q^117 +
        q^121 + q^124 - q^125 + q^131 + q^143 - q^144 + q^151 - q^163 - q^167 + 
        q^169 + q^171 + q^176 - q^181 - q^200 + q^207 + q^208 + O(q^234),
    q^10 - q^50 - q^80 + q^90 - q^100 - q^190 + q^200 + q^220 - q^230 + 
        O(q^234),
    q^20 - q^40 - q^50 + q^110 + q^130 + q^180 - q^190 - q^220 - q^230 + 
        O(q^234),
    q^25 + q^40 - q^55 - q^65 - q^80 + q^95 - q^100 + q^115 - q^125 - q^155 + 
        q^220 + q^225 + O(q^234)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
790
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
2*H.1 + 39*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
234
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^19 - q^21 - q^22 + 2*q^23 + 1/2*q^25 - q^26 - q^31 - q^32 + q^36 - 
        1/2*q^40 - q^45 + q^50 - q^51 + 3/2*q^55 + q^62 + q^64 - 3/2*q^65 + 
        2*q^67 - 2*q^73 - 3/2*q^80 - q^84 - 2*q^88 + q^92 - 1/2*q^95 - 2*q^97 + 
        1/2*q^100 + q^101 + q^105 + q^111 - 1/2*q^115 + q^119 - q^121 - q^124 - 
        1/2*q^125 + 2*q^128 + q^129 + q^131 + q^141 - 2*q^143 + q^144 + q^151 + 
        q^152 - 1/2*q^155 - q^159 + q^160 - q^169 - q^171 - q^178 - q^180 - 
        q^190 + q^196 + q^198 + q^200 + q^202 - q^204 - 2*q^207 - q^208 - q^209 
        + 1/2*q^220 + 1/2*q^225 + q^230 + O(q^234),
    q^2 - q^19 + q^22 - q^23 + q^32 - q^42 - q^44 + q^46 - q^52 - q^55 - 2*q^62 
        + q^65 - q^67 + q^72 + q^73 + q^80 + q^88 - q^90 + q^97 + q^100 - q^102 
        + q^110 + q^121 + q^124 - q^128 - q^131 + q^134 + q^143 - q^146 - q^151 
        - q^152 + q^155 - 2*q^160 - q^168 + q^169 + q^171 - q^176 + q^178 - 
        q^194 - q^198 + q^207 + q^208 + q^209 + q^210 + q^222 - q^230 + 
        O(q^234),
    q^3 - q^7 + q^12 - q^15 - q^17 - q^28 + q^35 + q^37 + q^43 + q^47 + q^48 - 
        q^53 - q^60 - q^63 - q^68 + q^75 + q^85 - 2*q^93 + q^103 - q^107 - q^112
        + q^113 - q^127 + q^137 + q^140 + q^147 + q^148 - q^153 - q^157 + q^172 
        + q^173 - q^175 - q^185 + q^188 + q^192 - q^193 + q^197 - q^212 - q^215 
        + 2*q^217 - q^227 + q^233 + O(q^234),
    q^4 - q^19 + q^22 - q^23 + q^26 - q^36 - q^50 - q^55 - q^62 + q^65 - q^67 + 
        q^73 + q^80 + q^88 + q^97 - q^104 + q^121 - q^128 - q^131 + q^143 - 
        q^151 + q^155 + q^169 + q^171 + q^178 + q^190 - q^196 - q^198 - q^202 + 
        q^207 + q^209 - q^230 + O(q^234),
    q^5 - 2*q^22 + 2*q^23 - q^45 + q^50 + q^55 + 2*q^62 - q^65 + 2*q^67 - 2*q^73
        - q^80 - 2*q^88 - 2*q^97 - q^110 + 2*q^128 - q^130 - 2*q^143 - q^155 + 
        q^160 - 2*q^178 - q^190 + 2*q^198 + q^200 + 2*q^202 - 2*q^207 + q^230 + 
        O(q^234),
    q^6 - q^14 + q^24 - q^30 - q^34 - q^56 + q^70 + q^74 + q^86 + q^94 + q^96 - 
        q^106 - q^120 - q^126 - q^136 + q^150 + q^170 - 2*q^186 + q^206 - q^214 
        - q^224 + q^226 + O(q^234),
    q^8 + q^19 - 2*q^22 + q^23 - q^38 + q^44 - q^46 + q^50 + q^52 + q^55 + 
        2*q^62 - q^65 + q^67 - q^72 - q^73 - q^80 - 2*q^88 - q^97 - q^100 - 
        2*q^110 - q^121 - q^124 + 2*q^128 + q^131 - q^134 - q^143 + q^146 + 
        q^151 - q^155 + 2*q^160 - q^169 - q^171 + q^176 - 2*q^178 - q^190 + 
        q^194 + 2*q^198 + q^200 + 2*q^202 - q^207 - q^208 - q^209 + q^230 + 
        O(q^234),
    q^9 + q^19 - q^21 + 2*q^23 + 1/2*q^25 - q^31 - 2*q^32 + q^36 - 3/2*q^40 - 
        q^45 + q^49 - q^51 + 3/2*q^55 + q^64 - 3/2*q^65 + 2*q^67 - 2*q^73 + q^76
        - q^79 - 3/2*q^80 - q^81 - q^84 - 2*q^88 + 2*q^92 + 1/2*q^95 - 2*q^97 + 
        1/2*q^100 + q^101 + q^105 + q^111 + 1/2*q^115 + q^119 - 2*q^121 - q^124 
        - 1/2*q^125 + 2*q^128 + q^129 + q^131 + q^141 - 2*q^143 + q^144 + q^151 
        + 2*q^152 - 1/2*q^155 - q^159 + q^160 - q^171 + q^176 - 2*q^179 - q^180 
        - q^184 + q^196 + q^200 - q^204 - 2*q^207 - 2*q^208 - q^209 + 3/2*q^220 
        + 1/2*q^225 + O(q^234),
    q^10 - 2*q^19 + 2*q^22 - 2*q^23 - 2*q^44 + 2*q^46 - q^50 - 2*q^55 - 2*q^62 +
        2*q^65 - 2*q^67 + 2*q^73 + q^80 + 2*q^88 - q^90 + 2*q^97 + q^100 + 
        2*q^110 + 2*q^121 + 2*q^124 - 2*q^128 - 2*q^131 + 2*q^134 + 2*q^143 - 
        2*q^146 - 2*q^151 + 2*q^155 - 2*q^160 + 2*q^169 + 2*q^171 - 2*q^176 + 
        2*q^178 + q^190 - 2*q^194 - 2*q^198 - q^200 - 2*q^202 + 2*q^207 + 
        2*q^209 - q^220 - q^230 + O(q^234),
    q^11 - 1/2*q^25 - q^31 + 1/2*q^40 + q^44 + 1/2*q^55 - q^64 + 1/2*q^65 - 
        1/2*q^80 + q^89 + 1/2*q^95 - q^99 - 1/2*q^100 - q^101 - 1/2*q^115 - 
        q^124 - 1/2*q^125 - 1/2*q^155 + q^181 + q^184 - q^209 + 1/2*q^220 + 
        1/2*q^225 + O(q^234),
    q^13 - q^19 + 2*q^22 - q^23 - 1/2*q^25 - q^32 + q^38 - 1/2*q^40 - q^44 + 
        q^46 - q^50 - 3/2*q^55 - 2*q^62 + 1/2*q^65 - q^67 + q^73 + 1/2*q^80 + 
        2*q^88 + 1/2*q^95 + q^97 + 1/2*q^100 + 2*q^110 - 1/2*q^115 - q^117 + 
        q^121 + q^124 + 1/2*q^125 - q^128 - q^131 + q^134 + q^143 - q^146 - 
        q^151 + q^152 + 3/2*q^155 - q^160 + q^163 - q^167 + q^169 + q^171 - 
        q^176 + 2*q^178 + q^190 - q^194 - 2*q^198 - q^200 - 2*q^202 + q^207 - 
        q^208 + q^209 - 1/2*q^220 + 1/2*q^225 - q^230 + O(q^234),
    q^16 - q^19 - q^23 + q^32 + q^40 - q^55 - q^64 + q^65 - q^67 + q^73 - q^76 +
        q^88 - q^92 + q^97 + q^104 + q^121 - q^128 - q^131 + q^143 - q^144 - 
        q^151 - q^152 + q^155 - q^160 + q^169 + q^171 - q^176 + q^184 - q^200 + 
        q^207 + q^208 + q^209 - q^220 + O(q^234),
    q^18 - 2*q^19 + 3*q^22 - 2*q^23 + q^38 - q^40 - q^42 - 2*q^44 + 2*q^46 - 
        q^50 - 2*q^55 - 4*q^62 + 2*q^65 - 2*q^67 + q^72 + 2*q^73 + q^80 + 3*q^88
        - q^90 + 2*q^97 + q^98 + q^100 - q^102 + 3*q^110 + 2*q^121 + 2*q^124 - 
        2*q^128 - 2*q^131 + 2*q^134 + 2*q^143 - 2*q^146 - 2*q^151 + q^152 + 
        2*q^155 - q^158 - 3*q^160 - q^162 - q^168 + 2*q^169 + 2*q^171 - 2*q^176 
        + 3*q^178 + 2*q^190 - 2*q^194 - 3*q^198 - q^200 - 2*q^202 + 2*q^207 + 
        2*q^209 + q^210 - q^220 + q^222 - q^230 + O(q^234),
    q^20 + 2*q^22 - 2*q^32 - q^40 - q^50 - 2*q^62 + 2*q^92 + q^110 + q^130 + 
        2*q^152 + 2*q^178 - q^180 + q^190 - 2*q^198 - 2*q^202 - 2*q^208 + q^220 
        - q^230 + O(q^234)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
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(
791
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
112
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^21 - a^19)*q^2 + (-a^14 + a^12 - a^10)*q^4 - a^4*q^7 + (a^7 - a^5 + 
        a^3 - a)*q^8 + a*q^9 + (-a^12 - a^6)*q^11 + (a^23 - a^21 + a^17 - a^13 +
        a^9 - a^5 + a)*q^14 + (-2*a^22 + 2*a^20 + a^18 - a^16 - a^14 + a^12 + 
        a^10 - a^8 - a^6 + a^4 + a^2 - 2)*q^16 + (a^22 - a^20)*q^18 + (-a^23 + 
        a^21 + a^19 - a^17 - a^15 + a^13 + a^11 - a^9 - a^7 + 2*a^5 - a)*q^22 + 
        (-a^9 + a^4)*q^23 + (a^23 - a^19 + a^15 - a^11 + a^7 - a^3)*q^25 + (a^18
        - a^16 + a^14)*q^28 + (-a^17 - a^16)*q^29 + (-a^21 + a^19 - a^17 + a^15 
        - a^13 + a^11)*q^32 + (-a^15 + a^13 - a^11)*q^36 + (-a^20 + a^16 + a^15 
        - a^12 + a^8 - a^4 + 1)*q^37 + (a^17 - a^2)*q^43 + (2*a^22 - 2*a^18 + 
        2*a^16 + a^14 - a^12 - a^10 + a^8 + a^6 - a^4 - a^2 + 1)*q^44 + (-a^23 +
        a^21 - a^17 + a^13 - a^9 + a^5 + a^2 - a - 1)*q^46 + a^8*q^49 + (-a^20 +
        a^18)*q^50 + (-a^18 + a^6)*q^53 + (-a^11 + a^9 - a^7 + a^5)*q^56 + (a^10
        + a^9 - a^8 - a^7)*q^58 - a^5*q^63 + (a^14 - a^12 + a^10 - a^8 + a^6 - 
        a^4 + a^2)*q^64 + (-a^22 + a^3)*q^67 + (-a^23 + a^22 - a^18 + a^14 - 
        a^10 + a^6 - a^2)*q^71 + (a^8 - a^6 + a^4 - a^2)*q^72 + (a^17 - a^15 - 
        a^8 + a^6)*q^74 + (a^16 + a^10)*q^77 + (-a^22 + a^19 + a^18 - a^14 + 
        a^10 - a^6 + a^2)*q^79 + a^2*q^81 + (-a^23 + a^21 - a^10 + a^8)*q^86 + 
        (-a^19 + a^17 - a^15 + a^11 - a^9 + a^7)*q^88 + (a^23 - a^21 + a^19 - 
        a^18 + a^16 - a^14)*q^92 + (-a^23 + a^19 - a^15 + a^11 - a^7 + a^3 - 
        a)*q^98 + (-a^13 - a^7)*q^99 + (a^13 - a^11 + a^9)*q^100 + (a^23 - a^21 
        - a^19 + a^17 + a^15 - a^13 + a^7 - a^5 - a^3 + a)*q^106 + (-a^23 + a^19
        - a^15 + a^14 + a^11 - a^7 + a^3)*q^107 + (-a^21 - a^3)*q^109 + (a^22 - 
        a^20 - a^18 + a^16 + a^14 - a^12 - a^10 + a^8 + a^6 - 2*a^2 + 2)*q^112 +
        a^12*q^113 + (a^23 + a^22 - a^19 - a^18 + a^15 + a^14 - a^11 - a^10 + 
        a^7 + a^6 - 2*a^3 - 2*a^2 + a + 1)*q^116 + (a^20 + a^18 - a^16 + 2*a^12 
        - a^8 + a^4 - 1)*q^121 + (-a^22 + a^20 + a^18 - a^16 - a^14 + a^12 + 
        a^10 - a^8 - a^6 + a^4 + a^2 - 1)*q^126 + (a^11 + a^9)*q^127 + (2*a^23 -
        2*a^21 - a^19 + a^17 + a^15 - a^13 - a^11 + a^9 - 2*a^3 + 2*a)*q^128 + 
        (-a^22 + a^20 - a^16 + a^15 - a^13 + a^12 - a^8 + a^4 - 1)*q^134 + (a^20
        - a^16 + a^13 + a^12 - a^8 + a^4 - 1)*q^137 + (-a^19 + a^17 + a^16 - 
        a^14)*q^142 + (-2*a^23 + 2*a^21 + a^19 - a^17 - a^15 + a^13 + a^11 - a^9
        - a^7 + a^5 + a^3 - 2*a)*q^144 + (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 - a^3 + 2*a)*q^148 + 
        (-a^21 + a^17 - a^13 + a^9 - a^5)*q^149 + O(q^150)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^7 - a^5)*q^2 + (2*a^10 - a^8 + a^6 - a^4 + a^2 - 2)*q^4 + a^4*q^7 + 
        (a^7 + a^5 + a^3 + a)*q^8 + a*q^9 + (a^10 - a^8 + 2*a^6 - a^4 + a^2 - 
        1)*q^11 + (-a^11 - a^9)*q^14 + (-2*a^10 - 2*a^6 + a^4 - a^2 + 2)*q^16 + 
        (-a^8 - a^6)*q^18 + (-2*a^11 + a^9 - a^7 + 2*a^5 + a)*q^22 + (a^9 + 
        a^4)*q^23 + (-a^11 + a^9 - a^7 + a^5 - a^3 + a)*q^25 + (-a^4 - a^2 - 
        1)*q^28 + (-a^3 - a^2)*q^29 + (2*a^11 - a^9 - 2*a^5 - 2*a)*q^32 + 
        (2*a^11 - a^9 + a^7 - a^5 + a^3 - 2*a)*q^36 + (-a^10 - a)*q^37 + (-a^3 +
        a^2)*q^43 + (-2*a^10 - 2*a^6 - 2*a^2 + 1)*q^44 + (-a^11 - a^9 + a^2 + 
        1)*q^46 + a^8*q^49 + (-a^6 - a^4)*q^50 + (a^6 - a^4)*q^53 + (a^11 + a^9 
        + a^7 + a^5)*q^56 + (a^10 + a^9 + a^8 + a^7)*q^58 + a^5*q^63 + (2*a^10 +
        2*a^6 + 2*a^2 - 2)*q^64 + (-a^8 + a^3)*q^67 + (-a^10 - a^9 + a^8 - a^6 +
        a^4 - a^2 + 1)*q^71 + (a^8 + a^6 + a^4 + a^2)*q^72 + (a^8 + a^6 - a^3 - 
        a)*q^74 + (a^10 - a^2)*q^77 + (-a^10 + a^8 - a^6 - a^5 + a^4 - a^2 + 
        1)*q^79 + a^2*q^81 + (a^10 - a^9 + a^8 - a^7)*q^86 + (3*a^11 - a^9 + 
        3*a^7 - 3*a^5 + a^3 - 3*a)*q^88 + (-a^9 - a^7 - a^5 - a^4 - a^2 - 
        1)*q^92 + (-a^11 + a^9 - a^7 + a^5 - a^3 + 2*a)*q^98 + (a^11 - a^9 + 
        2*a^7 - a^5 + a^3 - a)*q^99 + (2*a^11 + a^7 - a^5 + a^3 - a)*q^100 + 
        (-a^11 + 2*a^9 - a^7 + a^5 - a^3 + a)*q^106 + (-a^11 + a^9 - a^7 + a^5 -
        a^3 + a - 1)*q^107 + (-a^7 + a^3)*q^109 + (-2*a^10 + a^8 - a^6 + 2*a^4 +
        2)*q^112 + (a^10 - a^8 + a^6 - a^4 + a^2 - 1)*q^113 + (-a^11 - a^10 + 
        a^9 + a^8 - a^7 - a^6 + a^5 + a^4 + 2*a + 2)*q^116 + (-a^8 + a^6 - 2*a^4
        + a^2 - 1)*q^121 + (-2*a^10 + a^8 - a^6 + a^4 - a^2 + 1)*q^126 + (a^11 +
        a^9)*q^127 + (-2*a^11 - a^7 + 2*a^5 + 2*a)*q^128 + (a^11 - a^10 - a^9 - 
        a^8 + a^7 - a^5 + a^3 - 2*a)*q^134 + (a^11 - a^10 - a^9 + a^7 - a^5 + 
        a^3 - a)*q^137 + (-a^5 - a^3 - a^2 - 1)*q^142 + (-2*a^11 - 2*a^7 + a^5 -
        a^3 + 2*a)*q^144 + (-2*a^11 + a^10 + a^9 + a^8 - a^7 + a^6 + a^5 - a^3 +
        2*a)*q^148 + (-a^11 + a)*q^149 + O(q^150)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
7*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
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(
48
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
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:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^5 - 1)*q^2 + (-a^5 - a^3 + 1)*q^4 + a^4*q^7 + (a^5 + a^3 + a - 1)*q^8
        + a*q^9 + (-a^4 + a^3 - a^2 + a - 1)*q^11 + (-a^4 - a^2)*q^14 + (-a^4 - 
        a^2)*q^16 + (a^5 - a^4 + a^3 - a^2 - 1)*q^18 + (a^2 - a + 1)*q^22 + (a^4
        - a^2)*q^23 + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^25 + (a^4 + a^2 + 
        1)*q^28 + (a^3 + a^2)*q^29 + a^2*q^32 + (-a^5 - a^3 + a^2 + 1)*q^36 + 
        (-a^3 + a)*q^37 + (a^3 + a^2)*q^43 - q^44 + (-a^4 + 1)*q^46 - a*q^49 + 
        (a^5 + a^3 - a^2 + a - 1)*q^50 + (a^5 + a^3 - a^2 + a - 1)*q^53 + (a^5 -
        a^4 - a^2 - 1)*q^56 + (-a^3 - a^2 - a - 1)*q^58 + a^5*q^63 + (a^3 - 
        a)*q^67 + (-a^5 - a^2)*q^71 + (a^5 + a^3 - 1)*q^72 + (a^5 - a^4 + 2*a^3 
        - a^2 + a - 1)*q^74 + (-a^3 + a^2)*q^77 + a^2*q^81 + (-a^3 - a^2 - a - 
        1)*q^86 + (-a^5 + a^4 - a^3 + a^2 - a + 1)*q^88 + (a^5 + a^4)*q^92 + 
        (-a^5 + a^4 - a^3 + a^2 + 1)*q^98 + (-a^5 + a^4 - a^3 + a^2 - a)*q^99 + 
        (-a^5 - a^3 - a + 1)*q^100 + (-a^5 - a^4 - a^3 - a + 1)*q^106 + (-a^5 + 
        a^4 - a^3 + a^2 - a + 2)*q^107 + (a^3 - 1)*q^109 + (-a^5 + a^4 - a^3 + 
        a^2 + 1)*q^112 - a^5*q^113 + (-2*a^5 + a^4 + 2*a^2 + 2)*q^116 + (-a^5 + 
        a^4 - a^3)*q^121 + (-a^5 - a^3)*q^126 + (-a^4 - a^2)*q^127 - q^128 + 
        (-a^5 + a^4 - 2*a^3 + a^2 - a + 1)*q^134 + (-a^5 + a^4 - 2*a^3 + a^2 - a
        + 1)*q^137 + (a^5 + a^3 + a^2 + 1)*q^142 + (-a^5 - a^3)*q^144 + (-a^4 - 
        a^3)*q^148 + (-a^4 + a)*q^149 + O(q^150)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
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(
24
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
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(
8
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 - a)*q^2 - q^4 + q^7 + a*q^9 + (a^2 + 1)*q^11 + (-a^3 - a)*q^14 - 
        q^16 + (-a^2 + 1)*q^18 - 2*a^3*q^22 + (-a - 1)*q^23 + a^3*q^25 - q^28 + 
        (-a - 1)*q^29 + (a^3 + a)*q^32 - a*q^36 + (-a^3 - 1)*q^37 + (-a^2 + 
        a)*q^43 + (-a^2 - 1)*q^44 + (a^3 + a^2 + a - 1)*q^46 + q^49 + (a^2 + 
        1)*q^50 - 2*a^2*q^53 + (a^3 + a^2 + a - 1)*q^58 + a*q^63 + q^64 + (a^3 +
        a^2)*q^67 + (a^3 + a^2)*q^71 + (a^3 - a^2 + a - 1)*q^74 + (a^2 + 1)*q^77
        + (a^3 - a^2)*q^79 + a^2*q^81 + (a^3 - a^2 - a + 1)*q^86 + (a + 1)*q^92 
        + (-a^3 - a)*q^98 + (a^3 + a)*q^99 - a^3*q^100 + (2*a^3 - 2*a)*q^106 + 
        (-a^3 - a^2)*q^107 + (-a^3 + a)*q^109 - q^112 - q^113 + (a + 1)*q^116 + 
        a^2*q^121 + (-a^2 + 1)*q^126 + (a^3 + a)*q^127 + (-a^3 + a^2 + a + 
        1)*q^134 + (-a + 1)*q^137 + (-a^3 + a^2 + a + 1)*q^142 - a*q^144 + (a^3 
        + 1)*q^148 - 2*a*q^149 + O(q^150)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
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(
42
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
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(
14
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 + 1)*q^2 + (a^5 - a^4 - a^2 + a)*q^4 - a*q^7 + (a^5 - a^4 + a)*q^8
        + a^2*q^9 + (-a^5 - a^3)*q^11 + (a^4 - a)*q^14 + (-a^4 + a)*q^16 + (-a^5
        + a^2)*q^18 + (-a^4 - a^2 - 1)*q^22 + (a^4 - a)*q^23 - a^5*q^25 + (a^4 -
        a + 1)*q^28 + (a^5 + a^3 - a^2 + a - 1)*q^29 - a^4*q^32 + (-a^5 + a^2 - 
        a)*q^36 + (a^5 - a^4 + a^3 + a - 1)*q^37 + (a^5 + a^3 - a^2 + a - 
        1)*q^43 - q^44 + (2*a^4 - a + 1)*q^46 + a^2*q^49 + (-a^5 - a)*q^50 + 
        (-a^5 - a)*q^53 + (a^4 - a^3 - a + 1)*q^56 + (a^5 + a^3 + a)*q^58 - 
        a^3*q^63 + (a^5 - a^4 + a^3 + a - 1)*q^67 + (a^4 - a^3)*q^71 + (-a^5 + 
        a^4 + a^2 - a)*q^72 + (-a^4 + a^3 + a^2 + a - 1)*q^74 + (a^5 + a^3 - a^2
        + a - 1)*q^77 - 2*a^3*q^79 + a^4*q^81 + (a^5 + a^3 + a)*q^86 - a^5*q^88 
        + (2*a^4 - a^3 - a + 2)*q^92 + (-a^5 + a^2)*q^98 + (-a^5 + 1)*q^99 + 
        (-a^5 + a^4 - a)*q^100 + (-a^5 + a^4 - 2*a)*q^106 + (-a^5 + 1)*q^107 + 
        (a^5 - a^4 + a^3 - a^2 + a)*q^109 + (a^5 - a^2)*q^112 - a^3*q^113 + 
        a*q^116 + (a^5 - a^4 - a^2 - 1)*q^121 + (a^5 - a^4 - a^2 + a - 1)*q^126 
        + (a^4 - a)*q^127 + q^128 + (-a^4 + a^3 + a^2 + a - 1)*q^134 + (-a^4 + 
        a^3 - a^2 + a - 1)*q^137 + (a^5 - a^2 + a)*q^142 + (-a^5 + a^4 + a^2 - a
        + 1)*q^144 + (-a^5 - a^4 + a^3 + a^2 - 1)*q^148 + (a^2 - a)*q^149 + 
        O(q^150)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
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(
12
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 28*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^4 + q^7 + a*q^9 + q^16 + (a + 1)*q^23 - a*q^25 - q^28 + (a + 1)*q^29 -
        a*q^36 + (-a + 1)*q^37 + (a - 1)*q^43 + q^49 - 2*q^53 + a*q^63 - q^64 + 
        (-a - 1)*q^67 + (-a - 1)*q^71 + (-a - 1)*q^79 - q^81 + (-a - 1)*q^92 + 
        a*q^100 + (-a - 1)*q^107 + q^112 + q^113 + (-a - 1)*q^116 + q^121 + (a +
        1)*q^137 + a*q^144 + (a - 1)*q^148 + 2*a*q^149 + O(q^150)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
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(
6
);
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
791
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 56*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
150
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^15 + q^16 + q^18 - q^22 + q^25 - q^30 - q^32 - q^36 + q^44 + q^49 - 
        q^51 + q^53 - q^56 - q^57 - q^60 + q^64 - q^77 - q^88 - 2*q^95 - q^99 - 
        q^100 + q^105 - q^106 + q^112 + 2*q^121 - q^128 + O(q^150),
    q^2 + q^18 - q^25 - q^30 - q^36 + q^50 - q^51 - q^63 - q^88 + q^98 + q^99 + 
        q^105 - q^106 + q^109 + q^127 + q^135 - q^141 + O(q^150),
    q^3 - q^19 - q^21 - q^24 + 2*q^27 + q^34 + q^35 - 2*q^38 - q^40 - q^42 - 
        q^47 + q^48 + q^54 - q^55 - q^59 + q^66 + 2*q^68 + q^70 + q^73 - q^84 - 
        q^89 - q^90 - q^94 + q^96 + q^101 + q^103 + q^110 + q^119 - q^125 - 
        q^132 - q^133 + q^136 + q^146 + q^147 + O(q^150),
    q^4 - q^15 - q^18 + q^36 - q^44 + q^51 - q^53 + q^57 + q^77 + q^95 + q^100 -
        q^105 - q^112 - q^120 - q^121 + O(q^150),
    q^5 - q^12 - q^19 + q^40 + q^54 - q^89 - q^110 - q^118 + q^125 + q^132 + 
        O(q^150),
    q^6 - q^12 - q^19 - q^21 + q^27 + 2*q^34 + 2*q^35 - 2*q^38 - q^40 - q^42 + 
        q^45 - q^47 + q^48 + 2*q^54 - q^55 - q^59 + 2*q^68 + 2*q^73 - q^75 - 
        q^76 - q^80 - q^84 - q^89 - 2*q^90 - q^94 + q^96 + q^101 + 2*q^103 - 
        q^108 + q^110 - q^118 + q^119 - q^125 - q^133 + q^136 + q^140 + 
        O(q^150),
    q^7 - q^15 - q^16 - q^18 + q^28 + 2*q^30 + q^44 - q^50 - q^53 - q^60 + q^63 
        - q^64 + q^72 - q^102 - q^105 + q^113 + 2*q^114 + q^120 - q^121 - q^126 
        - q^135 + 2*q^141 - q^144 + O(q^150),
    q^8 - q^15 - q^16 - q^18 + q^25 + q^30 + q^32 + q^36 - q^44 - q^50 + q^51 - 
        q^53 - q^60 + q^63 - q^64 + q^88 + q^100 - q^105 + q^106 - q^112 + q^114
        - q^121 - q^126 + q^128 - q^135 + q^141 + O(q^150),
    q^9 - q^15 - q^16 - q^18 + q^22 + q^30 + q^32 + q^36 - q^44 - q^50 - q^53 + 
        q^56 - q^64 - q^72 + q^81 + q^88 + q^95 + q^99 + q^100 - q^102 - q^105 +
        q^106 - q^112 - q^121 - q^126 + q^128 - q^135 + O(q^150),
    q^10 - q^12 - q^19 + q^27 + q^34 + q^35 - q^38 - q^42 + q^54 - q^55 - q^59 +
        q^68 + q^73 - q^76 - q^89 - q^94 + q^96 + q^101 + q^103 - q^118 + q^119 
        - q^125 + q^132 - q^133 + O(q^150),
    q^11 - q^15 - q^16 + q^28 + q^30 - q^50 - q^53 + q^81 + q^85 + q^99 - q^102 
        - q^105 + q^114 + q^120 - q^121 - q^126 - q^135 - q^144 + O(q^150),
    q^14 - q^16 - q^18 + q^22 + q^36 - q^44 - q^50 - q^53 + q^56 + q^57 + q^60 -
        q^64 - q^72 + q^85 + 2*q^88 - q^102 - q^105 - q^112 - q^121 + q^128 + 
        q^144 + q^149 + O(q^150),
    q^17 - q^19 - q^21 + q^27 + 2*q^34 + q^35 - 2*q^38 - q^40 - q^42 - q^47 + 
        q^48 + q^54 - q^59 + 2*q^68 + q^70 + q^73 - q^76 - q^80 - q^84 - q^89 - 
        q^90 - q^94 + q^96 + q^101 + q^103 + q^110 - q^118 + q^119 - q^125 - 
        q^132 - q^133 + q^136 + q^140 + q^146 + O(q^150),
    q^20 - q^21 - q^24 + q^27 + q^34 + q^35 - 2*q^38 - q^40 + q^45 - q^47 + q^48
        + q^54 - q^55 - q^59 + q^66 + q^68 + q^73 - q^75 - q^84 - 2*q^90 + q^101
        + q^103 + q^110 + q^119 - q^125 - q^132 - q^133 + O(q^150),
    q^33 - q^34 - q^35 + q^38 + q^40 - q^45 - q^48 + q^55 + q^59 - q^68 - q^73 +
        q^84 + q^90 - q^103 - q^110 + q^125 + q^133 + O(q^150)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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(
792
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 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(
792
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
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(
792
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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:=
258
;
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 + q^12 - 
        a*q^16 - q^17 + q^18 - q^19 - a*q^24 - a*q^25 + q^27 + (a - 1)*q^32 + 
        a*q^34 - a*q^36 + a*q^38 + (-a + 1)*q^41 + a*q^43 + (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
        + (-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 + 2*q^89 + q^96
        + a*q^97 + q^98 + q^100 + (-a + 1)*q^102 - q^107 + (a - 1)*q^108 + (2*a 
        - 2)*q^113 + (-a + 1)*q^114 - q^118 + (-a + 1)*q^121 - q^123 - a*q^128 +
        (-a + 1)*q^129 + (2*a - 2)*q^131 - 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 - q^177 - 2*a*q^178 + 2*q^179 - a*q^192 + (-a + 
        1)*q^193 + (-a + 1)*q^194 - a*q^196 - a*q^200 - q^201 - q^204 + (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 - q^242 + (a - 1)*q^243 + a*q^246 + (2*a - 
        2)*q^249 - q^251 + (a - 1)*q^256 + (-a + 1)*q^257 + O(q^258),
    q^11 - a*q^22 - a*q^33 + (a - 1)*q^44 + (a - 1)*q^66 + q^88 + (a - 1)*q^99 +
        a*q^121 + q^132 - a*q^176 - q^187 + q^198 - q^209 + (-a + 1)*q^242 + 
        O(q^258)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.3
;
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(
792
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.4
;
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(
792
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
10
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - a*q^4 + (2*a^3 - a^2 + a - 1)*q^7 + (a^3 - a^2 + 2*a - 1)*q^10 + 
        a^2*q^16 + a^3*q^22 + (-a^3 + 2*a^2 - 2*a + 1)*q^25 + (-a^3 + a^2 - a + 
        2)*q^28 + (a - 1)*q^31 + (-a^2 + 1)*q^40 + (-a^3 - a^2 - a)*q^49 + (-a^3
        + a)*q^55 + (a^3 - 1)*q^58 - a^3*q^64 + (-2*a^2 + a - 2)*q^70 + (a^2 - 
        1)*q^73 + (a^3 - 2*a^2 + a - 1)*q^79 + (-a^3 + a^2 - a + 1)*q^88 + (-a^3
        - a + 1)*q^97 + (-a^3 + a^2 - 1)*q^100 + (a^2 - a + 1)*q^103 + (-2*a^3 +
        a^2 - a + 1)*q^106 + (-a - 1)*q^112 + (a^2 + a)*q^118 + q^121 + (-a^2 + 
        a)*q^124 + (a + 1)*q^145 + (-a^3 - 1)*q^151 + (-a^2 - a)*q^154 + (a^3 - 
        a)*q^160 + (-a^3 + a^2 + 1)*q^166 + a*q^169 + (2*a^2 - 2*a + 1)*q^175 + 
        (a^3 - a^2 + a - 2)*q^193 + (2*a^3 + a - 1)*q^196 + (a^3 - a^2 - 
        1)*q^199 + (a^2 + 1)*q^202 + (a^3 - a^2 + a)*q^214 + (-a^3 - 1)*q^217 + 
        (a^3 - 2*a^2 + a - 1)*q^220 + (-a^3 + 1)*q^223 + (-a^3 + a^2 + 1)*q^232 
        + (a^3 + a^2)*q^241 + (a^3 - a^2 - a + 1)*q^250 + (a^3 - a^2 + a - 
        1)*q^256 + O(q^258),
    q^2 + (-a^3 - 1)*q^5 - a*q^8 - a^2*q^11 + (2*a^3 - a^2 + a - 1)*q^14 + (a^3 
        - a^2 + 2*a - 1)*q^20 + (-a^3 - a + 1)*q^29 + a^2*q^32 + (-2*a^3 + 2*a^2
        + 1)*q^35 + a^3*q^44 + (-a^3 + 2*a^2 - 2*a + 1)*q^50 + (a^3 + a^2)*q^53 
        + (-a^3 + a^2 - a + 2)*q^56 + (-a - 1)*q^59 + (a - 1)*q^62 + (a + 
        1)*q^77 + (-a^2 + 1)*q^80 + (a^3 - 1)*q^83 + (-a^3 - a^2 - a)*q^98 + 
        (a^3 - a^2 - 1)*q^101 + (-a^2 + a - 1)*q^107 + (-a^3 + a)*q^110 + (a^3 -
        1)*q^116 + (a^3 - 2*a^2 + 2*a)*q^125 - a^3*q^128 + (a^3 - a^2 + a)*q^131
        + (-2*a^2 + a - 2)*q^140 + (a^2 - 1)*q^146 + (a^2 - a)*q^149 + (a^2 - 
        2*a + 2)*q^155 + (a^3 - 2*a^2 + a - 1)*q^158 + (a^2 - a + 1)*q^173 + 
        (-a^3 + a^2 - a + 1)*q^176 + (-a^2 + 1)*q^179 + (-a^3 - a + 1)*q^194 + 
        (-a^3 - a)*q^197 + (-a^3 + a^2 - 1)*q^200 + (a^3 + a^2 + a + 1)*q^203 + 
        (a^2 - a + 1)*q^206 + (-2*a^3 + a^2 - a + 1)*q^212 + (-a - 1)*q^224 + 
        (a^3 + a - 1)*q^227 + (a^2 + a)*q^236 + q^242 + (2*a^3 + a - 2)*q^245 + 
        (-a^2 + a)*q^248 + (a^3 - a^2 + 2*a - 1)*q^251 + O(q^258)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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(
30
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*(-a^7 + a^5 + a^4 - 1)*q^3 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^4 + 
        1/2*(a^5 + a^2)*q^6 + 1/2*(-a^6 + a^2 + a)*q^9 + 1/2*(a^7 - 2*a^2)*q^11 
        + 1/2*(a^7 - a^3 - a^2 + 1)*q^12 - a*q^16 + 1/2*(3*a^7 + a^6 - 2*a^5 - 
        4*a^4 - 2*a^3 - a^2 + 2*a + 3)*q^17 + 1/2*(a^6 - 1)*q^18 + 1/2*(a^7 + 
        a^6 - a^3 - a^2 + 2)*q^19 + 1/2*(-a^6 + a)*q^22 + 1/2*(-a^7 + 2*a^5 + 
        a^4 - a - 2)*q^24 + a^7*q^25 + 1/2*(a^7 + a^6 - a^2 + 1)*q^27 + 
        1/2*(-a^5 - a^3 + 1)*q^33 + 1/2*(-a^5 - a^4 + a + 1)*q^34 + 1/2*(a^5 + 
        a^4 - 1)*q^36 + 1/2*(-a^7 - 2*a^6 - a^5 + 2*a^2 + a - 1)*q^38 + 1/2*(a^7
        + a^6 - a^5 - a^4 + a^3 + 2*a + 1)*q^41 + 1/2*(a^4 + a)*q^43 + 
        1/2*(-2*a^5 + 1)*q^44 + 1/2*(-a^7 - a^6 + a^4 + a^3 - 1)*q^48 + (a^6 - 
        a)*q^49 + 1/2*(-2*a^7 - a^5 + a^3 + 2*a^2 - a - 1)*q^51 + 1/2*(2*a^7 - 
        a^5 - a^4 + a + 1)*q^54 + 1/2*(-a^6 - a^3 - a^2 + a - 1)*q^57 + 
        1/2*(-a^6 + a^5 - a - 2)*q^59 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^64 + 
        1/2*(a^6 - a^4 - a^3 - a^2 + 1)*q^66 + 1/2*(a^7 - a^5 - a^4 - a^3 - a^2 
        + a + 1)*q^67 + 1/2*(-2*a^7 + a^6 + a^2 + a)*q^68 + 1/2*(2*a^7 + a^6 - 
        a^5 - 2*a^4 - 2*a^3 - a^2 + a + 2)*q^72 + 1/2*(-2*a^7 - a^6 + a^3 + 
        2*a^2 - 1)*q^73 + 1/2*(-a^7 + a^4 + a^3 - a - 1)*q^75 + 1/2*(-a^7 + a^5 
        + a^4 + a^3 - a^2 - a - 1)*q^76 + 1/2*(-a^7 + a^4)*q^81 + 1/2*(-a^7 + 
        a^2 - 1)*q^82 + 1/2*(-a^7 + a^4 - a^3 - a + 1)*q^86 + 1/2*a^4*q^88 + 
        1/2*(-a^6 - a^3)*q^96 + 1/2*(a^7 - a^4 + a)*q^97 + 1/2*(-a^7 + a^5 + a^3
        - a - 1)*q^99 - q^100 + 1/2*(-a^6 - a^5 - a^4 + a^3 + a^2 + 1)*q^102 + 
        1/2*(-2*a^7 + a^6 + 2*a^5 + 2*a^4 + a^3 - 4*a - 2)*q^107 + 1/2*(a^6 - 
        a^2 - a)*q^108 + 1/2*(a^7 + a^6 - a^4 + 1)*q^114 + 1/2*(-a^7 - a^6 + a^3
        + a^2 - 2)*q^118 + 1/2*(-a^7 - a^6 + a^4 + a^3 + a^2 - 1)*q^121 + 
        1/2*(a^7 - a)*q^123 + 1/2*(a^5 - a^4 - 1)*q^129 + 1/2*(-a^6 + a^3 + 
        a)*q^132 + 1/2*(a^7 + a^6 + a^2 - 2*a)*q^134 + 1/2*(a^6 + 1)*q^136 + 
        1/2*(-a^7 - a^5 + 2*a^2 - 1)*q^137 + 1/2*(a^7 - a^3 - a^2)*q^144 + 
        1/2*(-a^7 - 2*a^6 + a^5 + a^4 + 2*a^3 - 1)*q^146 + 1/2*(-a^6 + a^3 - 
        1)*q^147 + 1/2*(2*a^7 + a^6 - a^3 - 2*a^2 + 1)*q^150 + 1/2*(a^7 - a^6 + 
        a^2 + 2*a)*q^152 + 1/2*(-a^7 - 2*a^6 + a^3 + a^2 - 1)*q^153 + 1/2*(-a^7 
        + a^6 + a^5 + a^4 + a^3 - 2*a - 1)*q^162 + (-a^7 - a^6 + a^2)*q^163 + 
        1/2*(2*a^7 + 4*a^6 - a^4 - 2*a^3 - 2*a^2 - a + 2)*q^164 + (a^7 - a^4 - 
        a^3 - a^2 + a + 1)*q^166 + (-a^7 + a^5 + a^4 - a - 1)*q^169 + 1/2*(-a^7 
        + a^2 + 1)*q^171 + 1/2*(2*a^7 + a^6 - a^3 - 2*a^2 + 1)*q^172 + 1/2*(a^7 
        - a^5 - a^4 + a^3 + a + 1)*q^176 + 1/2*(a^7 - a^5 - a^3 - a^2 + 1)*q^177
        + (a^7 - 2*a^5 - a^4 + a + 2)*q^178 + 1/2*(2*a^5 + a - 2)*q^187 + 
        1/2*(a^7 - a^5 + 1)*q^192 + 1/2*(3*a^7 + a^6 + a^4 - a^3 - 2*a^2 + 
        1)*q^194 - a^4*q^196 + 1/2*(-a^5 - a^4 - a^3 + a^2 + a + 1)*q^198 + 
        1/2*(-2*a^7 - a^6 + 2*a^5 + 2*a^4 + a^3 + a^2 - 2)*q^201 + 1/2*(a^7 - 
        2*a^4 + a^2 + a + 1)*q^204 + 1/2*(a^7 - 2*a^2)*q^209 + (a^7 - 2*a^5 - 
        a^4 - a^3 + a + 1)*q^211 + 1/2*(-a^7 + a^5 - 1)*q^214 + 1/2*(a^6 - 
        1)*q^216 + 1/2*(a^7 - a^5 - a^4 - a^3 + a^2 + a + 1)*q^219 + 1/2*(a^7 + 
        a^6 - a^2 + 1)*q^225 + (a^7 + a^6 - 2*a^3 - a^2 + 1)*q^226 + 1/2*(-2*a^6
        + a^5 + a + 1)*q^227 + 1/2*(a^7 - a^6 - 2*a^5 - a^3 + 2*a + 2)*q^228 + 
        1/2*(-2*a^7 + 4*a^5 + 2*a^4 + a^3 - 2*a - 3)*q^233 + 1/2*(-a^7 - 2*a^6 -
        a^5 + 2*a^2 + a - 1)*q^236 + 1/2*(-2*a^7 + a^5 + a^4 - a - 1)*q^241 + 
        1/2*(-2*a^7 + 2*a^5 + 2*a^4 + a^3 - 2*a - 2)*q^242 + a^5*q^243 + 
        1/2*(a^6 + a^5 + 2*a^3 - a)*q^246 + 1/2*(a^6 - a^5 - a)*q^249 + (-a^7 - 
        a^6 + 2*a^4 + a^3 + a^2 - 1)*q^251 + a^2*q^256 + 1/2*(-a^7 + a^6 + a^4 -
        a^3 + 1)*q^257 + O(q^258),
    q^2 + 1/2*(-2*a^7 - a^6 + a^3 + 2*a^2 - 1)*q^3 + 1/2*(-a^7 + a^5 + a^4 - 
        1)*q^6 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^8 + 1/2*(2*a^7 - a^5 - a^4 +
        a + 1)*q^9 - 1/2*a^3*q^11 + 1/2*(a^5 + a^2)*q^12 + 1/2*(a^7 + a^6 - a^5 
        - a^4 - a^3 - a^2 + 1)*q^17 + 1/2*(-a^6 + a^2 + a)*q^18 + 1/2*(-a^6 + 
        a^5 - a - 2)*q^19 + 1/2*(a^7 - 2*a^2)*q^22 + 1/2*(a^7 - a^3 - a^2 + 
        1)*q^24 + 1/2*(-a^7 - a^6 - a^5 + a^4 + a^3 + a^2 - 1)*q^27 - a*q^32 + 
        1/2*(a^7 + 2*a^6 - a^4 - a^3 - a^2 + 1)*q^33 + 1/2*(3*a^7 + a^6 - 2*a^5 
        - 4*a^4 - 2*a^3 - a^2 + 2*a + 3)*q^34 + 1/2*(a^6 - 1)*q^36 + 1/2*(a^7 + 
        a^6 - a^3 - a^2 + 2)*q^38 + 1/2*(a^7 - a^4)*q^41 + 1/2*(-a^7 + 2*a^5 - 
        a^2 - 1)*q^43 + 1/2*(-a^6 + a)*q^44 + 1/2*(-a^7 + 2*a^5 + a^4 - a - 
        2)*q^48 + a^7*q^50 + 1/2*(-2*a^7 + a^4 + a^3 - 2*a - 1)*q^51 + 1/2*(a^7 
        + a^6 - a^2 + 1)*q^54 + 1/2*(-a^7 - a^5 + a^3 + a^2)*q^57 + 1/2*(a^7 - 
        a)*q^59 + 1/2*(-a^5 - a^3 + 1)*q^66 + 1/2*(-3*a^7 - 2*a^6 + a^5 + 2*a^4 
        + 4*a^3 + 2*a^2 - a - 3)*q^67 + 1/2*(-a^5 - a^4 + a + 1)*q^68 + 1/2*(a^5
        + a^4 - 1)*q^72 + 1/2*(-a^7 + a^4 - a^3 - a + 1)*q^73 + 1/2*(a^4 + 
        a)*q^75 + 1/2*(-a^7 - 2*a^6 - a^5 + 2*a^2 + a - 1)*q^76 + 1/2*(a^3 + 
        1)*q^81 + 1/2*(a^7 + a^6 - a^5 - a^4 + a^3 + 2*a + 1)*q^82 + (a^6 - 
        a^3)*q^83 + 1/2*(a^4 + a)*q^86 + 1/2*(-2*a^5 + 1)*q^88 + (-a^5 - 
        a^2)*q^89 + 1/2*(-a^7 - a^6 + a^4 + a^3 - 1)*q^96 + 1/2*(-a^7 - 2*a^6 + 
        2*a^4 + a^3 + a^2 + 2*a - 1)*q^97 + (a^6 - a)*q^98 + 1/2*(-a^4 - 1)*q^99
        + 1/2*(-2*a^7 - a^5 + a^3 + 2*a^2 - a - 1)*q^102 + 1/2*(a^7 + a^6 - a^4 
        - a^3 + 1)*q^107 + 1/2*(2*a^7 - a^5 - a^4 + a + 1)*q^108 + (a^5 + a - 
        1)*q^113 + 1/2*(-a^6 - a^3 - a^2 + a - 1)*q^114 + 1/2*(-a^6 + a^5 - a - 
        2)*q^118 + 1/2*(a^5 + 1)*q^121 + 1/2*(-a^7 - 2*a^5 + a^3 + a^2 + 
        2)*q^123 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^128 + 1/2*(2*a^7 + a^6 - 2*a^5
        - 2*a^4 - 2*a^3 + 2*a + 3)*q^129 + (a^7 - a^5 + a + 1)*q^131 + 1/2*(a^6 
        - a^4 - a^3 - a^2 + 1)*q^132 + 1/2*(a^7 - a^5 - a^4 - a^3 - a^2 + a + 
        1)*q^134 + 1/2*(-2*a^7 + a^6 + a^2 + a)*q^136 + 1/2*(-a^6 - a^3)*q^137 +
        (2*a^7 + 2*a^6 - a^4 - 2*a^3 - 2*a^2 + 2)*q^139 + 1/2*(2*a^7 + a^6 - a^5
        - 2*a^4 - 2*a^3 - a^2 + a + 2)*q^144 + 1/2*(-2*a^7 - a^6 + a^3 + 2*a^2 -
        1)*q^146 + 1/2*(-a^7 + 2*a^5 + a^4 + a^3 - a - 1)*q^147 + 1/2*(-a^7 + 
        a^4 + a^3 - a - 1)*q^150 + 1/2*(-a^7 + a^5 + a^4 + a^3 - a^2 - a - 
        1)*q^152 + 1/2*(-2*a^6 + a^5 - a^2)*q^153 + 1/2*(-a^7 + a^4)*q^162 + 
        1/2*(-a^7 + a^2 - 1)*q^164 + 1/2*(3*a^7 + a^6 - a^5 - a^4 - a^3 - 2*a^2 
        + 1)*q^171 + 1/2*(-a^7 + a^4 - a^3 - a + 1)*q^172 + 1/2*a^4*q^176 + 
        1/2*(a^5 + 2*a^4 - a^2 - a - 2)*q^177 + (-a^6 + a^5 + a)*q^179 + 
        1/2*(a^7 + a^2)*q^187 + 1/2*(-a^6 - a^3)*q^192 + (-a^7 + 2*a^2)*q^193 + 
        1/2*(a^7 - a^4 + a)*q^194 + 1/2*(-a^7 + a^5 + a^3 - a - 1)*q^198 - q^200
        + 1/2*(2*a^7 + a^6 - a^5 - a^3 - 2*a^2 - a + 2)*q^201 + 1/2*(-a^6 - a^5 
        - a^4 + a^3 + a^2 + 1)*q^204 + 1/2*(-2*a^7 + a^3 + 2*a^2)*q^209 + 
        1/2*(-2*a^7 + a^6 + 2*a^5 + 2*a^4 + a^3 - 4*a - 2)*q^214 + 1/2*(a^6 - 
        a^2 - a)*q^216 + 1/2*(-a^7 - 2*a^6 + a^5 + a - 1)*q^219 + 1/2*(a^7 + a^6
        + a^5 - a^4 - a^3 - a^2 + 1)*q^225 + 1/2*(a^7 + a^6 - a^2)*q^227 + 
        1/2*(a^7 + a^6 - a^4 + 1)*q^228 + 1/2*(-a^7 + a^4 + a^3 + a^2 - a - 
        1)*q^233 + 1/2*(-a^7 - a^6 + a^3 + a^2 - 2)*q^236 + 1/2*(-a^7 + a^6 + 
        2*a^5 - a^2 - 2*a - 1)*q^241 + 1/2*(-a^7 - a^6 + a^4 + a^3 + a^2 - 
        1)*q^242 + 1/2*(a^7 - a)*q^246 + 1/2*(a^7 - 2*a^4 + a)*q^249 + 1/2*(-a^7
        + 2*a^5 + a^4 - a - 2)*q^257 + O(q^258)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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(
30
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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(
10
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + a^2*q^16 + (-a^3 - 1)*q^19 - a^2*q^22 + (-a^3 + a^2 - a + 
        1)*q^25 + (-a^3 + a^2 + 1)*q^34 + (a^3 + a^2)*q^43 - a^2*q^49 - a^3*q^64
        + (a^3 - a^2 - 1)*q^67 + (2*a^3 - a^2 + a - 1)*q^73 + (a^3 - a^2 + 2*a -
        1)*q^76 + (a^3 - a^2 + a)*q^82 + a^3*q^88 + (a - 1)*q^97 - q^100 + (a^3 
        + 1)*q^118 - a^3*q^121 + (-a^2 - 1)*q^136 + (-a^3 - a + 1)*q^163 + (-a^3
        + a^2)*q^166 + a*q^169 + (-2*a^3 + a^2 - a + 1)*q^172 + (-a - 1)*q^178 +
        (a^2 + 1)*q^187 + a^3*q^196 + (a + 1)*q^211 + (-a^3 + a^2 - a)*q^214 + 
        (a^3 - a)*q^226 + (-a^3 + a^2 - 2*a + 1)*q^241 + (a^3 - a^2 + a - 
        1)*q^256 + O(q^258),
    q^2 - a*q^8 + a*q^11 + (a^3 - 1)*q^17 + a^2*q^32 + (-a^3 - 1)*q^38 + (-a^2 +
        a - 1)*q^41 - a^2*q^44 + (-a^3 + a^2 - a + 1)*q^50 + (a^3 - 2*a^2 + a - 
        1)*q^59 + (-a^3 + a^2 + 1)*q^68 + (a^2 - a)*q^83 + (a^3 + a^2)*q^86 + 
        (-a^3 + a^2 - a + 2)*q^89 - a^2*q^98 + (a^2 - a + 1)*q^107 + (-a^2 + 
        1)*q^113 - a^3*q^128 + (-a^3 - a)*q^131 + (a^3 - a^2 - 1)*q^134 + (a^2 +
        a)*q^137 + (2*a^3 - a^2 + a - 1)*q^146 + (a^3 - a^2 + 2*a - 1)*q^152 + 
        (a^3 - a^2 + a)*q^164 + a^3*q^176 + (a^2 - 1)*q^179 + (a - 1)*q^194 - 
        q^200 + (-a^3 + a^2 - 2*a + 1)*q^209 + (-a^3 - a + 1)*q^227 + (-a^3 + 
        a^2)*q^233 + (a^3 + 1)*q^236 - a^3*q^242 + (-a - 1)*q^257 + O(q^258),
    q^3 + 1/2*(-a^2 + a)*q^9 - a*q^12 + 1/2*(a^3 - a^2 + a - 2)*q^18 + 1/2*(a^3 
        + a - 1)*q^27 + 1/2*(a^3 - a^2)*q^36 + a^2*q^48 + 1/2*(a^2 - 1)*q^54 + 
        (-a^3 - 1)*q^57 - a^2*q^66 + 1/2*(a + 1)*q^72 + (-a^3 + a^2 - a + 
        1)*q^75 + 1/2*(a^3 + a)*q^81 + 1/2*(-a - 1)*q^99 + (-a^3 + a^2 + 
        1)*q^102 + 1/2*(-a^3 + 1)*q^108 + (a^3 + a^2)*q^129 + 1/2*(a^2 - a + 
        1)*q^144 - a^2*q^147 + 1/2*(-2*a^3 - a + 2)*q^153 + 1/2*(-a^3 + a^2 - 
        2*a + 1)*q^162 + 1/2*(-a^3 + 2*a^2 - 2*a)*q^171 - a^3*q^192 + 1/2*(-a^2 
        + a - 1)*q^198 + (a^3 - a^2 - 1)*q^201 + 1/2*(-a^3 + a)*q^216 + (2*a^3 -
        a^2 + a - 1)*q^219 + 1/2*(-a + 1)*q^225 + (a^3 - a^2 + 2*a - 1)*q^228 + 
        1/2*(-a^2 + a - 1)*q^243 + (a^3 - a^2 + a)*q^246 + O(q^258),
    q^6 + 1/2*(-2*a^3 + a^2 - a + 1)*q^9 + 1/2*(-a^2 + a)*q^18 - a*q^24 + 
        1/2*(-a^3 + a^2 - 2*a + 1)*q^27 + a*q^33 + 1/2*(a^3 - a^2 + a - 2)*q^36 
        + (a^3 - 1)*q^51 + 1/2*(a^3 + a - 1)*q^54 + 1/2*(a^3 - a^2)*q^72 + 
        1/2*(a^3 + 1)*q^81 + a^2*q^96 + 1/2*(-a^3 + a^2)*q^99 + 1/2*(a^2 - 
        1)*q^108 + (-a^3 - 1)*q^114 + (-a^2 + a - 1)*q^123 - a^2*q^132 + 1/2*(a 
        + 1)*q^144 + (-a^3 + a^2 - a + 1)*q^150 + 1/2*a^3*q^153 + 1/2*(a^3 + 
        a)*q^162 + 1/2*(2*a^3 - 2*a^2 - 1)*q^171 + (a^3 - 2*a^2 + a - 1)*q^177 +
        1/2*(-a - 1)*q^198 + (-a^3 + a^2 + 1)*q^204 + 1/2*(-a^3 + 1)*q^216 + 
        1/2*(-a^3 - a^2)*q^225 + 1/2*(a + 1)*q^243 + (a^2 - a)*q^249 + O(q^258)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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(
10
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^2 + a^2*q^4 + a^3*q^8 + a^3*q^11 + (a^3 - a^2 + a - 1)*q^16 + (-a^2 
        + a)*q^17 + (-a + 1)*q^19 + (a^3 - a^2 + a - 1)*q^22 - a^3*q^25 - q^32 +
        (-a^3 + a^2)*q^34 + (-a^2 + a)*q^38 + (-a^3 - a + 1)*q^41 + (a^3 - a^2 -
        1)*q^43 - q^44 + (a^3 - a^2 + a - 1)*q^49 + (-a^3 + a^2 - a + 1)*q^50 + 
        (-a^3 + a^2 - a)*q^59 - a*q^64 + (-a^3 + a^2)*q^67 + (a^2 - a + 1)*q^68 
        + (-a^3 - a)*q^73 + (-a^3 + a^2)*q^76 + (-a^3 + 1)*q^82 + (a^3 - 1)*q^83
        + (-a^2 - 1)*q^86 - a*q^88 + (-a^3 + a^2 + 1)*q^89 + (a^2 + 1)*q^97 - 
        q^98 + q^100 + (-a^3 - a + 1)*q^107 + (a - 1)*q^113 + (-a + 1)*q^118 - 
        a*q^121 - a^2*q^128 + (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 + 1)*q^146 + 
        (a^2 - a + 1)*q^152 + (-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)*q^172 - a^2*q^176 + (a^2 
        + 1)*q^178 + (a - 1)*q^179 + (a^3 - a^2 + a)*q^187 + (2*a^3 - 2*a^2 + 
        2*a - 2)*q^193 + (a^3 + a)*q^194 - a*q^196 + a*q^200 + (a^2 - a + 
        1)*q^209 + (a^2 + 1)*q^211 + (-a^3 + 1)*q^214 + (a^2 - a)*q^226 + (-a^3 
        + a^2 - a)*q^227 + (-a^2 - 1)*q^233 + (-a^2 + a)*q^236 + (-a^3 + 
        a^2)*q^241 - a^2*q^242 + 2*a*q^251 - a^3*q^256 + (a^3 + a)*q^257 + 
        O(q^258)
]
;
Bo:=
[
    q - a*q^2 + a^2*q^4 - a^3*q^8 - a^3*q^11 + (a^3 - a^2 + a - 1)*q^16 + (a^2 -
        a)*q^17 + (-a + 1)*q^19 + (a^3 - a^2 + a - 1)*q^22 - a^3*q^25 + q^32 + 
        (-a^3 + a^2)*q^34 + (a^2 - a)*q^38 + (a^3 + a - 1)*q^41 + (a^3 - a^2 - 
        1)*q^43 + q^44 + (a^3 - a^2 + a - 1)*q^49 + (a^3 - a^2 + a - 1)*q^50 + 
        (a^3 - a^2 + a)*q^59 - a*q^64 + (-a^3 + a^2)*q^67 + (-a^2 + a - 1)*q^68 
        + (-a^3 - a)*q^73 + (-a^3 + a^2)*q^76 + (-a^3 + 1)*q^82 + (-a^3 + 
        1)*q^83 + (a^2 + 1)*q^86 - a*q^88 + (a^3 - a^2 - 1)*q^89 + (a^2 + 
        1)*q^97 + q^98 + q^100 + (a^3 + a - 1)*q^107 + (-a + 1)*q^113 + (-a + 
        1)*q^118 - a*q^121 + a^2*q^128 + (-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 - 1)*q^146 + (-a^2 + a - 1)*q^152 + (-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)*q^172 + 
        a^2*q^176 + (a^2 + 1)*q^178 + (-a + 1)*q^179 + (a^3 - a^2 + a)*q^187 + 
        (2*a^3 - 2*a^2 + 2*a - 2)*q^193 + (-a^3 - a)*q^194 - a*q^196 - a*q^200 +
        (-a^2 + a - 1)*q^209 + (a^2 + 1)*q^211 + (-a^3 + 1)*q^214 + (a^2 - 
        a)*q^226 + (a^3 - a^2 + a)*q^227 + (a^2 + 1)*q^233 + (a^2 - a)*q^236 + 
        (-a^3 + a^2)*q^241 + a^2*q^242 - 2*a*q^251 - a^3*q^256 + (-a^3 - 
        a)*q^257 + O(q^258),
    q^3 - a*q^6 + a^2*q^12 - a^3*q^24 + a*q^27 - a^3*q^33 + (a^3 - a^2 + a - 
        1)*q^48 + (a^2 - a)*q^51 - a^2*q^54 + (-a + 1)*q^57 + (a^3 - a^2 + a - 
        1)*q^66 - a^3*q^75 + (a^3 - 1)*q^81 + q^96 + (-a^3 + a^2)*q^102 + 
        a^3*q^108 + (a^2 - a)*q^114 + (a^3 + a - 1)*q^123 + (a^3 - a^2 - 
        1)*q^129 + q^132 + (a^3 - a^2 + a - 1)*q^147 + (a^3 - a^2 + a - 1)*q^150
        + (-a^3 + a^2 + 1)*q^162 + (a^3 - a^2 + a)*q^177 - a*q^192 + (-a^3 + 
        a^2)*q^201 + (-a^2 + a - 1)*q^204 + (-a^3 + a^2 - a + 1)*q^216 + (-a^3 -
        a)*q^219 + (-a^3 + a^2)*q^228 + (-a^3 - a)*q^243 + (-a^3 + 1)*q^246 + 
        (-a^3 + 1)*q^249 + O(q^258),
    q^9 - a*q^18 + (a^3 + a - 1)*q^27 + a^2*q^36 + (-a^3 + 1)*q^54 - a^3*q^72 + 
        (-a^2 - 1)*q^81 - a^3*q^99 + (a^3 - a^2 - 1)*q^108 + (a^3 - a^2 + a - 
        1)*q^144 + (a^2 - a)*q^153 + (a^3 + a)*q^162 + (-a + 1)*q^171 + (a^3 - 
        a^2 + a - 1)*q^198 + (a^2 + 1)*q^216 - a^3*q^225 + (-a^3 + a^2 - a + 
        1)*q^243 + O(q^258)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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(
30
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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(
30
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^2 - a*q^4 + (-a^7 - a^6 + a^3 + a^2 -
        1)*q^8 + (-a^7 + a^5 + a^4 - a - 1)*q^9 + 1/5*(-3*a^7 - 3*a^6 + 3*a^5 + 
        4*a^4 + a^3 + 2*a^2 - 2*a - 7)*q^11 + a^2*q^16 + (-a^5 - a^4 - a^2 + 
        1)*q^17 - a^6*q^18 + (-a^6 + a^4 + a^3 + a^2 + a - 1)*q^19 + 1/5*(3*a^7 
        - 4*a^6 - 2*a^5 - a^4 - 2*a^3 + a^2 + 3*a)*q^22 + (a^7 + a^6 - a^4 - a^3
        - a^2 + 1)*q^25 + (a^7 + a^6 - a^3 - a^2)*q^27 + (a^5 - 1)*q^32 + 
        1/5*(3*a^7 + 6*a^6 - 2*a^5 - a^4 - 2*a^3 - 4*a^2 - 2*a)*q^33 + (-a^7 - 
        a^5 + a^3 + a^2 + 1)*q^34 + (-a^7 - a^6 + a^4 + a^3 + a^2 - 1)*q^36 + 
        (2*a^7 + a^6 - a^3 - a^2)*q^38 + (-a^6 + a^2 + a)*q^41 + (-a^5 - a^4 + a
        + 1)*q^43 + 1/5*(-3*a^6 - a^5 + 2*a^4 + a^3 + 2*a^2 + 4*a - 3)*q^44 - 
        a^7*q^49 - a^7*q^50 + (-2*a^7 - a^6 + a^5 + a^2 - a - 2)*q^51 + (a^7 - 
        a^5 - a^4 - a^3 - a^2 + a + 1)*q^54 + (a^6 - a^5 + a + 2)*q^57 + (a^7 + 
        2*a^6 - a^2 - a + 1)*q^59 - a^3*q^64 + 1/5*(5*a^7 + 2*a^6 - 6*a^5 - 
        8*a^4 - 4*a^3 - 3*a^2 + 4*a + 7)*q^66 + (-a^7 + a^5 + a^3 + a^2)*q^67 + 
        (a^6 + a^5 + a^3 - a)*q^68 + a^7*q^72 + (a^7 - a^5 + a + 1)*q^73 + (a^7 
        - a^5 - a^4 - a^3 - a^2 + a)*q^76 + (a^6 + a^5 - a^2 - a)*q^81 + (a^5 + 
        a^4 - 1)*q^82 + (a^7 + a^6 - a^5 - a^4 - a^3 - a^2 + 1)*q^83 + (a^6 + 
        1)*q^86 + 1/5*(7*a^7 + 2*a^6 - 2*a^5 - a^4 - 4*a^3 - 3*a^2 + 3*a + 
        3)*q^88 + (a^7 - a^3 - a^2)*q^89 + (a^5 - a - 1)*q^97 + q^98 + 
        1/5*(2*a^6 + 4*a^5 + 2*a^4 + a^3 - 3*a^2 - 6*a - 3)*q^99 + q^100 + (-a^7
        - 2*a^6 + 2*a^2 + a)*q^102 + (-a^6 + a^2 + a)*q^107 + (-a^5 + a + 
        1)*q^108 + (a^7 - a^4 + a)*q^113 + (a^7 + 2*a^6 + a^5 - 2*a^2 - a + 
        1)*q^114 + (a^6 - a^4 - a^2 - a)*q^118 + 1/5*(2*a^7 + 4*a^6 + 2*a^5 + 
        a^4 - 3*a^3 - 6*a^2 - 3*a)*q^121 + (2*a^7 - 2*a^5 - 2*a^4 - a^3 + 2*a + 
        2)*q^123 + (-a^6 + a)*q^128 + (-2*a^7 - 2*a^6 + a^4 + 2*a^3 + 2*a^2 - 
        2)*q^129 + (a^4 - a)*q^131 + 1/5*(-3*a^7 + 2*a^6 - 2*a^5 - a^4 + a^3 + 
        2*a^2 + 3*a + 3)*q^132 + (-a^7 + a^6 + 2*a^5 + a^4 - 2*a - 1)*q^134 + 
        (-a^7 + a^6 + a^5 - 2*a - 1)*q^136 + (-a^7 - a^6 + a^3 + a^2)*q^137 + 
        a*q^139 - q^144 + (a^7 + a^6 - a^2)*q^146 + (a^7 - 2*a^5 - a^4 - a^3 + 
        2*a + 2)*q^152 + (a^7 - a^5 - a^3 - a^2)*q^153 + (-a^7 - a)*q^162 + 
        (-a^6 + a^3 - 1)*q^163 + (a^7 - a^3 - a^2)*q^164 + (-a^5 - a^4 + a + 
        1)*q^166 + (-a^6 + a)*q^169 + (-a^7 - a^6 + a^3 + 2*a^2)*q^171 + (a^6 + 
        a^5 - a^2 - a)*q^172 + 1/5*(3*a^7 + a^6 - 2*a^5 - a^4 - 2*a^3 - 4*a^2 + 
        3*a)*q^176 + (-a^7 + 2*a^5 + 2*a^4 + a^3 + a^2 - 2*a - 2)*q^177 + (-a^6 
        - a^5 + a)*q^178 + (-a^3 + 1)*q^179 + 1/5*(-2*a^7 - 2*a^6 - 3*a^5 + a^4 
        - a^3 - 2*a^2 - 3*a - 3)*q^187 + a^7*q^193 + (-a^7 - a^6 + a^2 - 
        1)*q^194 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^196 + 1/5*(-3*a^7 - 3*a^6 
        - 2*a^5 - a^4 + a^3 + 2*a^2 - 2*a - 2)*q^198 + (-a^7 + a^5 + a^4 + a^3 -
        a - 1)*q^200 + (a^7 - a^6 + a^2 + 2*a)*q^201 + (-a^7 - a^6 + 2*a^5 + 
        2*a^4 + a^3 + a^2 - 2)*q^204 + 1/5*(-2*a^7 - 2*a^6 - 3*a^5 + a^4 + 4*a^3
        + 8*a^2 + 2*a + 2)*q^209 + (a^5 - a - 1)*q^211 + (a^5 + a^4 - 1)*q^214 +
        (a^7 + a^6 - a^2 + 1)*q^216 + (-a^5 + 2)*q^219 + (-a^7 + a^2)*q^225 + 
        (a^6 - a^3)*q^226 + (-a^7 - a^6 + a^5 - a - 1)*q^227 + (-a^7 + a^6 - a^2
        - 2*a)*q^228 + (-a^6 - a^5 + a)*q^233 + (-a^7 - a^5 - a^4 + a^2 + 
        1)*q^236 + (a^5 + a^4 - a - 2)*q^241 + 1/5*(-2*a^6 - 4*a^5 - 2*a^4 - a^3
        - 2*a^2 + a + 3)*q^242 + (a^5 - 1)*q^243 + (a^6 + a)*q^246 + a^3*q^251 +
        a^4*q^256 + (-a^7 - a^6 + a^2 - 1)*q^257 + O(q^258),
    q^3 + (-a^7 + a^5 + a^4 + a^3 - a - 1)*q^6 + (-a^6 + a^2 + a)*q^9 + 
        1/5*(5*a^7 - 2*a^6 - 4*a^5 - 2*a^4 - a^3 + 3*a^2 + 6*a + 3)*q^11 - 
        a*q^12 + (2*a^6 + a^5 - a + 1)*q^17 + (a^5 + a^4 - 1)*q^18 + (2*a^7 - 
        a^5 - a^4 - 2*a^3 - 2*a^2 + a + 1)*q^19 + 1/5*(3*a^7 + 3*a^6 + 2*a^5 + 
        a^4 - a^3 - 2*a^2 + 2*a - 3)*q^22 + (-a^7 - a^6 + a^3 + a^2 - 1)*q^24 + 
        (-a^5 + a + 1)*q^27 + 1/5*(-2*a^7 - 2*a^6 - 3*a^5 + a^4 + 4*a^3 + 3*a^2 
        + 2*a + 2)*q^33 + (-a^7 + a^6 + 2*a^5 - a^2 - 2*a - 1)*q^34 + (a^7 - a^3
        - a^2)*q^36 + (-a^6 - 2*a^5 + 2*a + 1)*q^38 + (a^5 - 2)*q^41 + (a^6 - 
        2*a)*q^43 + 1/5*(7*a^7 + 4*a^6 - 3*a^5 - 4*a^4 - 8*a^3 - 6*a^2 + 2*a + 
        5)*q^44 + a^2*q^48 + (-a^6 + a^5 + a^4 + a^3 + a^2 - 1)*q^51 + (a^7 + 
        a^6 - a^2 + 1)*q^54 + (a^6 - a^4 - a^2 - a)*q^57 + (-a^7 - a^6 - a^5 - 
        a^4 + a^3 + a^2 + 1)*q^59 + 1/5*(2*a^7 + 4*a^6 + 2*a^5 + a^4 + 2*a^3 - 
        a^2 - 3*a)*q^66 + (-2*a^7 - a^6 + a^5 + a^2 - a - 2)*q^67 + (-2*a^7 - 
        a^6 + a^2 - a)*q^68 + (-a^6 - a^5 + a)*q^72 + (a^7 - 2*a^2)*q^73 + (a^7 
        + a^6 - a^4 - a^3 - a^2 + 1)*q^75 + (2*a^7 + a^6 - a^5 - a^2 + a + 
        2)*q^76 + (-a^7 + a^2)*q^81 + (a^7 - a^5 - a^4 - 2*a^3 + a + 1)*q^82 + 
        (-a^7 - a^6 - a^4 + a^3 + a^2 - 1)*q^86 + 1/5*(-2*a^6 - 4*a^5 - 2*a^4 - 
        a^3 - 2*a^2 + 6*a + 3)*q^88 + (a^5 - 1)*q^96 + (-a^7 - a^6 + 2*a^4 + a^3
        + a^2 - 1)*q^97 + 1/5*(-3*a^7 - a^6 - 3*a^5 + a^4 + 2*a^3 + 4*a^2 + 
        2*a)*q^99 + (a^5 + a^4 - a - 2)*q^102 + (-a^5 - 1)*q^107 + (a^6 - a^2 - 
        a)*q^108 + (-a^7 - a^5 - a^4 + a^2 + 1)*q^114 + (-2*a^7 + a^5 + a^4 + 
        2*a^3 + 2*a^2 - a - 1)*q^118 + 1/5*(-3*a^7 + 2*a^6 - 2*a^5 - a^4 + a^3 +
        2*a^2 + 3*a + 3)*q^121 + (a^7 + a^6 - a^2)*q^123 + (a^7 - a^3 - 
        a^2)*q^129 + 1/5*(3*a^6 + a^5 - 2*a^4 - a^3 - 2*a^2 - 4*a - 2)*q^132 + 
        (-a^7 - 2*a^6 + 2*a^2 + a)*q^134 + (-2*a^7 - 2*a^6 + a^5 + a^4 + 2*a^3 +
        2*a^2 - 1)*q^136 + (-2*a^7 + 2*a^5 + 2*a^4 + a^3 - 2*a - 2)*q^137 + (a^7
        - a^5 + a + 1)*q^144 + (-2*a^5 + 1)*q^146 - a^7*q^147 - a^7*q^150 + (a^7
        + 2*a^6 - 2*a^2 - a)*q^152 + a*q^153 + a^5*q^162 + (-a^6 + 2*a)*q^164 + 
        (-a^7 + a^5 + a^4 - a - 1)*q^171 + (-a^7 + 2*a^2)*q^172 + 1/5*(3*a^7 + 
        3*a^6 - 3*a^5 + a^4 - a^3 - 2*a^2 + 2*a + 7)*q^176 + (-2*a^6 - a^5 + a^2
        + a)*q^177 + 1/5*(-3*a^6 + 4*a^5 + 2*a^4 + a^3 + 2*a^2 + 4*a - 3)*q^187 
        - a^3*q^192 + (2*a^7 - a^2)*q^194 + 1/5*(5*a^7 + 3*a^6 + a^5 - 2*a^4 - 
        a^3 - 2*a^2 + a + 3)*q^198 + (a^7 - a^5 - a^4 - a^3 - a^2 + a)*q^201 + 
        (a^7 - a^6 - a^5 - a^4 - a^3 + a)*q^204 + 1/5*(-5*a^7 + 2*a^6 + 4*a^5 + 
        2*a^4 + a^3 - 3*a^2 - 6*a - 3)*q^209 + (2*a^7 - 2*a^5 - 2*a^4 - a^3 + 
        2*a + 2)*q^214 + (-a^5 - a^4 + 1)*q^216 + (a^6 + a^5 - a^2 - a)*q^219 + 
        (a^5 - a - 1)*q^225 + (-a^7 - a^6 + 2*a^5 + 2*a^4 + a^3 + a^2 - 2)*q^227
        + (-a^7 + a^5 + a^3 + a^2)*q^228 + (2*a^7 + 2*a^6 - a^4 - 2*a^3 - 2*a^2 
        + 2)*q^233 + (a^6 + 2*a^5 - 2*a - 1)*q^236 + (a^7 - a^6 - 2*a^5 + a^2 + 
        2*a + 1)*q^241 + 1/5*(3*a^7 + 6*a^6 + 3*a^5 - a^4 - 2*a^3 - 4*a^2 - 2*a 
        + 5)*q^242 + (a^7 + a^6 - a^5 - a^4 - a^3 - a^2 + 1)*q^246 + (a^7 + a^6 
        - a^5 - a^4 - a^3 - a^2 + 1)*q^249 + (2*a^7 - a^2)*q^257 + O(q^258)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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(
10
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a^2*q^4 + (-a^3 - a)*q^7 + (-a^3 + a^2)*q^10 + (a^3 - a^2 + a - 1)*q^16 
        - a*q^22 + (a - 1)*q^25 + (-a^3 + 1)*q^28 + (a^2 + 1)*q^31 + (a^3 - a^2 
        + a)*q^40 + (a^3 - 1)*q^49 + (a^2 - a)*q^55 + (-a + 1)*q^58 - a*q^64 - 
        a^2*q^70 + (a^3 - a^2 + a)*q^73 + (-a^2 + a - 1)*q^79 - a^3*q^88 + (-a^2
        + a - 1)*q^97 + (a^3 - a^2)*q^100 + (-a^3 - a)*q^103 + (-a^3 - a)*q^106 
        + (a^2 + 1)*q^112 + (a^3 + a - 1)*q^118 + q^121 + (a^3 + a - 1)*q^124 + 
        (2*a^3 - 2*a^2 + 2*a - 2)*q^127 + (a^2 - 2*a + 1)*q^145 + (-a + 1)*q^151
        + (a^3 + a - 1)*q^154 + (a^2 - a)*q^160 + (-a^3 + a^2)*q^166 + a^2*q^169
        + q^175 + (-a^3 + 1)*q^193 + (-a^2 - 1)*q^196 + (-a^3 + a^2)*q^199 + 
        (a^3 - a^2 + a)*q^202 + (-a^3 + 1)*q^214 + (-2*a^3 - a + 1)*q^217 + 
        (-a^2 + a - 1)*q^220 + (-a + 1)*q^223 + (-a^3 + a^2)*q^232 + (a^3 - a^2 
        - 1)*q^241 + a^3*q^250 - a^3*q^256 + O(q^258),
    q^2 + (-a + 1)*q^5 + a^2*q^8 + (a^3 - a^2 + a - 1)*q^11 + (-a^3 - a)*q^14 + 
        (-a^3 + a^2)*q^20 + (-a^2 + a - 1)*q^29 + (a^3 - a^2 + a - 1)*q^32 - 
        q^35 - a*q^44 + (a - 1)*q^50 + (a^3 - a^2 - 1)*q^53 + (-a^3 + 1)*q^56 + 
        (a^2 + 1)*q^59 + (a^2 + 1)*q^62 + (a^2 + 1)*q^77 + (a^3 - a^2 + a)*q^80 
        + (-a + 1)*q^83 + (a^3 - 1)*q^98 + (-a^3 + a^2)*q^101 + (-a^3 - a)*q^107
        + (a^2 - a)*q^110 + (-a + 1)*q^116 + a*q^125 - a*q^128 + (-a^3 + 
        1)*q^131 - a^2*q^140 + (a^3 - a^2 + a)*q^146 + (a^3 + a - 1)*q^149 + 
        (-a^3 + a^2 - a + 1)*q^155 + (-a^2 + a - 1)*q^158 + (-a^3 - a)*q^173 - 
        a^3*q^176 + (a^3 - a^2 + a)*q^179 + (-a^2 + a - 1)*q^194 + (a^2 - 
        a)*q^197 + (a^3 - a^2)*q^200 + a^3*q^203 + (-a^3 - a)*q^206 + (-a^3 - 
        a)*q^212 + (a^2 + 1)*q^224 + (-a^2 + a - 1)*q^227 + (a^3 + a - 1)*q^236 
        + q^242 + a^2*q^245 + (a^3 + a - 1)*q^248 + (-a^3 + a^2)*q^251 + (2*a^3 
        - 2*a^2 + 2*a - 2)*q^254 + O(q^258),
    q^3 + a^2*q^12 + (a^3 - a^2 + a - 1)*q^18 + (-a^3 - a)*q^21 - a*q^27 + (-a^3
        + a^2)*q^30 + (a^3 - a^2 + a)*q^45 + (a^3 - a^2 + a - 1)*q^48 - a*q^66 -
        a*q^72 + (a - 1)*q^75 + (-a^3 + 1)*q^84 + (a^2 + 1)*q^93 - a^3*q^99 - 
        a^3*q^108 + (a^3 - a^2 + a)*q^120 + (a^2 + 1)*q^126 + (a^3 - 1)*q^147 + 
        q^162 + (a^2 - a)*q^165 + (-a + 1)*q^174 + (a^2 - a)*q^180 + (a^3 + a - 
        1)*q^189 - a*q^192 - a^2*q^210 + (a^3 - a^2 + a)*q^219 + (-a^2 + a - 
        1)*q^237 + a^2*q^243 + O(q^258),
    q^6 + a^2*q^9 + (-a + 1)*q^15 + a^2*q^24 + (a^3 - a^2 + a - 1)*q^33 + (a^3 -
        a^2 + a - 1)*q^36 + (-a^3 - a)*q^42 - a*q^54 + (-a^3 + a^2)*q^60 + (-a^3
        + 1)*q^63 - a^3*q^81 + (-a^2 + a - 1)*q^87 + (a^3 - a^2 + a)*q^90 + (a^3
        - a^2 + a - 1)*q^96 - q^105 - a*q^132 + (a^2 - a)*q^135 - a*q^144 + (a -
        1)*q^150 + (a^3 - a^2 - 1)*q^159 + (-a^3 + 1)*q^168 + (a^2 + 1)*q^177 + 
        (a^2 + 1)*q^186 - a^3*q^198 - a^3*q^216 + (a^3 - a^2)*q^225 + (a^2 + 
        1)*q^231 + (a^3 - a^2 + a)*q^240 + (-a + 1)*q^249 + (a^2 + 1)*q^252 + 
        O(q^258)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^31 - q^37 + q^49 - q^55 - q^67 - q^97 + 2*q^103 + q^115 + q^121 - 
        q^157 + 2*q^163 + q^169 - q^181 + 2*q^199 - q^223 - q^229 - 2*q^235 - 
        q^253 + O(q^258),
    q^2 - q^62 - q^74 + q^98 - q^110 - q^134 - q^194 + 2*q^206 + q^230 + q^242 +
        O(q^258),
    q^3 - q^15 - q^27 + q^33 - q^69 + q^81 - q^93 - q^111 + q^135 + 2*q^141 + 
        q^147 + 2*q^159 - q^165 - q^177 - q^201 - q^213 + O(q^258),
    q^5 - q^11 + q^23 - 2*q^47 - 2*q^53 + q^59 + q^71 + q^89 + q^113 - q^125 + 
        q^137 - q^155 + q^179 - q^185 + q^191 + q^245 + q^251 - 2*q^257 + 
        O(q^258),
    q^6 - q^30 - q^54 + q^66 - q^138 + q^162 - q^186 - q^222 + O(q^258),
    q^9 - q^27 - q^45 + q^99 + q^135 - q^207 + q^243 + O(q^258),
    q^10 - q^22 + q^46 - 2*q^94 - 2*q^106 + q^118 + q^142 + q^178 + q^226 - 
        q^250 + O(q^258),
    q^18 - q^54 - q^90 + q^198 + O(q^258)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^4 + q^16 - q^22 + q^25 - 2*q^31 + q^49 - 2*q^58 + q^64 - q^88 - 2*q^97
        + q^100 - 2*q^103 + q^121 - 2*q^124 - 2*q^166 - q^169 + q^196 + 2*q^199 
        + 2*q^202 + 2*q^214 + 2*q^223 - 2*q^232 + q^256 + O(q^258),
    q^2 + q^8 - q^11 - 2*q^29 + q^32 - q^44 + q^50 - 2*q^62 - 2*q^83 + q^98 + 
        2*q^101 + 2*q^107 - 2*q^116 + q^128 + 2*q^131 + 2*q^149 - 2*q^173 - 
        q^176 - 2*q^194 + 2*q^197 + q^200 - 2*q^206 + 2*q^227 + q^242 - 2*q^248 
        + O(q^258)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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(
6
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^3 - a*q^4 - a*q^9 + 1/2*(a + 1)*q^11 - q^12 + (a - 1)*q^16 - 
        1/2*a*q^22 + (-a + 1)*q^25 - q^27 + 1/2*(-a + 2)*q^33 + (a - 1)*q^34 + 
        (a - 1)*q^36 + (a + 1)*q^38 + 1/2*(-2*a + 1)*q^44 + a*q^48 + a*q^49 + (a
        - 2)*q^59 + q^64 - 1/2*q^66 + a*q^67 - a*q^75 + (a - 1)*q^81 - q^82 + 
        (-a + 2)*q^86 + 1/2*(a - 1)*q^88 + (a - 1)*q^97 + 1/2*(-2*a + 1)*q^99 - 
        q^100 + a*q^102 + a*q^108 + (-a + 2)*q^114 + 1/2*a*q^121 + 1/2*(-a - 
        1)*q^132 + q^136 + (-a - 1)*q^137 + q^144 + (-a - 1)*q^146 + q^147 + 
        (-2*a + 1)*q^152 - 2*q^163 - 2*a*q^166 + (-a + 1)*q^169 + 1/2*(a - 
        2)*q^176 + (2*a - 1)*q^177 + 1/2*(a - 1)*q^187 + (-a + 1)*q^192 + (-a + 
        1)*q^196 + 1/2*(a - 1)*q^198 + q^201 + 1/2*(a + 1)*q^209 + (a - 1)*q^214
        - q^225 + (a + 1)*q^236 + 1/2*(-2*a + 1)*q^242 + a*q^243 + (a - 1)*q^246
        + (2*a - 1)*q^251 - a*q^256 + (a - 2)*q^257 + O(q^258),
    q^2 + (-a + 1)*q^6 - a*q^8 + 1/2*q^11 - a*q^17 - a*q^18 + (a - 2)*q^19 + 
        1/2*(a + 1)*q^22 - q^24 + (a - 1)*q^32 + 1/2*(-a + 1)*q^33 + (-a + 
        1)*q^41 + (2*a - 1)*q^43 - 1/2*a*q^44 + (-a + 1)*q^50 - q^51 - q^54 + 
        (2*a - 1)*q^57 + 1/2*(-a + 2)*q^66 + (a - 1)*q^68 + (a - 1)*q^72 + (-a +
        2)*q^73 + (a + 1)*q^76 + 2*q^83 + 1/2*(-2*a + 1)*q^88 + a*q^96 + a*q^98 
        - 1/2*a*q^99 - a*q^107 + (a - 2)*q^118 + 1/2*(a + 1)*q^121 - a*q^123 + 
        q^128 + (a + 1)*q^129 + (2*a - 2)*q^131 - 1/2*q^132 + a*q^134 + (-a - 
        1)*q^139 - a*q^150 + (a - 1)*q^153 + (a - 1)*q^162 - q^164 + (a + 
        1)*q^171 + (-a + 2)*q^172 + 1/2*(a - 1)*q^176 + 1/2*(-2*a + 1)*q^187 + 
        (-a - 1)*q^193 + (a - 1)*q^194 + 1/2*(-2*a + 1)*q^198 - q^200 + a*q^204 
        - 3/2*q^209 + a*q^216 + (-2*a + 1)*q^219 + q^227 + (-a + 2)*q^228 + 
        a*q^233 + (-2*a + 1)*q^241 + 1/2*a*q^242 + (-2*a + 2)*q^249 + O(q^258)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^11 + (a - 1)*q^15 - a*q^25 + q^27 + (a - 1)*q^45 + a*q^47 + (a - 
        1)*q^49 - q^53 - a*q^69 - a*q^75 + q^93 + (-a + 1)*q^103 - a*q^111 + 
        a*q^115 + (a - 1)*q^121 + 2*q^125 + a*q^155 - q^163 + q^165 - a*q^169 + 
        q^177 + (-a + 1)*q^185 - q^199 + (a - 1)*q^201 + q^207 - a*q^213 - 
        a*q^225 + (2*a - 2)*q^257 + O(q^258),
    q^2 - a*q^22 + (a - 1)*q^30 - a*q^50 + q^54 + (a - 1)*q^90 + a*q^94 + (a - 
        1)*q^98 - q^106 - a*q^138 - a*q^150 + q^186 + (-a + 1)*q^206 - a*q^222 +
        a*q^230 + (a - 1)*q^242 + 2*q^250 + O(q^258),
    q^3 - q^9 + (-a + 1)*q^15 + (a + 1)*q^23 + (-a - 1)*q^31 - a*q^33 + (2*a - 
        1)*q^37 + (a - 1)*q^45 + (-a - 1)*q^59 - q^69 + (2*a - 1)*q^71 + q^81 + 
        (-2*a + 1)*q^89 + a*q^93 + (-a + 2)*q^97 + a*q^99 + (-a + 1)*q^111 + (-a
        - 1)*q^113 + (-a + 2)*q^115 + (-a + 2)*q^137 + a*q^141 + (a - 1)*q^147 +
        (a - 2)*q^155 - q^159 - q^165 + a*q^177 + (a + 1)*q^185 + (-a + 1)*q^201
        - a*q^207 + (-a + 1)*q^213 + (a - 2)*q^223 + (a + 1)*q^229 - q^243 + 
        (-2*a + 1)*q^251 + (-2*a + 1)*q^253 + O(q^258),
    q^4 + (a - 1)*q^12 + (a - 1)*q^16 + (-a + 1)*q^20 - a*q^36 - a*q^44 - a*q^48
        + a*q^60 - a*q^64 + a*q^80 + (2*a - 2)*q^92 + q^108 + (-a + 1)*q^124 + 
        q^132 + q^144 - q^148 + q^176 - q^180 + a*q^188 + q^192 + (a - 1)*q^196 
        - q^212 - q^220 + (-a + 1)*q^236 - q^240 + q^256 + O(q^258),
    q^5 - a*q^9 + q^15 + (a - 1)*q^23 + (a - 1)*q^25 - a*q^31 + (a - 1)*q^37 - 
        a*q^55 - a*q^59 + q^67 - a*q^69 + (a - 1)*q^71 + (a - 1)*q^75 + q^89 + 
        (a - 1)*q^93 + q^97 + (a - 1)*q^99 + q^111 - a*q^113 + q^115 - a*q^125 +
        q^135 + q^137 - a*q^155 + q^157 - a*q^165 + (a - 1)*q^177 - a*q^179 - 
        a*q^181 + (a - 1)*q^185 + (a - 1)*q^191 + q^201 + q^213 - a*q^223 + (a -
        1)*q^225 + (a - 1)*q^229 + a*q^235 - a*q^243 + (a - 1)*q^245 + q^251 + 
        q^253 + O(q^258),
    q^6 - q^18 + (-a + 1)*q^30 + (a + 1)*q^46 + (-a - 1)*q^62 - a*q^66 + (2*a - 
        1)*q^74 + (a - 1)*q^90 + (-a - 1)*q^118 - q^138 + (2*a - 1)*q^142 + 
        q^162 + (-2*a + 1)*q^178 + a*q^186 + (-a + 2)*q^194 + a*q^198 + (-a + 
        1)*q^222 + (-a - 1)*q^226 + (-a + 2)*q^230 + O(q^258),
    q^8 + (a - 1)*q^24 + (a - 1)*q^32 + (-a + 1)*q^40 - a*q^72 - a*q^88 - a*q^96
        + a*q^120 - a*q^128 + a*q^160 + (2*a - 2)*q^184 + q^216 + (-a + 1)*q^248
        + O(q^258),
    q^10 - a*q^18 + q^30 + (a - 1)*q^46 + (a - 1)*q^50 - a*q^62 + (a - 1)*q^74 -
        a*q^110 - a*q^118 + q^134 - a*q^138 + (a - 1)*q^142 + (a - 1)*q^150 + 
        q^178 + (a - 1)*q^186 + q^194 + (a - 1)*q^198 + q^222 - a*q^226 + q^230 
        - a*q^250 + O(q^258)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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(
6
);
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
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:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^25 + q^49 - 2*q^97 - q^121 - 2*q^133 + 2*q^157 + q^169 + 2*q^229 + 
        O(q^258),
    q^2 - q^8 + q^32 - q^44 - q^50 + q^98 - q^128 + 2*q^140 + q^176 - 2*q^194 + 
        q^200 - q^242 + O(q^258),
    q^4 - q^16 + q^22 + q^64 - 2*q^70 - q^88 - q^100 + 2*q^190 + q^196 - q^256 +
        O(q^258),
    q^5 - q^53 - q^77 + q^89 - q^113 - q^137 + q^209 + q^245 + q^257 + O(q^258),
    q^7 - q^19 - q^43 + q^55 - q^79 + q^127 + q^139 + q^151 - q^175 - q^211 + 
        O(q^258),
    q^10 - q^28 - q^40 + q^76 - q^106 + q^112 - q^154 + q^160 + q^172 + q^178 - 
        q^220 - q^226 + O(q^258),
    q^11 - 2*q^35 + 2*q^95 - 2*q^131 + 2*q^167 + 2*q^215 - 2*q^239 + O(q^258),
    q^14 + q^20 - q^38 - q^56 - q^80 - q^86 + q^110 + q^152 - q^158 - q^212 + 
        q^224 + q^254 + O(q^258)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
792
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + H.2 + 3*H.3 + 5*H.4
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
258
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^4 + q^16 - q^22 - q^25 - 2*q^34 - q^49 + q^64 + 2*q^67 + 2*q^82 - q^88
        - 2*q^97 - q^100 + q^121 - 2*q^136 - 2*q^163 + 2*q^166 - q^169 + 2*q^187
        - q^196 - 2*q^214 + q^256 + O(q^258),
    q^2 + q^8 - q^11 - 2*q^17 + q^32 + 2*q^41 - q^44 - q^50 - 2*q^68 + 2*q^83 - 
        q^98 - 2*q^107 + q^128 + 2*q^131 + 2*q^134 + 2*q^164 - q^176 - 2*q^194 -
        q^200 - 2*q^227 + 2*q^233 + q^242 + O(q^258),
    q^3 - q^9 + q^12 + q^27 - q^36 + q^48 - q^66 - q^75 - q^81 - 2*q^102 + q^108
        - q^144 - q^147 + q^192 + q^198 + 2*q^201 + q^225 + q^243 + 2*q^246 + 
        O(q^258),
    q^6 - q^18 + q^24 - q^33 - 2*q^51 + q^54 - q^72 + q^96 + q^99 + 2*q^123 - 
        q^132 - q^150 + 2*q^153 - q^162 - 2*q^204 + q^216 + 2*q^249 + O(q^258)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
60
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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(
60
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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(
60
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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(
60
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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(
20
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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(
60
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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(
60
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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(
12
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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(
12
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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(
12
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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(
20
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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(
12
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^3 + a^2 - a)*q^2 - a*q^4 - a^3*q^5 + 1/2*(-a^2 + a + 1)*q^7 + (-a^3 +
        a^2 + a)*q^10 + 1/2*(-a^3 + a^2 + a)*q^11 + a^3*q^14 - a^2*q^16 + 
        1/2*(a^2 + a - 1)*q^17 + (a^2 - 1)*q^20 + 1/2*(a^3 - 1)*q^21 + (a^2 - 
        1)*q^22 + 1/2*(a^3 + a^2 - a)*q^23 + 1/2*(a^3 - a^2 - a)*q^28 + 
        1/2*(-a^3 + a^2 + a)*q^29 + 1/2*(a^3 - 1)*q^31 + (-a^2 + a + 1)*q^32 + 
        1/2*(-a^2 + a + 1)*q^33 - q^34 + 1/2*(-a^2 - a + 1)*q^35 - a^3*q^39 + 
        (a^3 - a)*q^41 - a^2*q^42 + 1/2*(-a^2 - a + 1)*q^43 + 1/2*(-a^3 - 
        1)*q^44 - a*q^46 + 1/2*(-a^3 - 1)*q^51 + 1/2*(-a^3 - a^2 + a)*q^55 - 
        q^57 + (a^2 - 1)*q^58 + 1/2*(-a^2 + a + 1)*q^61 - a^2*q^62 + a^3*q^64 + 
        a^3*q^66 + 1/2*(a^3 - a^2 - a)*q^67 + 1/2*(-a^3 - a^2 + a)*q^68 + 
        1/2*(-a^2 - a + 1)*q^69 + q^70 + (-a^3 + a^2 + a)*q^78 + (-a^3 - 1)*q^79
        + (a^3 - a)*q^80 + a^2*q^81 + (-a^2 - a + 1)*q^82 + 1/2*(-a^2 + a + 
        1)*q^84 + 1/2*(-a^2 + a + 1)*q^85 + q^86 + 1/2*(-a^2 + a + 1)*q^87 + 
        1/2*(a^3 - a^2 - a)*q^89 + 1/2*(a^3 + a^2 - a)*q^91 + 1/2*(-a^3 + 
        1)*q^92 + 1/2*(a^3 + a^2 - a)*q^93 + a*q^97 + (-a^3 + a)*q^102 + 
        1/2*(a^3 + 1)*q^105 + (a^3 - a)*q^107 + a*q^110 + 1/2*(-a^3 - 1)*q^112 +
        (-a^3 - a^2 + a)*q^114 + 1/2*(-a^3 + a^2 + a)*q^115 + 1/2*(-a^3 - 
        1)*q^116 + a^2*q^119 + a^3*q^122 + (a^2 - 1)*q^123 + 1/2*(-a^2 + a + 
        1)*q^124 - a^3*q^125 + (-a^3 + a)*q^127 + 1/2*(-a^3 - 1)*q^129 - q^131 +
        1/2*(a^3 - a^2 - a)*q^132 + 1/2*(-a^3 + a^2 + a)*q^133 + (-a^2 + 
        1)*q^134 + q^138 + 1/2*(-a^2 - a + 1)*q^139 + 1/2*(a^3 + a^2 - a)*q^140 
        + O(q^142),
    q^3 + (a^3 + a^2 - a)*q^6 + 1/2*(a^3 - a^2 - a)*q^7 + 1/2*(a^3 + 1)*q^11 - 
        a*q^12 + (-a^3 + a)*q^13 + (-a^2 + 1)*q^14 - a^3*q^15 + 1/2*(-a^3 - a^2 
        + a)*q^17 - a^2*q^19 + 1/2*(-a^2 + a + 1)*q^21 + (a^3 - a)*q^22 + 
        1/2*(-a^3 + 1)*q^23 + (a^2 + a - 1)*q^26 + (a^2 - 1)*q^27 + 1/2*(a^3 + 
        1)*q^28 + 1/2*(a^3 + 1)*q^29 + (-a^3 + a^2 + a)*q^30 + 1/2*(a^2 - a - 
        1)*q^31 + 1/2*(-a^3 + a^2 + a)*q^33 + a*q^34 + 1/2*(a^3 + a^2 - a)*q^35 
        + (-a^2 + a + 1)*q^38 - q^41 + a^3*q^42 + 1/2*(-a^3 - a^2 + a)*q^43 + 
        1/2*(-a^2 - a + 1)*q^44 + a^2*q^46 - a^2*q^48 - q^49 + 1/2*(a^2 + a - 
        1)*q^51 - q^52 + (-a^3 - 1)*q^54 + 1/2*(-a^3 + 1)*q^55 + (a^3 - a)*q^58 
        + (a^3 + a^2 - a)*q^59 + (a^2 - 1)*q^60 + 1/2*(-a^3 - a^2 + a)*q^61 - 
        a^3*q^62 - a^2*q^65 + (a^2 - 1)*q^66 + 1/2*(a^3 + 1)*q^67 + 1/2*(a^3 - 
        1)*q^68 + 1/2*(a^3 + a^2 - a)*q^69 - a*q^70 - a*q^73 + a^3*q^76 + (-a^3 
        - a^2 + a)*q^82 - a*q^83 + 1/2*(a^3 - a^2 - a)*q^84 + 1/2*(a^3 - a^2 - 
        a)*q^85 + a*q^86 + 1/2*(-a^3 + a^2 + a)*q^87 + 1/2*(-a^3 - 1)*q^89 + 
        1/2*(-a^3 + 1)*q^91 + 1/2*(a^2 - a - 1)*q^92 + 1/2*(a^3 - 1)*q^93 + (a^3
        - a)*q^95 + (-a^2 + a + 1)*q^96 - a^2*q^97 + (-a^3 - a^2 + a)*q^98 - 
        q^102 + a*q^103 + 1/2*(-a^2 - a + 1)*q^105 + (-a^3 + a)*q^108 + (-a^2 + 
        1)*q^109 + a^2*q^110 + 1/2*(a^2 + a - 1)*q^112 + a^2*q^113 + 1/2*(-a^3 -
        1)*q^115 + 1/2*(-a^2 - a + 1)*q^116 - 2*a*q^118 - a^3*q^119 + a^2*q^121 
        + a*q^122 + (a^3 - a)*q^123 + 1/2*(-a^3 + a^2 + a)*q^124 - q^127 + 
        1/2*(-a^2 - a + 1)*q^129 + (-a^2 + a + 1)*q^130 + 1/2*(-a^3 - 1)*q^132 +
        1/2*(-a^3 - 1)*q^133 + (a^3 - a)*q^134 + a*q^135 + (-a^3 + a)*q^137 - 
        a*q^138 + 1/2*(a^3 + a^2 - a)*q^139 + 1/2*(-a^3 + 1)*q^140 + O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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(
4
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 2*a*q^3 + a*q^4 - 3*q^9 - 2*q^12 + q^13 - q^16 + (-a + 1)*q^17 + (a + 
        1)*q^23 - q^25 - 4*a*q^27 + (-a + 1)*q^29 - 3*a*q^36 + 2*a*q^39 + (a - 
        1)*q^43 - 2*a*q^48 + a*q^49 + (2*a + 2)*q^51 + a*q^52 + (-a - 1)*q^53 - 
        q^61 - a*q^64 + (a + 1)*q^68 + (2*a - 2)*q^69 - 2*a*q^75 + (a + 1)*q^79 
        + 5*q^81 + (2*a + 2)*q^87 + (a - 1)*q^92 - a*q^100 + (a + 1)*q^101 + 
        4*q^108 - 2*a*q^113 + (a + 1)*q^116 - 3*q^117 - a*q^121 + (-2*a - 
        2)*q^129 + (-a + 1)*q^139 + O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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(
12
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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(
12
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
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:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^3 - a)*q^3 + a*q^4 + (a^3 + a^2 - a - 1)*q^5 + (2*a^2 - 2)*q^9 + 
        (-2*a^2 + 1)*q^12 + (a^2 - 1)*q^13 + (-a^3 + a^2 + 2*a + 1)*q^15 + 
        a^2*q^16 + (a^3 + a^2)*q^19 + (a^3 - a - 1)*q^20 + (-a^3 - 2*a^2 + 
        1)*q^25 + (-a^3 + 2*a)*q^27 + (2*a^3 - 2*a)*q^36 + (-a^3 + 2*a)*q^39 + 
        (a^3 - a^2 - a)*q^41 + (-2*a^3 - 2*a^2)*q^45 + (a^3 + 1)*q^47 + (-2*a^3 
        + a)*q^48 + (-a^3 + a)*q^49 + (a^3 - a)*q^52 + (-2*a^3 - a^2 + a + 
        2)*q^57 + (a^3 + a^2 + a + 1)*q^60 + (a^2 - 1)*q^61 + a^3*q^64 + (-a^3 -
        a^2)*q^65 + (a^3 - a^2 - a + 1)*q^73 + (3*a^3 + a^2 - 3*a - 2)*q^75 + 
        (a^3 + a^2 - 1)*q^76 + (-a - 1)*q^80 - a^2*q^81 + (-a^2 + a)*q^83 + 
        (-a^2 - 2*a - 1)*q^95 + (-a^2 - a + 1)*q^97 + (-2*a^3 - a^2 + a + 
        1)*q^100 - a^3*q^103 - a^2*q^107 + (a^2 + 1)*q^108 + (a^2 - a)*q^109 + 
        (2*a^3 - a)*q^113 - 2*a^2*q^117 - a*q^121 + (2*a^3 + a^2 - a + 1)*q^123 
        + (a^3 + a^2 + a + 1)*q^125 + (-a^3 + 2*a)*q^131 + (2*a^3 + a^2 - a - 
        2)*q^135 + (-a^3 + a^2)*q^137 + (-a^3 - a^2 - a + 2)*q^141 + O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
793
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1 + 30*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + a*q^4 + (a + 1)*q^5 - q^9 + q^13 - q^16 + (-a - 1)*q^19 + (a - 1)*q^20 +
        a*q^25 - a*q^36 + (a + 1)*q^41 + (-a - 1)*q^45 + (-a + 1)*q^47 - a*q^49 
        + a*q^52 + q^61 - a*q^64 + (a + 1)*q^65 + (a - 1)*q^73 + (-a + 1)*q^76 +
        (-a - 1)*q^80 + q^81 + (a + 1)*q^83 - 2*a*q^95 + (-a - 1)*q^97 - q^100 -
        2*a*q^103 - 2*q^107 + (-a - 1)*q^109 - q^117 - a*q^121 + (a - 1)*q^137 +
        O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
794
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
396
);
qprec:=
197
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
794
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
132
);
qprec:=
197
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
794
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
44
);
qprec:=
197
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
794
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
11*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
36
);
qprec:=
197
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
794
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
33*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
12
);
qprec:=
197
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
794
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
99*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
197
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
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(
795
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
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(
795
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
52
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
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(
52
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
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(
52
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
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(
52
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^10 + a^5 + a)*q^4 + (a^11 + a^7)*q^6 - a^4*q^9 + (a^9 - 1)*q^10 - 
        a^6*q^15 + (-a^11 + a^10 - a^7 + a^6 + a^2)*q^16 + (-a^9 - a^2)*q^19 + 
        (a^11 - a^10 + a^9 + a^7 - a^6 + a^5 - a^2 + a - 1)*q^24 - a^8*q^25 + 
        (a^4 + a^3)*q^31 + (a^8 + a^3)*q^34 + (-a^9 - a^5 - a)*q^36 + (a^10 + 
        a^6 - a^5 - a)*q^40 + (-a^11 + a^10 - a^9 - a^7 - a^5 + a^4 - a^3 - a + 
        1)*q^46 - a*q^49 + (a^9 - a^5)*q^51 + (-a^11 + a^2)*q^54 + (-a^11 - a^7 
        - a^3)*q^60 + (-a^3 - 1)*q^61 + (a^10 - a^9 + a^6 - a^5 - a + 1)*q^64 + 
        (-a^11 + a^10 - a^9 + a^8 - a^7 + a^6 + a^4 - a^3 + a^2 - a + 1)*q^69 + 
        (a^11 - 2*a^10 + a^9 - a^8 - 2*a^6 + a^5 - a^4 - a^2 + 2*a - 1)*q^76 + 
        (-a^10 + a^2)*q^79 + a^8*q^81 + (a^11 - a^7)*q^85 + (a^4 + 1)*q^90 + 
        (a^6 - a^4 + a^2 - 1)*q^94 + (a^9 - a^8 + a^5 - a^4 + a - 1)*q^96 + 
        (-a^9 - a^5 + 1)*q^100 + (a^10 - a)*q^106 + (a^10 + a^7)*q^109 + (-a^9 +
        a^7 + a^3 + 1)*q^114 + (a^7 + a)*q^115 + a^6*q^121 + (a^9 + a^8 + a^5 + 
        a^4 + a + 1)*q^124 + a^10*q^135 + (a^8 + a^5)*q^136 + (2*a^11 - a^10 + 
        a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^139 + (a^11 - 
        2*a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 1)*q^141 + 
        (a^11 - a^10 - a^6 - a^2 + a)*q^144 + (a^6 + a^2)*q^150 + (-a^11 + 
        a^5)*q^151 - a^7*q^159 + (a^11 - a^10 + a^7 - a^6 + a^3 - a^2)*q^160 + 
        (-a^10 - a^8 - a^6 - a^4)*q^166 - a^11*q^169 + (a^6 - 1)*q^171 + (-a^11 
        + a^9)*q^181 + (-a^10 - a^8 - a^6 - a^2 + a)*q^184 + (a^11 + a^10 - a^2 
        - a)*q^186 + (-a^11 + a^9 + a^5 + a^2)*q^190 + (a^11 - a^6 - a^2)*q^196 
        + (a^8 - a^3)*q^199 + (-a^2 - a)*q^204 + O(q^210),
    q^2 + (-a^11 + a^10 + a^8 + a^6 - a^5 - a^3 + 1)*q^3 + (a^11 + a^9 - a^6 - 
        a^4 + a^3 + a)*q^5 + (-a^10 + a^5)*q^8 + (a^11 - a^10 - a^8 + a^7 + a^5 
        + a^3 - a^2 - 1)*q^12 + (-a^11 + 2*a^10 + 2*a^8 - 2*a^5 - 2*a^3 + 2*a^2 
        + 2)*q^17 - a^4*q^18 + (-a^11 + a^8 + a^6 - a^3 - a)*q^20 + (-a^11 - 
        a^10 + a^6 - a^2 - a)*q^23 + (-a^11 + a^8 + a^6 - a^5 - a^3 + 1)*q^27 - 
        a^6*q^30 + (a^10 - a^7 + a^2)*q^32 + (-a^9 - a^2)*q^38 + (a^10 + a^8 - 
        a^7 - a^5 + a^2 + 1)*q^45 + (a^11 - a^10 - 2*a^8 + a^7 - a^6 + 2*a^5 + 
        a^3 - a^2 + a - 2)*q^47 + (a^11 + a^9 - a^6 + a)*q^48 - a^8*q^50 + (a^11
        + a^9 - a^8 - a^6 + a^3 + a - 1)*q^53 + (-a^10 - a^9 - a^8 + a^6 + a^5 +
        a^4 - a - 1)*q^57 + (a^4 + a^3)*q^62 + (-a^11 - a^10 - a^9 + a^7 + a^6 +
        a^5 + a^4 - a^2 - a - 1)*q^68 + (-a^9 - a)*q^72 + (a^11 - a^8 - a^6 + 
        a^5 + a^3 + a - 1)*q^75 + (a^11 - a^8 + a^3 - 1)*q^80 + (a^11 + a^10 - 
        a^7 - a^6 - a^5 + a^2 + a)*q^83 + (a^11 - a^8 - a^7 - a^6 + a^3)*q^92 + 
        (2*a^11 + a^9 - 2*a^8 - 2*a^6 + a^5 + 2*a^3 + a - 2)*q^93 + (-2*a^11 - 
        a^9 + 2*a^8 + 2*a^6 - a^5 + a^4 - 2*a^3 - a + 1)*q^95 - a*q^98 + (a^9 - 
        a^5)*q^102 + (-a^10 - a^8 + a^5 + a^3 - 1)*q^108 + (a^11 + a^2)*q^113 + 
        (-a^11 - a^3)*q^120 + (-a^3 - 1)*q^122 + (-a^10 - a^8 + a^7 + a^5 + a^3 
        - a^2 - 1)*q^125 + (-a^11 + a^10 - a^9 + a^8 + a^6 - a^5 - a^3 - a + 
        1)*q^128 + (-2*a^11 + a^10 - a^9 + 2*a^8 + a^6 - a^5 - 2*a^3 - a + 
        1)*q^137 + (-a^11 + a^10 - a^9 + a^8 - a^7 + a^6 + a^4 - a^3 + a^2 - a +
        1)*q^138 + (-a^10 - a^8 + a^5 + a^3 - a^2 - 1)*q^147 + (a^11 - a^10 + 
        a^9 - a^8 - 2*a^6 + a^5 - a^4 + a^3 - a^2 + 2*a - 1)*q^152 + (-2*a^11 + 
        2*a^10 + 2*a^8 - 2*a^5 - 2*a^3 + a^2 + 2)*q^153 + (a^11 - 2*a^10 - 2*a^8
        + a^7 + 2*a^5 + a^3 - 2*a^2 - 2)*q^155 + (-a^10 + a^2)*q^158 + a^8*q^162
        + (a^10 - a^5 + a)*q^167 + (a^11 - a^7)*q^170 + (2*a^11 + a^9 - 2*a^8 - 
        2*a^6 + a^5 + 2*a^3 + a - 1)*q^173 + (-a^11 - a^9 + a^8 + a^6 + a^4 - 
        a^3 - a + 1)*q^180 + (-a^10 - a^9 + a^5 - a)*q^183 + (a^10 + a^9 - a^5 -
        a^4 + a^2 + a)*q^188 + (-a^11 + a^6 - a^3)*q^192 + (a^11 + a^10 + a^9 + 
        a^8 - a^7 - a^6 - a^5 - a^4 + a^3 + a^2 + a + 1)*q^197 + (-a^5 + 
        1)*q^200 + (-a^10 + a^6 + a^5 - a^2 - a)*q^207 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
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(
52
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^10 - a^7 + a^2)*q^4 + (-a^9 - a)*q^6 + a^8*q^9 + (-a^5 + 1)*q^10 + 
        (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^15 + (a^11 - a^10 - a^8 - a^6 + a^5 + a^3 - a^2 - 1)*q^16 + (-a^5 +
        a^4)*q^19 + (-a^11 + a^8 + a^6 - a^3)*q^24 - a^3*q^25 + (a^8 + a^6)*q^31
        + (-2*a^11 + a^6 - a^3)*q^34 + (a^10 - a^5 + a^2)*q^36 + (a^11 + a^9 - 
        a^8 - a^6 + a^5 - a^4 + a^3 + a - 1)*q^40 + (-a^10 + a^9 - a^8 + a^7 - 
        a^6 + a^5 - a^2 + a - 1)*q^46 + a^2*q^49 + (a^10 - a^5)*q^51 + (-a^9 + 
        a^4)*q^54 + (-a^9 + a^6 - a)*q^60 + (a^6 + 1)*q^61 + (-a^11 - a^9 + a^8 
        + a^6 + a^4 - a^3 - a)*q^64 + (-a^11 + a^10)*q^69 + (-a^10 + a^9 - a^8 +
        a^5 - a^4 + a^3 - 1)*q^76 + (-a^7 + a^4)*q^79 - a^3*q^81 + (-a^9 - 
        a)*q^85 + (a^8 + 1)*q^90 + (a^11 - a^10 + a^9 + a^7 - a^6 + a^5 + a^3 - 
        a^2 + a)*q^94 + (a^10 + a^8 - a^5 - a^3 + a^2 + 1)*q^96 + (a^10 - a^5 + 
        1)*q^100 + (-a^7 + a^2)*q^106 + (-a^7 - a)*q^109 + (a^6 - a^5 - a + 
        1)*q^114 + (a^2 - a)*q^115 + (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^10 + a^8 - a^5 - a^3 + a^2 + 
        1)*q^124 - a^7*q^135 + (a^10 + 2*a^8 - 2*a^5 - a^3 + 2)*q^136 + (-a^11 -
        a^9)*q^139 + (-a^11 - a^7)*q^141 + (a^11 - a^10 - a^8 - a^6 + a^5 + a^3 
        + a - 1)*q^144 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 + a^3 - a^2 
        + a - 1)*q^150 + (a^10 - a^9)*q^151 - a*q^159 + (a^11 - a^10 - a^8 + a^5
        + a^3 - a^2 - 1)*q^160 + (a^11 - a^10 + a^9 - a^6 + a^5 - a^4 - a^2 + a 
        - 1)*q^166 - a^9*q^169 + (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - 
        a^4 + a^3 - a^2 + a)*q^171 + (-a^9 - a^5)*q^181 + (-a^11 + a^10 - a^9 + 
        a^8 + a^6 - a^5 - a + 1)*q^184 + (-a^9 - a^7 + a^4 + a^2)*q^186 + (a^10 
        - a^9 - a^5 + a^4)*q^190 + (a^11 - a^10 - a^8 + a^7 - a^6 + a^5 + a^3 - 
        a^2 + a - 1)*q^196 + (a^6 - a^3)*q^199 + (2*a^11 - 2*a^10 + 2*a^9 - 
        2*a^8 - 2*a^6 + 2*a^5 - a^4 + 2*a^3 - a^2 + 2*a - 2)*q^204 + O(q^210),
    q^2 + (a^11 - a^8 + a^5 - a^4 - a^2 + a)*q^3 + (-a^11 + a^10 - a^7 + a^4 - 
        a^3 - a + 1)*q^5 + (a^10 - a^7)*q^8 + (a^10 - a^9 - a^7 + a^6 + a^4 - 
        a^3 - a + 1)*q^12 - a^9*q^17 + a^8*q^18 + (-a^11 + a^10 + a^8 - a^7 - 
        a^5 + a^4 - a + 1)*q^20 + (a^11 - a^10 - a^8 + 2*a^7 - a^6 + a^5 - 2*a^4
        + a^3 + a - 1)*q^23 + (-a^11 + a^8 - a^7 - a^5 + a^4 + a^2 - a)*q^27 + 
        (a^11 - a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - a^2 + a - 
        1)*q^30 + (-a^7 + a^4 - a)*q^32 + (-a^5 + a^4)*q^38 + (-a^10 + a^7 - a^4
        + a^3 + a - 1)*q^45 + (a^11 - a^10 - a^8 + 2*a^7 + a^5 - 2*a^4 + a^3 + 
        2*a - 1)*q^47 + (-a^11 + a^10 + a^8 - a^7 + a^6 + a^4 - a^3 - a + 
        1)*q^48 - a^3*q^50 + (a^11 - a^10 - a^8 + a^7 - a^4 + a)*q^53 + (-a^11 +
        a^9 - a^6 + a^4 - a)*q^57 + (a^8 + a^6)*q^62 + (-a^11 + a^6 - a^3)*q^68 
        + (-a^5 + a^2)*q^72 + (a^11 - a^8 + a^7 + a^5 - a^4 + a)*q^75 + (a^9 - 
        a^6 + a^3 - 1)*q^80 + (-a^11 + 2*a^10 + a^8 - 2*a^7 + a^6 - a^5 + 2*a^4 
        - a^3 - 2*a + 1)*q^83 + (a^11 - a^10 - a^8 + a^7 + a^5 - a^4 - a^2 + 2*a
        - 1)*q^92 + (-a^10 - a^5 + a^2)*q^93 + (-a^10 + a^8 - a^5 + a^2 - 
        1)*q^95 + a^2*q^98 + (a^10 - a^5)*q^102 + (2*a^11 - 2*a^10 + 2*a^7 - 
        2*a^4 + 2*a - 2)*q^107 + (-a^10 + a^7 - a^6 + a^3 - 1)*q^108 + (-2*a^10 
        + a^9 + 2*a^7 - 2*a^6 - a^4 + 2*a^3 - 2)*q^113 + (-a^9 + a^6)*q^120 + 
        (a^6 + 1)*q^122 + (a^10 - a^7 + a^6 + a^4 - a^3 - a + 1)*q^125 + (-a^11 
        + a^8 + a^4 - a)*q^128 + (-a^11 + a^9 + a^8 - a^6 + a^4 + a^3 - a)*q^137
        + (-a^11 + a^10)*q^138 + (-a^10 + a^7 - a^6 - a^4 + a^3 - 1)*q^147 + 
        (-a^10 + a^9 - a^8 + a^7 - a^6 + a^5 - a^4 + a^3 - 1)*q^152 + a^4*q^153 
        + (-a^9 + a^6 + a)*q^155 + (-a^7 + a^4)*q^158 - a^3*q^162 + (a^10 - a^7 
        - a^2)*q^167 + (-a^9 - a)*q^170 + (-2*a^11 + a^10 + 2*a^8 - 2*a^7 - a^5 
        + 2*a^4 + a^2 - 2*a + 1)*q^173 + (a^11 - a^10 + a^7 - a^4 + a)*q^180 + 
        (2*a^11 - a^10 - 2*a^8 + a^7 + a^5 - 2*a^4 - a^2 + 2*a)*q^183 + (2*a^11 
        - a^10 - a^8 + a^7 + a^5 - a^4 - a^2 + 2*a)*q^188 + (-a^11 + a^10 + a^8 
        - a^7 - a^5 + a^4 - a^3 + a^2 - a + 1)*q^192 - a^11*q^197 + (a^10 + 
        1)*q^200 + (-a^11 + 2*a^10 - a^9 + a^8 - 2*a^7 + a^6 - a^5 + 2*a^4 - a^3
        - a + 1)*q^207 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
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(
4
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1 + 3*H.2 + 13*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(
795
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^13 - q^24 - q^25 - q^28 + q^42 - q^43 + q^46 + q^52 - q^78 + 
        q^81 + q^82 - q^91 + q^96 - q^97 - q^117 + q^121 - q^142 - q^148 + q^159
        + 2*q^163 - q^166 + q^169 + q^172 + q^196 - q^199 + O(q^210),
    q^2 - q^12 - q^14 + q^18 + q^21 + q^23 - q^39 + q^41 - q^50 - q^56 - q^71 - 
        q^74 - q^83 + q^84 + q^92 + q^98 + q^104 - q^108 + q^111 + q^125 - q^126
        - q^128 - q^129 - q^137 - q^138 - q^147 - q^161 + q^162 + q^164 - q^167 
        + q^173 + q^179 - q^182 + q^189 + q^191 + q^192 + q^207 + O(q^210),
    q^3 - q^8 + q^14 - q^26 + q^27 + q^32 - q^39 + q^53 - q^71 - q^72 + q^74 - 
        q^75 - q^83 - q^84 - q^86 - q^92 - q^98 + 2*q^101 + q^104 + q^125 + 
        q^126 - q^129 - q^137 + q^138 + q^156 + q^161 - q^164 - q^167 - q^194 + 
        q^200 + O(q^210),
    q^4 - q^6 - q^7 + q^13 - q^28 + q^36 - q^37 + q^42 + q^43 + q^46 + q^49 - 
        q^54 - q^63 - q^64 - q^69 + q^82 + q^97 - q^100 - q^106 + q^117 - q^123 
        - q^148 + q^150 + q^168 - q^169 + q^175 + q^184 + q^196 + q^199 - 
        2*q^202 + O(q^210),
    q^5 + q^45 - q^50 - q^65 - q^75 - q^120 + q^125 - q^140 + q^200 + O(q^210),
    q^10 - q^25 - q^60 - q^70 + q^90 + q^105 + q^115 - q^195 + q^205 + O(q^210),
    q^15 - q^25 - q^40 + q^70 + q^100 - q^130 + q^135 - q^150 + q^160 - q^175 - 
        q^195 + O(q^210),
    q^20 - q^30 - q^35 + q^65 + q^75 - q^125 - q^140 + q^180 - q^185 - q^200 + 
        O(q^210)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
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(
4
);
qprec:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
795
);
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:=
210
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q - q^9 + q^13 + q^15 - q^24 - q^28 + q^40 + q^42 - q^43 - q^46 - 2*q^49 - 
        q^52 + q^70 + q^78 + q^81 - q^82 + q^91 - q^96 + q^97 - q^100 - q^117 + 
        q^121 + q^130 - q^135 + q^142 + q^148 + q^150 + q^159 + q^160 + q^166 - 
        q^169 + q^172 - q^175 - q^195 - q^196 - q^199 + O(q^210),
    q^2 + q^12 + q^14 - q^18 + q^21 + q^23 - 2*q^35 - q^39 - q^41 + q^50 + q^56 
        - q^71 - q^74 - q^83 + q^84 - q^92 - q^98 - q^104 - q^108 - q^111 - 
        q^125 - q^126 + q^128 + q^129 + q^137 + q^138 - q^147 + q^161 + q^162 - 
        q^164 - q^167 + q^173 + q^179 - q^182 + 2*q^185 - q^189 + q^191 - q^192 
        - q^207 + O(q^210),
    q^3 - q^12 + 2*q^21 - 2*q^26 - q^27 - q^30 + 2*q^32 - q^35 - 2*q^41 + q^48 -
        q^50 - q^53 + 2*q^56 + 2*q^65 + q^75 + q^80 + 2*q^86 + q^108 - 2*q^111 +
        q^120 - q^125 - 2*q^128 - 2*q^138 - 2*q^140 - q^147 - 2*q^156 + 2*q^179 
        + 2*q^182 + q^185 - 2*q^189 + 2*q^191 - q^192 - 2*q^194 + 2*q^200 + 
        O(q^210),
    q^4 + q^13 + q^15 - q^16 - q^24 - q^28 - q^36 + q^42 - q^43 + q^46 - q^49 - 
        q^52 - q^60 + q^64 + q^78 - q^82 + q^91 + q^96 + q^97 - q^100 - q^117 - 
        q^135 + q^142 + q^144 + q^148 + 2*q^160 + q^166 + q^172 - 2*q^184 - 
        q^199 + O(q^210),
    q^5 + 2*q^14 + 2*q^21 - 2*q^35 - 2*q^39 - 2*q^41 - q^45 + q^50 + 2*q^56 + 
        q^65 - 2*q^71 - 2*q^74 + q^75 + 2*q^84 - 2*q^104 - 2*q^111 - q^120 - 
        q^125 - 2*q^126 + 2*q^129 - q^140 + 2*q^161 - 2*q^164 + 2*q^179 + 
        2*q^185 - 2*q^189 + 2*q^191 + q^200 + O(q^210),
    q^6 + q^13 + 1/2*q^15 - q^16 - q^24 + 1/2*q^25 - q^28 - 1/2*q^40 + q^42 - 
        q^43 - q^52 - q^54 - q^60 + 2*q^64 + q^69 + 1/2*q^70 + q^78 - q^82 - 
        q^91 + q^96 + q^97 - 3/2*q^100 - q^105 - q^106 - q^117 + 3/2*q^130 - 
        1/2*q^135 + q^142 + q^144 + q^148 + 1/2*q^150 + 3/2*q^160 + q^166 - 
        q^169 + q^172 + 1/2*q^175 - q^184 - 1/2*q^195 + q^196 + q^205 + 
        O(q^210),
    q^7 - q^13 - 1/2*q^15 + 1/2*q^25 + q^28 - q^37 - 1/2*q^40 - q^42 + q^43 - 
        q^63 + 1/2*q^70 + q^82 - q^97 + 1/2*q^100 + q^105 + q^117 + q^123 - 
        1/2*q^130 + 1/2*q^135 - q^148 - 1/2*q^150 - 1/2*q^160 - q^168 - 
        1/2*q^175 - 1/2*q^195 - q^205 + O(q^210),
    q^8 + q^12 + q^14 + q^26 + q^30 - q^32 - q^35 - q^39 - q^48 + q^50 - q^71 - 
        q^72 - q^74 - q^80 - q^83 + q^84 - q^86 + q^92 - q^98 - q^104 - q^108 - 
        q^120 - q^126 + 2*q^128 + q^129 + q^137 + q^138 - q^147 + q^156 + q^161 
        - q^164 - q^167 + q^185 + q^192 + q^194 - q^200 + O(q^210),
    q^10 - 2*q^13 - q^15 + 2*q^28 - q^40 - 2*q^42 + 2*q^43 + 2*q^52 + q^60 - 
        2*q^78 + 2*q^82 - q^90 - 2*q^97 + q^100 + q^105 + q^115 + 2*q^117 - 
        q^130 + q^135 - 2*q^142 - 2*q^148 - q^150 - q^160 - 2*q^172 - q^175 - 
        q^205 + O(q^210),
    q^20 + 2*q^21 - 2*q^26 - q^30 - q^35 - 2*q^41 + 2*q^56 + q^65 + q^75 + 
        2*q^86 - 2*q^111 - q^125 - q^140 - 2*q^156 + 2*q^179 - q^180 + q^185 - 
        2*q^189 + 2*q^191 - 2*q^194 + q^200 + O(q^210)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
796
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
796
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
198
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
796
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
796
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
796
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
796
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
796
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
796
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
796
);
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(
18
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
796
);
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:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
796
);
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(
6
);
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
796
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
99*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
196
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^31 - q^35 + q^49 - q^53 - q^61 + q^81 - q^91 - q^103 + q^121 - 
        q^145 - q^161 + q^169 + O(q^196),
    q^2 + q^18 - q^52 - q^56 - q^62 - q^70 - q^80 - q^92 + q^98 + q^100 + q^104 
        - q^106 + q^112 - q^122 + q^124 + q^162 - q^182 + q^184 + O(q^196),
    q^4 + q^36 - q^52 - q^56 - q^80 - q^92 + q^100 - q^140 - q^160 + O(q^196),
    q^5 - q^25 - q^31 - q^35 + q^43 + q^45 + q^47 - q^53 - q^61 + q^79 - q^103 +
        q^125 - q^145 + q^155 + q^169 + q^175 + q^193 + O(q^196),
    q^7 - q^25 + q^29 - q^31 - q^35 + q^49 - q^53 - q^61 + q^63 + q^65 - q^91 - 
        q^103 + q^115 + q^125 + q^131 - q^145 + q^155 + q^157 - q^161 + q^175 + 
        O(q^196),
    q^8 - q^28 - q^40 + q^72 - q^80 + q^100 - q^116 + q^124 + q^140 + O(q^196),
    q^10 + q^28 + q^32 - q^50 - q^52 - q^56 - q^62 - q^70 - q^80 + q^86 + q^90 -
        q^92 + q^94 + q^104 - q^106 + q^116 - q^122 - q^140 + q^158 - q^160 + 
        q^184 + O(q^196),
    q^13 + q^23 - q^25 - q^31 - q^53 - q^61 + q^65 + q^89 - q^91 - q^103 + q^115
        + q^117 + q^139 + q^151 - q^161 + q^175 + O(q^196),
    q^14 + q^28 + q^32 + q^40 - q^50 - q^52 - 2*q^56 + q^58 - q^62 - q^64 - q^70
        - q^80 - q^92 + q^98 + q^104 - q^106 + q^112 + q^116 - q^122 + q^126 + 
        q^128 + q^130 - q^140 - q^160 - q^182 + q^184 + O(q^196),
    q^16 - q^28 - q^32 - q^40 + q^52 + q^56 + q^64 + q^92 - q^104 - q^112 - 
        q^116 - q^128 + q^140 + q^144 - q^184 + O(q^196),
    q^20 - q^28 - q^32 + q^56 + q^64 - q^104 - q^116 + q^172 + q^180 - q^184 + 
        q^188 + O(q^196),
    q^26 + q^28 + q^40 + q^46 - q^50 - q^52 - q^56 - q^62 - q^92 - q^106 + q^116
        - q^122 + q^130 - q^140 - q^160 + q^178 - q^182 + O(q^196)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
797
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
796
);
qprec:=
133
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
797
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
199*H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
4
);
qprec:=
133
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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(
798
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
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(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
3*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(
798
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
18
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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(
18
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^5 + a^2)*q^3 + (a^4 - a)*q^4 + a^4*q^7 + (-a^4 + a)*q^9 + (a^3 - 
        1)*q^12 + (-a^3 + a^2)*q^13 - a^5*q^16 - q^19 + a^3*q^21 - a^4*q^25 + 
        (-a^3 + 1)*q^27 - a^2*q^28 + (a^5 - a^2 - a)*q^31 + a^5*q^36 + (a^5 - 
        a)*q^37 + (-a^2 + a)*q^39 + (-a^3 + a + 1)*q^43 - a^4*q^48 + (a^5 - 
        a^2)*q^49 + (a - 1)*q^52 + (a^5 - a^2)*q^57 + (-a^5 + a^3)*q^61 + 
        a^2*q^63 + a^3*q^64 + (a^5 + a^3 - 1)*q^67 + (-a^4 - a^3)*q^73 - 
        a^3*q^75 + (-a^4 + a)*q^76 + (a^4 - a^3 + 1)*q^79 - a^5*q^81 - a*q^84 + 
        (-a^4 + a^3 + a - 1)*q^91 + (a^4 - a - 1)*q^93 - a^5*q^97 + a^2*q^100 + 
        (a^4 - a^2 - a)*q^103 + a^4*q^108 + (-a^5 + 2*a^2)*q^109 + (a^4 - 
        1)*q^111 + q^112 + (-a + 1)*q^117 + (a^3 - 1)*q^121 + (-a^5 - a^3 + a^2 
        + 1)*q^124 + (-a^5 + 1)*q^129 - a^4*q^133 + (a^5 + 1)*q^139 - a^3*q^144 
        + (a^4 - a)*q^147 + (-a^5 - a^3 + a^2)*q^148 + (a^3 + 1)*q^151 + (a^5 - 
        a^2 + 1)*q^156 + (-a^4 + a^3 + a)*q^157 + (-a^5 + a^2 + a)*q^163 + (-a^5
        + a^4 + a^3 - 1)*q^169 + (a^4 - a)*q^171 + (a^5 + a^4 - a^2)*q^172 + 
        (-a^5 + a^2)*q^175 + a^4*q^181 + (-a^4 + a^2)*q^183 + a*q^189 + 
        a^2*q^192 + (-a^4 + a - 1)*q^193 + (-a^3 + 1)*q^196 + (a^5 + a^3 - 
        1)*q^199 + (a^5 + a^4)*q^201 + (a^5 - a^4 - a^2 + a)*q^208 + (-a - 
        1)*q^211 + (-a^5 - a^3)*q^217 + (-a^3 - a^2)*q^219 + (a^3 - a - 1)*q^223
        - a^2*q^225 + (-a^3 + 1)*q^228 + (-a^4 + a^2)*q^229 + (-a^5 + a^3)*q^237
        + (-a^3 - a^2 + 1)*q^241 - a^4*q^243 + (a^3 - a)*q^244 + (a^3 - 
        a^2)*q^247 - q^252 - a*q^256 + (-a^5 - 1)*q^259 + (-a^4 - a^3)*q^268 + 
        (2*a^5 - a^2)*q^271 + (a^5 - a^3 + 1)*q^273 - a^3*q^277 + (a^5 + a^3 - 
        a^2 - 1)*q^279 - a^4*q^289 - a^4*q^291 + (a^2 + a)*q^292 + a*q^300 + 
        (a^5 + a)*q^301 + a^5*q^304 + O(q^306),
    q^2 + (-a^5 + a^2)*q^6 + (a^4 - a)*q^8 + a^4*q^14 + (-a^4 + a)*q^18 + (a^3 -
        1)*q^24 + (-a^3 + a^2)*q^26 - a^5*q^32 - q^38 + a^3*q^42 - a^4*q^50 + 
        (-a^3 + 1)*q^54 - a^2*q^56 + (a^5 - a^2 - a)*q^62 + a^5*q^72 + (a^5 - 
        a)*q^74 + (-a^2 + a)*q^78 + (-a^3 + a + 1)*q^86 - a^4*q^96 + (a^5 - 
        a^2)*q^98 + (a - 1)*q^104 + (a^5 - a^2)*q^114 + (-a^5 + a^3)*q^122 + 
        a^2*q^126 + a^3*q^128 + (a^5 + a^3 - 1)*q^134 + (-a^4 - a^3)*q^146 - 
        a^3*q^150 + (-a^4 + a)*q^152 + (a^4 - a^3 + 1)*q^158 - a^5*q^162 - 
        a*q^168 + (-a^4 + a^3 + a - 1)*q^182 + (a^4 - a - 1)*q^186 - a^5*q^194 +
        a^2*q^200 + (a^4 - a^2 - a)*q^206 + a^4*q^216 + (-a^5 + 2*a^2)*q^218 + 
        (a^4 - 1)*q^222 + q^224 + (-a + 1)*q^234 + (a^3 - 1)*q^242 + (-a^5 - a^3
        + a^2 + 1)*q^248 + (-a^5 + 1)*q^258 - a^4*q^266 + (a^5 + 1)*q^278 - 
        a^3*q^288 + (a^4 - a)*q^294 + (-a^5 - a^3 + a^2)*q^296 + (a^3 + 1)*q^302
        + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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(
18
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a^5*q^3 - a^4*q^4 + a^2*q^7 - a*q^9 - q^12 + (a^3 - a^2)*q^13 + (a^5 - 
        a^2)*q^16 - a^3*q^19 + (-a^4 + a)*q^21 + a*q^25 + (a^3 - 1)*q^27 + (-a^3
        + 1)*q^28 + (a^5 + a^4 - a)*q^31 + a^5*q^36 + (-a^5 + a^4 + a^2)*q^37 + 
        (-a^5 + a^4 + a^2 - a)*q^39 + (-a^3 + a + 1)*q^43 + a^4*q^48 + a^4*q^49 
        + (-a^4 + a^3 + a - 1)*q^52 + (a^5 - a^2)*q^57 + (-a^5 + a^3 + a^2 - 
        1)*q^61 - a^3*q^63 + a^3*q^64 + (-a^3 - a^2)*q^67 + (-a - 1)*q^73 + 
        (-a^3 + 1)*q^75 + (a^4 - a)*q^76 + (-a^4 + a - 1)*q^79 + a^2*q^81 - 
        a^2*q^84 + (a^5 - a^4)*q^91 + (a^3 + a)*q^93 + a^5*q^97 - a^5*q^100 + 
        (-a^5 - a)*q^103 + a*q^108 + (2*a^5 - a^2)*q^109 + (-a^4 + 1)*q^111 - 
        a*q^112 + (-a^4 + a^3)*q^117 + q^121 + (a^2 + 1)*q^124 + (-a^3 - a^2 + 
        1)*q^129 - a^5*q^133 + (-a^5 - 1)*q^139 + q^144 + q^147 + (-a^5 - a^3 + 
        a^2)*q^148 + (a^3 - 2)*q^151 + (-a^3 + a^2)*q^156 + (-a^4 + 1)*q^157 + 
        (-a^4 - a^2)*q^163 + (-a^5 + a^4 + a^3 - 1)*q^169 + a^4*q^171 + (-a^5 - 
        a)*q^172 + a^3*q^175 - a^4*q^181 + (-a^4 + a^2)*q^183 + (a^5 - 
        a^2)*q^189 + (-a^5 + a^2)*q^192 + (a^4 - a^3 + 1)*q^193 + (-a^5 + 
        a^2)*q^196 + (a^3 + a^2)*q^199 + (a^5 + a^4 - a^2 - a)*q^201 + (-a^2 + 
        a)*q^208 + (-a - 1)*q^211 + (a^4 - a - 1)*q^217 + (a^5 + a^3 - 1)*q^219 
        + (-a^3 + a + 1)*q^223 - a^2*q^225 + a^3*q^228 + (a^5 - a^4 + a)*q^229 +
        (a^5 - a^3)*q^237 + (a^5 - a^3 - a^2)*q^241 + (-a^4 + a)*q^243 + (-a^3 +
        a)*q^244 + (a^5 - a^3 + 1)*q^247 + (a^4 - a)*q^252 + (-a^4 + a)*q^256 + 
        (a^3 + a - 1)*q^259 + (a^4 + a^3 - a - 1)*q^268 + (a^5 - 2*a^2)*q^271 + 
        (a - 1)*q^273 + q^277 + (-a^5 - a^3 + a^2 + 1)*q^279 + (a^4 - a)*q^289 +
        a*q^291 + (a^5 + a^4)*q^292 - a*q^300 + (-a^5 + a^3 + a^2)*q^301 + 
        a^2*q^304 + O(q^306),
    q^2 - a^5*q^6 - a^4*q^8 + a^2*q^14 - a*q^18 - q^24 + (a^3 - a^2)*q^26 + (a^5
        - a^2)*q^32 - a^3*q^38 + (-a^4 + a)*q^42 + a*q^50 + (a^3 - 1)*q^54 + 
        (-a^3 + 1)*q^56 + (a^5 + a^4 - a)*q^62 + a^5*q^72 + (-a^5 + a^4 + 
        a^2)*q^74 + (-a^5 + a^4 + a^2 - a)*q^78 + (-a^3 + a + 1)*q^86 + a^4*q^96
        + a^4*q^98 + (-a^4 + a^3 + a - 1)*q^104 + (a^5 - a^2)*q^114 + (-a^5 + 
        a^3 + a^2 - 1)*q^122 - a^3*q^126 + a^3*q^128 + (-a^3 - a^2)*q^134 + (-a 
        - 1)*q^146 + (-a^3 + 1)*q^150 + (a^4 - a)*q^152 + (-a^4 + a - 1)*q^158 +
        a^2*q^162 - a^2*q^168 + (a^5 - a^4)*q^182 + (a^3 + a)*q^186 + a^5*q^194 
        - a^5*q^200 + (-a^5 - a)*q^206 + a*q^216 + (2*a^5 - a^2)*q^218 + (-a^4 +
        1)*q^222 - a*q^224 + (-a^4 + a^3)*q^234 + q^242 + (a^2 + 1)*q^248 + 
        (-a^3 - a^2 + 1)*q^258 - a^5*q^266 + (-a^5 - 1)*q^278 + q^288 + q^294 + 
        (-a^5 - a^3 + a^2)*q^296 + (a^3 - 2)*q^302 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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(
18
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^4 + a)*q^3 - a^5*q^4 + (a^5 - a^2)*q^7 - a^5*q^9 - a^3*q^12 + (a^4 +
        a^3 - 1)*q^13 - a*q^16 + q^19 + (a^3 - 1)*q^21 + (a^5 - a^2)*q^25 - 
        a^3*q^27 + a^4*q^28 + (-a^4 + a^2 + a)*q^31 - a*q^36 + (a^2 - a)*q^37 + 
        (a^4 + a^2)*q^39 + (-a^3 + a^2)*q^43 + (a^5 - a^2)*q^48 + (-a^4 + 
        a)*q^49 + (a^2 + 1)*q^52 + (-a^4 + a)*q^57 + (a^3 - a - 1)*q^61 + 
        a^4*q^63 + (a^3 - 1)*q^64 + (-a^3 - a)*q^67 + (a^5 + a^3 - a^2 - 1)*q^73
        + (a^3 - 1)*q^75 - a^5*q^76 + (a^5 - a^3 - a^2)*q^79 - a*q^81 + a^2*q^84
        + (-a^5 - a^3)*q^91 + (-a^5 + 1)*q^93 + a*q^97 + a^4*q^100 + (-a^5 + 
        a^4)*q^103 + (a^5 - a^2)*q^108 + a*q^109 + (a^5 - a^2 + 1)*q^111 + q^112
        + (a^2 + 1)*q^117 - a^3*q^121 + (-a^4 - a^3 + a)*q^124 - 2*a^5*q^127 + 
        (-a + 1)*q^129 + (a^5 - a^2)*q^133 + (-a + 1)*q^139 + (a^3 - 1)*q^144 - 
        a^5*q^147 + (-a^4 + a^3 + a - 1)*q^148 + a^3*q^151 + (-a^4 + a + 
        1)*q^156 + (-a^5 + a^3 - 1)*q^157 + (-a^4 + a^2 + a)*q^163 + (a^5 - a^3 
        - a^2 - a)*q^169 - a^5*q^171 + (a^5 - a^4 - a^2 + a)*q^172 + (-a^4 + 
        a)*q^175 + (-a^5 + a^2)*q^181 + (a^5 + a^4 - a^2)*q^183 + a^2*q^189 + 
        a^4*q^192 + (-a^5 + 1)*q^193 - a^3*q^196 + (-a^3 - a)*q^199 + (a^5 - a^2
        - a)*q^201 + (-a^5 - a^4 + a)*q^208 + (a^2 + 1)*q^211 + (a^3 - a - 
        1)*q^217 + (a^4 + a^3 - 1)*q^219 + (-a^3 + a^2)*q^223 + a^4*q^225 - 
        a^3*q^228 + (a^5 + a^4 - a^2)*q^229 + (a^3 - a - 1)*q^237 + (a^4 - 
        a^3)*q^241 + (a^5 - a^2)*q^243 + (a^3 + a^2 - 1)*q^244 + (a^4 + a^3 - 
        1)*q^247 + q^252 + a^2*q^256 + (-a + 1)*q^259 + (a^5 + a^3 - a^2 - 
        1)*q^268 - a^4*q^271 + (-a^3 - a)*q^273 + (-a^3 + 1)*q^277 + (-a^4 - a^3
        + a)*q^279 + 2*a^4*q^283 + (a^5 - a^2)*q^289 + (-a^5 + a^2)*q^291 + (a^4
        + a^2)*q^292 + a^2*q^300 + (a^2 - a)*q^301 - a*q^304 + O(q^306),
    q^2 + (-a^4 + a)*q^6 - a^5*q^8 + (a^5 - a^2)*q^14 - a^5*q^18 - a^3*q^24 + 
        (a^4 + a^3 - 1)*q^26 - a*q^32 + q^38 + (a^3 - 1)*q^42 + (a^5 - a^2)*q^50
        - a^3*q^54 + a^4*q^56 + (-a^4 + a^2 + a)*q^62 - a*q^72 + (a^2 - a)*q^74 
        + (a^4 + a^2)*q^78 + (-a^3 + a^2)*q^86 + (a^5 - a^2)*q^96 + (-a^4 + 
        a)*q^98 + (a^2 + 1)*q^104 + (-a^4 + a)*q^114 + (a^3 - a - 1)*q^122 + 
        a^4*q^126 + (a^3 - 1)*q^128 + (-a^3 - a)*q^134 + (a^5 + a^3 - a^2 - 
        1)*q^146 + (a^3 - 1)*q^150 - a^5*q^152 + (a^5 - a^3 - a^2)*q^158 - 
        a*q^162 + a^2*q^168 + (-a^5 - a^3)*q^182 + (-a^5 + 1)*q^186 + a*q^194 + 
        a^4*q^200 + (-a^5 + a^4)*q^206 + (a^5 - a^2)*q^216 + a*q^218 + (a^5 - 
        a^2 + 1)*q^222 + q^224 + (a^2 + 1)*q^234 - a^3*q^242 + (-a^4 - a^3 + 
        a)*q^248 - 2*a^5*q^254 + (-a + 1)*q^258 + (a^5 - a^2)*q^266 + (-a + 
        1)*q^278 + (a^3 - 1)*q^288 - a^5*q^294 + (-a^4 + a^3 + a - 1)*q^296 + 
        a^3*q^302 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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(
18
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + (a^5 - a^2)*q^4 + a^4*q^7 + a^2*q^9 + q^12 + (a^4 + a^3 - 
        1)*q^13 + (-a^4 + a)*q^16 + (a^3 - 1)*q^19 - a^5*q^21 + a^2*q^25 - 
        a^3*q^27 - a^3*q^28 + (-a^5 - a)*q^31 - a*q^36 + (a^5 - a^4 - a^2 + 
        a)*q^37 + (-a^5 - a^4 + a)*q^39 + (-a^3 + a^2)*q^43 + (a^5 - a^2)*q^48 +
        (a^5 - a^2)*q^49 + (-a^5 - a^3)*q^52 + (-a^4 + a)*q^57 + (-a^4 - a^3 + 
        a)*q^61 + (a^3 - 1)*q^63 + (a^3 - 1)*q^64 + (a^4 + a^3 - 1)*q^67 + (a^2 
        + 1)*q^73 - a^3*q^75 - a^5*q^76 + (-a^5 + 1)*q^79 + a^4*q^81 + a^4*q^84 
        + (a^5 - a^2 - a)*q^91 + (a^3 + a^2 - 1)*q^93 + a*q^97 - a*q^100 + (a^2 
        - a)*q^103 + a^2*q^108 - a^4*q^109 + (a^5 - a^2 + 1)*q^111 + a^2*q^112 +
        (a^5 + a^3 - a^2 - 1)*q^117 + q^121 + (a^4 + 1)*q^124 - 2*a^5*q^127 + 
        (a^4 - a^3)*q^129 - a*q^133 + (-a + 1)*q^139 + q^144 + q^147 + (-a^4 + 
        a^3 + a - 1)*q^148 + (-a^3 + 1)*q^151 + (a^4 + a^3 - 1)*q^156 + (a^5 - 
        a^2 + 1)*q^157 + (a^5 + a^4 - a^2)*q^163 + (a^5 - a^3 - a^2 - a)*q^169 +
        (a^5 - a^2)*q^171 + (a^2 - a)*q^172 + (a^3 - 1)*q^175 + (-a^5 + 
        a^2)*q^181 + (a^5 + a^4 - a^2)*q^183 + (-a^4 + a)*q^189 + (-a^4 + 
        a)*q^192 + (a^5 - a^3 - a^2)*q^193 + (-a^4 + a)*q^196 + (a^4 + a^3 - 
        1)*q^199 + (-a^5 - a^4 + a)*q^201 + (a^4 + a^2)*q^208 + (a^2 + 1)*q^211 
        + (-a^5 + 1)*q^217 + (-a^3 - a)*q^219 + (-a^3 + a^2)*q^223 + a^4*q^225 +
        (a^3 - 1)*q^228 + (-a^5 - a)*q^229 + (a^3 - a - 1)*q^237 + (-a^4 + a^3 +
        a - 1)*q^241 - a^5*q^243 + (a^3 + a^2 - 1)*q^244 + (-a^3 - a)*q^247 - 
        a^5*q^252 - a^5*q^256 + (-a^3 + a^2)*q^259 + (-a^5 - a^3)*q^268 + 
        a*q^271 + (a^2 + 1)*q^273 - q^277 + (-a^4 - a^3 + a)*q^279 + (-2*a^4 + 
        2*a)*q^283 - a^5*q^289 - a^2*q^291 + (a^5 - a^2 - a)*q^292 + a^2*q^300 +
        (-a^4 + a^3 + a - 1)*q^301 + a^4*q^304 + O(q^306),
    q^2 - a*q^6 + (a^5 - a^2)*q^8 + a^4*q^14 + a^2*q^18 + q^24 + (a^4 + a^3 - 
        1)*q^26 + (-a^4 + a)*q^32 + (a^3 - 1)*q^38 - a^5*q^42 + a^2*q^50 - 
        a^3*q^54 - a^3*q^56 + (-a^5 - a)*q^62 - a*q^72 + (a^5 - a^4 - a^2 + 
        a)*q^74 + (-a^5 - a^4 + a)*q^78 + (-a^3 + a^2)*q^86 + (a^5 - a^2)*q^96 +
        (a^5 - a^2)*q^98 + (-a^5 - a^3)*q^104 + (-a^4 + a)*q^114 + (-a^4 - a^3 +
        a)*q^122 + (a^3 - 1)*q^126 + (a^3 - 1)*q^128 + (a^4 + a^3 - 1)*q^134 + 
        (a^2 + 1)*q^146 - a^3*q^150 - a^5*q^152 + (-a^5 + 1)*q^158 + a^4*q^162 +
        a^4*q^168 + (a^5 - a^2 - a)*q^182 + (a^3 + a^2 - 1)*q^186 + a*q^194 - 
        a*q^200 + (a^2 - a)*q^206 + a^2*q^216 - a^4*q^218 + (a^5 - a^2 + 
        1)*q^222 + a^2*q^224 + (a^5 + a^3 - a^2 - 1)*q^234 + q^242 + (a^4 + 
        1)*q^248 - 2*a^5*q^254 + (a^4 - a^3)*q^258 - a*q^266 + (-a + 1)*q^278 + 
        q^288 + q^294 + (-a^4 + a^3 + a - 1)*q^296 + (-a^3 + 1)*q^302 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + a*q^4 - 1/2*q^7 - a*q^9 + (a - 1)*q^16 + 1/2*(-a - 1)*q^21 + a*q^25 - 
        1/2*a*q^28 + (-a + 1)*q^36 + (-2*a + 1)*q^37 + q^39 + (a - 1)*q^43 - 
        1/2*q^49 + (a - 1)*q^57 + 1/2*a*q^63 - q^64 + (-a + 2)*q^67 + (-a - 
        1)*q^79 + (a - 1)*q^81 + 1/2*(-2*a + 1)*q^84 + 1/2*(-a + 2)*q^91 + (a - 
        1)*q^93 + (a - 1)*q^100 + 1/2*(-a + 1)*q^112 + q^121 + 1/2*(2*a - 
        1)*q^133 + q^144 + 1/2*(a + 1)*q^147 + (-a + 2)*q^148 + a*q^156 + q^163 
        - q^172 - 1/2*a*q^175 + (2*a - 1)*q^183 + 1/2*(2*a - 1)*q^189 + (-a - 
        1)*q^193 - 1/2*a*q^196 + (-a - 1)*q^211 + 1/2*(2*a - 1)*q^217 + (-a + 
        2)*q^219 + (-a + 1)*q^225 - q^228 - a*q^247 + 1/2*(a - 1)*q^252 - 
        a*q^256 + 1/2*(2*a - 1)*q^259 + (a + 1)*q^268 - 1/2*q^273 - 2*q^277 + 
        a*q^289 - 2*a*q^291 + 1/2*(-a + 1)*q^301 + O(q^306),
    q^2 + a*q^8 - 1/2*q^14 - a*q^18 + (a - 1)*q^32 + 1/2*(-a - 1)*q^42 + a*q^50 
        - 1/2*a*q^56 + (-a + 1)*q^72 + (-2*a + 1)*q^74 + q^78 + (a - 1)*q^86 - 
        1/2*q^98 + (a - 1)*q^114 + 1/2*a*q^126 - q^128 + (-a + 2)*q^134 + (-a - 
        1)*q^158 + (a - 1)*q^162 + 1/2*(-2*a + 1)*q^168 + 1/2*(-a + 2)*q^182 + 
        (a - 1)*q^186 + (a - 1)*q^200 + 1/2*(-a + 1)*q^224 + q^242 + 1/2*(2*a - 
        1)*q^266 + q^288 + 1/2*(a + 1)*q^294 + (-a + 2)*q^296 + O(q^306),
    q^3 + 1/2*(-a + 2)*q^7 + a*q^12 + (a - 1)*q^13 - a*q^19 - 1/2*q^21 - a*q^27 
        + 1/2*(a + 1)*q^28 - a*q^31 + (a - 1)*q^48 + 1/2*(a - 2)*q^49 - q^52 + 
        (-a - 1)*q^61 + 1/2*(-a - 1)*q^63 + (2*a - 1)*q^73 + a*q^75 + (-a + 
        1)*q^76 - 1/2*a*q^84 + 1/2*(-a + 1)*q^91 + 2*q^97 + a*q^103 + (-a + 
        1)*q^108 + (-2*a + 1)*q^111 + 1/2*(2*a - 1)*q^112 + q^117 + (-a + 
        1)*q^124 + (a - 1)*q^129 + 1/2*a*q^133 + (a + 1)*q^139 - 1/2*q^147 + 
        (-2*a + 1)*q^157 + (a - 1)*q^171 + 1/2*(a + 1)*q^175 + (2*a - 2)*q^181 +
        1/2*a*q^189 - q^192 + 1/2*(-a - 1)*q^196 + (a + 1)*q^199 + (-a + 
        2)*q^201 - a*q^208 + 1/2*a*q^217 + q^223 + (a - 2)*q^229 + (-a - 
        1)*q^237 + (-a + 1)*q^241 + (a - 1)*q^243 + (-2*a + 1)*q^244 + 1/2*(-2*a
        + 1)*q^252 - 3/2*a*q^259 + 1/2*(-a + 2)*q^273 + (a - 1)*q^279 + (a - 
        2)*q^292 + (a - 1)*q^300 + 1/2*(2*a - 1)*q^301 + q^304 + O(q^306),
    q^6 + 1/2*(-a + 2)*q^14 + a*q^24 + (a - 1)*q^26 - a*q^38 - 1/2*q^42 - a*q^54
        + 1/2*(a + 1)*q^56 - a*q^62 + (a - 1)*q^96 + 1/2*(a - 2)*q^98 - q^104 + 
        (-a - 1)*q^122 + 1/2*(-a - 1)*q^126 + (2*a - 1)*q^146 + a*q^150 + (-a + 
        1)*q^152 - 1/2*a*q^168 + 1/2*(-a + 1)*q^182 + 2*q^194 + a*q^206 + (-a + 
        1)*q^216 + (-2*a + 1)*q^222 + 1/2*(2*a - 1)*q^224 + q^234 + (-a + 
        1)*q^248 + (a - 1)*q^258 + 1/2*a*q^266 + (a + 1)*q^278 - 1/2*q^294 + 
        O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^3 + (a - 1)*q^4 + (a - 1)*q^9 + q^12 + (-a + 1)*q^13 - a*q^16 + q^19
        + (a - 1)*q^25 + q^27 - q^31 - a*q^36 - q^37 - q^39 + a*q^43 + (a - 
        1)*q^48 - q^49 + a*q^52 - a*q^57 + (-a + 1)*q^61 + q^64 + (-a + 1)*q^67 
        + a*q^73 + q^75 + (a - 1)*q^76 + a*q^79 - a*q^81 + 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^117 + q^121 
        + (-a + 1)*q^124 + (2*a - 2)*q^127 + (-a + 1)*q^129 + (-a + 1)*q^139 + 
        q^144 + a*q^147 + (-a + 1)*q^148 + 2*q^151 + (-a + 1)*q^156 + a*q^157 - 
        q^163 + (a - 1)*q^171 - q^172 + (2*a - 2)*q^181 - q^183 - a*q^192 + 
        a*q^193 + (-a + 1)*q^196 + (-a + 1)*q^199 - q^201 - q^208 + a*q^211 + 
        (-a + 1)*q^219 + a*q^223 - a*q^225 + q^228 - q^229 + (-a + 1)*q^237 + 
        (-a + 1)*q^241 + (a - 1)*q^243 + a*q^244 + (-a + 1)*q^247 + (a - 
        1)*q^256 + a*q^268 - 2*a*q^271 + 2*q^277 + (-a + 1)*q^279 - 2*a*q^283 + 
        (a - 1)*q^289 + (2*a - 2)*q^291 - q^292 + (a - 1)*q^300 - a*q^304 + 
        O(q^306),
    q^2 - a*q^6 + (a - 1)*q^8 + (a - 1)*q^18 + q^24 + (-a + 1)*q^26 - a*q^32 + 
        q^38 + (a - 1)*q^50 + q^54 - q^62 - a*q^72 - q^74 - q^78 + a*q^86 + (a -
        1)*q^96 - q^98 + a*q^104 - a*q^114 + (-a + 1)*q^122 + q^128 + (-a + 
        1)*q^134 + a*q^146 + q^150 + (a - 1)*q^152 + a*q^158 - a*q^162 + a*q^186
        - 2*a*q^194 - a*q^200 - q^206 + (a - 1)*q^216 - 2*a*q^218 + a*q^222 + 
        a*q^234 + q^242 + (-a + 1)*q^248 + (2*a - 2)*q^254 + (-a + 1)*q^258 + 
        (-a + 1)*q^278 + q^288 + a*q^294 + (-a + 1)*q^296 + 2*q^302 + O(q^306),
    q^7 - a*q^21 + (a - 1)*q^28 - q^49 + (a - 1)*q^63 + q^84 + (-a + 1)*q^91 - 
        a*q^112 + q^133 + a*q^147 + (a - 1)*q^175 + q^189 + (-a + 1)*q^196 - 
        q^217 - a*q^252 - q^259 - q^273 + a*q^301 + O(q^306),
    q^14 - a*q^42 + (a - 1)*q^56 - q^98 + (a - 1)*q^126 + q^168 + (-a + 1)*q^182
        - a*q^224 + q^266 + a*q^294 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^6 - q^7 + a*q^9 - q^10 + (a - 1)*q^13 + (-a + 1)*q^15 - q^16 
        + a*q^19 + a*q^22 + (-a + 1)*q^24 - a*q^31 - q^33 + (-a + 1)*q^37 - q^40
        + (a - 1)*q^42 - a*q^43 + q^49 + q^54 + a*q^55 + (-a + 1)*q^58 - a*q^63 
        - q^64 + q^67 + q^70 + a*q^78 - q^79 + (a - 1)*q^81 + a*q^82 + a*q^87 + 
        a*q^88 - a*q^90 + (-a + 1)*q^91 + 2*a*q^94 - a*q^97 + (-a + 1)*q^103 + 
        (a - 1)*q^105 - q^106 + q^112 + q^114 - q^117 - q^123 + (a - 1)*q^127 + 
        (-a + 1)*q^130 - a*q^133 + q^135 + (a - 1)*q^139 - 2*q^141 - a*q^142 - 
        a*q^144 + (-a + 1)*q^145 - a*q^151 - a*q^154 + (-a + 1)*q^159 + (a - 
        1)*q^163 + (a - 1)*q^168 + (a - 1)*q^171 + (-a + 1)*q^181 - q^186 - 
        a*q^190 + (-2*a + 2)*q^193 + a*q^195 + (a - 1)*q^198 + q^199 + q^202 + 
        a*q^205 + (-a + 1)*q^208 + a*q^211 + q^213 + (a - 1)*q^214 + q^216 + 
        a*q^217 - a*q^222 + a*q^223 + (a - 1)*q^229 + q^231 + (-a + 1)*q^232 + 
        2*a*q^235 + (a - 1)*q^240 + q^241 - q^247 - q^250 - q^258 + (a - 
        1)*q^259 - q^262 - q^265 + q^271 + q^274 - a*q^277 + (-a + 1)*q^279 + 
        q^280 + q^285 - q^286 - a*q^289 + (-a + 1)*q^294 - a*q^297 - q^298 + 
        a*q^301 + (a - 1)*q^303 - a*q^304 + O(q^306),
    q^2 + (-a + 1)*q^12 - q^14 + a*q^18 - q^20 + (a - 1)*q^26 + (-a + 1)*q^30 - 
        q^32 + a*q^38 + a*q^44 + (-a + 1)*q^48 - a*q^62 - q^66 + (-a + 1)*q^74 -
        q^80 + (a - 1)*q^84 - a*q^86 + q^98 + q^108 + a*q^110 + (-a + 1)*q^116 -
        a*q^126 - q^128 + q^134 + q^140 + a*q^156 - q^158 + (a - 1)*q^162 + 
        a*q^164 + a*q^174 + a*q^176 - a*q^180 + (-a + 1)*q^182 + 2*a*q^188 - 
        a*q^194 + (-a + 1)*q^206 + (a - 1)*q^210 - q^212 + q^224 + q^228 - q^234
        - q^246 + (a - 1)*q^254 + (-a + 1)*q^260 - a*q^266 + q^270 + (a - 
        1)*q^278 - 2*q^282 - a*q^284 - a*q^288 + (-a + 1)*q^290 - a*q^302 + 
        O(q^306),
    q^3 - a*q^5 - a*q^8 + (a - 1)*q^11 + q^12 - a*q^20 - q^21 + a*q^27 + q^29 - 
        a*q^32 + a*q^35 + (a - 1)*q^39 + (a - 1)*q^41 + (a - 1)*q^44 + (-a + 
        1)*q^45 + (2*a - 2)*q^47 - a*q^53 + a*q^56 + a*q^57 + q^65 + (-a + 
        1)*q^71 + (-a + 1)*q^72 + (-a + 1)*q^77 - q^84 - a*q^93 + (-a + 1)*q^95 
        - q^99 + a*q^101 + q^104 - q^107 + a*q^108 + (-a + 1)*q^111 + q^116 - 
        q^120 - a*q^125 - a*q^129 - a*q^131 + a*q^137 + a*q^140 - a*q^143 + 
        q^147 - a*q^149 + (-a + 1)*q^152 + (a - 1)*q^155 + (a - 1)*q^156 + (a - 
        1)*q^164 + a*q^165 + q^167 - a*q^173 + (-a + 1)*q^179 + (-a + 1)*q^180 -
        q^185 + (2*a - 2)*q^188 - a*q^189 + q^191 - q^192 + q^201 - q^203 - 
        q^209 - a*q^212 + (a - 1)*q^215 + a*q^224 + (-a + 1)*q^227 + a*q^228 + 
        a*q^233 - q^237 + 2*a*q^239 + (a - 1)*q^243 - a*q^245 + (a - 1)*q^248 + 
        q^251 + q^260 + a*q^261 + a*q^264 + (-a + 1)*q^273 - q^281 + (-a + 
        1)*q^284 + (-a + 1)*q^287 + (-a + 1)*q^288 - a*q^291 - q^296 + O(q^306),
    q^4 + (a - 1)*q^6 + q^10 + q^16 - a*q^22 - q^28 + a*q^36 + (-a + 1)*q^42 + 
        (a - 1)*q^52 - q^54 + (a - 1)*q^58 + (-a + 1)*q^60 - q^70 + a*q^76 - 
        a*q^78 - a*q^82 + a*q^90 - 2*a*q^94 + (-a + 1)*q^96 + q^106 - q^112 - 
        q^114 - a*q^124 + (a - 1)*q^130 - q^132 + a*q^142 + a*q^144 + (-a + 
        1)*q^148 + a*q^154 - q^160 - a*q^172 + q^186 + a*q^190 + q^196 + (-a + 
        1)*q^198 - q^202 + (a - 1)*q^208 + (-a + 1)*q^214 + a*q^220 + a*q^222 + 
        (-a + 1)*q^240 + q^250 - a*q^252 - q^256 + q^258 + q^262 + q^268 - q^274
        + q^286 + (a - 1)*q^294 + q^298 + a*q^304 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^4 - q^8 + (a - 1)*q^15 + a*q^21 + (a - 1)*q^23 + (-a + 
        1)*q^29 + (a - 1)*q^32 - a*q^35 - q^39 - a*q^43 - q^49 + (-a + 1)*q^51 +
        (-a + 1)*q^53 - a*q^57 + a*q^60 + q^64 + q^65 + (a - 1)*q^67 + a*q^71 - 
        a*q^79 + a*q^81 + q^84 + (a - 1)*q^85 + (-a + 1)*q^91 + a*q^92 + a*q^95 
        - a*q^109 - a*q^116 + a*q^119 + (-a + 1)*q^120 - q^121 + (-a + 1)*q^123 
        + (a - 1)*q^127 + q^133 - a*q^135 + (-a + 1)*q^137 - q^140 - q^141 + 
        a*q^149 + (a - 1)*q^156 + 2*q^163 - a*q^168 - q^172 + (a - 1)*q^177 + 
        q^183 + (-a + 1)*q^184 - q^189 + a*q^193 + (a - 1)*q^196 - a*q^204 + (a 
        - 1)*q^205 - a*q^211 - a*q^212 + (a - 1)*q^219 - q^221 - q^228 + (a - 
        1)*q^232 - a*q^233 + q^235 + (a - 1)*q^247 + (-a + 1)*q^256 + (-a + 
        1)*q^260 + a*q^263 + q^267 + a*q^268 + a*q^280 + (a - 1)*q^281 + q^284 +
        a*q^287 + (-a + 1)*q^291 + (-a + 1)*q^295 + q^303 - q^305 + O(q^306),
    q^2 - a*q^4 - q^16 + (a - 1)*q^30 + a*q^32 + a*q^42 + (a - 1)*q^46 + (-a + 
        1)*q^58 + q^60 - a*q^70 - q^78 + (-a + 1)*q^84 - a*q^86 + q^92 - q^98 + 
        (-a + 1)*q^102 + (-a + 1)*q^106 - a*q^114 - q^116 + q^128 + q^130 + (a -
        1)*q^134 + (a - 1)*q^140 + a*q^142 + a*q^156 - a*q^158 + a*q^162 + (a - 
        1)*q^170 + (a - 1)*q^172 + (-a + 1)*q^182 + a*q^190 + a*q^196 - q^204 - 
        q^212 - a*q^218 + (a - 1)*q^228 + a*q^238 + (-a + 1)*q^240 - q^242 + (-a
        + 1)*q^246 + (a - 1)*q^254 - a*q^256 - a*q^260 + q^266 + q^268 - a*q^270
        + (-a + 1)*q^274 - q^282 + (-a + 1)*q^284 + a*q^298 + O(q^306),
    q^3 + (-a + 1)*q^12 - q^24 + (a - 1)*q^45 + a*q^63 + (a - 1)*q^69 + (-a + 
        1)*q^87 + (a - 1)*q^96 - a*q^105 - q^117 - a*q^129 - q^147 + (-a + 
        1)*q^153 + (-a + 1)*q^159 - a*q^171 + a*q^180 + q^192 + q^195 + (a - 
        1)*q^201 + a*q^213 - a*q^237 + a*q^243 + q^252 + (a - 1)*q^255 + (-a + 
        1)*q^273 + a*q^276 + a*q^285 + O(q^306),
    q^5 + (-a + 1)*q^7 + a*q^13 - q^17 + (a - 1)*q^19 + (-a + 1)*q^20 + (-a + 
        1)*q^27 - a*q^28 - q^40 - q^41 + (a - 1)*q^45 + a*q^47 + q^52 + (a - 
        1)*q^56 + q^59 - a*q^61 + a*q^63 + (a - 1)*q^68 + q^73 + a*q^76 - a*q^89
        - q^97 - a*q^101 - a*q^104 - a*q^108 + (a - 1)*q^115 - q^117 + (a - 
        1)*q^125 + q^131 + q^136 - a*q^139 + (-a + 1)*q^145 + (-a + 1)*q^152 + 
        (-a + 1)*q^153 - q^157 + (a - 1)*q^160 + a*q^161 + (a - 1)*q^164 - 
        a*q^167 - a*q^171 + q^173 + a*q^180 + a*q^181 + q^188 - a*q^199 - 
        a*q^203 - a*q^215 + (a - 1)*q^216 + q^223 + a*q^224 + (-a + 1)*q^236 + 
        a*q^241 + a*q^243 - q^244 - q^245 + a*q^251 + q^252 + a*q^257 + (-a + 
        1)*q^265 + q^269 - q^271 + q^283 + (-a + 1)*q^292 + (2*a - 2)*q^293 - 
        q^299 - q^301 + O(q^306),
    q^6 - a*q^12 - q^48 + (a - 1)*q^90 + a*q^96 + a*q^126 + (a - 1)*q^138 + (-a 
        + 1)*q^174 + q^180 - a*q^210 - q^234 + (-a + 1)*q^252 - a*q^258 + q^276 
        - q^294 + O(q^306),
    q^9 - q^15 + (a - 1)*q^21 + (-a + 1)*q^36 - a*q^39 + q^51 + (-a + 1)*q^57 + 
        (a - 1)*q^60 - q^72 + (a - 1)*q^81 + a*q^84 + q^120 + q^123 - a*q^141 - 
        q^156 + (-a + 1)*q^168 - q^177 + a*q^183 + (-a + 1)*q^204 + (a - 
        1)*q^207 - q^219 - a*q^228 + (-a + 1)*q^261 + a*q^267 + (a - 1)*q^288 + 
        q^291 + a*q^303 + O(q^306),
    q^10 + (-a + 1)*q^14 - a*q^20 + a*q^26 - q^28 - q^34 + (a - 1)*q^38 + (-a + 
        1)*q^52 + (-a + 1)*q^54 + a*q^68 + q^76 - q^80 - q^82 + (a - 1)*q^90 + 
        a*q^94 - q^108 + (a - 1)*q^112 + q^118 - a*q^122 + a*q^126 + q^146 + 
        a*q^160 + a*q^164 - a*q^178 + q^180 + (-a + 1)*q^188 - q^194 - a*q^202 -
        a*q^208 + q^224 + (a - 1)*q^230 - q^234 - a*q^236 + (a - 1)*q^244 + (a -
        1)*q^250 + (-a + 1)*q^252 + q^262 + q^272 - a*q^278 + (-a + 1)*q^290 - 
        a*q^292 + (-a + 1)*q^304 + O(q^306),
    q^18 - q^30 - a*q^36 + (a - 1)*q^42 + a*q^60 - a*q^78 + q^84 + q^102 + (-a +
        1)*q^114 - q^144 + (a - 1)*q^156 + (a - 1)*q^162 - a*q^204 - q^228 + 
        q^240 + q^246 - a*q^282 + a*q^288 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a + 1)*q^6 - q^7 - q^9 + a*q^10 + (a - 1)*q^13 + (-a + 1)*q^15 + (-a +
        1)*q^16 - q^19 + a*q^22 - q^24 + (a - 1)*q^31 + (-a + 1)*q^33 + a*q^37 +
        (-a + 1)*q^40 + (a - 1)*q^42 - a*q^43 + q^49 + (a - 1)*q^54 + a*q^55 + 
        a*q^58 + q^63 - q^64 - a*q^67 - a*q^70 + a*q^78 + (-a + 1)*q^79 + q^81 -
        q^82 + (-a + 1)*q^87 + (-a + 1)*q^88 - a*q^90 + (-a + 1)*q^91 + (-2*a + 
        2)*q^94 - a*q^97 + a*q^103 + (a - 1)*q^105 - q^106 + (a - 1)*q^112 + (a 
        - 1)*q^114 + (-a + 1)*q^117 + a*q^123 + (a - 1)*q^127 - q^130 + q^133 + 
        (a - 1)*q^135 + (a - 1)*q^139 - 2*q^141 + q^142 + (a - 1)*q^144 + 
        a*q^145 + (a - 1)*q^151 - a*q^154 + a*q^159 - a*q^163 + q^168 + q^171 + 
        (-a + 1)*q^181 + a*q^186 - a*q^190 - 2*q^193 + a*q^195 - a*q^198 - 
        a*q^199 + q^202 - q^205 + a*q^208 + a*q^211 - a*q^213 + q^214 + q^216 + 
        (-a + 1)*q^217 + q^222 + a*q^223 - a*q^229 + (a - 1)*q^231 + (-a + 
        1)*q^232 + (-2*a + 2)*q^235 - a*q^240 - a*q^241 + (-a + 1)*q^247 + (-a +
        1)*q^250 - q^258 - a*q^259 + a*q^262 - q^265 + (a - 1)*q^271 + q^274 + 
        (a - 1)*q^277 + (-a + 1)*q^279 + (a - 1)*q^280 + (a - 1)*q^285 - q^286 +
        q^289 + (-a + 1)*q^294 + (a - 1)*q^297 + a*q^298 + a*q^301 - a*q^303 + 
        (a - 1)*q^304 + O(q^306),
    q^2 + (-a + 1)*q^12 - q^14 - q^18 + a*q^20 + (a - 1)*q^26 + (-a + 1)*q^30 + 
        (-a + 1)*q^32 - q^38 + a*q^44 - q^48 + (a - 1)*q^62 + (-a + 1)*q^66 + 
        a*q^74 + (-a + 1)*q^80 + (a - 1)*q^84 - a*q^86 + q^98 + (a - 1)*q^108 + 
        a*q^110 + a*q^116 + q^126 - q^128 - a*q^134 - a*q^140 + a*q^156 + (-a + 
        1)*q^158 + q^162 - q^164 + (-a + 1)*q^174 + (-a + 1)*q^176 - a*q^180 + 
        (-a + 1)*q^182 + (-2*a + 2)*q^188 - a*q^194 + a*q^206 + (a - 1)*q^210 - 
        q^212 + (a - 1)*q^224 + (a - 1)*q^228 + (-a + 1)*q^234 + a*q^246 + (a - 
        1)*q^254 - q^260 + q^266 + (a - 1)*q^270 + (a - 1)*q^278 - 2*q^282 + 
        q^284 + (a - 1)*q^288 + a*q^290 + (a - 1)*q^302 + O(q^306),
    q^3 + (a - 1)*q^5 + q^8 + (a - 1)*q^11 - a*q^12 + q^20 - q^21 - q^27 + (a - 
        1)*q^29 - a*q^32 + (-a + 1)*q^35 + (a - 1)*q^39 - a*q^41 + q^44 + (-a + 
        1)*q^45 + 2*q^47 - a*q^53 - q^56 - q^57 - a*q^65 + a*q^71 - q^72 + (-a +
        1)*q^77 + a*q^84 + (a - 1)*q^93 + (-a + 1)*q^95 + (-a + 1)*q^99 + 
        a*q^101 + (a - 1)*q^104 + a*q^107 + a*q^108 + a*q^111 + q^116 + (-a + 
        1)*q^120 + q^125 - a*q^129 + (a - 1)*q^131 + a*q^137 - q^140 - a*q^143 +
        q^147 + (a - 1)*q^149 - q^152 - a*q^155 + q^156 + (a - 1)*q^164 + 
        a*q^165 + (a - 1)*q^167 + (a - 1)*q^173 + (-a + 1)*q^179 - q^180 - q^185
        - 2*a*q^188 + q^189 - a*q^191 - q^192 - a*q^201 + (-a + 1)*q^203 + (-a +
        1)*q^209 + (a - 1)*q^212 + q^215 + a*q^224 + (-a + 1)*q^227 + a*q^228 + 
        (-a + 1)*q^233 + (-a + 1)*q^237 - 2*q^239 + q^243 + (a - 1)*q^245 + (a -
        1)*q^248 + (a - 1)*q^251 + (a - 1)*q^260 + (-a + 1)*q^261 + (-a + 
        1)*q^264 + (-a + 1)*q^273 + (-a + 1)*q^281 + (-a + 1)*q^284 + a*q^287 + 
        a*q^288 - a*q^291 + a*q^296 + O(q^306),
    q^4 - a*q^6 + q^10 - a*q^16 + q^22 - q^28 - q^36 + a*q^42 + (a - 1)*q^52 + 
        a*q^54 + q^58 + (-a + 1)*q^60 - q^70 - q^76 + q^78 + (a - 1)*q^82 - q^90
        - 2*a*q^94 - q^96 + (a - 1)*q^106 + a*q^112 + a*q^114 + (a - 1)*q^124 + 
        (a - 1)*q^130 + (-a + 1)*q^132 + (-a + 1)*q^142 + a*q^144 + a*q^148 - 
        q^154 + (-a + 1)*q^160 - a*q^172 + q^186 - q^190 + q^196 - q^198 + (-a +
        1)*q^202 + q^208 + (-a + 1)*q^214 + a*q^220 + (-a + 1)*q^222 - q^240 - 
        a*q^250 + q^252 - q^256 + (a - 1)*q^258 + q^262 - a*q^268 + (-a + 
        1)*q^274 + (a - 1)*q^286 - a*q^294 + q^298 + a*q^304 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
9*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(
798
);
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(
6
);
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - a*q^4 + (-a + 1)*q^5 + (a - 1)*q^7 + (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^28 + a*q^35 + q^36 
        - q^43 + (-a + 1)*q^44 + a*q^45 + (-a + 1)*q^47 - a*q^49 + q^55 + (-a + 
        1)*q^61 - a*q^63 + q^64 + (2*a - 2)*q^68 + a*q^73 + q^76 - q^77 + a*q^80
        - a*q^81 - q^83 - 2*q^85 - q^92 + a*q^95 - q^99 + a*q^101 - a*q^112 - 
        a*q^115 + 2*q^119 + q^125 + (2*a - 2)*q^131 - a*q^133 + a*q^137 - q^139 
        + (-a + 1)*q^140 - a*q^144 + (-a + 1)*q^149 + 2*q^153 + a*q^157 + 
        a*q^161 + (-a + 1)*q^163 + q^169 - a*q^171 + a*q^172 - q^176 + (-a + 
        1)*q^180 + (-2*a + 2)*q^187 - q^188 + (-a + 1)*q^191 + (a - 1)*q^196 - 
        q^197 + a*q^199 + a*q^207 - q^209 + (a - 1)*q^215 - a*q^220 + (2*a - 
        2)*q^229 + (2*a - 2)*q^233 - a*q^235 + 2*q^239 - q^244 - q^245 - q^251 +
        (a - 1)*q^252 + q^253 - a*q^256 - 2*a*q^263 + (-a + 1)*q^271 + 2*q^272 +
        a*q^277 + a*q^283 + (3*a - 3)*q^289 + (-a + 1)*q^292 + (-a + 1)*q^301 - 
        a*q^304 - a*q^305 + O(q^306),
    q^2 - a*q^8 + (-a + 1)*q^10 + (a - 1)*q^14 + (a - 1)*q^18 + a*q^22 + (a - 
        1)*q^32 - 2*a*q^34 + (a - 1)*q^38 - q^40 + (-a + 1)*q^46 + q^56 + a*q^70
        + q^72 - q^86 + (-a + 1)*q^88 + a*q^90 + (-a + 1)*q^94 - a*q^98 + q^110 
        + (-a + 1)*q^122 - a*q^126 + q^128 + (2*a - 2)*q^136 + a*q^146 + q^152 -
        q^154 + a*q^160 - a*q^162 - q^166 - 2*q^170 - q^184 + a*q^190 - q^198 + 
        a*q^202 - a*q^224 - a*q^230 + 2*q^238 + q^250 + (2*a - 2)*q^262 - 
        a*q^266 + a*q^274 - q^278 + (-a + 1)*q^280 - a*q^288 + (-a + 1)*q^298 + 
        O(q^306),
    q^3 - a*q^12 + (-a + 1)*q^15 + (a - 1)*q^21 + (a - 1)*q^27 + a*q^33 + (a - 
        1)*q^48 - 2*a*q^51 + (a - 1)*q^57 - q^60 + (-a + 1)*q^69 + q^84 + 
        a*q^105 + q^108 - q^129 + (-a + 1)*q^132 + a*q^135 + (-a + 1)*q^141 - 
        a*q^147 + q^165 + (-a + 1)*q^183 - a*q^189 + q^192 + (2*a - 2)*q^204 + 
        a*q^219 + q^228 - q^231 + a*q^240 - a*q^243 - q^249 - 2*q^255 - q^276 + 
        a*q^285 - q^297 + a*q^303 + O(q^306),
    q^6 - a*q^24 + (-a + 1)*q^30 + (a - 1)*q^42 + (a - 1)*q^54 + a*q^66 + (a - 
        1)*q^96 - 2*a*q^102 + (a - 1)*q^114 - q^120 + (-a + 1)*q^138 + q^168 + 
        a*q^210 + q^216 - q^258 + (-a + 1)*q^264 + a*q^270 + (-a + 1)*q^282 - 
        a*q^294 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
798
);
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:=Rationals();
qprec:=
306
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + q^9 - q^28 - q^30 - q^39 - q^43 + q^49 - q^58 - q^64 + q^81 - q^85 - 
        q^93 + q^100 + q^102 + q^106 + q^112 + q^121 + q^142 + q^156 - q^163 + 
        q^169 + q^172 - q^175 + q^190 + q^210 - q^214 - q^226 - q^228 - q^235 - 
        q^247 - q^252 + q^256 - q^270 - q^273 - q^277 + q^282 - q^301 + 
        O(q^306),
    q^2 + q^18 - q^56 - q^60 - q^78 - q^86 + q^98 - q^116 - q^128 + q^162 - 
        q^170 - q^186 + q^200 + q^204 + q^212 + q^224 + q^242 + q^284 + 
        O(q^306),
    q^3 - q^12 - q^19 - q^21 + q^27 + 2*q^40 - q^48 + q^75 + q^76 + q^84 - 
        2*q^97 - 2*q^103 - q^108 + q^133 - 2*q^136 + 2*q^145 + q^147 - q^171 + 
        2*q^181 - q^189 + q^192 + 2*q^241 + q^243 - 2*q^255 - 2*q^265 - 2*q^280 
        - q^300 + q^304 + O(q^306),
    q^4 - q^28 - q^30 + q^36 - q^58 - q^64 + q^100 + q^102 + q^106 - q^120 + 
        q^142 + q^190 + q^196 + q^210 - q^214 - q^226 - q^228 - q^232 - q^252 - 
        q^270 + q^282 + O(q^306),
    q^5 - q^17 - q^26 - q^35 + q^38 + q^42 + q^45 - q^47 - q^62 - q^80 + q^83 + 
        q^87 + q^96 - q^101 + q^104 + q^119 + q^131 - q^150 - q^152 - q^153 - 
        q^159 - q^168 - q^182 + 2*q^194 + 2*q^206 - q^213 - q^234 + q^245 + 
        q^248 - q^251 - q^258 + q^272 - q^285 - q^290 + O(q^306),
    q^6 - q^24 - 2*q^26 + q^38 + q^42 + q^54 - 2*q^62 + q^96 + 2*q^104 - q^150 -
        q^152 - q^168 - 2*q^182 + 2*q^194 + 2*q^206 - q^216 - 2*q^234 + 2*q^248 
        - 2*q^258 + q^266 + q^294 + O(q^306),
    q^7 + q^16 - q^25 - q^28 - q^39 - q^43 + q^57 + q^63 - q^64 + q^85 - q^93 + 
        q^100 - q^120 + q^144 + q^156 - q^163 + 2*q^169 + q^172 - q^225 - q^228 
        - q^232 + q^235 - q^247 - q^252 - q^273 - q^277 - q^289 + 2*q^291 - 
        q^301 + O(q^306),
    q^8 + q^15 + q^29 - q^51 - q^53 - q^56 - q^60 - q^71 + q^72 - q^95 - q^105 +
        q^107 + q^113 - q^116 - q^128 + q^135 - q^141 + q^179 + q^200 - q^203 + 
        q^204 + q^212 - q^240 + q^249 + q^261 - q^281 + q^284 - q^303 + 
        O(q^306),
    q^10 - q^12 - q^34 + q^40 - q^70 + q^76 + q^84 + q^90 - q^94 - q^108 - q^136
        - q^160 + q^166 + q^174 + q^192 - q^202 + q^238 + q^262 - q^280 - q^300 
        + O(q^306),
    q^13 - q^19 - q^21 + q^31 + q^40 - q^48 - q^52 + q^75 + q^76 + q^84 + q^91 -
        2*q^97 - 2*q^103 + q^117 - q^124 + q^129 - q^136 + q^145 - q^171 - q^189
        + q^192 + q^208 + q^217 + q^223 - q^255 - q^265 + q^279 - q^280 - q^300 
        + O(q^306),
    q^14 + q^15 + q^29 + q^32 - q^50 - q^51 - q^53 - q^56 - q^71 - q^78 - q^86 -
        q^95 - q^105 + q^107 + q^113 + q^114 + q^126 - q^128 + q^135 - q^141 + 
        q^170 + q^179 - q^186 + q^200 - q^203 - q^240 + q^249 + q^261 - q^281 + 
        q^288 - q^303 + O(q^306),
    q^20 - q^24 - q^26 + q^38 + q^42 - q^62 - q^68 + q^96 + q^104 - q^140 - 
        q^150 + q^180 - q^182 - q^188 + 2*q^194 + 2*q^206 - q^216 - q^234 + 
        q^248 - q^258 - q^290 + O(q^306)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
799
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.1
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
16
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
799
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
46
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
799
);
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(
184
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
799
);
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(
92
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
799
);
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(
46
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
799
);
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(
368
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
799
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
23*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^3 - q^6 - q^8 + q^9 + q^12 + q^14 + q^18 - q^21 + q^24 + q^25 - q^27 -
        q^28 + q^32 - q^36 - q^37 + q^47 + q^63 - q^71 - q^72 - q^74 - q^75 - 
        q^79 + 2*q^83 - q^96 - q^98 - q^101 - q^103 + q^106 + 2*q^111 + q^118 + 
        q^121 + q^122 - q^141 + O(q^142),
    q^2 - q^3 - q^4 + q^7 + q^9 - q^14 + q^24 + q^28 - q^37 - q^42 - q^49 + q^50
        + 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^103 - q^106 
        + q^108 + q^111 - q^118 - q^122 + q^126 - q^128 + q^131 - q^141 + 
        O(q^142),
    q^17 - q^51 - q^102 - q^136 + O(q^142),
    q^34 - q^51 - q^68 + q^119 + O(q^142)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
799
);
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(
8
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^3 + 2*a^2 + 2*a + 1)*q^7 + (a^2 + a + 1)*q^8 + (-a^2 - a - 1)*q^9 + 
        (-a^3 - a^2 - a + 1)*q^12 + (-a^3 + a^2 + a + 1)*q^14 + (-2*a^3 + 2*a + 
        2)*q^16 + 1/2*(-a^3 - a^2 - a - 1)*q^17 + (a^3 - a - 1)*q^18 + (a^3 + 
        a^2 + a)*q^21 + (-a^3 - a^2 - a - 1)*q^24 - a*q^25 + (-a^2 - a)*q^27 + 
        (-a^3 - a^2 + 1)*q^32 + 1/2*(a^3 - a^2 - 3*a - 3)*q^34 - a^3*q^36 + (a^3
        - a^2 - a - 1)*q^37 + (-a^2 - 1)*q^42 - a^2*q^47 + (2*a^3 + a^2 - 
        1)*q^49 + (a^2 + a)*q^51 + (-2*a^3 - a^2 + 1)*q^53 + (a^3 + a^2)*q^56 + 
        (-2*a^2 - 2*a - 2)*q^59 + (a^2 + a)*q^61 + 1/2*(3*a^3 + a^2 + a - 
        1)*q^68 + (a + 1)*q^71 - a^2*q^72 + (3*a^3 + a^2 - a - 3)*q^74 + (-a^3 +
        1)*q^79 + (a^2 - 1)*q^83 + (a^3 - a)*q^84 + (a^3 + a^2 - a - 1)*q^96 + 
        (2*a^3 + 2*a^2 + a - 1)*q^97 + (2*a^3 + 3*a^2 + 2*a)*q^98 - q^101 + 
        1/2*(-a^3 - a^2 + a + 1)*q^102 + (a^3 - a - 1)*q^103 + (-a^3 - a^2 - 
        a)*q^106 + (a^2 + 2*a + 1)*q^111 + (2*a^2 + 2*a)*q^112 + (a^3 - a - 
        1)*q^118 + 1/2*(-3*a^3 - 3*a^2 - a + 1)*q^119 - a^3*q^121 + (a + 
        1)*q^122 + (-2*a^2 - 2*a)*q^126 + (-2*a^3 - 2*a^2 - a + 1)*q^131 + 
        1/2*(-a^3 + a^2 + a + 1)*q^136 + O(q^142),
    q^2 + (-a^3 - a^2)*q^7 - a^2*q^8 + a^2*q^9 + (a^3 - 1)*q^12 + (-a^2 - a - 
        1)*q^16 + a*q^18 + (-a^3 - a^2 + 1)*q^21 + (a^3 + a^2)*q^24 + (a^3 + 
        a^2)*q^27 + (-a^3 + a^2)*q^28 - q^32 + 1/2*(a^3 + a^2 + a + 1)*q^34 + 
        (a^3 - a)*q^36 + a^2*q^42 + (-a^3 - 1)*q^48 - a*q^50 + 1/2*(-a^3 - a^2 -
        a + 1)*q^51 - q^53 + (a^3 + a^2 + a)*q^59 + (-a^3 + 1)*q^63 + 1/2*(-a^3 
        - a^2 + a + 1)*q^68 + (-a^3 + a^2 + a + 1)*q^74 + a^3*q^81 + a*q^84 + 
        a^3*q^89 - a^2*q^94 + (a + 1)*q^96 + (-a^3 - a^2 + a + 1)*q^97 + (-a^2 +
        1)*q^98 - q^102 + (-a^3 - a^2 - a)*q^111 + (-a + 1)*q^112 + 1/2*(a^3 + 
        a^2 + a - 1)*q^119 + (a - 1)*q^126 + a^2*q^128 + (a^3 + a^2 - a - 
        1)*q^131 - a^2*q^136 + O(q^142),
    q^3 + (-2*a^2 - 3*a - 2)*q^7 + (a^3 - a^2 - a - 1)*q^8 + (-a^3 + a^2 + 2*a +
        2)*q^9 + (2*a^3 + 2*a^2 + 2*a)*q^12 + (a^3 - a - 1)*q^14 + (3*a^3 + a^2 
        - a - 3)*q^16 + 1/2*(a^3 + a^2 + a + 1)*q^17 + (-a^3 + 1)*q^18 + (-a^3 -
        2*a^2 - 2*a - 1)*q^21 + (a^2 + a + 1)*q^24 + (a^2 + 2*a + 1)*q^27 - 
        a^3*q^28 + (a^3 + a^2 + a - 1)*q^32 + (-a^3 + a + 2)*q^34 + (a^3 + 
        a^2)*q^36 + (-a^3 + a + 1)*q^37 + (-a^3 + a^2)*q^42 + (-a^3 - a^2)*q^49 
        + 1/2*(a^3 - a^2 - 3*a - 3)*q^51 + (2*a^3 + 2*a^2 + a - 1)*q^53 + q^54 +
        (-a^3 - a^2 - a)*q^56 + (-a^3 + a^2 + 3*a + 3)*q^59 + (-a^2 - a - 
        1)*q^61 + (-a^3 - 2*a^2 - a)*q^63 + (-a^3 - 2*a^2 - a)*q^68 - q^71 + 
        (a^2 + a)*q^72 + (-4*a^3 - 2*a^2 + 2)*q^74 - a*q^75 + a^3*q^79 + (a^2 + 
        a)*q^81 + (-2*a^3 - a^2 + a + 2)*q^84 + (-a^3 - a^2 + 1)*q^96 + (-2*a^3 
        - 3*a^2 - 2*a)*q^97 + (-a^3 - 3*a^2 - 3*a - 1)*q^98 + (-a^3 + 1)*q^101 +
        1/2*(a^3 + a^2 - a - 1)*q^102 + (-a^3 + 1)*q^103 + (a^2 + a)*q^106 + 
        (a^3 + a^2 - 1)*q^108 + (a^3 - a^2 - 2*a - 2)*q^111 - 2*a*q^112 + (-a^3 
        - a^2 + a + 1)*q^118 + (a^3 + 2*a^2 + 2*a)*q^119 - q^122 + (a^2 + 3*a + 
        1)*q^126 + (2*a^3 + 3*a^2 + 2*a)*q^131 + 1/2*(a^3 - a^2 - a - 1)*q^136 -
        a^2*q^141 + O(q^142),
    q^4 + (-2*a^3 - a^2 + a + 2)*q^7 + (-a^3 - a^2 + 1)*q^8 + (2*a^3 + a^2 - 
        1)*q^9 + (a^3 - a^2 - 2*a - 2)*q^12 + (-a^3 - a^2)*q^14 + (-2*a^3 - 
        3*a^2 - 2*a)*q^16 + 1/2*(a^3 + a^2 - a - 1)*q^17 + a^2*q^18 + (-a^3 + a 
        + 1)*q^21 + (a^3 - 1)*q^24 + (a^3 - 1)*q^27 + (-a^2 - a - 1)*q^32 + 
        1/2*(3*a^3 + 3*a^2 + a - 1)*q^34 + (a^3 + a^2 + a - 1)*q^37 + (a^3 + 
        a^2)*q^48 + (a^2 + a + 1)*q^49 + (-a^3 - a^2 + 1)*q^51 + (-a^2 - 2*a - 
        1)*q^53 + (a^3 + a^2)*q^54 + (-a^3 + a^2 + a + 1)*q^56 + (2*a^3 + 2*a^2 
        - 2)*q^59 + (-a^3 + 1)*q^61 + (a + 1)*q^63 - q^64 + 1/2*(-a^3 + a^2 + 
        3*a + 3)*q^68 + (-a^3 - a^2)*q^71 + (a^3 - a - 1)*q^72 + (a^3 + 3*a^2 + 
        3*a + 1)*q^74 + (-a^2 - a)*q^79 - q^81 + (a^3 + 2*a^2 + a)*q^84 + (a^2 +
        a)*q^96 + (-a^3 + a^2 + 2*a + 2)*q^97 + (-2*a^3 + 2*a + 3)*q^98 - 
        a*q^100 + a^2*q^101 + 1/2*(-a^3 - a^2 - a + 1)*q^102 + (a^3 + a^2 + 
        a)*q^103 - q^106 + (-a^2 - a)*q^108 + (-2*a^3 - a^2 + 1)*q^111 + (-a^3 +
        1)*q^112 + (a^3 + a^2 + a)*q^118 + 1/2*(a^3 - a^2 - 3*a - 3)*q^119 + 
        (2*a^3 + a^2 - a - 2)*q^126 + (a^3 - a^2 - 2*a - 2)*q^131 + 1/2*(-a^3 - 
        a^2 + a + 1)*q^136 + O(q^142),
    q^6 + (-a^3 - a^2 - a)*q^7 + (a^2 + a)*q^9 + (a^3 + a^2 - 1)*q^12 + (a^3 - 
        a^2 - a - 1)*q^16 + (-a^3 - a^2)*q^21 + a^2*q^27 + 1/2*(a^3 + a^2 + a + 
        1)*q^34 + 1/2*(-a^3 - a^2 - a - 1)*q^51 + (a^3 - 1)*q^53 + a*q^54 - 
        a^3*q^56 + (a^3 + a^2 + a + 1)*q^59 - a^2*q^61 + (-a^3 - a^2 + 1)*q^63 +
        1/2*(-a^3 - a^2 - a + 1)*q^68 + (a^3 + a^2)*q^72 + (-a^3 + a + 1)*q^74 +
        (a^3 + a^2)*q^81 + (-a^3 + a^2 + a + 1)*q^84 + (-a^3 - a^2 + 1)*q^97 + 
        (-a^3 - a^2)*q^98 + (a^3 - a - 1)*q^108 + (-a^2 - a)*q^111 + 1/2*(a^3 + 
        a^2 + a - 1)*q^119 + (a^3 + a^2 + a)*q^126 + (a^3 + a^2 - 1)*q^131 + 
        O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
799
);
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(
4
);
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a + 1)*q^7 + a*q^8 - a*q^9 + 1/2*(-a - 1)*q^17 + q^18 - q^21 + a*q^25 
        + (a - 1)*q^27 + a*q^32 + 1/2*(-a + 1)*q^34 - a*q^36 - q^47 + 2*a*q^53 +
        (a + 1)*q^56 + (-a + 1)*q^61 + 1/2*(-a - 1)*q^68 + (-a - 1)*q^71 + q^72 
        + (a - 1)*q^79 + (-a - 1)*q^97 - q^98 + q^101 + 1/2*(-a - 1)*q^102 - 
        q^103 - q^106 - q^118 + 1/2*(a - 1)*q^119 - a*q^121 + (a + 1)*q^122 + 
        (-a - 1)*q^131 + 1/2*(-a + 1)*q^136 + O(q^142),
    q^2 + (a + 1)*q^7 - q^8 + q^9 + (a - 1)*q^12 - a*q^16 + a*q^18 - a*q^21 + 
        (-a - 1)*q^24 + (-a - 1)*q^27 + (-a - 1)*q^28 + q^32 + 1/2*(a + 1)*q^34 
        - q^42 + (-a + 1)*q^48 + a*q^50 + 1/2*(-a + 1)*q^51 - q^53 + q^59 + (a -
        1)*q^63 + 2*a*q^64 + 1/2*(a + 1)*q^68 + a*q^81 - a*q^84 - a*q^89 - q^94 
        + (a + 1)*q^96 - 2*a*q^98 + q^102 - q^111 + (a + 1)*q^112 + 1/2*(a - 
        1)*q^119 + (-a - 1)*q^126 - q^128 - q^136 + O(q^142),
    q^3 - a*q^7 + (-a - 1)*q^9 + q^14 + 1/2*(-a - 1)*q^17 + (-a + 1)*q^18 + (a -
        1)*q^21 + a*q^24 + 2*a*q^27 - a*q^28 + (-a - 1)*q^36 - q^37 + (-a - 
        1)*q^42 + (a + 1)*q^49 + 1/2*(a - 1)*q^51 + (a + 1)*q^53 - q^54 + q^56 -
        a*q^61 + 2*q^63 - q^71 + (-a + 1)*q^72 + a*q^75 + a*q^79 + (-a + 1)*q^81
        + (a - 1)*q^84 + a*q^96 - q^97 + (-a + 1)*q^101 + 1/2*(-a - 1)*q^102 + 
        (a - 1)*q^103 + (a - 1)*q^106 + a*q^108 + (a + 1)*q^111 + a*q^119 + 
        q^122 + a*q^126 - q^131 + 1/2*(-a + 1)*q^136 - q^141 + O(q^142),
    q^4 + (-a + 1)*q^7 + a*q^8 - 2*a*q^9 + (a + 1)*q^12 + (a + 1)*q^14 - q^16 + 
        1/2*(-a - 1)*q^17 + q^18 - q^21 + (a - 1)*q^24 + (a - 1)*q^27 - a*q^32 +
        1/2*(-a + 1)*q^34 + (-a - 1)*q^48 + a*q^49 - q^51 + 2*a*q^53 + (-a - 
        1)*q^54 + (-a + 1)*q^61 + (a + 1)*q^63 + q^64 + 1/2*(-a + 1)*q^68 + (-a 
        - 1)*q^71 + q^72 + (a - 1)*q^79 + q^81 - 2*q^84 + (-a + 1)*q^96 + (-a - 
        1)*q^97 - q^98 + a*q^100 + q^101 + 1/2*(-a + 1)*q^102 - q^103 - q^106 + 
        (a - 1)*q^108 + 2*a*q^111 + (-a + 1)*q^112 + q^118 + 1/2*(a - 1)*q^119 +
        (a - 1)*q^126 + 2*a*q^128 + (-a - 1)*q^131 + 1/2*(a + 1)*q^136 + 
        O(q^142),
    q^6 - q^7 + (a - 1)*q^9 - a*q^12 + (a + 1)*q^21 + q^27 + 1/2*(-a - 1)*q^34 +
        1/2*(a + 1)*q^51 + (-a + 1)*q^53 + a*q^54 - a*q^56 - q^61 - a*q^63 + 
        1/2*(a - 1)*q^68 + (-a - 1)*q^72 - q^74 + (-a - 1)*q^81 + a*q^97 + (a + 
        1)*q^98 + q^108 + (-a + 1)*q^111 + 1/2*(-a + 1)*q^119 + q^126 + a*q^131 
        + O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
799
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
8*H.1 + 23*H.2
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C:=Rationals();
qprec:=
142
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^16 - q^21 - q^25 - 2*q^32 - 1/2*q^34 + q^42 + q^47 - q^49 + q^50 + 
        1/2*q^51 - q^55 - q^59 + q^64 + 1/2*q^68 - q^72 + q^83 + q^84 - q^94 + 
        q^98 - q^100 + q^101 + q^103 - q^106 - q^111 + q^115 + q^118 + 1/2*q^119
        - q^128 - q^136 + O(q^142),
    q^2 + q^18 - q^25 - q^32 - q^34 + q^50 - q^55 - q^59 - q^94 + q^98 - q^100 +
        q^101 + q^103 + q^115 + q^121 + O(q^142),
    q^3 + q^7 - q^14 - q^18 + q^21 + q^24 + q^25 - q^28 + q^32 + 1/2*q^34 - q^36
        + q^37 + q^49 - q^50 - 1/2*q^51 - q^53 - q^54 + q^56 + q^59 - q^61 - 
        q^64 - 1/2*q^68 - q^71 - q^75 + q^79 + q^81 - q^83 - q^89 + q^94 - q^96 
        + q^97 - q^98 - q^101 + q^102 - q^103 - q^108 - 3/2*q^119 + q^122 + 
        q^126 + q^131 + q^141 + O(q^142),
    q^4 - q^16 - 2*q^18 + 2*q^21 + 2*q^25 + 2*q^32 + q^34 - q^36 - q^47 + 2*q^49
        - 3*q^50 - q^53 + q^55 + 2*q^59 - 2*q^64 - q^68 + 2*q^81 - q^83 - q^89 +
        2*q^94 - 2*q^98 + q^100 - 2*q^101 + q^102 - 2*q^103 - q^110 - 2*q^115 - 
        q^118 - q^119 + q^136 + O(q^142),
    q^5 - q^11 - q^22 + q^45 + q^58 + q^62 - q^73 - q^92 - q^99 - q^109 + q^116 
        + q^124 + O(q^142),
    q^6 - q^7 + q^12 - q^27 - 1/2*q^34 + 1/2*q^51 - q^54 - q^56 + q^61 + q^63 - 
        1/2*q^68 + q^74 - q^97 - q^108 + 1/2*q^119 + q^126 - q^131 + O(q^142),
    q^8 - 2*q^16 - 2*q^18 + 2*q^21 + 3*q^25 + 4*q^32 + 2*q^34 - 2*q^36 - q^47 + 
        2*q^49 - 4*q^50 - 2*q^53 + q^55 + 3*q^59 - 4*q^64 - 2*q^68 + q^72 + 
        2*q^81 - 2*q^83 - 2*q^89 + 3*q^94 - 2*q^98 + 2*q^100 - 2*q^101 + q^102 -
        2*q^103 + q^106 - q^110 - 2*q^115 - 2*q^118 - q^119 + 2*q^128 + 2*q^136 
        + O(q^142),
    q^9 - q^16 + q^21 + 2*q^25 + 2*q^32 + 1/2*q^34 - q^42 - q^47 + 2*q^49 - 
        2*q^50 - 1/2*q^51 - q^53 + q^59 - 2*q^64 - 3/2*q^68 + q^72 + q^81 - 
        2*q^83 - q^84 - q^89 + q^94 - q^98 + q^100 - q^101 - q^103 + q^106 - 
        q^110 + q^111 - q^115 - 2*q^118 - 1/2*q^119 + q^121 + q^128 + q^136 + 
        O(q^142),
    q^10 - q^11 - q^22 + q^29 + q^31 - q^44 - q^46 + q^58 + q^62 - q^73 - q^82 +
        q^90 - q^99 + q^107 - q^109 + q^113 + q^116 + q^124 - q^125 + O(q^142),
    q^17 - 2*q^18 + 2*q^21 + 2*q^25 + 2*q^32 + q^34 - 2*q^36 + 2*q^49 - 2*q^50 -
        2*q^53 + 2*q^59 - 2*q^64 - q^68 + 2*q^81 - 2*q^83 - 2*q^89 + 2*q^94 - 
        2*q^98 - 2*q^101 + q^102 - 2*q^103 - q^119 + q^136 + O(q^142),
    q^20 - q^22 - q^23 + q^29 + q^31 - q^41 - q^44 + q^58 + q^62 - q^80 - q^85 +
        q^107 + q^113 - q^139 + O(q^142)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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:=
[
    q + q^9 - 2*q^29 - 2*q^41 + q^49 - 2*q^61 + q^81 - 2*q^89 + 2*q^101 + 
        2*q^109 + q^121 + 2*q^149 - q^169 + 2*q^181 + O(q^194),
    q^2 + q^18 - 2*q^58 - 2*q^82 + q^98 - 2*q^122 + q^162 - 2*q^178 + O(q^194)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^11 + q^19 - q^41 + q^49 - q^51 - 2*q^59 - q^81 - q^89 - 2*q^129 - 
        2*q^131 + q^139 + q^169 + q^179 + O(q^194),
    q^3 - q^17 - q^27 + q^33 - 2*q^43 + q^57 + q^67 - q^73 + q^83 + 2*q^97 + 
        q^107 - q^113 - q^123 - q^137 + q^147 + q^163 - 2*q^177 - q^187 - q^193 
        + O(q^194)
]
;
Bo:=
[
    q - q^11 - q^19 - q^41 + q^49 + q^51 + 2*q^59 - q^81 - q^89 - 2*q^129 + 
        2*q^131 - q^139 + q^169 - q^179 + O(q^194),
    q^2 - q^22 - q^38 - q^82 + q^98 + q^102 + 2*q^118 - q^162 - q^178 + 
        O(q^194),
    q^3 + q^17 - q^27 - q^33 - 2*q^43 - q^57 + q^67 + q^73 + q^83 - 2*q^97 + 
        q^107 + q^113 - q^123 + q^137 + q^147 + q^163 + 2*q^177 - q^187 + q^193 
        + O(q^194),
    q^4 + q^16 - q^24 - q^44 + q^64 - q^76 - q^96 - q^136 - q^164 - q^176 + 
        O(q^194),
    q^6 + q^34 - q^54 - q^66 - 2*q^86 - q^114 + q^134 + q^146 + q^166 + 
        O(q^194),
    q^8 - q^12 + q^32 - q^48 - q^68 - q^88 + q^108 + q^128 + q^132 - q^152 + 
        2*q^172 - q^192 + O(q^194)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
20
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (-a^7 + a^5 - a^3 + a)*q^5 - a^7*q^9 + (a^6 - a^3)*q^13 + (a^2 - a)*q^17
        + (-a^6 + a^4 - a^2 + 1)*q^25 + (a^6 - 2*a^4 + a^2 - 1)*q^29 + (a^5 + 
        a^4)*q^37 + (a^3 + a)*q^41 - a^6*q^45 - a^5*q^49 + (-a^5 - a^2)*q^53 + 
        (2*a^7 - a^5 + a^3 - a)*q^61 + (a^5 - a^2)*q^65 + (a^7 + a^4)*q^73 - 
        a^4*q^81 + (a - 1)*q^85 + (-a^6 - 1)*q^89 + (a^7 + a^6 - a^5 - a^4 + a^3
        + a^2 - a - 1)*q^97 + (-a^6 + a^4 + 1)*q^101 + (a^3 - a)*q^109 + (a^7 - 
        a^5 + a^3 - a - 1)*q^113 + (a^3 - 1)*q^117 + a^6*q^121 - a^7*q^125 + 
        (-a^6 - a^3)*q^137 + (a^7 - a^3)*q^145 + (a^7 - a^5 + a^3)*q^149 + (-a^7
        + a^6 + a^5 - a^4 - a^3 + a^2 + a - 1)*q^153 + (a^7 - a^6 + a^4 - a^2 + 
        1)*q^157 + (-a^7 + a^6 + a^5 - a^3 - a^2 + a)*q^169 + (-a + 1)*q^173 + 
        (-a^6 - a^2)*q^181 + (a^4 + a^3)*q^185 + (-a^4 + a)*q^193 + O(q^194)
]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
H.2 + H.3
;
eps:=m(eps_H);
EPS:=MinimalBaseRingCharacter(eps);
C<a>:=CyclotomicField(
40
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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(
20
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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(
40
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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(
20
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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(
20
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q + (-a^3 + a^2 - a + 1)*q^5 - a^2*q^9 + (a^3 - a)*q^13 + (a^2 + a)*q^17 - 
        a^3*q^25 + (-a^2 + a - 1)*q^29 + (a^3 - a^2 + a - 2)*q^37 + (a^3 + 
        a)*q^41 - a*q^45 - q^49 + (a^2 - 1)*q^53 + (-a^3 - a + 1)*q^61 + (a^2 - 
        1)*q^65 + (a^3 - 2*a^2 + a - 1)*q^73 + (a^3 - a^2 + a - 1)*q^81 + (a + 
        1)*q^85 + (-a + 1)*q^89 + (-2*a^3 + a^2 - a + 1)*q^97 + (-a^3 + 
        a^2)*q^101 + (a^3 + a)*q^109 + (-a^3 + a^2 - a + 2)*q^113 + (a^3 + 
        1)*q^117 - a*q^121 - a^2*q^125 + (a^3 - a)*q^137 + (a^3 - a^2)*q^145 + 
        (-a^3 + a^2 + 1)*q^149 + (-2*a^3 + a^2 - a + 1)*q^153 + (-a^3 - 
        a^2)*q^157 + (-a^3 + 2*a^2 - 2*a + 1)*q^169 + (a + 1)*q^173 + (a^2 - 
        a)*q^181 + (2*a^3 - a^2 + a - 1)*q^185 + (a^3 - a^2 + 2*a - 1)*q^193 + 
        O(q^194),
    q^2 + (-a^3 + a^2 - a + 1)*q^10 - a^2*q^18 + (a^3 - a)*q^26 + (a^2 + a)*q^34
        - a^3*q^50 + (-a^2 + a - 1)*q^58 + (a^3 - a^2 + a - 2)*q^74 + (a^3 + 
        a)*q^82 - a*q^90 - q^98 + (a^2 - 1)*q^106 + (-a^3 - a + 1)*q^122 + (a^2 
        - 1)*q^130 + (a^3 - 2*a^2 + a - 1)*q^146 + (a^3 - a^2 + a - 1)*q^162 + 
        (a + 1)*q^170 + (-a + 1)*q^178 + O(q^194)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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(
40
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + (a^3 - a^2 + a - 1)*q^5 + (-a^3 + 1)*q^13 + (a^3 + a)*q^21 - a^3*q^25 + 
        (-a^3 + a^2 - a)*q^29 + (-a^3 + a^2 - a + 1)*q^37 + (a^3 - a^2 - 1)*q^49
        - a^2*q^53 + (-a^3 + a^2)*q^57 - a*q^61 + (a^3 + a - 1)*q^65 + a^3*q^69 
        - a*q^73 + a^3*q^81 - q^93 + (a^3 + a)*q^97 - q^101 + (-a^2 - 1)*q^105 +
        (-a^2 + a)*q^113 + a^2*q^121 + a^2*q^125 + (-a^3 + a^2 - a)*q^129 + 
        a^3*q^133 + (-a^3 + a^2 - a + 1)*q^137 + (-a^3 + 1)*q^141 + (a^2 - a + 
        1)*q^145 + q^149 - q^157 + (-a^2 - 1)*q^161 + (-a^3 - a + 1)*q^169 + 
        a*q^173 + (-a^2 + a - 1)*q^177 + a^3*q^185 + (-a^2 - 1)*q^189 + 
        O(q^194),
    q^3 + (a^3 + a - 1)*q^7 + (a^3 - a^2 + a - 1)*q^15 + (a^2 - a + 1)*q^19 + 
        (a^3 - a^2 + a - 1)*q^23 + (a^3 - a^2 + a - 1)*q^27 - a*q^31 + (-a^3 - 
        a)*q^35 + (-a^3 + 1)*q^39 + (-a + 1)*q^43 + (-a^3 + a^2 + 1)*q^47 + 
        (-a^3 + a^2 - a)*q^59 + (a^3 - a^2 - 1)*q^71 - a^3*q^75 + (-a^3 + 
        a^2)*q^79 + a*q^83 + (-a^3 + a^2 - a)*q^87 + (a^3 + a^2 + a)*q^91 + (a^3
        - a^2)*q^95 + (-a^3 + a^2)*q^103 - a^3*q^107 + (-a^3 + a^2 - a + 
        1)*q^111 - a^3*q^115 + (-a^2 - 1)*q^131 - a^3*q^135 + (a^3 - a^2 + a - 
        1)*q^139 + (a^3 - a^2 - 1)*q^147 + (-a + 1)*q^151 + q^155 - a^2*q^159 + 
        a^2*q^163 + (a^2 - a + 1)*q^167 + (a^2 + 1)*q^175 - q^179 - a*q^183 + 
        O(q^194)
]
;
Bo:=
[
    q - a^3*q^5 + (a^3 - a^2 + a - 1)*q^9 + (a^2 - a)*q^13 + (a^3 + a - 1)*q^17 
        - a*q^25 + (-a^3 - a)*q^29 + (-a^3 + 1)*q^37 + (a^2 - a)*q^41 + a^2*q^45
        + q^49 + (a^3 - a^2 + a)*q^53 + (-a^2 + a - 1)*q^61 + (a^3 - a^2 + 
        a)*q^65 + (-a^2 + a - 1)*q^73 - a^3*q^81 + (a^2 + 1)*q^85 + (a^2 + 
        1)*q^89 + (-a^3 - a)*q^97 + (a^3 - a^2 - 1)*q^101 + (a^2 - a)*q^109 + 
        (-a^3 + 1)*q^113 + (-a + 1)*q^117 + a^2*q^121 + (a^3 - a^2 + a - 
        1)*q^125 + (a^2 - a)*q^137 + (a^3 - a^2 - 1)*q^145 + (-a^3 + a^2)*q^149 
        + (-a^3 - a)*q^153 + (a^3 - a^2 - 1)*q^157 + (a - 1)*q^169 + (a^2 + 
        1)*q^173 + (a^3 + a - 1)*q^181 + (-a^3 - a)*q^185 + (-a^3 + a^2)*q^193 +
        O(q^194),
    q^2 - a^3*q^10 + (a^3 - a^2 + a - 1)*q^18 + (a^2 - a)*q^26 + (a^3 + a - 
        1)*q^34 - a*q^50 + (-a^3 - a)*q^58 + (-a^3 + 1)*q^74 + (a^2 - a)*q^82 + 
        a^2*q^90 + q^98 + (a^3 - a^2 + a)*q^106 + (-a^2 + a - 1)*q^122 + (a^3 - 
        a^2 + a)*q^130 + (-a^2 + a - 1)*q^146 - a^3*q^162 + (a^2 + 1)*q^170 + 
        (a^2 + 1)*q^178 + O(q^194),
    q^4 - a^3*q^20 + (a^3 - a^2 + a - 1)*q^36 + (a^2 - a)*q^52 + (a^3 + a - 
        1)*q^68 - a*q^100 + (-a^3 - a)*q^116 + (-a^3 + 1)*q^148 + (a^2 - 
        a)*q^164 + a^2*q^180 + O(q^194),
    q^8 - a*q^16 + a^2*q^32 - a^3*q^40 - a^3*q^64 + (a^3 - a^2 + a - 1)*q^72 + 
        (a^3 - a^2 + a - 1)*q^80 + (a^2 - a)*q^104 + (a^3 - a^2 + a - 1)*q^128 +
        (a^3 + a - 1)*q^136 + q^144 + q^160 + O(q^194)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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(
40
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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(
10
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + 1/2*(-a + 1)*q^13 + 1/2*(a + 1)*q^17 - q^21 + a*q^29 + 1/2*(-a - 1)*q^37
        + 1/2*(a - 1)*q^53 - a*q^69 + 1/2*(a - 1)*q^73 - a*q^89 + 1/2*(-a - 
        1)*q^97 - a*q^109 + 1/2*(-a + 1)*q^113 + 1/2*(a + 1)*q^117 - q^121 + 
        a*q^129 + 1/2*(-a - 1)*q^137 + q^141 + a*q^149 + 1/2*(a - 1)*q^153 + 
        1/2*(a + 1)*q^157 - q^161 + 1/2*(a - 1)*q^173 + 1/2*(-a + 1)*q^193 + 
        O(q^194),
    q^3 - a*q^7 + q^23 - q^43 + a*q^47 - q^63 - a*q^67 - q^83 + 2*a*q^87 - q^103
        + a*q^107 - a*q^127 + a*q^147 - q^163 - a*q^167 + O(q^194),
    q^9 + 1/2*(-a - 1)*q^13 + 1/2*(-a + 1)*q^17 - a*q^21 - q^29 + 1/2*(a - 
        1)*q^37 - q^49 + 1/2*(a + 1)*q^53 + q^69 + 1/2*(a + 1)*q^73 + a*q^81 + 
        q^89 + 1/2*(a - 1)*q^97 + 2*a*q^101 - q^109 + 1/2*(-a - 1)*q^113 + 
        1/2*(-a + 1)*q^117 - q^129 + 1/2*(a - 1)*q^137 + a*q^141 + q^149 + 
        1/2*(a + 1)*q^153 + 1/2*(-a + 1)*q^157 - a*q^161 - q^169 + 1/2*(a + 
        1)*q^173 - 2*a*q^181 + 1/2*(-a - 1)*q^193 + O(q^194)
]
;
Bo:=
[
    q + a*q^9 + (a - 1)*q^13 + (-a - 1)*q^17 + (a + 1)*q^37 - a*q^49 + (-a + 
        1)*q^53 + (-a + 1)*q^73 - q^81 + (a + 1)*q^97 - 2*q^101 - 2*a*q^109 + (a
        - 1)*q^113 + (-a - 1)*q^117 - q^121 + (a + 1)*q^137 + 2*a*q^149 + (-a + 
        1)*q^153 + (-a - 1)*q^157 - a*q^169 + (-a + 1)*q^173 + 2*q^181 + (a - 
        1)*q^193 + O(q^194),
    q^5 - a*q^25 + a*q^45 + (a - 1)*q^65 + (-a - 1)*q^85 - q^125 + (a + 1)*q^185
        + O(q^194)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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(
8
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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(
4
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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(
8
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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(
4
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
H,m:=AbelianGroup(G);
m_inv:=m^-1;
eps_H:=
6*H.2 + 5*H.3
;
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(
800
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[
    q - q^9 + 2*q^29 - 2*q^41 - q^49 - 2*q^61 + q^81 + 2*q^89 + 2*q^101 - 
        2*q^109 + q^121 - 2*q^149 + q^169 + 2*q^181 + O(q^194),
    q^2 - q^18 + 2*q^58 - 2*q^82 - q^98 - 2*q^122 + q^162 + 2*q^178 + O(q^194),
    q^5 - q^25 - q^45 + q^125 + 2*q^145 + O(q^194),
    q^10 - q^50 - q^90 + O(q^194)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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(
8
);
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[]
;
Bo:=
[]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
G:=FullDirichletGroup(
800
);
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:=Rationals();
qprec:=
194
;
Cq<q>:=PowerSeriesRing(C,qprec);
Bn:=
[
    q + q^11 - q^19 - q^41 - q^49 - q^51 + 2*q^59 - q^81 + q^89 + 2*q^129 - 
        2*q^131 - q^139 - q^169 - q^179 + O(q^194),
    q^3 + q^17 + q^27 + q^33 - 2*q^43 - q^57 - q^67 - q^73 + q^83 - 2*q^97 - 
        q^107 - q^113 - q^123 + q^137 - q^147 + q^163 + 2*q^177 + q^187 - q^193 
        + O(q^194)
]
;
Bo:=
[
    q - q^11 + q^19 - q^41 - q^49 + q^51 - 2*q^59 - q^81 + q^89 + 2*q^129 + 
        2*q^131 + q^139 - q^169 + q^179 + O(q^194),
    q^2 - q^22 + q^38 - q^82 - q^98 + q^102 - 2*q^118 - q^162 + q^178 + 
        O(q^194),
    q^3 - q^17 + q^27 - q^33 - 2*q^43 + q^57 - q^67 + q^73 + q^83 + 2*q^97 - 
        q^107 + q^113 - q^123 - q^137 - q^147 + q^163 - 2*q^177 + q^187 + q^193 
        + O(q^194),
    q^4 - q^16 - q^24 - q^44 + q^64 + q^76 + q^96 + q^136 - q^164 + q^176 + 
        O(q^194),
    q^6 - q^34 + q^54 - q^66 - 2*q^86 + q^114 - q^134 + q^146 + q^166 + 
        O(q^194),
    q^8 + q^12 - q^32 - q^48 - q^68 - q^88 + q^108 + q^128 - q^132 + q^152 - 
        2*q^172 + q^192 + O(q^194)
]
;
Append(~basis_list,[*eps,EPS,Bn,Bo*]);
