showCard :: Card -> String
showCard (Card face suit) = show face ++ show suit
showCard :: Card -> String
showCard (Card face suit) = show face ++ show suit
showCard (Card face suit) = show face ++ show suit