                    :number :sing}
              :sem {:human true
                    :pred :I}
-             :subcat '()}}
-   })
+             :subcat '()}}})
 
 ;; see TODOs in lexiconfn/compile-lex (should be more of a pipeline as opposed to a argument-position-sensitive function.
 (def lexicon

      (merge shared-part-of-poder
             {:synsem {:pred :be-able-to}})])
   
   "potere" 
   (let [shared-part-of-potere
   {:synsem {:cat :verb}
    :italiano {:future-stem "potr"
    :drop-e true
   :present {:1sing "posso"
             :2sing "puoi"
             :3sing "può"
             :1plur "possiamo"
             :2plur "potete"
             :3plur "possono"}}}
   [(merge shared-part-of-potere
             {:synsem {:pred :can}})
      (merge shared-part-of-potere
             {:synsem {:pred :may}})
           (merge shared-part-of-potere
             {:synsem {:pred :be-able-to}})])
   
   "quedarse" (let [subject-semantics (ref {:animate true})
                    subject-agr (ref :top)]

   (let [shared-part-of-poder
                   {:espanol {:boot-stem1 "pued"
                              :boot-stem2 "pod"}
                    :synsem {:cat :verb}}]
     [(merge shared-part-of-poder
             {:synsem {:pred :can}})
      (merge shared-part-of-poder
