with Text_IO;
procedure Daisy is

   Hi: String := "Hello World";

begin

   Text_IO.Put_Line ("Hi: '" & Hi & "' length: " & Integer'Image (Hi'Length));
   Hi(8) := Character'Val(0);
   Text_IO.Put_Line ("Hi: '" & Hi & "' length: " & Integer'Image (Hi'Length));

end Daisy;