let unsafe_blit_on_other { ar = ar1 } ofs1 { ar = ar2 } ofs2 len = let ofs_diff = ofs2 - ofs1 in for i = ofs1 to ofs1 + len - 1 do Impl.unsafe_set ar2 (i + ofs_diff) (Impl.unsafe_get ar1 i) done