let
edgelist_sub gr =
DG
.foldedges (
fun
y a
->
y::a) gr []