-- Simple Ada program
   --   in file sayhi.adb

   with Ada.Text_IO;

   procedure sayHi is
   begin
      Ada.Text_IO.put("Hi!");    -- Output some text!
   end sayHi;