let string_of_suit (suit: suit) : string = match suit with | Spades -> "Spades" | Hearts -> "Hearts" | Diamonds -> "Diamonds" | Clubs -> "Clubs"