Pensieve header: Fuller output of bch. Even fuller: <a href=bch-to-20.m>bch-to-20.m</a>, <a href=bch-to-22.m>bch-to-22.m</a>, <a href=bch-to-23.m>bch-to-23.m</a>.

SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\WKO4"];
<< FreeLie.m;
bch=BCH[LW@x,LW@y]

bch@{10} // Timing

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

Sum[bch[k], {k,10}] // InputForm

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

Put[Sum[bch[k], {k,20}], "bch-to-20.m"]

TimeUsed[]

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

Put[Sum[bch[k], {k,22}], "bch-to-22.m"]

TimeUsed[]

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

Put[Sum[bch[k], {k,23}], "bch-to-23.m"]

TimeUsed[]