LET limite = 100000

DIM q(0)
MAT REDIM q(limite)
LET q(1) = 1
LET q(2) = 1

LET count = 0
FOR i = 3 TO limite
    LET q(i) = q(i-q(i-1))+q(i-q(i-2))
    IF q(i) < q(i-1) THEN
       LET count = count + 1
    END IF
NEXT i

PRINT "First 10 terms: ";
FOR i = 1 TO 10
    PRINT q(i);
NEXT i

PRINT
PRINT "Term 1000: "; q(1000)
PRINT "Terms less than preceding in first 100k: "; count
END