with(linalg): with(Clifford); B := diag(1,1,1): dim := 3: alias( e12=e1we2, e21=e2we1, e23=e2we3, e32=e3we2, e13=e1we3, e31=e3we1, e123=e1we2we3, e132=e1we3we2, e231=e2we3we1, e213=e2we1we3, e312=e3we1we2, e321=e3we2we1): specify_constants(a,a0,a1,a2,a3,b,b0,b1,b2,b3,c,c0,c1,c2,c3,d,d0,d1,d2,d3,e);