   package R
     with Abstract_State => R1
   is
      -- R1 may be denoted here
      procedure Init_R1
        with Global  => (Output => R1),
             Depends => (R1 => null);

      procedure Op_1 (I : in Integer)
        with Global   => (In_Out => R1),
	     Depends  => (R1 =>+ I),
	     Always_Terminates;
   end R;
