/*
www-ATLAS of Group Representations.
S13 represented as permutations on 78 points.
*/

G<x,y>:=PermutationGroup<78|\[
1,4,6,2,9,3,12,8,5,17,11,7,21,14,15,16,10,27,19,20,13,33,23,24,25,
26,18,40,29,30,31,32,22,47,35,36,37,38,39,28,55,42,43,44,45,46,34,48,49,50,
51,52,53,54,41,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,
76,77,78]
,\[
2,5,1,8,10,4,3,14,15,18,6,16,7,23,24,9,25,28,11,12,31,13,35,36,37,
17,38,41,19,20,26,21,45,22,48,49,50,51,27,53,34,29,30,32,52,33,60,56,62,63,
64,39,65,40,67,42,43,44,46,71,47,57,69,73,74,54,75,55,58,59,66,61,70,77,78,
68,72,76]
>;
print "Group G is S13 < Sym(78)";