 (def raw (read-tabular-file "2010/brazil.data"))
 
 (println (convert-player "brazil" (first raw)))
+

(use '[clojure.string :only (split-lines split capitalize)])

(defn read-tabular-file [filename]
  (let [data (slurp filename)

    (map split-by-tab lines)))

(defn nameify [s]
  (let [words (split s #" ")
        word-names (map capitalize words)]
    (join " " word-names)))

(defn convert-player [country data]
  (let [shirt (data 0)]
    {
      :id (str country "_" shirt)
      :country (nameify country)
      :name (nameify (data 1))
      :shirt_number shirt
      :date_of_birth (data 2)
      :position (data 3)
