    (fn []
      (reduce
       (fn [db [word phones]]
-        (assoc db word (concat (get db word []) (vector phones))))
+        (assoc db word (conj (get db word []) phones)))
       {}
       (default-pronouncing-db)))))
 

             rhyming-part
             (str "$")
             search))
       (filter #(not (= % word)))))

(defn syllable-count
  "Counts the number of syllables in a string of phones."
  [phones]
  (count (re-seq #"\S+[0-2]\b" phones)))


(defn phones-for-word
