accessing
draw: card 
	self stock 
		detect: [ :each | each = card ] 
		ifFound: [self drawn add: card ] 
		ifNone: [ ^ nil ]