C     .TITLE NOERR
C
C  10 APR 73 - PAUL HENDERSON
C
   1  I=1
      WRITE (4,*) I
      STOP
      END