                            (not (= :top (get-in lexeme [:synsem :sem :pred] :top)))))
                         lexeme-set))
               (vals @lexicon)))
-        root-verb-keys
+        root-verb-array
         (reduce concat
                 (map (fn [key]
                        (get root-verbs key))

    (write-lexicon "es" @lexicon)
    (log/info (str "done writing lexicon."))
    (log/info (str "generating examples with this many verbs:"
                   (.size root-verb-keys)))
    (.size (pmap (fn [verb]
                   (log/trace (str "verb: " (strip-refs verb)))
                   (let [root-form (get-in verb [:espanol :espanol])]
                     (log/info (str "generating with verb: '" root-form "'"))

                                       {:synsem {:sem {:aspect :perfect
                                                       :tense :past}}}
                                       )))))
                 root-verb-array))))



