testCards :: [Card]
testCards =
  [ Card Ace Spades
  , Card Two Hearts
  , Card Two Diamonds
  , Card Three Clubs
  , Card Four Spades
  ]
testCards :: [Card]
testCards =
  [ Card Ace Spades
  , Card Two Hearts
  , Card Two Diamonds
  , Card Three Clubs
  , Card Four Spades
  ]
testCards =
  [ Card Ace Spades
  , Card Two Hearts
  , Card Two Diamonds
  , Card Three Clubs
  , Card Four Spades
  ]