-- Complete this definition

-- | Get a zipper focussed on the root node.
fromTree :: BinTree a -> Zipper a
fromTree = undefined
fromTree :: BinTree a -> Zipper a
fromTree = undefined
fromTree = undefined