accessing
randomName
	| response|
	response := self namesOracle.
	^ {'Given name' -> (response at: 'givenNames') atRandom.
	'callsign' -> (response at: 'callsigns') atRandom.
	'Familiy name' -> (response at: 'familyNames') atRandom. 
	} asDictionary.