REST.clj

(defnav REST []
  (select* [this coll next-fn]
    (next-fn
      (if (vector? coll)
        (subvec coll 1)
        (rest coll))))
  (transform* [this coll next-fn]
    (if (seq? coll)
      (cons (first coll)
        (next-fn (rest coll)))
      (into (conj (empty coll) (first coll))
        (next-fn (rest coll))))))

(select-one REST [1 2 3 4 5]) ;; => [2 3 4 5]
(transform [REST ALL] inc [1 2 3 4 5]) ;; => [1 3 4 5 6]
(transform [REST ALL] inc #{1 2 3}) ;; => #{1 4 3}