wrote quicksort in haskell