/gcd {
{
    {0 gt} {dup rup mod} {pop exit} ifte
} loop
}.