R script that simulates the card game of Hearts