fun with cards in R