( Rudimentary WORDS using primitive words only. )

( Use: fo words
(  or: fo rth words
(  or: fo rth _your_stuff_ words
(  or: fo rth _your_stuff_
	_more_of_your_stuff_
	s" words" included
( etc.
)

begin
	7 ( ie CURRENT ) has has           ( dict-link)
	0 >R
		begin
			?dup
		while
			dup 1+ has count           ( . string .)
			dup 1+ R> + >R
			R@ 72 > if
			cr   dup 1+ R> drop >R
			then
			type                       ( dict-link)
			1 spaces
			has
		repeat                             ( )
	R>
until

(
	To add WORDS to the dictionary:

	case   please " ; "   s" words" input stream   please ": WORDS "   esac
)