Как ускорить python цикл?

[infinityline]

Как можно ускорить этот цикл?

r = 1


f = open('file.txt', 'w')


while r < 8489624:


    f.write(str(r) +'\n')
    r += 1

else:


    f.close()

 

[Vershitel_sudeb]

with open('file.txt', 'w') as f:
    r = '\n'.join(map(str, range(1, 8489624)))
    f.write(r)


# изначальный вариант - 6.93 сек.
# этот вариант - 1.74 сек.