[ $ "" swap
witheach [ upper join ] ] is upper$ ( $ --> $ )
witheach [ lower join ] ] is lower$ ( $ --> $ )
$ "PaTrIcK, I dOn'T tHiNk WuMbO iS a ReAl wOrD."
dup lower$ echo$ cr
upper$ echo$ cr