%BEGIN
%INTEGER I
WRITE(I,2) %FOR I=1,1,1000 
NEWLINE
%ENDOFPROGRAM