-- | Upper vowels @\'A\', \'E\', \'I\', \'O\', \'U\'@.
upperVowels :: FromAscii a => (a -> t -> t) -> t -> t
upperVowels = construct
    [ 65, 69, 73        -- 'A', 'E', 'I'
    , 79, 85            -- 'O', 'U'
    ]
upperVowels :: FromAscii a => (a -> t -> t) -> t -> t
upperVowels = construct
    [ 65, 69, 73        -- 'A', 'E', 'I'
    , 79, 85            -- 'O', 'U'
    ]
upperVowels = construct
    [ 65, 69, 73        -- 'A', 'E', 'I'
    , 79, 85            -- 'O', 'U'
    ]