(* Calcule le pgcd des entiers a et b. Exemple d'utilisation : pgcd 4 8 donne 4*) let rec pgcd a = function | b when a mod b = 0 -> b | b -> pgcd b (a mod b)