For[i=0, i<7, ++i,Print[i]]

<<KnotTheory`

K=PD@Knot[10,123]

Alexander[Knot[10,123]][t]

Alexander[K][t]