"Source: Text/Geometry/GrpPSL2.text";
"Line: 58";
"Date: Tue Jun  7 22:27:14 2016";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/GrpPSL2.text, line: 58
// Example: H142E1 ()
print "Example: H142E1";
ei := GetEchoInput();
SetEchoInput(true);
G := CongruenceSubgroup(0,35);
G;
Generators(G);
C := CosetRepresentatives(G);
H := UpperHalfPlaneWithCusps();
triangle := [H|Infinity(),H.1,H.2];
triangle_translates := [g*triangle : g in C];
FD := FundamentalDomain(G);
// Print a FD in a reasonable format:
&cat[Sprintf(" %o ",c) : c in FD];
SetEchoInput(ei);
