let suit_of_string (s: string) : suit option =
  match s with
  | "Spades"   -> Some Spades
  | "Hearts"   -> Some Hearts
  | "Diamonds" -> Some Diamonds
  | "Clubs"    -> Some Clubs
  | _          -> None