qsortR :: Ord a => [a] -> [a]
qsortR [] = []
qsortR (x:xs) = qsortR larger ++ [x] ++ qsortR smaller
    where
        larger = [a | a <- xs, a >= x]
        smaller = [b | b <- xs, b < x]