accessing
exportRepliesHistogramWithBars: aNumberOfBars

	| repliesDict |
	repliesDict := {
		'messagesType' -> 'replies'.
		'extent' -> (800@200).
		'color' -> (Color r:(246/255) g:(185/255) b:(46/255))
	} asDictionary.
	^ self exportHistogramFor: repliesDict By: aNumberOfBars