with Ada.Text_io; use Ada.Text_io;

procedure enum2 is
   type Color is (Red, Blue, Green);

   type Day is (Sunday, Monday, Tuesday, 
                Wednesday, Thursday, Friday, Saturday);

   package Color_IO is new Enumeration_IO(Color);
   package Day_IO is new Enumeration_IO(Day);

   use Color_IO;
   use Day_IO;

   c: Color;
   d: Day;
   x: character;
   s: String(1..2);

begin

    while not end_of_file loop
        get(c);  
        put(c); put(" ");

        get(x); 
        get(s); 
        put(s); put(" ");

        get(d); put(d);

        new_line;
    end loop;

end enum2;