module Schema_namer: sig .. end
sig
end
type t
val create : unit -> t
unit -> t
val fresh_name : t -> Namespace_symbols.symbol
t -> Namespace_symbols.symbol