procedure chi_square is

	d : float := 0.0;
	k : constant integer := 10;
	n : constant integer := 10000;
	ndk : constant float := float(n/k);
	index : integer;
	buckets : array(1..k) of integer;


begin

	put("Initializing array..."); new_line;
	for i in 1..k loop
		buckets(i) := 0;
	end loop;

	put("Filling array..."); new_line;
	for i in 1..n loop
		index := in