Once[
SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SL2Invariant"];
<< SL2Invariant`
]

AllKnots[{3,7}]

$k=1; Zs=Timing[Z[#]]& /@ AllKnots[{3,7}]

Zs[[All,2,3]]//Normal