-- | Replace a right child tree.
setRight :: Maybe (BinTree a) -> Zipper a -> Zipper a
setRight = undefined
setRight :: Maybe (BinTree a) -> Zipper a -> Zipper a
setRight = undefined
setRight = undefined