Module Cards

type suit =
  1. | Clubs
  2. | Diamonds
  3. | Hearts
  4. | Spades
type card = {
  1. rank : int;
  2. suit : suit;
}
val red : card -> bool
val of_index : int -> card
val name : card -> string
val deck : card list
val deal : int -> card list
val width : Playground.number
val height : Playground.number
val fanned : Playground.number
val stacked : Playground.number
val face : card -> Playground.shape
val back : Playground.shape
val slot : Playground.shape
val suit_shape : ?color:Playground.color -> suit -> Playground.number -> Playground.shape