/*
www-ATLAS of Group Representations.
S8 represented as permutations on 8 points.
*/

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