accessing
printOn: aStream
	super initialize.
	self class suits keysDo: [ :suit |
		aStream 
			nextPutAll: (self stockCardsInSuit: suit);
			nextPutAll: String cr.
	].
	^ aStream contents.