load(climatrep);

showtime:true$

declare(v, scalar)$

Cl(0,3)

clifford(e,0,3);

declare(a, scalar);

A:celem(a);

A1:fadlevicg2(A)$

B1:A.A1,expand$

B1,dotsimpc,ratsimp;

A1;

denom(A1),factor;

gfactor(%);

An:num(A1),clifact;

declare(v, scalar);

[A1, P]:fadlevicg2cp(A,v),_debug1=all $

num(A1);