Find datatype words (See related posts)

datatypes: has [types attrs value word] [
	word: 'datatype!
	types: copy []
	attrs: second system/words
	foreach item first system/words [
		if all [
			not unset? first attrs
			any [
				all [string? :word find value word]
				all [
					not string? :word
					datatype? get :word
					(get :word) = type? first attrs
				]
			]
		] [
			append types item
		]
		attrs: next attrs
	]
	sort types
]
print mold datatypes