USE: locals

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