LogTo("t-groups.log");
RequirePackage("carat");
names := [];
GROUPS := [];
R := CaratReadBravaisFile("ordnung.192/(1)^4(2)^2(4)^4(8)^1/group.3788");
P1 := Group(R.generators);
Append(names,["ordnung.192/(1)^4(2)^2(4)^4(8)^1/words.group.3788"]);
Append(GROUPS,[P1]);
R := CaratReadBravaisFile("ordnung.24/(1)^2(2)^2(4)^6(32)^1/min.432");
P2 := Group(R.generators);
Append(names,["ordnung.24/(1)^2(2)^2(4)^6(32)^1/words.min.432"]);
Append(GROUPS,[P2]);
R := CaratReadBravaisFile("ordnung.24/(1)^2(2)^2(4)^6(32)^1/min.433");
P3 := Group(R.generators);
Append(names,["ordnung.24/(1)^2(2)^2(4)^6(32)^1/words.min.433"]);
Append(GROUPS,[P3]);
R := CaratReadBravaisFile("ordnung.24/(1)^2(4)^8(8)^1/min.434");
P4 := Group(R.generators);
Append(names,["ordnung.24/(1)^2(4)^8(8)^1/words.min.434"]);
Append(GROUPS,[P4]);
R := CaratReadBravaisFile("ordnung.24/(1)^2(4)^8(8)^1/min.435");
P5 := Group(R.generators);
Append(names,["ordnung.24/(1)^2(4)^8(8)^1/words.min.435"]);
Append(GROUPS,[P5]);
R := CaratReadBravaisFile("ordnung.24/(1)^4(2)^2(4)^4(32)^1/min.436");
P6 := Group(R.generators);
Append(names,["ordnung.24/(1)^4(2)^2(4)^4(32)^1/words.min.436"]);
Append(GROUPS,[P6]);
R := CaratReadBravaisFile("ordnung.24/(1)^4(2)^2(4)^4(32)^1/min.437");
P7 := Group(R.generators);
Append(names,["ordnung.24/(1)^4(2)^2(4)^4(32)^1/words.min.437"]);
Append(GROUPS,[P7]);
R := CaratReadBravaisFile("ordnung.24/(1)^4(4)^6(8)^1/min.438");
P8 := Group(R.generators);
Append(names,["ordnung.24/(1)^4(4)^6(8)^1/words.min.438"]);
Append(GROUPS,[P8]);
R := CaratReadBravaisFile("ordnung.24/(1)^4(4)^6(8)^1/min.439");
P9 := Group(R.generators);
Append(names,["ordnung.24/(1)^4(4)^6(8)^1/words.min.439"]);
Append(GROUPS,[P9]);
R := CaratReadBravaisFile("ordnung.48/(1)^2(2)^2(4)^6(32)^1/group.3789");
P10 := Group(R.generators);
Append(names,["ordnung.48/(1)^2(2)^2(4)^6(32)^1/words.group.3789"]);
Append(GROUPS,[P10]);
R := CaratReadBravaisFile("ordnung.48/(1)^2(2)^2(4)^6(8)^1/group.3790");
P11 := Group(R.generators);
Append(names,["ordnung.48/(1)^2(2)^2(4)^6(8)^1/words.group.3790"]);
Append(GROUPS,[P11]);
R := CaratReadBravaisFile("ordnung.48/(1)^2(2)^2(4)^6(8)^1/group.3791");
P12 := Group(R.generators);
Append(names,["ordnung.48/(1)^2(2)^2(4)^6(8)^1/words.group.3791"]);
Append(GROUPS,[P12]);
R := CaratReadBravaisFile("ordnung.48/(1)^2(2)^2(4)^6(8)^1/group.3792");
P13 := Group(R.generators);
Append(names,["ordnung.48/(1)^2(2)^2(4)^6(8)^1/words.group.3792"]);
Append(GROUPS,[P13]);
R := CaratReadBravaisFile("ordnung.48/(1)^2(2)^2(4)^6(8)^1/group.3793");
P14 := Group(R.generators);
Append(names,["ordnung.48/(1)^2(2)^2(4)^6(8)^1/words.group.3793"]);
Append(GROUPS,[P14]);
R := CaratReadBravaisFile("ordnung.48/(1)^2(4)^8(8)^1/group.3794");
P15 := Group(R.generators);
Append(names,["ordnung.48/(1)^2(4)^8(8)^1/words.group.3794"]);
Append(GROUPS,[P15]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(32)^1/group.3795");
P16 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(32)^1/words.group.3795"]);
Append(GROUPS,[P16]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(32)^1/group.3796");
P17 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(32)^1/words.group.3796"]);
Append(GROUPS,[P17]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(32)^1/group.3797");
P18 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(32)^1/words.group.3797"]);
Append(GROUPS,[P18]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(32)^1/group.3798");
P19 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(32)^1/words.group.3798"]);
Append(GROUPS,[P19]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(32)^1/group.3799");
P20 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(32)^1/words.group.3799"]);
Append(GROUPS,[P20]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^1/group.3800");
P21 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^1/words.group.3800"]);
Append(GROUPS,[P21]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^1/group.3801");
P22 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^1/words.group.3801"]);
Append(GROUPS,[P22]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^1/group.3802");
P23 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^1/words.group.3802"]);
Append(GROUPS,[P23]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^1/group.3803");
P24 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^1/words.group.3803"]);
Append(GROUPS,[P24]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^1/group.3804");
P25 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^1/words.group.3804"]);
Append(GROUPS,[P25]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^1/group.3805");
P26 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^1/words.group.3805"]);
Append(GROUPS,[P26]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^1/group.3806");
P27 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^1/words.group.3806"]);
Append(GROUPS,[P27]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^1/group.3807");
P28 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^1/words.group.3807"]);
Append(GROUPS,[P28]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^1/group.3808");
P29 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^1/words.group.3808"]);
Append(GROUPS,[P29]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^1/group.3809");
P30 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^1/words.group.3809"]);
Append(GROUPS,[P30]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^1/group.3810");
P31 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^1/words.group.3810"]);
Append(GROUPS,[P31]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(2)^2(4)^4(8)^1/group.3811");
P32 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(2)^2(4)^4(8)^1/words.group.3811"]);
Append(GROUPS,[P32]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(4)^6(8)^1/group.3812");
P33 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(4)^6(8)^1/words.group.3812"]);
Append(GROUPS,[P33]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(4)^6(8)^1/group.3813");
P34 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(4)^6(8)^1/words.group.3813"]);
Append(GROUPS,[P34]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(4)^6(8)^1/group.3814");
P35 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(4)^6(8)^1/words.group.3814"]);
Append(GROUPS,[P35]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(4)^6(8)^1/group.3815");
P36 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(4)^6(8)^1/words.group.3815"]);
Append(GROUPS,[P36]);
R := CaratReadBravaisFile("ordnung.48/(1)^4(4)^6(8)^1/group.3816");
P37 := Group(R.generators);
Append(names,["ordnung.48/(1)^4(4)^6(8)^1/words.group.3816"]);
Append(GROUPS,[P37]);
R := CaratReadBravaisFile("ordnung.96/(1)^2(2)^2(4)^6(8)^1/group.3817");
P38 := Group(R.generators);
Append(names,["ordnung.96/(1)^2(2)^2(4)^6(8)^1/words.group.3817"]);
Append(GROUPS,[P38]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(32)^1/group.3818");
P39 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(32)^1/words.group.3818"]);
Append(GROUPS,[P39]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^1/group.3819");
P40 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^1/words.group.3819"]);
Append(GROUPS,[P40]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^1/group.3820");
P41 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^1/words.group.3820"]);
Append(GROUPS,[P41]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^1/group.3821");
P42 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^1/words.group.3821"]);
Append(GROUPS,[P42]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^1/group.3822");
P43 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^1/words.group.3822"]);
Append(GROUPS,[P43]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^1/group.3823");
P44 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^1/words.group.3823"]);
Append(GROUPS,[P44]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^1/group.3824");
P45 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^1/words.group.3824"]);
Append(GROUPS,[P45]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^1/group.3825");
P46 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^1/words.group.3825"]);
Append(GROUPS,[P46]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^1/group.3826");
P47 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^1/words.group.3826"]);
Append(GROUPS,[P47]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^1/group.3827");
P48 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^1/words.group.3827"]);
Append(GROUPS,[P48]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^1/group.3828");
P49 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^1/words.group.3828"]);
Append(GROUPS,[P49]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(2)^2(4)^4(8)^1/group.3829");
P50 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(2)^2(4)^4(8)^1/words.group.3829"]);
Append(GROUPS,[P50]);
R := CaratReadBravaisFile("ordnung.96/(1)^4(4)^6(8)^1/group.3830");
P51 := Group(R.generators);
Append(names,["ordnung.96/(1)^4(4)^6(8)^1/words.group.3830"]);
Append(GROUPS,[P51]);
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();
