let swap ra n m = if n > ra.vlix || m > ra.vlix || n < 0 || m < 0 then invalid_arg "swap" else unsafe_swap ra n m