(max (map #(let [columns (split %1 #" ")]
(apply min (map #(let [columns (split %1 #" ")]
( -
(Integer. (nth columns 4))
(Integer. (nth columns 3))))
(split (slurp "weather.dat") #"\n")))
