        (apply concat)
        (apply merge)))
 
-(defn unicode-to-locale []
+(defn- unicode-to-locale []
   (swap! unicode-to-locale-inst #(or % (create-unicode-to-locale))))
 
 (defn- unicode-to-locale-vals []

                     {lang-name loc}))))
          (remove (fn [m] (->> m vals first nil?)))
          (apply merge)))))

(defn- unicode-ranges
  "Return a map with values each with `:name` of a Unicode

           (concat (map #(hash-map (:name %) %) non-lang-sets))
           (apply merge)))))

(defn- unicodes []
  (swap! unicodes-inst #(or % (create-unicodes))))

(defn- locale-to-unicode []
  (->> (unicodes)
       vals
       (map (fn [{:keys [loc] :as m}]
