sig type t = Wpo.index val cmpopt : String.t option -> String.t option -> int val compare : Wpo.index -> Wpo.index -> int end