Package Pack is

  Type Integer is range 1..1000 ;

  current : Integer := 1 ;


End ;