(require '[fast-zip.core :as z])
(let [loc (z/seq-zip '(a b c d e f))]
(->> (z/down loc)
(iterate z/right)
(take-while identity)
(map (comp z/node z/leftmost))))
;; => (a a b c d e)
Or more isolated:
(-> (z/seq-zip '(a b c d)) z/down z/right z/right z/leftmost z/node)
;; => b
See xsc/rewrite-clj#15. Using version 0.5.1:
Or more isolated: