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