//Session file
SetLogFile("shuffle4.log": Overwrite := true);

//define huffle group and print them out
G:=SymmetricGroup(4);
print(G);

//select a random shuufle
pi := Random(G);
print pi;
udeck := [1,2,3,4];
print udeck, udeck^(pi^(-1));

//all shuffles
allshuffles := [udeck^(pi^(-1)) : pi in G];
print Set(G);
print allshuffles;

//End Session
UnsetLogFile();