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