accessing
writeWordsFile
	"TO DO: Debug Tweet words to work better with Urls"
	| rawTweets rawWords collectionsWords count |
	self messages ifNil: [ ^ self ].
	rawTweets := self tweets.
	
	rawWords := OrderedCollection new.
	collectionsWords := rawTweets collect: [ :tweet | (tweet words reject: [ :w | 
					w includesSubstring: (self class nitterProvider asUrl host copyWithoutAll: '.')])].
	collectionsWords do: [  :word | rawWords addAll: word ].
	rawWords := ' ' join:rawWords.
	
	^ MarkupFile exportAsFileOn: (self folder / 'words', 'txt') containing: rawWords.