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

G<x,y>:=PermutationGroup<13|\[
2,1,3,4,5,6,7,8,9,10,11,12,13]
,\[
1,3,4,5,6,7,8,9,10,11,12,13,2]
>;
print "Group G is S13 < Sym(13)";