-- | Lower vowels @\'a\', \'e\', \'i\', \'o\', \'u\'@.
lowerVowels :: FromAscii a => (a -> t -> t) -> t -> t
lowerVowels = construct
    [ 97, 101, 105      -- 'a', 'e', 'i'
    , 111, 117          -- 'o', 'u'
    ]
lowerVowels :: FromAscii a => (a -> t -> t) -> t -> t
lowerVowels = construct
    [ 97, 101, 105      -- 'a', 'e', 'i'
    , 111, 117          -- 'o', 'u'
    ]
lowerVowels = construct
    [ 97, 101, 105      -- 'a', 'e', 'i'
    , 111, 117          -- 'o', 'u'
    ]