gcd[a0_, b0_] :=
	Module[{a = a0, b = b0},
		While[ b != 0, {a, b} = {b, Mod[a, b]} ];
		a
	]
