package body Except is
procedure Raise_Task
is
begin
raise Program_Error;
end Raise_Task;
end Except;