let edge_to_string tedge = 
    let (conn, e, _ ) = tedge.edge
    in
    match tedge.edgeway with
      Normal -> "Normal " ^ (NewName.to_string conn.sourceid)^" -> " ^NewName.to_string e
    | Cross -> "Cross "^ (NewName.to_string conn.sourceid)^" -> " ^NewName.to_string e
    | Forward -> "Forward "^ (NewName.to_string conn.sourceid)^" -> " ^NewName.to_string e
    | Backward -> "Backward "^ (NewName.to_string conn.sourceid)^" -> " ^NewName.to_string e
    | Unknown -> "Unknown "^ (NewName.to_string conn.sourceid)^" -> " ^NewName.to_string e