Clojure覚書 ネストしたベクターをネストしたリストにする

; (vec2list [* [+ 2 3 [+ 1 2]] 4]) -> '(* (+ 2 3 (+ 1 2)) 4)
(defn vec2list
  [v]
  (let [l (apply list v)]
    (for [val l]
      (if (vector? val)
        (vec2list val)
        val))))