let
compare = (
Pervasives
.compare : string
->
string
->
int)