Module SexpCard (.ml)

module SexpCard: sig .. end

type suit = 
| Spades
| Hearts
| Diamonds
| Clubs
val __suit_of_sexp__ : Sexplib.Sexp.t -> suit
val suit_of_sexp : Sexplib.Sexp.t -> suit
val sexp_of_suit : suit -> Sexplib.Sexp.t
type rank = 
| One
| Two
| Three
| Four
| Five
| Six
| Seven
| Eight
| Nine
| Ten
| Jack
| Queen
| King
| Ace
val __rank_of_sexp__ : Sexplib.Sexp.t -> rank
val rank_of_sexp : Sexplib.Sexp.t -> rank
val sexp_of_rank : rank -> Sexplib.Sexp.t
type card = {
   suit : suit;
   rank : rank;
}
val __card_of_sexp__ : Sexplib.Sexp.t -> card
val card_of_sexp : Sexplib.Sexp.t -> card
val sexp_of_card : card -> Sexplib.Sexp.t
val main : unit -> unit Async.Std.Deferred.t