function M=mcd(X,Y)
if X<0 || Y<0 || (X==0 && Y==0) % i connettivi logici di disg-/congiunzione
    M=NaN;
else
    while Y ~= 0 % il connettivo logico di negazione, combinato con l'=
        R = rem(X,Y);
        X = Y;
        Y = R;
%       fprintf('X=%u ed Y=%u\n',X,Y);% per info, chiedere >> doc fprintf
    end
    M=X;
end