1. with Ada.Task_Identification; use Ada.Task_Identification; 
  2.  
  3. package Scoped_Tasks_Finalizer is 
  4.  
  5.    protected Finalizer is 
  6.       procedure Register (Id : Task_Id); 
  7.    end Finalizer; 
  8.  
  9. end Scoped_Tasks_Finalizer;