    [clojure.repl :refer (doc)]
    [dag_unify.core :refer (fail? get-in remove-matching-keys strip-refs unify)]))
 
+(defn default-fn [tree]
+  (let [result
+        (-> tree
+
+            (apply-default-if
+             verb-default?
+             {:synsem {:aux false
+                       :cat :verb
+                       :sem {:tense :conditional}
+                       :infl :conditional}})
+            
+            (apply-default-if
+             verb-default?
+             {:synsem {:aux false
+                       :cat :verb
+                       :sem {:tense :present
+                             :aspect :simple}
+                       :infl :present}})
+
+            (apply-default-if
+             verb-default?
+             {:synsem {:aux false
+                       :cat :verb
+                       :sem {:tense :past
+                             :aspect :progressive}
+                       :infl :imperfetto}})
+            
+            (apply-default-if
+             verb-default?
+             {:synsem {:aux false
+                       :cat :verb
+                       :sem {:tense :future}
+                       :infl :future}}))]
+    [result]))
+
 (declare model)
 
 (defonce index-lexicon-on-paths

                                        :cat :verb
                                        :sem {:aspect :progressive
                                              :tense :past}}})
                       (unify c10
                              root-is-head
                              {:rule "s-imperfetto-nonphrasal"
                               :head {:phrasal false}
                               :synsem {:aux false
                                        :infl :imperfetto
                                        :cat :verb
                                        :sem {:aspect :progressive
                                              :tense :past}}})
                       (unify c10
                              root-is-head
                              {:rule "s-present-nonphrasal"
                               :head {:phrasal false}
                               :synsem {:aux false
                                        :infl :present
                                        :cat :verb
                                        :sem {:aspect :simple
                                              :tense :present}}})
                       (unify c10
                              root-is-head-root
                              {:rule "s-present-phrasal"


                       ;;{:root {:italiano {:italiano "abbracciare"}}, :synsem {:cat :verb, :subcat [], :sem {:aspect :perfect, :tense :present :obj :unspec}}}
                       ;; (take 5 (repeatedly #(println ((:morph-ps model) (babel.generate/generate spec model)))))

                       (unify h21
                              root-is-head
                              {:rule "vp-past"
