"Source: Text/Geometry/RieSrf.text";
"Line: 704";
"Date: Mon May 29 16:22:24 2023";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/RieSrf.text, line: 704
// Example: H124E8 ()
print "Example: H124E8";
ei := GetEchoInput();
SetEchoInput(true);
p<x> := BernoulliPolynomial(8);
p;
X := RiemannSurface(BernoulliPolynomial(8),8);
Genus(X);
HolomorphicDifferentials(X);
Genus(X) eq #HolomorphicDifferentials(X);
assert $1;
SetEchoInput(ei);
