-- | @fromListEnd xs@ returns a zipper containing the elements of xs,
-- focused just off the right end of the list.
fromListEnd :: [a] -> Zipper a
fromListEnd as = Zip (reverse as) []
fromListEnd :: [a] -> Zipper a
fromListEnd as = Zip (reverse as) []
fromListEnd as = Zip (reverse as) []