-- | Ambiguous characters, like @8@ and @B@.
ambiguous :: FromAscii a => (a -> t -> t) -> t -> t
ambiguous = construct
    [ 56, 66            -- 8, B
    , 54, 71            -- 6, G
    , 49, 73, 108       -- 1, I, l
    , 48, 68, 79, 81    -- 0, O, Q, D
    , 83, 53            -- S, 5
    , 90, 50            -- Z, 2
    ]
ambiguous :: FromAscii a => (a -> t -> t) -> t -> t
ambiguous = construct
    [ 56, 66            -- 8, B
    , 54, 71            -- 6, G
    , 49, 73, 108       -- 1, I, l
    , 48, 68, 79, 81    -- 0, O, Q, D
    , 83, 53            -- S, 5
    , 90, 50            -- Z, 2
    ]
ambiguous = construct
    [ 56, 66            -- 8, B
    , 54, 71            -- 6, G
    , 49, 73, 108       -- 1, I, l
    , 48, 68, 79, 81    -- 0, O, Q, D
    , 83, 53            -- S, 5
    , 90, 50            -- Z, 2
    ]