      [(merge shared-part-of-faire
              {:synsem {:pred :do}})
       (merge shared-part-of-faire
-             {:synsem {:pred :make}})
-      (merge shared-part-of-faire
-             (let [subject-semantics (ref {:human true})
-                  subject-agr (ref :top)]
-               {:synsem {:cat :verb
-                         :essere true
-                         :sem {:pred :hurt-oneself
-                               :reflexive true
-                               :subj subject-semantics
-                               :obj subject-semantics}
-                         :subcat {:1 {:agr subject-agr
-                                      :sem subject-semantics}
-                                  :2 {:agr subject-agr
-                                      :pronoun true
-                                      :reflexive true
-                                      :sem subject-semantics}
-                                  :3 {:cat :adverb
-                                      :sem {:pred :bad}}}}}))])
+             {:synsem {:pred :make}})])
    
    "former" {:synsem {:cat :verb
                      :sem {:pred :form}}}

  "répondre" {:synsem {:cat :verb
                       :sem {:pred :answer}}}

;  "s'amuser" (let [subject-semantics (ref {:human true})
;                    subject-agr (ref :top)]
;                {:synsem {:cat :verb
;                          :essere true
;                          :sem {:pred :have-fun
;                                :reflexive true
;                                :subj subject-semantics
;                                :obj subject-semantics}
;                          :subcat {:1 {:agr subject-agr
;                                       :sem subject-semantics}
;                                   :2 {:agr subject-agr
;                                       :pronoun true
;                                       :reflexive true
;                                       :sem subject-semantics}}}})
  
  "s'amuser" (let [subject-semantics (ref {:human true})
                    subject-agr (ref :top)]
                {:synsem {:cat :verb
                          :essere true

                                       :pronoun true
                                       :reflexive true
                                       :sem subject-semantics}}}})

   "se blesser" (let [subject-semantics (ref {:human true})
                      subject-agr (ref :top)]
                  {:synsem {:cat :verb
                            :essere true
                            :sem {:pred :hurt-oneself
                                  :reflexive true
                                  :subj subject-semantics
                                  :obj subject-semantics}
                            :subcat {:1 {:agr subject-agr
                                         :sem subject-semantics}
                                     :2 {:agr subject-agr
                                         :pronoun true
                                         :reflexive true
                                         :sem subject-semantics}
                                     :3 {:cat :adverb
                                         :sem {:pred :bad}}}}})
   
  "se endormir" (let [subject-semantics (ref {:human true})
                    subject-agr (ref :top)]
                {:synsem {:cat :verb
