Just a quicksort in Haskell