let copy ra = let len = length ra in let ar = Impl.create len in Impl.unsafe_blit ra.ar 0 ar 0 len; { ra with ar = ar }