let iteri f ({ ar = ar } as ra) =
    for i = 0 to ra.vlix do f i (unsafe_get_ar ar i) done