Ada.Text_IO.Unbounded_IO |
procedure Put_Line ([File : in File_Type; ]Item : in Unbounded_String);
with Ada.Strings.Unbounded, Ada.Text_IO.Unbounded_IO; use Ada.Strings.Unbounded, Ada.Text_IO.Unbounded_IO; ... S1 : Unbounded_String; ... Put_Line (S1);
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; with Ada.Text_IO.Unbounded_IO; use Ada.Text_IO.Unbounded_IO; with Text_IO; use Text_IO; ... S1 : Unbounded_String; F : File_Type; ... Put_Line (F, S1);