type alias Zipper left right = (List left, List right)

build : (right -> left) -> Zipper left right
build func (lefts, rights) =
    case rights of
        [] -> (lefts, rights)
        r :: rs ->
            build (func r :: lefts, rs)