let remove_range ra ofs len = if ofs < 0 || len < 0 || ofs + len > length ra then invalid_arg "remove_range" else unsafe_remove_range ra ofs len