sig type pattern val make_pattern : string -> Netaux.KMP.pattern val find_pattern : Netaux.KMP.pattern -> ?pos:int -> ?len:int -> string -> int end