with Ada.Text_IO;
use  Ada.Text_IO;

procedure HelloWorld is

begin  -- HelloWorld
   Put ("Hello, world, from Ada/LP!");
end HelloWorld;