10 14 1
rem restituisce l'x0esimo numero di fibonacci. x0>0
let x2 = 1
let x3 = 1
let x4 = 1
let x1 = 2
let x6 = 1
let x7 = 0
while x1 < x0 exit +6
let x2 = x3 + x4
let x4 = x3 + x7
let x3 = x2 + x7
let x1 = x1 + x6
next
end
