          
cardBeats :: Card -> Card -> Bool
cardBeats givenCard c =
    ((suit givenCard) == (suit c))
    &&
    (rankBeats (rank givenCard) (rank c))

aceOfSpades = Card Ace Spades 
tenOfHearts = Card (Numeric 10) Hearts
queenOfHearts = undefined
jackOfClub = undefined
