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