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