Pensieve header: Fuller output of for a Drinfel’d associator Φ.

SetDirectory["C:/drorbn/AcademicPensieve/Projects/WKO4"];
<< FreeLie.m;
Φs[2,1]=Φs[3,1]=Φs[3,2]=0;Φs[3,1,2]=1/24; (Subscript[Φ, 0])=DKS[3, Φs];
SeriesSolve[(Subscript[Φ, 0]), ((Subscript[Φ, 0])^(σ[3,2,1]))≡-(Subscript[Φ, 0]) && (Subscript[Φ, 0])**((Subscript[Φ, 0])^(σ[1,23,4]))**((Subscript[Φ, 0])^(σ[2,3,4]))≡((Subscript[Φ, 0])^(σ[12,3,4]))**((Subscript[Φ, 0])^(σ[1,2,34]))];
(Subscript[Φ, 0])@{6}

The same thing, copy-paste ready and machine readable:

Sum[(Subscript[Φ, 0])[k], {k,6}] // InputForm

Note that in this context, “LW[1, 1, 2, 2]” (for example) really means "LW[
(Subscript[t, 13]), (Subscript[t, 13]), (Subscript[t, 23]), (Subscript[t, 23])]”.

(Subscript[Φ, 0])@{10}

The same thing, copy-paste ready and machine readable:

Sum[(Subscript[Φ, 0])[k], {k,10}] // InputForm

{TimeUsed[], MaxMemoryUsed[]}