let blit ra1 ofs1 ra2 ofs2 len = if len < 0 || ofs1 < 0 || ofs2 < 0 || ofs1 + len > length ra1 || ofs2 > length ra2 then invalid_arg "blit" else unsafe_blit ra1 ofs1 ra2 ofs2 len