USE: locals

: fib ( n -- ) [| x! [ 0 ]
                  y! [ 1 ] |
                    [ x y + y x! y! ] times x . ] ;