with Text_Io;use Text_Io;procedure a is
begin
Put(Get_Line);a;end;