9 lines
232 B
Text
9 lines
232 B
Text
[ $ "" 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
|