map length (tiers :: [[ Int->Int ]])  =  [0]

length (list :: [ Int->Int ])  =  0

allUnique (list :: [ Int->Int ])  =  True

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

tiers :: [Int->Int]  =
  [[]]