Quick Sort in Haskell