function retval = fibtailrecursive(n, prevfib = 0, fib = 1)
  if (n == 0)
    retval = prevfib;
  else
    retval = fibtailrecursive(n - 1, fib, prevfib + fib);
  endif
endfunction