(let Str "alphaBETA"
   (prinl (uppc Str))
   (prinl (lowc Str)) )