RecQSort.hs