    
    "desear" {:synsem {:cat :verb
                       :sem {:pred :desire}}}
-   
    "divertirse"
    (let [subject-semantics (ref {:human true})
          subject-agr (ref :top)]

                       :pret-stem "durm"}
             :synsem {:cat :verb
                      :sem {:pred :sleep}}}
   
   "dormirse"
   (let [subject-semantics (ref {:human true})
         subject-agr (ref :top)]

                       {:synsem {:subcat {:3 '()}}})
              
              ;; Cleanup functions can go here. Number them for ease of reading.
              ;; 1. this filters out any verbs without an inflection: infinitive verbs
              ;; should have inflection ':infinitive', 
              ;; rather than not having any inflection.
              (map-function-on-map-vals 
               (fn [k vals]
