You must open and evaluate the following cell:

$Path =  $Path~
          Join~{"C:/drorbn/projects/KAtlas/"};
<<  KnotTheory`
KhN[L_]  :=  KhN[PD[L]];
\(KhN[pd_PD]\  := \ 
      Module[
{n, \ dir, \ f, \ cl, \ 
          out}, 
n = 
          Max\  @@ \ \((Max\  @@@ \ pd)\); 
pd1\  = \ 
          pd\  /. \ {
X[n, \ i_, \ 1, \ 
                  j_]\  :> \ 
                X[n, \ i, \ n + 1, \ j], 
X[i_, \ 1, \ 
                  j_, \ n]\  :> \ 
                X[i, \ n + 1, \ j, \ n], 
X[1, \ j_, \ n, \ 
                  i_]\  :> \ 
                X[n + 1, \ j, \ n, \ i], 
X[j_, \ n, \ 
                  i_, \ 1]\  :> \ 
                X[j, \ n, \ i, \ 
                  n + 1]
}; 
dir = 
          Directory[]; 
SetDirectory[
          ToFileName[
            KnotTheoryDirectory[], "JavaKh"]]; 
f = 
          OpenWrite["pd", 
            PageWidth -> Infinity]; 
WriteString[f, 
          ToString[pd1]]; 
Close[
          f]; 
cl = 
          StringJoin["!java -Xmx256m JavaKh -H < pd"]; 
f = OpenRead[cl]; 
out = 
          Read[f, Expression]; 
Close[
          f]; 
SetDirectory[dir]; 
out = 
          StringReplace[
            out, {"q" -> "#1", "t" -> "#2"}]; 
kh = \(ToExpression[out <> "&"]\)[q, 
            t]; 
minr = 
          Exponent[kh, \ t, \ Min]; 
maxr = 
          Exponent[kh, \ t, \ Max]; 
obs\  = \ 
          Expand[\(kh\  /. \ h\  -> \ 0\)\  /. \ 
              M[_, \ n_, \ ___]\ \  :> \ 
                Plus\  @@ \ 
                  Array[Arc, \ 
                    n]]; 
obs\  = \ \(obs\  /. \ \((q^
                      j_. )\)*Arc[i_]\  :> \ Arc[j, \ i]\)\  /. \ 
            Arc[i_]\  :> \ 
              Arc[0, \ i]; 
mos = \ 
          Expand[
\(h*kh\  /. \ {M[0, _] -> \ 0, \ 
                  M[_, \ 0]\  -> \ 0, \ 
                  h -> \ H}\)
 /. \ 
              M[m_, \ n_, \ cs___]\  :> \ 
                Plus\  @@ \ 
                  Flatten[
                    MapIndexed[
\((#1*
                            Curtain @@ 
                              Reverse[#2])\) &, 
Partition[{cs}, \ 
                        n], 
{2}
]]
]; 
mos\  = \ \(mos\  /. \ \((q^j_. )\)*
                  Curtain[k_, \ l_]\  :> \ 
                Curtain[j, \ k, \ l]\)\  /. \ 
            Curtain[k_, \ l_]\  :> \ 
              Curtain[0, \ k, \ l]; 
mos\  = \ 
          mos\  /. \ \((H^g_. )\)*Curtain[j_, \ k_, \ l_]\  :> \ 
              H^\((g - 1)\) 
                Curtain[j, \ k, \ j + 2 \((g - 1)\), \ 
                  l]; 
Komplex\  @@ \ 
          Table[{r, \ 
              Coefficient[obs, \ t, \ r], \ \ Coefficient[mos, \ t, \ 
                r]}, \ {r, \ minr, \ maxr}]
]\)

KhN[Knot[3,  1]]

Print  /@  KhN[Knot[13,  NonAlternating,  3663]];

KhN[TorusKnot[6, 5]]