load('clifford)$

clifford(e,3);

EE:cons(1, %elements );

Cl(3,0,0)

mtable1o(%elements);

mtable1i(%elements);

mtable2();

Cl(1,1,1)

clifford(e,1,1,1);

mtable1o(%elements);

mtable1i(%elements);

mtable2();

Cl(0,2,1)

clifford(e,0,2,1);

mtable1o(%elements);

mtable1i(%elements);

mtable2();

;

;