map length (tiers :: [[ Char ]])  =  [1,1,1,1,1,1,1,1,1,1,1,1,...]

length (list :: [ Char ])  =  Infinity

allUnique (list :: [ Char ])  =  True

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

tiers :: [Char]  =
  [ ['a']
  , [' ']
  , ['b']
  , ['A']
  , ['c']
  , ['\n']
  , ['d']
  , ['0']
  , ['e']
  , ['B']
  , ['f']
  , ['!']
  , ...
  ]