sig
  type t
  val iter :
    (Base.base -> Lmap.Location_map.loffset -> unit) ->
    Lmap.Location_map.Make.LBase.t -> unit
end