module SMap: Map.Make(sig type t = string val compare : 'a -> 'a -> intend)
Map.Make
(
sig
type t = string
string
val compare : 'a -> 'a -> int
'a -> 'a -> int
end
)