"Source: Text/Algebra/AlgClff.text";
"Line: 441";
"Date: Tue Jun  7 22:27:14 2016";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Algebra/AlgClff.text, line: 441
// Example: H95E8 ()
print "Example: H95E8";
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);
