fixed zipper functions: branch? child make-node