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