LogTo("t-groups.log");
RequirePackage("carat");
names := [];
GROUPS := [];
R := CaratReadBravaisFile("ordnung.12/(2)^4(6)^2/min.303");
P1 := Group(R.generators);
Append(names,["ordnung.12/(2)^4(6)^2/words.min.303"]);
Append(GROUPS,[P1]);
R := CaratReadBravaisFile("ordnung.24/(2)^4(6)^2/group.1655");
P2 := Group(R.generators);
Append(names,["ordnung.24/(2)^4(6)^2/words.group.1655"]);
Append(GROUPS,[P2]);
R := CaratReadBravaisFile("ordnung.24/(2)^4(6)^2/group.1656");
P3 := Group(R.generators);
Append(names,["ordnung.24/(2)^4(6)^2/words.group.1656"]);
Append(GROUPS,[P3]);
R := CaratReadBravaisFile("ordnung.24/(2)^4(6)^2/group.1657");
P4 := Group(R.generators);
Append(names,["ordnung.24/(2)^4(6)^2/words.group.1657"]);
Append(GROUPS,[P4]);
R := CaratReadBravaisFile("ordnung.24/(2)^6(6)^2/group.1658");
P5 := Group(R.generators);
Append(names,["ordnung.24/(2)^6(6)^2/words.group.1658"]);
Append(GROUPS,[P5]);
R := CaratReadBravaisFile("ordnung.24/(2)^6(6)^2/group.1659");
P6 := Group(R.generators);
Append(names,["ordnung.24/(2)^6(6)^2/words.group.1659"]);
Append(GROUPS,[P6]);
R := CaratReadBravaisFile("ordnung.24/(2)^6(6)^2/min.304");
P7 := Group(R.generators);
Append(names,["ordnung.24/(2)^6(6)^2/words.min.304"]);
Append(GROUPS,[P7]);
R := CaratReadBravaisFile("ordnung.24/(2)^6(6)^2/min.305");
P8 := Group(R.generators);
Append(names,["ordnung.24/(2)^6(6)^2/words.min.305"]);
Append(GROUPS,[P8]);
R := CaratReadBravaisFile("ordnung.48/(2)^4(6)^2/group.1660");
P9 := Group(R.generators);
Append(names,["ordnung.48/(2)^4(6)^2/words.group.1660"]);
Append(GROUPS,[P9]);
R := CaratReadBravaisFile("ordnung.48/(2)^6(6)^2/group.1661");
P10 := Group(R.generators);
Append(names,["ordnung.48/(2)^6(6)^2/words.group.1661"]);
Append(GROUPS,[P10]);
R := CaratReadBravaisFile("ordnung.48/(2)^6(6)^2/group.1662");
P11 := Group(R.generators);
Append(names,["ordnung.48/(2)^6(6)^2/words.group.1662"]);
Append(GROUPS,[P11]);
R := CaratReadBravaisFile("ordnung.48/(2)^6(6)^2/group.1663");
P12 := Group(R.generators);
Append(names,["ordnung.48/(2)^6(6)^2/words.group.1663"]);
Append(GROUPS,[P12]);
R := CaratReadBravaisFile("ordnung.48/(2)^6(6)^2/group.1664");
P13 := Group(R.generators);
Append(names,["ordnung.48/(2)^6(6)^2/words.group.1664"]);
Append(GROUPS,[P13]);
R := CaratReadBravaisFile("ordnung.48/(2)^6(6)^2/group.1665");
P14 := Group(R.generators);
Append(names,["ordnung.48/(2)^6(6)^2/words.group.1665"]);
Append(GROUPS,[P14]);
R := CaratReadBravaisFile("ordnung.96/(2)^6(6)^2/group.1666");
P15 := Group(R.generators);
Append(names,["ordnung.96/(2)^6(6)^2/words.group.1666"]);
Append(GROUPS,[P15]);
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();
