example|IterativeFibonacci
~~~
:fib
(n-m)
[
#0
#1
]
dip
[
over
+
swap
]
times
drop
;
~~~