modified:   QuickSort.hs