                               :sem {:pred :correspond}}}
 
    "corto"
-   [(let [complement-complement-sem (atom {:human true}) ;; only humans can be short.
-          complement-sem (atom {:pred :di
-                                :mod complement-complement-sem})
-          subject-sem (atom {:human true})] ;; only humans can be short.
-      {:unify [adjective comparative]
-       :synsem {:sem {:pred :corto
-                      :arg1 subject-sem
-                      :arg2 complement-complement-sem}
-                :subcat {:1 {:cat :noun
-                             :sem subject-sem}
-                         :2 {:cat :prep
-                             :sem complement-sem}}}})
-    ;; non-comparative
-    {:unify [adjective]
-     :synsem {:cat :adjective
-              :sem {:pred :corto
-                    :comparative false
-                    :human true}}
-     :italiano {:cat :adjective}}]
+   [{:unify [adjective non-comparative-adjective]
+     :synsem {:sem {:pred :contento
+                    :subj {:human true}}}}
+    
+    {:unify [adjective comparative]
+     :synsem {:sem {:pred :contento
+                    :subj {:human true}
+                    :obj {:human true}}}}]
 
    "creare"  {:synsem {:cat :verb
                        :sem {:pred :create}}}

   "ballare" {:synsem {:cat :verb
                       :sem {:pred :dance}}}
   "bello"
   [;; non-comparative
    {:unify [adjective]
     :synsem {:sem {:pred :bello
                    :comparative false
                    }}} ;; for now, no restrictions on what can be beautiful.
    
    ;; comparative
    (let [complement-complement-sem (atom :top) ;; for now no restrictions
          complement-sem (atom {:pred :di
                               :mod complement-complement-sem})
          subject-sem (atom :top)] ;; subject can be anything.
      {:unify [adjective comparative]
       :synsem {:sem {:pred :bello
                      :arg1 subject-sem
                      :arg2 complement-complement-sem}
                :subcat {:1 {:cat :noun
                             :sem subject-sem}
                         :2 {:cat :prep
                             :sem complement-sem}}}})]
   "bene"
   {:synsem {:cat :adverb
             :sem {:pred :bene}}}

                       :cat :verb}}
      
   "contento"
   [{:unify [adjective non-comparative-adjective]
     :synsem {:sem {:pred :contento
                    :subj {:human true}}}}
    
    {:unify [adjective comparative]
     :synsem {:sem {:pred :contento
                    :subj {:human true}
                    :obj {:human true}}}}]
    
   "contraccambiare" {:synsem {:sem {:pred :reciprocate}
                               :cat :verb}}
