Pensieve header: J(BCH).

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

{u=LW["u"], v=LW["v"]}

bch=BCH[u,v]

J[u,bch][{8}]

J[v,bch][{8}]