"Source: Text/System/Func.text";
"Line: 2094";
"Date: Thu Sep 25 14:47:43 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/System/Func.text, line: 2094
// Example: H2E18 ()
print "Example: H2E18";
ei := GetEchoInput();
SetEchoInput(true);
// no-test
Attach("DirProd.m");
Z := IntegerRing();
Q := RationalField();
F8<a> := GF(2^3);
F9<b> := GF(3^2);
D := DirectProduct(<Z, Q, F8, F9>);
x := D!<1, 2/3, a, b>;
y := D!<2, 3/4, a+1, b+1>;
x;
Parent(x);
y;
x+y;
x*y;
D!x;
S := [x, y]; S;

&+S;
SetEchoInput(ei);
