type t

val create : unit -> t

val add_bytes : t -> Window.t -> bytes -> int -> int -> unit

val find_longest : t -> Window.t -> bytes -> int -> int -> (int * int) option