louissmit

(defn count-words
  ([] {"balk" 1})
  ([freqs word]
   (assoc freqs word (inc (get freqs word 0)))))

(defn merge-counts
  ([] {"baz" 2})
  ([& m]
   (apply merge-with + m)))