plot[1-(999/1000)^x,x = 0 to 5000]