var1:={x,y,z,t,w};
 var2:={1,a,b,c,d};

m={a,b,c,d,e}

dns := {1, 1, 1, 1, 1};
m := {0, 0, m, m};
var1 := {x, y, z, t, w};
var2 := {1, x, y, z, t};
fnt[s_] := ((1 - var1[[s]])^(dns[[s + 1]] - 1)) (var1[[
      s]]^(a - 1)) Gamma[
     anew[s] + dns[[s + 1]]]/(Gamma[a] Gamma[dns[[s + 1]]]);
fnts[s_] :=
  If[NumberQ[m[[s]]] && NumberQ[m[[s + 1]]],
   Gamma[(D/2) - a] Gamma[(D/2) - dns[[s + 1]]]/
     Gamma[D - a - dns[[s + 1]]], fnt[s]];

fnttable[s_] :=
  Times @@ Table[fnts[i], {i, 1, s}]