import Data.Char

s = "alphaBETA"

lower = map toLower s
upper = map toUpper s