i<-1:10
webs<-paste0("https://movie.douban.com/top250?start=",25*(i-1),"&filter")
web<-readline(webs[1])
titles<-web[grep(".title",web)]