"Source: Text/Group/GrpPerm.text";
"Line: 10243";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Group/GrpPerm.text, line: 10243
// Example: H65E46 ()
print "Example: H65E46";
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);
