example|GreatestCommonDivisor
~~~
:gcd
(ab-n)
[
tuck
mod
dup
]
while
drop
;
~~~