WITH usefulstuff;
WITH ada.text_io;
PROCEDURE testUsefulStuff IS
--type Mysuit is (clubs, diamonds, hearts, spades);
--type Myrank is (two, three, four, five, six, seven, eight, nine, ten, jack, queen, king, ace);
--type Player is (playerOne, playerTwo, tie);=

--type card is record
--   suit : Mysuit;
--   rank:  Myrank;
--end record;
 aSuit : usefulstuff.Mysuit;
 aRank : usefulstuff.Myrank;
 
--type deck is array (1..52) of card;
  aDeck : usefulstuff.deck;
  
--package suit_io is new ada.text_io.enumeration_io (Mysuit);
--package rank_io is new ada.text_io.enumeration_io (Myrank);
--package player_io is new ada.text_io.enumeration_io (Player);

BEGIN

  usefulstuff.rank_io.put (usefulstuff.Myrank'first);
  ada.text_io.new_line;
  usefulstuff.rank_io.put (usefulstuff.Myrank'last);
  usefulstuff.rank_io.get (aRank);
  usefulstuff.suit_io.get (aSuit);
  usefulstuff.rank_io.put (aRank);
  ada.text_io.new_line;
  usefulstuff.suit_io.put (aSuit);
 END testUsefulStuff;