sig type t val compare : Interned.t -> Interned.t -> int val eq : Interned.t -> Interned.t -> bool val intern : string -> Interned.t val to_string : Interned.t -> string val name : Interned.t -> string end