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