modified:   MergeSort.hs