package Protected_Singleton is
   procedure Set_Data (Value : Integer);
   function Get_Data return Integer;
private
   protected Instance is
      procedure Set(Value : Integer);
      function Get return Integer;
   private
      Data : Integer := 0;
   end Instance_Type;
end Protected_Singleton;