q=c(1,1);for(n in 1:300){q=c(sum(q[q[1:2]]),q);write(q[3],"")}