-- | @fromList xs@ returns a zipper containing the elements of xs,
-- focused on the first element.
fromList :: [a] -> Zipper a
fromList = Zip []
fromList :: [a] -> Zipper a
fromList = Zip []
fromList = Zip []