
print "The symplectic group PSP( 6, 2 ) represented as a";
print "permutation group of degree 63. ";
print "Order: 1,451,520 = 2^9 * 3^4 * 5 * 7;  Base: 1,2,3,4,5,6 ";
print "Group: G";

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