GAP 4.8.9 installation with standard packages -- copy to your CoCalc project to get it
LogTo("t-groups.log"); RequirePackage("carat"); names := []; GROUPS := []; R := CaratReadBravaisFile("ordnung.12/(1)^2(3)^2(18)^1(54)^1/group.1698"); P1 := Group(R.generators); Append(names,["ordnung.12/(1)^2(3)^2(18)^1(54)^1/words.group.1698"]); Append(GROUPS,[P1]); R := CaratReadBravaisFile("ordnung.12/(1)^2(3)^2(6)^1(18)^1/group.1699"); P2 := Group(R.generators); Append(names,["ordnung.12/(1)^2(3)^2(6)^1(18)^1/words.group.1699"]); Append(GROUPS,[P2]); R := CaratReadBravaisFile("ordnung.12/(1)^2(3)^2(6)^1(18)^1/group.1700"); P3 := Group(R.generators); Append(names,["ordnung.12/(1)^2(3)^2(6)^1(18)^1/words.group.1700"]); Append(GROUPS,[P3]); R := CaratReadBravaisFile("ordnung.12/(1)^2(3)^2(6)^1(18)^1/group.1701"); P4 := Group(R.generators); Append(names,["ordnung.12/(1)^2(3)^2(6)^1(18)^1/words.group.1701"]); Append(GROUPS,[P4]); R := CaratReadBravaisFile("ordnung.12/(1)^2(3)^2(6)^1(18)^1/group.1702"); P5 := Group(R.generators); Append(names,["ordnung.12/(1)^2(3)^2(6)^1(18)^1/words.group.1702"]); Append(GROUPS,[P5]); R := CaratReadBravaisFile("ordnung.12/(1)^2(6)^1(54)^1/group.1703"); P6 := Group(R.generators); Append(names,["ordnung.12/(1)^2(6)^1(54)^1/words.group.1703"]); Append(GROUPS,[P6]); R := CaratReadBravaisFile("ordnung.12/(1)^2(6)^2/group.1704"); P7 := Group(R.generators); Append(names,["ordnung.12/(1)^2(6)^2/words.group.1704"]); Append(GROUPS,[P7]); R := CaratReadBravaisFile("ordnung.12/(1)^2(6)^2/group.1705"); P8 := Group(R.generators); Append(names,["ordnung.12/(1)^2(6)^2/words.group.1705"]); Append(GROUPS,[P8]); R := CaratReadBravaisFile("ordnung.12/(1)^2(6)^2/group.1706"); P9 := Group(R.generators); Append(names,["ordnung.12/(1)^2(6)^2/words.group.1706"]); Append(GROUPS,[P9]); R := CaratReadBravaisFile("ordnung.12/(1)^2(6)^2/group.1707"); P10 := Group(R.generators); Append(names,["ordnung.12/(1)^2(6)^2/words.group.1707"]); Append(GROUPS,[P10]); R := CaratReadBravaisFile("ordnung.12/(1)^3(3)^1(6)^1(54)^1/group.1708"); P11 := Group(R.generators); Append(names,["ordnung.12/(1)^3(3)^1(6)^1(54)^1/words.group.1708"]); Append(GROUPS,[P11]); R := CaratReadBravaisFile("ordnung.12/(1)^3(3)^1(6)^1(54)^1/group.1709"); P12 := Group(R.generators); Append(names,["ordnung.12/(1)^3(3)^1(6)^1(54)^1/words.group.1709"]); Append(GROUPS,[P12]); R := CaratReadBravaisFile("ordnung.12/(1)^3(3)^1(6)^1(54)^1/group.1710"); P13 := Group(R.generators); Append(names,["ordnung.12/(1)^3(3)^1(6)^1(54)^1/words.group.1710"]); Append(GROUPS,[P13]); R := CaratReadBravaisFile("ordnung.12/(1)^3(3)^1(6)^1(54)^1/group.1711"); P14 := Group(R.generators); Append(names,["ordnung.12/(1)^3(3)^1(6)^1(54)^1/words.group.1711"]); Append(GROUPS,[P14]); R := CaratReadBravaisFile("ordnung.12/(1)^3(3)^1(6)^2/group.1712"); P15 := Group(R.generators); Append(names,["ordnung.12/(1)^3(3)^1(6)^2/words.group.1712"]); Append(GROUPS,[P15]); R := CaratReadBravaisFile("ordnung.12/(1)^3(3)^1(6)^2/group.1713"); P16 := Group(R.generators); Append(names,["ordnung.12/(1)^3(3)^1(6)^2/words.group.1713"]); Append(GROUPS,[P16]); R := CaratReadBravaisFile("ordnung.12/(1)^3(3)^1(6)^2/group.1714"); P17 := Group(R.generators); Append(names,["ordnung.12/(1)^3(3)^1(6)^2/words.group.1714"]); Append(GROUPS,[P17]); R := CaratReadBravaisFile("ordnung.12/(3)^2(6)^2/group.1715"); P18 := Group(R.generators); Append(names,["ordnung.12/(3)^2(6)^2/words.group.1715"]); Append(GROUPS,[P18]); R := CaratReadBravaisFile("ordnung.24/(1)^2(3)^2(6)^1(18)^1/group.1716"); P19 := Group(R.generators); Append(names,["ordnung.24/(1)^2(3)^2(6)^1(18)^1/words.group.1716"]); Append(GROUPS,[P19]); R := CaratReadBravaisFile("ordnung.24/(1)^2(6)^2/group.1717"); P20 := Group(R.generators); Append(names,["ordnung.24/(1)^2(6)^2/words.group.1717"]); Append(GROUPS,[P20]); R := CaratReadBravaisFile("ordnung.24/(1)^3(3)^1(6)^1(54)^1/group.1718"); P21 := Group(R.generators); Append(names,["ordnung.24/(1)^3(3)^1(6)^1(54)^1/words.group.1718"]); Append(GROUPS,[P21]); R := CaratReadBravaisFile("ordnung.24/(1)^3(3)^1(6)^2/group.1719"); P22 := Group(R.generators); Append(names,["ordnung.24/(1)^3(3)^1(6)^2/words.group.1719"]); Append(GROUPS,[P22]); R := CaratReadBravaisFile("ordnung.24/(1)^3(3)^1(6)^2/group.1720"); P23 := Group(R.generators); Append(names,["ordnung.24/(1)^3(3)^1(6)^2/words.group.1720"]); Append(GROUPS,[P23]); R := CaratReadBravaisFile("ordnung.24/(1)^3(3)^1(6)^2/group.1721"); P24 := Group(R.generators); Append(names,["ordnung.24/(1)^3(3)^1(6)^2/words.group.1721"]); Append(GROUPS,[P24]); R := CaratReadBravaisFile("ordnung.24/(1)^3(3)^1(6)^2/group.1722"); P25 := Group(R.generators); Append(names,["ordnung.24/(1)^3(3)^1(6)^2/words.group.1722"]); Append(GROUPS,[P25]); R := CaratReadBravaisFile("ordnung.24/(1)^3(3)^1(6)^2/group.1723"); P26 := Group(R.generators); Append(names,["ordnung.24/(1)^3(3)^1(6)^2/words.group.1723"]); Append(GROUPS,[P26]); R := CaratReadBravaisFile("ordnung.24/(1)^3(3)^1(6)^2/group.1724"); P27 := Group(R.generators); Append(names,["ordnung.24/(1)^3(3)^1(6)^2/words.group.1724"]); Append(GROUPS,[P27]); R := CaratReadBravaisFile("ordnung.24/(1)^3(3)^1(6)^2/group.1725"); P28 := Group(R.generators); Append(names,["ordnung.24/(1)^3(3)^1(6)^2/words.group.1725"]); Append(GROUPS,[P28]); R := CaratReadBravaisFile("ordnung.48/(1)^3(3)^1(6)^2/group.1726"); P29 := Group(R.generators); Append(names,["ordnung.48/(1)^3(3)^1(6)^2/words.group.1726"]); Append(GROUPS,[P29]); R := CaratReadBravaisFile("ordnung.6/(1)^2(3)^2(18)^1(54)^1/min.312"); P30 := Group(R.generators); Append(names,["ordnung.6/(1)^2(3)^2(18)^1(54)^1/words.min.312"]); Append(GROUPS,[P30]); R := CaratReadBravaisFile("ordnung.6/(1)^2(3)^2(18)^1(54)^1/min.313"); P31 := Group(R.generators); Append(names,["ordnung.6/(1)^2(3)^2(18)^1(54)^1/words.min.313"]); Append(GROUPS,[P31]); R := CaratReadBravaisFile("ordnung.6/(1)^2(6)^1(54)^1/min.314"); P32 := Group(R.generators); Append(names,["ordnung.6/(1)^2(6)^1(54)^1/words.min.314"]); Append(GROUPS,[P32]); R := CaratReadBravaisFile("ordnung.6/(1)^2(6)^1(54)^1/min.315"); P33 := Group(R.generators); Append(names,["ordnung.6/(1)^2(6)^1(54)^1/words.min.315"]); Append(GROUPS,[P33]); R := CaratReadBravaisFile("ordnung.6/(3)^2(6)^2/min.316"); P34 := Group(R.generators); Append(names,["ordnung.6/(3)^2(6)^2/words.min.316"]); Append(GROUPS,[P34]); R := CaratReadBravaisFile("ordnung.6/(3)^2(6)^2/min.317"); P35 := Group(R.generators); Append(names,["ordnung.6/(3)^2(6)^2/words.min.317"]); Append(GROUPS,[P35]); 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();