let string_of_card (card: card) : string =
  let {suit; rank} = card in
  (string_of_suit suit) ^ " " ^ (string_of_rank rank)