 ;;  "interessér" {:synsem {:cat :verb
 ;;                         :sem {:pred :interest??}}}
 
-  "je" {:synsem {:cat :noun
-                 :pronoun true
-                 :case :nom
-                 :agr {:person :1st
-                       :number :sing}
-                 :sem {:human true
-                       :pred :I}
-                 :subcat '()}}
+  "je"
+  (let [common {:synsem {:cat :noun
+                         :pronoun true
+                         :case :nom
+                         :agr {:person :1st
+                               :number :sing}
+                         :sem {:human true
+                               :pred :I}
+                         :subcat '()}}]
+    [(unify gender-pronoun-agreement
+            common
+            {:synsem {:agr {:gender :fem}}})
+     (unify gender-pronoun-agreement
+            common
+            {:synsem {:agr {:gender :masc}}})])
   
   "laisser" {:synsem {:cat :verb
                       :sem {:pred :leave-behind}}}

  "touer" {:synsem {:cat :verb
                    :sem {:pred :kill}}}
  "tu"
   {:synsem {:cat :noun
             :pronoun true
             :case :nom
             :agr {:person :2nd
                   :number :sing}
              :sem {:human true
                    :pred :tu}
             :subcat '()}}
   "vous"
   {:synsem {:cat :noun
             :pronoun true
             :case :nom
             :agr {:person :2nd
                   :number :plur}
              :sem {:human true
                    :pred :voi}
             :subcat '()}}  
   })

(def lexicon


   "essayer" {:synsem {:cat :verb
                      :sem {:pred :try}}}
   "être"
   (let [common
         {:synsem {:cat :verb
