 ;; with mapc
 (def _ identity)
 
-
 (defn select-columns
   ([srange row]
      (drop srange row))

            (drop srange)
            (take ncols)))))

(defn normalise [[header-row & data-rows] [srange erange]]
  "Takes a CSV with a header row and normalises it by transforming the
selected columns into values within the rows.


| 1 | 1 | 1 | normalise-me-a | normal-1-a |
| 1 | 1 | 1 | normalise-me-b | normal-1-b |
"
  (let [ncols            (count header-row)
        colids           (-> (take ncols measure-col-ids) set sort) ;; incase its an infinite seq
        srange           (first colids)
        colids           (take (- ncols srange) colids)
        erange           (last colids)
        ncols            (count colids)
        headers-to-move  (select-columns srange erange header-row)

        normalise-row (fn [id row]
