with Ada.Strings.Unbounded, Ada.Strings.Unbounded.Text_IO;
use Ada.Strings.Unbounded, Ada.Strings.Unbounded.Text_IO;

procedure SUTest is
   US : Unbounded_String;
begin
   Get_Line (US);
   Put (To_Unbounded_String ("Unbounded String war """));
   Put (US); Put_Line (To_Unbounded_String (""""));
end SUTest