with text_io; use text_io;
procedure JJ is

	task type Kiiro is
		entry Init ( s: in STRING := "" );
	end Kiiro;

	a, b: Kiiro;

	task body Kiiro is
		type PStr is access STRING;
		nev: PStr;
	begin
	  accept Init ( s: in STRING := "" ) do 
	  	nev := new STRING(1..s'length);
		nev.all := s;
	  end Init;
	  for i in POSITIVE'range loop
	    Put_Line(nev.all & POSITIVE'IMAGE(i));
	  end loop;
	end Kiiro;

begin
	a.Init("Jancsi"); b.Init("Julcsa");
end JJ;