limite = 1e5
dim q(limite)
q(1) = 1
q(2) = 1

count = 0
for i = 3 to limite
    q(i) = q(i-q(i-1)) + q(i-q(i-2))
    if q(i) < q(i-1)  count = count + 1
next i

print "First 10 terms:  ";

for i = 1 to 10
    print q(i), " ";
next i

print "\nTerm 1000:  ", q(1000)
print "Terms less than preceding in first 100k: ", count
end