                                     :person :3rd}}}
                  :infl :present}}}])
 
-(def past
+(def past-reflexive
   [
-   ;; <reflexive past>: e.g. "amusé" => "s'amuser"
    {:comment "past participle reflexive singular masculine -er where stem begins with a vowel"
-    :p [#"^([aeéiou]\S+)é$"    "s'$1er"] ;; :p : how to transform a finite form to infinitive
-    :g [#"^s'([aeéiou]\S+)er$" "$1é"]  ;; :g : how to transform an infinitive into a finite form.
-    :u {:synsem {:infl :past-p ;; :u : what to unify against for these tranformations to occur.
+    :p [#"^([aeéiou]\S+)é$"    "s'$1er"]
+    :g [#"^s'([aeéiou]\S+)er$" "$1é"]
+    :u {:synsem {:infl :past-p
                  :subcat {:1 {:agr {:number :sing
                                     :gender :masc}}}}}}
 

          :g (:g pattern)
          :u (unifyc (:u pattern)
                     (let [agr (atom :top)
                           infl (atom :top)]
                       {:synsem {:infl infl
                                 :subcat {:1 {:agr agr}}}
                        :infl infl
                        :agr agr}))})
       replace-patterns-source))

         [
          conditional
          past
          past-reflexive
          present-nonreflexive-er-verb
          present-nonreflexive-ir-verb
          present-reflexive
