let rec cmmdc (a, b) =
  if b = 0 then a
  else cmmdc(b, a mod b);;
  cmmdc (6, 28);; (* exemplu *)