q:[1,1];thru 300 do dispterms((q:cons(q[q[1]]+q[q[2]],q))[3]);