"Source: Text/Aggregates/Set.text";
"Line: 1410";
"Date: Thu Sep 25 14:47:47 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Aggregates/Set.text, line: 1410
// Example: H10E10 ()
print "Example: H10E10";
ei := GetEchoInput();
SetEchoInput(true);
R := { 218, 271, 511 };
x := 0;
cubes := { 0 };
while not IsEmpty(R) do
   x +:= 1;
   c := x^3;
   Include(~cubes, c);
   Include(~cubes, -c);
   for z in cubes do
       Exclude(~R, z+c);
       Exclude(~R, z-c);
   end for;
end while;
R := { 218, 271, 511 }; // it has been emptied !
{ { x, y } : x, y in cubes | x+y in R };
SetEchoInput(ei);
