-- Illustrates creation of a new IO package
with Ada.Text_IO;

procedure types2 is

   type Grade is range 0 .. 100;  -- Grade is a new type

   -- Create a new IO package!
   package Grade_IO is new Ada.Text_IO.Integer_IO(Grade);

   g: Grade := 3;

begin

   Grade_IO.put(g);

end types2;