type t val create_osm : unit -> t val add_to : t -> Map.t -> unit