map length (tiers :: [[ ByteString ]])  =  [1,1,2,4,8,16,...]

length (list :: [ ByteString ])  =  Infinity

allUnique (list :: [ ByteString ])  =  True

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

tiers :: [ByteString]  =
  [ [""]
  , ["\NUL"]
  , [ "\NUL\NUL"
    , "\255"
    ]
  , [ "\NUL\NUL\NUL"
    , "\NUL\255"
    , "\255\NUL"
    , "\SOH"
    ]
  , [ "\NUL\NUL\NUL\NUL"
    , "\NUL\NUL\255"
    , "\NUL\255\NUL"
    , "\NUL\SOH"
    , "\255\NUL\NUL"
    , "\255\255"
    , "\SOH\NUL"
    , "\254"
    ]
  , [ "\NUL\NUL\NUL\NUL\NUL"
    , "\NUL\NUL\NUL\255"
    , "\NUL\NUL\255\NUL"
    , "\NUL\NUL\SOH"
    , "\NUL\255\NUL\NUL"
    , "\NUL\255\255"
    , "\NUL\SOH\NUL"
    , "\NUL\254"
    , "\255\NUL\NUL\NUL"
    , "\255\NUL\255"
    , "\255\255\NUL"
    , "\255\SOH"
    , "\SOH\NUL\NUL"
    , "\SOH\255"
    , "\254\NUL"
    , "\STX"
    ]
  , ...
  ]