USING: math kernel alien alien.c-types ;
IN: benchmark.fib6

: fib ( x -- y )
    int { int } cdecl [
        dup 1 <= [ drop 1 ] [
            1 - dup fib swap 1 - fib +
        ] if
    ] alien-callback
    int { int } cdecl alien-indirect ;

: fib6-benchmark ( -- ) 32 fib drop ;

MAIN: fib6-benchmark