map length (tiers :: [[ Maybe Bool->Maybe Bool ]])  =  [1,6,12,8]

length (list :: [ Maybe Bool->Maybe Bool ])  =  Infinity

allUnique (list :: [ Maybe Bool->Maybe Bool ])  =  True

ratioRepetitions (list :: [ Maybe Bool->Maybe Bool ])  =  0 % 1

tiers :: [Maybe Bool->Maybe Bool]  =
  [ [\_ -> Nothing]
  , [ \x -> case x of Just True -> Just False; _ -> Nothing
    , \x -> case x of Just True -> Just True; _ -> Nothing
    , \x -> case x of Just False -> Just False; _ -> Nothing
    , \x -> case x of Just False -> Just True; _ -> Nothing
    , \x -> case x of Nothing -> Just False; _ -> Nothing
    , \x -> case x of Nothing -> Just True; _ -> Nothing
    ]
  , [ \x -> case x of Nothing -> Nothing; _ -> Just False
    , \x -> case x of Nothing -> Nothing; Just False -> Just False; Just True -> Just True
    , \x -> case x of Nothing -> Nothing; Just False -> Just True; Just True -> Just False
    , \x -> case x of Nothing -> Nothing; _ -> Just True
    , \x -> case x of Just False -> Nothing; _ -> Just False
    , \x -> case x of Nothing -> Just False; Just False -> Nothing; Just True -> Just True
    , \x -> case x of Just True -> Nothing; _ -> Just False
    , \x -> case x of Nothing -> Just False; Just False -> Just True; Just True -> Nothing
    , \x -> case x of Nothing -> Just True; Just False -> Nothing; Just True -> Just False
    , \x -> case x of Just False -> Nothing; _ -> Just True
    , \x -> case x of Nothing -> Just True; Just False -> Just False; Just True -> Nothing
    , \x -> case x of Just True -> Nothing; _ -> Just True
    ]
  , [ \_ -> Just False
    , \x -> case x of Just True -> Just True; _ -> Just False
    , \x -> case x of Just False -> Just True; _ -> Just False
    , \x -> case x of Nothing -> Just False; _ -> Just True
    , \x -> case x of Nothing -> Just True; _ -> Just False
    , \x -> case x of Just False -> Just False; _ -> Just True
    , \x -> case x of Just True -> Just False; _ -> Just True
    , \_ -> Just True
    ]
  ]