: 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 ;