read.clj

  (defn apply-to-column-n
    "Apply f only to column N in each table row. Columns start from column 1.
  Gracefully do nothing for rows that are too short."
    [f N table]
    (map (fn [row]
           (map (fn [n cell]
                  (if (= n N)
                    (f cell)
                    cell))
                (drop 1 (range))
                row))
         table))
  
  (apply-to-column-n
   ;; fn
   (constantly "bla")
   ;; column number
   2
   ;; table: sequence of sequences
   (read-annotations-from-xls "dev-resources/annotations.xlsx" "annotations"))