/*
www-ATLAS of Group Representations.
S18 represented as permutations on 18 points.
*/

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