LogTo("t-groups.log");
RequirePackage("carat");
names := [];
GROUPS := [];
R := CaratReadBravaisFile("ordnung.1280/(1)^16(2)^2(4)^8/group.7343");
P1 := Group(R.generators);
Append(names,["ordnung.1280/(1)^16(2)^2(4)^8/words.group.7343"]);
Append(GROUPS,[P1]);
R := CaratReadBravaisFile("ordnung.160/(1)^4(2)^1(4)^20(8)^1/group.7344");
P2 := Group(R.generators);
Append(names,["ordnung.160/(1)^4(2)^1(4)^20(8)^1/words.group.7344"]);
Append(GROUPS,[P2]);
R := CaratReadBravaisFile("ordnung.160/(1)^4(2)^2(4)^20/group.7345");
P3 := Group(R.generators);
Append(names,["ordnung.160/(1)^4(2)^2(4)^20/words.group.7345"]);
Append(GROUPS,[P3]);
R := CaratReadBravaisFile("ordnung.160/(1)^4(2)^2(4)^20/group.7346");
P4 := Group(R.generators);
Append(names,["ordnung.160/(1)^4(2)^2(4)^20/words.group.7346"]);
Append(GROUPS,[P4]);
R := CaratReadBravaisFile("ordnung.160/(1)^8(2)^1(4)^16(8)^1/group.7347");
P5 := Group(R.generators);
Append(names,["ordnung.160/(1)^8(2)^1(4)^16(8)^1/words.group.7347"]);
Append(GROUPS,[P5]);
R := CaratReadBravaisFile("ordnung.160/(1)^8(2)^1(4)^16(8)^1/group.7348");
P6 := Group(R.generators);
Append(names,["ordnung.160/(1)^8(2)^1(4)^16(8)^1/words.group.7348"]);
Append(GROUPS,[P6]);
R := CaratReadBravaisFile("ordnung.160/(1)^8(2)^2(4)^16/group.7349");
P7 := Group(R.generators);
Append(names,["ordnung.160/(1)^8(2)^2(4)^16/words.group.7349"]);
Append(GROUPS,[P7]);
R := CaratReadBravaisFile("ordnung.160/(1)^8(2)^2(4)^16/group.7350");
P8 := Group(R.generators);
Append(names,["ordnung.160/(1)^8(2)^2(4)^16/words.group.7350"]);
Append(GROUPS,[P8]);
R := CaratReadBravaisFile("ordnung.1920/(1)^16(2)^1(4)^8(8)^1/group.7351");
P9 := Group(R.generators);
Append(names,["ordnung.1920/(1)^16(2)^1(4)^8(8)^1/words.group.7351"]);
Append(GROUPS,[P9]);
R := CaratReadBravaisFile("ordnung.1920/(1)^16(2)^1(4)^8(8)^1/group.7352");
P10 := Group(R.generators);
Append(names,["ordnung.1920/(1)^16(2)^1(4)^8(8)^1/words.group.7352"]);
Append(GROUPS,[P10]);
R := CaratReadBravaisFile("ordnung.1920/(1)^16(2)^1(4)^8(8)^1/group.7353");
P11 := Group(R.generators);
Append(names,["ordnung.1920/(1)^16(2)^1(4)^8(8)^1/words.group.7353"]);
Append(GROUPS,[P11]);
R := CaratReadBravaisFile("ordnung.1920/(1)^16(2)^2(4)^8/group.7354");
P12 := Group(R.generators);
Append(names,["ordnung.1920/(1)^16(2)^2(4)^8/words.group.7354"]);
Append(GROUPS,[P12]);
R := CaratReadBravaisFile("ordnung.1920/(1)^16(2)^2(4)^8/group.7355");
P13 := Group(R.generators);
Append(names,["ordnung.1920/(1)^16(2)^2(4)^8/words.group.7355"]);
Append(GROUPS,[P13]);
R := CaratReadBravaisFile("ordnung.1920/(1)^16(2)^2(4)^8/group.7356");
P14 := Group(R.generators);
Append(names,["ordnung.1920/(1)^16(2)^2(4)^8/words.group.7356"]);
Append(GROUPS,[P14]);
R := CaratReadBravaisFile("ordnung.1920/(1)^16(2)^2(4)^8/group.7357");
P15 := Group(R.generators);
Append(names,["ordnung.1920/(1)^16(2)^2(4)^8/words.group.7357"]);
Append(GROUPS,[P15]);
R := CaratReadBravaisFile("ordnung.320/(1)^16(2)^1(4)^8(8)^1/group.7358");
P16 := Group(R.generators);
Append(names,["ordnung.320/(1)^16(2)^1(4)^8(8)^1/words.group.7358"]);
Append(GROUPS,[P16]);
R := CaratReadBravaisFile("ordnung.320/(1)^16(2)^1(4)^8(8)^1/group.7359");
P17 := Group(R.generators);
Append(names,["ordnung.320/(1)^16(2)^1(4)^8(8)^1/words.group.7359"]);
Append(GROUPS,[P17]);
R := CaratReadBravaisFile("ordnung.320/(1)^16(2)^2(4)^8/group.7360");
P18 := Group(R.generators);
Append(names,["ordnung.320/(1)^16(2)^2(4)^8/words.group.7360"]);
Append(GROUPS,[P18]);
R := CaratReadBravaisFile("ordnung.320/(1)^16(2)^2(4)^8/group.7361");
P19 := Group(R.generators);
Append(names,["ordnung.320/(1)^16(2)^2(4)^8/words.group.7361"]);
Append(GROUPS,[P19]);
R := CaratReadBravaisFile("ordnung.320/(1)^4(2)^2(4)^20/group.7362");
P20 := Group(R.generators);
Append(names,["ordnung.320/(1)^4(2)^2(4)^20/words.group.7362"]);
Append(GROUPS,[P20]);
R := CaratReadBravaisFile("ordnung.320/(1)^8(2)^1(4)^16(8)^1/group.7363");
P21 := Group(R.generators);
Append(names,["ordnung.320/(1)^8(2)^1(4)^16(8)^1/words.group.7363"]);
Append(GROUPS,[P21]);
R := CaratReadBravaisFile("ordnung.320/(1)^8(2)^2(4)^16/group.7364");
P22 := Group(R.generators);
Append(names,["ordnung.320/(1)^8(2)^2(4)^16/words.group.7364"]);
Append(GROUPS,[P22]);
R := CaratReadBravaisFile("ordnung.320/(1)^8(2)^2(4)^16/group.7365");
P23 := Group(R.generators);
Append(names,["ordnung.320/(1)^8(2)^2(4)^16/words.group.7365"]);
Append(GROUPS,[P23]);
R := CaratReadBravaisFile("ordnung.320/(1)^8(2)^2(4)^16/group.7366");
P24 := Group(R.generators);
Append(names,["ordnung.320/(1)^8(2)^2(4)^16/words.group.7366"]);
Append(GROUPS,[P24]);
R := CaratReadBravaisFile("ordnung.320/(1)^8(2)^2(4)^16/group.7367");
P25 := Group(R.generators);
Append(names,["ordnung.320/(1)^8(2)^2(4)^16/words.group.7367"]);
Append(GROUPS,[P25]);
R := CaratReadBravaisFile("ordnung.320/(1)^8(2)^2(4)^16/group.7368");
P26 := Group(R.generators);
Append(names,["ordnung.320/(1)^8(2)^2(4)^16/words.group.7368"]);
Append(GROUPS,[P26]);
R := CaratReadBravaisFile("ordnung.3840/(1)^16(2)^1(4)^8(8)^1/group.7369");
P27 := Group(R.generators);
Append(names,["ordnung.3840/(1)^16(2)^1(4)^8(8)^1/words.group.7369"]);
Append(GROUPS,[P27]);
R := CaratReadBravaisFile("ordnung.3840/(1)^16(2)^2(4)^8/group.7370");
P28 := Group(R.generators);
Append(names,["ordnung.3840/(1)^16(2)^2(4)^8/words.group.7370"]);
Append(GROUPS,[P28]);
R := CaratReadBravaisFile("ordnung.3840/(1)^16(2)^2(4)^8/group.7371");
P29 := Group(R.generators);
Append(names,["ordnung.3840/(1)^16(2)^2(4)^8/words.group.7371"]);
Append(GROUPS,[P29]);
R := CaratReadBravaisFile("ordnung.3840/(1)^16(2)^2(4)^8/group.7372");
P30 := Group(R.generators);
Append(names,["ordnung.3840/(1)^16(2)^2(4)^8/words.group.7372"]);
Append(GROUPS,[P30]);
R := CaratReadBravaisFile("ordnung.3840/(1)^16(2)^2(4)^8/group.7373");
P31 := Group(R.generators);
Append(names,["ordnung.3840/(1)^16(2)^2(4)^8/words.group.7373"]);
Append(GROUPS,[P31]);
R := CaratReadBravaisFile("ordnung.3840/(1)^16(2)^2(4)^8/group.7374");
P32 := Group(R.generators);
Append(names,["ordnung.3840/(1)^16(2)^2(4)^8/words.group.7374"]);
Append(GROUPS,[P32]);
R := CaratReadBravaisFile("ordnung.3840/(1)^16(2)^2(4)^8/group.7375");
P33 := Group(R.generators);
Append(names,["ordnung.3840/(1)^16(2)^2(4)^8/words.group.7375"]);
Append(GROUPS,[P33]);
R := CaratReadBravaisFile("ordnung.640/(1)^16(2)^1(4)^8(8)^1/group.7376");
P34 := Group(R.generators);
Append(names,["ordnung.640/(1)^16(2)^1(4)^8(8)^1/words.group.7376"]);
Append(GROUPS,[P34]);
R := CaratReadBravaisFile("ordnung.640/(1)^16(2)^2(4)^8/group.7377");
P35 := Group(R.generators);
Append(names,["ordnung.640/(1)^16(2)^2(4)^8/words.group.7377"]);
Append(GROUPS,[P35]);
R := CaratReadBravaisFile("ordnung.640/(1)^16(2)^2(4)^8/group.7378");
P36 := Group(R.generators);
Append(names,["ordnung.640/(1)^16(2)^2(4)^8/words.group.7378"]);
Append(GROUPS,[P36]);
R := CaratReadBravaisFile("ordnung.640/(1)^16(2)^2(4)^8/group.7379");
P37 := Group(R.generators);
Append(names,["ordnung.640/(1)^16(2)^2(4)^8/words.group.7379"]);
Append(GROUPS,[P37]);
R := CaratReadBravaisFile("ordnung.640/(1)^16(2)^2(4)^8/group.7380");
P38 := Group(R.generators);
Append(names,["ordnung.640/(1)^16(2)^2(4)^8/words.group.7380"]);
Append(GROUPS,[P38]);
R := CaratReadBravaisFile("ordnung.640/(1)^16(2)^2(4)^8/group.7381");
P39 := Group(R.generators);
Append(names,["ordnung.640/(1)^16(2)^2(4)^8/words.group.7381"]);
Append(GROUPS,[P39]);
R := CaratReadBravaisFile("ordnung.640/(1)^8(2)^2(4)^16/group.7382");
P40 := Group(R.generators);
Append(names,["ordnung.640/(1)^8(2)^2(4)^16/words.group.7382"]);
Append(GROUPS,[P40]);
R := CaratReadBravaisFile("ordnung.7680/(1)^16(2)^2(4)^8/group.7383");
P41 := Group(R.generators);
Append(names,["ordnung.7680/(1)^16(2)^2(4)^8/words.group.7383"]);
Append(GROUPS,[P41]);
R := CaratReadBravaisFile("ordnung.80/(1)^4(2)^1(4)^20(8)^1/min.649");
P42 := Group(R.generators);
Append(names,["ordnung.80/(1)^4(2)^1(4)^20(8)^1/words.min.649"]);
Append(GROUPS,[P42]);
R := CaratReadBravaisFile("ordnung.960/(1)^16(2)^1(4)^8(8)^1/group.7384");
P43 := Group(R.generators);
Append(names,["ordnung.960/(1)^16(2)^1(4)^8(8)^1/words.group.7384"]);
Append(GROUPS,[P43]);
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();
