with Szumma, Text_IO; use Text_IO;
procedure Demo is
	type IntVektor is array (INTEGER range <>) of INTEGER;
	function IntProd is new Szumma(INTEGER,INTEGER,IntVektor,1,"*");
begin
	Put_Line(Integer'IMAGE(IntProd((1,2,3,4))));
end Demo;