def times {
  if: over 0 =
    [drop drop]
    [swap over >r >r call r> 1 - r> times];
}

def fib {
  0 1 dig [dup [+] dip swap] times drop
}

"50 fib => " type
50 fib .