function gcd(a%, b%)
   if a = 0  gcd = b
   if b = 0  gcd = a
   if a > b  gcd = gcd(b, a mod b)
   gcd = gcd(a, b mod a)
end function