           comp-sem (atom :top)
           head-mod (atom :top)
           head-synsem (atom {:cat cat
-                             :subcat '()
+                             :subcat []
                              :mod head-mod
                              :sem head-sem})]
       {:phrasal true

                       :sem semantics
                       :slash true
                       :subcat {:1 argument
                                :2 '()}}}
       :head {:phrasal false
              :synsem {:cat cat
                       :sem semantics}}

        true phrase))

(defn modal-is-head-feature [phrase]
  (cond (= :verb (get-in phrase [:synsem :cat]))
        (unify-check phrase
                (let [ref (atom :top)]
                  {:synsem {:modal ref}
