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]

Do[Print[{n, TimeUsed[], Length[bch@n]}], {n,23}]