(Haskell): string swap