Pensieve header: Fuller output of for the Borromean tangle. Even fuller: <a href=Borromean-to-7.m>Borromean-to-7.m</a>

SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\WKO4"];
<< FreeLie.m;
<< AwCalculus.m;
Rl[a_,b_]:= El[⟨a->LS[0], b->LS[LW@a]⟩, CWS[0]];
iRl[a_,b_]:= El[⟨a->LS[0], b->-LS[LW@a]⟩, CWS[0]];
Rs[a_,b_]:= Es[⟨a->LS[0], b->LS[LW@a]⟩, CWS[0]];
iRs[a_,b_]:= Es[⟨a->LS[0], b->-LS[LW@a]⟩, CWS[0]];
ζ= iRs[r,6]Rs[2,4]iRs[g,9]Rs[5,7]iRs[b,3]Rs[8,1];
Do[ζ = ζ // dm[r,k,r], {k,1,3}];
Do[ζ = ζ // dm[g,k,g], {k,4,6}];
Do[ζ = ζ // dm[b,k,b], {k,7,9}];
ζ

ζ@{5} // Timing

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

Sum[{(Subscript[ζ[[1]], r])[k], (Subscript[ζ[[1]], g])[k], (Subscript[ζ[[1]], b])[k], ζ[[2]][k]}, {k,5}] // InputForm

The same thing, machine readable and to degree 7, is in the file quoted below, in the same folder:

Put[Sum[{(Subscript[ζ[[1]], r])[k], (Subscript[ζ[[1]], g])[k], (Subscript[ζ[[1]], b])[k], ζ[[2]][k]}, {k,7}], "Borromean-to-7.m"]

TimeUsed[]

The same thing, machine readable and to degree 8, is in the file quoted below, in the same folder:

Put[Sum[{(Subscript[ζ[[1]], r])[k], (Subscript[ζ[[1]], g])[k], (Subscript[ζ[[1]], b])[k], ζ[[2]][k]}, {k,8}], "Borromean-to-8.m"]

TimeUsed[]