SetDirectory["C:/drorbn/AcademicPensieve/Projects/Arrow_Diagrams_and_gl(N)"];
<< "Arrow_Diagrams_and_gl(N).m"
base=10;

arbit={Diagrams[4 ar][[1]]};
For[i=1,i<17,i++,
arbit=Append[arbit,Diagrams[4 ar][[i*100]]]];

arbit

ds=Join[Take[BasisAArrow[4],All],arbit];

Length[ds]

SaveUGL[diag_Diag] := Module[
{fname},
fname= StringJoin[
"data/UGLFor",
ToString[FromDigits[Cases[diag, _Integer, Infinity], base]],
".m"
];
Print["Saving ", fname, " ..."];
Put[{diag, UGLnBiAlg[diag]},fname];
]

For[index=2,index≤Length[ds],index++,
Print[index," ",ds[[index]]];
Print[Timing[SaveUGL[ds[[index]]]]]
];