Tree.Modify, Zipper.Travel mostUp (not tested)