let unsafe_swap ra n m = let tmp = unsafe_get ra n in unsafe_set ra n (unsafe_get ra m); unsafe_set ra m tmp