let
unsafe_sub ra ofs len =
let
res = create_fresh len
in
unsafe_blit_on_other ra ofs res 0 len;
res