sig
  val self : State.t
  val add : Cabs.cabsloc -> string -> unit
  val get : Cabs.cabsloc -> string list
  val iter : (Cabs.cabsloc -> string -> unit) -> unit
  val fold : (Cabs.cabsloc -> string -> '-> 'a) -> '-> 'a
end