      open(1)
      do 10 n = 1, 15
10	  write(1,100) n
      close(1)
100   format(1x,i8)
      stop
      end