%EXTERNALROUTINE OUT(%INTEGERNAME X)
WRITE(X,2)
%END
%ENDOFFILE