with ada.numerics.discrete_random, ada.text_io;
use ada.text_io;

procedure randomos is
	subtype intv is integer range 1..10;
	package rand is new ada.numerics.discrete_random(intv);
	use rand;
	package boolrand is new ada.numerics.discrete_random(boolean);
	use boolrand;

	G : rand.Generator;
	GB : boolrand.Generator;
	i : intv;

begin
	reset(G);
	reset(GB);
	i := random(G);
	while  i < 8  loop
		put_line(intv'image(i));
		put_line(boolean'image(random(GB)));
		i := random(G);
	end loop;
	put_line("Kilepett");
end randomos;