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