WITH ADA.TExt_io;-- Note that ada is not case sensitive so the upper and lower case don't matter

procedure main is

begin -- main;

ada.text_IO.PUT ("hI THERE");

END MAIN;