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

(* Exemple *)
eval e;;