Clojure rewrite of Scrabble surnames' scorer

gistfile1.clj

; See http://www.szcz.org/blog/?cat=33 for context

(let [surnames (->> (slurp "/Users/msszczep1/current_2011-01-2.txt")
                            (clojure.string/split-lines)
                            distinct)
      points {\A 1 \B 3 \C 3 \D 2 \E 1 \F 4 \G 2 \H 4 \I 1 \J 8 \K 5 \L 1 \M 3
              \N 1 \O 1 \P 3 \Q 10 \R 1 \S 1 \T 1 \U 1 \V 4 \W 4 \X 8 \Y 4 \Z 10 \- 0 \' 0}
      scores (map #(reduce + (map points (seq %))) surnames)]
    (->> (zipmap surnames scores)
         (sort-by val)
         reverse))