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