test.adb

with Ada.Text_IO;
with Ada.Numerics.Discrete_Random;

procedure Test is
   subtype Random_Range is Integer range -10 .. 10;
   package Random_X is new Ada.Numerics.Discrete_Random(Random_Range);
   use Random_X;
   Gen : Generator;
begin
   loop
      Reset (Gen);
      Ada.Text_IO.Put_Line (Random (Gen)'Img);
   end loop;
end Test;