>>> format (charsKeptIf Data.Char.isUpper text) "Data.Char.isUpper" "DCU"
>>> format (charsRemovedIf Data.Char.isUpper text) "Data.Char.isUpper" "ata.har.ispper"