     (is (= (fo form)
            "is Juan"))))
 
+(deftest generate-irregular-present-4
+  (let [form {:a {:a {:english "your"}
+                  :b {:english "name",
+                      :pronoun false,
+                      :cat :noun,
+                      :agr {:pronoun false,
+                            :gender :masc,
+                            :number :sing,
+                            :person :3rd}}}
+              :b {:a {:agr {:pronoun false,
+                            :gender :masc,
+                            :number :sing,
+                            :person :3rd},
+                      :past {:2plur "were",
+                             :3sing "was",
+                             :2sing "were",
+                             :1sing "was",
+                             :3plur "were",
+                             :1plur "were"},
+                      :english "be",
+                      :present {:2plur "are",
+                                :3sing "is",
+                                :2sing "are",
+                                :1sing "am",
+                                :3plur "are",
+                                :1plur "are"},
+                      :infl :present,
+                      :cat :verb}
+                  :b {:cat :noun,
+                      :pronoun false,
+                      :agr {:pronoun false,
+                            :gender :masc,
+                            :number :sing,
+                            :person :3rd},
+                      :english "Juan"}}}]
+    (is (or true (= (fo form)
+                    "your name is Juan")))))
 
 
 
+
+

           "is Antonia"))))

(deftest generate-irregular-present-1
  (let [form {:english {:past {:1sing "was",
                               :3plur "were",
                               :1plur "were",

    (is (= (fo form)
           "is"))))

(deftest generate-irregular-present-3
  (let [form {:english {:a {:infl :present,
                            :past {:2sing "were",
                                   :1sing "was",
