cards.R

My code to simulation card colection.