more Swap Elements

Haskell