sig
  type _ pattern
  val compile : string -> [ `Direct ] CCString.Find.pattern
  val rcompile : string -> [ `Reverse ] CCString.Find.pattern
  val find :
    ?start:int -> pattern:[ `Direct ] CCString.Find.pattern -> string -> int
  val rfind :
    ?start:int -> pattern:[ `Reverse ] CCString.Find.pattern -> string -> int
end