sig
  val ( <?> ) : int -> 'a CCOrd.t * 'a * 'a -> int
  val ( >|= ) : 'b CCOrd.t -> ('a -> 'b) -> 'a CCOrd.t
end