SetDirectory["C:\\drorbn\\AcademicPensieve\\2012-07"];
<< FreeLie-120702.m

Warning: May not work with the current version of FreeLie.m, or may produce completely different timing results.

BCH[8]

Do[
BCH[n];
Print[n -> {TimeUsed[], Length[BCH[n] // Last]}],
{n,20}
]

Length /@ BCH[20]

BCH[20] >> "BCH20.m"