map length (tiers :: [[ ()->() ]])  =  [1]

length (list :: [ ()->() ])  =  1

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

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

tiers :: [()->()]  =
  [ [ \x -> case x of
              () -> ()
    ]
  ]