10 lines
263 B
Text
10 lines
263 B
Text
[ [] [] rot
|
|
witheach
|
|
[ dup char , = iff
|
|
[ drop nested join [] ]
|
|
else join ]
|
|
nested join ] is tokenise ( $ --> [ )
|
|
|
|
[ witheach [ echo$ say "." ] ] is display ( [ --> )
|
|
|
|
$ "Hello,How,Are,You,Today" tokenise display
|