Date[]

SetDirectory@"C:\\drorbn\\AcademicPensieve\\Projects\\BabyDoPeGDO"
<<Engine.m
<<Objects.m

BeginProfile[];
PopupWindow[Button["Show Profile Monitor"],Dynamic[PrintProfile[], UpdateInterval->3, TrackedSymbols->{}]]

$k=1

NewBit[K_]:=Module[{Alex=Alexander[K][T]},
(T^3)((Alex^2)/(T-1))Z[K][[3,2]]//Factor]

NewBit/@AllKnots[{3,5}]

(*Two knots with equal Alexander, new bit does not agree*)
Alexander[Knot[6,1]]==Alexander[Knot[9,46]]
Timing[NewBit[Knot[6,1]]==NewBit[Knot[9,46]]]

PrintProfile[]

Date[]