str <- "alphaBETA"
 toupper(str)
 tolower(str)