     :u {:synsem {:subcat {:1 {:agr {:number :plur
                                     :person :3rd}}}
                  :infl :present}}}
-   ])
+   ]))
 
 (def present-nonreflexive-re-verb
+  (map
+   #(merge %
+           {:u (unify agr
+                      (:u %))})
   [
    {:p [#"^([^' ]+)$"          "$1re"]
     :g [#"^([^' ]+)re$"        "$1"]

    :u {:synsem {:subcat {:1 {:agr {:number :plur
                                    :person :3rd}}}
                 :infl :present}}}
])

(def present-reflexive-re-verb
  [
   {:p [#"^([^' ]+)s$"       "se $1dre"]
    :g [#"^se ([^' ]+)dre$"  "$1s"]
    :u {:synsem {:subcat {:1 {:agr {:number :sing
                                    :person :1st}}}
                 :infl :present}}}

   {:p [#"^([^' ]+)s$"       "se $1dre"]
    :g [#"^se ([^' ]+)dre$"  "$1s"]
    :u {:synsem {:subcat {:1 {:agr {:number :sing
                                    :person :2nd}}}
                 :infl :present}}}

   {:p [#"^([^' ]+)t$"       "se $1dre"]
    :g [#"^se ([^' ]+)dre$"  "$1t"]
    :u {:synsem {:subcat {:1 {:agr {:number :sing
                                    :person :3rd}}}
                 :infl :present}}}

   ;; e.g. se plaindre => se plaindrons
   {:p [#"^([^' ]+)gnons$"   "se $1ndre"]
    :g [#"^se ([^' ]+)ndre$" "se $1gnons"]
    :u {:synsem {:subcat {:1 {:agr {:number :plur
                                    :person :1st}}}
                 :infl :present}}}

   {:p [#"^([^' ]+)gniez$"   "se $1ndre"]
    :g [#"^se ([^' ]+)ndre$" "$1gnez"]
    :u {:synsem {:subcat {:1 {:agr {:number :plur
                                    :person :2nd}}}
                 :infl :present}}}

   {:p [#"^([^' ]+)gnent$"   "se $1ndre"]
    :g [#"^se ([^' ]+)ndre$" "$1gnent"]
    :u {:synsem {:subcat {:1 {:agr {:number :plur
                                    :person :3rd}}}
                 :infl :present}}}
])

(def present-reflexive
  ;; reflexive present -er and -ir type verbs
  [
   {:comment "present reflexive 1st person singular, stem begins with a vowel"
    :p [#"^([aeéiou]\S+)e$"    "s'$1er"]

    :u {:synsem {:infl :past-p
                 :subcat {:1 {:agr {:number :plur
                                    :gender :fem}}}}}}
   ]))

(def past-reflexive-re-verb
  (map
   #(merge %
           {:u (unify agr
                      (:u %))})
  [
   {:p [#"^([^' ]+)t$"       "se $1dre"]
    :g [#"^se ([^' ]+)dre$"  "$1t"]
