haskell quick sorting algorithm