(define zip (list-zipper '(a (b (c d)))))

(node (down (right (down zip)))) => b

(-> zip down right down node) => b