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