Module HandCard (.ml)

module HandCard: sig .. end

type suit = 

type rank = 

type card = {

val string_of_suit : suit -> string

val suit_of_string : string -> suit option

val string_of_rank : rank -> string

val rank_of_string : string -> rank option

val string_of_card : card -> string

val card_of_string : string -> card option

val main : unit -> unit Async.Std.Deferred.t