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