$PrePrint=If[MatrixQ@#,MatrixForm@#,#]&;
MΓ@Γ[ω_,λ_,L_]:=Prepend[Prepend[λ\[Transpose],(Subscript[t, #])&/@L]\[Transpose],Prepend[(Subscript[h, #])&/@L,ω]];
Format@Γ@i__:=MatrixForm@MΓ@Γ@i;
Γ/:Γ[ω1_,λ1_,L1_]Γ[ω2_,λ2_,L2_]:=Module[{S=Ordering@Join[L1,L2]},Γ[ω1 ω2,Join[Join[#,Table[0,{Length@λ2}]]&/@λ1,Join[Table[0,{Length@λ1}],#]&/@λ2][[S]]\[Transpose][[S]]\[Transpose],Union[L1,L2]]];
P/:P[i_,j_]P[j_,k_]:=P[i,k];
P/:P[i_,j_]P[i_,k_]:=P[j,k];
P/:P[i_,j_]P[k_,j_]:=P[i,k];
P/:P[i_,i_]:=-(t^(1/2))-(1/(t^(1/2)));
P/:((P[i__])^2):=-(t^(1/2))-(1/(t^(1/2)));
(Subscript[S, a_,b_->c_])@K_:=(Subscript[S, {a,b}->c])@K;
(Subscript[S, {a__}->c_])@K_:=If[Length@List@a==1,K,(Subscript[MS, {a}->c])@M@K];
(Subscript[R, a_,b_->c_])@Γ[ω_,λ_,L_]:=Module[{i=FirstPosition[L,a][[1]],j=FirstPosition[L,b][[1]]},Module[{S=Join[{c},Delete[L,{{i},{j}}]],α=λ[[i]][[i]],β=1-λ[[i]][[j]],γ=λ[[j]][[i]],δ=λ[[j]][[j]],θ=Delete[λ[[i]],{{i},{j}}],ϵ=Delete[λ[[j]],{{i},{j}}],ϕ=Delete[λ\[Transpose][[i]],{{i},{j}}],ψ=Delete[λ\[Transpose][[j]],{{i},{j}}],Ξ=If[Length@L==2,{{}},Delete[Delete[λ,{{i},{j}}]\[Transpose],{{i},{j}}]\[Transpose]]},Γ[Apart[β ω],Apart@Join[{Join[{γ+((α δ)/β)},ϵ+((δ θ)/β)]},Join[{ϕ+((α ψ)/β)},If[Ξ=={{}},{{}},(Ξ+(({ψ}\[Transpose].{θ})/β))\[Transpose]]]\[Transpose]][[Ordering@S]]\[Transpose][[Ordering@S]]\[Transpose],Union@S]]];
(Subscript[MS, {a__}->c_])@Γ@i__:=Module[{x=(Γ@i/.Table[(Subscript[T, j])->(Subscript[T, c]),{j,{a}}]),j},For[j=1,j<Length@{a},j++,x=(Subscript[R, {a}[[j]],{a}[[j+1]]->If[j+1==Length@{a},c,{a}[[j+1]]]])@x;];x];
(Subscript[MRr, a_,b_]):=Γ[1,(({{1, 1-(Subscript[T, a])}, {0, (Subscript[T, a])}})),{a,b}];
(Subscript[MRl, a_,b_]):=(Subscript[MRr, a,b])/.(Subscript[T, a])->(1/(Subscript[T, a]));
M@K_:=ToR@K/.{(Subscript[Rr, i__]):>(Subscript[MRr, i]),(Subscript[Rl, i__]):>(Subscript[MRl, i])};
ToX@K_:=Module[{x=If[Count[ToR@K,(Subscript[(Rr|Rl), __])]==0,2,2Length@K]},ToR@K/.{(Subscript[Rr, a_,b_]):>(Subscript[X, a,Mod[b,x]+1,Mod[a,x]+1,b]),(Subscript[Rl, a_,b_]):>(Subscript[X, a,b,Mod[a,x]+1,Mod[b,x]+1])}];
ToR@K_:=K//.{Rr@i__:>(Subscript[Rr, i]),Rl@i__:>(Subscript[Rl, i]),X@i__:>(Subscript[X, i]),(Subscript[X, i_,j_,k_,l_]):>If[(j==l+1||j==1&&l≠2||k==l)&&j≠k,(Subscript[Rr, i,l]),(Subscript[Rl, i,j])]};
MA@K_:=Module[{q=Apart@Module[{p=Module[{x=If[MatrixQ@K,K,MΓ@K]},If[Length@x==2&&Length@x[[1]]==2,x[[1]][[1]]/.(Subscript[T, _])->t,0]]},p (t^((Exponent[p,(1/t)]-Exponent[p,t])/2))]},If[IntegerQ[q/.t->1]&&PolynomialQ[q/.(t^(i_Integer))->t,t],q If[Sign@Coefficient[q,t,0]≥0,1,-1],0]];
B@K_:=(Subscript[S, Module[{V={}},ToR@K/.(Subscript[(Rr|Rl), a__]):>(V=Union[V,{a}];);V]->1])@K;
B@Γ[i__,L_]:=(Subscript[S, L->1])@Γ[i,L];
A@K_:=MA@B@ToR@K;
A@(Subscript[X, __]):=1;
A@X[__]:=1;
A@Γ@i__:=MA@B@Γ@i;
A@0:=0;
J@K_:=Module[{p=Apart[((t^((3/4)(Count[ToR@K,(Subscript[Rr, __])]-Count[ToR@K,(Subscript[Rl, __])])))/((t^(1/2))+(1/(t^(1/2)))))Module[{V={}},Module[{k=ToX@K,r=(Subscript[X, i_,j_,k_,l_]):>(V=Union[V,{i,j,k,l}];((P[i,j]P[k,l])/(t^(1/4)))+(t^(1/4))P[i,l]P[j,k])},Module[{x=(k[[1]]/.r)(k/(k[[1]]))},Do[x=Module[{v=x[[1]]x[[1+Ordering[Length[Complement[#,V]]&/@Module[{S={}},AppendTo[S,List@@#[[2;;]]];&/@x[[2;;]];S]][[1]]]]},Expand[v/.r](x/v)],{Length@x-2}];Expand[x/.r]]]]]},If[IntegerQ[p/.{t->1,P@__->∞}]&&PolynomialQ[p/.(t^(i_Integer))->t,t],If[Sign@Coefficient[p,t,0]≥0,1,-1]p/.t->(t^(If[Sign@Differences[Module[{i=0},While[!PolynomialQ[Apart[# (t^i)],t],i++];i]&/@{p,p/.t->(1/t)}][[1]]≥0,1,-1])),0]];
J@(Subscript[X, __]):=1;
J@X[__]:=1;
J@0:=0;
K@(Subscript[_, _])=0;
V:=Prepend[Module[{R={(Subscript[6, 1]),(Subscript[8, 8]),(Subscript[8, 9]),(Subscript[8, 20]),(*(Subscript[9, 27]),*)(Subscript[9, 41]),(Subscript[9, 46]),(Subscript[10, 3]),(Subscript[10, 22]),(Subscript[10, 35]),(*(Subscript[10, 42]),*)(Subscript[10, 48]),(*(Subscript[10, 75]),*)(Subscript[10, 87]),(*(Subscript[10, 99]),*)(Subscript[10, 123]),(Subscript[10, 129]),(Subscript[10, 137]),(Subscript[10, 140]),(Subscript[10, 153]),(Subscript[10, 155])}},{#,KnotData[List@@#,"AlexanderPolynomial"]@t===A@K@#,MemberQ[Table[KnotData[List@@#,"JonesPolynomial"]@i,{i,{t,(1/t)}}],J@K@#]}&/@R],{"","Alexander","Jones"}]\[Transpose];

K@(Subscript[6, 1])=(Subscript[X, 1,8,2,9])(Subscript[X, 4,16,5,15])(Subscript[X, 5,2,6,3])(Subscript[X, 6,12,7,11])(Subscript[X, 9,16,10,1])(Subscript[X, 12,8,13,7])(Subscript[X, 13,10,14,11])(Subscript[X, 14,4,15,3]);
K@(Subscript[8, 8])=(Subscript[X, 1,14,2,15])(Subscript[X, 3,26,4,27])(Subscript[X, 6,16,7,15])(Subscript[X, 8,30,9,29])(Subscript[X, 9,20,10,21])(Subscript[X, 10,6,11,5])(Subscript[X, 11,2,12,3])(Subscript[X, 12,24,13,23])(Subscript[X, 17,30,18,31])(Subscript[X, 19,16,20,17])(Subscript[X, 22,26,23,25])(Subscript[X, 24,14,25,13])(Subscript[X, 27,4,28,5])(Subscript[X, 28,22,29,21])(Subscript[X, 31,18,32,19])(Subscript[X, 32,8,1,7]);
K@(Subscript[8, 9])=(Subscript[X, 1,27,2,26])(Subscript[X, 2,12,3,11])(Subscript[X, 4,27,5,28])(Subscript[X, 7,16,8,17])(Subscript[X, 8,31,9,32])(Subscript[X, 12,4,13,3])(Subscript[X, 13,24,14,25])(Subscript[X, 14,22,15,21])(Subscript[X, 15,6,16,7])(Subscript[X, 19,33,20,32])(Subscript[X, 20,18,21,17])(Subscript[X, 23,29,24,28])(Subscript[X, 25,10,26,11])(Subscript[X, 29,23,30,22])(Subscript[X, 30,5,31,6])(Subscript[X, 33,19,34,18])(Subscript[X, 34,9,1,10]);
K@(Subscript[8, 20])=(Subscript[X, 2,15,3,16])(Subscript[X, 3,10,4,11])(Subscript[X, 5,18,6,19])(Subscript[X, 7,4,8,5])(Subscript[X, 8,14,9,13])(Subscript[X, 12,18,13,17])(Subscript[X, 14,10,15,9])(Subscript[X, 16,1,17,2])(Subscript[X, 19,6,20,7])(Subscript[X, 20,12,1,11]);(*K@(Subscript[9, 27])=(Subscript[X, 5,21,6,20])(Subscript[X, 7,4,8,5])(Subscript[X, 10,29,11,30])(Subscript[X, 12,48,13,47])(Subscript[X, 13,27,14,26])(Subscript[X, 16,2,17,1])(Subscript[X, 17,31,18,30])(Subscript[X, 18,41,19,42])(Subscript[X, 19,7,20,6])(Subscript[X, 22,9,23,10])(Subscript[X, 23,39,24,38])(Subscript[X, 24,33,25,34])(Subscript[X, 25,15,26,14])(Subscript[X, 31,2,32,3])(Subscript[X, 34,27,35,28])(Subscript[X, 35,48,36,49])(Subscript[X, 37,29,38,28])(Subscript[X, 40,4,41,3])(Subscript[X, 42,21,43,22])(Subscript[X, 43,8,44,9])(Subscript[X, 44,40,45,39])(Subscript[X, 45,32,46,33])(Subscript[X, 46,16,47,15])(Subscript[X, 49,36,50,37])(Subscript[X, 50,12,1,11]);*)
(*K@(Subscript[9, 27])=(Subscript[X, 1,14,2,15])(Subscript[X, 3,21,4,20])(Subscript[X, 5,10,6,11])(Subscript[X, 8,13,9,14])(Subscript[X, 9,17,10,16])(Subscript[X, 11,6,12,7])(Subscript[X, 12,17,13,18])(Subscript[X, 15,2,16,3])(Subscript[X, 18,8,19,7])(Subscript[X, 19,1,20,22])(Subscript[X, 21,5,22,4]);*)
K@(Subscript[9, 41])=(Subscript[X, 2,18,3,17])(Subscript[X, 3,42,4,43])(Subscript[X, 6,14,7,13])(Subscript[X, 8,40,9,39])(Subscript[X, 9,20,10,21])(Subscript[X, 11,38,12,39])(Subscript[X, 15,32,16,33])(Subscript[X, 16,6,17,5])(Subscript[X, 21,10,22,11])(Subscript[X, 22,28,23,27])(Subscript[X, 23,36,24,37])(Subscript[X, 24,2,25,1])(Subscript[X, 26,38,27,37])(Subscript[X, 28,20,29,19])(Subscript[X, 29,40,30,41])(Subscript[X, 31,14,32,15])(Subscript[X, 34,42,35,41])(Subscript[X, 35,18,36,19])(Subscript[X, 43,4,44,5])(Subscript[X, 44,34,45,33])(Subscript[X, 45,30,46,31])(Subscript[X, 46,8,47,7])(Subscript[X, 47,12,48,13])(Subscript[X, 48,26,1,25]);
K@(Subscript[9, 46])=(Subscript[X, 3,18,4,19])(Subscript[X, 4,8,5,7])(Subscript[X, 5,12,6,13])(Subscript[X, 8,2,9,1])(Subscript[X, 10,15,11,16])(Subscript[X, 13,6,14,7])(Subscript[X, 14,20,15,19])(Subscript[X, 16,9,17,10])(Subscript[X, 17,2,18,3])(Subscript[X, 20,12,1,11]);
K@(Subscript[10, 3])=(Subscript[X, 2,31,3,32])(Subscript[X, 4,29,5,30])(Subscript[X, 5,20,6,21])(Subscript[X, 8,36,9,35])(Subscript[X, 9,16,10,17])(Subscript[X, 12,40,13,39])(Subscript[X, 13,10,14,11])(Subscript[X, 14,24,15,23])(Subscript[X, 17,6,18,7])(Subscript[X, 18,28,19,27])(Subscript[X, 21,40,22,1])(Subscript[X, 24,16,25,15])(Subscript[X, 25,36,26,37])(Subscript[X, 28,20,29,19])(Subscript[X, 30,3,31,4])(Subscript[X, 32,1,33,2])(Subscript[X, 33,26,34,27])(Subscript[X, 34,8,35,7])(Subscript[X, 37,22,38,23])(Subscript[X, 38,12,39,11]);
K@(Subscript[10, 22])=(Subscript[X, 1,24,2,25])(Subscript[X, 2,46,3,45])(Subscript[X, 9,20,10,21])(Subscript[X, 10,50,11,49])(Subscript[X, 11,28,12,29])(Subscript[X, 12,42,13,41])(Subscript[X, 16,6,17,5])(Subscript[X, 18,32,19,31])(Subscript[X, 19,8,20,9])(Subscript[X, 21,30,22,31])(Subscript[X, 23,4,24,5])(Subscript[X, 26,40,27,39])(Subscript[X, 27,14,28,15])(Subscript[X, 33,52,34,53])(Subscript[X, 34,18,35,17])(Subscript[X, 35,22,36,23])(Subscript[X, 36,48,37,47])(Subscript[X, 37,44,38,45])(Subscript[X, 38,26,39,25])(Subscript[X, 42,14,43,13])(Subscript[X, 43,40,44,41])(Subscript[X, 46,4,47,3])(Subscript[X, 48,30,49,29])(Subscript[X, 50,8,51,7])(Subscript[X, 51,32,52,33])(Subscript[X, 53,6,54,7])(Subscript[X, 54,16,1,15]);
K@(Subscript[10, 35])=(Subscript[X, 3,24,4,25])(Subscript[X, 4,38,5,37])(Subscript[X, 7,42,8,43])(Subscript[X, 8,20,9,19])(Subscript[X, 9,16,10,17])(Subscript[X, 10,46,11,45])(Subscript[X, 14,30,15,29])(Subscript[X, 15,12,16,13])(Subscript[X, 17,32,18,33])(Subscript[X, 20,2,21,1])(Subscript[X, 22,36,23,35])(Subscript[X, 23,6,24,7])(Subscript[X, 25,40,26,41])(Subscript[X, 26,22,27,21])(Subscript[X, 27,48,28,1])(Subscript[X, 28,14,29,13])(Subscript[X, 33,18,34,19])(Subscript[X, 34,44,35,43])(Subscript[X, 38,6,39,5])(Subscript[X, 39,36,40,37])(Subscript[X, 41,2,42,3])(Subscript[X, 44,32,45,31])(Subscript[X, 46,12,47,11])(Subscript[X, 47,30,48,31]);
(*K@(Subscript[10, 42])=(Subscript[X, 1,16,2,17])(Subscript[X, 2,50,3,49])(Subscript[X, 3,63,4,62])(Subscript[X, 5,61,6,60])(Subscript[X, 7,59,8,58])(Subscript[X, 9,36,10,37])(Subscript[X, 12,66,13,65])(Subscript[X, 14,30,15,29])(Subscript[X, 15,68,16,69])(Subscript[X, 17,38,18,39])(Subscript[X, 19,70,20,71])(Subscript[X, 22,40,23,39])(Subscript[X, 24,74,25,73])(Subscript[X, 25,44,26,45])(Subscript[X, 26,22,27,21])(Subscript[X, 27,18,28,19])(Subscript[X, 28,48,29,47])(Subscript[X, 31,52,32,53])(Subscript[X, 32,14,33,13])(Subscript[X, 33,10,34,11])(Subscript[X, 34,56,35,55])(Subscript[X, 41,74,42,75])(Subscript[X, 43,40,44,41])(Subscript[X, 46,70,47,69])(Subscript[X, 48,38,49,37])(Subscript[X, 50,68,51,67])(Subscript[X, 51,30,52,31])(Subscript[X, 53,66,54,67])(Subscript[X, 56,36,57,35])(Subscript[X, 57,9,58,8])(Subscript[X, 59,7,60,6])(Subscript[X, 61,5,62,4])(Subscript[X, 63,54,64,55])(Subscript[X, 64,12,65,11])(Subscript[X, 71,20,72,21])(Subscript[X, 72,46,73,45])(Subscript[X, 75,42,76,43])(Subscript[X, 76,24,1,23]);*)
(*K@(Subscript[10, 42])=(Subscript[X, 1,19,2,18])(Subscript[X, 4,24,5,23])(Subscript[X, 6,22,7,21])(Subscript[X, 7,10,8,11])(Subscript[X, 9,17,10,16])(Subscript[X, 12,3,13,4])(Subscript[X, 13,1,14,28])(Subscript[X, 15,26,16,27])(Subscript[X, 17,9,18,8])(Subscript[X, 19,3,20,2])(Subscript[X, 20,12,21,11])(Subscript[X, 22,6,23,5])(Subscript[X, 25,14,26,15])(Subscript[X, 27,24,28,25]);*)
K@(Subscript[10, 48])=(Subscript[X, 2,22,3,21])(Subscript[X, 5,1,6,50])(Subscript[X, 7,16,8,17])(Subscript[X, 8,47,9,48])(Subscript[X, 11,14,12,15])(Subscript[X, 12,45,13,46])(Subscript[X, 18,34,19,33])(Subscript[X, 19,6,20,7])(Subscript[X, 22,4,23,3])(Subscript[X, 23,36,24,37])(Subscript[X, 24,30,25,29])(Subscript[X, 25,10,26,11])(Subscript[X, 27,47,28,46])(Subscript[X, 28,16,29,15])(Subscript[X, 31,49,32,48])(Subscript[X, 32,18,33,17])(Subscript[X, 34,49,35,50])(Subscript[X, 37,20,38,21])(Subscript[X, 38,1,39,2])(Subscript[X, 39,5,40,4])(Subscript[X, 40,35,41,36])(Subscript[X, 41,31,42,30])(Subscript[X, 42,9,43,10])(Subscript[X, 43,27,44,26])(Subscript[X, 44,13,45,14]);
(*K@(Subscript[10, 75])=(Subscript[X, 2,30,3,29])(Subscript[X, 4,52,5,51])(Subscript[X, 5,28,6,29])(Subscript[X, 8,56,9,55])(Subscript[X, 10,22,11,21])(Subscript[X, 11,58,12,59])(Subscript[X, 13,20,14,21])(Subscript[X, 16,64,17,63])(Subscript[X, 17,14,18,15])(Subscript[X, 18,36,19,35])(Subscript[X, 23,40,24,41])(Subscript[X, 24,10,25,9])(Subscript[X, 25,6,26,7])(Subscript[X, 26,44,27,43])(Subscript[X, 31,48,32,49])(Subscript[X, 32,2,33,1])(Subscript[X, 33,64,34,1])(Subscript[X, 36,20,37,19])(Subscript[X, 38,58,39,57])(Subscript[X, 39,22,40,23])(Subscript[X, 41,56,42,57])(Subscript[X, 44,28,45,27])(Subscript[X, 45,52,46,53])(Subscript[X, 47,30,48,31])(Subscript[X, 49,46,50,47])(Subscript[X, 50,4,51,3])(Subscript[X, 53,42,54,43])(Subscript[X, 54,8,55,7])(Subscript[X, 59,12,60,13])(Subscript[X, 60,38,61,37])(Subscript[X, 61,34,62,35])(Subscript[X, 62,16,63,15]);*)
(*K@(Subscript[10, 75])=(Subscript[X, 2,24,3,23])(Subscript[X, 4,30,5,29])(Subscript[X, 5,34,6,35])(Subscript[X, 7,37,8,36])(Subscript[X, 8,16,9,15])(Subscript[X, 10,31,11,32])(Subscript[X, 11,27,12,26])(Subscript[X, 13,20,14,21])(Subscript[X, 16,34,17,33])(Subscript[X, 17,30,18,31])(Subscript[X, 19,24,20,25])(Subscript[X, 21,14,22,15])(Subscript[X, 22,2,23,1])(Subscript[X, 25,13,26,12])(Subscript[X, 27,18,28,19])(Subscript[X, 28,4,29,3])(Subscript[X, 32,9,33,10])(Subscript[X, 35,38,36,1])(Subscript[X, 37,7,38,6]);*)
K@(Subscript[10, 87])=(Subscript[X, 1,55,2,54])(Subscript[X, 2,25,3,26])(Subscript[X, 4,59,5,60])(Subscript[X, 6,35,7,36])(Subscript[X, 9,59,10,58])(Subscript[X, 11,25,12,24])(Subscript[X, 12,55,13,56])(Subscript[X, 15,31,16,30])(Subscript[X, 17,1,18,70])(Subscript[X, 18,27,19,28])(Subscript[X, 19,53,20,52])(Subscript[X, 20,3,21,4])(Subscript[X, 21,11,22,10])(Subscript[X, 22,45,23,46])(Subscript[X, 31,15,32,14])(Subscript[X, 32,41,33,42])(Subscript[X, 33,49,34,48])(Subscript[X, 34,7,35,8])(Subscript[X, 37,29,38,28])(Subscript[X, 38,69,39,70])(Subscript[X, 40,29,41,30])(Subscript[X, 43,57,44,56])(Subscript[X, 44,23,45,24])(Subscript[X, 46,57,47,58])(Subscript[X, 49,37,50,36])(Subscript[X, 51,61,52,60])(Subscript[X, 53,27,54,26])(Subscript[X, 61,51,62,50])(Subscript[X, 62,5,63,6])(Subscript[X, 63,9,64,8])(Subscript[X, 64,47,65,48])(Subscript[X, 65,43,66,42])(Subscript[X, 66,13,67,14])(Subscript[X, 67,17,68,16])(Subscript[X, 68,39,69,40]);
(*K@(Subscript[10, 99])=(Subscript[X, 1,26,2,27])(Subscript[X, 3,30,4,31])(Subscript[X, 4,24,5,23])(Subscript[X, 5,58,6,59])(Subscript[X, 7,22,8,23])(Subscript[X, 10,72,11,71])(Subscript[X, 12,38,13,37])(Subscript[X, 13,66,14,67])(Subscript[X, 15,36,16,37])(Subscript[X, 17,70,18,71])(Subscript[X, 19,8,20,9])(Subscript[X, 20,50,21,49])(Subscript[X, 27,2,28,3])(Subscript[X, 28,56,29,55])(Subscript[X, 31,46,32,47])(Subscript[X, 32,12,33,11])(Subscript[X, 33,16,34,17])(Subscript[X, 34,42,35,41])(Subscript[X, 40,70,41,69])(Subscript[X, 42,36,43,35])(Subscript[X, 44,66,45,65])(Subscript[X, 45,38,46,39])(Subscript[X, 47,72,48,1])(Subscript[X, 50,22,51,21])(Subscript[X, 52,58,53,57])(Subscript[X, 53,24,54,25])(Subscript[X, 54,30,55,29])(Subscript[X, 56,26,57,25])(Subscript[X, 59,6,60,7])(Subscript[X, 60,52,61,51])(Subscript[X, 61,48,62,49])(Subscript[X, 62,10,63,9])(Subscript[X, 63,18,64,19])(Subscript[X, 64,40,65,39])(Subscript[X, 67,14,68,15])(Subscript[X, 68,44,69,43]);*)
(*K@(Subscript[10, 99])=(Subscript[X, 3,16,4,17])(Subscript[X, 4,28,5,27])(Subscript[X, 6,26,7,25])(Subscript[X, 10,19,11,20])(Subscript[X, 12,31,13,32])(Subscript[X, 13,22,14,23])(Subscript[X, 15,2,16,3])(Subscript[X, 17,14,18,15])(Subscript[X, 18,30,19,29])(Subscript[X, 20,11,21,12])(Subscript[X, 23,8,24,9])(Subscript[X, 24,6,25,5])(Subscript[X, 26,8,27,7])(Subscript[X, 28,2,29,1])(Subscript[X, 30,22,31,21])(Subscript[X, 32,9,1,10]);*)
K@(Subscript[10, 123])=(Subscript[X, 2,71,3,72])(Subscript[X, 3,28,4,29])(Subscript[X, 8,80,9,79])(Subscript[X, 10,5,11,6])(Subscript[X, 11,69,12,68])(Subscript[X, 12,46,13,45])(Subscript[X, 14,82,15,81])(Subscript[X, 15,40,16,41])(Subscript[X, 17,88,18,89])(Subscript[X, 20,30,21,29])(Subscript[X, 22,86,23,85])(Subscript[X, 24,38,25,37])(Subscript[X, 25,84,26,85])(Subscript[X, 31,54,32,55])(Subscript[X, 32,20,33,19])(Subscript[X, 33,16,34,17])(Subscript[X, 34,58,35,57])(Subscript[X, 35,50,36,51])(Subscript[X, 36,24,37,23])(Subscript[X, 41,64,42,65])(Subscript[X, 42,10,43,9])(Subscript[X, 43,6,44,7])(Subscript[X, 44,68,45,67])(Subscript[X, 48,84,49,83])(Subscript[X, 49,38,50,39])(Subscript[X, 51,86,52,87])(Subscript[X, 53,30,54,31])(Subscript[X, 56,88,57,87])(Subscript[X, 58,40,59,39])(Subscript[X, 59,82,60,83])(Subscript[X, 61,46,62,47])(Subscript[X, 62,69,63,70])(Subscript[X, 63,5,64,4])(Subscript[X, 65,80,66,81])(Subscript[X, 70,28,71,27])(Subscript[X, 72,1,73,2])(Subscript[X, 73,26,74,27])(Subscript[X, 74,48,75,47])(Subscript[X, 75,60,76,61])(Subscript[X, 76,14,77,13])(Subscript[X, 77,66,78,67])(Subscript[X, 78,8,79,7])(Subscript[X, 89,18,90,19])(Subscript[X, 90,56,91,55])(Subscript[X, 91,52,92,53])(Subscript[X, 92,22,1,21]);
K@(Subscript[10, 129])=(Subscript[X, 2,27,3,28])(Subscript[X, 3,18,4,19])(Subscript[X, 6,32,7,31])(Subscript[X, 7,14,8,15])(Subscript[X, 9,34,10,35])(Subscript[X, 11,8,12,9])(Subscript[X, 12,22,13,21])(Subscript[X, 15,4,16,5])(Subscript[X, 16,26,17,25])(Subscript[X, 20,34,21,33])(Subscript[X, 22,14,23,13])(Subscript[X, 23,32,24,33])(Subscript[X, 26,18,27,17])(Subscript[X, 28,1,29,2])(Subscript[X, 29,24,30,25])(Subscript[X, 30,6,31,5])(Subscript[X, 35,10,36,11])(Subscript[X, 36,20,1,19]);
K@(Subscript[10, 137])=(Subscript[X, 2,27,3,28])(Subscript[X, 3,18,4,19])(Subscript[X, 6,32,7,31])(Subscript[X, 8,12,9,11])(Subscript[X, 9,34,10,35])(Subscript[X, 13,22,14,23])(Subscript[X, 14,8,15,7])(Subscript[X, 15,4,16,5])(Subscript[X, 16,26,17,25])(Subscript[X, 20,34,21,33])(Subscript[X, 21,12,22,13])(Subscript[X, 23,32,24,33])(Subscript[X, 26,18,27,17])(Subscript[X, 28,1,29,2])(Subscript[X, 29,24,30,25])(Subscript[X, 30,6,31,5])(Subscript[X, 35,10,36,11])(Subscript[X, 36,20,1,19]);
K@(Subscript[10, 140])=(Subscript[X, 1,19,2,18])(Subscript[X, 3,17,4,16])(Subscript[X, 4,10,5,9])(Subscript[X, 7,1,8,22])(Subscript[X, 10,6,11,5])(Subscript[X, 11,14,12,15])(Subscript[X, 12,21,13,22])(Subscript[X, 15,8,16,9])(Subscript[X, 17,3,18,2])(Subscript[X, 19,7,20,6])(Subscript[X, 20,13,21,14]);
K@(Subscript[10, 153])=(Subscript[X, 1,14,2,15])(Subscript[X, 3,10,4,11])(Subscript[X, 5,22,6,23])(Subscript[X, 7,4,8,5])(Subscript[X, 8,18,9,17])(Subscript[X, 11,2,12,3])(Subscript[X, 12,20,13,19])(Subscript[X, 16,22,17,21])(Subscript[X, 18,10,19,9])(Subscript[X, 20,14,21,13])(Subscript[X, 23,6,24,7])(Subscript[X, 24,16,1,15]);
K@(Subscript[10, 155])=(Subscript[X, 1,29,2,28])(Subscript[X, 3,16,4,17])(Subscript[X, 6,32,7,31])(Subscript[X, 8,18,9,17])(Subscript[X, 10,34,11,33])(Subscript[X, 11,22,12,23])(Subscript[X, 12,8,13,7])(Subscript[X, 13,4,14,5])(Subscript[X, 14,26,15,25])(Subscript[X, 19,34,20,35])(Subscript[X, 21,18,22,19])(Subscript[X, 23,32,24,33])(Subscript[X, 26,16,27,15])(Subscript[X, 27,3,28,2])(Subscript[X, 29,24,30,25])(Subscript[X, 30,6,31,5])(Subscript[X, 35,20,36,21])(Subscript[X, 36,10,1,9]);