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