      ["iunt"
       {:synsem {:sem {:subj {:pred :loro}}}}]]}))
 
-
-
-
-
 (def ire-present-indicative
   (conjugation 
    {:infinitive "īre"     
-    :common {:synsem {:infl :present
-                      :sem {:tense :present}}}
+    :common present
     :forms
     [["o"
       {:synsem {:sem {:subj {:pred :I}}}}]

      {:synsem {:sem {:subj {:pred :voi}}}}]
     
     ["unt"
      {:synsem {:sem {:subj {:pred :loro}}}}]]}))

(def replace-patterns (concat are-present-indicative
                              ere-bar-present-indicative
                              ere-present-indicative
                              ire-present-indicative))









(defn analyze [surface-form lexicon]
  (morph/analyze surface-form lexicon replace-patterns))

(def ere-bar-present-indicative
  (conjugation 
   {:infinitive "ēre"     
    :common present
    :forms
    [["eo"
      {:synsem {:sem {:subj {:pred :I}}}}]
