with  TEXT_IO;
procedure demo is
	s:string(1..100):=(1..100 => 'a' );
begin
	text_IO.put(s);
end demo;