module Hashcons: sig .. end
sig
end
type t
val create : unit -> t
unit -> t
val add : t -> string -> int
t -> string -> int
val find : t -> int -> string
t -> int -> string