    #?(:cljs [babel.logjs :as log]) 
    [babel.francais.lexicon :refer [lexicon]]
    [babel.francais.morphology :as morph :refer [fo]]
-   [babel.index :refer (build-lex-sch-index
-                        create-index map-subset-by-path
-                        spec-to-phrases)]
+   [babel.index :refer [build-lex-sch-index create-indices lookup-spec]]
    [babel.parse :as parse]
    [babel.ug :refer [comp-modifies-head comp-specs-head head-principle
                      root-is-comp root-is-head-root root-is-head

                     subcat-2-2-principle subcat-5-principle]]
   [clojure.core.cache :as cache]
   [dag_unify.core :refer (fail? get-in strip-refs unify)]))
(declare against-pred)
(declare matching-head-lexemes)


     :morph-ps fo-ps
     :enrich enrich

     :grammar grammar
     ;; Will throw exception if more than 1 rule has the same :rule value:
     :grammar-map (zipmap
