(branch? loc)
Returns true if the node at loc is a branch
(defn branch? [loc] ((:zip/branch? (meta loc)) (node loc)))