i store
        i @
    end
        i @ dup 1 - fibo @ ! swap 2 - fibo @ ! +
    i @ 1 <= ifElse
fibo store

5 fibo @ !

ça c'est la version récursive...

    i store
    0 i0 store
    1 i1 store
    1 pos store
        i0 @ i1 @ + i2 store
        i1 @ i0 store
        i2 @ i1 store
        pos @ 1 + pos store
        pos @ i @ >=
    until
fibo2 store
10 fibo2 @ !

et ensuite celle non récursive...

Et je peux vous dire que c'est une sacrée gymnastique !