mcd(A,0,A).

mcd(A,B,M):-
	A1 is A mod B,
	mcd(B,A1,M).


