package Scoped_Tasks is
type Colours is (Red, Green, Blue, Pink);
subtype Few_Colours is Colours range Red .. Blue;
task type Scoped_Task is
entry Hand_over_Task_Id (Set_Id : Colours);
end Scoped_Task;
Scoped_Task_is_not_too_well : exception;
end Scoped_Tasks;