fn find_r(id: DirectedRoad, map: &Map) -> Result<DirectedRoadID>