With Ada.Text_IO; Use Ada.Text_IO;  
With Ada.Integer_Text_IO; Use Ada.Integer_Text_IO;
With Ada.Float_Text_IO; Use Ada.Float_Text_IO;
 
procedure Calling is
 
   procedure One is
   begin
      Put("This is procedure One talking.");
      New_Line;
   end One;
 
   procedure Two is
   begin
      Put("This is procedure Two talking.");
      New_Line;
      One;
   end Two;
 
   procedure Three is
   begin
      Put("This is procedure Three talking.");
      New_Line;
      Two;
      One;
   end Three;
 
begin
   One;
   Two;
   Three;
end Calling;
 
 

V2l0aCBBZGEuVGV4dF9JTzsgVXNlIEFkYS5UZXh0X0lPOyAgCldpdGggQWRhLkludGVnZXJfVGV4dF9JTzsgVXNlIEFkYS5JbnRlZ2VyX1RleHRfSU87CldpdGggQWRhLkZsb2F0X1RleHRfSU87IFVzZSBBZGEuRmxvYXRfVGV4dF9JTzsKCnByb2NlZHVyZSBDYWxsaW5nIGlzCgogICBwcm9jZWR1cmUgT25lIGlzCiAgIGJlZ2luCiAgICAgIFB1dCgiVGhpcyBpcyBwcm9jZWR1cmUgT25lIHRhbGtpbmcuIik7CiAgICAgIE5ld19MaW5lOwogICBlbmQgT25lOwoKICAgcHJvY2VkdXJlIFR3byBpcwogICBiZWdpbgogICAgICBQdXQoIlRoaXMgaXMgcHJvY2VkdXJlIFR3byB0YWxraW5nLiIpOwogICAgICBOZXdfTGluZTsKICAgICAgT25lOwogICBlbmQgVHdvOwoKICAgcHJvY2VkdXJlIFRocmVlIGlzCiAgIGJlZ2luCiAgICAgIFB1dCgiVGhpcyBpcyBwcm9jZWR1cmUgVGhyZWUgdGFsa2luZy4iKTsKICAgICAgTmV3X0xpbmU7CiAgICAgIFR3bzsKICAgICAgT25lOwogICBlbmQgVGhyZWU7CgpiZWdpbgogICBPbmU7CiAgIFR3bzsKICAgVGhyZWU7CmVuZCBDYWxsaW5nOwoK