let edgelist gr = List.map (fun (conn,node,port) -> (conn, node.id, port)) (edgelist_sub gr)