QuickSort in Haskell. So hot!