 
      ])))
 
-(def replace-patterns-present-tense
+(defonce replace-patterns-present-tense
   (expand-replace-patterns
    {:synsem {:infl :present}}
    [{:agr {:synsem {:subcat {:1 {:agr {:number :sing


         ]}]))

(def replace-patterns-past-tense
  (concat
   (expand-replace-patterns
    {:synsem {:infl :past}}

   [dag_unify.core :refer [unify]]
   [babel.morphology :refer [expand-replace-patterns group-by-two]]))

(defonce replace-patterns-gerund
 (expand-replace-patterns
  {:synsem {:infl :participle}}
  [{:agr :top
    :p [#"(.*)ando$" "$1are"
        #"(.*)ando$" "$1arsi"]}]))

(defonce replace-patterns-imperfect-past-tense
  (expand-replace-patterns
   {:synsem {:infl :imperfect}}
   [
