map length (tiers :: [[ Nat3->Nat2 ]])  =  [2,6,6,2]

length (list :: [ Nat3->Nat2 ])  =  Infinity

allUnique (list :: [ Nat3->Nat2 ])  =  False

ratioRepetitions (list :: [ Nat3->Nat2 ])  =  1 % 2

tiers :: [Nat3->Nat2]  =
  [ [ \x -> case x of
              0 -> 0
              1 -> 0
              2 -> 0
    , \x -> case x of
              0 -> 0
              1 -> 0
              2 -> 0
    ]
  , [ \x -> case x of
              0 -> 0
              1 -> 0
              2 -> 1
    , \x -> case x of
              0 -> 0
              1 -> 1
              2 -> 0
    , \x -> case x of
              0 -> 1
              1 -> 0
              2 -> 0
    , \x -> case x of
              0 -> 0
              1 -> 0
              2 -> 1
    , \x -> case x of
              0 -> 0
              1 -> 1
              2 -> 0
    , \x -> case x of
              0 -> 1
              1 -> 0
              2 -> 0
    ]
  , [ \x -> case x of
              0 -> 0
              1 -> 1
              2 -> 1
    , \x -> case x of
              0 -> 1
              1 -> 0
              2 -> 1
    , \x -> case x of
              0 -> 1
              1 -> 1
              2 -> 0
    , \x -> case x of
              0 -> 0
              1 -> 1
              2 -> 1
    , \x -> case x of
              0 -> 1
              1 -> 0
              2 -> 1
    , \x -> case x of
              0 -> 1
              1 -> 1
              2 -> 0
    ]
  , [ \x -> case x of
              0 -> 1
              1 -> 1
              2 -> 1
    , \x -> case x of
              0 -> 1
              1 -> 1
              2 -> 1
    ]
  ]