19 lines
468 B
Plaintext
19 lines
468 B
Plaintext
[ pack witheach
|
|
[ echo$ cr ] ] is counted-echo$ ( $ ... n --> )
|
|
|
|
[ this ] is marker ( --> m )
|
|
|
|
[ []
|
|
[ swap dup marker oats
|
|
iff drop done
|
|
nested swap join
|
|
again ] ] is gather ( m x ... --> [ )
|
|
|
|
[ gather witheach
|
|
[ echo$ cr ] ] is markered-echo$ ( m $ ... --> )
|
|
|
|
|
|
$ "this" $ "is" $ "a" $ "formica" $ "table" 5 counted-echo$
|
|
cr
|
|
marker $ "green" $ "is" $ "its" $ "colour" markered-echo$
|