(* pgcd de deux nombres. Exemple d'utilisation : pgcd 2 4 renvoie 2 *) let rec pgcd m = function | 0 -> m | n -> pgcd n (m mod n)