sub swapPairs { @_[ map $_^1, 0..$#_ ]= @_ }