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