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 = {
}
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