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