struct
type
t = string
let
compare = (
Pervasives
.compare : string
->
string
->
int)
end