-- Translated on 13-Jul-2016 by (New) P2Ada v. 28-Oct-2009
-- The following with/use clauses are put graciously by P2Ada.
-- Some of them may be useless, your Ada compiler will tell it you.
--   (GNAT: with '-gnatwa')
with Ada.Text_IO;                       use Ada.Text_IO;
with Ada.Integer_Text_IO;               use Ada.Integer_Text_IO;
with Ada.Float_Text_IO;                 use Ada.Float_Text_IO;
with Ada.Long_Float_Text_IO;            use Ada.Long_Float_Text_IO;
with Ada.Direct_IO;
with Ada.Command_Line;                  use Ada.Command_Line; -- ParamStr,...
with Ada.Characters.Handling;           use Ada.Characters.Handling; -- UpCase
with Interfaces;                        use Interfaces; -- For Shift_Left/Right
-- This is for Pi :
with Ada.Numerics;                      use Ada.Numerics;
-- This is for Sqrt, Sin, Cos, etc. :
with Ada.Numerics.Elementary_Functions; use Ada.Numerics.Elementary_Functions;
with Ada.Numerics.Long_Elementary_Functions;
 use Ada.Numerics.Long_Elementary_Functions;
-- This is for Dispose. P2Ada writes automatically:
--   "Dispose is new Ada.Unchecked_Deallocation(<type>, <pointer type>)".
with Ada.Unchecked_Deallocation;

procedure  verysimple is
  package Boolean_Text_IO is new Enumeration_IO(Boolean);
  use Boolean_Text_IO; -- [P2Ada]: This is for 'Write([Boolean])'
  package Byte_Direct_IO is new Ada.Direct_IO(Unsigned_8);
 -- [P2Ada]: This is for 'file' without type
  Program_halted: exception; -- [P2Ada]: This is for the Halt pseudo-procedure
 output: Ada.Text_IO.File_Type;

begin
Put(output);
Put( -- [P2Ada]: !Help! Maybe (file,...) here
"very simple hello world"); New_Line; -- [P2Ada]: !Help! Maybe (file)

end verysimple;
-- Translated on 13-Jul-2016 by (New) P2Ada v. 28-Oct-2009