LogTo("t-groups.log");
RequirePackage("carat");
names := [];
GROUPS := [];
R := CaratReadBravaisFile("ordnung.12/(1)^2(4)^1(12)^3/min.562");
P1 := Group(R.generators);
Append(names,["ordnung.12/(1)^2(4)^1(12)^3/words.min.562"]);
Append(GROUPS,[P1]);
R := CaratReadBravaisFile("ordnung.12/(1)^2(4)^1(12)^3/min.563");
P2 := Group(R.generators);
Append(names,["ordnung.12/(1)^2(4)^1(12)^3/words.min.563"]);
Append(GROUPS,[P2]);
R := CaratReadBravaisFile("ordnung.144/(1)^2(2)^3(6)^5/group.5885");
P3 := Group(R.generators);
Append(names,["ordnung.144/(1)^2(2)^3(6)^5/words.group.5885"]);
Append(GROUPS,[P3]);
R := CaratReadBravaisFile("ordnung.144/(1)^4(2)^2(6)^6/group.5886");
P4 := Group(R.generators);
Append(names,["ordnung.144/(1)^4(2)^2(6)^6/words.group.5886"]);
Append(GROUPS,[P4]);
R := CaratReadBravaisFile("ordnung.144/(1)^4(2)^2(6)^6/group.5887");
P5 := Group(R.generators);
Append(names,["ordnung.144/(1)^4(2)^2(6)^6/words.group.5887"]);
Append(GROUPS,[P5]);
R := CaratReadBravaisFile("ordnung.144/(1)^4(2)^2(6)^6/group.5888");
P6 := Group(R.generators);
Append(names,["ordnung.144/(1)^4(2)^2(6)^6/words.group.5888"]);
Append(GROUPS,[P6]);
R := CaratReadBravaisFile("ordnung.144/(1)^4(2)^2(6)^6/group.5889");
P7 := Group(R.generators);
Append(names,["ordnung.144/(1)^4(2)^2(6)^6/words.group.5889"]);
Append(GROUPS,[P7]);
R := CaratReadBravaisFile("ordnung.144/(1)^4(2)^2(6)^6/group.5890");
P8 := Group(R.generators);
Append(names,["ordnung.144/(1)^4(2)^2(6)^6/words.group.5890"]);
Append(GROUPS,[P8]);
R := CaratReadBravaisFile("ordnung.144/(1)^4(6)^4/group.5891");
P9 := Group(R.generators);
Append(names,["ordnung.144/(1)^4(6)^4/words.group.5891"]);
Append(GROUPS,[P9]);
R := CaratReadBravaisFile("ordnung.24/(1)^2(4)^1(12)^3/group.5892");
P10 := Group(R.generators);
Append(names,["ordnung.24/(1)^2(4)^1(12)^3/words.group.5892"]);
Append(GROUPS,[P10]);
R := CaratReadBravaisFile("ordnung.24/(1)^4(4)^2(12)^6/group.5893");
P11 := Group(R.generators);
Append(names,["ordnung.24/(1)^4(4)^2(12)^6/words.group.5893"]);
Append(GROUPS,[P11]);
R := CaratReadBravaisFile("ordnung.24/(1)^4(4)^2(12)^6/group.5894");
P12 := Group(R.generators);
Append(names,["ordnung.24/(1)^4(4)^2(12)^6/words.group.5894"]);
Append(GROUPS,[P12]);
R := CaratReadBravaisFile("ordnung.288/(1)^4(2)^2(6)^6/group.5895");
P13 := Group(R.generators);
Append(names,["ordnung.288/(1)^4(2)^2(6)^6/words.group.5895"]);
Append(GROUPS,[P13]);
R := CaratReadBravaisFile("ordnung.36/(1)^2(2)^1(6)^3/group.5896");
P14 := Group(R.generators);
Append(names,["ordnung.36/(1)^2(2)^1(6)^3/words.group.5896"]);
Append(GROUPS,[P14]);
R := CaratReadBravaisFile("ordnung.36/(1)^2(2)^1(6)^3/group.5897");
P15 := Group(R.generators);
Append(names,["ordnung.36/(1)^2(2)^1(6)^3/words.group.5897"]);
Append(GROUPS,[P15]);
R := CaratReadBravaisFile("ordnung.36/(1)^4(6)^4/min.564");
P16 := Group(R.generators);
Append(names,["ordnung.36/(1)^4(6)^4/words.min.564"]);
Append(GROUPS,[P16]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(4)^2(12)^6/group.5898");
P17 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(4)^2(12)^6/words.group.5898"]);
Append(GROUPS,[P17]);
R := CaratReadBravaisFile("ordnung.72/(1)^2(2)^1(6)^3/group.5899");
P18 := Group(R.generators);
Append(names,["ordnung.72/(1)^2(2)^1(6)^3/words.group.5899"]);
Append(GROUPS,[P18]);
R := CaratReadBravaisFile("ordnung.72/(1)^2(2)^3(6)^5/group.5900");
P19 := Group(R.generators);
Append(names,["ordnung.72/(1)^2(2)^3(6)^5/words.group.5900"]);
Append(GROUPS,[P19]);
R := CaratReadBravaisFile("ordnung.72/(1)^2(2)^3(6)^5/group.5901");
P20 := Group(R.generators);
Append(names,["ordnung.72/(1)^2(2)^3(6)^5/words.group.5901"]);
Append(GROUPS,[P20]);
R := CaratReadBravaisFile("ordnung.72/(1)^2(2)^3(6)^5/group.5902");
P21 := Group(R.generators);
Append(names,["ordnung.72/(1)^2(2)^3(6)^5/words.group.5902"]);
Append(GROUPS,[P21]);
R := CaratReadBravaisFile("ordnung.72/(1)^4(2)^2(6)^6/group.5903");
P22 := Group(R.generators);
Append(names,["ordnung.72/(1)^4(2)^2(6)^6/words.group.5903"]);
Append(GROUPS,[P22]);
R := CaratReadBravaisFile("ordnung.72/(1)^4(2)^2(6)^6/group.5904");
P23 := Group(R.generators);
Append(names,["ordnung.72/(1)^4(2)^2(6)^6/words.group.5904"]);
Append(GROUPS,[P23]);
R := CaratReadBravaisFile("ordnung.72/(1)^4(2)^2(6)^6/group.5905");
P24 := Group(R.generators);
Append(names,["ordnung.72/(1)^4(2)^2(6)^6/words.group.5905"]);
Append(GROUPS,[P24]);
R := CaratReadBravaisFile("ordnung.72/(1)^4(2)^2(6)^6/group.5906");
P25 := Group(R.generators);
Append(names,["ordnung.72/(1)^4(2)^2(6)^6/words.group.5906"]);
Append(GROUPS,[P25]);
R := CaratReadBravaisFile("ordnung.72/(1)^4(6)^4/group.5907");
P26 := Group(R.generators);
Append(names,["ordnung.72/(1)^4(6)^4/words.group.5907"]);
Append(GROUPS,[P26]);
R := CaratReadBravaisFile("ordnung.72/(1)^4(6)^4/group.5908");
P27 := Group(R.generators);
Append(names,["ordnung.72/(1)^4(6)^4/words.group.5908"]);
Append(GROUPS,[P27]);
R := CaratReadBravaisFile("ordnung.72/(1)^4(6)^4/group.5909");
P28 := Group(R.generators);
Append(names,["ordnung.72/(1)^4(6)^4/words.group.5909"]);
Append(GROUPS,[P28]);
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();
