for(i in(n=0):7)n=c(n,n+1)
cat(n,sep="")