2741번 N찍기 R로 풀 때 오류가 있습니다.

x <- scan("stdin") 

a<- x[1] 

 for(i in 1:a) {

 cat(a-i+1, "\n") 

 }

입력하고 돌렸는데 채점중(0%)에서 넘어가지를 않고 

시간초과가 뜨네요 오류 바로잡아주시면 감사하겠습니다.