package Module.Console is

   type Object is new Module.Object with private;

   procedure Start_Doc (Self : Object);
   procedure End_Doc (Self : Object);

   procedure Characters (Self : Object; Ch : String);

   procedure Element (Self : Object; Name : String);


private
   type Object is new Module.Object with null record;
end Module.Console;