SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SL2Invariant"];
<< SL2Invariant.m

$k=3

(Subscript[R, 1,2])

(Subscript[(OverBar[R]), 1,2])

CF/@((Subscript[R, 1,2])/. {ℏ->-ℏ,(Subscript[y, 1])->(Subscript[y, 1])/(Subscript[B, 1])})