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

build : (right -> left) -> Zipper left right
build func (lefts, rights) =
    case List.head rights of
        Nothing -> (lefts, rights)
        Just val ->
            build (func val :: lefts, List.drop 1 rights)