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