COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "X"
C00003 ENDMK
C⊗;
BEGIN "X"
LABEL XX,XXX;
REQUIRE 10 NEW!ITEMS;
PROCEDURE P(INTEGER II,JJ); OUTSTR(CVS(II)&" ");
INTEGER I,J;
LIST LST;
I←43;
COMMENT LST←ARG!LIST(I,J);
XX:LST←{{REF!ITEM(I), REF!ITEM(J)}};
APPLY(P,LST);
XXX:APPLY(P,ARG_LIST(I,J));
OUTSTR(CVS(TYPEIT(LOP(LST))));
END "X";