dim q(300)
do
i=i+1
q(i)=1
if i>2q(i)=q(i-q(i-1))+q(i-q(i-2))
?q(i)loop