# example|GreatestCommonDivisor

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