-module(mcd). -export([mcd/2]). mcd(A,B) -> if A == B -> A; A > B -> mcd( A - B, B); A < B -> mcd( B - A, A) end.