          (map (fn [lexeme-set]
                 (filter (fn [lexeme]
                           (and
-                           (or true (= (get-in lexeme [:synsem :sem :pred]) :talk)) ;; for development, restrict :pred to a single value.
+                           ;; for development, restrict :pred to a single value.
+                           (or true (= (get-in lexeme [:synsem :sem :pred]) :talk))
                            (= (get-in lexeme [:synsem :cat]) :verb)
                            (= (get-in lexeme [:synsem :infl]) :top)
                            (not (= :top (get-in lexeme [:synsem :sem :pred] :top)))))

    (write-lexicon "en" lexicon)
    (log/info (str "done writing lexicon."))
    (log/info (str "generating with this many verbs: " (.size (reduce concat (vals root-verbs)))))
    (.size (pmap (fn [verb]
                   (let [root-form (get-in verb [:english :english])]
                     (log/debug (str "generating from root-form:" root-form))

                  (:morph  small-plus-plus-np)))

(defn translate [source-language-short-name & [root]]
  "Generate translations from source language (e.g. 'it' for Italian) into English.
   Optionally takes a root form of a verb in the source language."
  ;; Example usage: (translate \"es\" \"abrazar\"
  (rewrite-lexicon)
  (let [spec :top
        ;; {:synsem {:sem {:pred :arrive}}}
