def fib/aux {
  if: dig dup 0 =
    [drop drop]
    [bury [swap 1 - swap] dip dup [+] dip swap fib/aux]
  ;
}
def fib { 0 1 fib/aux }

[ 50 fib ] call