chakravala

using Grassmann;
@basis D"1,1,1,0";
P = [ rand()*v124 + rand()*v134 + rand()*v234 + v123 for i=1:1000 ];
L = [ rand()*v12 + rand()*v13 + rand()*v14 + rand()*v23 + rand()*v24 + rand()*v34 for i=1:1000 ];
A = [ rand() for i=1:1000];
test2(L,A,P) = (LA = exp.(L.*A); LA.*P.*.~LA);
R = test2(L,A,P);
f(L,A,P,i) = (LA = exp(L[i]*A[i]); LA*P[i]*~LA);
function test(L,A,P,R)
    for k ∈ 1:1000