with Ada.Text_IO; use Ada.Text_IO;

procedure Thing is
begin
	Put_Line ("Hi Thing!");
end Thing;