WITH Text_IO;
PROCEDURE HiMom IS

   PROCEDURE Display_H;
   PROCEDURE Display_I;
   PROCEDURE Display_M;
   PROCEDURE Display_O;

   PROCEDURE Display_HI IS
   BEGIN
      Text_IO.Put (Item => "Display_HI called");
      Text_IO.New_Line;
      Display_H;
      Display_I;
      Text_IO.New_Line;
   END Display_HI;

   PROCEDURE Display_MOM IS
   BEGIN
      Text_IO.Put (Item => "Display_MOM called");
      Text_IO.New_Line;
      Display_M;
      Display_O;
      Display_M;
      Text_IO.New_Line;
   END Display_MOM;

   PROCEDURE Display_H IS
   BEGIN
      Text_IO.Put (Item => "Display_H called");
      Text_IO.New_Line;
   END Display_H;

   PROCEDURE Display_I IS
   BEGIN
      Text_IO.Put (Item => "Display_I called");
      Text_IO.New_Line;
   END Display_I;

   PROCEDURE Display_M IS
   BEGIN
      Text_IO.Put (Item => "Display_M called");
      Text_IO.New_Line;
   END Display_M;

   PROCEDURE Display_O IS
   BEGIN
      Text_IO.Put (Item => "Display_O called");
      Text_IO.New_Line;
   END Display_O;

BEGIN
  
   Display_HI;
   Display_MOM;

END HiMom;

This hypertext format was generated by David A. Wheeler's ada2html