accessing
quotesReportData

	| tempDict labels xAxis |
	self quotes isEmpty
		ifTrue: [ ^ { OrderedDictionary new. 
			('[''', '0', ''']'). 
			('[''', 'No replies', ''']')} ].
	tempDict := self quotes asMessagesUserNamesSortedByOccurrences.

	tempDict size > 10 ifTrue: [
		tempDict := (tempDict associations copyFrom: 1 to: 10) asOrderedDictionary ].
		
	labels := tempDict keys.
	labels := labels collect: [ :profile | ($' asString), '@', profile, ($' asString) ].
	xAxis := tempDict values.
	xAxis := xAxis collect: [ :value | ($' asString), (value asString), ($' asString) ].
	^ {
	tempDict.
	('[', (',' join: xAxis), ']').
	('[', (',' join: labels), ']').
	}