accessing
printOn: aStream
	super initialize.
	aStream nextPutAll: 'Stock: ', String cr.
	self class suits keysDo: [ :suit |
		aStream 
			nextPutAll: (self stockCardsInSuit: suit);
			nextPutAll: String cr.
	].
	aStream nextPutAll: 'Drawn: ', String cr.
	self drawn do: [:card | aStream nextPutAll: card, ' ' ].
	^ aStream contents.