let unsafe_fill ra ofs len x =
    let last = ofs + len - 1 in
    guarantee_ix ra (max last ra.vlix);
    for i = ofs to last do unsafe_set ra i x done