      n = 1
10    write(6,100) n
	  n = n + 1
	  goto 10
100   format(1x,i8)
      stop
      end