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