-- | Check if argument is one of @\'A\', \'E\', \'I\', \'O\', \'U\'@.
isUpperVowel :: (FromAscii a, Eq a) => a -> Bool
isUpperVowel = is 65 <||> is 69 <||> is 73 <||> is 79 <||> is 85
isUpperVowel :: (FromAscii a, Eq a) => a -> Bool
isUpperVowel = is 65 <||> is 69 <||> is 73 <||> is 79 <||> is 85
isUpperVowel = is 65 <||> is 69 <||> is 73 <||> is 79 <||> is 85