accessing
approaches
	^ approaches ifNil: [ 
		approaches := OrderedDictionary new
			at: 'Strong' put: 0;
			at: 'Patient'put: 0;
			at: 'Quick' put: 0;
			yourself
	]