sig
  type t
  val make : (string -> int) -> string array -> int * RollingHash.t
  val update : RollingHash.t -> string -> int
end