LogTo("t-groups.log");
RequirePackage("carat");
names := [];
GROUPS := [];
R := CaratReadBravaisFile("ordnung.192/(1)^2(2)^2(4)^8/group.3831");
P1 := Group(R.generators);
Append(names,["ordnung.192/(1)^2(2)^2(4)^8/words.group.3831"]);
Append(GROUPS,[P1]);
R := CaratReadBravaisFile("ordnung.192/(1)^4(2)^2(4)^4(8)^2/group.3832");
P2 := Group(R.generators);
Append(names,["ordnung.192/(1)^4(2)^2(4)^4(8)^2/words.group.3832"]);
Append(GROUPS,[P2]);
R := CaratReadBravaisFile("ordnung.192/(1)^4(2)^2(4)^6/group.3833");
P3 := Group(R.generators);
Append(names,["ordnung.192/(1)^4(2)^2(4)^6/words.group.3833"]);
Append(GROUPS,[P3]);
R := CaratReadBravaisFile("ordnung.192/(1)^4(2)^2(4)^6/group.3834");
P4 := Group(R.generators);
Append(names,["ordnung.192/(1)^4(2)^2(4)^6/words.group.3834"]);
Append(GROUPS,[P4]);
R := CaratReadBravaisFile("ordnung.192/(1)^4(2)^2(4)^6/group.3835");
P5 := Group(R.generators);
Append(names,["ordnung.192/(1)^4(2)^2(4)^6/words.group.3835"]);
Append(GROUPS,[P5]);
R := CaratReadBravaisFile("ordnung.192/(1)^4(2)^2(4)^6/group.3836");
P6 := Group(R.generators);
Append(names,["ordnung.192/(1)^4(2)^2(4)^6/words.group.3836"]);
Append(GROUPS,[P6]);
R := CaratReadBravaisFile("ordnung.192/(1)^4(2)^2(4)^6/group.3837");
P7 := Group(R.generators);
Append(names,["ordnung.192/(1)^4(2)^2(4)^6/words.group.3837"]);
Append(GROUPS,[P7]);
R := CaratReadBravaisFile("ordnung.192/(1)^4(2)^2(4)^6/group.3838");
P8 := Group(R.generators);
Append(names,["ordnung.192/(1)^4(2)^2(4)^6/words.group.3838"]);
Append(GROUPS,[P8]);
R := CaratReadBravaisFile("ordnung.192/(1)^4(2)^2(4)^6/group.3839");
P9 := Group(R.generators);
Append(names,["ordnung.192/(1)^4(2)^2(4)^6/words.group.3839"]);
Append(GROUPS,[P9]);
R := CaratReadBravaisFile("ordnung.192/(1)^4(2)^2(4)^6/group.3840");
P10 := Group(R.generators);
Append(names,["ordnung.192/(1)^4(2)^2(4)^6/words.group.3840"]);
Append(GROUPS,[P10]);
R := CaratReadBravaisFile("ordnung.192/(1)^4(2)^2(4)^6/group.3841");
P11 := Group(R.generators);
Append(names,["ordnung.192/(1)^4(2)^2(4)^6/words.group.3841"]);
Append(GROUPS,[P11]);
R := CaratReadBravaisFile("ordnung.192/(1)^4(2)^2(4)^6/group.3842");
P12 := Group(R.generators);
Append(names,["ordnung.192/(1)^4(2)^2(4)^6/words.group.3842"]);
Append(GROUPS,[P12]);
R := CaratReadBravaisFile("ordnung.192/(1)^4(2)^2(4)^6/group.3843");
P13 := Group(R.generators);
Append(names,["ordnung.192/(1)^4(2)^2(4)^6/words.group.3843"]);
Append(GROUPS,[P13]);
R := CaratReadBravaisFile("ordnung.192/(1)^4(4)^8/group.3844");
P14 := Group(R.generators);
Append(names,["ordnung.192/(1)^4(4)^8/words.group.3844"]);
Append(GROUPS,[P14]);
R := CaratReadBravaisFile("ordnung.384/(1)^4(2)^2(4)^6/group.3845");
P15 := Group(R.generators);
Append(names,["ordnung.384/(1)^4(2)^2(4)^6/words.group.3845"]);
Append(GROUPS,[P15]);
R := CaratReadBravaisFile("ordnung.48/(1)^2(2)^2(4)^6(8)^2/min.440");
P16 := Group(R.generators);
Append(names,["ordnung.48/(1)^2(2)^2(4)^6(8)^2/words.min.440"]);
Append(GROUPS,[P16]);
R := CaratReadBravaisFile("ordnung.48/(1)^2(2)^2(4)^6(8)^2/min.441");
P17 := Group(R.generators);
Append(names,["ordnung.48/(1)^2(2)^2(4)^6(8)^2/words.min.441"]);
Append(GROUPS,[P17]);
R := CaratReadBravaisFile("ordnung.48/(1)^2(2)^2(4)^6(8)^2/min.442");
P18 := Group(R.generators);
Append(names,["ordnung.48/(1)^2(2)^2(4)^6(8)^2/words.min.442"]);
Append(GROUPS,[P18]);
R := CaratReadBravaisFile("ordnung.48/(1)^2(4)^10/min.443");
P19 := Group(R.generators);
Append(names,["ordnung.48/(1)^2(4)^10/words.min.443"]);
Append(GROUPS,[P19]);
R := CaratReadBravaisFile("ordnung.48/(1)^2(4)^10/min.444");
P20 := Group(R.generators);
Append(names,["ordnung.48/(1)^2(4)^10/words.min.444"]);
Append(GROUPS,[P20]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^2/min.445");
P21 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^2/words.min.445"]);
Append(GROUPS,[P21]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^2/min.446");
P22 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^2/words.min.446"]);
Append(GROUPS,[P22]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^2/min.447");
P23 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^2/words.min.447"]);
Append(GROUPS,[P23]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^2/min.448");
P24 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^2/words.min.448"]);
Append(GROUPS,[P24]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^2/min.449");
P25 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^2/words.min.449"]);
Append(GROUPS,[P25]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^2/min.450");
P26 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^2/words.min.450"]);
Append(GROUPS,[P26]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^2/min.451");
P27 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^2/words.min.451"]);
Append(GROUPS,[P27]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(4)^8/min.452");
P28 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(4)^8/words.min.452"]);
Append(GROUPS,[P28]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(4)^8/min.453");
P29 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(4)^8/words.min.453"]);
Append(GROUPS,[P29]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(4)^8/min.454");
P30 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(4)^8/words.min.454"]);
Append(GROUPS,[P30]);
R := CaratReadBravaisFile("ordnung.96/(1)^2(2)^2(4)^6(8)^2/group.3846");
P31 := Group(R.generators);
Append(names,["ordnung.96/(1)^2(2)^2(4)^6(8)^2/words.group.3846"]);
Append(GROUPS,[P31]);
R := CaratReadBravaisFile("ordnung.96/(1)^2(2)^2(4)^8/group.3847");
P32 := Group(R.generators);
Append(names,["ordnung.96/(1)^2(2)^2(4)^8/words.group.3847"]);
Append(GROUPS,[P32]);
R := CaratReadBravaisFile("ordnung.96/(1)^2(2)^2(4)^8/group.3848");
P33 := Group(R.generators);
Append(names,["ordnung.96/(1)^2(2)^2(4)^8/words.group.3848"]);
Append(GROUPS,[P33]);
R := CaratReadBravaisFile("ordnung.96/(1)^2(2)^2(4)^8/group.3849");
P34 := Group(R.generators);
Append(names,["ordnung.96/(1)^2(2)^2(4)^8/words.group.3849"]);
Append(GROUPS,[P34]);
R := CaratReadBravaisFile("ordnung.96/(1)^2(2)^2(4)^8/group.3850");
P35 := Group(R.generators);
Append(names,["ordnung.96/(1)^2(2)^2(4)^8/words.group.3850"]);
Append(GROUPS,[P35]);
R := CaratReadBravaisFile("ordnung.96/(1)^2(4)^10/group.3851");
P36 := Group(R.generators);
Append(names,["ordnung.96/(1)^2(4)^10/words.group.3851"]);
Append(GROUPS,[P36]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^2/group.3852");
P37 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^2/words.group.3852"]);
Append(GROUPS,[P37]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^2/group.3853");
P38 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^2/words.group.3853"]);
Append(GROUPS,[P38]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^2/group.3854");
P39 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^2/words.group.3854"]);
Append(GROUPS,[P39]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^2/group.3855");
P40 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^2/words.group.3855"]);
Append(GROUPS,[P40]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^2/group.3856");
P41 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^2/words.group.3856"]);
Append(GROUPS,[P41]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^2/group.3857");
P42 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^2/words.group.3857"]);
Append(GROUPS,[P42]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^2/group.3858");
P43 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^2/words.group.3858"]);
Append(GROUPS,[P43]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^2/group.3859");
P44 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^2/words.group.3859"]);
Append(GROUPS,[P44]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^6/group.3860");
P45 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^6/words.group.3860"]);
Append(GROUPS,[P45]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^6/group.3861");
P46 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^6/words.group.3861"]);
Append(GROUPS,[P46]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^6/group.3862");
P47 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^6/words.group.3862"]);
Append(GROUPS,[P47]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^6/group.3863");
P48 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^6/words.group.3863"]);
Append(GROUPS,[P48]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^6/group.3864");
P49 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^6/words.group.3864"]);
Append(GROUPS,[P49]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^6/group.3865");
P50 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^6/words.group.3865"]);
Append(GROUPS,[P50]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^6/group.3866");
P51 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^6/words.group.3866"]);
Append(GROUPS,[P51]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^6/group.3867");
P52 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^6/words.group.3867"]);
Append(GROUPS,[P52]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^6/group.3868");
P53 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^6/words.group.3868"]);
Append(GROUPS,[P53]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^6/group.3869");
P54 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^6/words.group.3869"]);
Append(GROUPS,[P54]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^6/group.3870");
P55 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^6/words.group.3870"]);
Append(GROUPS,[P55]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^6/group.3871");
P56 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^6/words.group.3871"]);
Append(GROUPS,[P56]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^6/group.3872");
P57 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^6/words.group.3872"]);
Append(GROUPS,[P57]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^6/group.3873");
P58 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^6/words.group.3873"]);
Append(GROUPS,[P58]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^6/group.3874");
P59 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^6/words.group.3874"]);
Append(GROUPS,[P59]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^6/group.3875");
P60 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^6/words.group.3875"]);
Append(GROUPS,[P60]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(4)^8/group.3876");
P61 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(4)^8/words.group.3876"]);
Append(GROUPS,[P61]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(4)^8/group.3877");
P62 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(4)^8/words.group.3877"]);
Append(GROUPS,[P62]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(4)^8/group.3878");
P63 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(4)^8/words.group.3878"]);
Append(GROUPS,[P63]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(4)^8/group.3879");
P64 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(4)^8/words.group.3879"]);
Append(GROUPS,[P64]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(4)^8/group.3880");
P65 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(4)^8/words.group.3880"]);
Append(GROUPS,[P65]);
Print(GROUPS,"\n");
Print(names,"\n");
Size(GROUPS);
Size(names);
Read("../../TGROUPS.GAP");
for i in [1..Size(GROUPS)] do
   SubgroupWords(GROUPS[i], names[i]);
od;
LogTo();
