map length (tiers :: [[ Set () ]])  =  [1,1]

length (list :: [ Set () ])  =  2

allUnique (list :: [ Set () ])  =  True

ratioRepetitions (list :: [ Set () ])  =  0 % 1

tiers :: [Set ()]  =
  [ [Set []]
  , [Set [()]]
  ]