add haskell solution for SwapCase