    #?(:cljs [babel.logjs :as log]) 
    [clojure.string :as string]
    [dag_unify.core :as unify :refer [dissoc-paths exists? fail-path fail? get-in isomorphic?
-                                     merge serialize strip-refs unifyc]]))
+                                     serialize strip-refs unifyc]]))
 
 (declare listify)
 (declare map-function-on-map-vals)

(ns babel.lexiconfn
  (:refer-clojure :exclude [exists? get-in merge resolve find])
  (:require
   [babel.encyclopedia :refer [sem-impl]]
   [babel.exception :refer [exception]]

;; to add new language like Espanol.
(defn embed-phon [lexical-entry]
  (cond (string? (get-in lexical-entry '(:english)))
        (unifyc {:english {:english (get-in lexical-entry '(:english))}}
                (embed-phon (dissoc lexical-entry ':english)))

        (and (string? (get-in lexical-entry '(:italiano)))
             (= :verb (get-in lexical-entry '(:synsem :cat))))
        (unifyc {:italiano {:italiano (get-in lexical-entry '(:italiano))}}
                (embed-phon (dissoc lexical-entry ':italiano)))

        (string? (get-in lexical-entry '(:italiano)))
        (unifyc {:italiano {:italiano (get-in lexical-entry '(:italiano))}}
                (embed-phon (dissoc lexical-entry ':italiano)))
        true
        lexical-entry))

