    since you can't remove the outmost parens."
   [tree point-index]
   (let [index (mod (math/abs point-index) (count-points tree))
-        zipper (zip/seq-zip tree)]
+        zipper (seq-zip tree)]
     (if (zero? index)
       tree ;; can't remove entire tree's parens
       (let [z-found (loop [z zipper i index]

        loc (inc (lrand-int (dec (count-points tree))))]
    (zip/root
      ((lrand-nth [zip/insert-left zip/insert-right])
        (loop [z (zip/seq-zip tree) i 0]
          (if (= i loc)
            z
            (recur (zip/next z) (inc i))))

   from the behavior in other implementations of Push.)"
  [tree point-index]
  (let [index (mod (math/abs point-index) (count-points tree))
        zipper (seq-zip tree)]
    (if (zero? index)
      tree ;; can't remove entire tree
      (loop [z zipper i index]
