Сортировать кортежи в списке сначала по большим буквам, потом по маленьким, затем Bool и цифрами?

function = [(a,b,c,d)| a <- [0,50,100,150,200], b <- ['a', 'b', 'c'], c <- [True, False], d <-['A','B']]

sortBy (compare `on` (\(a,b,c,d) -> (d,b,c,a)))

function = sortBy myCompareFunc [(a,b,c,d)| a <- [0,50,100,150,200], b <- ['a', 'b', 'c'], c <- [True, False], d <-['A','B']]
  where myCompareFunc tuple1 tuple2 = compare (f tuple1) (f tuple2)
            f (a,b,c,d) = (d,b,c,a)

import Data.List
import Data.Function
 
main:: IO ()
main = do 
    print $ sortBy (compare `on` (\(a,b,c,d) -> (d,b,c,a)))
        [(a,b,c,d)| a <- [0,50,100,150,200], b <- ['a', 'b', 'c'], c <- [True, False], d <-['A','B']]

[(a,b,c,d)| a <- [0,50,100,150,200], c <- [True, False], b <- ['a', 'b', 'c'], d <-['A','B']]

tuplist = [(a,b,c,d)| a <- [0,50,100,150,200], b <- ['a', 'b', 'c'], c <- [True, False], d <-['A','B']]
 
-- Функция сравнения:
-- меняя ее код, можно задавать самые разные порядки
 
tupcmp (a1,b1,c1,d1) (a2,b2,c2,d2) | (a1 > a2) = True
                                   | (a2 > a1) = False
                                   | (b1 > b2) = True
                                   | (b2 > b1) = False
                                   | (c1 > c2) = True
                                   | (c2 > c1) = False
                                   | (d1 > d2) = True
                                   | (d2 > d1) = False
                                   | otherwise = False
 
-- Быстрая сортировка:
 
tupsortQ [] = []
tupsortQ (x:xs) = (tupsortQ [ y | y<- xs, tupcmp x y]) ++ [x] ++ (tupsortQ [ y | y<- xs,  not (tupcmp x y)])
 
-- Сортировка выбором:
 
tupsortV [] = []
tupsortV x = (filter (\ z -> not $ tupcmp z mm) x) ++ (tupsortV (filter (\ z ->  tupcmp z mm) x))
              where  mm = mint x
                     mint x = foldr (\ acc xx -> if tupcmp xx acc then acc else xx) (head x) (tail x)