with Bingo_Numbers;  use Bingo_Numbers;
with Bingo_Basket;
with Ada.Text_IO; use Ada.Text_IO;
procedure Bingo_Basket_Test is

   package Bingo_Number_IO is new Ada.Text_Io.Integer_Io (Bingo_Number);
   use Bingo_Number_IO;

   package Letter_IO is new Ada.Text_Io.Enumeration_Io (Bingo_Letter);
   use Letter_IO;

   Number : Callable_Number;
   Letter : Bingo_Letter;
begin
   Bingo_Basket.Load;
   while not Bingo_Basket.Empty loop
      Bingo_Basket.Draw (Letter => Letter,
                         Number => Number);
      Put (Letter);
      Put (Item => Number,
           Width => 3);
      New_Line;
   end loop;
end Bingo_Basket_Test;