-- The standard pack of 36 cards.
pack36 :: [Card]
pack36 =
    let faces = [Six, Seven, Eight, Nine, Ten, Jack, Queen, King, Ace]
        suits = [Spades, Clubs, Diamonds, Hearts]
    in mkPack faces suits
pack36 :: [Card]
pack36 =
    let faces = [Six, Seven, Eight, Nine, Ten, Jack, Queen, King, Ace]
        suits = [Spades, Clubs, Diamonds, Hearts]
    in mkPack faces suits
pack36 =
    let faces = [Six, Seven, Eight, Nine, Ten, Jack, Queen, King, Ace]
        suits = [Spades, Clubs, Diamonds, Hearts]
    in mkPack faces suits