: min1
2dup 2dup > rot rot < rot swap or rot rot or and ;
: min2
2dup > 1+ roll nip ;
\ ... or is it "<"?
: gcd
2dup < if swap then
begin
tuck mod dup 0=
until
drop ;