with Ada.Text_IO;
use Ada.Text_IO;

procedure Hello is
    package IO renames Ada.Text_IO;

    function GetLine return String is
        Line : String(1 .. 1000);
        Last : Integer;
    begin

        Get_Line(Line,Last);

        return Line(1 .. Last);

    end GetLine;

    Line: String(1 .. 200);

begin
    Line.Overwrite("A",0);
    New_Line;


end Hello;