Here a solution that is far from perfect (a bit ugly sometimes) but that is better than nothing :p :
display cool_graph {
graphics "graph" {
int i <- 0; //just use to give a different name to each edge
loop e over: gr.edges {
geometry eg <- geometry(e); // to avoid to write many times "geometry(e)"
draw eg end_arrow: 2 color: #blue; //just add an end arrow to know the direction of the edge
draw ("edge " + i) size: 3 at: eg.location color: #black rotate: (angle_between(first(eg.points), {first(eg.points).x,0}, last(eg.points)) - 90); //a bit ugly... but well..... there is maybe a better solution....
i<- i + 1;
}
}
}