(defn freqs-inner [coll m]
  (if (empty? coll)
    m
    (freqs-inner (rest coll)
                 (assoc m (first coll)
                        (+ 1 (or (get m (first coll)) 0))))))

(defn freqs [coll]
  (freqs-inner coll {}))