           subject-agr (atom :top)] 
       (unify adjective
              {:synsem {:cat :adjective
-                       :sem {:pred :alto
+                       :sem {:mod {:pred :alto}
                              :comparative false
                              :arg1 subject-sem
                              :human true}

   "red"
   (unify adjective
          {:synsem {:cat :adjective
                    :sem {:pred :rosso
                          :comparative false
                          :physical-object true
                          :human false}}})

   "black"
   (unify adjective
          {:synsem {:cat :adjective
                    :sem {:mod {:pred :black}
                          :comparative false
                          :physical-object true
                          :human false}}})
