(let [typeof {(type '(1)) :list
              (type []) :vector
              (type {}) :map}]
  (defn collection-type [col] (typeof (type col))))

(println (collection-type '(1 2 3)))
(println (collection-type [1 2 3]))
(println (collection-type {1 2, 3 4}))