MEMO: slow-fib ( m -- n ) dup 0 >= [ throw ] unless dup 2 >= [ [ 2 - slow-fib ] [ 1 - slow-fib ] bi + ] when ; ! try this to get "Retain stack overflow": ! ( scratchpad ) 100000 slow-fib