"Source: Text/Group/GrpBrd.text";
"Line: 3118";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Group/GrpBrd.text, line: 3118
// Example: H82E9 ()
print "Example: H82E9";
ei := GetEchoInput();
SetEchoInput(true);
function MyUltraSummitSet(x)

// create a subset of the ultra summit set of x
U := {@ UltraSummitRepresentative(x) @};
gens := Generators(Parent(x));
pos := 1;

// close U under conjugation with minimal simple elements
while pos le #U do
   y := U[pos];
   // add missing conjugates of y
   for z in { y^MinimalElementConjugatingToUltraSummit(y, s)
                 : s in gens } do
      if z notin U then
         Include(~U, z);
      end if;
   end for;
   pos +:= 1;
end while;

return U;

end function;
SetEchoInput(ei);
