"Source: Text/Module/ModRng.text";
"Line: 1700";
"Date: Wed Sep 19 23:00:01 2018";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Module/ModRng.text, line: 1700
// Example: H59E10 ()
print "Example: H59E10";
ei := GetEchoInput();
SetEchoInput(true);
Q  := RationalField();
R4 := RModule(Q, 4);
M  := EndomorphismAlgebra(R4);
h4 := M ! [ 1/i :  i in [1 .. 16 ] ];
h4;
SetEchoInput(ei);
