package ch_08_07 is

  -- code from book

  procedure uniform ( variable seed1, seed2 : inout positive;
                      variable x : out real);

  -- end code from book

end package ch_08_07;