%BEGIN
%INTEGER %PROCEDURE TWO;
%EXTERNAL TWO;
%INTEGER ITWO;
PRINTSTRING(<CALLING_TWO>);
NEWLINE;
ITWO:=TWO;
PRINTSTRING(<TWO_=>);
PRINT(TWO,4,0);
NEWLINE;
PRINTSTRING(<DID_IT_WORK>);
NEWLINE
%END;