 
 (deftest her-name-is-luisa
   (is (= "her name is Luisa"
-         (fo (generate {:modified false
+         (morph (generate {:modified false
                         :synsem {:cat :verb
                                  :sem {:mod '()
                                        :iobj {:pred :luisa}

                   (repeatedly #(let [expression (generate {:modified false
                                                            :synsem {:cat :verb
                                                                     :sem {:pred :be-called}}})]
                                  (is (not (= "" (fo expression))))
                                  (log/info (display-expression expression))
                                  (fo expression)))))))))

(deftest mod-is-empty-list
  (let [result (generate {:modified false

    (is true)))

(deftest past-and-gender-agreement
  (= (morph (generate {:synsem {:sem {:pred :go
                                   :aspect :perfect
                                   :tense :present
                                   :subj {:gender :fem
