-- The standard pack of 52 cards.
pack52 :: [Card]
pack52 =
    let faces = [Two, Three, Four, Five, Six, Seven, Eight, Nine, Ten,
                 Jack, Queen, King, Ace]
        suits = [Spades, Clubs, Diamonds, Hearts]
    in mkPack faces suits
pack52 :: [Card]
pack52 =
    let faces = [Two, Three, Four, Five, Six, Seven, Eight, Nine, Ten,
                 Jack, Queen, King, Ace]
        suits = [Spades, Clubs, Diamonds, Hearts]
    in mkPack faces suits
pack52 =
    let faces = [Two, Three, Four, Five, Six, Seven, Eight, Nine, Ten,
                 Jack, Queen, King, Ace]
        suits = [Spades, Clubs, Diamonds, Hearts]
    in mkPack faces suits