sig   val malloced_bases : unit -> Base.Hptset.t   val register_malloced_base : Base.t -> unit end