"Source: Text/Algebra/AlgClff.text";
"Line: 441";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgClff.text, line: 441
// Example: H97E8 ()
print "Example: H97E8";
ei := GetEchoInput();
SetEchoInput(true);
F := GF(3);
Q := StandardQuadraticForm(6,F : Minus);
C,V,f := CliffordAlgebra(Q);
WittIndex(V);
IsSimple(C);
assert $1;
#Centre(C);
E := EvenSubalgebra(C);
IsSimple(E);
assert $1;
Z := Centre(E); Z;
#{ z : z in Z | IsUnit(z) };
SetEchoInput(ei);
