
print "Imprimitive group of degree 24 with 12 blocks of size 2. ";
print "Composition factors are: Z(2) (11 times), and PSL(2, 11). ";
print "Order: 1,351,680 = 2^13 * 3 * 5 * 11. ";
print "Group: G";

G := PermutationGroup<24 |
    \[ 2,  1,  4,  3,  6,  5,  8,  7, 10,  9, 12, 11, 14, 13, 16, 15,
18, 17, 20, 19, 22, 21, 24, 23],
    \[ 2,  3,  1,  5,  7,  9,  4, 10, 11, 13,  6, 15,  8, 19, 17, 21,
12, 14, 18, 16, 20, 23, 24, 22]>;
AssertAttribute(G, "Order", 2^13 * 3 * 5 * 11);
