Expunge
module String = Misc.Stdlib.String
val is_exn : string -> bool
val to_keep : String.Set.t ref
val negate : bool
val keep : String.Set.elt -> bool
val expunge_map : Symtable.global_map -> Symtable.global_map
val expunge_crcs : (String.Set.elt * 'a) list -> (String.Set.elt * 'a) list
val main : unit -> unit