face-words - Returns a block of words that refer to faces in a face's pane.
face-words: func [
"Returns a block of words that refer to faces in the face's pane."
face
][
remove-each item collect word [foreach f face/pane [word: f/var]] [none? item]
]