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