[ $ "" swap
    witheach [ upper join ] ] is upper$ ( $ --> $ )

  [ $ "" swap
    witheach [ lower join ] ] is lower$ ( $ --> $ )

   $ "PaTrIcK, I dOn'T tHiNk WuMbO iS a ReAl wOrD."
   dup lower$ echo$ cr
       upper$ echo$ cr