n = 123
	  write(6,100) n
100   format(1x,i5)
      stop
      end