K@(Subscript[6, 1])=(Subscript[X, 1,7,2,6])(Subscript[X, 2,9,3,10])(Subscript[X, 4,11,5,12])(Subscript[X, 7,1,8,14])(Subscript[X, 10,5,11,6])(Subscript[X, 12,3,13,4])(Subscript[X, 13,9,14,8]);
T@(Subscript[6, 1])={{1,2,3,4,5,6,7},{10, 9, 8},{11,12,13,14},{}};
K@(Subscript[8, 8])=(Subscript[X, 1,9,2,8])(Subscript[X, 3,1,4,18])(Subscript[X, 5,11,6,10])(Subscript[X, 6,13,7,14])(Subscript[X, 9,3,10,2])(Subscript[X, 12,15,13,16])(Subscript[X, 14,7,15,8])(Subscript[X, 16,11,17,12])(Subscript[X, 17,5,18,4]);
T@(Subscript[8, 8])={{1,2,3},{14,13,12,11,10,9,8,7,6,5,4},{15,16,17,18},{}};
K@(Subscript[8, 9])=(Subscript[X, 1,8,2,9])(Subscript[X, 3,11,4,10])(Subscript[X, 6,19,7,20])(Subscript[X, 9,16,10,17])(Subscript[X, 11,19,12,18])(Subscript[X, 12,6,13,5])(Subscript[X, 14,7,15,8])(Subscript[X, 15,3,16,2])(Subscript[X, 17,4,18,5])(Subscript[X, 20,14,1,13]);
T@(Subscript[8, 9])={{1,2,3,4},{8,7,6,5},{9,10,11,12},{20,19,18,17,16,15,14,13}};
K@(Subscript[8, 20])=(Subscript[X, 1,6,2,7])(Subscript[X, 2,11,3,12])(Subscript[X, 5,16,6,1])(Subscript[X, 8,14,9,13])(Subscript[X, 10,3,11,4])(Subscript[X, 12,8,13,7])(Subscript[X, 14,10,15,9])(Subscript[X, 15,4,16,5]);
T@(Subscript[8, 20])={{1,2,3,4},{12,11,10,9,8,7,6,5},{13,14,15,16},{}};
K@(Subscript[9, 27])=(Subscript[X, 2,24,3,23])(Subscript[X, 5,20,6,21])(Subscript[X, 7,15,8,14])(Subscript[X, 8,1,9,2])(Subscript[X, 10,20,11,19])(Subscript[X, 11,5,12,4])(Subscript[X, 13,16,14,17])(Subscript[X, 15,7,16,6])(Subscript[X, 18,3,19,4])(Subscript[X, 21,13,22,12])(Subscript[X, 22,17,23,18])(Subscript[X, 24,9,1,10]);
T@(Subscript[9, 27])={{1,2,3,4,5,6,7,8,9},{14,13,12,11,10},{15,16,17,18,19},{24,23,22,21,20}};
K@(Subscript[9, 41])=(Subscript[X, 2,17,3,18])(Subscript[X, 3,21,4,20])(Subscript[X, 6,13,7,14])(Subscript[X, 7,24,8,25])(Subscript[X, 9,19,10,18])(Subscript[X, 10,1,11,2])(Subscript[X, 12,24,13,23])(Subscript[X, 14,5,15,6])(Subscript[X, 16,27,17,28])(Subscript[X, 19,9,20,8])(Subscript[X, 21,27,22,26])(Subscript[X, 22,16,23,15])(Subscript[X, 25,4,26,5])(Subscript[X, 28,11,1,12]);
T@(Subscript[9, 41])={{1,2,3,4,5,6,7,8,9,10,11},{18,17,16,15,14,13,12},{19,20,21,22,23},{28,27,26,25,24}};
K@(Subscript[9, 46])=(Subscript[X, 1,9,2,8])(Subscript[X, 2,13,3,14])(Subscript[X, 4,11,5,12])(Subscript[X, 6,15,7,16])(Subscript[X, 9,1,10,18])(Subscript[X, 12,3,13,4])(Subscript[X, 14,7,15,8])(Subscript[X, 16,5,17,6])(Subscript[X, 17,11,18,10]);
T@(Subscript[9, 46])={{1,2,3,4,5,6,7,8,9},{14,13,12,11,10},{15,16,17,18},{}};
K@(Subscript[10, 3])=(Subscript[X, 2,11,3,12])(Subscript[X, 3,16,4,17])(Subscript[X, 5,14,6,15])(Subscript[X, 8,22,9,21])(Subscript[X, 10,20,11,19])(Subscript[X, 13,6,14,7])(Subscript[X, 15,4,16,5])(Subscript[X, 17,13,18,12])(Subscript[X, 18,1,19,2])(Subscript[X, 20,10,21,9])(Subscript[X, 22,8,1,7]);
T@(Subscript[10, 3])={{1,2,3,4,5,6},{12,11,10,9,8,7},{13,14,15,16,17,18,19,20,21,22},{}};
K@(Subscript[10, 22])=(Subscript[X, 2,12,3,11])(Subscript[X, 5,18,6,19])(Subscript[X, 7,16,8,17])(Subscript[X, 9,5,10,4])(Subscript[X, 12,22,13,21])(Subscript[X, 14,2,15,1])(Subscript[X, 15,6,16,7])(Subscript[X, 17,8,18,9])(Subscript[X, 19,11,20,10])(Subscript[X, 20,3,21,4])(Subscript[X, 22,14,1,13]);
T@(Subscript[10, 22])={{1,2,3},{6,5,4},{7,8,9,10,11,12,13,14,15,16,17,18,19,20},{22,21}};
K@(Subscript[10, 35])=(Subscript[X, 2,11,3,12])(Subscript[X, 3,1,4,26])(Subscript[X, 5,25,6,24])(Subscript[X, 9,19,10,18])(Subscript[X, 10,1,11,2])(Subscript[X, 7,13,8,12])(Subscript[X, 14,21,15,22])(Subscript[X, 16,19,17,20])(Subscript[X, 17,9,18,8])(Subscript[X, 20,15,21,16])(Subscript[X, 22,13,23,14])(Subscript[X, 23,7,24,6])(Subscript[X, 25,5,26,4]);
T@(Subscript[10, 35])={{1,2,3,4,5},{18,17,16,15,14,13,12,11,10,9,8,7,6},{19,20,21,22},{26,25,24,23}};
K@(Subscript[10, 42])=(Subscript[X, 2,28,3,27])(Subscript[X, 4,9,5,10])(Subscript[X, 5,24,6,25])(Subscript[X, 8,18,9,17])(Subscript[X, 11,14,12,15])(Subscript[X, 13,22,14,23])(Subscript[X, 15,27,16,26])(Subscript[X, 16,3,17,4])(Subscript[X, 18,8,19,7])(Subscript[X, 20,2,21,1])(Subscript[X, 21,12,22,13])(Subscript[X, 23,6,24,7])(Subscript[X, 25,11,26,10])(Subscript[X, 28,20,1,19]);
T@(Subscript[10, 42])={{1,2,3,4,5,6},{12,11,10,9,8,7},{13,14,15,16,17,18},{28,27,26,25,24,23,22,21,20,19}};
K@(Subscript[10, 48])=(Subscript[X, 3,13,4,12])(Subscript[X, 4,22,5,21])(Subscript[X, 6,24,7,23])(Subscript[X, 8,13,9,14])(Subscript[X, 10,19,11,20])(Subscript[X, 11,3,12,2])(Subscript[X, 15,26,16,27])(Subscript[X, 17,28,18,1])(Subscript[X, 18,9,19,10])(Subscript[X, 20,2,21,1])(Subscript[X, 22,6,23,5])(Subscript[X, 24,8,25,7])(Subscript[X, 25,14,26,15])(Subscript[X, 27,16,28,17]);
T@(Subscript[10, 48])={{1,2,3,4,5,6,7,8,9,10,11,12,13,14},{20,19,18,17,16,15},{21,22,23,24},{28,27,26,25}};
K@(Subscript[10, 75])=(Subscript[X, 2,30,3,29])(Subscript[X, 4,9,5,10])(Subscript[X, 5,26,6,27])(Subscript[X, 8,18,9,17])(Subscript[X, 11,14,12,15])(Subscript[X, 13,21,14,20])(Subscript[X, 15,29,16,28])(Subscript[X, 16,3,17,4])(Subscript[X, 19,7,20,6])(Subscript[X, 21,13,22,12])(Subscript[X, 22,1,23,2])(Subscript[X, 24,7,25,8])(Subscript[X, 25,19,26,18])(Subscript[X, 27,11,28,10])(Subscript[X, 30,23,1,24]);
T@(Subscript[10, 75])={{1,2,3,4,5,6},{12,11,10,9,8,7},{13,14,15,16,17,18,19,20,21,22,23},{30,29,28,27,26,25,24}};
K@(Subscript[10, 87])=(Subscript[X, 3,17,4,16])(Subscript[X, 5,11,6,10])(Subscript[X, 6,19,7,20])(Subscript[X, 9,27,10,26])(Subscript[X, 12,29,13,30])(Subscript[X, 13,3,14,2])(Subscript[X, 15,24,16,25])(Subscript[X, 18,12,19,11])(Subscript[X, 20,7,21,8])(Subscript[X, 22,2,23,1])(Subscript[X, 23,14,24,15])(Subscript[X, 25,9,26,8])(Subscript[X, 27,4,28,5])(Subscript[X, 28,17,29,18])(Subscript[X, 30,22,1,21]);
T@(Subscript[10, 87])={{1,2,3,4,5,6,7},{14,13,12,11,10,9,8},{15,16,17,18,19,20},{30,29,28,27,26,25,24,23,22,21}};
K@(Subscript[10, 99])=(Subscript[X, 1,26,2,27])(Subscript[X, 3,12,4,13])(Subscript[X, 6,31,7,32])(Subscript[X, 10,20,11,19])(Subscript[X, 11,2,12,3])(Subscript[X, 13,8,14,9])(Subscript[X, 15,23,16,22])(Subscript[X, 18,10,19,9])(Subscript[X, 20,28,21,27])(Subscript[X, 21,17,22,16])(Subscript[X, 24,8,25,7])(Subscript[X, 25,4,26,5])(Subscript[X, 28,18,29,17])(Subscript[X, 29,14,30,15])(Subscript[X, 30,24,31,23])(Subscript[X, 32,5,1,6]);
T@(Subscript[10, 99])={{1,2,3,4,5},{20,19,18,17,16,15,14,13,12,11,10,9,8,7,6},{21,22,23,24,25,26,27,28,29,30},{32,31}};
K@(Subscript[10, 123])=(Subscript[X, 2,25,3,26])(Subscript[X, 3,23,4,22])(Subscript[X, 5,14,6,15])(Subscript[X, 6,19,7,20])(Subscript[X, 8,28,9,27])(Subscript[X, 9,19,10,18])(Subscript[X, 10,1,11,2])(Subscript[X, 11,24,12,25])(Subscript[X, 13,1,14,32])(Subscript[X, 16,29,17,30])(Subscript[X, 17,27,18,26])(Subscript[X, 20,16,21,15])(Subscript[X, 23,12,24,13])(Subscript[X, 28,8,29,7])(Subscript[X, 30,22,31,21])(Subscript[X, 31,4,32,5]);
T@(Subscript[10, 123])={{1,2,3,4,5,6,7,8,9,10,11,12,13},{18,17,16,15,14},{19,20,21,22,23,24,25,26,27,28,29,30,31,32},{}};
K@(Subscript[10, 129])=(Subscript[X, 1,18,2,19])(Subscript[X, 3,11,4,10])(Subscript[X, 5,1,6,22])(Subscript[X, 7,13,8,12])(Subscript[X, 8,15,9,16])(Subscript[X, 11,5,12,4])(Subscript[X, 14,19,15,20])(Subscript[X, 16,9,17,10])(Subscript[X, 17,2,18,3])(Subscript[X, 20,13,21,14])(Subscript[X, 21,7,22,6]);
T@(Subscript[10, 129])={{1,2,3,4,5},{18,17,16,15,14,13,12,11,10,9,8,7,6},{19,20,21,22},{}};
K@(Subscript[10, 137])=(Subscript[X, 2,20,3,19])(Subscript[X, 5,8,6,9])(Subscript[X, 7,13,8,12])(Subscript[X, 10,17,11,18])(Subscript[X, 11,4,12,5])(Subscript[X, 13,7,14,6])(Subscript[X, 14,1,15,2])(Subscript[X, 16,4,17,3])(Subscript[X, 18,9,19,10])(Subscript[X, 20,15,1,16]);
T@(Subscript[10, 137])={{1,2,3},{6,5,4},{7,8,9,10,11,12,13,14,15},{20,19,18,17,16}};
K@(Subscript[10, 140])=(Subscript[X, 1,8,2,9])(Subscript[X, 2,15,3,16])(Subscript[X, 4,13,5,14])(Subscript[X, 7,20,8,1])(Subscript[X, 10,18,11,17])(Subscript[X, 12,5,13,6])(Subscript[X, 14,3,15,4])(Subscript[X, 16,10,17,9])(Subscript[X, 18,12,19,11])(Subscript[X, 19,6,20,7]);
T@(Subscript[10, 140])={{1,2,3,4,5,6},{16,15,14,13,12,11,10,9,8,7},{17,18,19,20},{}};
K@(Subscript[10, 153])=(Subscript[X, 2,22,3,21])(Subscript[X, 3,17,4,16])(Subscript[X, 6,2,7,1])(Subscript[X, 7,12,8,13])(Subscript[X, 10,19,11,20])(Subscript[X, 11,14,12,15])(Subscript[X, 13,8,14,9])(Subscript[X, 17,5,18,4])(Subscript[X, 18,9,19,10])(Subscript[X, 20,15,21,16])(Subscript[X, 22,6,1,5]);
T@(Subscript[10, 153])={{1,2,3,4},{12,11,10,9,8,7,6,5},{13,14,15,16,17},{22,21,20,19,18}};
K@(Subscript[10, 155])=(Subscript[X, 3,11,4,10])(Subscript[X, 6,19,7,20])(Subscript[X, 8,2,9,1])(Subscript[X, 9,16,10,17])(Subscript[X, 11,19,12,18])(Subscript[X, 12,6,13,5])(Subscript[X, 14,7,15,8])(Subscript[X, 15,3,16,2])(Subscript[X, 17,4,18,5])(Subscript[X, 20,14,1,13]);
T@(Subscript[10, 155])={{1,2,3,4},{8,7,6,5},{9,10,11,12},{20,19,18,17,16,15,14,13}};

$PrePrint=If[MatrixQ@#,MatrixForm@#,#]&;
SetAttributes[P,Orderless];
P/:P[i_,j_]P[j_,k_]:=P[i,k];
P/:P[i_,i_]:=-(Sqrt[t])-(1/(Sqrt[t]));
P/:((P[__])^2):=-(Sqrt[t])-(1/(Sqrt[t]));
Γ/:Γ[ω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,S]],Union[L1,L2]]];
MΓ@Γ[ω_,λ_,L_]:=Prepend[Prepend[λ\[Transpose],(Subscript[t, #])&/@L]\[Transpose],Prepend[(Subscript[h, #])&/@L,ω]];
Format@Γ@i__:=MatrixForm@MΓ@Γ@i;
K@(Subscript[_, _])=0;
T@(Subscript[_, _])=0;
PD@K_:=Module[{x=2Length[X K]-2},XS@K/.{(Subscript[Xp, a_,b_]):>(Subscript[X, b,Mod[a,x]+1,Mod[b,x]+1,a]),(Subscript[Xm, a_,b_]):>(Subscript[X, b,a,Mod[b,x]+1,Mod[a,x]+1])}];
XS@K_:=K//.{Xp@i__:>(Subscript[Xp, i]),Xm@i__:>(Subscript[Xm, 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[Xp, l,i]),(Subscript[Xm, j,i])]};
(Subscript[Rr, a_,b_]):=Γ[1,(({{1, 1-(Subscript[T, a])}, {0, (Subscript[T, a])}})),{a,b}];
(Subscript[Rl, a_,b_]):=(Subscript[Rr, a,b])/.(Subscript[T, a])->(1/(Subscript[T, a]));
M@Γ@i__:=Γ@i;
M@K_:=XS@K/.{(Subscript[Xp, i__]):>(Subscript[Rr, i]),(Subscript[Xm, i__]):>(Subscript[Rl, i])};
(Subscript[S, a_->c_])@K_:=(Subscript[S, {a}->c])@K;
(Subscript[S, {a_}->c_])@K_:=K/.(Subscript[T, a]):>(Subscript[T, c]);
(Subscript[S, a_,b_->c_])[Γ[ω_,λ_,L_],f___]:=Module[{i=FirstPosition[L,a][[1]],j=FirstPosition[L,b][[1]],n,o,d,α,β,γ,δ,θ,ϵ,ϕ,ψ,Ξ},n=Prepend[Delete[L,{{i},{j}}],c];o=Ordering@n;d=Delete[Range@Length@L,{{i},{j}}];(({{α, β, θ}, {γ, δ, ϵ}, {ϕ, ψ, Ξ}}))=(({{λ[[i,i]], (1/(1-λ[[i,j]])), λ[[i,d]]}, {λ[[j,i]], λ[[j,j]], λ[[j,d]]}, {λ[[d,i]], λ[[d,j]], λ[[d,d]]}}));Γ[Apart@(ω/β),If[f===BlankNullSequence,Apart,FullSimplify]@Join[{Join[{γ+β α δ},ϵ+β δ θ]},Join[{ϕ+β α ψ},If[Ξ=={},{Ξ},(Ξ+β{ψ}\[Transpose].{θ})\[Transpose]]]\[Transpose]][[o,o]],n[[o]]]/.(Subscript[T, a|b]):>(Subscript[T, c])];
(Subscript[S, a_,b_->c_])@K_:=(Subscript[S, a,b->c])@M@K;
(Subscript[S, {a_,b_,l___}->c_])@Γ@i__:=(Subscript[S, {c,l}->c])@(Subscript[S, a,b->c])[Γ@i/.Table[(Subscript[T, j]):>(Subscript[T, c]),{j,{l}}]];
(Subscript[S, {a_,b_,l___}->c_])@K_:=(Subscript[S, {a,b,l}->c])@M@K;
(Subscript[G, {c_}->c_])@K_:=K;
(Subscript[G, {a_,b_,l___}->c_])@Γ@i__:=(Subscript[G, {c,l}->c])@(Subscript[S, a,b->c])[Γ@i,0];
B@Γ[i__,L_]:=(Subscript[S, L->L[[1]]])@Γ[i,L];
B@(Subscript[i_, j_]):=Module[{l=T@(Subscript[i, j]),r},r=Quiet@(Subscript[S, Join[Reverse@l[[1]],l[[2]]]->"1"])@(Subscript[S, Join[Reverse@l[[3]],l[[4]]]->"2"])@K@(Subscript[i, j]);FullSimplify@If[r[[2]][[1,1]]===Indeterminate,(Subscript[G, Join[Reverse@l[[3]],l[[4]]]->"2"])@(Subscript[G, Join[Reverse@l[[1]],l[[2]]]->"1"])@M@K@(Subscript[i, j]),r]];
B@K_:=(Subscript[S, Union@Flatten[List@@#[[2;;]]&/@(List@@PD[X K])[[2;;]]]->"1"])@K;
A@0=0;
A@(Subscript[i_, j_]):=If[T@(Subscript[i, j])===0,0,Module[{R=MΓ@B@(Subscript[i, j]),p},p=R[[1,1]]/.(Subscript[T, _])->t;If[Length@R==3&&Length@R[[1]]==3&&Apart[p (t^((Exponent[p,(1/t)]-Exponent[p,t])/2))]===1&&R[[2;;,2;;]]===(({{1, 0}, {0, 1}})),1,0]]];
A@K_:=Module[{x=If[MatrixQ@K,K,MΓ@B@K],p,q},p=If[Length@x==2&&Length@x[[1]]==2,x[[1]][[1]]/.(Subscript[T, _])->t,0];q=Apart[p (t^((Exponent[p,(1/t)]-Exponent[p,t])/2))];If[IntegerQ[q/.t->1]&&PolynomialQ[q/.(t^(i_Integer))->t,t],q,0]];
J@0=0;
J@(Subscript[i_, j_]):=Module[{k=PD@K@(Subscript[i, j]),e,l,v},e=T[(Subscript[i, j])];l={e[[1]],Reverse@e[[2]],e[[3]],Reverse@e[[4]]};v={Flatten[l][[1]],Last@Flatten@{l[[3;;]],l[[;;2]]},Flatten[{l[[3;;]],l[[;;2]]}][[1]],Last@Flatten@l};l=l/.{v[[1]]->v[[3]],v[[3]]->v[[1]]};J[k/.(Subscript[X, s__]):>If[Complement[{v[[2]],v[[3]]},{s}]=={},(Subscript[X, s])/.v[[3]]->v[[1]],If[Complement[{v[[1]],v[[4]]},{s}]=={},(Subscript[X, s])/.v[[1]]->v[[3]],(Subscript[X, s])]]//.(Subscript[X, s__]):>If[Complement[{Last@Flatten@{l[[2;;]],l[[1]]},Flatten[{l[[2;;]],l[[1]]}][[1]]},{s}]=={},(Subscript[X, s])/.Flatten[{l[[2;;]],l[[1]]}][[1]]->a,If[Complement[{Last@Flatten@{l[[2;;]],l[[1]]},Flatten[{l[[2;;]],l[[1]]}][[1]]},{s}]=={Last@Flatten@{l[[2;;]],l[[1]]}},(Subscript[X, s])/.Flatten[{l[[2;;]],l[[1]]}][[1]]->b,If[Complement[{Last@Flatten@{l[[4]],l[[;;3]]},Flatten[{l[[4]],l[[;;3]]}][[1]]},{s}]=={},(Subscript[X, s])/.Flatten[{l[[4]],l[[;;3]]}][[1]]->c,If[Complement[{Last@Flatten@{l[[4]],l[[;;3]]},Flatten[{l[[4]],l[[;;3]]}][[1]]},{s}]=={Last@Flatten@{l[[4]],l[[;;3]]}},(Subscript[X, s])/.Flatten[{l[[4]],l[[;;3]]}][[1]]->d,(Subscript[X, s])]]]],Count[XS@k,(Subscript[Xp, __])]-Count[XS@k,(Subscript[Xm, __])]]];
J[K_,f___]:=If[Length[X K]==2,1,Module[{k=If[f===BlankNullSequence,PD,Identity]@K,d={},r,x,v,p},r=(Subscript[X, i_,j_,k_,l_]):>(d=Union[d,{i,j,k,l}];((P[i,j]P[k,l])/(t^(1/4)))+(t^(1/4))P[i,l]P[j,k]);x=((k(k[[1]]/.r))/(k[[1]]));Do[x*=(v=x[[1]]x[[1+Ordering[Length@Complement[#,d]&/@List@@#[[2;;]]&/@List@@(K@(Subscript[6, 1])[[2;;]])][[1]]]];((Expand[v/.r])/v)),{Length@x-2}];p=Apart@FullSimplify[(((t^((3/4)If[f===BlankNullSequence,Count[XS@K,(Subscript[Xp, __])]-Count[XS@K,(Subscript[Xm, __])],f]))Expand[x/.r])/(If[f===BlankNullSequence,(Sqrt[t])+(1/(Sqrt[t])),1]))];If[!(f===BlankNullSequence)||IntegerQ[p/.{t->1,P@__->∞}]&&PolynomialQ[p/.(t^(i_Integer))->t,t],If[Sign@Coefficient[p/.P@__->1,t,0]≥0,1,-1]p,0]]];
V:=Join[{{"Knot Index","Alexander Knot","Jones Knot","Alexander Tangle","Jones Tangle"}},{#,A@K@#===KnotData[List@@#,"AlexanderPolynomial"]@t,J@K@#===KnotData[List@@#,"JonesPolynomial"]@t,A@#==1,J@#==P[a,b]P[c,d]}&/@{(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])}]\[Transpose];

V