(defn clean-up [m]
  (reduce f {} m))

(defn f
  [m [key value]]
  (cond
   (vector? value) (apply conj m (map clean-up value))
   (map? value) (conj m value)
   :else (assoc m key value)))