IN: scratchpad
USE: compiler
USE: math
USE: stack
USE: test
USE: combinators

: fib ( n -- nth fibonacci number )
    dup 1 <= [ drop 1 ] [ pred dup fib swap pred fib + ] ifte ;

[ 9227465 ] [ 34 fib ] unit-test