accessing
fromDictionary: aDictionary
	name := aDictionary at: 'Name'.
	character := aDictionary at: 'Character'.
	(aDictionary at: 'Truths') collect: [:truth | self options add: ((SfTruthOption new fromDictionary: truth))].
	self refineOptionIntervals.