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