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