Pensieve header: Computing B_6_9 on sphere.

SetDirectory@"~drorbn/AcademicPensieve/Projects/OU";
<< "OU-Programs.m"

CVD[vd_VD]:=((CVD@@vd)/.{_EOS->Sequence[],(Subscript[X, s_])[i_,j_]:>Sequence[s i,j]});
AllBs[n_,m_]:=DeleteDuplicatesBy[CVD@*(OverBar[Γ])]@Flatten@Table[b, {k,0,m},{b,ProudBs[n,k]}]

{n,m}={6,9};
t=First@Timing[Bs=Select[AllBs[n,m], (Length[#[[2]]]==m)&]];
c=Length[Bs];
Put[{t,c}, "Dim_6_9.m"];
Put[Bs, "Data/B_6_9.m"];
Exit[]