Str    : String := "Hello World";
Length : constant Natural := Str'Size / 8;