card> ( string -- card )


Vocabulary
poker

Inputs
stringan object


Outputs
cardan object


Definition
USING: kernel poker.private sequences ;

IN: poker

: card> ( string -- card )
1 over [ symbol>suit ] change-nth >ckf ;