lowerConsonants :: FromAscii a => (a -> t -> t) -> t -> t
lowerConsonants = construct
    [ 98, 99, 100       -- 'b', 'c', 'd'
    , 102, 103, 104     -- 'f', 'g', 'h'
    , 106, 107, 108     -- 'j', 'k', 'l'
    , 109, 110, 112     -- 'm', 'n', 'p'
    , 113, 114, 116     -- 'q', 'r', 's'
    , 116, 118, 119     -- 't', 'v', 'w'
    , 122               -- 'z'
    ]
lowerConsonants :: FromAscii a => (a -> t -> t) -> t -> t
lowerConsonants = construct
    [ 98, 99, 100       -- 'b', 'c', 'd'
    , 102, 103, 104     -- 'f', 'g', 'h'
    , 106, 107, 108     -- 'j', 'k', 'l'
    , 109, 110, 112     -- 'm', 'n', 'p'
    , 113, 114, 116     -- 'q', 'r', 's'
    , 116, 118, 119     -- 't', 'v', 'w'
    , 122               -- 'z'
    ]
lowerConsonants = construct
    [ 98, 99, 100       -- 'b', 'c', 'd'
    , 102, 103, 104     -- 'f', 'g', 'h'
    , 106, 107, 108     -- 'j', 'k', 'l'
    , 109, 110, 112     -- 'm', 'n', 'p'
    , 113, 114, 116     -- 'q', 'r', 's'
    , 116, 118, 119     -- 't', 'v', 'w'
    , 122               -- 'z'
    ]