let
to_array ({ ar = ar }
as
ra) =
Array
.init (length ra) (
fun
i
->
Impl
.unsafe_get ar i)