for(n in q<-1:300)write(q[n]<-"if"(n>2,q[n-q[n-1]]+q[n-q[n-2]],1),"")