Diagrams[4ar] // Length

diag=Diagrams[4ar][[1002]]

UGLnBiAlg[diag] // Timing

BasisAArrow[4]