let rec eval = function | Const n -> n | Produit (e1, e2) -> eval e1 * eval e2 | Somme (e1, e2) -> eval e1 + eval e2;; (* Exemple *) eval e;;