 (def position { "GK" "Goalkeeper", "DF" "Defender", "MF" "Midfielder", "FW" "Forward" })
 
 (def country-by-code {
-  "BRA" "Brazil", "ENG" "England", "ESP" "Spain", "FRA" "France", "GER" "Germany", "GRE" "Greece", "ITA" "Italy", "POR" "Portugal", "TUR" "Turkey"                      
+  "ALG" "Algeria", "BRA" "Brazil", "BUL" "Bulgaria", "ENG" "England", "ESP" "Spain", "FRA" "France", "GER" "Germany", "GRE" "Greece", "ITA" "Italy", "POR" "Portugal", "SCO" "Scotland", "TUR" "Turkey"                      
 })
 
 (def number read-string)

      :height (number (data 5))
    }))

; Reading from 
(defn read-tabular-file [filename]
  (let [data (slurp filename)
        lines (split-lines data)
        split-by-tab #(split % #"\t")]
    (map split-by-tab lines)))


(def raw (read-tabular-file "2010/brazil.data"))

(def brazil (map #(convert-player "brazil" %) raw))

(println (json/write-str brazil))


      (throw (Exception. (str "No country for " country-code)))
      { :name club, :country country })))

; Reading from 
(defn read-tabular-file [filename]
  (let [data (slurp filename)
        lines (split-lines data)
        split-by-tab #(split % #"\t")]
    (map split-by-tab lines)))

; Player conversion
(defn convert-player [country data]
  (let [shirt (number (data 0))]
