"Source: Text/Group/GrpPerm.text";
"Line: 10235";
"Date: Wed Mar 24 09:34:33 2021";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Group/GrpPerm.text, line: 10235
// Example: H64E46 ()
print "Example: H64E46";
ei := GetEchoInput();
SetEchoInput(true);
P := OrderedPartitionStack(12);
P;       
SplitCell(P, 1, 4);
assert $1;
P;
V := [i mod 5 + 1: i in [0..11]];
V;
SplitAllByValues(P, V);
P;
Pop(P, 4);
P;
V := [i mod 4 + 1: i in [0..11]];
V;
SplitAllByValues(P, V);
P;
Pop(P, 3);
P;
SetEchoInput(ei);
