accessing
stockCardsInSuit: aString 
	| response suitCards |
	response := '' writeStream.
	suitCards := self stock select: [ :card | card endsWith: aString ].
	suitCards do: [ :card | response nextPutAll: card ].
	^ response contents