accessing
uiGameFor: aView
	<gtView>
	| response |
	response := '' writeStream.
	response
		nextPutAll: '❭❭❭ Main Character'; cr; cr; 
		nextPutAll: self characters first printString; cr;
		nextPutAll: '❭❭❭ Deck'; cr; cr;
		nextPutAll: self deck printString.
	^ aView text
		title: 'Game';
		text: [ response contents ]