with Kiir;
procedure Demo is
	procedure IntKiir is new Kiir(Integer,Integer'Image);
begin IntKiir(12); end Demo;