10 lines
232 B
Text
10 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
|