Ada.Text_IO.Unbounded_IO |
procedure Put([File : in File_Type;] Item : in Unbounded_String);
with Ada.Strings.Unbounded, Ada.Text_IO.Unbounded_IO; ... S1 : Unbounded_String; ... Put (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 (F, S1);