HR: quicksort1 in haskell