-- | Upper characters @\'A\', \'B\', ... \'Z\'@.
uppers :: FromAscii a => (a -> t -> t) -> t -> t
uppers = construct [65..90]
uppers :: FromAscii a => (a -> t -> t) -> t -> t
uppers = construct [65..90]
uppers = construct [65..90]