let
compare p1 p2 =
Pervasives
.compare p1 p2