: fib ( n -- f ) dup 1 <=
    [ drop 1 ]
    [ [ 1 - fib ] [ 2 - fib ] bi + ] if ;