    "imperfetto" {:synsem {:sem {:aspect :progressive
                                 :tense :past}}}
    "passato" {:synsem {:sem {:aspect :perfect
-                             :tense :past}}}})
+                             :tense :past}}}
+   "trapassato" {:synsem {:sem {:aspect :pluperfect
+                                :tense :past}}}})
 
 (defn fo-ps [expr]
   (parse/fo-ps expr fo))

                     (= (:rule %) "s-future-nonphrasal")
                     (= (:rule %) "s-imperfect-phrasal")
                     (= (:rule %) "s-imperfect-nonphrasal")
                     (= (:rule %) "s-aux")
                     (= (:rule %) "vp-32")
                     (= (:rule %) "vp-aux-nonphrasal-complement")
                     (= (:rule %) "vp-aux-phrasal-complement")
                     (= (:rule %) "vp-aux-22")
                     (= (:rule %) "vp-present")
                     (= (:rule %) "vp-pronoun-nonphrasal")
                     (= (:rule %) "vp-pronoun-phrasal")

                           (let [obj-agr (atom :top)]
                             {:head {:phrasal false
                                     :synsem {:aux true}}
                              :rule "vp-aux-22-passato"
                              :synsem {:aux true
                                       :cat :verb
                                       :infl :present
                                       :sem {:reflexive true
                                             :tense :past
                                             :aspect :perfect}
                                       :subcat {:2 {:agr obj-agr}}}
                              :italiano {:b {:obj-agr obj-agr}}}))

                   (unify h22
                           root-is-comp
                           vp-non-pronoun
                           (let [obj-agr (atom :top)]
                             {:head {:phrasal false
                                     :synsem {:aux true}}
                              :rule "vp-aux-22-trapassato"
                              :synsem {:aux true
                                       :cat :verb
                                       :infl :imperfect
                                       :sem {:reflexive true
                                             :tense :past
                                             :aspect :pluperfect}
                                       :subcat {:2 {:agr obj-agr}}}
                              :italiano {:b {:obj-agr obj-agr}}}))
                   
                   (unify h21
                           root-is-head
                           {:rule "vp-future"
