<pre>line-mode
tuck-d
words
    tail
f1
    2dup
        is-alpha
    t1
    &gt;
        pop2
    f1
m6
nip
unwords
&quot;.&quot;
logical-or
</pre>