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