"Source: Text/Group/GrpPerm.text";
"Line: 6422";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Group/GrpPerm.text, line: 6422
// Example: H65E34 ()
print "Example: H65E34";
ei := GetEchoInput();
SetEchoInput(true);
G := PermutationGroup< 16 |
        (1, 8, 11, 3, 6, 14, 15, 10)(2, 7, 12, 4, 5, 13, 16, 9),
        (1, 2)(3, 16, 9, 14, 8, 12)(4, 15, 10, 13, 7, 11),
        (1, 13, 12, 16)(2, 14, 11, 15)(7, 9)(8, 10) >;
Radical(G); 
RadicalQuotient(G);            
ElementaryAbelianSeries(G);                                                 
SetEchoInput(ei);
