with DOS_017_Random; use DOS_017_Random;
procedure DOS_017 is
begin
  Demo;
end DOS_017;