task type TT1 is new Server with entry Q(X: in Item); end TT1;
