
print "The first member of the family of simple groups";
print "discovered by Suzuki - Sz(8) - represented as a";
print "permutation group of degree 65. ";
print "Order: 29,120 = 2^6 * 5 * 7 * 13;  Base: 1,2,3. ";
print "Group: G";

G := PermutationGroup<65 |
    \[ 2,   3,   4,   5,   6,   7,   1,   9,  10,  11,  12,  13,
14,   8,  16,  17,  18,  19,  20,  21,  15,  23,  24,  25,  26,  27,  28,
22,  30,  31,  32,  33,  34,  35,  29,  37,  38,  39,  40,  41,  42,  36,
44,  45,  46,  47,  48,  49,  43,  51,  52,  53,  54,  55,  56,  50,  58,
59,  60,  61,  62,  63,  57,  64,  65],
    \[15,  22,  29,  36,  43,  50,  57,   1,  39,  28,  37,  62,
33,  10,  64,  60,  49,  16,  13,  61,  45,   6,  53,  42,   9,  48,  12,
52,   4,  32,  21,  23,  34,  19,  59,   3,  46,  35,  58,  27,  54,  17,
 7,  18,  56,  51,  55,  47,  24,   2,  11,  14,  30,  20,  26,  31,   5,
25,  63,  44,  41,  40,  38,   8,  65],
    \[57,  63,  62,  61,  60,  59,  58,  26,  25,  24,  23,  22,
28,  27,  37,  36,  42,  41,  40,  39,  38,  12,  11,  10,   9,   8,  14,
13,  52,  51,  50,  56,  55,  54,  53,  16,  15,  21,  20,  19,  18,  17,
43,  49,  48,  47,  46,  45,  44,  31,  30,  29,  35,  34,  33,  32,   1,
 7,   6,   5,   4,   3,   2,  65,  64]>;
AssertAttribute(G, "Order", 2^6 * 5 * 7 * 13);
