 
 (deftest exists2
   (is (= (morph (generate {:synsem {:cat :verb
-                                    :subcat ()
+                                    :subcat []
                                     :sem {:obj :unspec
                                           :subj :top
                                           :pred :exist

  (let [do-this-many 10
        expressions (take do-this-many
                          (repeatedly #(generate
                                        {:synsem {:subcat ()
                                                  :sem {:mod {:pred :top}
                                                        :number :top
                                                        :pred :top


(deftest gestiscono
  (let [result
        (generate {:synsem {:subcat []
                            :cat :verb
                            :sem {:subj {:pred :loro}
                                  :pred :manage
