# example|RecursiveFibonacci

~~~
:fib (n-m)
  dup
  [ n:zero? ] [ #1 eq? ] bi or
  not 0; drop
  [ n:dec fib ] sip
  [ #2 - fib ] call + ;
~~~