"Source: Text/Algebra/AlgClff.text";
"Line: 233";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgClff.text, line: 233
// Example: H97E4 ()
print "Example: H97E4";
ei := GetEchoInput();
SetEchoInput(true);
K<z> := GF(5,2);
Q := StandardQuadraticForm(4,K);
C,V,f := CliffordAlgebra(Q);
x := elt< C | 1,0,2,z,0,z^2,z^11,0,0,0,0,z,0,0,0,z^13 >;
L := SeqFromClifford(x);
L;
x eq SeqToClifford(C,L);
assert $1;
AsPolynomial(x);
SetEchoInput(ei);
