(defn transpose [col]
  (apply map vector col))

(def a [[5 4]
        [4 0]
        [7 10]
        [-1 8]])

(transpose a)
;=> ([5 4 7 -1]
;    [4 0 10 8])