 ;; </conditional>
 
 ;; <future>
-(let [regular-future-source
+(let [source
       (-> (clojure.java.io/resource "babel/italiano/morphology/verbs/future.edn")
           slurp
           read-string)]
   (defonce patterns-future
     (compile-patterns
      {:synsem {:infl :future}}
-     regular-future-source)))
+     source)))
 
 (defn regular-future? [word]
   (and (= (get-in word [:infl]) :future)

;; </imperfect>

;; <present>
(let [regular-present-source
      (-> (clojure.java.io/resource "babel/italiano/morphology/verbs/present.edn")
          slurp
          read-string)]
  (defonce patterns-present
    (compile-patterns
     {:synsem {:infl :present}}
     regular-present-source)))

;; </present>

;; <passato>
(let [regular-past-source
      (-> (clojure.java.io/resource "babel/italiano/morphology/verbs/past.edn")
          slurp
          read-string)]
  (defonce regular-past-generate-patterns
    (compile-patterns
     {:synsem {:infl :past}}
     regular-past-source))

  (def patterns-past
    (compile-patterns
     {:synsem {:infl :past}}
     regular-past-source)))

;; </passato>

;; <subjunctive>

;; </future>

;; <imperfect>
(let [source
      (-> (clojure.java.io/resource "babel/italiano/morphology/verbs/imperfetto.edn")
          slurp
          read-string)]
  (defonce patterns-imperfect
    (compile-patterns
     {:synsem {:infl :imperfect}}
     source)))

(defn regular-imperfect? [word]
  ;; regular imperfect sense
