SetDirectory["C:\\drorbn\\AcademicPensieve\\2014-07"];
<< "MetaCalculi/MetaCalculi-Program.m"

(Subscript[Ω, 0])[n_Integer] :=  Table[
Which[i<j, 0,i==j,(((1-(Subscript[T, i])))^(-1)),i>j, 1],
{i,n}, {j,n}];

(Subscript[Ω, 0])[3] // MatrixForm

Ω[io___]:= Ω[{io}];
Ω[io_List] /; EvenQ[Length@io] := Module[{n,Ω0, Ω0i},
n=Length[io]/2;
If[io===Join[Range[n],Range[-n,-1]],
Ω0=(Subscript[Ω, 0])[n]; Ω0i=Inverse[Ω0];
Return[Γ[1,0, (∑_(a=1)^n)(∑_(b=1)^n)(Subscript[t, a])(Subscript[h, b])Ω0i[[a,b]]]Γ[1,0, (∑_(a=1)^n)(∑_(b=1)^n)(Subscript[t, -a])(Subscript[h, -b])Ω0[[a,b]]]]
]
]

Ω[1,2,-2,-1]

γ0=Xm[11,1]Xm[5,12]Xp[2,13]Xp[14,6]Xp[7,15]Xm[8,4]Xm[16,9]Xp[3,10] // Γ //dm[1,5,1]//dm[2,6,2]//dm[2,7,2]//dm[2,8,2]//dm[2,9,2]//dm[2,10,2]//dm[3,11,3]//dm[3,12,3]//dm[3,13,3]//dm[3,14,3]//dm[3,15,3]//dm[4,16,4] // dS[2] // dS[4]

n=4;
γ1=(γ0//dS[1,2,3,4])*(Ω[Join[Range[n],Range[-n,-1]]] // dσ@@Table[a->τ[a], {a,n}]);
Do[γ1=γ1//dm[τ[a],a,a], {a,n}];
Do[γ1=γ1//dm[a,-a,a], {a,n}];
γ1

MatrixForm /@ {γ0[A], γ1[A] // Transpose}