Get[NotebookDirectory[]<>"PolyLogToolsLite.m"];

cr[{a_,b_,c_,d_}] := Factor[Limit[(a - c)/(a - d) / ((b - c)/(b-d)), Inf->Infinity]];
cr[l_List] := Sequence@@(cr[Join[l[[1;;3]], {#}]]&/@l[[4;;All]]);

II[indices_List,arguments_List]/;Length[indices]==Length[arguments]&&VectorQ[indices,IntegerQ[#]&&#≥1&]:=G@@Flatten[Join[Table[Join[Table[0,{indices[[j]]-1}],{arguments[[j]]}],{j,Length[indices],1,-1}],{1}]]

Get[NotebookDirectory[]<>"wt5_dan_precomputed.m"];

wt5DanAllNPrecomputed/.{cri->cr,IIi->II}//CreateTensor//sh//flatTensor//Expand

wt5DanOddNPrecomputed/.{cri->cr,IIi->II}//CreateTensor//sh//flatTensor//Expand

wt5DanOddNas311and32and5Precomputed/.{cri->cr,IIi->II}//CreateTensor//sh//flatTensor//Expand

wt5DanOddNas32delPrecomputed/.{cri->cr,IIi->II}//CreateTensor//del//Expand