--
--  Filename:
--
--     io.ads
--
--  Description:
--
--     Example of a user-defined package. Uses the ANSI C library
--     function putchar to output to the terminal.
--

package IO is

   procedure Put_Char (C : in Character);
   pragma Import (C, Put_Char, "putchar");

end IO;