let unsafe_remove_range ra ofs len = unsafe_blit_on_other ra (ofs + len) ra ofs (length ra - len); unsafe_remove_n ra len