: fib ( m -- n ) dup 1 > [ [ 1 - fib ] [ 2 - fib ] bi + ] when ;