And remember that Vr is not a fixed speed either, it can be moved to enable a better climb performance after take off (obstacle limit). With all the performance tools available you can use a 4000m runway completely even with a lightweight 737 (our ATC brethren really hate it when we do that).