"Source: Text/Incidence/Tableau.text";
"Line: 118";
"Date: Thu Sep 20 23:00:01 2018";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Incidence/Tableau.text, line: 118
// Example: H154E1 ()
print "Example: H154E1";
ei := GetEchoInput();
SetEchoInput(true);
PartitionToElt := function(G, p)
    x := [];
    s := 0;
    for d in p do
        x cat:= Rotate([s+1 .. s+d], -1);
        s +:= d;
    end for;
    return G!x;
end function;
ConjClasses := function(n)
    G := Sym(n);
    return [ PartitionToElt(G, p) : p in Partitions(n) ];
end function;
ConjClasses(5);
Classes(Sym(5));
SetEchoInput(ei);
