                                      :infl :preterito
                                      :cat :verb
                                      :sem {:aspect :perfect
-                                           :tense :past}}})
+                                           :tense :present}}})
                    (unifyc c10
                            root-is-head
                            {:rule "s-preterito-nonphrasal"

                                     :infl :preterito
                                     :cat :verb
                                     :sem {:aspect :perfect
                                           :tense :past}}})
                   (unifyc c10
                           root-is-head-root
                           {:rule "s-imperfect-phrasal"

   "imperfect" {:synsem {:sem {:aspect :progressive
                                :tense :past}}}
   "preterito" {:synsem {:sem {:aspect :perfect
                               :tense :present}}}})

(defn fo-ps [expr]
  (parse/fo-ps expr fo))
