package Completions is
type A_Completion is access all Completion;
procedure Notify_Complete;
function Is_Complete return Boolean;
entry Wait;
procedure Delete