let
to_vector_v x =
Array
.map (
fun
l
->
l.(0)) x