# File lib/facets/more/quaternion.rb, line 444
  def gcd other
    a=self; b=other
    while true
      if b==0 ; return a;end
      a=a.rmod_D4(b)
      if a==0 ; return b;end
      b=a.lmod_D4(b)
    end
  end