 (ns babel.italiano
   (:refer-clojure :exclude [get-in])
   (:require
-   [babel.generate :as generate]
+   [babel.generate :as generate :refer [lightning-bolts]]
    [babel.italiano.grammar :as grammar]
    [babel.italiano.lexicon :as lex]
    [babel.italiano.morphology :as morph :refer [fo]]

                    (= :indef (dag_unify.core/get-in % [:synsem :def])))
               (and false (= true (dag_unify.core/get-in % [:synsem :pronoun]))
                    (= :nom (dag_unify.core/get-in % [:synsem :case]))))))]
    (merge
     {:input-words (vec words)}
     (babel.italiano.grammar/model-plus-lexicon
      (merge
       base-lexicon
       (zipmap
        (sort words)
        (map (fn [word]
               (get (:lexicon base-model) word))
             (sort words))))))))

(defn test-cm []
  (let [m (create-model "io" "mi" "tu" "ti" "vedere")]
    (repeatedly
     #(->
       {:synsem {:cat :verb

       time))))


(defn from-repl []
  (load "babel/test/it")
  (load "babel/italiano")
  (in-ns 'babel.italiano)
  (test-cm))

