Prolog - mcm

hola amigos

cual es el codigo para hallar el mcm de 2 numeros

mcm(4,6,X)

X=12

gracias

mcm(a,0,a)
mcm(a,b,c) = a>b,mcm(b,a,c),!
mcm(a,b,c) = mcm(b,a mod b, c)

necestio conocer el codigo en prolog del MCM de tres numeros.

codigo de java paraq imprima mcm y mcd de n numeros