1. package Scoped_Tasks is 
  2.  
  3.    type    Colours     is (Red, Green, Blue, Pink); 
  4.    subtype Few_Colours is Colours range Red .. Blue; 
  5.  
  6.    task type Scoped_Task is 
  7.       entry Hand_over_Task_Id (Set_Id : Colours); 
  8.    end Scoped_Task; 
  9.  
  10.    Scoped_Task_is_not_too_well : exception; 
  11.  
  12. end Scoped_Tasks;